|
1 | 1 | c Fortran header recreating finufft_opts struct in fortran (f90 style).
|
2 | 2 | c This must be kept synchronized with finufft_opts.h, matching its order.
|
3 |
| -c Also see ../fortran/finufftfort.cpp. Barnett 5/29/20. One prec 7/2/20. |
| 3 | +c Also see ../fortran/finufftfort.cpp. |
| 4 | +c Barnett 5/29/20. One prec 7/2/20. Fix ordering bug 11/29/24. |
4 | 5 |
|
5 | 6 | type finufft_opts
|
6 |
| - integer debug, spread_debug,spread_sort,spread_kerevalmeth, |
7 |
| - $ spread_kerpad,chkbnds,fftw,modeord |
8 |
| - real*8 upsampfac |
9 |
| - integer spread_thread,maxbatchsize,showwarn,nthreads, |
10 |
| - $ spread_nthr_atomic,spread_max_sp_size |
11 |
| - integer fftw_lock_fun,fftw_unlock_fun,fftw_lock_data |
| 7 | + |
| 8 | +c data handling opts... |
| 9 | + integer modeord,chkbnds |
| 10 | + |
| 11 | +c diagnostic opts... |
| 12 | + integer debug,spread_debug,showwarn |
| 13 | + |
| 14 | +c alg performance opts... |
| 15 | + integer nthreads,fftw,spread_sort,spread_kerevalmeth,spread_kerpad |
| 16 | + real*8 upsampfac |
| 17 | + integer spread_thread,maxbatchsize,spread_nthr_atomic, |
| 18 | + $ spread_max_sp_size |
| 19 | + integer fftw_lock_fun,fftw_unlock_fun,fftw_lock_data |
| 20 | + |
12 | 21 | end type
|
0 commit comments