36 lines
2.1 KiB
C
36 lines
2.1 KiB
C
# It's no more possible to generate this header with f2c due to post-F77 clauses.
|
|
# Obtained from
|
|
# http://icl.cs.utk.edu/lapack-forum/viewtopic.php?t=271
|
|
|
|
extern void pdlawrite_( char **filenam, int *m, int *n, double *A, int *ia, int *ja, int *descA, int *irwrit, int *icwrit, double *work);
|
|
extern void pdelset_( double *A, int *ia, int *ja, int *desca, double *alpha);
|
|
extern double pdlamch_( int *ictxt, char *cmach);
|
|
extern int indxg2p_( int *indxglob, int *nb, int *iproc, int *isrcproc, int *nprocs);
|
|
extern int indxg2l_( int *indxglob, int *nb, int *iproc, int *isrcproc, int *nprocs);
|
|
extern int numroc_( int *n, int *nb, int *iproc, int *isrcproc, int *nprocs);
|
|
extern void descinit_( int *desc, int *m, int *n, int *mb, int *nb, int *irsrc, int *icsrc,
|
|
int *ictxt, int *lld, int *info);
|
|
extern void pdlaset_( char *uplo, int *m, int *n, double *alpha, double *beta, double *A, int *ia, int *ja, int *descA );
|
|
extern double pdlange_( char *norm, int *m, int *n, double *A, int *ia, int *ja, int *desca, double *work);
|
|
extern void pdlacpy_( char *uplo, int *m, int *n, double *a, int *ia, int *ja, int *desca,
|
|
double *b, int *ib, int *jb, int *descb);
|
|
extern void pdgesv_( int *n, int *nrhs, double *A, int *ia, int *ja, int *desca, int* ipiv,
|
|
double *B, int *ib, int *jb, int *descb, int *info);
|
|
extern void pdgesvd_( char *jobu, char *jobvt, int *m, int *n, double *a, int *ia, int *ja, int *desca,
|
|
double *s, double *u, int *iu, int *ju, int *descu,
|
|
double *vt, int *ivt, int *jvt, int *descvt, double *work, int *lwork, int *info);
|
|
extern void pdgemm_( char *TRANSA, char *TRANSB, int * M, int * N, int * K, double * ALPHA,
|
|
double * A, int * IA, int * JA, int * DESCA, double * B, int * IB, int * JB, int * DESCB,
|
|
double * BETA, double * C, int * IC, int * JC, int * DESCC );
|
|
extern int indxg2p_( int *indxglob, int *nb, int *iproc, int *isrcproc, int *nprocs);
|
|
|
|
#ifdef F77_WITH_NO_UNDERSCORE
|
|
#define numroc_ numroc
|
|
#define descinit_ descinit
|
|
#define pdlamch_ pdlamch
|
|
#define pdlange_ pdlange
|
|
#define pdlacpy_ pdlacpy
|
|
#define pdgesv_ pdgesv
|
|
#define pdgemm_ pdgemm
|
|
#define indxg2p_ indxg2p
|
|
#endif
|