C CRIT      SOURCE    FANDEUR   10/12/14    21:15:48     6812           
      SUBROUTINE CRIT
C=======================================================================        
C                                                                               
C            OPERATEUR CRITERE                                                  
C                                                                               
C      SCA = CRIT MODL SIG  VAR  CAR                                 
C                                                                               
C  MMODEL     |    MODL    OBJET MODELE   
C                                                                               
C             |    SIG     CONTRAINTES                                          
C  MCHAMLS    |    VAR     VARIABLES INTERNES                                   
C             |    CAR     CONSTANTES DU MATERIAU  ET CARACTERISTIQUES          
C             |            GEOMETRIQUES ( SELON LES ELEMENTS )                  
C             |    SCA     CRITERE RESULTAT                                     
C                                                                               
C=======================================================================        
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
*                                                                               
-INC CCOPTIO                                                                    
-INC SMCHAML                                                                    
*                                                                               
       IPCHE1=0                                                                 
       IPCHE2=0                                                                 
       IPCAR=0                                                                  
*                                                                               
*     LECTURE D'UN MODEL                                                        
*                                                                               
      CALL LIROBJ('MMODEL',IPMODL,1,IRT)                                        
      IF(IERR.NE.0)RETURN                                                       
*                                                                               
          CALL LIROBJ('MCHAML',IPCHE1,1,IRT)                                    
          IF(IERR.NE.0)RETURN                                                   
          MCHELM=IPCHE1                                                         
          SEGACT MCHELM                                                         
          IF(TITCHE.NE.'CONTRAINTES')THEN                                       
            MOTERR(1:8)='CONTRAIN'                                              
            CALL ERREUR(109)                                                    
            SEGDES MCHELM                                                       
            RETURN                                                              
          ENDIF                                                                 
          SEGDES MCHELM                                                         
*                                                                               
          CALL LIROBJ('MCHAML',IPCHE2,1,IRT)                                    
          IF(IERR.NE.0)RETURN                                                   
          MCHELM=IPCHE2                                                         
          SEGACT MCHELM                                                         
          IF(TITCHE.NE.'VARIABLES INTERNES')THEN                                
            MOTERR(1:8)='VARINTER'                                              
            CALL ERREUR(109)                                                    
            SEGDES MCHELM                                                       
            RETURN                                                              
          ENDIF                                                                 
          SEGDES MCHELM                                                         
*                                                                               
          CALL LIROBJ('MCHAML',IPCAR,1,IRT)                                     
          IF(IERR.NE.0)RETURN                                                   
          MCHELM=IPCAR                                                          
          SEGACT MCHELM                                                         
          IF(TITCHE.NE.'CARACTERISTIQUES')THEN                                  
             MOTERR(1:8)='CARACTER'                                              
             CALL ERREUR(109)                                                    
             SEGDES MCHELM                                                       
             RETURN                                                              
          ENDIF                                                                 
          SEGDES MCHELM                                                         
*
      CALL CRITP(IPMODL,IPCHE1,IPCHE2,IPCAR,IPCHES)                 
*                                                                               
      IF (IERR.EQ.0) CALL ECROBJ('MCHAML',IPCHES)                                
*                                                                               
       RETURN                                                                   
       END