GetArguments.hpp

Go to the documentation of this file.

#ifndef __GETARGUMENTS_HPP_
#define __GETARGUMENTS_HPP_

#ifdef LINK_GFORTRAN

#define GETARG__GETARGS _gfortran_getarg_i4

#define IARGC__GETARGS _gfortran_iargc
#else

#define GETARG__GETARGS getarg_

#define IARGC__GETARGS iargc_
#endif

extern "C" int IARGC__GETARGS(void);
extern "C" char* GETARG__GETARGS(const int &, char *, int);

inline int GetNumberArguments(void) {
    return IARGC__GETARGS();
}

inline void GetArgument(int i, char *arg, int length) {
    GETARG__GETARGS(i, arg, length);
}
#endif // _GETARGUMENTS_HPP_