Télécharger ma2lir.eso

Retour à la liste

Numérotation des lignes :

  1. C MA2LIR SOURCE PV 16/11/17 22:00:38 9180
  2. SUBROUTINE MA2LIR(IMATB,IMATC,
  3. $ LNBMEB,LNBMEC,LELEMB,LELEMC,
  4. $ LMATRB,LMATRC,
  5. $ IMPR,IRET)
  6. IMPLICIT INTEGER(I-N)
  7. IMPLICIT REAL*8 (A-H,O-Z)
  8. C***********************************************************************
  9. C NOM : MA2LIR
  10. C DESCRIPTION : Extraction des éléments des matrices qui vont servir et
  11. C transformation en listes indexées plus faciles à
  12. C manipuler.
  13. C
  14. C
  15. C
  16. C LANGAGE : ESOPE
  17. C AUTEUR : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF)
  18. C mél : gounand@semt2.smts.cea.fr
  19. C***********************************************************************
  20. C APPELES : EXMALI
  21. C APPELE PAR : PROMAT
  22. C***********************************************************************
  23. C ENTREES : IMATB, IMATC, LNBMEB, LNBMEC, LELEMB, LELEMC
  24. C SORTIES : LMATRB, LMATRC
  25. C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  26. C***********************************************************************
  27. C VERSION : v1, 08/02/2000, version initiale
  28. C HISTORIQUE : v1, 08/02/2000, 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. -INC SMLENTI
  38. POINTEUR LNBMEB.MLENTI
  39. POINTEUR LNBMEC.MLENTI
  40. POINTEUR LELEMB.MLENTI
  41. POINTEUR LELEMC.MLENTI
  42. POINTEUR IMATB.IMATRI
  43. POINTEUR IMATC.IMATRI
  44. * Includes persos
  45. * Segment LSRIND (liste séquentielle indexée)
  46. SEGMENT LSRIND
  47. INTEGER IDXX(NBM+1)
  48. REAL*8 XVAL(NBTVAL)
  49. ENDSEGMENT
  50. SEGMENT LLI
  51. POINTEUR LISLI(NBME).LSRIND
  52. ENDSEGMENT
  53. POINTEUR LMATRB.LLI
  54. POINTEUR LMATRC.LLI
  55. *
  56. INTEGER IMPR,IRET
  57. *
  58. * Executable statements
  59. *
  60. IF (IMPR.GT.1) WRITE(IOIMP,*) 'Entrée dans ma2lir.eso'
  61. CALL EXMALI(IMATB,LNBMEB,LELEMB,
  62. $ LMATRB,
  63. $ IMPR,IRET)
  64. IF (IRET.NE.0) GOTO 9999
  65. CALL EXMALI(IMATC,LNBMEC,LELEMC,
  66. $ LMATRC,
  67. $ IMPR,IRET)
  68. IF (IRET.NE.0) GOTO 9999
  69. *
  70. * Normal termination
  71. *
  72. IRET=0
  73. RETURN
  74. *
  75. * Format handling
  76. *
  77. *
  78. * Error handling
  79. *
  80. 9999 CONTINUE
  81. IRET=1
  82. WRITE(IOIMP,*) 'An error was detected in subroutine ma2lir'
  83. RETURN
  84. *
  85. * End of subroutine MA2LIR
  86. *
  87. END
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  

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