1 : C INDETA SOURCE KICH 11/12/16 21:15:42 7217 2 : SUBROUTINE INDETA 3 : *--------------------------------------------------------------------- 4 : * FABRIQUE L'INDEX D'UNE TABLE - LE RESULTAT EST UNE TABLE | 5 : *--------------------------------------------------------------------- 6 : IMPLICIT INTEGER(I-N) 7 : -INC SMTABLE 8 : -INC CCOPTIO 9 : C 10 : LOGICAL LOGI 11 : REAL*8 XVA 12 : CHARACTER*(1) CHARI 12 : CALL LIROBJ('TABLE ',ITAB,1,IRETOU) 13 : IF(IERR.NE.0) RETURN 14 : C 15 : MTABLE=ITAB 16 : SEGACT MTABLE 17 : NB=MLOTAB 18 : IF(NB.EQ.0) GO TO 99 19 : M=NB 20 : SEGINI MTAB1 21 : MTAB1.MLOTAB=M 22 : DO 10 IJ=1,NB 22 : CALL QUERAN(IRET,'ENTIER ',IJ,XVA,CHARI,LOGI,IOB) 23 : MTAB1.MTABTI(IJ)='ENTIER ' 24 : MTAB1.MTABII(IJ)=IRET 25 : MTAB1.MTABTV(IJ)=MTABTI(IJ) 26 : IF (MTABTI(IJ).EQ.'FLOTTANT') THEN 27 : MTAB1.RMTABV(IJ)=RMTABI(IJ) 28 : ELSE 29 : MTAB1.MTABIV(IJ)=MTABII(IJ) 30 : ENDIF 31 : 10 CONTINUE 32 : SEGDES MTAB1,MTABLE 32 : CALL ECROBJ('TABLE ',MTAB1) 33 : RETURN 34 : 99 CONTINUE 34 : call crtabl(ita1) 34 : CALL ECROBJ('TABLE ',ita1) 35 : RETURN 36 : END 37 : 38 :
© Cast3M 2003 - All rights reserved.
Disclaimer