- Timestamp:
- 06/01/12 17:26:03 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/src/c/modules/ElementResponsex/ElementResponsex.cpp
r10703 r12330 37 37 38 38 /*Broadcast whether we found the element: */ 39 #ifdef _HAVE_MPI_ 39 40 MPI_Allreduce ( &found,&sumfound,1,MPI_INT,MPI_SUM,MPI_COMM_WORLD); 40 41 if(!sumfound)_error_("%s%i%s","could not find material with id",index," to compute ElementResponse"); 42 #endif 41 43 42 44 /*Ok, we found the element, compute responseocity: */ … … 46 48 47 49 /*Broadcast and plug into response: */ 50 #ifdef _HAVE_MPI_ 48 51 MPI_Allreduce ( &cpu_found,&cpu_found,1,MPI_INT,MPI_MAX,MPI_COMM_WORLD); 49 52 MPI_Bcast(&response,1,MPI_DOUBLE,cpu_found,MPI_COMM_WORLD); 53 #endif 50 54 51 55 *presponse=response;
Note:
See TracChangeset
for help on using the changeset viewer.