1subroutine ftninit(appd)
2
3  use timer_module, only: timer
4  use, intrinsic :: iso_c_binding, only: C_NULL_CHAR
5  use FFTW3
6  character*(*) appd
7  character addpfx*8
8  character wisfile*256
9  common/pfxcom/addpfx
10
11  addpfx='    '
12  call pfxdump(appd//'/prefixes.txt')
13  open(13,file=appd//'/map65.log',status='unknown')
14  open(19,file=appd//'/livecq.txt',status='unknown')
15  open(21,file=appd//'/map65_rx.log',status='unknown',access='append',err=950)
16  open(26,file=appd//'/tmp26.txt',status='unknown')
17
18! Import FFTW wisdom, if available:
19  iret=fftwf_init_threads()            !Initialize FFTW threading
20! Default to 1 thread, but use nthreads for the big ones
21  call fftwf_plan_with_nthreads(1)
22! Import FFTW wisdom, if available
23  wisfile=trim(appd)//'/m65_wisdom.dat'// C_NULL_CHAR
24  iret=fftwf_import_wisdom_from_filename(wisfile)
25  return
26
27950 write(0,*) '!Error opening ALL65.TXT'
28  stop
29
30end subroutine ftninit
31