Télécharger ptinit.eso

Retour à la liste

Numérotation des lignes :

  1. C PTINIT SOURCE CHAT 06/03/29 21:30:38 5360
  2. SUBROUTINE PTINIT(COORD,IDIMC,NBN,ZERO,COORDN,iarr)
  3. C **********************************************************************
  4. C OBJET : INITIALISATION D'UN NUAGE DE POINTS
  5. C EN ENTREE :
  6. C COORD : TABLEAU DES COORDONNEES DES POINTS
  7. C IDIMC : DIMENSION DE L'ESPACE
  8. C NBN : NOMBRE DE POINTS
  9. C ZERO : ZERO
  10. C EN SORTIE :
  11. C COORDN : COORDONNEES NORMALISEES
  12. C **********************************************************************
  13. IMPLICIT INTEGER(I-N)
  14. REAL*8 COORD(*),ZERO
  15. INTEGER IDIMC, NBN
  16. REAL*8 COORDN(*)
  17. INTEGER iarr
  18. C
  19. REAL*8 BOITE(6)
  20. C
  21. CALL POBTEN(COORD,IDIMC,NBN,BOITE)
  22. CALL PTNORM(COORD,BOITE,IDIMC,NBN,ZERO,COORDN,iarr)
  23. 999 END
  24.  
  25.  
  26.  
  27.  

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