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