1 : C INSER7 SOURCE CHAT 05/01/13 00:39:00 5004 2 : SUBROUTINE INSER7 (MLMOTS,IEME,LEMOT,MLMOT1) 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 : * MLMOT1 ENTIER (E) POINTEUR DE L'OBJET DE TYPE "LISTMOTS". 26 : * 27 : * SOUS-PROGRAMMES APPELES: 28 : * ------------------------ 29 : * 30 : * ERREUR 31 : * 32 : * AUTEUR, DATE DE CREATION: 33 : * ------------------------- 34 : * 35 : * PASCAL MANIGOT 6 DECEMBRE 1984 36 : * 37 : * LANGAGE: 38 : * -------- 39 : * 40 : * ESOPE + FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS 41 : * 42 : ************************************************************************ 43 : * 44 : IMPLICIT INTEGER(I-N) 45 : -INC CCOPTIO 46 : -INC SMLMOTS 47 : CHARACTER*(*) LEMOT 48 : * 49 : SEGACT,MLMOTS 50 : LDIM = MOTS(/2) 51 : LDIM1 = LDIM + 1 52 : * 53 : * 54 : * 55 : IF (0 .LT. IEME .AND. IEME .LE. LDIM1) THEN 56 : JGM=LDIM1 57 : JGN=MOTS(/1) 58 : SEGINI MLMOT1 59 : MLMOT1.MOTS(IEME) = LEMOT 60 : IF ( IEME .GT . 1 ) THEN 61 : DO 100 I=1 ,(IEME-1) 62 : MLMOT1.MOTS(I) = MLMOTS.MOTS(I) 63 : 100 CONTINUE 64 : ENDIF 65 : IF ( IEME .LT .LDIM1) THEN 66 : DO 110 I= IEME , LDIM 67 : MLMOT1.MOTS(I + 1 ) = MLMOTS.MOTS(I) 68 : 110 CONTINUE 69 : ENDIF 70 : SEGDES,MLMOT1 71 : ELSE 72 : * 73 : INTERR(1) = IEME 74 : NUMERR = 36 74 : CALL ERREUR (NUMERR) 75 : * 76 : END IF 77 : * 78 : SEGDES,MLMOTS 79 : * 80 : END 81 :
© Cast3M 2003 - All rights reserved.
Disclaimer