diff options
-rw-r--r-- | src/f1.f90 | 2 |
1 files changed, 0 insertions, 2 deletions
@@ -56,8 +56,6 @@ PROGRAM test t = (i - 1) * delta + start arr_real(i) = real(f1(t), C_DOUBLE) -! write(*,*) t, " ", arr_real(i) - END DO call fftw_execute_dft_r2c(plan, arr_real, arr_complex) |