Esope source files

   1 : C CHILEC    SOURCE    CHAT      05/01/12    21:57:21     5004           
   2 :       SUBROUTINE CHILEC(LBDD,MLIDEN,LXMX,IDSCHI,IOCHI1,IOCHI2)
   3 :       IMPLICIT INTEGER(I-N)
   4 :         IMPLICIT REAL*8 (A-H,O-Z)
   5 : -INC SMLENTI
   6 :       POINTEUR MLIDEN.MLENTI,MLXMX.MLENTI
   7 : -INC CCOPTIO
   8 :       SEGMENT IDSCHI
   9 :            REAL*8 GK(NYDIM),AA(NYDIM,NXDIM),FF(NZDIM,NPDIM)
  10 :            INTEGER IDX(NXDIM),IDY(NYDIM),IDZ(NZDIM),IDP(NPDIM),NN(6)
  11 :            INTEGER IDECY(NYDIM),IONZ(NXDIM)
  12 :            CHARACTER*32 NAME(NXDIM),NAMESP(NYDIM)
  13 :       ENDSEGMENT
  14 : C
  15 :       SEGACT MLIDEN
  16 :       NXDIM=MLIDEN.LECT(/1)
  17 :       NYDIM=200
  18 :       NZDIM=0
  19 :       NPDIM=0
  20 :       SEGINI IDSCHI
  20 :       CALL RSETI(IDX,MLIDEN.LECT,NXDIM)
  21 :       IF(LBDD.EQ.0)THEN
  21 :             CALL CHINP(IDSCHI,LXMX,IOCHI1,IOCHI2)
  22 :       ELSEIF(LBDD.EQ.1)THEN
  22 :             CALL CHINPS(IDSCHI,LXMX,IOCHI1,IOCHI2)
  23 :       ENDIF
  24 :       NYDIM=IDY(/1)
  25 :       NPDIM=IDP(/1)
  26 : C     WRITE(6,*)(NAME(I),I=1,NXDIM)
  27 : *      WRITE(6,*)'IDX',(IDX(I),I=1,NXDIM)
  28 : *      WRITE(6,*)'IDY',(IDY(I),I=1,NYDIM)
  29 : *      write(6,*)'chilec IDP',(idp(i),i=1,npdim)
  30 : C     WRITE(6,*)'GK',(GK(I),I=1,NYDIM)
  31 : C     WRITE(6,110)((AA(I,J),I=1,NYDIM),J=1,NXDIM)
  32 : *      WRITE(6,*)' NN ',( NN(i),I=1,6)
  33 :   110 FORMAT( 2X ,'AA',(10(1PE10.3)))
  34 : 
  35 : 
  36 :       SEGDES MLIDEN
  37 :       RETURN
  38 :       END
  39 :  
  40 :  
  41 :  
  42 :