C TRESCA    SOURCE    FANDEUR   10/12/14    21:20:01     6812           
      SUBROUTINE TRESCA                                                         
*---------------------------------------------------------------------          
*                                                                               
*              CALCUL DE LA CONTRAINTE DE TRESCA                                
*                                                                               
*     SYNTAXE :                                                                 
*     ---------                                                                 
*     CHAL1 = TRESCA MODL1 SIG1 (CAR1) (MOT1)                                   
*                                                                               
*       MODL1 =  Modele de calcul (type  MMODEL)                                
*       SIG1  =  Objet de type MCHALM  de CONTRAINTES                           
*       CAR1  =  Objet de type MCHAML  de CARACTERISTIQUE                       
*       MOT1  =  Mot qui indique pour les coques ou l'on calcule les            
*                contraintes                                                    
*       CHEL1 =  Objet de type MCHAML de sous type SCALAIRE (aux pts            
*                de gauss pour les contraintes)                                 
*                                                                               
* Passage aux nouveaux chamelem par jm CAMPENON le 04/91                        
*                                                                               
*--------------------------------------------------------------------           
*                                                                               
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
*                                                                               
-INC CCOPTIO                                                                    
*                                                                               
      CHARACTER*4 MOMOT                                                         
*                                                                               
      MOMOT='    '                                                              
      IMIL=0                                                                    
*                                                                               
      IPMODL=0                                                                  
      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                                                      
*                                                                               
*     On lit les CARACTERISTIQUES (facultatif)                                  
*                                                                               
      CALL LIROBJ('MCHAML',IPCHE2,0,IRET)                                       
      IF(IERR.NE.0) RETURN                                                      
*                                                                               
*     Lecture d'un mot si necessaire                                            
*                                                                               
      CALL LIRCHA(MOMOT,0,IRET)                                                 
      IF(IERR.NE.0) RETURN                                                      
      IF (IRET.NE.0) THEN                                                       
       IF (MOMOT.EQ.'SUPE') IMIL=1                                              
       IF (MOMOT.EQ.'INFE') IMIL=-1                                             
       IF (MOMOT.NE.'SUPE'.AND.MOMOT.NE.'INFE'.AND.MOMOT.NE.'MOYE') THEN        
          MOTERR(1:4)=MOMOT                                                     
          CALL ERREUR(7)                                                        
          RETURN                                                                
       ENDIF                                                                    
      ENDIF                                                                     
*                                                                               
      IRET=0                                                                    
      CALL TRESK(IPMODL,IPCHE1,IPCHE2,IMIL,IPSCAL,IRET)                         
*                                                                               
      IF(IRET.NE.0) CALL ECROBJ('MCHAML',IPSCAL)                                
*                                                                               
      RETURN                                                                    
      END