Télécharger la plaquette Cast3M


fr en

Télécharger ma2lir.eso

Retour à la liste

Numérotation des lignes : 

ma2lir

  1. C MA2LIR    SOURCE    PV        20/09/26    21:18:40     10724          
  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.  
  37. -INC PPARAM
  38. -INC CCOPTIO
  39. -INC SMLENTI
  40.       POINTEUR LNBMEB.MLENTI
  41.       POINTEUR LNBMEC.MLENTI
  42.       POINTEUR LELEMB.MLENTI
  43.       POINTEUR LELEMC.MLENTI
  45.       POINTEUR IMATB.IMATRI
  46.       POINTEUR IMATC.IMATRI
  47. * Includes persos
  48. *     Segment LSRIND (liste séquentielle indexée)
  49.       SEGMENT LSRIND
  50.       INTEGER IDXX(NBM+1)
  51.       REAL*8 XVAL(NBTVAL)
  52.       ENDSEGMENT
  53.       SEGMENT LLI
  54.       POINTEUR LISLI(NBME).LSRIND
  55.       ENDSEGMENT
  56.       POINTEUR LMATRB.LLI
  57.       POINTEUR LMATRC.LLI
  58. *
  59.       INTEGER IMPR,IRET
  60. *
  61. * Executable statements
  62. *
  63.       IF (IMPR.GT.1) WRITE(IOIMP,*) 'Entrée dans ma2lir.eso'
  64.       CALL EXMALI(IMATB,LNBMEB,LELEMB,
  65.      $     LMATRB,
  66.      $     IMPR,IRET)
  67.       IF (IRET.NE.0) GOTO 9999
  68.       CALL EXMALI(IMATC,LNBMEC,LELEMC,
  69.      $     LMATRC,
  70.      $     IMPR,IRET)
  71.       IF (IRET.NE.0) GOTO 9999
  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 ma2lir'
  86.       RETURN
  87. *
  88. * End of subroutine MA2LIR
  89. *
  90.       END
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  

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