Télécharger spcree.eso

Retour à la liste

Numérotation des lignes :

  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