Esope source files

   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
  20 :       CALL POBTEN(COORD,IDIMC,NBN,BOITE)
  20 :       CALL PTNORM(COORD,BOITE,IDIMC,NBN,ZERO,COORDN,iarr)  
  21 :   999 END
  22 :  
  23 :  
  24 :