Esope source files

   1 : C MA2LIR    SOURCE    MAGN      09/07/30    21:19:08     6458           
   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 : -INC SMMATRIK
  43 :       POINTEUR IMATB.IMATRI
  44 :       POINTEUR IMATC.IMATRI
  45 : * Includes persos
  46 : *     Segment LSRIND (liste séquentielle indexée)
  47 :       SEGMENT LSRIND
  48 :       INTEGER IDXX(NBM+1)
  49 :       REAL*8 XVAL(NBTVAL)
  50 :       ENDSEGMENT
  51 :       SEGMENT LLI
  52 :       POINTEUR LISLI(NBME).LSRIND
  53 :       ENDSEGMENT
  54 :       POINTEUR LMATRB.LLI
  55 :       POINTEUR LMATRC.LLI
  56 : *
  57 :       INTEGER IMPR,IRET
  58 : *     
  59 : * Executable statements
  60 : *
  61 :       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
  64 :       CALL EXMALI(IMATC,LNBMEC,LELEMC,
  65 :      $     LMATRC,
  66 :      $     IMPR,IRET)
  67 :       IF (IRET.NE.0) GOTO 9999
  68 : *
  69 : * Normal termination
  70 : *
  71 :       IRET=0
  72 :       RETURN
  73 : *
  74 : * Format handling
  75 : *
  76 : *
  77 : * Error handling
  78 : *
  79 :  9999 CONTINUE
  80 :       IRET=1
  81 :       WRITE(IOIMP,*) 'An error was detected in subroutine ma2lir'
  82 :       RETURN
  83 : *
  84 : * End of subroutine MA2LIR
  85 : *
  86 :       END
  87 : 
  88 :  
  89 :  
  90 :