static int plm_slurm_terminate_job(orte_jobid_t jobid) { int rc; /* order them to kill their local procs for this job */ if (ORTE_SUCCESS != (rc = orte_plm_base_orted_kill_local_procs(jobid))) { ORTE_ERROR_LOG(rc); } return rc; }
int orte_plm_base_orted_terminate_job(orte_jobid_t jobid) { opal_pointer_array_t procs; orte_proc_t proc; int rc; OPAL_OUTPUT_VERBOSE((5, orte_plm_base_framework.framework_output, "%s plm:base:orted_terminate job %s", ORTE_NAME_PRINT(ORTE_PROC_MY_NAME), ORTE_JOBID_PRINT(jobid))); OBJ_CONSTRUCT(&procs, opal_pointer_array_t); opal_pointer_array_init(&procs, 1, 1, 1); OBJ_CONSTRUCT(&proc, orte_proc_t); proc.name.jobid = jobid; proc.name.vpid = ORTE_VPID_WILDCARD; opal_pointer_array_add(&procs, &proc); if (ORTE_SUCCESS != (rc = orte_plm_base_orted_kill_local_procs(&procs))) { ORTE_ERROR_LOG(rc); } OBJ_DESTRUCT(&procs); OBJ_DESTRUCT(&proc); return rc; }