Skip to content

Commit

Permalink
reorder fortran header for opts struct, fixes #593
Browse files Browse the repository at this point in the history
  • Loading branch information
ahbarnett committed Nov 29, 2024
1 parent 43b5a36 commit 3b64523
Showing 1 changed file with 16 additions and 7 deletions.
23 changes: 16 additions & 7 deletions include/finufft.fh
Original file line number Diff line number Diff line change
@@ -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

0 comments on commit 3b64523

Please sign in to comment.