1 : C INSER8 SOURCE CHAT 05/01/13 00:39:03 5004 2 : SUBROUTINE INSER8 (MLCHPO,IEME,IPCHPO,MLCHP1) 3 : ************************************************************************ 4 : * 5 : * I N S E R 4 6 : * ----------- 7 : * 8 : * FONCTION: 9 : * --------- 10 : * 11 : * INSERER UN 'CHPOINT' EN I-EME POSITION (ET NON PAS APRES LA I-EME 12 : * POSITION) DANS LA SUITE DE TYPE 'LISTCHPO'. 13 : * 14 : * PARAMETRES: (E)=ENTREE (S)=SORTIE 15 : * ----------- 16 : * 17 : * IPOINT ENTIER (E) POINTEUR DE LA SUITE DE TYPE "LISTCHPO". 18 : * IEME ENTIER (E) POSITION D'INSERTION DU "CHPOINT" DANS 19 : * LA SUITE DE TYPE "LISTCHPO". 20 : * IPCHPO ENTIER (E) POINTEUR DU "CHPOINT" A INSERER. 21 : * MLCHP1 ENTIER (E) POINTEUR DE LA SUITE DE TYPE "LISTCHPO". 22 : * 23 : * SOUS-PROGRAMMES APPELES: 24 : * ------------------------ 25 : * 26 : * ERREUR 27 : * 28 : * AUTEUR, DATE DE CREATION: 29 : * ------------------------- 30 : * 31 : * PASCAL MANIGOT 22 FEVRIER 1985 32 : * 33 : * LANGAGE: 34 : * -------- 35 : * 36 : * ESOPE + FORTRAN77 37 : * 38 : ************************************************************************ 39 : * 40 : IMPLICIT INTEGER(I-N) 41 : -INC CCOPTIO 42 : -INC SMLCHPO 43 : * 44 : SEGACT,MLCHPO 45 : LDIM = ICHPOI(/1) 46 : LDIM1 = LDIM + 1 47 : * 48 : * 49 : IF (0 .LT. IEME .AND. IEME .LE. LDIM1) THEN 50 : N1 = LDIM1 51 : SEGINI MLCHP1 52 : MLCHP1.ICHPOI(IEME) = IPCHPO 53 : IF ( IEME .GT . 1 ) THEN 54 : DO 100 I=1 ,(IEME-1) 55 : MLCHP1.ICHPOI(I) = MLCHPO.ICHPOI(I) 56 : 100 CONTINUE 57 : ENDIF 58 : IF ( IEME .LT .LDIM1) THEN 59 : DO 110 I= IEME , LDIM 60 : MLCHP1.ICHPOI(I + 1 ) = MLCHPO.ICHPOI(I) 61 : 110 CONTINUE 62 : ENDIF 63 : SEGDES,MLCHP1 64 : ELSE 65 : INTERR(1) = IEME 66 : NUMERR = 36 66 : CALL ERREUR (NUMERR) 67 : * 68 : END IF 69 : * 70 : SEGDES,MLCHPO 71 : * 72 : END 73 :
© Cast3M 2003 - All rights reserved.
Disclaimer