Télécharger la plaquette Cast3M


fr en

Télécharger shshb8.eso

Retour à la liste

Numérotation des lignes : 

shshb8

  1. C SHSHB8    SOURCE    CHAT      07/10/22    21:18:00     5921
  2.       subroutine shshb8 ( qsi, shp)
  3.       implicit real*8 (a-h,o-z)
  4.       implicit integer (i-n)
  5.       dimension shp(6,8)
  6.       shp(1,1)=(1.d0 -qsi)/8.d0
  7.       shp(1,2)=(1.d0 -qsi)/8.d0
  8.       shp(1,3)=(1.d0 -qsi)/8.d0
  9.       shp(1,4)=(1.d0 -qsi)/8.d0
  10.       shp(1,5)=(1.d0+ qsi ) / 8.d0
  11.       shp(1,6)=(1.d0+ qsi ) / 8.d0
  12.       shp(1,7)=(1.d0+ qsi ) / 8.d0
  13.       shp(1,8)=(1.d0+ qsi ) / 8.d0
  14.  
  15.       return
  16.       end
  17.  
  18.  

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