2022-12-12 13:09:07 -05:00
|
|
|
subroutine q65c(itimer)
|
2022-12-09 19:19:59 -05:00
|
|
|
|
|
|
|
|
use timer_module, only: timer
|
2022-12-10 09:24:24 -05:00
|
|
|
use timer_impl, only: fini_timer !, limtrace
|
2022-12-09 19:19:59 -05:00
|
|
|
use, intrinsic :: iso_c_binding, only: C_NULL_CHAR
|
|
|
|
|
use FFTW3
|
|
|
|
|
use q65
|
|
|
|
|
use q65_decode
|
|
|
|
|
|
|
|
|
|
parameter (NFFT=32768)
|
|
|
|
|
include 'njunk.f90'
|
|
|
|
|
real*8 fcenter
|
|
|
|
|
integer nparams0(NJUNK+3),nparams(NJUNK+3)
|
2022-12-13 12:58:52 -05:00
|
|
|
logical first
|
2023-12-14 13:37:28 -05:00
|
|
|
logical*1 bAlso30
|
2022-12-09 19:19:59 -05:00
|
|
|
character*12 mycall,hiscall
|
|
|
|
|
character*6 mygrid,hisgrid
|
|
|
|
|
character*20 datetime
|
|
|
|
|
|
2023-12-07 11:43:25 -05:00
|
|
|
common/datcom2/dd(2,5760000),ss(400,NFFT),savg(NFFT),nparams0
|
2022-12-10 19:21:19 -05:00
|
|
|
|
|
|
|
|
!### REMEMBER that /npar/ is not updated until nparams=nparams0 is executed. ###
|
2023-05-13 13:43:04 -04:00
|
|
|
common/npar/fcenter,nutc,fselected,mousedf,mousefqso,nagain, &
|
2023-12-01 08:46:40 -05:00
|
|
|
ndepth,ndiskdat,neme,newdat,nn1,nn2,nfcal,nfshift, &
|
2022-12-09 19:19:59 -05:00
|
|
|
mcall3,nkeep,ntol,nxant,nrxlog,nfsample,nxpol,nmode, &
|
2023-12-01 08:46:40 -05:00
|
|
|
ndop00,nsave,nn3,nn4,max_nhsym,mycall,mygrid,hiscall,hisgrid, &
|
2023-12-14 13:37:28 -05:00
|
|
|
datetime,junk1,junk2,bAlso30
|
2022-12-09 19:19:59 -05:00
|
|
|
equivalence (nparams,fcenter)
|
|
|
|
|
data first/.true./
|
2022-12-10 19:21:19 -05:00
|
|
|
save first
|
2022-12-09 19:19:59 -05:00
|
|
|
|
2022-12-10 19:21:19 -05:00
|
|
|
nparams=nparams0 !Copy parameters into common/npar/
|
2023-12-08 12:06:20 -05:00
|
|
|
datetime(12:)='00 '
|
2023-12-01 08:46:40 -05:00
|
|
|
|
2022-12-10 09:24:24 -05:00
|
|
|
if(itimer.ne.0) then
|
|
|
|
|
call timer('decode0 ',101)
|
|
|
|
|
call fini_timer
|
|
|
|
|
return
|
|
|
|
|
endif
|
2022-12-10 19:21:19 -05:00
|
|
|
|
2022-12-09 19:19:59 -05:00
|
|
|
npatience=1
|
2023-01-16 18:51:57 -05:00
|
|
|
newdat=1 !Always on ??
|
2022-12-17 08:28:48 -05:00
|
|
|
|
2022-12-10 09:24:24 -05:00
|
|
|
call timer('decode0 ',0)
|
2022-12-12 15:23:51 -05:00
|
|
|
call decode0(dd,ss,savg)
|
2022-12-10 09:24:24 -05:00
|
|
|
call timer('decode0 ',1)
|
2022-12-09 19:19:59 -05:00
|
|
|
|
|
|
|
|
return
|
2022-12-12 13:09:07 -05:00
|
|
|
end subroutine q65c
|
