1 : C ENLEV1 SOURCE CHAT 05/01/12 23:39:41 5004 2 : SUBROUTINE ENLEV1 (IPOINT,IEME,IPOIN3) 3 : ************************************************************************ 4 : * 5 : * E N L E V 1 6 : * ----------- 7 : * 8 : * FONCTION: 9 : * --------- 10 : * 11 : * ENLEVER LE I-EME ELEMENT D'UN OBJET DE TYPE "LISTREEL". 12 : * 13 : * MODE D'APPEL: 14 : * ------------- 15 : * 15 : * CALL ENLEV1 (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 "LISTREEL". 22 : * IPOINT ENTIER (E) POINTEUR DE L'OBJET DE TYPE "LISTREEL". 23 : * IPOIN3 ENTIER (S) POINTEUR DU 'LISTREEL' 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 SMLREEL 45 : * 46 : MLREEL = IPOINT 47 : SEGACT,MLREEL 48 : LDIM = PROG(/1) 49 : LDIM1 = LDIM - 1 50 : * 51 : IF (0 .LT. IEME .AND. IEME .LE. LDIM) THEN 52 : * 53 : JG=LDIM1 54 : SEGINI,MLREE1 55 : IPOIN3 = MLREE1 56 : DO 200 I=1,(IEME-1) 57 : MLREE1.PROG(I) = MLREEL.PROG(I) 58 : 200 CONTINUE 59 : * END DO 60 : DO 210 I=IEME,LDIM1 61 : MLREE1.PROG(I) = MLREEL.PROG(I+1) 62 : 210 CONTINUE 63 : * END DO 64 : * 65 : SEGDES,MLREE1 66 : * 67 : ELSE 68 : * 69 : INTERR(1) = IEME 70 : NUMERR = 36 70 : CALL ERREUR (NUMERR) 71 : * 72 : END IF 73 : * 74 : SEGDES,MLREEL 75 : * 76 : END 77 :
© Cast3M 2003 - All rights reserved.
Disclaimer