diff --git a/src/ZSOLVER/tensorproductmultigrid_Source/conjugategradient.f90 b/src/ZSOLVER/tensorproductmultigrid_Source/conjugategradient.f90 index 34eacb6b86a7cf47e41a6b14a08ea2685e8c7206..d6f883a98a348630a0c5cb84ea5fa811953ae43f 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