Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,12 @@
+      subroutine lfitbasisfuncs(x,afunc,ma)
+      implicit none
+      integer ma
+      double precision x,afunc(ma)
+      afunc(1)=1.0d0
+      afunc(2)=x
+      if(ma.gt.2)then
+        afunc(3)=x*x/1000.0d0
+      endif
+      return
+      end
+