Télécharger relr21.eso

Retour à la liste

Numérotation des lignes :

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

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