C INVARI    SOURCE    FANDEUR   10/12/14    21:17:08     6812           
*                                                                               
      SUBROUTINE INVARI                                                         
*                                                                               
*---------------------------------------------------------------------          
*                                                                               
*         CALCUL DES 3 INVARIANTS D'UN TENSEUR D'ORDRE 2                        
*                                                                               
*   SYNTAXE :                                                                   
*   ---------                                                                   
*                                                                               
*     CH1 CH2 CH3  = INVA  MOD CHEL (CAR) ( MOT );                              
*                                                                               
*           MOD   MODELE DE CALCUL, TYPE MMODEL                                 
*           CHEL  OBJET DE TYPE MCHAML DE SOUS TYPE CONTRAINTES                 
*                 OU DEFORMATIONS                                               
*           CAR   OBJET DE TYPE MCHAML DE SOUS TYPE CARACTERISTIQUES            
*           MOT   MOT QUI INDIQUE POUR LES COQUES OU ON CALCULE LES             
*                 CONTRAINTES                                                   
*           CH1   OBJET DE TYPE MCHAML DE SOUS TYPE STRESSES                    
*           CH2   OBJET DE TYPE MCHAML DE SOUS TYPE STRESSES                    
*           CH3   OBJET DE TYPE MCHAML DE SOUS TYPE STRESSES                    
*                                                                               
*     PASSAGE AUX NOUVEAU CHAMELEM PAR JM CAMPENON LE 12/90                     
*                                                                               
*--------------------------------------------------------------------           
*                                                                               
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC CCOPTIO                                                                    

      CHARACTER*4 MOCLE(3)                                                      
      DATA MOCLE/'SUPE','MOYE','INFE'/                                          
*                                                                               
      IPCHE1=0                                                                  
      IPCHE2=0                                                                  
*                                                                               
      CALL LIROBJ('MMODEL',IPMODL,1,IRET)                                       
      IF(IERR.NE.0) RETURN                                                      
*                                                                               
      CALL LIROBJ('MCHAML',IPCHE1,1,IRET)                                       
      IF(IERR.NE.0) RETURN                                                      
*                                                                               
      CALL LIROBJ('MCHAML',IPCHE2,0,IRET)                                       
      IF (IERR.NE.0) RETURN                                                     
*                                                                               
*     LECTURE D'UN MOT SI NECESSAIRE                                            
*                                                                               
      IMIL=0                                                                    
      CALL LIRMOT(MOCLE,3,IMOT,0)                                               
      IF (IMOT.EQ.1) IMIL=1                                                     
      IF (IMOT.EQ.3) IMIL=-1                                                    
*                                                                               
      CALL INVACA(IPMODL,IPCHE1,IPCHS1,IPCHS2,IPCHS3,IPCHE2,IMIL,IRET)          
*                                                                               
      IF (IRET.EQ.0) RETURN                                                     
*                                                                               
      CALL ECROBJ('MCHAML',IPCHS3)                                              
      CALL ECROBJ('MCHAML',IPCHS2)                                              
      CALL ECROBJ('MCHAML',IPCHS1)                                              
*                                                                               
      RETURN                                                                    
      END