Télécharger prytmx.eso

Retour à la liste

Numérotation des lignes :

  1. C PRYTMX SOURCE CHAT 05/01/13 02:36:50 5004
  2. SUBROUTINE PRYTMX
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C
  6. C **** LECTURE DES ENTREES DE L'OPERATEUR YTMX
  7. C
  8. -INC CCOPTIO
  9. REAL*8 VB
  10. ICOND=1
  11. CALL LIROBJ('CHPOINT ',IRE1,ICOND,IRETOU)
  12. IF(IERR.NE.0) RETURN
  13. CALL LIROBJ('CHPOINT ',IRE2,ICOND,IRETOU)
  14. IF(IERR.NE.0) RETURN
  15. CALL LIROBJ('RIGIDITE',IRE3,ICOND,IRETOU)
  16. IF(IERR.NE.0) RETURN
  17. CALL YTMX(IRE1,IRE2,IRE3,VB)
  18. IF(IERR.NE.0) RETURN
  19. CALL ECRREE(VB)
  20. RETURN
  21. END
  22.  
  23.  
  24.  

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