/usr/include/trilinos/ml_eigf2c.h is in libtrilinos-ml-dev 12.4.2-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 | /* ******************************************************************** */
/* See the file COPYRIGHT for a complete copyright notice, contact */
/* person and disclaimer. */
/* ******************************************************************** */
#ifndef __MLEIGF2C__
#define __MLEIGF2C__
#include "ml_common.h"
#include "ml_lapack.h"
#include "ml_memory.h"
#include "ml_comm.h"
#define DMOUT_F77 F77_BLAS_MANGLE(dmout,DMOUT)
#define PDMOUT_F77 F77_BLAS_MANGLE(pdmout,PDMOUT)
#define DNEUPD_F77 F77_BLAS_MANGLE(dneupd,DNEUPD)
#define PDNEUPD_F77 F77_BLAS_MANGLE(pdneupd,PDNEUPD)
#ifndef ML_CPP
#ifdef __cplusplus
extern "C"
{
#endif
#endif
extern int ml_pdmout__(USR_COMM *comm, int *lout, int *m, int *n, double *a,
int *lda, int *idigit);
extern int ml_pdneupc__(USR_COMM *comm,
int *ivec, char *howmny, int *celect, double *d__,
double *v, int *ldv, double *workev, char *bmat, int *n,
char *which, int *nev, double *tol, double *resid, int *ncv,
int *iparam, int *ipntr, double *workd, double *workl,
int *lworkl, int *ierr, ftnlen howmny_len, ftnlen bmat_len,
ftnlen which_len);
/*
extern int ml_pdneupc__(int *comm,
int *ivec, char *howmny, int *celect, double *d__,
double *v, int *ldv, double *workev, char *bmat, int *n,
char *which, int *nev, double *tol, double *resid, int *ncv,
int *iparam, int *ipntr, double *workd, double *workl,
int *lworkl, int *ierr, ftnlen howmny_len, ftnlen bmat_len,
ftnlen which_len);
*/
extern void PREFIX DMOUT_F77(int *, int *, int *, double *, int *lda, int *idigit,
char *, ftnlen);
extern void PREFIX PDMOUT_F77(int *,
int *, int *, int *, double *, int *lda, int *idigit,
char *, ftnlen);
extern void PREFIX DNEUPD_F77(int *, char *, int *, double *, double *, double *,
int *, double *, double *, double *, char *bmat,
int *n, char *which, int *nev, double *tol, double *,
int *ncv, double *, int *, int *, int *, double *,
double *, int *, int *, ftnlen, ftnlen, ftnlen);
extern void PREFIX PDNEUPD_F77(int *,
int *, char *, int *, double *, double *, double *,
int *, double *, double *, double *, char *bmat,
int *n, char *which, int *nev, double *tol, double *,
int *ncv, double *, int *, int *, int *, double *,
double *, int *, int *, ftnlen, ftnlen, ftnlen);
#ifndef ML_CPP
#ifdef __cplusplus
}
#endif
#endif
#endif
|