Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,24 @@
+      SUBROUTINE wt1(a,n,isign,wtstep)
+      INTEGER isign,n
+      REAL a(n)
+      EXTERNAL wtstep
+CU    USES wtstep
+      INTEGER nn
+      if (n.lt.4) return
+      if (isign.ge.0) then
+        nn=n
+1       if (nn.ge.4) then
+          call wtstep(a,nn,isign)
+          nn=nn/2
+        goto 1
+        endif
+      else
+        nn=4
+2       if (nn.le.n) then
+          call wtstep(a,nn,isign)
+          nn=nn*2
+        goto 2
+        endif
+      endif
+      return
+      END