Télécharger HDECSPH.INC

Retour à la liste

Numérotation des lignes :

  1. integer npos
  2. parameter (PI=3.141592653589793D0,ang1=pi)
  3. real*8 thet1(npos+1),gam1(npos+1),x(npos+1,npos+1)
  4. real*8 y(npos+1,npos+1),z(npos+1,npos+1),tri(npos,2*npos-2,3,3)
  5. real*8 s(npos,2*npos-2),xg(npos,2*npos-2),yg(npos,2*npos-2)
  6. real*8 zg(npos,2*npos-2)

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