diff --git a/src/MNH/fft55.f90 b/src/MNH/fft55.f90
index 02baa21a17fb3a4df4e277a494272dd40a1daaaa..805c050246737287c2decdd383c3aab6f5ffe1ed 100644
--- a/src/MNH/fft55.f90
+++ b/src/MNH/fft55.f90
@@ -132,6 +132,8 @@ IF (MPPDB_INITIALIZED) THEN
   CALL MPPDB_CHECK( KIFAX, "FFT55 beg:KIFAX" )
   !Check all INOUT arrays
   CALL MPPDB_CHECK( PA, "FFT55 beg:PA" )
+END IF
+
 IF ( .NOT. L2D ) THEN
   IJUMP = SIZE( PA, 1 )
   ILOT  = SIZE( PA, 2 ) * SIZE( PA, 3 )