Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,10 @@
+      SUBROUTINE fpoly(x,p,np)
+      INTEGER np
+      REAL x,p(np)
+      INTEGER j
+      p(1)=1.
+      do 11 j=2,np
+        p(j)=p(j-1)*x
+11    continue
+      return
+      END