+
+HAVE_SEQ="`which seq`"
+HAVE_JOT="`which jot`"
+
+if [ -n "${HAVE_SEQ}" ]; then
+ SEQ=`${HAVE_SEQ} 0 $((${NUMPROCS}-1))`
+else
+ cnt=0
+ while (( $cnt < ${NUMPROCS} )) ; do
+ SEQ="$SEQ $cnt"
+ cnt=$((cnt + 1));
+ done
+fi
+
+##---- generate <process> tags------------------------------
+
+for i in ${SEQ}
+do
+ if [ -n "${HOSTFILE}" ]; then
+ j=$(( $i % ${NUMHOSTS} ))
+ fi
+ ##---- optional display of ranks to process mapping
+ if [ -n "${MAPOPT}" ]; then
+ echo "[rank $i] -> ${hostnames[$j]}"
+ fi
+