Esope source files

   1 : C CRCHPE    SOURCE    PV        09/03/12    21:18:35     6325           
   2 :       SUBROUTINE CRCHPE(MELEME,NC,MCHELM)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 :       
   6 : -INC CCOPTIO
   7 : -INC SMCHAML
   8 : -INC SMELEME
   9 :       
  10 :       SEGACT MELEME
  11 :       NBSOUS=LISOUS(/1)
  12 :       IF(NBSOUS.EQ.0)NBSOUS=1
  13 :       N1=NBSOUS
  14 :       N3=6
  15 :       L1=0
  16 :       N2=NC
  17 :       N2PTEL=0
  18 :       N2EL=0
  19 :       SEGINI MCHELM
  20 :       IFOCHE=IFOMOD
  21 :       DO 1 L=1,MAX(1,LISOUS(/1))
  22 :       IPT1=MELEME
  23 :       IF(LISOUS(/1).NE.0)IPT1=LISOUS(L)
  24 :       SEGACT IPT1
  25 :       N1EL=IPT1.NUM(/2)
  26 :       N1PTEL=IPT1.NUM(/1)
  27 :       SEGINI MCHAML
  28 :       IMACHE(L)=IPT1
  29 :       ICHAML(L)=MCHAML
  30 :       DO 2 N=1,NC
  31 :       SEGINI MELVAL
  32 :       IELVAL(N)=MELVAL
  33 :       NOMCHE(N)='SCAL    '
  34 :       TYPCHE(N)='REAL*8  '
  35 :       SEGDES MELVAL
  36 :  2    CONTINUE
  37 :       SEGDES MCHAML
  38 :       SEGDES IPT1
  39 :  1    CONTINUE
  40 :       SEGDES MELEME
  41 :       SEGDES MCHELM
  42 :       RETURN
  43 :       END
  44 :  
  45 :  
  46 :  
  47 :