xerfft.cpp

Go to the documentation of this file.

#include <sstream>
 
#ifdef __cplusplus
extern "C" {
#endif      //TODO the below function is not C becouse it throws an exception!
 
#include "f2c.h"
 
int xerfft_(char *srname, integer *info, ftnlen)
{
    std::stringstream msg;
 
    if (*info >= 1)
        msg << "On entry to " << srname << " parameter number " << (*info) << " has an illegal value";
    else if (*info == -1)
        msg << "On entry to " << srname << " parameters LOT, JUMP, N and INC are inconsistent";
    else if (*info == -2)
        msg << "On entry to " << srname << " parameter L is greater than LDIM";
    else if (*info == -3)
        msg << "On entry to " << srname << " parameter M is greater than MDIM";
    else if (*info == -5)
        msg << "Within " << srname << " input error returned by lower level routine";
    else if (*info == -6)
        msg << "On entry to " << srname << " parameter LDIM is less than 2*(L/2+1)";
 
/*#if defined(_WIN32) || defined(__WIN32__) || defined(WIN32)
    fprintf(stderr, "%s", msg.str().c_str());
    exit(1);
#else*/
    throw msg.str();
//#endif
 
    return 0;
}
 
#ifdef __cplusplus
}
#endif