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