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