Esope source files

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