Esope source files

   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)      
  35 :         CALL D2DEF(COORD((NUMP1-1)*IDIMC+1),
  36 :      >                  COORD((NUMP2-1)*IDIMC+1),
  37 :      >                  COORD((NUMP3-1)*IDIMC+1),
  38 :      >                  COORD((NUMP3-1)*IDIMC+1),
  39 :      >                  SPH((IT-1)*NBSMAX+1),IDIMC,
  40 :      >                  COEF,TS,IERR)
  41 : C
  42 :   999 END
  43 :  
  44 :