Esope source files

   1 : C CHIECH    SOURCE    CHAT      05/01/12    21:57:12     5004           
   2 :       SUBROUTINE CHIECH(IZECH,IDSCHI)
   3 :       IMPLICIT INTEGER(I-N)
   4 :         IMPLICIT REAL*8 (A-H,O-Z)
   5 : C------------------------------------------------------------------
   6 : C
   7 : C            PRISE EN COMPTE DES ECHANGES
   8 : C
   9 : C------------------------------------------------------------------
  10 : -INC SMLENTI
  11 : -INC CCOPTIO
  12 :       POINTEUR IZECH.MLENTI
  13 :       SEGMENT IDSCHI
  14 :            REAL*8 GK(NYDIM),AA(NYDIM,NXDIM),FF(NZDIM,NPDIM)
  15 :            INTEGER IDX(NXDIM),IDY(NYDIM),IDZ(NZDIM),IDP(NPDIM),NN(6)
  16 :            INTEGER IDECY(NYDIM),IONZ(NXDIM)
  17 :            CHARACTER*32 NAME(NXDIM),NAMESP(NYDIM)
  18 :       ENDSEGMENT
  19 :       INTEGER LINIT
  20 : C
  21 :       SEGACT IZECH
  22 :       IECH=IZECH.LECT(/1)
  23 :       DO 10 I=1,IECH
  24 :       IDF=IZECH.LECT(I)
  25 :       LINIT=1
  25 :       CALL CHIREX(IDSCHI,IDF,LINIT,6 )
  26 :    10 CONTINUE
  27 :       NXDIM=IDX(/1)
  28 :       IDEB=NN(1)+1
  29 :       IFIN=NN(1)+NN(2)
  30 :       DO 30 IY=IDEB,IFIN
  31 :             DO 20 I=1,IECH
  32 :                 IDF=IZECH.LECT(I)
  32 :                 CALL CHIADY(IDX,NXDIM,IDF,IX)
  33 :                 IF(ABS(AA(IY,IX)).GT.1.D-4)THEN
  34 :                       IDECY(IY)=1
  35 :                 ENDIF
  36 :    20       CONTINUE
  37 :    30 CONTINUE
  38 :       SEGDES IZECH
  39 :       RETURN
  40 :       END
  41 :  
  42 :  
  43 :  
  44 :  
  45 :