Télécharger crchpe.eso

Retour à la liste

Numérotation des lignes :

  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.  
  48.  

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