Esope source files

   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 :