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

@@ -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

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
 

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