From e172f898eea5ed9a1866a1dd54d5cb1047a1b55b Mon Sep 17 00:00:00 2001 From: William Dawson Date: Wed, 15 Nov 2023 12:10:29 +0900 Subject: [PATCH] A few more places --- Source/Fortran/CholeskySolversModule.F90 | 4 ++-- Source/Fortran/MatrixReduceModule.F90 | 4 ++-- Source/Fortran/TripletListModule.F90 | 4 ++-- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/Source/Fortran/CholeskySolversModule.F90 b/Source/Fortran/CholeskySolversModule.F90 index d87a270a..babc4b4e 100644 --- a/Source/Fortran/CholeskySolversModule.F90 +++ b/Source/Fortran/CholeskySolversModule.F90 @@ -79,7 +79,7 @@ SUBROUTINE BroadcastVector_r(num_values, indices, values, root, comm) !> Root from which we broadcast. INTEGER, INTENT(IN) :: root !> Communicator to broadcast along. - INTEGER, INTENT(INOUT) :: comm + INTEGER, INTENT(IN) :: comm !! Local INTEGER :: err @@ -153,7 +153,7 @@ SUBROUTINE DotAllHelper_r(num_values_i, indices_i, values_i, num_values_j, & !> The dot product values for each vector j. REAL(NTREAL), DIMENSION(:), INTENT(OUT) :: out_values !> The communicator to reduce along. - INTEGER, INTENT(INOUT) :: comm + INTEGER, INTENT(IN) :: comm #include "solver_includes/DotAllHelper.f90" diff --git a/Source/Fortran/MatrixReduceModule.F90 b/Source/Fortran/MatrixReduceModule.F90 index 7f2d3aaf..3ca55e31 100644 --- a/Source/Fortran/MatrixReduceModule.F90 +++ b/Source/Fortran/MatrixReduceModule.F90 @@ -352,7 +352,7 @@ SUBROUTINE ReduceAndSumMatrixData_lsc(matrix, comm, gathered_matrix, helper) !> The matrix to send. TYPE(Matrix_lsc), INTENT(IN) :: matrix !> The communicator to send along. - INTEGER, INTENT(INOUT) :: comm + INTEGER, INTENT(IN) :: comm !> The matrix we are gathering. TYPE(Matrix_lsc), INTENT(INOUT) :: gathered_matrix !> The helper associated with this gather. @@ -474,7 +474,7 @@ SUBROUTINE ReduceAndSumMatrix_lsc(matrix, comm, gathered_matrix, threshold) !> The matrix to send. TYPE(Matrix_lsc), INTENT(IN) :: matrix !> The communicator to send along. - INTEGER, INTENT(INOUT) :: comm + INTEGER, INTENT(IN) :: comm !> The threshold the threshold for flushing values. TYPE(Matrix_lsc), INTENT(INOUT) :: gathered_matrix !> The threshold the threshold for flushing values. diff --git a/Source/Fortran/TripletListModule.F90 b/Source/Fortran/TripletListModule.F90 index 9caaa264..29c0de68 100644 --- a/Source/Fortran/TripletListModule.F90 +++ b/Source/Fortran/TripletListModule.F90 @@ -331,7 +331,7 @@ SUBROUTINE RedistributeTripletLists_r(triplet_lists, comm, local_data_out) !> A list of triplet lists, one for each process. TYPE(TripletList_r), DIMENSION(:), INTENT(IN) :: triplet_lists !> The mpi communicator to redistribute along. - INTEGER, INTENT(INOUT) :: comm + INTEGER, INTENT(IN) :: comm !> The resulting local triplet list. TYPE(TripletList_r), INTENT(INOUT) :: local_data_out !! Local data (type specific) @@ -352,7 +352,7 @@ SUBROUTINE RedistributeTripletLists_c(triplet_lists, comm, local_data_out) !> A list of triplet lists, one for each process. TYPE(TripletList_c), DIMENSION(:), INTENT(IN) :: triplet_lists !> The mpi communicator to redistribute along. - INTEGER, INTENT(INOUT) :: comm + INTEGER, INTENT(IN) :: comm !> The resulting local triplet list. TYPE(TripletList_c), INTENT(INOUT) :: local_data_out !! Local data (type specific)