C CNEQ      SOURCE    PV        09/03/12    21:17:13     6325           
      SUBROUTINE CNEQ
*_______________________________________________________________________
*
*    OPERATEUR DE CONVERSION DE CHAMPS VOLUMIQUES EN CHAMPS NODAUX
*
*      ZOZO = CNEQ MOD CHP1 (CAR1) ;
*                      CHAM
*
*      MOD    objet de type MMODEL
*      CHP1   objet de type CHPOINT
*      CHAM   objet de type MCHAML
*      CAR1   CHAMP PAR ELEMENT DE CARACTERISTIQUES
*             GEOMETRIQUES ET MATERIELLES, TYPE MCHAML (facultatif)
*      ZOZO   CHPOINT donnant les VALEURS nodales
*
*      Francois  CAFFIN  1992
*_______________________________________________________________________
*
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
-INC CCOPTIO                                                                    
-INC SMCHAML
-INC SMCHPOI
-INC SMCOORD                                                                    
*
      IPCHE1=0                                                                  
      IPCHE2=0                                                                  
      IPCHPO=0
      IPCHP2=0
*
*   LECTURE DU MODELE
*
      CALL LIROBJ('MMODEL',IPMODL,1,IRT1)                                       
      IF (IERR.NE.0) RETURN                                              
*
*   LECTURE D'UN CHPOINT OU D'UN MCHAML
*
      CALL LIROBJ('CHPOINT',IPCHPO,0,IRT1)
      IF (IERR.NE.0) RETURN
      IF (IRT1.EQ.0) THEN
        CALL LIROBJ('MCHAML',IPCHE1,1,IRT1)
        IF (IERR.NE.0) RETURN
      ENDIF
*
*      LECTURE EVENTUELLE D'UN CHAMP DE CARACTERISTIQUES
*
        CALL LIROBJ('MCHAML',IPCHE2,0,IRT1)                                     
        IF (IERR.NE.0) RETURN                                                   
*
      CALL CNEQP(IPMODL,IPCHE1,IPCHPO,IPCHE2,IPCHP2,IRET)
*
      IF (IRET.EQ.1) THEN 
*
*       on attribue une nature discrete au champ resultant
          MCHPOI = IPCHP2 
          SEGACT MCHPOI*MOD
          JATTRI(1) = 2
          SEGDES MCHPOI
*
          CALL ECROBJ('CHPOINT',IPCHP2)
      ENDIF
      RETURN                                                                    
*      
      END