Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,16 @@
+      SUBROUTINE piksrt(n,arr)
+      INTEGER n
+      REAL arr(n)
+      INTEGER i,j
+      REAL a
+      do 12 j=2,n
+        a=arr(j)
+        do 11 i=j-1,1,-1
+          if(arr(i).le.a)goto 10
+          arr(i+1)=arr(i)
+11      continue
+        i=0
+10      arr(i+1)=a
+12    continue
+      return
+      END