C ZERORO    SOURCE    FANDEUR   10/12/14    21:20:25     6812           
      SUBROUTINE ZERORO                                                         
*_______________________________________________________________________        
*                                                                               
*            OPERATEUR MCHAML A ZERO                                            
*                                                                               
*            SYNTAXE :                                                          
*            _________                                                          
*                                                                               
*      CHAM1 = ZERO  MOT1 MODL1 ;                                               
*                                                                               
*            MOT1  Mot cl{ indiquant le sous-type de MCHAML voulu               
*            MODL1 mod}le de calcul, type MMODEL                                
*            CHAM1 champ par {l{ment r{sultat (type MCHAML )                    
*                                                                               
*            Passage aux nouveaux CHAMELEMs par I.Monnier le 30 8 1990          
*                                                                               
*_______________________________________________________________________        
C                                                                               
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
C                                                                               
-INC CCOPTIO                                                                    
C                                                                               
      PARAMETER(NMOT=24)                                                        
*                                                                               
      CHARACTER*8 LISMOT(NMOT),MOT                                              
*                                                                               
      DATA LISMOT / 'NOEUD   ', 'GRAVITE ', 'RIGIDITE', 'MASSE   ',             
     1              'STRESSES', 'DEPLACEM', 'FORCES  ', 'REACTUAL',             
     1              'FVOLUMIQ', 'GRADIENT', 'CONTRAIN', 'DEFORMAT',             
     1              'MATERIAU', 'CARACTER', 'TEMPERAT', 'PRINCIPA',             
     1              'MAHOOKE ', 'HOTANGEN', 'DILATATI', 'VARINTER',             
     1              'GRAFLEXI', 'VONMISES', 'VIMISTRU', 'DEFINELA'/             
C                                                                               
C     LECTURE DU TYPE DE CHAMP A CREER                                          
C                                                                               
      CALL LIRMOT(LISMOT,NMOT,IPLAC,1)                                          
      IF (IPLAC.EQ.0) THEN                                                      
        CALL ERREUR(78)                                                         
        RETURN                                                                  
      ELSE                                                                      
        MOT=LISMOT(IPLAC)                                                       
      ENDIF                                                                     
C                                                                               
C     LECTURE DU MODELE                                                         
C                                                                               
      CALL LIROBJ('MMODEL',IPMODL,1,IRET)                                       
      IF (IERR.NE.0) RETURN                                                     
C                                                                               
C     CREATION DU MCHAML                                                        
C                                                                               
      CALL ZEROP (IPMODL,MOT,IPCHE1)                                            
      IF (IERR.NE.0) RETURN                                                     
C                                                                               
C     ECRITURE DU RESULTAT                                                      
C                                                                               
      CALL ECROBJ('MCHAML',IPCHE1)                                              
C                                                                               
      RETURN                                                                    
      END