1 : C RESPRO SOURCE PV 06/04/20 21:16:14 5410 2 : SUBROUTINE RESPRO 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8 (A-H,O-Z) 5 : -INC CCOPTIO 6 : -INC SMBLOC 7 : -INC CCNOYAU 8 : -INC CCASSIS 9 : CHARACTER*(8) MMM 10 : IARGUM=MARGUM 11 : IF(IARGUM.EQ.0) THEN 11 : CALL ERREUR (154) 12 : RETURN 13 : ENDIF 14 : SEGACT IARGUM*MOD 15 : C 16 : C SAUVETAGE DES POINTEURS ET DES TYPES DES RESULTATS 17 : C 18 : MTRESU=ITRESU 19 : MVRESU=IVRESU 20 : MFRESU=IFRESU 21 : IF(MTRESU.EQ.0) THEN 22 : NRES=0 23 : SEGINI MTRESU,MVRESU,MFRESU 24 : IF(IIMPI.EQ.1754) WRITE(6,*) ' DANS RESPRO MTRESU ..',MTRESU, 25 : $ MVRESU,MFRESU 26 : IVRESU=MVRESU 27 : ITRESU=MTRESU 28 : IFRESU=MFRESU 29 : ELSE 30 : IF(IIMPI.EQ.1754) WRITE(6,*) ' DANS RESPRO MTRESU ..',MTRESU, 31 : $ MVRESU,MFRESU 32 : SEGACT MTRESU,MVRESU,MFRESU 33 : NRES=IVARES(/1) 34 : ENDIF 35 : 432 CONTINUE 36 : MMM= ' ' 37 : LECTAB=1 38 : INTEXT=1 39 : * LODESL = .TRUE. 39 : call setass(1) 39 : CALL LIRABJ(MMM,IRET,0,IRETOU) 40 : * LODESL = .FALSE. 40 : call setass(0) 41 : * write(6,*) ' respro mmmiret ', mmm ,iret 42 : IF ( IRETOU . NE . 0) THEN 43 : NRES = NRES + 1 44 : SEGADJ MVRESU,MTRESU,MFRESU 45 : MTYRES(NRES) = MMM 46 : IVARES(NRES)=IRET 47 : IF(MMM.EQ.'FLOTTANT') THEN 48 : if(nbesc.ne.0) segact ipiloc 49 : XFLRES(NRES)=XIFLOT(IRET) 50 : if(nbesc.ne.0) segdes ipiloc 51 : ENDIF 52 : GO TO 432 53 : ENDIF 54 : SEGDES MVRESU,MTRESU,MFRESU 55 : SEGDES IARGUM 56 : LECTAB=0 57 : INTEXT = 0 58 : RETURN 59 : END 60 : 61 :
© Cast3M 2003 - All rights reserved.
Disclaimer