Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/filtrez

Timestamp:

Jul 20, 2024, 12:00:23 PM (7 months ago)

Author:

abarral

Message:

remove fixed-form ^{\s+& remaining in .f90,.F90}

File:

• LMDZ6/branches/Amaury_dev/libf/filtrez/mod_fft_fftw.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/filtrez/mod_fft_fftw.F90

@@ -58 +58 @@
 
        CALL dfftw_plan_many_dft_r2c(plan_forward(itmp), rank, n_array, howmany, &
-            & dbidon, inembed, istride, idist, &
-            & cbidon, onembed, ostride, odist, &
-            & FFTW_ESTIMATE)
+   dbidon, inembed, istride, idist, &
+   cbidon, onembed, ostride, odist, &
+   FFTW_ESTIMATE)
 
        rank       = 1
@@ -69 +69 @@
        idist      = iim/2 + 1 ; odist      = iim + 1
        CALL dfftw_plan_many_dft_c2r(plan_backward(itmp), rank, n_array, howmany, &
-            & cbidon, inembed, istride, idist, &
-            & dbidon, onembed, ostride, odist, &
-            & FFTW_ESTIMATE)
+   cbidon, inembed, istride, idist, &
+   dbidon, onembed, ostride, odist, &
+   FFTW_ESTIMATE)
 
     ENDDO