1 : C INSER3 SOURCE CHAT 05/01/13 00:38:50 5004 2 : SUBROUTINE INSER3 (MLMOTS,IEME,LEMOT) 3 : ************************************************************************ 4 : * 5 : * I N S E R 3 6 : * ----------- 7 : * 8 : * FONCTION: 9 : * --------- 10 : * 11 : * INSERER UN ELEMENT EN I-EME POSITION (ET NON PAS APRES LA I-EME 12 : * POSITION) DANS UN OBJET DE TYPE 'LISTMOTS'. 13 : * 14 : * MODE D'APPEL: 15 : * ------------- 16 : * 16 : * CALL INSER3 (IPOINT,IEME,LEMOT) 17 : * 18 : * PARAMETRES: (E)=ENTREE (S)=SORTIE 19 : * ----------- 20 : * 21 : * MLMOTS ENTIER (E) POINTEUR DE L'OBJET DE TYPE "LISTMOTS". 22 : * IEME ENTIER (E) POSITION D'INSERTION DE L'ELEMENT DANS 23 : * L'OBJET DE TYPE "LISTMOTS". 24 : * LEMOT ENTIER (E) ELEMENT INSERE (CHAINE DE 4 CARACTERES). 25 : * 26 : * SOUS-PROGRAMMES APPELES: 27 : * ------------------------ 28 : * 29 : * ERREUR 30 : * 31 : * AUTEUR, DATE DE CREATION: 32 : * ------------------------- 33 : * 34 : * PASCAL MANIGOT 6 DECEMBRE 1984 35 : * 36 : * LANGAGE: 37 : * -------- 38 : * 39 : * ESOPE + FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS 40 : * 41 : ************************************************************************ 42 : * 43 : IMPLICIT INTEGER(I-N) 44 : -INC CCOPTIO 45 : -INC SMLMOTS 46 : CHARACTER*(*) LEMOT 47 : * 48 : SEGACT,MLMOTS 49 : LDIM = MOTS(/2) 50 : LDIM1 = LDIM + 1 51 : JGM=LDIM1 52 : JGN=MOTS(/1) 53 : SEGADJ MLMOTS 54 : * 55 : * 56 : * 57 : IF (0 .LT. IEME .AND. IEME .LE. LDIM1) THEN 58 : IF ( IEME .LT .LDIM1) THEN 59 : DO 110 I= LDIM , IEME , -1 60 : MLMOTS.MOTS(I + 1 ) = MLMOTS.MOTS(I) 61 : 110 CONTINUE 62 : ENDIF 63 : MLMOTS.MOTS(IEME) = LEMOT 64 : ELSE 65 : * 66 : INTERR(1) = IEME 67 : NUMERR = 36 67 : CALL ERREUR (NUMERR) 68 : * 69 : END IF 70 : * 71 : SEGDES,MLMOTS 72 : * 73 : END 74 :
© Cast3M 2003 - All rights reserved.
Disclaimer