1 : C ENLEV2 SOURCE CHAT 05/01/12 23:39:44 5004 2 : SUBROUTINE ENLEV2 (IPOINT,IEME,IPOIN3) 3 : ************************************************************************ 4 : * 5 : * E N L E V 2 6 : * ----------- 7 : * 8 : * FONCTION: 9 : * --------- 10 : * 11 : * ENLEVER LE I-EME ELEMENT D'UN OBJET DE TYPE "LISTENTI". 12 : * 13 : * MODE D'APPEL: 14 : * ------------- 15 : * 15 : * CALL ENLEV2 (IPOINT,IEME,IPOIN3) 16 : * 17 : * PARAMETRES: (E)=ENTREE (S)=SORTIE 18 : * ----------- 19 : * 20 : * IEME ENTIER (E) NUMERO D'ORDRE DE L'ELEMENT A ENLEVER DANS 21 : * L'OBJET DE TYPE "LISTENTI". 22 : * IPOINT ENTIER (E) POINTEUR DE L'OBJET DE TYPE "LISTENTI". 23 : * IPOIN3 ENTIER (S) POINTEUR DU 'LISTENTI' CREE. 24 : * 25 : * SOUS-PROGRAMMES APPELES: 26 : * ------------------------ 27 : * 28 : * ERREUR 29 : * 30 : * AUTEUR, DATE DE CREATION: 31 : * ------------------------- 32 : * 33 : * PASCAL MANIGOT 6 DECEMBRE 1984 34 : * 35 : * LANGAGE: 36 : * -------- 37 : * 38 : * ESOPE + FORTRAN77 39 : * 40 : ************************************************************************ 41 : * 42 : IMPLICIT INTEGER(I-N) 43 : -INC CCOPTIO 44 : -INC SMLENTI 45 : * 46 : MLENTI = IPOINT 47 : SEGACT,MLENTI 48 : LDIM = LECT(/1) 49 : LDIM1 = LDIM - 1 50 : JG=LDIM1 51 : * 52 : IF (0 .LT. IEME .AND. IEME .LE. LDIM) THEN 53 : * 54 : SEGINI,MLENT1 55 : IPOIN3 = MLENT1 56 : * 57 : DO 200 I=1,(IEME-1) 58 : MLENT1.LECT(I) = MLENTI.LECT(I) 59 : 200 CONTINUE 60 : * END DO 61 : DO 210 I=IEME,LDIM1 62 : MLENT1.LECT(I) = MLENTI.LECT(I+1) 63 : 210 CONTINUE 64 : * END DO 65 : * 66 : SEGDES,MLENT1 67 : * 68 : ELSE 69 : * 70 : INTERR(1) = IEME 71 : NUMERR = 36 71 : CALL ERREUR (NUMERR) 72 : * 73 : END IF 74 : * 75 : SEGDES,MLENTI 76 : * 77 : END 78 :
© Cast3M 2003 - All rights reserved.
Disclaimer