Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,8 @@
+      SUBROUTINE rank(n,indx,irank)
+      INTEGER n,indx(n),irank(n)
+      INTEGER j
+      do 11 j=1,n
+        irank(indx(j))=j
+11    continue
+      return
+      END