Télécharger inirpm.eso

Retour à la liste

Numérotation des lignes :

  1. C INIRPM SOURCE PV 16/11/17 21:59:41 9180
  2. SUBROUTINE INIRPM(IMAT,
  3. $ RPMAT,
  4. $ IMPR,IRET)
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8 (A-H,O-Z)
  7. C***********************************************************************
  8. C NOM : INIRPM
  9. C DESCRIPTION : Ensemble de matrices élémentaires n-partitionné => liste
  10. C d'entiers de dim. n+1 permettant le repérage "global"
  11. C des matrices élémentaires.
  12. C
  13. C Renvoie une liste d'entiers qui permet le
  14. C repérage des matrices élémentaires dans IMAT.
  15. C nbsous=imat.lizafm(/1)
  16. C RPMAT a pour dimension : (nbsous +1)
  17. C RPMAT(i) numéro de la 1ere matrice élémentaire
  18. C de lizafm(i).
  19. C RPMAT(nbsous+1)=nombre de matrice élémentaires
  20. C de imat+1
  21. C LANGAGE : ESOPE
  22. C AUTEUR : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/TTMF)
  23. C mél : gounand@semt2.smts.cea.fr
  24. C***********************************************************************
  25. C APPELES (ESOPE) : OOOETA
  26. C APPELE PAR : ELELMA
  27. C***********************************************************************
  28. C ENTREES : IMAT
  29. C SORTIES : RPMAT
  30. C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  31. C***********************************************************************
  32. C VERSION : v1, 28/05/99, version initiale
  33. C HISTORIQUE : v1, 28/05/99, 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. POINTEUR IMAT.IMATRI
  43. POINTEUR SOUMAT.IZAFM
  44. -INC SMLENTI
  45. INTEGER JG
  46. POINTEUR RPMAT.MLENTI
  47. *
  48. INTEGER IMPR,IRET
  49. *
  50. INTEGER MAETA,SMETA
  51. INTEGER NELCOU,INBSOU
  52. INTEGER NBEL ,NBSOUS
  53. *
  54. * Executable statements
  55. *
  56. IF (IMPR.GT.1) THEN
  57. WRITE(IOIMP,*) 'Entrée dans inirpm.eso'
  58. ENDIF
  59. NELCOU=1
  60. CALL OOOETA(IMAT,MAETA)
  61. IF (MAETA.NE.1) SEGACT IMAT
  62. NBSOUS=IMAT.LIZAFM(/1)
  63. JG=NBSOUS+1
  64. SEGINI RPMAT
  65. DO 1 INBSOU=1,NBSOUS
  66. SOUMAT=IMAT.LIZAFM(INBSOU,1)
  67. CALL OOOETA(SOUMAT,SMETA)
  68. IF (SMETA.NE.1) SEGACT SOUMAT
  69. RPMAT.LECT(INBSOU)=NELCOU
  70. NBEL=SOUMAT.AM(/1)
  71. NELCOU=NELCOU+NBEL
  72. IF (SMETA.NE.1) SEGDES SOUMAT
  73. 1 CONTINUE
  74. RPMAT.LECT(NBSOUS+1)=NELCOU
  75. IF (MAETA.NE.1) SEGDES IMAT
  76. SEGDES RPMAT
  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 inirpm'
  91. RETURN
  92. *
  93. * End of subroutine INIRPM
  94. *
  95. END
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  

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