bin/mpigammarun

   1 #! /bin/sh
   2 #
   3 # Giuseppe Ciaccio 15 November 2000
   4 # This script is derived from the mpirun.args original script of MPICH .
   5 #
   6 hasprinthelp=1
   7 progname=
   8 cmdLineArgs=
   9 machineFile=
  10 machineFileArg=
  11 fake_progname=
  12 np=1
  13 mpirun_verbose=0
  14 just_testing=0
  15 machineFileArg=
  16 machineFile=
  17 Show=eval
  18 #
  19 PrintHelp() {
  20 #
  21 # If you change this, make the corresponding changes in README so that
  22 # the man pages are updated.
  23 #
  24 cat <<EOF
  25 mpirun [mpirun_options...] <progname> [options...]
  26
  27   mpirun_options:
  28     -h      This help
  29     -machinefile <machine-file name>
  30             The file is a list of machines to be involved in the job run.
  31             Local machine is always involved (and hosts instance #0).
  32             Default machine file is /etc/gamma.conf
  33     -np <np>
  34             specify the number of process instances to be generated.
  35     -t      Testing - do not actually run, just print what would be
  36             executed
  37     -v      Verbose - throw in some comments
  38
  39 Multiple architectures as well as multiple pathnames for the executables
  40 cannot be handled yet.
  41
  42 EOF
  43 }
  44
  45 while [ 1 -le $# ] ; do
  46   arg=$1
  47   #echo $arg
  48   #echo $#
  49   shift
  50   case $arg in
  51      -arch)
  52         shift
  53         ;;
  54     -np)
  55         np="$1"
  56         nodigits=`echo $np | sed 's/^[0-9]*$//'`
  57         if [ "$nodigits" != "" -o $np -lt 1 ] ; then
  58            echo np: $np is an invalid number of processors.  Exiting.
  59            exit 1
  60         fi
  61         shift
  62         ;;
  63     -machine)
  64         shift
  65         ;;
  66     -machinefile)
  67         machineFileArg="-machinefile"
  68         machineFile="$1"
  69         shift
  70         ;;
  71     -device)
  72         shift
  73         ;;
  74     -stdin)
  75         shift
  76         ;;
  77     -stdout)
  78         shift
  79         ;;
  80     -stderr)
  81         shift
  82         ;;
  83     -nolocal)
  84         ;;
  85     -h)
  86         if [ "$hasprinthelp" = 1 ] ; then
  87            PrintHelp
  88         fi
  89         exit 1
  90         ;;
  91     -e)
  92         ;;
  93     -pg)
  94         ;;
  95     -leave_pg|-keep_pg)
  96         ;;
  97     -batch)
  98         ;;
  99     -jid)
 100         shift
 101         ;;
 102     -globusrsl)
 103         shift
 104         ;;
 105     -globusdb)
 106         shift
 107         ;;
 108     -globusargs)
 109         shift
 110         ;;
 111     -p4pg)
 112         shift
 113         ;;
 114     -p4wd)
 115         shift
 116         ;;
 117     -tcppg)
 118         shift
 119         ;;
 120     -p4ssport)
 121         shift
 122         ;;
 123     -paragontype)
 124         shift
 125         ;;
 126     -paragonname)
 127         shift
 128         ;;
 129     -paragonpn)
 130         shift
 131         ;;
 132     -v)
 133         mpirun_verbose=1
 134         ;;
 135     -t)
 136         just_testing=1
 137         Show=echo
 138         ;;
 139     -tv|-totalview)
 140         ;;
 141     -ksq)
 142         ;;
 143     -dbx)
 144         ;;
 145     -gdb)
 146         ;;
 147     -xxgdb)
 148         ;;
 149     -ddd)
 150         ;;
 151     -pedb)
 152         ;;
 153     -nopoll)
 154         ;;
 155     -maxtime|-cpu)
 156         shift
 157         ;;
 158     -mem)
 159         shift
 160         ;;
 161     -mvhome)
 162         ;;
 163     -mvback)
 164         shift
 165         ;;
 166     -cac)
 167         shift
 168         ;;
 169     -echo)
 170         ;;
 171     -usage|-help|-\?)
 172         # Accept these for help until the program name is provided.
 173         if [ "$progname" = "" ] ; then
 174            if [ "$hasprinthelp" = "1" ] ; then
 175               PrintHelp
 176            fi
 177            exit 1
 178         fi
 179         ;;
 180     *)
 181         # The first unrecognized argument is assumed to be the name of
 182         # the program, but only if it is executable
 183         proginstance=`echo $arg | sed "s/%a/$arch/g"`
 184         if [ "$progname" = "" -a "$fake_progname" = "" -a \
 185                 ! -x "$proginstance" ] ; then
 186             fake_progname="$arg"
 187         elif [ "$progname" = "" -a -x "$proginstance" ] ; then
 188             progname="$arg"
 189             # any following unrecognized arguments are assumed to be arguments
 190             # to be passed to the program, as well as all future args
 191             while [ 1 -le $# ] ; do
 192                cmdLineArgs="$cmdLineArgs $1"
 193                shift
 194             done
 195          else
 196             echo "Warning: Command line arguments for program should be given"
 197             echo "after the program name.  Assuming that $arg is a"
 198             echo "command line argument for the program."
 199             cmdLineArgsExecer="$cmdLineArgsExecer -arg=$arg"
 200             cmdLineArgs="$cmdLineArgs $arg"
 201          fi
 202       ;;
 203   esac
 204 done
 205
 206 # We need at least the program name
 207
 208 if [ "$progname" = "" ] ; then
 209   echo "Missing: program name"
 210   if [ "$fake_progname" != "" ] ; then
 211       echo "Program $fake_progname either does not exist, is not "
 212       echo "executable, or is an erroneous argument to mpirun."
 213   fi
 214   exit 1
 215 fi
 216 #
 217 # Fill out relative program pathnames
 218 #
 219 # Get the current directory
 220 # Note that PWD may NOT be `pwd` if an explicit "cd", outside of the csh
 221 # shell, is used.  A downside of this is that PWD may have a more reasonable
 222 # version of the path.  To try and fix this, we create a test file and see
 223 # if it is accessible from PWD and pwd; if so, we take the PWD value
 224 #
 225 # Why can't automounters work!???!!
 226 #
 227 # For those unfamiliar with the problem, the automounter creates
 228 # paths like /tmp_mnt/.... .  But if you try to open a file with that path,
 229 # and the ACTUAL path has not been accessed before, the automounter fails
 230 # to mount the partition.  In otherwords, the automounter is so mind-bogglingly
 231 # stupid as to not recognize its OWN MOUNTS.  Network computing indeed.
 232 #
 233 # Note that PWD may ALSO be damaged, so we need to sed PWD as well...
 234 #
 235 # We should move this to the point in the code where it needs to know a
 236 # particular filename, since this will fail if the directory is not
 237 # writable by the user.
 238 #
 239 if [ -n "sed -e s@/tmp_mnt/@/@g" ] ; then
 240     PWDtest=`pwd | sed -e s@/tmp_mnt/@/@g`
 241     if [ ! -d $PWDtest ] ; then
 242         PWDtest=`pwd`
 243     fi
 244     if [ -n "$PWD" ] ; then
 245         # Use a process-specific filename
 246         PWDtest2=`echo $PWD | sed -e s@/tmp_mnt/@/@g`
 247         /bin/rm -f $PWDtest/.mpirtmp$$ $PWDtest2/.mpirtmp$$
 248         if `eval "echo test > $PWDtest2/.mpirtmp$$" 2>/dev/null` ; then
 249             if [ ! -s $PWDtest/.mpirtmp$$ ] ; then
 250                 /bin/rm -f $PWDtest2/.mpirtmp$$
 251                 PWD=$PWDtest
 252             else
 253                 PWD=$PWDtest2
 254             fi
 255         else
 256             # Current directory is not writable.  Hope for the best
 257             PWD=$PWDtest
 258         fi
 259         /bin/rm -f $PWDtest/.mpirtmp$$ $PWDtest2/.mpirtmp$$
 260     else
 261         PWD=$PWDtest
 262     fi
 263 else
 264     PWD=`pwd`
 265 fi
 266 #
 267 if [ -n "$PWD" ] ; then
 268     PWD_TRIAL=$PWD
 269 else
 270     PWD_TRIAL=$PWDtest
 271 fi
 272 # The test for PWD_TRIAL usable is within the p4/execer/tcp test (since that
 273 # is where it matters)
 274 #
 275 tail=`echo $progname | sed 's/\/.*//'`
 276 if  [ "$tail" = "" ] ; then
 277   #echo Absolute path, don't need to change anything
 278   true
 279 else
 280   #echo Relative path
 281   progname="$PWD_TRIAL/$progname"
 282 fi
 283
 284 if [ $mpirun_verbose = 1 ] ; then
 285   echo "running $progname on $np $arch $machine processors"
 286 fi
 287
 288 $Show $progname $cmdLineArgs $machineFileArg $machineFile -GAMMANP $np