Changeset 15838 for issm/trunk-jpl/src/c/analyses/DakotaSpawnCore.cpp

Timestamp:

08/19/13 15:15:59 (12 years ago)

Author:

Eric.Larour

Message:

CHG: initial conversion from mpi to issmmpi layer. Starting validation of the new code changes

File:

• issm/trunk-jpl/src/c/analyses/DakotaSpawnCore.cpp (modified) (3 diffs)

issm/trunk-jpl/src/c/analyses/DakotaSpawnCore.cpp ¶

@@ -49 +49 @@
 
         /*If counter==-1 on cpu0, it means that the dakota runs are done. In which case, bail out and return 0: */
-        #ifdef _HAVE_MPI_
-        MPI_Bcast(&counter,1,MPI_INT,0,IssmComm::GetComm()); 
-        #endif
+        ISSM_MPI_Bcast(&counter,1,ISSM_MPI_INT,0,IssmComm::GetComm()); 
         if(counter==-1)return 0;
 
@@ -116 +114 @@
 
         /*numvariables: */
-        MPI_Bcast(&numvariables,1,MPI_INT,0,IssmComm::GetComm()); 
+        ISSM_MPI_Bcast(&numvariables,1,ISSM_MPI_INT,0,IssmComm::GetComm()); 
 
         /*variables:*/
         if(my_rank!=0)variables=xNew<double>(numvariables);
-        MPI_Bcast(variables,numvariables,MPI_DOUBLE,0,IssmComm::GetComm()); 
+        ISSM_MPI_Bcast(variables,numvariables,MPI_DOUBLE,0,IssmComm::GetComm()); 
 
         /*variables_descriptors: */
@@ -131 +129 @@
                         string_length=(strlen(string)+1)*sizeof(char);
                 }
-                MPI_Bcast(&string_length,1,MPI_INT,0,IssmComm::GetComm()); 
+                ISSM_MPI_Bcast(&string_length,1,ISSM_MPI_INT,0,IssmComm::GetComm()); 
                 if(my_rank!=0)string=xNew<char>(string_length);
-                MPI_Bcast(string,string_length,MPI_CHAR,0,IssmComm::GetComm()); 
+                ISSM_MPI_Bcast(string,string_length,ISSM_MPI_CHAR,0,IssmComm::GetComm()); 
                 if(my_rank!=0)variables_descriptors[i]=string;
         }
 
         /*numresponses: */
-        MPI_Bcast(&numresponses,1,MPI_INT,0,IssmComm::GetComm()); 
+        ISSM_MPI_Bcast(&numresponses,1,ISSM_MPI_INT,0,IssmComm::GetComm()); 
 
         /*Assign output pointers:*/