Télécharger d2idef.eso

Retour à la liste

Numérotation des lignes :

  1. C D2IDEF SOURCE CHAT 05/01/12 22:34:54 5004
  2. SUBROUTINE D2IDEF(IT,ITRNOE,NBNMAX,ITRTRI,NBCMAX,
  3. > COORD,IDIMC,SPH,NBSMAX,ITAB,RTAB,COEF,TS,IERR)
  4. C ****************************************************************
  5. C OBJET : CF D2DEF - FONCTION PARAMETRE
  6. C EN ENTREE :
  7. C --------- L'ELEMENT A RAFFINER -------------------
  8. C IT : NUMERO DE L'ELEMENT A RAFFINER
  9. C ITRNOE,NBNMAX,ITRTRI,NBCMAX : LE MAILLAGE
  10. C COORD,IDIMC : COORDONNEES DANS L'ESPACE DE DIMENSION IDIMC
  11. C SPH,NBSMAX : VECTEUR DIAMETRE DES SPHERES CIRCONSCRITES
  12. C --------- LE POINT DE CONCENTRATION ------------
  13. C ITAB() , RTAB() : INUTILISES
  14. C EN SORTIE :
  15. C TS : TAILLE SOUHAITE POUR L'ELEMENT IT
  16. C LONGUEUR DE SA PLUS PETITE ARETE
  17. C COEF : TS / RC
  18. C RC EST LE RAYON DU CERCLE CIRCONSCRIT
  19. C PLUS COEF EST PETIT PLUS ON RAFFINE
  20. C IERR : CODE D'ERREUR 0 SI OK,
  21. C -1 SI LE RAYON CIRCONSCRIT A IT EST NUL
  22. C NIVEAU : MODULE
  23. C ****************************************************************
  24. IMPLICIT INTEGER(I-N)
  25. REAL*8 COORD(*),SPH(*),COEF,TS
  26. INTEGER IT,ITRNOE(*),NBNMAX,ITRTRI(*),NBCMAX,NBSMAX
  27. INTEGER IDIMC,ITAB(*)
  28. REAL*8 RTAB(*)
  29. INTEGER IERR
  30. C
  31. INTEGER NUMP1,NUMP2,NUMP3
  32. C
  33. NUMP1 = ITRNOE((IT-1)*NBNMAX+1)
  34. NUMP2 = ITRNOE((IT-1)*NBNMAX+2)
  35. NUMP3 = ITRNOE((IT-1)*NBNMAX+3)
  36. CALL D2DEF(COORD((NUMP1-1)*IDIMC+1),
  37. > COORD((NUMP2-1)*IDIMC+1),
  38. > COORD((NUMP3-1)*IDIMC+1),
  39. > COORD((NUMP3-1)*IDIMC+1),
  40. > SPH((IT-1)*NBSMAX+1),IDIMC,
  41. > COEF,TS,IERR)
  42. C
  43. 999 END
  44.  
  45.  
  46.  

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