Télécharger optabi.eso

Retour à la liste

Numérotation des lignes :

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

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