Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Support for Fortran code in SMPI based on f2c, some perl and some dirty hacks.
[simgrid.git] / src / smpi / smpirun.in
1 #!/bin/bash
2
3 @CMAKE_SMPI_COMMAND@
4
5 DEFAULT_LOOPBACK_BANDWIDTH="498000000"
6 DEFAULT_LOOPBACK_LATENCY="0.000004"
7 DEFAULT_NETWORK_BANDWIDTH="$((26 * 1024 * 1024))"
8 DEFAULT_NETWORK_LATENCY="0.000005"
9 DEFAULT_NUMPROCS="4"
10 DEFAULT_POWER="100"
11
12 LOOPBACK_BANDWIDTH="${DEFAULT_LOOPBACK_BANDWIDTH}"
13 LOOPBACK_LATENCY="${DEFAULT_LOOPBACK_LATENCY}"
14 NETWORK_BANDWIDTH="${DEFAULT_NETWORK_BANDWIDTH}"
15 NETWORK_LATENCY="${DEFAULT_NETWORK_LATENCY}"
16 NUMPROCS="${DEFAULT_NUMPROCS}"
17 POWER="${DEFAULT_POWER}"
18
19 SIMOPTS="--cfg=network/model:SMPI --cfg=TCP_gamma:4194304"
20
21 while true; do
22   case "$1" in
23    "-np" | "-n")
24       NUMPROCS="$2"
25       shift 2
26     ;;
27    "-bandwidth")
28       NETWORK_BANDWIDTH="$2"
29       shift 2
30     ;;
31    "-latency")
32       NETWORK_LATENCY="$2"
33       shift 2
34     ;;
35    "-platform")
36         PLATFORM="$2"
37       if [ ! -f ${PLATFORM} ]; then
38                 echo "[$0] ** error: the file '${PLATFORM}' does not exist. Aborting."
39                 exit 1
40       fi
41         shift 2
42     ;;
43    "-hostfile")
44         HOSTFILE="$2"
45       if [ ! -f ${HOSTFILE} ]; then
46                 echo "[$0] ** error: the file '${HOSTFILE}' does not exist. Aborting."
47                 exit 1
48       fi
49         shift 2
50     ;;
51
52    "-map")
53         MAPOPT="true"
54       shift 1
55    ;;
56
57    "-trace")
58         TRACEOPT="$2"
59           shift 2
60    ;;
61
62    "-keep-temps")
63         KEEP="true"
64       shift 1
65    ;;
66
67    "-help" | "--help" | "-h")
68       echo "usage:"
69       echo "$0 [-quiet] [-keep-temps] [-trace <tracefile>] [-np <numprocs>] -platform <xmldesc> -hostfile <hostfile> [-map] program [program-options]"
70       echo "or (deprecated usage):"
71       echo "$0 [-quiet] [-keep-temps] [-np <numprocs>] [-bandwidth <bytes/sec>] [-latency <secs>] program [program-options]"
72       echo
73       exit
74    ;;
75
76    "--cfg="*|"--log="*)
77      for OPT in ${1#*=}
78      do
79        SIMOPTS="$SIMOPTS ${1%%=*}=$OPT"
80      done
81      shift 1
82    ;;
83     *)
84       break
85     ;;
86   esac
87 done
88
89 EXEC="$1"
90 shift
91
92 ##-----------------------------------
93
94
95
96
97 ##-------------------------------- DEFAULT or SPECIFIED PLATFORM --------------------------------------
98 if [ -z "${PLATFORM}" ]; then
99         PLATFORMTMP="$(mktemp tmpXXXXXX)"
100
101         cat > ${PLATFORMTMP} <<PLATFORMHEAD
102 <?xml version='1.0'?>
103 <!DOCTYPE platform SYSTEM "simgrid.dtd">
104 <platform version="2">
105 <AS id="AS0" routing="Full">
106 PLATFORMHEAD
107
108 for (( i=${NUMPROCS}; $i ; i=$i-1 )) do
109   echo "  <host id=\"host$i\" power=\"${POWER}\"/>" >> ${PLATFORMTMP}
110   echo "  <link id=\"loop$i\" bandwidth=\"${LOOPBACK_BANDWIDTH}\" latency=\"${LOOPBACK_LATENCY}\"/>" >> ${PLATFORMTMP}
111   echo "  <link id=\"link$i\" bandwidth=\"${NETWORK_BANDWIDTH}\" latency=\"${NETWORK_LATENCY}\"/>" >> ${PLATFORMTMP}
112 done
113
114 for (( i=${NUMPROCS}; $i ; i=$i-1 )) do
115   for (( j=${NUMPROCS}; $j ; j=$j-1 )) do
116     if [ $i -eq $j ]; then
117       echo "  <route src=\"host$i\" dst=\"host$j\"><link_ctn id=\"loop$i\"/></route>" >> ${PLATFORMTMP}
118     else
119       echo "  <route src=\"host$i\" dst=\"host$j\"><link_ctn id=\"link$i\"/><link_ctn id=\"link$j\"/></route>" >> ${PLATFORMTMP}
120     fi
121   done
122 done
123
124 cat >> ${PLATFORMTMP} <<PLATFORMFOOT
125 </AS>
126 </platform>
127 PLATFORMFOOT
128
129 else
130         PLATFORMTMP=${PLATFORM}
131 fi
132 ##-------------------------------- end DEFAULT or SPECIFIED PLATFORM --------------------------------------
133
134 ##-------------------------------- DEFAULT APPLICATION --------------------------------------
135 APPLICATIONTMP="$(mktemp tmpXXXXXX)"
136 #APPLICATIONTMP="app.xml"
137
138
139 cat > ${APPLICATIONTMP} <<APPLICATIONHEAD
140 <?xml version='1.0'?>
141 <!DOCTYPE platform SYSTEM "simgrid.dtd">
142 <platform version="2">
143 APPLICATIONHEAD
144
145 ##---- cache hostnames of hostfile---------------
146 if [ -n "${HOSTFILE}" ] && [ -f ${HOSTFILE} ]; then
147         hostnames=(`cat ${HOSTFILE} | tr \\\n " "`)
148       NUMHOSTS=`cat ${HOSTFILE} | wc -l`
149 fi
150
151 ##----------------------------------------------------------
152 ##  generate application.xml with hostnames from hostfile:
153 ##  the name of host_i (1<=i<=p, where -np p) is the line i
154 ##  in hostfile (where -hostfile hostfile), or "host$i" if
155 ##  hostfile has less than i lines.
156 ##----------------------------------------------------------
157
158 HAVE_SEQ="`which seq 2>/dev/null`"
159
160 if [ -n "${HAVE_SEQ}" ]; then
161         SEQ=`${HAVE_SEQ} 0 $((${NUMPROCS}-1))`
162 else
163       cnt=0
164         while (( $cnt < ${NUMPROCS} )) ; do
165             SEQ="$SEQ $cnt"
166             cnt=$((cnt + 1));
167         done
168 fi
169
170 ##---- generate <process> tags------------------------------
171
172 for i in ${SEQ}
173 do
174   if [ -n "${HOSTFILE}" ]; then
175         j=$(( $i % ${NUMHOSTS} ))
176   fi
177   ##---- optional display of ranks to process mapping
178   if [ -n "${MAPOPT}" ]; then
179         echo "[rank $i] -> ${hostnames[$j]}"
180   fi
181
182   if [ -z "${hostnames[$j]}" ]; then
183         host="host"$(($j+1))
184   else
185         host="${hostnames[$j]}"
186   fi
187   echo "  <process host=\"${host}\" function=\"smpi_simulated_main\">" >> ${APPLICATIONTMP}
188   echo "    <argument value=\"$i\"/> <!-- rank -->" >> ${APPLICATIONTMP}
189   for ARG in $*; do
190     echo "    <argument value=\"${ARG}\"/>" >> ${APPLICATIONTMP}
191   done
192   echo "  </process>" >> ${APPLICATIONTMP}
193 done
194
195 cat >> ${APPLICATIONTMP} <<APPLICATIONFOOT
196 </platform>
197 APPLICATIONFOOT
198 ##-------------------------------- end DEFAULT APPLICATION --------------------------------------
199
200 ##---------------------- SMPI TRACING OPTIONS ---------------------------------
201   if [ -n "${TRACEOPT}" ]; then
202     TRACEOPTIONS="--cfg=tracing/filename:${TRACEOPT} --cfg=tracing/smpi:1 --cfg=tracing/platform:1"
203   else
204     TRACEOPTIONS=""
205   fi
206 ##---------------------- end SMPI TRACING OPTIONS ---------------------------------
207
208 export SMPI_GLOBAL_SIZE=${NUMPROCS}
209 if [ -n "${KEEP}" ] ; then
210   echo ${EXEC} ${SIMOPTS} ${TRACEOPTIONS} ${PLATFORMTMP} ${APPLICATIONTMP}
211 fi
212 ${EXEC} ${SIMOPTS} ${TRACEOPTIONS} ${PLATFORMTMP} ${APPLICATIONTMP}
213
214 if [ -z "${KEEP}" ] ; then
215    if [ -z "${PLATFORM}" ]; then
216         rm ${PLATFORMTMP}
217    fi
218    rm ${APPLICATIONTMP}
219 fi