A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove useless lines.
[simgrid.git]
/
src
/
smpi
/
smpif90.in
diff --git
a/src/smpi/smpif90.in
b/src/smpi/smpif90.in
index
dadde6e
..
99bd888
100644
(file)
--- a/
src/smpi/smpif90.in
+++ b/
src/smpi/smpif90.in
@@
-8,7
+8,10
@@
CMAKE_LINKARGS="-L@libdir@"
FFLAGS="-ff2c -fno-second-underscore"
LINKARGS="-lsimgrid -lm -lgfortran"
main_name=main
FFLAGS="-ff2c -fno-second-underscore"
LINKARGS="-lsimgrid -lm -lgfortran"
main_name=main
-TMPFILE=$(mktemp).f90
+
+declare -a TMPFILES
+trap 'rm -f "${TMPFILES[@]}"' EXIT
+
CMDLINE=""
while [ -n "$1" ]; do
ARG="$1"
CMDLINE=""
while [ -n "$1" ]; do
ARG="$1"
@@
-20,12
+23,8
@@
while [ -n "$1" ]; do
CMDLINE="${CMDLINE} -c "
;;
*.f90|*.F90)
CMDLINE="${CMDLINE} -c "
;;
*.f90|*.F90)
- SRCFILE="$(readlink -f ${ARG} 2>/dev/null)"
- if [ -z $SRCFILE ] ; then
- SRCFILE="$ARG"
- fi
-
- TMPFILE=${ARG}\_$RANDOM.f90
+ TMPFILE=$(mktemp "${ARG}_XXXXXX.f90")
+ TMPFILES+=( "${TMPFILE}" )
#replace "program main_name by subroutine user\_main (and the end clause as well)"
sed 's/[[:space:]]*program[[:space:]]*\([a-zA-Z0-9\-\_]*\)/subroutine user\_main /gI;s/[[:space:]]*use[[:space:]]*mpi/\include \"mpif\.h\" /gI' ${ARG} > ${TMPFILE}
SRCFILE="${TMPFILE}"
#replace "program main_name by subroutine user\_main (and the end clause as well)"
sed 's/[[:space:]]*program[[:space:]]*\([a-zA-Z0-9\-\_]*\)/subroutine user\_main /gI;s/[[:space:]]*use[[:space:]]*mpi/\include \"mpif\.h\" /gI' ${ARG} > ${TMPFILE}
SRCFILE="${TMPFILE}"
@@
-41,7
+40,3
@@
CMDLINE="${CC} ${FFLAGS} ${CMDLINE} ${INCLUDEARGS} ${CMAKE_LINKARGS} ${LINKARGS}
#echo "${CMDLINE}"
${CMDLINE}
#echo "${CMDLINE}"
${CMDLINE}
-
-if [ -f ${TMPFILE} ];then
- rm ${TMPFILE}
-fi