void POMP_End(struct ompregdescr* r) { struct VTRegDescr* data = (struct VTRegDescr*)(r->data); if ( IS_POMP_TRACE_ON ) { uint64_t time; time = vt_pform_wtime(); vt_exit(VT_CURRENT_THREAD, &time); } if ( data->rid == main_rid ) POMP_Finalize(); }
VT_DECLDEF(void POMP_Finalize_f(void)) { POMP_Finalize(); } VT_GENERATE_F77_BINDINGS(pomp_finalize, POMP_FINALIZE,