Updated to r8541

2018-03-05 14:49:51 -05:00
parent a4fa5b9988
commit a32fe6a4dc
200 changed files with 20394 additions and 4957 deletions
@@ -0,0 +1,17 @@
+real function h1(x)
+
+!  sigma=1.0/sqrt(2.0)
+  sigma=1.0
+  xlim=sigma/sqrt(6.0)
+  ax=abs(x)
+  sgnx=1.0
+  if(x.lt.0) sgnx=-1.0
+  if(ax.le.xlim) then
+     h1=x
+  else
+     z=exp(1.0/6.0 - (ax/sigma)**2)
+     h1=sgnx*sqrt(6.0)*sigma*(2.0/3.0 - 0.5*z)
+  endif
+
+  return
+end function h1