! This should be equal to the number of int fields in MPI_Status
integer MPI_STATUS_SIZE, MPI_STATUSES_IGNORE
parameter(MPI_STATUS_SIZE=4)
- parameter(MPI_STATUSES_IGNORE=0)
+ common/smpi/ MPI_STATUSES_IGNORE
integer MPI_STATUS_IGNORE(MPI_STATUS_SIZE)
common/smpi/ MPI_STATUS_IGNORE
integer MPI_REQUEST_NULL
parameter(MPI_REQUEST_NULL=-1)
+ integer MPI_INTEGER_KIND
+ parameter(MPI_INTEGER_KIND=4)
+
! These should be ordered as in smpi_f77.c
integer MPI_DATATYPE_NULL, MPI_BYTE, MPI_CHARACTER, MPI_LOGICAL
integer MPI_INTEGER, MPI_INTEGER1, MPI_INTEGER2, MPI_INTEGER4
MPI_CALL(XBT_PUBLIC(int), MPI_Error_string, (int errorcode, char* string, int* resultlen));
MPI_CALL(XBT_PUBLIC(int), MPI_Errhandler_set, (MPI_Comm comm, MPI_Errhandler errhandler));
MPI_CALL(XBT_PUBLIC(int), MPI_Comm_set_errhandler, (MPI_Comm comm, MPI_Errhandler errhandler));
+MPI_CALL(XBT_PUBLIC(int), MPI_Comm_get_errhandler, (MPI_Comm comm, MPI_Errhandler *errhandler));
MPI_CALL(XBT_PUBLIC(int), MPI_Comm_create_errhandler,( MPI_Comm_errhandler_fn *function, MPI_Errhandler *errhandler));
MPI_CALL(XBT_PUBLIC(int), MPI_Comm_call_errhandler,(MPI_Comm comm,int errorcode));
MPI_CALL(XBT_PUBLIC(int), MPI_Add_error_class,( int *errorclass));
#! /bin/bash
-CC=@CMAKE_Fortran_Compiler@
+CC=gfortran
INCLUDEARGS="@includeflag@"
CMAKE_LINKARGS="-L@libdir@"
-FFLAGS="-ff2c "
+FFLAGS="-ff2c -fno-second-underscore"
LINKARGS="-lsimgrid -lm -lgfortran"
main_name=main
TMPFILE=$(mktemp).f90
if [ -z $SRCFILE ] ; then
SRCFILE="$ARG"
fi
+ TMPFILE=$ARG\_.f90
#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' ${ARG} > ${TMPFILE}
+ 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}"
CMDLINE="${CMDLINE} ${SRCFILE} "
;;
CMDLINE="${CC} ${FFLAGS} ${CMDLINE} ${INCLUDEARGS} ${CMAKE_LINKARGS} ${LINKARGS}"
-echo "${CMDLINE}"
+#echo "${CMDLINE}"
${CMDLINE}
if [ -f ${TMPFILE} ];then