Sources Esope | Cast3M

ptinit
C PTINIT    SOURCE    CHAT      06/03/29    21:30:38     5360
      SUBROUTINE PTINIT(COORD,IDIMC,NBN,ZERO,COORDN,iarr)
C     **********************************************************************
C     OBJET : INITIALISATION D'UN NUAGE DE POINTS
C     EN ENTREE   :
C         COORD  : TABLEAU DES COORDONNEES DES POINTS
C         IDIMC   : DIMENSION DE L'ESPACE
C         NBN    : NOMBRE DE POINTS
C         ZERO   : ZERO
C     EN SORTIE   :
C         COORDN   : COORDONNEES NORMALISEES
C     **********************************************************************
      IMPLICIT INTEGER(I-N)
      REAL*8       COORD(*),ZERO
      INTEGER    IDIMC, NBN
      REAL*8       COORDN(*)
      INTEGER    iarr
C
      REAL*8    BOITE(6)
C
      CALL POBTEN(COORD,IDIMC,NBN,BOITE)
      CALL PTNORM(COORD,BOITE,IDIMC,NBN,ZERO,COORDN,iarr)
  999 END