int mod_mpi_output(ipm_mod_t* mod, int oflags) { unsigned long reportflags; reportflags=0; #ifdef HAVE_CLUSTERING reportflags|=XML_CLUSTERED; reportflags|=XML_RELATIVE_RANKS; #endif if( (task.flags&FLAG_LOG_TERSE) || (task.flags&FLAG_LOG_FULL) ) { report_set_filename(); if( (task.flags&FLAG_LOGWRITER_MPIIO) ) { if( report_xml_mpiio(reportflags)!=IPM_OK ) { IPMERR("Writing log using MPI-IO failed, trying serial\n"); report_xml_atroot(reportflags); } } else { report_xml_atroot(reportflags); } } return IPM_OK; }
void ipm_write_profile_log() { unsigned long reportflags; reportflags=0; #ifdef HAVE_CLUSTERING reportflags|=XML_CLUSTERED; reportflags|=XML_RELATIVE_RANKS; #endif #ifdef HAVE_MPI if( (task.flags&FLAG_LOG_TERSE) || (task.flags&FLAG_LOG_FULL) ) { report_set_filename(); if( (task.flags&FLAG_LOGWRITER_MPIIO) ) { if( report_xml_mpiio(reportflags)!=IPM_OK ) { IPMERR("Writing log using MPI-IO failed, trying serial\n"); report_xml_atroot(reportflags); } } else { report_xml_atroot(reportflags); } } #else /* HAVE_MPI */ report_xml_local(reportflags); #endif /* HAVE_MPI */ }