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 / smpiff.in
1 #! /bin/bash
2 prefix="@prefix@"
3
4 ARGS="-DMAIN__=user_main -Diargc_=smpi_process_argc -Dgetarg_=smpi_process_getarg -lf2c"
5 SRCFILES=""
6
7 while [ -n "$1" ]; do
8   ARG="$1"
9   shift
10   case "${ARG}" in
11     *.f)
12       SRCFILE="$(readlink -f ${ARG} 2>/dev/null)"
13        if [ -z $SRCFILE ] ; then
14          SRCFILE="$ARG"
15        fi
16        SRCFILES="${SRCFILES} ${SRCFILE}"
17        ;;
18     *)
19       ARGS="${ARGS} ${ARG}"
20       ;;
21   esac
22 done
23
24 for SRCFILE in "${SRCFILES}"
25 do
26    CFILE="${SRCFILE%.f}.c"
27    $prefix/bin/smpif2c ${SRCFILE} && $prefix/bin/smpicc ${ARGS} ${CFILE}
28 done