Esope source files

   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
  10 :       CALL LIROBJ ('CHPOINT ',IRE1,ICOND,IRETOU)
  11 :       IF(IERR.NE.0) RETURN
  11 :       CALL LIROBJ('RIGIDITE',IRE2,ICOND,IRETOU)
  12 :       IF(IERR.NE.0) RETURN
  12 :       CALL XTMX(IRE1,IRE2,RESTOT)
  13 :       IF(IERR.NE.0) RETURN
  13 :       CALL ECRREE(RESTOT)
  14 :       RETURN
  15 :       END
  16 : 
  17 : 
  18 : 
  19 : 
  20 :  
  21 :