mirror of https://github.com/saitohirga/WSJT-X.git
Add missing routine.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8126 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
04b0563d19
commit
58f11f9f22
|
@ -0,0 +1,31 @@
|
||||||
|
subroutine calibrate(app_dir,data_dir)
|
||||||
|
|
||||||
|
! Frequency calibration driver routine for WSJT-X
|
||||||
|
|
||||||
|
character*(*) app_dir
|
||||||
|
character*(*) data_dir
|
||||||
|
character*256 fmtave,fcal,infile,avefile,calfile
|
||||||
|
character*512 cmnd
|
||||||
|
|
||||||
|
fmtave=app_dir//'fmtave'
|
||||||
|
fcal=app_dir//'fcal'
|
||||||
|
infile=data_dir//'fmt.all'
|
||||||
|
avefile=data_dir//'fmtave.out '
|
||||||
|
calfile=data_dir//'fcal.out'
|
||||||
|
|
||||||
|
print*,trim(fmtave)
|
||||||
|
print*,trim(fcal)
|
||||||
|
print*,trim(infile)
|
||||||
|
print*,trim(avefile)
|
||||||
|
print*,trim(calfile)
|
||||||
|
|
||||||
|
cmnd='"'//trim(fmtave)//' '//trim(infile)//' > '//avefile//'"'
|
||||||
|
print*,trim(cmnd)
|
||||||
|
call system(trim(cmnd))
|
||||||
|
|
||||||
|
cmnd='"'//trim(fcal)//' '//trim(avefile)//' > '//calfile//'"'
|
||||||
|
print*,trim(cmnd)
|
||||||
|
call system(trim(cmnd))
|
||||||
|
|
||||||
|
return
|
||||||
|
end subroutine calibrate
|
Loading…
Reference in New Issue