1
1
openmpi/ompi/tools/wrappers/mpif77.cc
Brian Barrett 170ef8af1f * rename ompi_show_help to opal_show_help
* rename ompi_stacktrace to opal_stacktrace
* rename ompi_strncpy to opal_strncpy

This commit was SVN r6336.
2005-07-04 02:38:44 +00:00

69 строки
1.9 KiB
C++

//
// Copyright (c) 2004-2005 The Trustees of Indiana University.
// All rights reserved.
// Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
// All rights reserved.
// Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
// University of Stuttgart. All rights reserved.
// Copyright (c) 2004-2005 The Regents of the University of California.
// All rights reserved.
// $COPYRIGHT$
//
// Additional copyrights may follow
//
// $HEADER$
//
#include "ompi_config.h"
#include "opal/util/show_help.h"
#include "tools/wrappers/ompi_wrap.h"
#include <iostream>
using namespace std;
int
main(int argc, char *argv[])
{
// The four wrapper compilers are extremely similar. So similar,
// in fact, that they can be parameterized on what is different.
// Hence, we call the "wrapper compiler engine" to do all the
// work, and pass in just a few arguments to customize for the
// language of this wrapper compiler.
#if !OMPI_WANT_F77_BINDINGS
opal_show_help("help-wrapper.txt", "no-fortran-support", true,
77, "mpif77");
return 1;
#else
ompi_sv_t compiler;
ompi_sv_t fppflags;
ompi_sv_t fflags;
ompi_sv_t ldflags;
ompi_sv_t libs;
compiler.clear();
compiler.push_back("OMPI_MPIF77");
fppflags.clear();
fppflags.push_back("OMPI_MPIF77_FPPFLAGS");
fppflags.push_back("OMPI_FPPFLAGS");
fflags.clear();
fflags.push_back("OMPI_MPIF77_FFLAGS");
fflags.push_back("OMPI_FFLAGS");
ldflags.clear();
ldflags.push_back("OMPI_MPIF77_LDFLAGS");
ldflags.push_back("OMPI_LDFLAGS");
libs.clear();
libs.push_back("OMPI_MPIF77_LIBS");
libs.push_back("OMPI_LIBS");
return ompi_wrap_engine(argc, argv, compiler, fppflags, fflags,
ldflags, libs, OMPI_F77, WRAPPER_EXTRA_FFLAGS,
false, false, true);
#endif
}