1 : C LIJONC SOURCE CHAT 05/01/13 01:18:04 5004 2 : SUBROUTINE LIJONC(IORES,ITLACC,IMAX1,IRET,IFORM) 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8(A-H,O-Z) 5 : C======================================================================= 6 : C BUT : LECTURE DU MJONC 7 : C APPELE PAR : LIPIL 8 : C APPELLE : LFCDIM LFCDIE LFCDI2 9 : C ECRIT PAR FARVACQUE -REPRIS PAR LENA 10 : C 11 : C======================================================================= 12 : -INC SMATTAC 13 : SEGMENT /ITLACC/ (ITLAC(0)) 14 : C======================================================================= 15 : C 16 : DIMENSION ILENA(10),ILECBI(1) 17 : IRET=0 18 : IRETOU=0 19 : C ***************************** MJONCT ***************************** 20 : 6014 CONTINUE 21 : DO 140 IEL=1,IMAX1 22 : ITOTO=2 22 : CALL LFCDIE ( IORES,ITOTO,ILENA,IRETOU,IFORM) 23 : IF (IRETOU.NE.0) GO TO 1000 24 : N=ILENA(1) 25 : SEGINI MJONCT 26 : ITLAC(**)=MJONCT 27 : MJOPOI=ILENA(2) 27 : CALL LFCDIM ( IORES,1 ,ILECBI,IRETOU,IFORM) 28 : WRITE(MJODDL,FMT='(A4)')ILECBI(1) 29 : IF (IRETOU.NE.0) GO TO 1000 29 : CALL LFCDIM ( IORES,1 ,ILECBI,IRETOU,IFORM) 30 : WRITE(MJOTYP,FMT='(A4)')ILECBI(1) 31 : IF (IRETOU.NE.0) GO TO 1000 31 : CALL LFCDIE ( IORES,N ,ISTRJO,IRETOU,IFORM) 32 : IF (IRETOU.NE.0) GO TO 1000 32 : CALL LFCDIE ( IORES,N ,IPCHJO,IRETOU,IFORM) 33 : IF (IRETOU.NE.0) GO TO 1000 33 : CALL LFCDIE ( IORES,N ,IPOSJO,IRETOU,IFORM) 34 : IF (IRETOU.NE.0) GO TO 1000 35 : SEGDES MJONCT 36 : 140 CONTINUE 37 : GO TO 1098 38 : 1000 CONTINUE 39 : 1098 CONTINUE 40 : IRET=IRETOU 41 : RETURN 42 : C ------------------------------------------------------- 43 : END 44 :
© Cast3M 2003 - All rights reserved.
Disclaimer