2012-05-22 13:09:48 -04:00
|
|
|
subroutine ftninit(appd)
|
|
|
|
|
|
2021-04-29 09:39:08 -04:00
|
|
|
use timer_module, only: timer
|
2021-05-13 07:44:32 -04:00
|
|
|
use, intrinsic :: iso_c_binding, only: C_NULL_CHAR
|
|
|
|
|
use FFTW3
|
2012-05-22 13:09:48 -04:00
|
|
|
character*(*) appd
|
|
|
|
|
character addpfx*8
|
2021-05-13 07:44:32 -04:00
|
|
|
character wisfile*256
|
2012-05-22 13:09:48 -04:00
|
|
|
common/pfxcom/addpfx
|
|
|
|
|
|
|
|
|
|
addpfx=' '
|
|
|
|
|
call pfxdump(appd//'/prefixes.txt')
|
|
|
|
|
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:
|
2021-05-13 07:44:32 -04:00
|
|
|
iret=fftwf_init_threads() !Initialize FFTW threading
|
|
|
|
|
! Default to 1 thread, but use nthreads for the big ones
|
|
|
|
|
call fftwf_plan_with_nthreads(1)
|
|
|
|
|
! Import FFTW wisdom, if available
|
|
|
|
|
wisfile=trim(appd)//'/m65_wisdom.dat'// C_NULL_CHAR
|
|
|
|
|
iret=fftwf_import_wisdom_from_filename(wisfile)
|
2012-09-11 11:31:57 -04:00
|
|
|
return
|
2012-05-22 13:09:48 -04:00
|
|
|
|
|
|
|
|
950 write(0,*) '!Error opening ALL65.TXT'
|
|
|
|
|
stop
|
|
|
|
|
|
|
|
|
|
end subroutine ftninit
|
