src/smpi/smpif90.in

   1 #! /bin/bash
   2
   3 CC=gfortran
   4
   5 INCLUDEARGS="@includeflag@"
   6 CMAKE_LINKARGS="-L@libdir@"
   7
   8 FFLAGS="-ff2c  -fno-second-underscore"
   9 LINKARGS="-lsimgrid -lm -lgfortran"
  10 main_name=main
  11 TMPFILE=$(mktemp).f90
  12 CMDLINE=""
  13 while [ -n "$1" ]; do
  14   ARG="$1"
  15   shift
  16   case "${ARG}" in
  17    -c)
  18       CMAKE_LINKARGS=""
  19       LINKARGS=""
  20       CMDLINE="${CMDLINE} -c "
  21       ;;
  22    *.f90|*.F90)
  23       SRCFILE="$(readlink -f ${ARG} 2>/dev/null)"
  24       if [ -z $SRCFILE ] ; then
  25          SRCFILE="$ARG"
  26       fi
  27       TMPFILE=$ARG\_.f90
  28       #replace "program main_name by subroutine user\_main (and the end clause as well)"
  29       sed 's/[[:space:]]*program[[:space:]]*\([a-zA-Z0-9\-\_]*\)/subroutine user\_main /gI;s/[[:space:]]*use[[:space:]]*mpi/\include \"mpif\.h\" /gI'  ${ARG} > ${TMPFILE}
  30       SRCFILE="${TMPFILE}"
  31       CMDLINE="${CMDLINE} ${SRCFILE} "
  32       ;;
  33    *)
  34       CMDLINE="${CMDLINE} ${ARG} "
  35       ;;
  36   esac
  37 done
  38
  39 CMDLINE="${CC} ${FFLAGS} ${CMDLINE} ${INCLUDEARGS} ${CMAKE_LINKARGS} ${LINKARGS}"
  40
  41 #echo "${CMDLINE}"
  42 ${CMDLINE}
  43
  44 if [ -f ${TMPFILE} ];then
  45   rm ${TMPFILE}
  46 fi