Check uniform RCO job termination in Motran apps

For the uniform run control object (RCO), check if the number of output
files (i.e., *egsdat, *pardose, etc.) is equal to the number of combined
parallel jobs. If not, then the last job sleeps for a set time
($URC-SLEEP, by default 1 second) and repeats the combining process a
set number of times ($URC-INTERVALS, by default only once).

Previously, the uniform RCO for Mortran apps was in fact identical to
the egs++ simple URC. In that case, the last job combines only those
jobs that finished before it.

Note that the Mortran uniform RCO implementation does not delete
existing output files such as *egsdat and *pardose at the beginning of a
parallel run (as opposed to the egs++ implementation). This could
produce ill effects when re-running a previous calculation with a
modified input file: if not all output files are overwritten (e.g.,
fewer parallel jobs are requested for the new run), then a mix of old
and new output files will be combined.

HEN_HOUSE/src/egs_utilities.mortran

@@ -1012,10 +1012,14 @@ character*1024 tmp_string,base,command,outfile,parfile_name,base1,
            text_string;
 integer  lnblnk1,istat,ipar,egs_system,egs_open_file;
 $INTEGER i,k,j,numparfiles,textindex;
+integer urcSleep, urcCheckIntervals;
 $LOGICAL ex,iwin;
 
 iwin=.false.; "start off assuming a non-Windows system"
 
+urcSleep          = $URC-SLEEP;    "Set to 1 s in egsnrc.macros"
+urcCheckIntervals = $URC-INTERVALS;"Set to 1 in egsnrc.macros"
+
 $set_string(base,' ');
 base = $cstring(egs_home) // $cstring(user_code) // $file_sep //
        $cstring(output_file) // '_w';
@@ -1028,6 +1032,8 @@ base1 = $cstring(egs_home) // $cstring(user_code) // $file_sep //
 $set_string(outfile,' ');
 outfile = $cstring(egs_home) // $cstring(user_code) // $file_sep //
        'parfiles_tmp';
+
+:check-output-files:;
 "try Unix/Linux first"
 $set_string(command,' ');
 command = 'ls ' // $cstring(base1) // ' | wc -l > ' // $cstring(outfile);
@@ -1037,7 +1043,8 @@ IF(istat~=0)["now assume a Windows system"
    $cstring(outfile);
    istat = egs_system($cstring(command));
    IF(istat~=0)[
-$egs_fatal(*,' Failed to write number of output files from parallel runs.');
+     $egs_fatal(*,
+     ' Failed to write number of output files from parallel runs.');
    ]
    ELSE [
      iwin=.true.;
@@ -1060,6 +1067,14 @@ ELSE[
 ]
 close(ipar);
 
+#ifdef HAVE_C_COMPILER;
+IF ( is_uniform_run & numparfiles < n_parallel & urcCheckIntervals > 0 ) [
+   call egs_sleep(urcSleep);"sleep for urcSleep seconds"
+   urcCheckIntervals -= 1;
+   goto :check-output-files:;
+]
+#endif;
+
 "now remove parfiles_tmp"
 $set_string(command,' ');
 

HEN_HOUSE/src/egsnrc.macros

@@ -2315,6 +2315,12 @@ REPLACE {$EADL-RELAX-DEFAULT} WITH {.true.}
 "Uniform Run Control (URC) is false by default"
 REPLACE {$URC-DEFAULT} WITH {.false.}
 ;
+"SLEEP INTERVAL for URC (1 s by default)"
+"Time to wait for jobs to complete after last job finished"
+REPLACE {$URC-SLEEP} WITH {1}
+"Times to check for jobs to complete after last job finished"
+REPLACE {$URC-INTERVALS} WITH {1}
+;
 "Sabbatucci and Salvat PE xsections not the default yet"
 REPLACE {$MCDF-PE-DEFAULT} WITH {.false.}
 ;