Remove unsed parameter

Author: alazzaro

src/dbcsr.h

@@ -340,14 +340,7 @@ void c_dbcsr_get_info(const dbcsr_matrix c_matrix, int* c_nblkrows_total, int* c
 
               void c_dbcsr_binary_write(const dbcsr_matrix c_matrix, const char* c_filepath);
 
-              void c_dbcsr_binary_read_aux(
-                const char* c_filepath, dbcsr_distribution c_distribution, MPI_Fint c_groupid, dbcsr_matrix* c_matrix_new);
-
-              inline void c_dbcsr_binary_read(
-                const char* c_filepath, dbcsr_distribution c_distribution, MPI_Comm comm, dbcsr_matrix* c_matrix_new) {
-                MPI_Fint fcomm = MPI_Comm_c2f(comm);
-                c_dbcsr_binary_read_aux(c_filepath, c_distribution, fcomm, c_matrix_new);
-              }
+              void c_dbcsr_binary_read(const char* c_filepath, dbcsr_distribution c_distribution, dbcsr_matrix* c_matrix_new);
 
               void c_free_string(char** c_string);
 

src/dbcsr_api.F

@@ -1044,17 +1044,12 @@ SUBROUTINE dbcsr_binary_write(matrix, filepath)
       CALL dbcsr_binary_write_prv(matrix%prv, filepath)
    END SUBROUTINE dbcsr_binary_write
 
-   SUBROUTINE dbcsr_binary_read(filepath, distribution, groupid, matrix_new)
+   SUBROUTINE dbcsr_binary_read(filepath, distribution, matrix_new)
       CHARACTER(len=*), INTENT(IN)                       :: filepath
       TYPE(dbcsr_distribution_type), INTENT(IN)          :: distribution
-      INTEGER, INTENT(IN), OPTIONAL                      :: groupid
       TYPE(dbcsr_type), INTENT(INOUT)                    :: matrix_new
 
-      TYPE(mp_comm_type)                                 :: my_comm
-
-      CALL my_comm%set_handle(groupid)
-
-      CALL dbcsr_binary_read_prv(filepath, distribution%prv, my_comm, matrix_new%prv)
+      CALL dbcsr_binary_read_prv(filepath, distribution%prv, matrix_new%prv)
    END SUBROUTINE dbcsr_binary_read
 
    SUBROUTINE dbcsr_copy(matrix_b, matrix_a, name, keep_sparsity, &

src/dbcsr_api_c.F

@@ -1670,11 +1670,10 @@ SUBROUTINE c_dbcsr_binary_write(c_matrix, c_filepath) &
       CALL dbcsr_binary_write(matrix, filepath)
    END SUBROUTINE
 
-   SUBROUTINE c_dbcsr_binary_read(c_filepath, c_distribution, c_groupid, c_matrix_new) &
-      BIND(C, name="c_dbcsr_binary_read_aux")
+   SUBROUTINE c_dbcsr_binary_read(c_filepath, c_distribution, c_matrix_new) &
+      BIND(C, name="c_dbcsr_binary_read")
 
       TYPE(c_ptr), INTENT(IN), VALUE :: c_filepath, c_distribution
-      INTEGER(kind=c_int), INTENT(IN), VALUE :: c_groupid
       TYPE(c_ptr), INTENT(INOUT) :: c_matrix_new
 
       CHARACTER(:, kind=c_char), ALLOCATABLE :: filepath
@@ -1685,7 +1684,7 @@ SUBROUTINE c_dbcsr_binary_read(c_filepath, c_distribution, c_groupid, c_matrix_n
       CALL c_f_pointer(c_distribution, distribution)
       ALLOCATE (matrix_new)
 
-      CALL dbcsr_binary_read(filepath, distribution, c_groupid, matrix_new)
+      CALL dbcsr_binary_read(filepath, distribution, matrix_new)
       c_matrix_new = c_loc(matrix_new)
    END SUBROUTINE
 

src/ops/dbcsr_io.F

@@ -754,7 +754,7 @@ SUBROUTINE cumsum_l(arr, cumsum)
       END SUBROUTINE cumsum_l
    END SUBROUTINE dbcsr_binary_write
 
-   SUBROUTINE dbcsr_binary_read(filepath, distribution, groupid, matrix_new)
+   SUBROUTINE dbcsr_binary_read(filepath, distribution, matrix_new)
       !! Reads a DBCSR matrix from a file
 
       IMPLICIT NONE
@@ -763,8 +763,6 @@ SUBROUTINE dbcsr_binary_read(filepath, distribution, groupid, matrix_new)
          !! path to the file
       TYPE(dbcsr_distribution_obj), INTENT(IN)     :: distribution
          !! row and column distribution
-      TYPE(mp_comm_type), INTENT(IN), OPTIONAL                :: groupid
-         !! message passing environment identifier
       TYPE(dbcsr_type), INTENT(INOUT)               :: matrix_new
          !! DBCSR matrix
 
@@ -817,12 +815,8 @@ SUBROUTINE dbcsr_binary_read(filepath, distribution, groupid, matrix_new)
 
       CALL timeset(routineN, handle)
 
-      IF (PRESENT(groupid)) THEN
-         group_id = groupid
-      ELSE
-         mp_env = dbcsr_distribution_mp(distribution)
-         group_id = dbcsr_mp_group(mp_env)
-      END IF
+      mp_env = dbcsr_distribution_mp(distribution)
+      group_id = dbcsr_mp_group(mp_env)
 
       CALL mp_environ(group_list_size, worker_id, group_id)
       CALL mp_file_open(group_id, thefile, filepath, file_amode_rdonly)