Télécharger inipg.eso

Retour à la liste

Numérotation des lignes :

  1. C INIPG SOURCE GOUNAND 05/12/21 21:33:05 5281
  2. SUBROUTINE INIPG(CNOM,CTYP,CFOR,
  3. $ NORD,NPG,NDL,
  4. $ PG,
  5. $ IMPR,IRET)
  6. IMPLICIT REAL*8 (A-H,O-Z)
  7. IMPLICIT INTEGER (I-N)
  8. C***********************************************************************
  9. C NOM : INIPG
  10. C PROJET : Noyau linéaire NLIN
  11. C DESCRIPTION : Initialise un segment décrivant une méthode
  12. C d'intégration numérique.
  13. C
  14. C LANGAGE : ESOPE
  15. C AUTEUR : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF)
  16. C mél : gounand@semt2.smts.cea.fr
  17. C***********************************************************************
  18. C APPELES : -
  19. C APPELE PAR : INGASE, INGJ10, INGJ20, INGATR, INGAQU, INGATE,
  20. C INGAPR, INGACU
  21. C***********************************************************************
  22. C ENTREES : CNOM, CTYP, CFOR, NORD, NPG, NDL
  23. C ENTREES/SORTIES : -
  24. C SORTIES : PG
  25. C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  26. C***********************************************************************
  27. C VERSION : v1, 21/07/99, version initiale
  28. C HISTORIQUE : v1, 21/07/99, création
  29. C HISTORIQUE :
  30. C HISTORIQUE :
  31. C***********************************************************************
  32. C Prière de PRENDRE LE TEMPS de compléter les commentaires
  33. C en cas de modification de ce sous-programme afin de faciliter
  34. C la maintenance !
  35. C***********************************************************************
  36. -INC CCOPTIO
  37. CBEGININCLUDE SPOGAU
  38. SEGMENT POGAU
  39. CHARACTER*(LNNPG) NOMPG
  40. CHARACTER*(LNTPG) TYPMPG
  41. CHARACTER*(LNFPG) FORLPG
  42. INTEGER NORDPG
  43. REAL*8 XCOPG(NDLPG,NBPG)
  44. REAL*8 XPOPG(NBPG)
  45. ENDSEGMENT
  46. SEGMENT POGAUS
  47. POINTEUR LISPG(0).POGAU
  48. ENDSEGMENT
  49. CENDINCLUDE SPOGAU
  50. INTEGER LNNPG,LNTPG,LNFPG
  51. INTEGER NDLPG,NBPG
  52. POINTEUR PG.POGAU
  53. *
  54. CHARACTER*(*) CNOM,CTYP,CFOR
  55. INTEGER NORD,NDL,NPG
  56. *
  57. INTEGER IMPR,IRET
  58. *
  59. * Executable statements
  60. *
  61. IF (IMPR.GT.6) WRITE(IOIMP,*) 'Entrée dans inipg'
  62. LNNPG=LEN(CNOM)
  63. LNTPG=LEN(CTYP)
  64. LNFPG=LEN(CFOR)
  65. NDLPG=NDL
  66. NBPG=NPG
  67. SEGINI PG
  68. PG.NOMPG =CNOM
  69. PG.TYPMPG=CTYP
  70. PG.FORLPG=CFOR
  71. PG.NORDPG=NORD
  72. *
  73. * Normal termination
  74. *
  75. IRET=0
  76. RETURN
  77. *
  78. * Format handling
  79. *
  80. *
  81. * Error handling
  82. *
  83. 9999 CONTINUE
  84. IRET=1
  85. WRITE(IOIMP,*) 'An error was detected in subroutine inipg'
  86. RETURN
  87. *
  88. * End of subroutine inipg
  89. *
  90. END
  91.  
  92.  
  93.  
  94.  

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