Télécharger la plaquette Cast3M


fr en

Télécharger optabi.eso

Retour à la liste

Numérotation des lignes : 

optabi

  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