62 lines
1.9 KiB
C
Executable file
62 lines
1.9 KiB
C
Executable file
|
|
// Copyright 2001 California Institute of Technology.
|
|
// All rights reserved.
|
|
|
|
#include "ct_defs.h"
|
|
|
|
#ifndef LAPACK_H
|
|
#define LAPACK_H
|
|
|
|
#if defined(NEEDS_F77_TRANSLATION)
|
|
|
|
#if defined(F77EXTERNS_UPPERCASE_NOTRAILINGBAR)
|
|
#define dgelss_ DGELSS
|
|
#define dgetrs_ DGETRS
|
|
#define dgetrf_ DGETRF
|
|
#define dgetri_ DGETRI
|
|
#define dvode_ DVODE
|
|
#define ddassl_ DDASSL
|
|
#define simplx_ SIMPLX
|
|
#define splin2_ SPLIN2
|
|
#define splie2_ SPLIE2
|
|
#define dgelss_ DGELSS
|
|
#endif
|
|
|
|
#endif
|
|
|
|
extern "C"
|
|
{
|
|
|
|
// /* Subroutine */ int dgelss_(integer *m, integer *n, integer *nrhs,
|
|
// doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
|
|
// s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork,
|
|
// integer *info);
|
|
|
|
///* Subroutine */ int dgetrs_(char *trans, integer *n, integer *nrhs,
|
|
// doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
|
|
// ldb, integer *info, int len);
|
|
|
|
///* Subroutine */ int dgetrf_(integer *m, integer *n, doublereal *a, integer *
|
|
// lda, integer *ipiv, integer *info);
|
|
|
|
///* Subroutine */ int dgetri_(integer *n, doublereal *a, integer *
|
|
// lda, integer *ipiv, doublereal *work, integer *lwork, integer *info);
|
|
|
|
// /* Subroutine */ int dgemv_(char *trans, integer *m, integer *n, doublereal *
|
|
// alpha, doublereal *a, integer *lda, doublereal *x, integer *incx,
|
|
// doublereal *beta, doublereal *y, integer *incy, int len);
|
|
|
|
void dcopy_(const integer *n, const doublereal *dx, const integer *incx, doublereal *dy, const integer *incy);
|
|
//doublereal ddot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy);
|
|
|
|
doublereal ddot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy);
|
|
|
|
void daxpy_(integer* n, doublereal* a, doublereal* x, integer* incx,
|
|
doublereal* y, integer* incy);
|
|
void dscal_(integer *n, doublereal *da, doublereal *dx, integer *incx);
|
|
integer idamax_(integer* n, doublereal* a, integer* incx);
|
|
|
|
}
|
|
|
|
|
|
#endif
|