C EXTRA4 SOURCE CHAT 05/01/12 23:53:08 5004 * EXTRAIRE LE I-EME "CHPOINT" D'UNE SUITE DE TYPE "LISTCHPO". SUBROUTINE EXTRA4 (IPOINT,IEME,IPCHPO) ************************************************************************ * * E X T R A 4 * ----------- * * FONCTION: * --------- * * EXTRAIRE LE I-EME "CHPOINT" D'UNE SUITE DE TYPE "LISTCHPO". * * MODE D'APPEL: * ------------- * * CALL EXTRA4 (IPOINT,IEME,IPCHPO) * * PARAMETRES: (E)=ENTREE (S)=SORTIE * ----------- * * IPOINT ENTIER (E) POINTEUR DE LA SUITE DE TYPE "LISTCHPO". * IEME ENTIER (E) NUMERO D'ORDRE DU "CHPOINT" A EXTRAIRE DE * LA SUITE DE TYPE "LISTCHPO". * IPCHPO ENTIER (S) POINTEUR DU "CHPOINT" EXTRAIT. * * SOUS-PROGRAMMES APPELES: * ------------------------ * * ERREUR * * AUTEUR, DATE DE CREATION: * ------------------------- * * PASCAL MANIGOT 22 FEVRIER 1985 * * LANGAGE: * -------- * * ESOPE + FORTRAN77 * ************************************************************************ * IMPLICIT INTEGER(I-N) -INC PPARAM -INC CCOPTIO -INC SMLCHPO * MLCHPO = IPOINT SEGACT,MLCHPO * IF (0 .LT. IEME .AND. IEME .LE. ICHPOI(/1) ) THEN IPCHPO = ICHPOI(IEME) ELSE INTERR(1) = IEME NUMERR = 36 CALL ERREUR (NUMERR) END IF * SEGDES,MLCHPO * END