Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • TabularUnified issm/trunk-jpl/src/c/analyses/DakotaSpawnCore.cpp

    r15104 r15838  
    4949
    5050        /*If counter==-1 on cpu0, it means that the dakota runs are done. In which case, bail out and return 0: */
    51         #ifdef _HAVE_MPI_
    52         MPI_Bcast(&counter,1,MPI_INT,0,IssmComm::GetComm());
    53         #endif
     51        ISSM_MPI_Bcast(&counter,1,ISSM_MPI_INT,0,IssmComm::GetComm());
    5452        if(counter==-1)return 0;
    5553
     
    116114
    117115        /*numvariables: */
    118         MPI_Bcast(&numvariables,1,MPI_INT,0,IssmComm::GetComm());
     116        ISSM_MPI_Bcast(&numvariables,1,ISSM_MPI_INT,0,IssmComm::GetComm());
    119117
    120118        /*variables:*/
    121119        if(my_rank!=0)variables=xNew<double>(numvariables);
    122         MPI_Bcast(variables,numvariables,MPI_DOUBLE,0,IssmComm::GetComm());
     120        ISSM_MPI_Bcast(variables,numvariables,MPI_DOUBLE,0,IssmComm::GetComm());
    123121
    124122        /*variables_descriptors: */
     
    131129                        string_length=(strlen(string)+1)*sizeof(char);
    132130                }
    133                 MPI_Bcast(&string_length,1,MPI_INT,0,IssmComm::GetComm());
     131                ISSM_MPI_Bcast(&string_length,1,ISSM_MPI_INT,0,IssmComm::GetComm());
    134132                if(my_rank!=0)string=xNew<char>(string_length);
    135                 MPI_Bcast(string,string_length,MPI_CHAR,0,IssmComm::GetComm());
     133                ISSM_MPI_Bcast(string,string_length,ISSM_MPI_CHAR,0,IssmComm::GetComm());
    136134                if(my_rank!=0)variables_descriptors[i]=string;
    137135        }
    138136
    139137        /*numresponses: */
    140         MPI_Bcast(&numresponses,1,MPI_INT,0,IssmComm::GetComm());
     138        ISSM_MPI_Bcast(&numresponses,1,ISSM_MPI_INT,0,IssmComm::GetComm());
    141139
    142140        /*Assign output pointers:*/
Note: See TracChangeset for help on using the changeset viewer.