Télécharger la plaquette Cast3M


fr en

Télécharger spcree.eso

Retour à la liste

Numérotation des lignes : 

spcree

  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.  
  35.  

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