Télécharger prxtmx.eso

Retour à la liste

Numérotation des lignes :

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

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