C EXTR19 SOURCE CHAT 05/01/12 23:52:22 5004 SUBROUTINE EXTR19(IPOINT,IPLSTM) *_____________________________________________________________________ * * Extrait les composantes d'un NUAGE * * Entrees : * --------- * IPOINT Pointeur sur un NUAGE * * Sortie : * -------- * IPLSTM Pointeur sur un LISTMOTS * * Suo le 05/94 *_____________________________________________________________________ * IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) * -INC SMNUAGE -INC SMLMOTS * IPLSTM=0 MNUAGE=IPOINT SEGACT,MNUAGE JGN=8 JGM=NUANOM(/2) SEGINI,MLMOTS IPLSTM=MLMOTS DO 20 I=1,JGM MOTS(I)=NUANOM(I) 20 CONTINUE SEGDES,MLMOTS,MNUAGE RETURN END