Skip to content
Snippets Groups Projects
Commit b5a8aea3 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 22/05/2023: FFT: fix (missing END IF)

parent d7486da4
No related branches found
No related tags found
1 merge request!4Jean Wurtz 30/04/2025 : Bugfixes mainly for TEB and for simple precision
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 0 deletions
src/MNH/fft55.f90
+ 2
− 0
View file @ b5a8aea3
...@@ -132,6 +132,8 @@ IF (MPPDB_INITIALIZED) THEN ...@@ -132,6 +132,8 @@ IF (MPPDB_INITIALIZED) THEN
CALL MPPDB_CHECK( KIFAX, "FFT55 beg:KIFAX" ) CALL MPPDB_CHECK( KIFAX, "FFT55 beg:KIFAX" )
!Check all INOUT arrays !Check all INOUT arrays
CALL MPPDB_CHECK( PA, "FFT55 beg:PA" ) CALL MPPDB_CHECK( PA, "FFT55 beg:PA" )
END IF
IF ( .NOT. L2D ) THEN IF ( .NOT. L2D ) THEN
IJUMP = SIZE( PA, 1 ) IJUMP = SIZE( PA, 1 )
ILOT = SIZE( PA, 2 ) * SIZE( PA, 3 ) ILOT = SIZE( PA, 2 ) * SIZE( PA, 3 )
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme