f77lapack.h

Go to the documentation of this file.

// include guard
#ifndef LINEAR_F77LAPACK_H_VERSION

#define LINEAR_F77LAPACK_H_VERSION \
  "LINEAR_F77LAPACK_H   V1.0"

#ifdef __cplusplus
namespace f77lapack {
extern "C" {
#endif

/*
 * all f2c stuff that is needed here
 * =================================
 */

#ifndef F2C_INCLUDE
/* FORTRAN (f2c) types needed by the wrapper functions */
#ifdef __x86_64
typedef int integer;
typedef double doublereal;
typedef int logical;
typedef int ftnlen;
#else
typedef long int integer;
typedef double doublereal;
typedef long int logical;
typedef long int ftnlen;
#endif
#else
#warning f2c.h is read from somewhere else!
#endif

  // solve a real system of linear equations with a positive definite matrix
  void dposv_(char *uplo, integer *m, integer *k , 
              doublereal *A, integer *lda,
              doublereal *X, integer *ldx, integer *info);

#ifdef __cplusplus
} // extern "C"
} // namespace f77lapack
#endif

#endif // LINEAR_F77LAPACK_H_VERSION (includeguard)

/* ----- END OF f77lapack.h ----- */