Esope source files

   1 : C ECSTRU    SOURCE    CHAT      05/01/12    23:27:52     5004           
   2 :       SUBROUTINE ECSTRU(MSTRUC)                                                 
   3 : C                                                                               
   4 :       IMPLICIT INTEGER(I-N)
   5 : -INC SMSTRUC                                                                    
   6 : -INC CCOPTIO                                                                    
   7 : C                                                                               
   8 :       INTERR(1)=MSTRUC                                                          
   8 :       CALL ERREUR(-34)                                                          
   9 :  3001 FORMAT('  *MSOSTU *ITYSOU *RIGIDIT* MASSE *MATERIA*CARACTE*')             
  10 :       WRITE(IOIMP,3001)                                                         
  11 :       SEGACT MSTRUC                                                             
  12 :       NSTRU=LISTRU(/1)                                                          
  13 :       DO 3100 IS=1,NSTRU                                                        
  14 :       MSOSTU=LISTRU(IS)                                                         
  15 :       SEGACT MSOSTU                                                             
  16 :       WRITE(IOIMP,3003)MSOSTU,ITYSOU,ISRAID,ISMASS,ISCHAM(1),ISCHAM(2)          
  17 :  3003 FORMAT(3X,6(I5,3X))                                                       
  18 :       SEGDES MSOSTU                                                             
  19 :  3100 CONTINUE                                                                  
  20 :       WRITE(IOIMP,3002)                                                         
  21 :  3002 FORMAT(//)                                                                
  22 :       SEGDES MSTRUC                                                             
  23 :       RETURN                                                                    
  24 :       END                                                                       
  25 :