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