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    OF166741  24/10/03    21:15:08     12022          
  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.  
  11. -INC SMCHAML
  12. -INC SMELEME
  13.  
  14.       SEGACT MELEME
  15.       NBSOU1=LISOUS(/1)
  16.       NBSOUS=MAX(1,NBSOU1)
  17.  
  18.       N1=NBSOUS
  19.       N3=6
  20.       L1=1
  21.  
  22.       N2=NC
  23.       N2PTEL=0
  24.       N2EL=0
  25.  
  26.       SEGINI,MCHELM
  27.       IFOCHE=IFOMOD
  28.       TITCHE(1:L1) = ' '
  29.  
  30.       IPT1=MELEME
  31.       DO 1 L = 1, NBSOUS
  32.         IF (NBSOU1.NE.0) THEN
  33.           IPT1=LISOUS(L)
  34.           SEGACT IPT1
  35.         ENDIF
  36.         N1EL   = IPT1.NUM(/2)
  37.         N1PTEL = IPT1.NUM(/1)
  38.         SEGINI MCHAML
  39.         IMACHE(L)=IPT1
  40.         ICHAML(L)=MCHAML
  41.         CONCHE(L) = '    '
  42.         INFCHE(L,6) = 1
  43.         DO 2 N=1,NC
  44.           SEGINI MELVAL
  45.           IELVAL(N)=MELVAL
  46.           NOMCHE(N)='SCAL    '
  47.           TYPCHE(N)='REAL*8  '
  48.           SEGDES MELVAL
  49.  2      CONTINUE
  50.         SEGDES MCHAML
  51.         IF (NBSOU1.NE.0) SEGDES IPT1
  52.  1    CONTINUE
  53.  
  54.       SEGDES MELEME
  55.       SEGDES MCHELM
  56.  
  57.       RETURN
  58.       END
  59.  
  60.  
  61.  

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