C CRCHPE    SOURCE    PV090527  25/01/07    14:42:30     12115          

      SUBROUTINE CRCHPE(MELEME,NC,MCHELM)

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)

-INC PPARAM
-INC CCOPTIO
-INC SMCOORD

-INC SMCHAML
-INC SMELEME

      SEGACT MELEME
      NBSOU1=LISOUS(/1)
      NBSOUS=MAX(1,NBSOU1)

      N1=NBSOUS
      N3=6
      L1=1

      N2=NC
      N2PTEL=0
      N2EL=0

      SEGINI,MCHELM
      IFOCHE=IFOMOD
      TITCHE(1:L1) = ' '

      IPT1=MELEME
      DO 1 L = 1, NBSOUS
        IF (NBSOU1.NE.0) THEN
          IPT1=LISOUS(L)
          SEGACT IPT1
        ENDIF
        N1EL   = IPT1.NUM(/2)
        N1PTEL = IPT1.NUM(/1)
        SEGINI MCHAML
        IMACHE(L)=IPT1
        ICHAML(L)=MCHAML
        CONCHE(L) = '    '
        INFCHE(L,6) = 1
        DO 2 N=1,NC
          SEGINI MELVAL
          IELVAL(N)=MELVAL
          NOMCHE(N)='SCAL    '
          TYPCHE(N)='REAL*8  '
          SEGDES MELVAL
 2      CONTINUE
        SEGDES MCHAML
        IF (NBSOU1.NE.0) SEGDES IPT1
 1    CONTINUE

      SEGDES MELEME
      SEGDES MCHELM

      RETURN
      END