C EXINCS SOURCE CHAT 05/01/12 23:50:48 5004 SUBROUTINE EXINCS(ICDUAB,ICPRIB,ICPRIC,ICDUAC, $ LNBMEB,LNBMEC, $ JCDUAB,JCPRIB,JCPRIC,JCDUAC, $ IMPR,IRET) IMPLICIT INTEGER(I-N) IMPLICIT REAL*8 (A-H,O-Z) C*********************************************************************** C NOM : EXINCS C DESCRIPTION : Extraction des inconnues qui vont servir C pour le produit matriciel. C C C LANGAGE : ESOPE C AUTEUR : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF) C mél : gounand@semt2.smts.cea.fr C*********************************************************************** C APPELES : EXENEN C APPELE PAR : PROMAT C*********************************************************************** C ENTREES : ICDUAB, ICPRIB, ICPRIC, ICDUAC, LNBMEB, LNBMEC C SORTIES : JCDUAB, JCPRIB, JCPRIC, JCDUAC C CODE RETOUR (IRET) : = 0 si tout s'est bien passé C*********************************************************************** C VERSION : v1, 08/02/2000, version initiale C HISTORIQUE : v1, 08/02/2000, création C HISTORIQUE : C HISTORIQUE : C*********************************************************************** C Prière de PRENDRE LE TEMPS de compléter les commentaires C en cas de modification de ce sous-programme afin de faciliter C la maintenance ! C*********************************************************************** -INC PPARAM -INC CCOPTIO -INC SMLENTI POINTEUR ICPRIB.MLENTI POINTEUR ICDUAB.MLENTI POINTEUR ICPRIC.MLENTI POINTEUR ICDUAC.MLENTI POINTEUR JCPRIB.MLENTI POINTEUR JCDUAB.MLENTI POINTEUR JCPRIC.MLENTI POINTEUR JCDUAC.MLENTI POINTEUR LNBMEB.MLENTI POINTEUR LNBMEC.MLENTI * INTEGER IMPR,IRET * * Executable statements * IF (IMPR.GT.1) WRITE(IOIMP,*) 'Entrée dans exincs.eso' CALL EXENEN(ICDUAB,LNBMEB, $ JCDUAB, $ IMPR,IRET) IF (IRET.NE.0) GOTO 9999 CALL EXENEN(ICPRIB,LNBMEB, $ JCPRIB, $ IMPR,IRET) IF (IRET.NE.0) GOTO 9999 CALL EXENEN(ICPRIC,LNBMEC, $ JCPRIC, $ IMPR,IRET) IF (IRET.NE.0) GOTO 9999 CALL EXENEN(ICDUAC,LNBMEC, $ JCDUAC, $ IMPR,IRET) IF (IRET.NE.0) GOTO 9999 * * Normal termination * IRET=0 RETURN * * Format handling * * * Error handling * 9999 CONTINUE IRET=1 WRITE(IOIMP,*) 'An error was detected in subroutine exincs' RETURN * * End of subroutine EXINCS * END