1 : C INSER6 SOURCE CHAT 05/01/13 00:38:58 5004 2 : SUBROUTINE INSER6 (MLENTI,IEME,INTEGR,MLENT1) 3 : ************************************************************************ 4 : * 5 : * I N S E R 2 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 'LISTENTI'. 13 : * 14 : * PARAMETRES: (E)=ENTREE (S)=SORTIE 15 : * ----------- 16 : * 17 : * IPOINT ENTIER (E) POINTEUR DE L'OBJET DE TYPE "LISTENTI". 18 : * IEME ENTIER (E) POSITION D'INSERTION DE L'ELEMENT DANS 19 : * L'OBJET DE TYPE "LISTENTI". 20 : * INTEGR ENTIER (E) ELEMENT INSERE. 21 : * 22 : * SOUS-PROGRAMMES APPELES: 23 : * ------------------------ 24 : * 25 : * ERREUR 26 : * 27 : * AUTEUR, DATE DE CREATION: 28 : * ------------------------- 29 : * 30 : * PASCAL MANIGOT 6 DECEMBRE 1984 31 : * 32 : * LANGAGE: 33 : * -------- 34 : * 35 : * ESOPE + FORTRAN77 36 : * 37 : ************************************************************************ 38 : * 39 : IMPLICIT INTEGER(I-N) 40 : -INC CCOPTIO 41 : -INC SMLENTI 42 : * 43 : SEGACT,MLENTI 44 : LDIM = LECT(/1) 45 : LDIM1 = LDIM + 1 46 : * 47 : IF (0 .LT. IEME .AND. IEME .LE. LDIM1) THEN 48 : JG=LDIM1 49 : SEGINI MLENT1 50 : MLENT1.LECT(IEME) = INTEGR 51 : IF ( IEME .GT . 1 ) THEN 52 : DO 100 I=1 ,(IEME-1) 53 : MLENT1.LECT(I) = MLENTI.LECT(I) 54 : 100 CONTINUE 55 : ENDIF 56 : IF ( IEME .LT .LDIM1) THEN 57 : DO 110 I= IEME , LDIM 58 : MLENT1.LECT(I + 1 ) = MLENTI.LECT(I) 59 : 110 CONTINUE 60 : ENDIF 61 : SEGDES,MLENT1 62 : ELSE 63 : INTERR(1) = IEME 64 : NUMERR = 36 64 : CALL ERREUR (NUMERR) 65 : * 66 : END IF 67 : * 68 : SEGDES,MLENTI 69 : * 70 : END 71 :
© Cast3M 2003 - All rights reserved.
Disclaimer