C LIATTA    SOURCE    CHAT      05/01/13    01:16:50     5004           
      SUBROUTINE LIATTA (IORES,ITLACC,IMAX1,IRET,IFORM)                         
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
C=======================================================================        
C   BUT        : LECTURE DES MATTAC                                             
C   APPELE PAR : LIPIL                                                          
C   APPELLE    : LFCDIM LFCDIE LFCDI2                                           
C   ECRIT PAR FARVACQUE    -REPRIS PAR LENA                                     
C                                                                               
      DIMENSION ILECBI(1)                                                       
-INC SMATTAC                                                                    
C                                                                               
      SEGMENT/ ITLACC/(ITLAC(0))                                                
      SEGMENT /ILECB1/(ILECB2(NP))                                              
C                                                                               
C=======================================================================        
C                                                                               
      DIMENSION ILENA(10),IAUX(1)                                               
C--------------------------------------------------------------------           
C     ***************************** MATTAC *****************************        
      IRET=0                                                                    
      IRETOU=0                                                                  
      DO 150 IEL=1,IMAX1                                                        
      CALL LFCDIE (IORES,1    ,ILENA,IRETOU,IFORM)                              
      IF (IRETOU.NE.0) GO TO 1000                                               
      N=ILENA(1)                                                                
      NN=N                                                                      
      SEGINI MATTAC                                                             
      ITLAC(**)=MATTAC                                                          
      DO 151 I=1,NN                                                             
      CALL LFCDIE (IORES,2    ,ILENA,IRETOU,IFORM)                              
      IF (IRETOU.NE.0) GO TO 1000                                               
      M=ILENA(1)                                                                
      N=ILENA(2)                                                                
      SEGINI MSOUMA                                                             
      LISATT(I)=MSOUMA                                                          
      CALL LFCDIM (IORES,1    ,ILECBI,IRETOU,IFORM)                             
      WRITE(ITYATT,FMT='(A4)')ILECBI(1)                                         
      IF (IRETOU.NE.0) GO TO 1000                                               
      CALL LFCDIE (IORES,M    ,IPMATK,IRETOU,IFORM)                             
      IF (IRETOU.NE.0) GO TO 1000                                               
      CALL LFCDIE (IORES,N    ,IATREL,IRETOU,IFORM)                             
      IF (IRETOU.NE.0) GO TO 1000                                               
      CALL LFCDIE (IORES,1    ,IGEOCH,IRETOU,IFORM)                             
      IF (IRETOU.NE.0) GO TO 1000                                               
      CALL LFCDIE (IORES,1    ,IAUX,IRETOU,IFORM)                               
      MPHYCH=IAUX(1)                                                            
      IF (IRETOU.NE.0) GO TO 1000                                               
C                                                                               
      IF (IGEOCH.EQ.0) GO TO 152                                                
      CALL LFCDIE (IORES,5    ,ILENA,IRETOU,IFORM)                              
      IF (IRETOU.NE.0) GO TO 1000                                               
      NI=ILENA(1)                                                               
      NJ=ILENA(2)                                                               
      N1=ILENA(3)                                                               
      NP=ILENA(4)                                                               
      NT=ILENA(5)                                                               
      SEGINI MGEOCH                                                             
      IGEOCH=MGEOCH                                                             
      CALL LFCDIE (IORES,NI   ,INORCH,IRETOU,IFORM)                             
      IF (IRETOU.NE.0) GO TO 1000                                               
      CALL LFCDI2  (IORES,NJ   ,RJEUCH,IRETOU,IFORM)                            
      IF (IRETOU.NE.0) GO TO 1000                                               
      CALL LFCDIE (IORES,N1   ,IMAPRO,IRETOU,IFORM)                             
      IF (IRETOU.NE.0) GO TO 1000                                               
      SEGINI ILECB1                                                             
      CALL LFCDIM (IORES,NP   ,ILECB2,IRETOU,IFORM)                             
      WRITE(MPOPRO,FMT='(18A4)')(ILECB2(IY),IY=1,NP)                            
      SEGDES ILECB1                                                             
      IF (IRETOU.NE.0) GO TO 1000                                               
      CALL LFCDI2  (IORES,NT   ,TAIPRO,IRETOU,IFORM)                            
      IF (IRETOU.NE.0) GO TO 1000                                               
      SEGDES MGEOCH                                                             
  152 CONTINUE                                                                  
C                                                                               
      IF (MPHYCH.EQ.0) GO TO 153                                                
      CALL LFCDIE (IORES,3    ,ILENA,IRETOU,IFORM)                              
      IF (IRETOU.NE.0) GO TO 1000                                               
      NRAI=ILENA(1)                                                             
      NA=ILENA(2)                                                               
      NF=ILENA(3)                                                               
      SEGINI MPHYCH                                                             
      IPHYCH=MPHYCH                                                             
      CALL LFCDI2  (IORES,NRAI ,RAIPRO,IRETOU,IFORM)                            
      IF (IRETOU.NE.0) GO TO 1000                                               
      CALL LFCDI2  (IORES,NA   ,AMOPRO,IRETOU,IFORM)                            
      IF (IRETOU.NE.0) GO TO 1000                                               
      CALL LFCDI2  (IORES,NF   ,FROPRO,IRETOU,IFORM)                            
      IF (IRETOU.NE.0) GO TO 1000                                               
      SEGDES MPHYCH                                                             
  153 CONTINUE                                                                  
C                                                                               
      SEGDES MSOUMA                                                             
  151 CONTINUE                                                                  
      SEGDES MATTAC                                                             
  150 CONTINUE                                                                  
 1000 CONTINUE                                                                  
      IRET=IRETOU                                                               
      RETURN                                                                    
C -------------------------------------------------------                       
      END