2012-05-22 13:09:48 -04:00
|
|
|
! Fortran logical units used in WSJT6
|
|
|
|
|
!
|
2021-04-20 12:45:41 -04:00
|
|
|
! 10 binary input data, *.tf2 files
|
|
|
|
|
! 11 prefixes.txt
|
|
|
|
|
! 12 timer.out
|
|
|
|
|
! 13 map65.log
|
2012-05-22 13:09:48 -04:00
|
|
|
! 14
|
|
|
|
|
! 15
|
|
|
|
|
! 16
|
2021-04-20 12:45:41 -04:00
|
|
|
! 17 saved *.tf2 files
|
|
|
|
|
! 18 test file to be transmitted (wsjtgen.f90)
|
|
|
|
|
! 19 livecq.txt
|
2012-05-22 13:09:48 -04:00
|
|
|
! 20
|
2021-04-20 12:45:41 -04:00
|
|
|
! 21 map65_rx.log
|
2017-01-14 15:01:09 -05:00
|
|
|
! 22
|
2021-04-20 12:45:41 -04:00
|
|
|
! 23 CALL3.TXT
|
2012-05-22 13:09:48 -04:00
|
|
|
! 24
|
|
|
|
|
! 25
|
2021-04-20 12:45:41 -04:00
|
|
|
! 26 tmp26.txt
|
2012-05-22 13:09:48 -04:00
|
|
|
! 27
|
2021-04-20 12:45:41 -04:00
|
|
|
! 28 fftw_wisdom.dat
|
2012-05-22 13:09:48 -04:00
|
|
|
!------------------------------------------------ ftn_init
|
|
|
|
|
subroutine ftninit(appd)
|
|
|
|
|
|
|
|
|
|
character*(*) appd
|
2012-09-11 11:31:57 -04:00
|
|
|
character firstline*30
|
2012-05-22 13:09:48 -04:00
|
|
|
character addpfx*8
|
|
|
|
|
common/pfxcom/addpfx
|
|
|
|
|
|
|
|
|
|
addpfx=' '
|
|
|
|
|
call pfxdump(appd//'/prefixes.txt')
|
2021-04-08 11:53:40 -04:00
|
|
|
open(12,file=appd//'/timer_map65.out',status='unknown',err=920)
|
2012-05-22 13:09:48 -04:00
|
|
|
open(13,file=appd//'/map65.log',status='unknown')
|
|
|
|
|
open(19,file=appd//'/livecq.txt',status='unknown')
|
|
|
|
|
open(21,file=appd//'/map65_rx.log',status='unknown',access='append',err=950)
|
2017-01-14 15:01:09 -05:00
|
|
|
open(26,file=appd//'/tmp26.txt',status='unknown')
|
2012-05-22 13:09:48 -04:00
|
|
|
|
|
|
|
|
! Import FFTW wisdom, if available:
|
|
|
|
|
open(28,file=appd//'/fftwf_wisdom.dat',status='old',err=30)
|
|
|
|
|
read(28,1000,err=30,end=30) firstline
|
|
|
|
|
1000 format(a30)
|
|
|
|
|
rewind 28
|
|
|
|
|
call import_wisdom_from_file(isuccess,28)
|
|
|
|
|
close(28)
|
|
|
|
|
if(isuccess.ne.0) write(13,1010) firstline
|
|
|
|
|
1010 format('Imported FFTW wisdom: ',a30)
|
|
|
|
|
|
2012-09-11 11:31:57 -04:00
|
|
|
30 flush(13)
|
|
|
|
|
return
|
2012-05-22 13:09:48 -04:00
|
|
|
|
|
|
|
|
920 write(0,*) '!Error opening timer.out'
|
|
|
|
|
stop
|
|
|
|
|
950 write(0,*) '!Error opening ALL65.TXT'
|
|
|
|
|
stop
|
|
|
|
|
|
|
|
|
|
end subroutine ftninit
|
