Télécharger la plaquette Cast3M


fr en

Télécharger tail1d.eso

Retour à la liste

Numérotation des lignes : 

tail1d

  1. C TAIL1D    SOURCE    PV090527  23/01/27    21:16:03     11574          
  2. c***********************************************************************
  3. c  calcul de la taille associee au point de gauss dans la direction dir3
  4. c      A Sellier sept. 2022
  5.        subroutine tail1d(long,dir3,Method_N,XE3D,NBNMAX3D,
  6.      # NBNB3D,IDIMB3D,Method_H,LcH,err1)
  7.  
  8. c     declaration externes      
  9.       real*8 long,dir3(3)
  10.       logical Method_N,Method_H
  11.       integer NB_HELM,Num_H
  12.       real*8 LcH
  13.       integer NBNMAX3D,NBNB3D,IDIMB3D
  14.       real*8 xe3d(3,NBNMAX3D)
  15.       integer err1
  16.  
  17. c     declaration locale      
  18.       real*8 x(3),sn
  19.       integer i,j
  20.  
  21. C       print*,'dans tail1d'
  22. C       print*, long,dir3,Method_N,XE3D,NBNMAX3D,
  23. C      # NBNB3D,IDIMB3D,Method_H,LcH,err1
  24.  
  25.       err1=0
  26.       if (Method_N) then
  27. c           calcul de la taille associee au point de gauss dans la direction
  28. c       suivant methode des projections (cf Thèse P.Morenon)
  29.         call LNUD3D(long,xe3d,NBNMAX3D,NBNB3D,dir3)
  30. c       print*,'long ds tail1d',long
  31.       else if (Method_H) then
  32. C       print*,'dir3',dir3 
  33. C       print*,'LcH',LcH    
  34.         long=LcH
  35. c       print*,'long ds tail1d',long
  36.       else
  37.         print*,'Dans Tail1D il faut preciser la methode de calcul'
  38.         err1=1
  39.         return
  40.       end if 
  41.  
  42.  
  43.       return
  44.       end
  45.  
  46.  
  47.  
  48.  

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