Télécharger optabi.eso

Retour à la liste

Numérotation des lignes :

  1. C OPTABI SOURCE CB215821 18/06/05 21:15:13 9830
  2. SUBROUTINE OPTABi(ith)
  3. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  4. C Cette subroutine est l''interface pour les operations elementaires
  5. C et les fonctions appliquees sur les OBJETS qui les supportent
  6. C Elle peut etre appelee en parallele
  7. C
  8. C Elle recupere le contenu du COMMON puis fait appel a OPTAB0
  9. C
  10. C HISTORIQUE :
  11. C - CB215821 01/09/2016 --> Creation
  12. C - CB215821 23/02/2018 --> Appel a OPTAB0 qui va dispatcher le travail selon les objets
  13. C - CB215821 05/06/2018 --> Ajout de la fonction SIGN a un argument
  14. C
  15. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  16.  
  17. IMPLICIT INTEGER(I-N)
  18. IMPLICIT REAL*8 (A-H,O-Z)
  19.  
  20. -INC TMVALUE
  21.  
  22. C Recuperation du segment dans le COMMON (voir TMVALUE.INC)
  23. IPOINT=IPARAL
  24. CALL OPTAB0(ith,IPOINT)
  25.  
  26. RETURN
  27. END
  28.  
  29.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales