w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 02:12:37 -04:00
Code Issues Packages Projects Releases Wiki Activity

Simplify ftninit.

Browse Source
This commit is contained in:
Joe Taylor 2024-01-10 15:17:26 -05:00
parent f98009daab
commit 42f322e461
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
qmap/libqmap/ftninit.f90
View File

@ -3,10 +3,8 @@ subroutine ftninit
use timer_impl, only: init_timer !,fini_timer, limtrace use timer_impl, only: init_timer !,fini_timer, limtrace
use, intrinsic :: iso_c_binding, only: C_NULL_CHAR use, intrinsic :: iso_c_binding, only: C_NULL_CHAR
use FFTW3 use FFTW3
! character*(*) appd
character*1 appd character*1 appd
character addpfx*8 character addpfx*8
character wisfile*256
common/pfxcom/addpfx common/pfxcom/addpfx
lu=8 lu=8
@ -17,17 +15,10 @@ subroutine ftninit
open(12,file=appd//'/all_qmap.txt',status='unknown',position='append') open(12,file=appd//'/all_qmap.txt',status='unknown',position='append')
open(17,file=appd//'/red.dat',status='unknown') open(17,file=appd//'/red.dat',status='unknown')
open(19,file=appd//'/livecq.txt',status='unknown') open(19,file=appd//'/livecq.txt',status='unknown')
open(71,file=appd//'/fort.71',status='unknown')
open(72,file=appd//'/fort.72',status='unknown')
open(73,file=appd//'/fort.73',status='unknown')
! Import FFTW wisdom, if available:
iret=fftwf_init_threads() !Initialize FFTW threading iret=fftwf_init_threads() !Initialize FFTW threading
! Default to 1 thread, but use nthreads for the big ones ! Default to 1 thread, but use nthreads for the big ones
call fftwf_plan_with_nthreads(1) 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)
return return
end subroutine ftninit end subroutine ftninit