max/poet
1
0
Fork 0
mirror of https://git.gfz-potsdam.de/naaice/poet.git synced 2025-12-16 12:54:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

refactor: conversion from R into C++ buffer inside worker function

Browse Source
This commit is contained in:
Max Lübke 2022-11-03 12:25:03 +01:00
parent bf9f369846
commit d406409fae
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ChemWorker.cpp
View File

@ -240,7 +240,17 @@ void ChemWorker::doWork(MPI_Status &probe_status) {
}
/* convert grid to C domain */
grid.exportWP(mpi_buffer_results);
std::vector<std::vector<double>> output =
Rcpp::as<std::vector<std::vector<double>>>(R.parseEval("result_full"));
for (size_t i = 0; i < rowCount; i++) {
for (size_t j = 0; j < colCount; j++) {
mpi_buffer_results[i * colCount + j] = output[j][i];
}
}
//grid.exportWP(mpi_buffer_results);
/* send results to master */
MPI_Request send_req;
MPI_Isend(mpi_buffer_results, count, MPI_DOUBLE, 0, TAG_WORK, MPI_COMM_WORLD,