/* Fortran specific stuff */
XBT_PUBLIC(int) __attribute__((weak)) smpi_simulated_main_(int argc, char** argv);
-XBT_PUBLIC(int) __attribute__((weak)) MAIN_(void);
+XBT_PUBLIC(int) __attribute__((weak)) MAIN__(void);
XBT_PUBLIC(int) smpi_main(int (*realmain) (int argc, char *argv[]),int argc, char *argv[]);
XBT_PUBLIC(void) __attribute__((weak)) user_main_(void);
return smpi_main(smpi_simulated_main_,argc,argv);
}
-int __attribute__((weak)) MAIN_(){
+int __attribute__((weak)) MAIN__(){
return smpi_main(smpi_simulated_main_,xargc, xargv);
};
#endif
CMAKE_LINKARGS="-L@libdir@"
if [ "@WIN32@" != "1" ]; then
- CFLAGS="-Dmain=smpi_simulated_main__"
+ CFLAGS="-Dmain=smpi_simulated_main_"
LINKARGS="-lsimgrid"
else
CFLAGS="-include @includedir@/smpi/smpi_main.h"
if(/extern \/\* Subroutine \*\//) {
$cutext = 1;
}
+ $_ =~ s/(mpi_[\w]*_)_/$1/g;
if($cutext) {
if(/;$/) {
$cutext = 0;
next;
}
if(/\/* Main program alias \*\/\s*int\s+.*\s*\(\s*\)\s*{(.*)}/) {
- $_ = "int smpi_simulated_main__(int argc, char** argv) { smpi_process_init(&argc, &argv); $1 }\n";
+ $_ = "int smpi_simulated_main_(int argc, char** argv) { smpi_process_init(&argc, &argv); $1 }\n";
}
print $tmp "$_\n";
}
do
CFILE="${SRCFILE%.f}.c"
#echo "$prefix/bin/smpif2c ${SRCFILE} && $prefix/bin/smpicc ${ARGS} ${CFILE} && rm ${CFILE}"
- $prefix/bin/smpif2c ${SRCFILE} && $prefix/bin/smpicc ${ARGS} ${CFILE} && rm ${CFILE}
+ $prefix/bin/smpif2c ${SRCFILE} && $prefix/bin/smpicc ${ARGS} ${CFILE}
done
else
#echo "$prefix/bin/smpicc ${ARGS}"