|
| integer, parameter | fft_interface::i8 = SELECTED_INT_kind(18) |
| integer, parameter | fft_interface::fft_forward =-1 |
| integer, parameter | fft_interface::fft_backward =1 |
| integer, parameter | fft_interface::maxsubs1 =8 |
| integer, parameter | fft_interface::maxsubs2 =1 |
| integer, parameter | fft_interface::maxplan =16 |
| integer(i8), dimension(maxplan, maxsubs1), save | fft_interface::plan1d |
| type(int_para), dimension(maxplan, maxsubs1), save | fft_interface::n1d_par |
| integer, dimension(maxsubs1), save | fft_interface::n1d_saved =0 |