1 : C LIRPRO SOURCE CHAT 05/01/13 01:22:01 5004 2 : SUBROUTINE LIRPRO(NBVAL,IPROG) 3 : C 4 : C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 5 : C C LECTURE D'UN REEL OU D'UNE LISTE DE REEL C 6 : C C CREATION D'UN MLREEL C 7 : C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 8 : C 9 : IMPLICIT INTEGER(I-N) 10 : -INC CCOPTIO 11 : -INC SMLREEL 12 : REAL*8 RRET 13 : IPROG=0 13 : CALL LIROBJ('LISTREEL',IRET,0,IRETOU) 14 : IF(IRETOU.EQ.0) GOTO 10 15 : MLREEL=IRET 16 : SEGACT MLREEL 17 : GOTO 30 18 : 10 CONTINUE 18 : CALL LIRREE(RRET,1,IRETOU) 19 : IF(IERR.EQ.0) GOTO 20 20 : C *** OUBLI DU OU DES COEFFICIENTS 20 : CALL ERREUR(119) 21 : RETURN 22 : 20 CONTINUE 23 : JG=1 24 : SEGINI MLREEL 25 : PROG(1)=RRET 26 : 30 NBVAL=PROG(/1) 27 : IPROG=MLREEL 28 : SEGDES MLREEL 29 : RETURN 30 : END 31 :
© Cast3M 2003 - All rights reserved.
Disclaimer