Télécharger prytmx.eso

Retour à la liste

Numérotation des lignes :

prytmx
  1. C PRYTMX SOURCE CB215821 19/07/31 21:17:14 10277
  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.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. REAL*8 VB
  12. ICOND=1
  13. CALL LIROBJ('CHPOINT ',IRE1,ICOND,IRETOU)
  14. CALL ACTOBJ('CHPOINT ',IRE1,1)
  15. IF(IERR.NE.0) RETURN
  16. CALL LIROBJ('CHPOINT ',IRE2,ICOND,IRETOU)
  17. CALL ACTOBJ('CHPOINT ',IRE2,1)
  18. IF(IERR.NE.0) RETURN
  19. CALL LIROBJ('RIGIDITE',IRE3,ICOND,IRETOU)
  20. IF(IERR.NE.0) RETURN
  21. CALL YTMX(IRE1,IRE2,IRE3,VB)
  22. IF(IERR.NE.0) RETURN
  23. CALL ECRREE(VB)
  24. END
  25.  
  26.  
  27.  

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