From e61e8c5d812fb797a51c04780ab73ffebdc01996 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Fri, 8 Jan 2016 21:05:00 +0000
Subject: [PATCH] Renamd exp_decode65.f90 to hint65.f90.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6367 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 CMakeLists.txt                       | 2 +-
 lib/extract.f90                      | 6 +++---
 lib/{exp_decode65.f90 => hint65.f90} | 4 ++--
 3 files changed, 6 insertions(+), 6 deletions(-)
 rename lib/{exp_decode65.f90 => hint65.f90} (97%)

diff --git a/CMakeLists.txt b/CMakeLists.txt
index 4a1dd6a63..142907765 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -303,7 +303,6 @@ set (wsjt_FSRCS
   lib/encode4.f90
   lib/entail.f90
   lib/ephem.f90
-  lib/exp_decode65.f90
   lib/extract.f90
   lib/extract4.f90
   lib/fano232.f90
@@ -341,6 +340,7 @@ set (wsjt_FSRCS
   lib/grid2deg.f90
   lib/hash.f90
   lib/hashing.f90
+  lib/hint65.f90
   lib/hspec.f90
   lib/image.f90
   lib/indexx.f90
diff --git a/lib/extract.f90 b/lib/extract.f90
index 7dd64c212..4bf071434 100644
--- a/lib/extract.f90
+++ b/lib/extract.f90
@@ -99,8 +99,8 @@ subroutine extract(s3,nadd,ntrials,naggressive,ndepth,mycall_12,    &
      mode65=1
      flip=1.0
      qmin=1.0
-          call timer('exp_deco',0)
-     call exp_decode65(s3,mrs,mrs2,mrsym,mr2sym,mrprob,mode65,flip,   &
+          call timer('hint65  ',0)
+     call hint65(s3,mrs,mrs2,mrsym,mr2sym,mrprob,mode65,flip,   &
           mycall,hiscall,hisgrid,nexp_decode,qual,decoded)
      if(qual.ge.qmin) then
         nft=2
@@ -108,7 +108,7 @@ subroutine extract(s3,nadd,ntrials,naggressive,ndepth,mycall_12,    &
         decoded='                      '
         ntry=0
      endif
-     call timer('exp_deco',1)
+     call timer('hint65  ',1)
      go to 900
   endif
 
diff --git a/lib/exp_decode65.f90 b/lib/hint65.f90
similarity index 97%
rename from lib/exp_decode65.f90
rename to lib/hint65.f90
index 123109de5..0a1a47fd4 100644
--- a/lib/exp_decode65.f90
+++ b/lib/hint65.f90
@@ -1,4 +1,4 @@
-subroutine exp_decode65(s3,mrs,mrs2,mrsym,mr2sym,mrprob,mode65,flip,   &
+subroutine hint65(s3,mrs,mrs2,mrsym,mr2sym,mrprob,mode65,flip,   &
      mycall,hiscall0,hisgrid0,nexp_decode,qual,decoded)
 
   use packjt
@@ -132,4 +132,4 @@ subroutine exp_decode65(s3,mrs,mrs2,mrsym,mr2sym,mrprob,mode65,flip,   &
   if(qual.ge.qmin) decoded=msg0(ipk)
 
   return
-end subroutine exp_decode65
+end subroutine hint65