lijonc
C LIJONC SOURCE CHAT 05/01/13 01:18:04 5004 IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) C======================================================================= C BUT : LECTURE DU MJONC C APPELE PAR : LIPIL C APPELLE : LFCDIM LFCDIE LFCDI2 C ECRIT PAR FARVACQUE -REPRIS PAR LENA C C======================================================================= -INC SMATTAC SEGMENT /ITLACC/ (ITLAC(0)) C======================================================================= C DIMENSION ILENA(10),ILECBI(1) IRET=0 IRETOU=0 C ***************************** MJONCT ***************************** 6014 CONTINUE DO 140 IEL=1,IMAX1 ITOTO=2 IF (IRETOU.NE.0) GO TO 1000 N=ILENA(1) SEGINI MJONCT ITLAC(**)=MJONCT MJOPOI=ILENA(2) WRITE(MJODDL,FMT='(A4)')ILECBI(1) IF (IRETOU.NE.0) GO TO 1000 WRITE(MJOTYP,FMT='(A4)')ILECBI(1) IF (IRETOU.NE.0) GO TO 1000 IF (IRETOU.NE.0) GO TO 1000 IF (IRETOU.NE.0) GO TO 1000 IF (IRETOU.NE.0) GO TO 1000 SEGDES MJONCT 140 CONTINUE GO TO 1098 1000 CONTINUE 1098 CONTINUE IRET=IRETOU RETURN C ------------------------------------------------------- END
© Cast3M 2003 - Tous droits réservés.
Mentions légales