From a7e5aec479e557676179897d371122a7d231a7d3 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 22 May 2023 10:05:33 +0200
Subject: [PATCH] Philippe 22/05/2023: FFT: fix for: remove unused dummy
arguments for FFT991
---
src/MNH/fft55.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/MNH/fft55.f90 b/src/MNH/fft55.f90
index cc156f8a0..5e677ef09 100644
--- a/src/MNH/fft55.f90
+++ b/src/MNH/fft55.f90
@@ -214,7 +214,7 @@ IF (KISIGN.EQ.1) THEN
!
IIS=-1
IIA=ISTART
- CALL FFT991(ZA(IIA:),ZWORK(:),PTRIGS,KIFAX,KJUMP,KN,INVEX,IIS,SIZE(ZA(IIA:)),SIZE(ZWORK(:)),SIZE(PTRIGS))
+ CALL FFT991( ZA(IIA:), ZWORK(:), PTRIGS, KIFAX, KJUMP, KN, INVEX, IIS )
!
! 2.3 postprocessing
! --------------
@@ -293,7 +293,7 @@ ELSE
!
IIA=ISTART
IIS=1
- CALL FFT991(ZA(IIA:),ZWORK(:),PTRIGS,KIFAX,KJUMP,KN,INVEX,IIS,SIZE(ZA(IIA:)),SIZE(ZWORK(:)),SIZE(PTRIGS))
+ CALL FFT991( ZA(IIA:), ZWORK(:), PTRIGS, KIFAX, KJUMP, KN, INVEX, IIS )
!
! 3.3 postprocessing
! --------------
--
GitLab