Esope source files

   1 : C CNEQ      SOURCE    PV        09/03/12    21:17:13     6325           
   2 :       SUBROUTINE CNEQ
   3 : *_______________________________________________________________________
   4 : *
   5 : *    OPERATEUR DE CONVERSION DE CHAMPS VOLUMIQUES EN CHAMPS NODAUX
   6 : *
   7 : *      ZOZO = CNEQ MOD CHP1 (CAR1) ;
   8 : *                      CHAM
   9 : *
  10 : *      MOD    objet de type MMODEL
  11 : *      CHP1   objet de type CHPOINT
  12 : *      CHAM   objet de type MCHAML
  13 : *      CAR1   CHAMP PAR ELEMENT DE CARACTERISTIQUES
  14 : *             GEOMETRIQUES ET MATERIELLES, TYPE MCHAML (facultatif)
  15 : *      ZOZO   CHPOINT donnant les VALEURS nodales
  16 : *
  17 : *      Francois  CAFFIN  1992
  18 : *_______________________________________________________________________
  19 : *
  20 :       IMPLICIT INTEGER(I-N)
  21 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  22 : -INC CCOPTIO                                                                    
  23 : -INC SMCHAML
  24 : -INC SMCHPOI
  25 : -INC SMCOORD                                                                    
  26 : *
  27 :       IPCHE1=0                                                                  
  28 :       IPCHE2=0                                                                  
  29 :       IPCHPO=0
  30 :       IPCHP2=0
  31 : *
  32 : *   LECTURE DU MODELE
  33 : *
  33 :       CALL LIROBJ('MMODEL',IPMODL,1,IRT1)                                       
  34 :       IF (IERR.NE.0) RETURN                                              
  35 : *
  36 : *   LECTURE D'UN CHPOINT OU D'UN MCHAML
  37 : *
  37 :       CALL LIROBJ('CHPOINT',IPCHPO,0,IRT1)
  38 :       IF (IERR.NE.0) RETURN
  39 :       IF (IRT1.EQ.0) THEN
  39 :         CALL LIROBJ('MCHAML',IPCHE1,1,IRT1)
  40 :         IF (IERR.NE.0) RETURN
  41 :       ENDIF
  42 : *
  43 : *      LECTURE EVENTUELLE D'UN CHAMP DE CARACTERISTIQUES
  44 : *
  44 :         CALL LIROBJ('MCHAML',IPCHE2,0,IRT1)                                     
  45 :         IF (IERR.NE.0) RETURN                                                   
  46 : *
  46 :       CALL CNEQP(IPMODL,IPCHE1,IPCHPO,IPCHE2,IPCHP2,IRET)
  47 : *
  48 :       IF (IRET.EQ.1) THEN 
  49 : *
  50 : *       on attribue une nature discrete au champ resultant
  51 :           MCHPOI = IPCHP2 
  52 :           SEGACT MCHPOI*MOD
  53 :           JATTRI(1) = 2
  54 :           SEGDES MCHPOI
  55 : *
  55 :           CALL ECROBJ('CHPOINT',IPCHP2)
  56 :       ENDIF
  57 :       RETURN                                                                    
  58 : *      
  59 :       END                                                                       
  60 :  
  61 :  
  62 :  
  63 :  
  64 :