From 8b165d81b84270528c8d0ff3a3d48693752af354 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Tue, 20 Dec 2022 14:17:33 -0500 Subject: [PATCH] Allow use of Fortran files 71, 72, 73 for debugging. --- q65w/libq65/ftninit.f90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/q65w/libq65/ftninit.f90 b/q65w/libq65/ftninit.f90 index 565398565..caa80f78e 100644 --- a/q65w/libq65/ftninit.f90 +++ b/q65w/libq65/ftninit.f90 @@ -17,7 +17,9 @@ subroutine ftninit addpfx=' ' open(17,file=appd//'/red.dat',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: iret=fftwf_init_threads() !Initialize FFTW threading