A few more places

william-dawson · Nov 15, 2023 · e172f89 · e172f89
1 parent 61b678a
commit e172f89
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git 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
@@ -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
@@ -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)