w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-04 23:22:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Allow use of Fortran files 71, 72, 73 for debugging.

Browse Source
This commit is contained in:
Joe Taylor 2022-12-20 14:17:33 -05:00
parent 5f94a115f7
commit 8b165d81b8
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
q65w/libq65/ftninit.f90
View File

@ -17,7 +17,9 @@ subroutine ftninit
addpfx=' ' addpfx=' '
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//'/debug.tmp',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: ! Import FFTW wisdom, if available:
iret=fftwf_init_threads() !Initialize FFTW threading iret=fftwf_init_threads() !Initialize FFTW threading