C SPCREE    SOURCE    CHAT      06/03/29    21:34:41     5360
      SUBROUTINE SPCREE(IDIMC,ISPH,ITRI,COORD,SPH,ZERO,iarr)
C     **********************************************************************
C     OBJET : CREER LA SPHERE CIRCONSCRITE AU TRIANGLE
C     EN ENTREE :
C        IDIMC : DIMENSION DE L'ESPACE
C        ISPH : NUMERO DU TRIANGLE
C        ITRI : LES SOMMETS DU TRIANGLE
C        COORD: TABLEAU DES COORDONNEES DES POINTS
C        SPH  : TABLEAU DES SPHERES
C        ZERO :
C     EN SORTIE:
C        SPH  : TABLEAU DES SPHERES AUQUEL A ETE AJOUTE CELLE CREEE
C        iarr : CODE D'ERREUR -1 SI LE TRIANGLE EST PLAT
C
C     **********************************************************************
      IMPLICIT INTEGER(I-N)
      INTEGER IDIMC
      INTEGER ITRI(*),ISPH,iarr
      REAL*8    COORD(*),SPH(*),ZERO
C
      INTEGER  SPCIRC
      EXTERNAL SPCIRC
C
      IF( IDIMC .EQ. 2 )THEN
        iarr = SPCIRC(ITRI,COORD,SPH((ISPH-1)*3+1),ZERO)
      ELSE
C        PRINT *,'A FAIRE '
        iarr = -3
      ENDIF
      END