Sources Esope | Cast3M

prytmx
C PRYTMX    SOURCE    CB215821  19/07/31    21:17:14     10277          
      SUBROUTINE PRYTMX
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C
C  ****  LECTURE DES ENTREES DE L'OPERATEUR YTMX
C
 
-INC PPARAM
-INC CCOPTIO
      REAL*8 VB
      ICOND=1
      CALL LIROBJ('CHPOINT ',IRE1,ICOND,IRETOU)
      CALL ACTOBJ('CHPOINT ',IRE1,1)
      IF(IERR.NE.0)  RETURN
      CALL LIROBJ('CHPOINT ',IRE2,ICOND,IRETOU)
      CALL ACTOBJ('CHPOINT ',IRE2,1)
      IF(IERR.NE.0) RETURN
      CALL LIROBJ('RIGIDITE',IRE3,ICOND,IRETOU)
      IF(IERR.NE.0)  RETURN
      CALL       YTMX(IRE1,IRE2,IRE3,VB)
      IF(IERR.NE.0) RETURN
      CALL ECRREE(VB)
      END