Télécharger extr19.eso

Retour à la liste

Numérotation des lignes :

  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.  
  38.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales