From 860e9d8c1ac7283872251d5a94a37ba3112b57f5 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Thu, 29 Dec 2005 20:31:33 +0000
Subject: [PATCH] Added indexx.f

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@35 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 indexx.f | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 indexx.f

diff --git a/indexx.f b/indexx.f
new file mode 100644
index 000000000..464979742
--- /dev/null
+++ b/indexx.f
@@ -0,0 +1,19 @@
+      subroutine indexx(n,arr,indx)
+
+      parameter (NMAX=2000)
+      integer indx(n)
+      real arr(n)
+      real brr(NMAX)
+      if(n.gt.NMAX) then
+         print*,'n=',n,' too big in indexx.'
+         stop
+      endif
+      do i=1,n
+         brr(i)=arr(i)
+         indx(i)=i
+      enddo
+      call ssort(brr,indx,n,2)
+
+      return
+      end
+