C LIIELV SOURCE PV 18/06/18 21:15:17 9860 SUBROUTINE LIIELV(IORES,ITLACC,IMAX1,IRETOU,IFORM) IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) *--------------------------------------------------------------------* * * * LECTURE D'UN NOUVEAU CHAMELEM SUR LE FICHIER IORES. * * * * Param}tres: * * * * IORES NUM{RO DU FICHIER DE LECTURE * * ITLACC Pile contenant les nouveaux CHAMELEMs * * IMAX1 Nombre de CHAMELEMs dans la pile * * IFORM Si sauvegarde en format ou non * * * * APPEL{ PAR: LIPIL * * * * Auteur, date de cr{ation: * * * * Denis ROBERT-MOUGIN, le 29 juin 1989. * * * *--------------------------------------------------------------------* -INC SMCHAML -INC CCFXDR * SEGMENT,ITLACC INTEGER ITLAC(0) ENDSEGMENT * INTEGER IDAN(4) IRETOU=0 NM5=0 * * Boucle sur les MELVAL contenus dans la pile: * DO 10 IEL=1,IMAX1 * MELVAL = 0 * * CREATION ET REMPLISSAGE DU SEGMENT MCHELM * CALL LFCDIE(IORES,4,IDAN,IRETOU,IFORM) IF(IRETOU.NE.0) RETURN * N1PTEL = IDAN(1) N1EL = IDAN(2) N2PTEL = IDAN(3) N2EL = IDAN(4) if (n2ptel.ne.0.and.n2el.ne.0) call erreur(5) SEGINI MELVAL L1=N1PTEL*N1EL L2=N2PTEL*N2EL IF (L1 .GT. 0)CALL LFCDI2(IORES,L1,VELCHE(1,1),IRETOU,IFORM) IF (L2 .GT. 0)CALL LFCDIE(IORES,L2,IELCHE(1,1),IRETOU,IFORM) IF(IRETOU.NE.0) RETURN SEGDES MELVAL ITLAC(**)=MELVAL 10 CONTINUE * RETURN END