Esope source files

   1 : C SPCREE    SOURCE    CHAT      06/03/29    21:34:41     5360           
   2 :       SUBROUTINE SPCREE(IDIMC,ISPH,ITRI,COORD,SPH,ZERO,iarr)
   3 : C     **********************************************************************
   4 : C     OBJET : CREER LA SPHERE CIRCONSCRITE AU TRIANGLE
   5 : C     EN ENTREE :
   6 : C        IDIMC : DIMENSION DE L'ESPACE
   7 : C        ISPH : NUMERO DU TRIANGLE
   8 : C        ITRI : LES SOMMETS DU TRIANGLE
   9 : C        COORD: TABLEAU DES COORDONNEES DES POINTS
  10 : C        SPH  : TABLEAU DES SPHERES
  11 : C        ZERO :
  12 : C     EN SORTIE:
  13 : C        SPH  : TABLEAU DES SPHERES AUQUEL A ETE AJOUTE CELLE CREEE
  14 : C        iarr : CODE D'ERREUR -1 SI LE TRIANGLE EST PLAT
  15 : C
  16 : C     **********************************************************************
  17 :       IMPLICIT INTEGER(I-N)
  18 :       INTEGER IDIMC
  19 :       INTEGER ITRI(*),ISPH,iarr
  20 :       REAL*8    COORD(*),SPH(*),ZERO
  21 : C
  22 :       INTEGER  SPCIRC
  23 :       EXTERNAL SPCIRC
  24 : C
  25 :       IF( IDIMC .EQ. 2 )THEN
  26 :         iarr = SPCIRC(ITRI,COORD,SPH((ISPH-1)*3+1),ZERO)
  27 :       ELSE
  28 : C        PRINT *,'A FAIRE '
  29 :         iarr = -3
  30 :       ENDIF
  31 :       END
  32 :  
  33 :  
  34 :