Changeset 22591

Timestamp:

03/21/18 10:16:53 (7 years ago)

Author:

erobo

Message:

CHG: allow adolc to use mumpssolver

File:

• issm/trunk-jpl/src/c/toolkits/issm/IssmMpiVec.h (modified) (3 diffs)

issm/trunk-jpl/src/c/toolkits/issm/IssmMpiVec.h

@@ -250 +250 @@
                         for(i=0;i<num_procs;i++){
                                 ISSM_MPI_Scatterv( row_indices_forcpu, sendcnts, displs, ISSM_MPI_INT, row_indices_fromcpu[i], numvalues_fromcpu[i], ISSM_MPI_INT, i, comm);
-                                ISSM_MPI_Scatterv( values_forcpu, sendcnts, displs, ISSM_MPI_DOUBLE, values_fromcpu[i], numvalues_fromcpu[i], ISSM_MPI_DOUBLE, i, comm);
+                                ISSM_MPI_Scatterv( values_forcpu, sendcnts, displs, TypeToMPIType<doubletype>(), values_fromcpu[i], numvalues_fromcpu[i], TypeToMPIType<doubletype>(), i, comm);
                                 ISSM_MPI_Scatterv( modes_forcpu, sendcnts, displs, ISSM_MPI_INT, modes_fromcpu[i], numvalues_fromcpu[i], ISSM_MPI_INT, i, comm);
                         }
@@ -401 +401 @@
                         comm=IssmComm::GetComm();
                         num_procs=IssmComm::GetSize();
+
 
                         /*Allocate: */
@@ -424 +425 @@
 
                         /*All gather:*/
-                        ISSM_MPI_Allgatherv(this->vector, this->m, ISSM_MPI_DOUBLE, buffer, recvcounts, displs, ISSM_MPI_DOUBLE,comm);
-
+                        ISSM_MPI_Allgatherv(this->vector, this->m, TypeToMPIType<doubletype>(), buffer, recvcounts, displs, TypeToMPIType<doubletype>(),comm);
                         /*free ressources: */
                         xDelete<int>(recvcounts);