From a8c67f701e16d29b42a2acfbde69538806c87fdb Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Tue, 8 Dec 2020 17:08:02 +0100
Subject: [PATCH] adapted for opt Sapj
---
src/fourier_mod.F90 | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/src/fourier_mod.F90 b/src/fourier_mod.F90
index 10247619..f1d4eb1b 100644
--- a/src/fourier_mod.F90
+++ b/src/fourier_mod.F90
@@ -13,11 +13,11 @@ MODULE fourier
PUBLIC :: init_grid_distr_and_plans, convolve_2D_F2F, finalize_plans
- real(C_DOUBLE), pointer :: real_data_f(:,:), real_data_g(:,:), real_data_c(:,:)
- complex(C_DOUBLE_complex), pointer :: cmpx_data_f(:,:), cmpx_data_g(:,:), cmpx_data_c(:,:)
+ real(C_DOUBLE), pointer, PUBLIC :: real_data_f(:,:), real_data_g(:,:), real_data_c(:,:)
+ complex(C_DOUBLE_complex), pointer, PUBLIC :: cmpx_data_f(:,:), cmpx_data_g(:,:), cmpx_data_c(:,:)
type(C_PTR) :: cdatar_f, cdatar_g, cdatar_c
type(C_PTR) :: cdatac_f, cdatac_g, cdatac_c
- type(C_PTR) :: planf, planb
+ type(C_PTR) , PUBLIC :: planf, planb
integer(C_INTPTR_T) :: i, ix, iy, alloc_local_1, alloc_local_2
integer(C_INTPTR_T) :: NR_, NZ_
@@ -98,7 +98,6 @@ MODULE fourier
end do
end do
-
END SUBROUTINE convolve_2D_F2F
SUBROUTINE finalize_plans
--
GitLab