Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,11 @@
+      subroutine fortranswap(n,x1,x2)
+      implicit none
+      integer n,i
+      double precision x1(n),x2(n),term
+      do i=1,n
+        term=x1(i)
+        x1(i)=x2(i)
+        x2(i)=term
+      enddo
+      return
+      end