--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/_runme_c.sh	Fri Sep 08 21:40:52 2023 +0100
@@ -0,0 +1,102 @@
+#!/bin/bash
+# This runs on the compute nodes...
+# Args: [-a i] wd [-d] [-t nthreads] [-b CMDS] [-i input] CMDS
+# See ug4/azure/notes.txt for documentation
+
+N=$SLURM_JOB_NUM_NODES
+n=$SLURM_NTASKS
+c=$SLURM_CPUS_PER_TASK
+nodename=$SLURMD_NODENAME
+local=$SLURM_LOCALID
+node=$SLURM_NODEID
+task=$SLURM_PROCID
+
+if [ "$1" = "-a" ]
+then
+ shift
+ xarg="$1"
+ shift
+else
+ xarg=
+fi
+ 
+cd "$1"
+shift
+
+if [ "$1" = "-d" ]
+then
+  shift
+  debug=1
+fi
+
+if [ "$1" = "-t" ]
+then
+  shift
+  threadsPerTask=$1
+  shift
+else
+  threadsPerTask=2
+fi
+
+pjobs=$((c / $threadsPerTask))
+
+echo $(date) task $n.$task on $nodename:$N.$node start $pjobs jobs 1>&2
+
+PATH=$W/$USER/bin:$W/shared/bin:$PATH
+export task PATH n xarg
+
+if [ "$1" = "-b" ]
+then
+  shift
+  eval "$1"
+  shift
+fi
+
+input="seq 1 $pjobs" # default to make sure something runs
+
+if [ "$1" = "-i" ]
+then
+ shift
+ input="$1"
+ shift
+ if [ "$debug" ]
+ then
+     echo $(date) task $n.$task input "|$input|"
+ fi
+fi
+
+export cmd="$1"
+shift
+
+doit () {
+ arg="$1"
+ echo $(date) start $task $PARALLEL_SEQ "|$cmd|$xarg|$arg|"
+ eval "$cmd"
+ echo $(date) end $task $PARALLEL_SEQ
+}
+
+export -f doit
+
+if [ "$debug" ]
+then
+ echo $(date) task $n.$task cmd "|$cmd|" doit $(type doit)
+fi
+
+source $HOME/.csing_init
+
+eval "$input" | \
+   if [ "$debug" ]
+   then
+     tee >(cat 1>&2)
+   else
+     cat
+   fi | \
+   if [ $pjobs -le 1 ]
+   then
+    xargs -I ^ -n 1 bash -lc "doit ^"
+   else
+    parallel --line-buffer -j $pjobs doit '{}'
+   fi
+
+echo $(date) task $n.$task on $nodename:$N.$node end 1>&2
+