C EXTRA2 SOURCE CHAT 05/01/12 23:53:02 5004 * EXTRAIRE LE I-EME ELEMENT D'UN OBJET DE TYPE "LISTENTI". SUBROUTINE EXTRA2 (IPOINT,IEME,INTEGR) ************************************************************************ * * E X T R A 2 * ----------- * * FONCTION: * --------- * * EXTRAIRE LE I-EME ELEMENT D'UN OBJET DE TYPE "LISTENTI". * * MODE D'APPEL: * ------------- * * CALL EXTRA2 (IPOINT,IEME,INTEGR) * * PARAMETRES: (E)=ENTREE (S)=SORTIE * ----------- * * IPOINT ENTIER (E) POINTEUR DE L'OBJET DE TYPE "LISTENTI". * IEME ENTIER (E) NUMERO D'ORDRE DE L'ELEMENT A EXTRAIRE DANS * L'OBJET DE TYPE "LISTENTI". * INTEGR ENTIER (S) ELEMENT EXTRAIT. * * SOUS-PROGRAMMES APPELES: * ------------------------ * * ERREUR * * AUTEUR, DATE DE CREATION: * ------------------------- * * PASCAL MANIGOT 5 DECEMBRE 1984 * * LANGAGE: * -------- * * ESOPE + FORTRAN77 * ************************************************************************ * IMPLICIT INTEGER(I-N) -INC PPARAM -INC CCOPTIO -INC SMLENTI * MLENTI = IPOINT SEGACT,MLENTI * IF (0 .LT. IEME .AND. IEME .LE. LECT(/1) ) THEN INTEGR = LECT(IEME) ELSE INTERR(1) = IEME NUMERR = 36 CALL ERREUR (NUMERR) END IF * SEGDES,MLENTI * END