Télécharger la plaquette Cast3M


fr en

Télécharger d2idef.eso

Retour à la liste

Numérotation des lignes : 

d2idef

  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