From b5a8aea3f912be881c0e379dc5c59cacbbca82ca Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 22 May 2023 16:41:39 +0200
Subject: [PATCH] Philippe 22/05/2023: FFT: fix (missing END IF)

---
 src/MNH/fft55.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/MNH/fft55.f90 b/src/MNH/fft55.f90
index 02baa21a1..805c05024 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 )
-- 
GitLab