From 19746ab2e399b0f539b4a8f3d6ba7aa086f97135 Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Thu, 18 Nov 2021 12:29:59 +0100
Subject: [PATCH] Juan 18/11/2021:conjugategradient.f90, Pb with crayftn
compiler => remove comment=&
(cherry picked from commit 2003e5d4ed75006be8fe02a4dfc176e71b9ed859)
---
.../tensorproductmultigrid_Source/conjugategradient.f90 | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/ZSOLVER/tensorproductmultigrid_Source/conjugategradient.f90 b/src/ZSOLVER/tensorproductmultigrid_Source/conjugategradient.f90
index 34eacb6b8..d6f883a98 100644
--- a/src/ZSOLVER/tensorproductmultigrid_Source/conjugategradient.f90
+++ b/src/ZSOLVER/tensorproductmultigrid_Source/conjugategradient.f90
@@ -77,8 +77,9 @@ contains
!==================================================================
! Initialise conjugate gradient module,
!==================================================================
- subroutine cg_initialise(cg_param_in) & ! Conjugate gradient
- & ! parameters
+ subroutine cg_initialise(cg_param_in) ! Conjugate gradient
+ ! parameters
+
implicit none
type(cg_parameters), intent(in) :: cg_param_in
--
GitLab