mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-17 17:42:02 -05:00
f941da869f
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@1541 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
172 lines
4.1 KiB
Fortran
172 lines
4.1 KiB
Fortran
! Fortran logical units used in WSJT6
|
|
!
|
|
! 10 binary input data, *.tf2 files
|
|
! 11 decoded.txt
|
|
! 12 decoded.ave
|
|
! 13 tsky.dat
|
|
! 14 azel.dat
|
|
! 15
|
|
! 16
|
|
! 17 saved *.tf2 files
|
|
! 18 test file to be transmitted (wsjtgen.f90)
|
|
! 19 messages.txt
|
|
! 20 bandmap.txt
|
|
! 21 ALL65.TXT
|
|
! 22 kvasd.dat
|
|
! 23 CALL3.TXT
|
|
! 24 meas24.dat
|
|
! 25 meas25.dat
|
|
! 26 tmp26.txt
|
|
! 27 dphi.txt
|
|
! 28 fftw_wisdom.dat
|
|
! 29 debug.txt
|
|
!------------------------------------------------ ftn_init
|
|
subroutine ftn_init
|
|
|
|
character*1 cjunk
|
|
integer ptt
|
|
include 'gcom1.f90'
|
|
include 'gcom2.f90'
|
|
include 'gcom3.f90'
|
|
include 'gcom4.f90'
|
|
|
|
call cs_init
|
|
call cs_lock('ftn_init')
|
|
i=ptt(nport,pttport,0,iptt) !Clear the PTT line
|
|
addpfx=' '
|
|
nrw26=0
|
|
|
|
do i=80,1,-1
|
|
if(AppDir(i:i).ne.' ') goto 1
|
|
enddo
|
|
1 iz=i
|
|
lenappdir=iz
|
|
call pfxdump(appdir(:iz)//'/prefixes.txt')
|
|
|
|
do i=80,1,-1
|
|
if(AzElDir(i:i).ne.' ') goto 2
|
|
enddo
|
|
2 iz2=i
|
|
|
|
#ifdef CVF
|
|
open(11,file=appdir(:iz)//'/decoded.txt',status='unknown', &
|
|
share='denynone',err=910)
|
|
#else
|
|
open(11,file=appdir(:iz)//'/decoded.txt',status='unknown', &
|
|
err=910)
|
|
#endif
|
|
endfile 11
|
|
|
|
#ifdef CVF
|
|
open(12,file=appdir(:iz)//'/decoded.ave',status='unknown', &
|
|
share='denynone',err=920)
|
|
#else
|
|
open(12,file=appdir(:iz)//'/decoded.ave',status='unknown', &
|
|
err=920)
|
|
#endif
|
|
endfile 12
|
|
|
|
#ifdef CVF
|
|
open(14,file=azeldir(:iz2)//'/azel.dat',status='unknown', &
|
|
share='denynone',err=930)
|
|
#else
|
|
open(14,file=azeldir(:iz2)//'/azel.dat',status='unknown', &
|
|
err=930)
|
|
#endif
|
|
|
|
#ifdef CVF
|
|
open(19,file=appdir(:iz)//'/messages.txt',status='unknown', &
|
|
share='denynone',err=911)
|
|
#else
|
|
open(19,file=appdir(:iz)//'/messages.txt',status='unknown', &
|
|
err=911)
|
|
#endif
|
|
endfile 19
|
|
|
|
#ifdef CVF
|
|
open(20,file=appdir(:iz)//'/bandmap.txt',status='unknown', &
|
|
share='denynone',err=912)
|
|
#else
|
|
open(20,file=appdir(:iz)//'/bandmap.txt',status='unknown', &
|
|
err=912)
|
|
#endif
|
|
endfile 20
|
|
|
|
#ifdef CVF
|
|
open(21,file=appdir(:iz)//'/ALL65.TXT',status='unknown', &
|
|
access='append',share='denynone',err=950)
|
|
#else
|
|
open(21,file=appdir(:iz)//'/ALL65.TXT',status='unknown', &
|
|
access='append',err=950)
|
|
do i=1,9999999
|
|
read(21,*,end=10) cjunk
|
|
enddo
|
|
10 continue
|
|
#endif
|
|
|
|
#ifdef CVF
|
|
open(22,file=appdir(:iz)//'/kvasd.dat',access='direct',recl=1024, &
|
|
status='unknown',share='denynone')
|
|
#else
|
|
open(22,file=appdir(:iz)//'/kvasd.dat',access='direct',recl=1024, &
|
|
status='unknown')
|
|
#endif
|
|
|
|
#ifdef CVF
|
|
open(24,file=appdir(:iz)//'/meas24.txt',status='unknown', &
|
|
share='denynone')
|
|
#else
|
|
open(24,file=appdir(:iz)//'/meas24.txt',status='unknown')
|
|
#endif
|
|
|
|
#ifdef CVF
|
|
open(25,file=appdir(:iz)//'/meas25.txt',status='unknown', &
|
|
share='denynone')
|
|
#else
|
|
open(25,file=appdir(:iz)//'/meas25.txt',status='unknown')
|
|
#endif
|
|
|
|
#ifdef CVF
|
|
open(26,file=appdir(:iz)//'/tmp26.txt',status='unknown', &
|
|
share='denynone')
|
|
#else
|
|
open(26,file=appdir(:iz)//'/tmp26.txt',status='unknown')
|
|
#endif
|
|
|
|
#ifdef CVF
|
|
open(27,file=appdir(:iz)//'/dphi.txt',status='unknown', &
|
|
share='denynone')
|
|
#else
|
|
open(27,file=appdir(:iz)//'/dphi.txt',status='unknown')
|
|
open(28,file='fftw_wisdom.dat',status='unknown')
|
|
call import_wisdom_from_file(isuccess,28)
|
|
close(28)
|
|
if(isuccess.ne.0) write(*,1000)
|
|
1000 format('Using optimized FFTs.')
|
|
#endif
|
|
|
|
#ifdef CVF
|
|
open(29,file=appdir(:iz)//'/debug.txt',status='unknown', &
|
|
share='denynone')
|
|
#else
|
|
open(29,file=appdir(:iz)//'/debug.txt',status='unknown')
|
|
#endif
|
|
|
|
call cs_unlock
|
|
return
|
|
|
|
910 print*,'Error opening DECODED.TXT'
|
|
stop
|
|
911 print*,'Error opening messages.txt'
|
|
stop
|
|
912 print*,'Error opening bandmap.txt'
|
|
stop
|
|
920 print*,'Error opening DECODED.AVE'
|
|
stop
|
|
930 print*,'Error opening AZEL.DAT'
|
|
stop
|
|
950 print*,'Error opening ALL65.TXT'
|
|
stop
|
|
|
|
end subroutine ftn_init
|