Esope source files

   1 : C EXINCS    SOURCE    CHAT      05/01/12    23:50:48     5004           
   2 :       SUBROUTINE EXINCS(ICDUAB,ICPRIB,ICPRIC,ICDUAC,
   3 :      $     LNBMEB,LNBMEC,
   4 :      $     JCDUAB,JCPRIB,JCPRIC,JCDUAC,
   5 :      $     IMPR,IRET)
   6 :       IMPLICIT INTEGER(I-N)
   7 :       IMPLICIT REAL*8 (A-H,O-Z)
   8 : C***********************************************************************
   9 : C NOM         : EXINCS
  10 : C DESCRIPTION : Extraction des inconnues qui vont servir
  11 : C               pour le produit matriciel.
  12 : C
  13 : C
  14 : C LANGAGE     : ESOPE
  15 : C AUTEUR      : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF)
  16 : C               mél : gounand@semt2.smts.cea.fr
  17 : C***********************************************************************
  18 : C APPELES          : EXENEN
  19 : C APPELE PAR       : PROMAT
  20 : C***********************************************************************
  21 : C ENTREES            : ICDUAB, ICPRIB, ICPRIC, ICDUAC, LNBMEB, LNBMEC
  22 : C SORTIES            : JCDUAB, JCPRIB, JCPRIC, JCDUAC
  23 : C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  24 : C***********************************************************************
  25 : C VERSION    : v1, 08/02/2000, version initiale
  26 : C HISTORIQUE : v1, 08/02/2000, création
  27 : C HISTORIQUE :
  28 : C HISTORIQUE :
  29 : C***********************************************************************
  30 : C Prière de PRENDRE LE TEMPS de compléter les commentaires
  31 : C en cas de modification de ce sous-programme afin de faciliter
  32 : C la maintenance !
  33 : C***********************************************************************
  34 : -INC CCOPTIO
  35 : -INC SMLENTI
  36 :       POINTEUR ICPRIB.MLENTI
  37 :       POINTEUR ICDUAB.MLENTI
  38 :       POINTEUR ICPRIC.MLENTI
  39 :       POINTEUR ICDUAC.MLENTI
  40 :       POINTEUR JCPRIB.MLENTI
  41 :       POINTEUR JCDUAB.MLENTI
  42 :       POINTEUR JCPRIC.MLENTI
  43 :       POINTEUR JCDUAC.MLENTI
  44 :       POINTEUR LNBMEB.MLENTI
  45 :       POINTEUR LNBMEC.MLENTI
  46 : *
  47 :       INTEGER IMPR,IRET
  48 : *     
  49 : * Executable statements
  50 : *
  51 :       IF (IMPR.GT.1) WRITE(IOIMP,*) 'Entrée dans exincs.eso' 
  51 :       CALL EXENEN(ICDUAB,LNBMEB,
  52 :      $     JCDUAB,
  53 :      $     IMPR,IRET)
  54 :       IF (IRET.NE.0) GOTO 9999
  54 :       CALL EXENEN(ICPRIB,LNBMEB,
  55 :      $     JCPRIB,
  56 :      $     IMPR,IRET)
  57 :       IF (IRET.NE.0) GOTO 9999
  57 :       CALL EXENEN(ICPRIC,LNBMEC,
  58 :      $     JCPRIC,
  59 :      $     IMPR,IRET)
  60 :       IF (IRET.NE.0) GOTO 9999
  60 :       CALL EXENEN(ICDUAC,LNBMEC,
  61 :      $     JCDUAC,
  62 :      $     IMPR,IRET)
  63 :       IF (IRET.NE.0) GOTO 9999
  64 : *
  65 : * Normal termination
  66 : *
  67 :       IRET=0
  68 :       RETURN
  69 : *
  70 : * Format handling
  71 : *
  72 : *
  73 : * Error handling
  74 : *
  75 :  9999 CONTINUE
  76 :       IRET=1
  77 :       WRITE(IOIMP,*) 'An error was detected in subroutine exincs'
  78 :       RETURN
  79 : *
  80 : * End of subroutine EXINCS
  81 : *
  82 :       END
  83 : 
  84 :  
  85 :