71 строка
2.1 KiB
C++
71 строка
2.1 KiB
C++
//
|
|
// Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
|
|
// University Research and Technology
|
|
// Corporation. All rights reserved.
|
|
// Copyright (c) 2004-2005 The University of Tennessee and The University
|
|
// of Tennessee Research Foundation. 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
|
|
}
|