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

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