Télécharger ddl2pi.eso

Retour à la liste

Numérotation des lignes :

  1. C DDL2PI SOURCE PV 16/11/17 21:58:58 9180
  2. SUBROUTINE DDL2PI(IDDL,MYMINC,
  3. $ IPT,IBI,
  4. $ IMPR,IRET)
  5. IMPLICIT REAL*8 (A-H,O-Z)
  6. IMPLICIT INTEGER (I-N)
  7. C***********************************************************************
  8. C NOM : DDL2PI
  9. C DESCRIPTION : numéro de ddl ->
  10. C (numéro de point, numéro d'inconnue)
  11. C
  12. C
  13. C
  14. C LANGAGE : ESOPE
  15. C AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  16. C mél : gounand@semt2.smts.cea.fr
  17. C***********************************************************************
  18. C APPELES :
  19. C APPELES (E/S) :
  20. C APPELES (BLAS) :
  21. C APPELES (CALCUL) :
  22. C APPELE PAR :
  23. C***********************************************************************
  24. C SYNTAXE GIBIANE :
  25. C ENTREES :
  26. C ENTREES/SORTIES :
  27. C SORTIES :
  28. C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  29. C***********************************************************************
  30. C VERSION : v1, 24/05/2004, version initiale
  31. C HISTORIQUE : v1, 24/05/2004, création
  32. C HISTORIQUE :
  33. C HISTORIQUE :
  34. C***********************************************************************
  35. C Prière de PRENDRE LE TEMPS de compléter les commentaires
  36. C en cas de modification de ce sous-programme afin de faciliter
  37. C la maintenance !
  38. C***********************************************************************
  39. -INC CCOPTIO
  40. POINTEUR MYMINC.MINC
  41. *
  42. INTEGER IMPR,IRET
  43. *
  44. * Executable statements
  45. *
  46. IF (IMPR.GT.5) WRITE(IOIMP,*) 'Entrée dans ddl2pi.eso'
  47. SEGACT MYMINC
  48. NPT=MYMINC.MPOS(/1)
  49. NBI=MYMINC.MPOS(/2)-1
  50. * Find IPT
  51. DO IPT=2,NPT+1
  52. IF (MYMINC.NPOS(IPT).GT.IDDL) GOTO 2
  53. ENDDO
  54. WRITE(IOIMP,*) 'Erreur grave 1'
  55. 2 CONTINUE
  56. IPT=IPT-1
  57. * Find IBI
  58. DO IBI=1,NBI
  59. IINC=MYMINC.MPOS(IPT,IBI)
  60. IF (IINC.NE.0) THEN
  61. IDDL2=MYMINC.NPOS(IPT)+IINC-1
  62. IF (IDDL2.EQ.IDDL) GOTO 3
  63. ENDIF
  64. ENDDO
  65. WRITE(IOIMP,*) 'Erreur grave 2'
  66. 3 CONTINUE
  67. *
  68. * Normal termination
  69. *
  70. IRET=0
  71. RETURN
  72. *
  73. * Format handling
  74. *
  75. *
  76. * Error handling
  77. *
  78. 9999 CONTINUE
  79. IRET=1
  80. WRITE(IOIMP,*) 'An error was detected in subroutine ddl2pi'
  81. RETURN
  82. *
  83. * End of subroutine DDL2PI
  84. *
  85. END
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  

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