Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Remove useless lines.
authorArnaud Giersch <arnaud.giersch@iut-bm.univ-fcomte.fr>
Wed, 25 Sep 2013 07:21:13 +0000 (09:21 +0200)
committerArnaud Giersch <arnaud.giersch@iut-bm.univ-fcomte.fr>
Wed, 25 Sep 2013 07:21:48 +0000 (09:21 +0200)
src/smpi/smpif90.in

index 041ac70..99bd888 100644 (file)
@@ -23,11 +23,6 @@ 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=$(mktemp "${ARG}_XXXXXX.f90")
       TMPFILES+=( "${TMPFILE}" )
       #replace "program main_name by subroutine user\_main (and the end clause as well)"
       TMPFILE=$(mktemp "${ARG}_XXXXXX.f90")
       TMPFILES+=( "${TMPFILE}" )
       #replace "program main_name by subroutine user\_main (and the end clause as well)"