1 : C LIVECT SOURCE CHAT 05/01/13 01:24:28 5004 2 : SUBROUTINE LIVECT (MVECTE,IORES,IRETOU,IFORM) 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8(A-H,O-Z) 5 : C======================================================================= 6 : C 7 : C LECTUREE DE 1 VECTEUR SUR LA BANDE IORES 8 : C 9 : C ECRIT PAR LENA 10 : C APPELE PAR WRPIL 11 : C APPELLE : ECDIF2 ECDIFE ECDIFMP 12 : C======================================================================= 13 : -INC SMVECTE 14 : C======================================================================= 15 : C 16 : SEGMENT/ILECB1/(ILECB2(L)) 17 : DIMENSION ILENA(10) 18 : C 19 : 20 : IRETOU=0 21 : ITOTO=2 21 : CALL LFCDIE (IORES,ITOTO,ILENA,IRET,IFORM) 22 : IF (IRET.NE.0) GO TO 1001 23 : NVEC = ILENA(1) 24 : ID = ILENA(2) 25 : SEGINI MVECTE 25 : CALL LFCDIE (IORES,NVEC,IGEOV,IRET,IFORM) 26 : IF (IRET.NE.0) GO TO 1000 26 : CALL LFCDI2 (IORES,NVEC,AMPF ,IRET,IFORM) 27 : IF (IRET.NE.0) GO TO 1000 27 : CALL LFCDIE (IORES,NVEC,NOCOUL,IRET,IFORM) 28 : IF (IRET.NE.0) GO TO 1000 28 : CALL LFCDIE (IORES,NVEC,ICHPO,IRET,IFORM) 29 : IF (IRET.NE.0) GO TO 1000 30 : L=NVEC*ID 31 : SEGINI ILECB1 31 : CALL LFCDIM (IORES,L,ILECB2,IRET,IFORM) 32 : IF (IRET.NE.0) GO TO 1000 33 : L=0 34 : DO 32 IU=1,ID 35 : DO 32 IY=1,NVEC 36 : L=L+1 37 : WRITE(NOCOVE(IY,IU),FMT='(A4)') ILECB2(L) 38 : 32 CONTINUE 39 : SEGSUP ILECB1 40 : 1000 SEGDES MVECTE 41 : 1001 IRETOU=IRET 42 : RETURN 43 : END 44 : 45 :
© Cast3M 2003 - All rights reserved.
Disclaimer