From 3b64523f1193685f301dfe573c83a11b3275cac8 Mon Sep 17 00:00:00 2001 From: ahbarnett Date: Fri, 29 Nov 2024 12:58:38 -0500 Subject: [PATCH] reorder fortran header for opts struct, fixes #593 --- include/finufft.fh | 23 ++++++++++++++++------- 1 file changed, 16 insertions(+), 7 deletions(-) diff --git a/include/finufft.fh b/include/finufft.fh index ce1ce95b8..ed6d51299 100644 --- a/include/finufft.fh +++ b/include/finufft.fh @@ -1,12 +1,21 @@ c Fortran header recreating finufft_opts struct in fortran (f90 style). c This must be kept synchronized with finufft_opts.h, matching its order. -c Also see ../fortran/finufftfort.cpp. Barnett 5/29/20. One prec 7/2/20. +c Also see ../fortran/finufftfort.cpp. +c Barnett 5/29/20. One prec 7/2/20. Fix ordering bug 11/29/24. type finufft_opts - integer debug, spread_debug,spread_sort,spread_kerevalmeth, - $ spread_kerpad,chkbnds,fftw,modeord - real*8 upsampfac - integer spread_thread,maxbatchsize,showwarn,nthreads, - $ spread_nthr_atomic,spread_max_sp_size - integer fftw_lock_fun,fftw_unlock_fun,fftw_lock_data + +c data handling opts... + integer modeord,chkbnds + +c diagnostic opts... + integer debug,spread_debug,showwarn + +c alg performance opts... + integer nthreads,fftw,spread_sort,spread_kerevalmeth,spread_kerpad + real*8 upsampfac + integer spread_thread,maxbatchsize,spread_nthr_atomic, + $ spread_max_sp_size + integer fftw_lock_fun,fftw_unlock_fun,fftw_lock_data + end type