Télécharger la plaquette Cast3M


fr en

Télécharger crchpe.eso

Retour à la liste

Numérotation des lignes : 

crchpe

  1. C CRCHPE    SOURCE    PV090527  25/01/07    14:42:30     12115          
  2.  
  3.       SUBROUTINE CRCHPE(MELEME,NC,MCHELM)
  4.  
  5.       IMPLICIT INTEGER(I-N)
  6.       IMPLICIT REAL*8 (A-H,O-Z)
  7.  
  8. -INC PPARAM
  9. -INC CCOPTIO
  10. -INC SMCOORD
  11.  
  12. -INC SMCHAML
  13. -INC SMELEME
  14.  
  15.       SEGACT MELEME
  16.       NBSOU1=LISOUS(/1)
  17.       NBSOUS=MAX(1,NBSOU1)
  18.  
  19.       N1=NBSOUS
  20.       N3=6
  21.       L1=1
  22.  
  23.       N2=NC
  24.       N2PTEL=0
  25.       N2EL=0
  26.  
  27.       SEGINI,MCHELM
  28.       IFOCHE=IFOMOD
  29.       TITCHE(1:L1) = ' '
  30.  
  31.       IPT1=MELEME
  32.       DO 1 L = 1, NBSOUS
  33.         IF (NBSOU1.NE.0) THEN
  34.           IPT1=LISOUS(L)
  35.           SEGACT IPT1
  36.         ENDIF
  37.         N1EL   = IPT1.NUM(/2)
  38.         N1PTEL = IPT1.NUM(/1)
  39.         SEGINI MCHAML
  40.         IMACHE(L)=IPT1
  41.         ICHAML(L)=MCHAML
  42.         CONCHE(L) = '    '
  43.         INFCHE(L,6) = 1
  44.         DO 2 N=1,NC
  45.           SEGINI MELVAL
  46.           IELVAL(N)=MELVAL
  47.           NOMCHE(N)='SCAL    '
  48.           TYPCHE(N)='REAL*8  '
  49.           SEGDES MELVAL
  50.  2      CONTINUE
  51.         SEGDES MCHAML
  52.         IF (NBSOU1.NE.0) SEGDES IPT1
  53.  1    CONTINUE
  54.  
  55.       SEGDES MELEME
  56.       SEGDES MCHELM
  57.  
  58.       RETURN
  59.       END
  60.  
  61.  
  62.  
  63.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales