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

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 )