Télécharger la plaquette Cast3M


fr en

Télécharger lnud3d.eso

Retour à la liste

Numérotation des lignes : 

lnud3d

  1. C LNUD3D    SOURCE    PV090527  23/01/27    21:15:48     11574          
  2.       subroutine LNUD3D(long,xe3d,NBNMAX3D,NBNB3D,dir3)
  3.  
  4. c     calcul taille de l element a partir des coordonnees des noeuds
  5. c     tables de dimension fixe pour resolution des sytemes lineaires 
  6. c     Sellier 26/04/2021
  7.       implicit real*8 (a-h,o-z)
  8.       implicit integer (i-n)
  9.  
  10. c     declaration 
  11.       real*8 dir3(3),long    
  12.       integer i,j
  13.       real*8 dmin,dmax,dim1
  14.       integer NBNMAX3D,NBNB3D
  15.       real*8 xe3d(3,NBNMAX3D)
  16.  
  17.          dmin=0.d0
  18.          dmax=0.d0
  19.          do i=1,nbnb3d
  20.           if (i.eq.1) then
  21. c           initialisation dmin dmax sur 1er neoud          
  22.             dim1=0.d0
  23.             do j=1,3
  24.                 dim1=dim1+xe3d(j,i)*dir3(j)
  25.             end do
  26.             dmin=dim1
  27.             dmax=dim1
  28.           else
  29.             dim1=0.d0
  30.             do j=1,3
  31.                 dim1=dim1+xe3d(j,i)*dir3(j)
  32.             end do
  33.             if (dim1.lt.dmin) then
  34.                dmin=dim1
  35.             else if (dim1.gt.dmax) then
  36.                dmax=dim1 
  37.             end if
  38.           end if    
  39.          end do          
  40.          long=dmax-dmin
  41.          if(long.eq.0.) then
  42.              print*,'dir3',dir3,'long',long
  43.              err1=1
  44.              return
  45.          end if
  46.         return
  47.         end
  48.  
  49.  
  50.  

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