Esope source files

   1 : C CHMCRC    SOURCE    CHAT      05/01/12    21:58:44     5004           
   2 :       SUBROUTINE CHMCRC(MLMOTS,IGEOT,NPN,MCHPOI,MPOVAL)
   3 :       IMPLICIT INTEGER(I-N)
   4 :         IMPLICIT REAL*8 (A-H,O-Z)
   5 : C------------------------------------------------------------------
   6 : C
   7 : C       CREATION D'UN CHPOINT POUR LES SORTIES DE CHIMI2
   8 : C
   9 : C   ENTREES :
  10 : C         MLMOTS POINTEUR LE LA LISTE DES NOMS DES COMPOSANTES
  11 : C         IGEOT  POINTEUR DE LA GEOMETRIE
  12 : C         NPN    NOMBRE DE POINTS
  13 : C   SORTIES :
  14 : C         MCHPOIN POINTEUR DU CHPOIN CREE
  15 : C         MPOVAL POINTEUR DU TABLEAU DE VALEURS DE CE CHPOINT
  16 : C
  17 : C------------------------------------------------------------------
  18 : -INC SMCHPOI
  19 : -INC SMLMOTS
  20 : -INC CCOPTIO
  21 :       NSOUPO=1
  22 :       NAT=1
  23 :       SEGINI MCHPOI
  24 :       MTYPOI='        '
  25 :       MOCHDE='      CHPOIN CREE PAR CHIMI2                      '
  26 :       IFOPOI=IFOUR
  27 :       JATTRI(1)=2
  28 :       SEGACT MLMOTS
  29 :       NC=MOTS(/2)
  30 :       SEGINI MSOUPO
  31 :       IPCHP(1)=MSOUPO
  32 :       DO 10 I=1,NC
  33 :             NOCOMP(I)=MOTS(I)
  34 :             NOHARM(I)=0
  35 :    10 CONTINUE
  36 :       IGEOC=IGEOT
  37 :       N=NPN
  38 :       SEGINI MPOVAL
  39 :       IPOVAL=MPOVAL
  40 :       NB=N*NC
  40 :       CALL INITD(VPOCHA,NB,0.D0)
  41 :       RETURN
  42 :       END
  43 :  
  44 :  
  45 :