Esope source files

   1 : C EXTR19    SOURCE    CHAT      05/01/12    23:52:22     5004           
   2 :          SUBROUTINE EXTR19(IPOINT,IPLSTM)                                   
   3 : *_____________________________________________________________________          
   4 : *                                                                               
   5 : *     Extrait les composantes d'un NUAGE                                       
   6 : *                                                                               
   7 : *  Entrees :                                                                    
   8 : *  ---------                                                                                                                                                                          
   9 : *     IPOINT  Pointeur sur un NUAGE                                           
  10 : *                                                                               
  11 : *  Sortie :                                                                     
  12 : *  --------                                                                     
  13 : *     IPLSTM  Pointeur sur un LISTMOTS                                          
  14 : *                                                                               
  15 : *  Suo le 05/94                                                         
  16 : *_____________________________________________________________________          
  17 : *                                                                               
  18 :       IMPLICIT INTEGER(I-N)
  19 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  20 : *                                                                                     
  21 : -INC SMNUAGE                                                      
  22 : -INC SMLMOTS
  23 : *
  24 :       IPLSTM=0
  25 :       MNUAGE=IPOINT
  26 :       SEGACT,MNUAGE                                                             
  27 :       JGN=8                                                             
  28 :       JGM=NUANOM(/2)
  29 :       SEGINI,MLMOTS
  30 :       IPLSTM=MLMOTS                                                                                                                   
  31 :       DO 20 I=1,JGM                                                             
  32 :          MOTS(I)=NUANOM(I)                                                      
  33 : 20    CONTINUE
  34 :       SEGDES,MLMOTS,MNUAGE                                                                        
  35 :       RETURN                                                                    
  36 :       END                                                                      
  37 :