wspr4d cleanup.

lib/fsk4hf/wspr4d.f90

@@ -32,7 +32,7 @@ program wspr4d
 
    nargs=iargc()
    if(nargs.lt.1) then
-      print*,'Usage:   wspr4d [-a <data_dir>] [-f fMHz] [-c ncoh] [-h h] file1 [file2 ...]'
+      print*,'Usage:   wspr4d [-a <data_dir>] [-f fMHz] file1 [file2 ...]'
       go to 999
    endif
    iarg=1
@@ -48,12 +48,6 @@ program wspr4d
       read(arg,*) fMHz
       iarg=iarg+2
    endif
-   ncoh=1
-   if(arg(1:2).eq.'-h') then
-      call getarg(iarg+1,arg)
-      read(arg,*) h
-      iarg=iarg+2
-   endif
 
    open(13,file=trim(data_dir)//'/ALL_WSPR.TXT',status='unknown',   &
       position='append')
@@ -105,12 +99,14 @@ program wspr4d
                endif
             enddo
          enddo
-write(*,*) -1.50*(fs/416),fc1,fc2,isbest
-istart=isbest
-fcest=fc2
-!genie sync
+         write(*,*) ifile,icand,-1.50*(fs/416),fc1,fc2,isbest,smax
+         istart=isbest
+         fcest=fc2
+!
+!******** genie sync
 !         istart=375
 !         fcest=0.0-1.50*(fs/416)
+!
          cframe=c2(istart:istart+103*416-1)
          call downsample4(cframe,fcest,cd)
          s2=sum(cd*conjg(cd))/(16*103)
@@ -157,7 +153,7 @@ fcest=fc2
                c77(51:77)='000000000000000000000110000'
                call unpack77(c77,0,msg,unpk77_success)
                if(unpk77_success .and. index(msg,'K9AN').gt.0) then
-ngood=ngood+1
+                  ngood=ngood+1
                   write(*,1100) ifile,fc0,xsnr,msg(1:14),itry,nhardbp,nhardosd,dmin
 1100              format(i5,2x,f8.2,2x,f8.2,2x,a14,i4,i4,i4,f7.2)
                   exit
@@ -168,8 +164,8 @@ ngood=ngood+1
          enddo
       enddo !candidate list
    enddo !files
-nfiles=nargs-iarg+1
-write(*,*) 'nfiles: ',nfiles,' ngood: ',ngood
+   nfiles=nargs-iarg+1
+   write(*,*) 'nfiles: ',nfiles,' ngood: ',ngood
    write(*,1120)
 1120 format("<DecodeFinished>")