Subversion Repositories slepc-dev

Compare Revisions

Ignore whitespace Rev 2282 → Rev 2283

/trunk/include/private/epsimpl.h
22,7 → 22,7
#ifndef _EPSIMPL
#define _EPSIMPL
 
#include "slepceps.h"
#include <slepceps.h>
 
extern PetscFList EPSList;
extern PetscLogEvent EPS_SetUp, EPS_Solve, EPS_Dense;
/trunk/include/private/ipimpl.h
22,7 → 22,7
#ifndef _IPIMPL
#define _IPIMPL
 
#include "slepcip.h"
#include <slepcip.h>
 
extern PetscLogEvent IP_InnerProduct,IP_Orthogonalize,IP_ApplyMatrix;
 
/trunk/include/private/svdimpl.h
22,8 → 22,8
#ifndef _SVDIMPL
#define _SVDIMPL
 
#include "slepcsvd.h"
#include "slepcip.h"
#include <slepcsvd.h>
#include <slepcip.h>
 
extern PetscFList SVDList;
extern PetscLogEvent SVD_SetUp, SVD_Solve, SVD_Dense;
/trunk/include/private/qepimpl.h
22,7 → 22,7
#ifndef _QEPIMPL
#define _QEPIMPL
 
#include "slepcqep.h"
#include <slepcqep.h>
 
extern PetscFList QEPList;
extern PetscLogEvent QEP_SetUp, QEP_Solve, QEP_Dense;
/trunk/include/private/slepcimpl.h
22,7 → 22,7
#ifndef _SLEPCIMPL
#define _SLEPCIMPL
 
#include "slepcsys.h"
#include <slepcsys.h>
 
/* Private functions that are shared by several classes */
 
/trunk/include/private/stimpl.h
22,7 → 22,7
#ifndef _STIMPL
#define _STIMPL
 
#include "slepceps.h"
#include <slepceps.h>
 
extern PetscLogEvent ST_SetUp, ST_Apply, ST_ApplyB, ST_ApplyTranspose;
extern PetscFList STList;
/trunk/include/slepcsys.h
72,6 → 72,10
#include "petscsys.h"
#include "petscvec.h"
#include "petscmat.h"
/*
slepcimpl.h contains definitions common to all SLEPc objects
*/
#include "private/slepcimpl.h"
 
PETSC_EXTERN_CXX_BEGIN
/*
/trunk/src/st/interface/ftn-custom/zstf.c
19,8 → 19,8
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/fortranimpl.h"
#include "slepcst.h"
#include <private/fortranimpl.h>
#include <slepcst.h>
 
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define stsettype_ STSETTYPE
/trunk/src/st/interface/stsolve.c
21,7 → 21,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/stimpl.h" /*I "slepcst.h" I*/
#include <private/stimpl.h> /*I "slepcst.h" I*/
 
#undef __FUNCT__
#define __FUNCT__ "STApply"
/trunk/src/st/interface/stregis.c
19,7 → 19,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/stimpl.h" /*I "slepcst.h" I*/
#include <private/stimpl.h> /*I "slepcst.h" I*/
 
EXTERN_C_BEGIN
extern PetscErrorCode STCreate_Shell(ST);
/trunk/src/st/interface/stfunc.c
21,7 → 21,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/stimpl.h" /*I "slepcst.h" I*/
#include <private/stimpl.h> /*I "slepcst.h" I*/
 
PetscClassId ST_CLASSID = 0;
PetscLogEvent ST_SetUp = 0, ST_Apply = 0, ST_ApplyTranspose = 0;
/trunk/src/st/interface/stset.c
21,8 → 21,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/stimpl.h" /*I "slepcst.h" I*/
#include "petscsys.h"
#include <private/stimpl.h> /*I "slepcst.h" I*/
 
/*
Contains the list of registered ST routines
/trunk/src/st/interface/shellmat.c
24,7 → 24,7
*/
 
 
#include "private/stimpl.h"
#include <private/stimpl.h>
 
#undef __FUNCT__
#define __FUNCT__ "STMatShellMult"
/trunk/src/st/interface/stsles.c
22,7 → 22,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/stimpl.h" /*I "slepcst.h" I*/
#include <private/stimpl.h> /*I "slepcst.h" I*/
 
#undef __FUNCT__
#define __FUNCT__ "STAssociatedKSPSolve"
/trunk/src/st/impls/fold/fold.c
22,7 → 22,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/stimpl.h" /*I "slepcst.h" I*/
#include <private/stimpl.h> /*I "slepcst.h" I*/
 
typedef struct {
Vec w2;
/trunk/src/st/impls/cayley/cayley.c
21,7 → 21,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/stimpl.h" /*I "slepcst.h" I*/
#include <private/stimpl.h> /*I "slepcst.h" I*/
 
typedef struct {
PetscScalar nu;
/trunk/src/st/impls/shell/ftn-custom/zshell.c
19,8 → 19,8
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/fortranimpl.h"
#include "slepcst.h"
#include <private/fortranimpl.h>
#include <slepcst.h>
 
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define stshellgetcontext_ STSHELLGETCONTEXT
/trunk/src/st/impls/shell/shell.c
24,7 → 24,6
*/
 
#include "private/stimpl.h" /*I "slepcst.h" I*/
#include "slepceps.h"
 
EXTERN_C_BEGIN
typedef struct {
/trunk/src/st/impls/precond/precond.c
21,7 → 21,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/stimpl.h" /*I "slepcst.h" I*/
#include <private/stimpl.h> /*I "slepcst.h" I*/
 
PetscErrorCode STDestroy_Precond(ST st);
PetscErrorCode STSetFromOptions_Precond(ST st);
/trunk/src/st/impls/sinvert/sinvert.c
21,7 → 21,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/stimpl.h" /*I "slepcst.h" I*/
#include <private/stimpl.h> /*I "slepcst.h" I*/
 
#undef __FUNCT__
#define __FUNCT__ "STApply_Sinvert"
/trunk/src/st/impls/shift/shift.c
22,7 → 22,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/stimpl.h" /*I "slepcst.h" I*/
#include <private/stimpl.h> /*I "slepcst.h" I*/
 
#undef __FUNCT__
#define __FUNCT__ "STApply_Shift"
/trunk/src/eps/interface/dense.c
24,8 → 24,8
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include "slepcblaslapack.h"
#include <private/epsimpl.h> /*I "slepceps.h" I*/
#include <slepcblaslapack.h>
 
#undef __FUNCT__
#define __FUNCT__ "EPSDenseNHEP"
/trunk/src/eps/interface/ftn-custom/zepsf.c
19,9 → 19,8
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/fortranimpl.h"
#include "slepceps.h"
#include "private/epsimpl.h"
#include <private/fortranimpl.h>
#include <private/epsimpl.h> /*I "slepceps.h" I*/
 
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define epsview_ EPSVIEW
/trunk/src/eps/interface/mem.c
21,7 → 21,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include <private/epsimpl.h> /*I "slepceps.h" I*/
 
#undef __FUNCT__
#define __FUNCT__ "EPSAllocateSolution"
/trunk/src/eps/interface/setup.c
21,7 → 21,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include <private/epsimpl.h> /*I "slepceps.h" I*/
 
#undef __FUNCT__
#define __FUNCT__ "EPSSetUp"
/trunk/src/eps/interface/basic.c
21,7 → 21,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include <private/epsimpl.h> /*I "slepceps.h" I*/
 
PetscFList EPSList = 0;
PetscClassId EPS_CLASSID = 0;
/trunk/src/eps/interface/default.c
21,8 → 21,8
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include "slepcblaslapack.h"
#include <private/epsimpl.h> /*I "slepceps.h" I*/
#include <slepcblaslapack.h>
 
#undef __FUNCT__
#define __FUNCT__ "EPSDestroy_Default"
/trunk/src/eps/interface/opts.c
22,7 → 22,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include <private/epsimpl.h> /*I "slepceps.h" I*/
 
#undef __FUNCT__
#define __FUNCT__ "EPSSetFromOptions"
/trunk/src/eps/interface/itregis.c
19,7 → 19,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include <private/epsimpl.h> /*I "slepceps.h" I*/
 
EXTERN_C_BEGIN
extern PetscErrorCode EPSCreate_POWER(EPS);
/trunk/src/eps/interface/monitor.c
21,7 → 21,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include <private/epsimpl.h> /*I "slepceps.h" I*/
 
#undef __FUNCT__
#define __FUNCT__ "EPSMonitorSet"
/trunk/src/eps/interface/solve.c
21,7 → 21,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include <private/epsimpl.h> /*I "slepceps.h" I*/
 
typedef struct {
/* old values of eps */
/trunk/src/eps/impls/external/trlan/trlan.c
21,7 → 21,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "../src/eps/impls/external/trlan/trlanp.h"
#include <../src/eps/impls/external/trlan/trlanp.h>
 
PetscErrorCode EPSSolve_TRLAN(EPS);
 
/trunk/src/eps/impls/external/trlan/trlanp.h
24,7 → 24,7
#if !defined(__TRLANP_H)
#define __TRLANP_H
 
#include "private/epsimpl.h"
#include <private/epsimpl.h> /*I "slepceps.h" I*/
 
typedef struct {
PetscBLASInt maxlan;
/trunk/src/eps/impls/external/arpack/arpack.c
21,8 → 21,8
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "../src/eps/impls/external/arpack/arpackp.h"
#include "private/stimpl.h"
#include <../src/eps/impls/external/arpack/arpackp.h>
#include <private/stimpl.h> /*I "slepcst.h" I*/
 
PetscErrorCode EPSSolve_ARPACK(EPS);
 
/trunk/src/eps/impls/external/arpack/arpackp.h
24,7 → 24,7
#if !defined(__ARPACKP_H)
#define __ARPACKP_H
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include <private/epsimpl.h> /*I "slepceps.h" I*/
 
typedef struct {
PetscBool *select;
/trunk/src/eps/impls/external/blzpack/blzpack.c
21,8 → 21,8
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "../src/eps/impls/external/blzpack/blzpackp.h" /*I "slepceps.h" I*/
#include "private/stimpl.h"
#include <../src/eps/impls/external/blzpack/blzpackp.h>
#include <private/stimpl.h> /*I "slepcst.h" I*/
 
PetscErrorCode EPSSolve_BLZPACK(EPS);
 
/trunk/src/eps/impls/external/blzpack/blzpackp.h
24,7 → 24,7
#if !defined(__BLZPACKP_H)
#define __BLZPACKP_H
 
#include "private/epsimpl.h"
#include <private/epsimpl.h> /*I "slepceps.h" I*/
 
typedef struct {
PetscBLASInt block_size; /* block size */
/trunk/src/eps/impls/external/blopex/slepc-interface.c
22,14 → 22,13
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "petscsys.h"
#include "petscvec.h"
#include "petscmat.h"
#include <petscsys.h>
#include <petscvec.h>
#include <assert.h>
#include <stdlib.h>
#include "petscblaslapack.h"
#include "interpreter.h"
#include "temp_multivector.h"
#define BlopexInt PetscInt
#include <interpreter.h>
#include <temp_multivector.h>
#include "slepc-interface.h"
 
static void* mv_TempMultiVectorCreateFromPETScVector( void* ii_, int n, void* sample )
/trunk/src/eps/impls/external/blopex/blopex.c
21,13 → 21,14
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/stimpl.h"
#include "private/epsimpl.h"
#include <private/stimpl.h> /*I "slepcst.h" I*/
#include <private/epsimpl.h> /*I "slepceps.h" I*/
#define BlopexInt PetscInt
#include "slepc-interface.h"
#include "lobpcg.h"
#include "interpreter.h"
#include "multivector.h"
#include "temp_multivector.h"
#include <lobpcg.h>
#include <interpreter.h>
#include <multivector.h>
#include <temp_multivector.h>
 
PetscErrorCode EPSSolve_BLOPEX(EPS);
 
201,19 → 202,19
PetscFunctionBegin;
#ifdef PETSC_USE_COMPLEX
info = lobpcg_solve_complex(blopex->eigenvectors,eps,OperatorAMultiVector,
//#ifdef PETSC_USE_COMPLEX
// info = lobpcg_solve_complex(blopex->eigenvectors,eps,OperatorAMultiVector,
// eps->isgeneralized?eps:PETSC_NULL,eps->isgeneralized?OperatorBMultiVector:PETSC_NULL,
// eps,Precond_FnMultiVector,blopex->Y,
// blopex->blap_fn,blopex->tol,eps->max_it,0,&its,
// eps->eigr,PETSC_NULL,0,eps->errest,PETSC_NULL,0);
//#else
info = lobpcg_solve(blopex->eigenvectors,eps,OperatorAMultiVector,
eps->isgeneralized?eps:PETSC_NULL,eps->isgeneralized?OperatorBMultiVector:PETSC_NULL,
eps,Precond_FnMultiVector,blopex->Y,
blopex->blap_fn,blopex->tol,eps->max_it,0,&its,
(komplex*)eps->eigr,PETSC_NULL,0,eps->errest,PETSC_NULL,0);
#else
info = lobpcg_solve_double(blopex->eigenvectors,eps,OperatorAMultiVector,
eps->isgeneralized?eps:PETSC_NULL,eps->isgeneralized?OperatorBMultiVector:PETSC_NULL,
eps,Precond_FnMultiVector,blopex->Y,
blopex->blap_fn,blopex->tol,eps->max_it,0,&its,
eps->eigr,PETSC_NULL,0,eps->errest,PETSC_NULL,0);
#endif
//#endif
if (info>0) SETERRQ1(((PetscObject)eps)->comm,PETSC_ERR_LIB,"Error in blopex (code=%d)",info);
 
eps->its = its;
/trunk/src/eps/impls/external/blopex/slepc-interface.h
26,11 → 26,13
#ifndef SLEPC_INTERFACE_HEADER
#define SLEPC_INTERFACE_HEADER
 
#include "lobpcg.h"
#include <lobpcg.h>
#define BlopexInt PetscInt
typedef struct {double real, imag;} komplex;
#ifdef BLOPEX_DIR
#include "petsc-interface.h"
#else
#include "../src/contrib/blopex/petsc-interface/petsc-interface.h"
#include <../src/contrib/blopex/petsc-interface/petsc-interface.h>
#endif
 
extern int
/trunk/src/eps/impls/external/primme/ftn-custom/zprimmef.c
19,8 → 19,8
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/fortranimpl.h"
#include "slepceps.h"
#include <private/fortranimpl.h>
#include <slepceps.h>
 
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define epsprimmegetmethod_ EPSPRIMMEGETMETHOD
/trunk/src/eps/impls/external/primme/primme.c
21,14 → 21,14
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "petsc.h"
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include "private/stimpl.h"
#include <petscsys.h>
#include <private/epsimpl.h> /*I "slepceps.h" I*/
#include <private/stimpl.h> /*I "slepcst.h" I*/
 
PetscErrorCode EPSSolve_PRIMME(EPS);
 
EXTERN_C_BEGIN
#include "primme.h"
#include <primme.h>
EXTERN_C_END
 
typedef struct {
/trunk/src/eps/impls/subspace/subspace.c
36,8 → 36,8
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include "slepcblaslapack.h"
#include <private/epsimpl.h> /*I "slepceps.h" I*/
#include <slepcblaslapack.h>
 
PetscErrorCode EPSSolve_SUBSPACE(EPS);
 
/trunk/src/eps/impls/krylov/dsitrlanczos/dsitrlanczos.c
26,8 → 26,8
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include "slepcblaslapack.h"
#include <private/epsimpl.h> /*I "slepceps.h" I*/
#include <slepcblaslapack.h>
 
PetscErrorCode EPSSolve_DSITRLANCZOS(EPS);
 
/trunk/src/eps/impls/krylov/krylov.c
21,9 → 21,9
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include "private/slepcimpl.h"
#include "slepcblaslapack.h"
#include <private/epsimpl.h> /*I "slepceps.h" I*/
#include <private/slepcimpl.h> /*I "slepcsys.h" I*/
#include <slepcblaslapack.h>
 
#undef __FUNCT__
#define __FUNCT__ "EPSBasicArnoldi"
/trunk/src/eps/impls/krylov/arnoldi/arnoldi.c
35,8 → 35,8
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include "slepcblaslapack.h"
#include <private/epsimpl.h> /*I "slepceps.h" I*/
#include <slepcblaslapack.h>
 
PetscErrorCode EPSSolve_ARNOLDI(EPS);
 
/trunk/src/eps/impls/krylov/lanczos/lanczos.c
37,7 → 37,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include <private/epsimpl.h> /*I "slepceps.h" I*/
 
PetscErrorCode EPSSolve_LANCZOS(EPS);
 
/trunk/src/eps/impls/krylov/krylovschur/ks-symm.c
39,8 → 39,8
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include "slepcblaslapack.h"
#include <private/epsimpl.h> /*I "slepceps.h" I*/
#include <slepcblaslapack.h>
 
#undef __FUNCT__
#define __FUNCT__ "ArrowTridFlip"
/trunk/src/eps/impls/krylov/krylovschur/ks-harm.c
39,8 → 39,8
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include "slepcblaslapack.h"
#include <private/epsimpl.h> /*I "slepceps.h" I*/
#include <slepcblaslapack.h>
 
#undef __FUNCT__
#define __FUNCT__ "EPSTranslateHarmonic"
/trunk/src/eps/impls/krylov/krylovschur/krylovschur.c
39,8 → 39,8
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include "slepcblaslapack.h"
#include <private/epsimpl.h> /*I "slepceps.h" I*/
#include <slepcblaslapack.h>
 
PetscErrorCode EPSSolve_KRYLOVSCHUR_DEFAULT(EPS);
extern PetscErrorCode EPSSolve_KRYLOVSCHUR_HARMONIC(EPS);
/trunk/src/eps/impls/davidson/common/dvd_blas.c
19,9 → 19,6
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "slepc.h" /*I "slepc.h" I*/
#include "slepceps.h" /*I "slepc.h" I*/
#include "slepcblaslapack.h"
#include "davidson.h"
 
PetscLogEvent SLEPC_SlepcDenseMatProd = 0;
/trunk/src/eps/impls/davidson/common/dvd_calcpairs.c
30,10 → 30,8
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "slepc.h"
#include "private/epsimpl.h"
#include "davidson.h"
#include "slepcblaslapack.h"
#include <slepcblaslapack.h>
 
PetscErrorCode dvd_calcpairs_proj_qz(dvdDashboard *d);
PetscErrorCode dvd_calcpairs_qz_start(dvdDashboard *d);
/trunk/src/eps/impls/davidson/common/dvd_improvex.c
24,8 → 24,7
*/
 
#include "davidson.h"
#include "slepcblaslapack.h"
#include "slepcvec.h"
#include <slepcvec.h>
 
PetscErrorCode dvd_improvex_PfuncV(dvdDashboard *d, void *funcV, Vec *D,
PetscInt max_size_D, PetscInt r_s, PetscInt r_e, Vec *auxV,
/trunk/src/eps/impls/davidson/common/davidson.c
25,10 → 25,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h"
#include "private/stimpl.h"
#include "davidson.h"
#include "slepcblaslapack.h"
 
PetscErrorCode EPSView_DAVIDSON(EPS eps,PetscViewer viewer);
 
/trunk/src/eps/impls/davidson/common/davidson.h
31,11 → 31,10
options.
*/
 
#include "petsc.h"
#include "private/epsimpl.h"
#include "private/stimpl.h"
#include <private/epsimpl.h> /*I "slepceps.h" I*/
#include <private/stimpl.h> /*I "slepcst.h" I*/
#include <slepcblaslapack.h>
 
 
typedef struct _dvdFunctionList {
PetscErrorCode (*f)(void*);
void *d;
/trunk/src/eps/impls/davidson/gd/gd.c
21,10 → 21,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include "private/stimpl.h"
#include "../src/eps/impls/davidson/common/davidson.h"
#include "slepcblaslapack.h"
#include <../src/eps/impls/davidson/common/davidson.h>
 
PetscErrorCode EPSSetUp_GD(EPS eps);
PetscErrorCode EPSDestroy_GD(EPS eps);
/trunk/src/eps/impls/davidson/jd/jd.c
21,10 → 21,10
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include "private/stimpl.h"
#include "../src/eps/impls/davidson/common/davidson.h"
#include "slepcblaslapack.h"
#include <private/epsimpl.h> /*I "slepceps.h" I*/
#include <private/stimpl.h> /*I "slepcst.h" I*/
#include <../src/eps/impls/davidson/common/davidson.h>
#include <slepcblaslapack.h>
 
PetscErrorCode EPSSetUp_JD(EPS eps);
PetscErrorCode EPSDestroy_JD(EPS eps);
/trunk/src/eps/impls/lapack/lapack.c
22,8 → 22,8
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h"
#include "slepcblaslapack.h"
#include <private/epsimpl.h> /*I "slepceps.h" I*/
#include <slepcblaslapack.h>
 
typedef struct {
Mat OP,A,B;
/trunk/src/eps/impls/power/power.c
40,8 → 40,8
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/epsimpl.h" /*I "slepceps.h" I*/
#include "slepcblaslapack.h"
#include <private/epsimpl.h> /*I "slepceps.h" I*/
#include <slepcblaslapack.h>
 
PetscErrorCode EPSSolve_POWER(EPS);
PetscErrorCode EPSSolve_TS_POWER(EPS);
/trunk/src/ip/ftn-custom/zipf.c
19,8 → 19,8
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/fortranimpl.h"
#include "slepcip.h"
#include <private/fortranimpl.h>
#include <slepcip.h>
 
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define ipcreate_ IPCREATE
/trunk/src/ip/ipdot.c
21,7 → 21,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/ipimpl.h" /*I "slepcip.h" I*/
#include <private/ipimpl.h> /*I "slepcip.h" I*/
 
#undef __FUNCT__
#define __FUNCT__ "IPNorm"
/trunk/src/ip/ipbasic.c
21,7 → 21,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/ipimpl.h" /*I "slepcip.h" I*/
#include <private/ipimpl.h> /*I "slepcip.h" I*/
 
PetscClassId IP_CLASSID = 0;
PetscLogEvent IP_InnerProduct = 0, IP_Orthogonalize = 0, IP_ApplyMatrix = 0;
/trunk/src/ip/iporthog.c
22,8 → 22,8
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/ipimpl.h" /*I "slepcip.h" I*/
#include "slepcblaslapack.h"
#include <private/ipimpl.h> /*I "slepcip.h" I*/
#include <slepcblaslapack.h>
 
/*
IPOrthogonalizeMGS1 - Compute one step of Modified Gram-Schmidt
/trunk/src/ip/ipform.c
21,7 → 21,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/ipimpl.h" /*I "slepcip.h" I*/
#include <private/ipimpl.h> /*I "slepcip.h" I*/
 
#undef __FUNCT__
#define __FUNCT__ "IPSetBilinearForm"
/trunk/src/vec/veccomp0.h
19,8 → 19,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "petscmat.h"
#include "private/vecimpl.h" /*I "vec.h" I*/
#include <private/vecimpl.h> /*I "petsvec.h" I*/
 
#ifdef __WITH_MPI__
#define __SUF__(A) A##_MPI
/trunk/src/examples/ex2.c
24,7 → 24,7
" -n <n>, where <n> = number of grid subdivisions in x dimension.\n"
" -m <m>, where <m> = number of grid subdivisions in y dimension.\n\n";
 
#include "slepceps.h"
#include <slepceps.h>
 
#undef __FUNCT__
#define __FUNCT__ "main"
/trunk/src/examples/ex3.c
24,8 → 24,8
"The command line options are:\n"
" -n <n>, where <n> = number of grid subdivisions in both x and y dimensions.\n\n";
 
#include "slepceps.h"
#include "petscblaslapack.h"
#include <slepceps.h>
#include <petscblaslapack.h>
 
/*
User-defined routines
/trunk/src/examples/ex4.c
24,7 → 24,7
"The command line options are:\n"
" -file <filename>, where <filename> = matrix file in PETSc binary form.\n\n";
 
#include "slepceps.h"
#include <slepceps.h>
 
#undef __FUNCT__
#define __FUNCT__ "main"
/trunk/src/examples/ex5.c
25,7 → 25,7
"The command line options are:\n"
" -m <m>, where <m> = number of grid subdivisions in each dimension.\n\n";
 
#include "slepceps.h"
#include <slepceps.h>
 
/*
User-defined routines
/trunk/src/examples/ex7.c
25,7 → 25,7
" -f1 <filename>, where <filename> = matrix (A) file in PETSc binary form.\n"
" -f2 <filename>, where <filename> = matrix (B) file in PETSc binary form.\n\n";
 
#include "slepceps.h"
#include <slepceps.h>
 
#undef __FUNCT__
#define __FUNCT__ "main"
/trunk/src/examples/ex8.c
24,7 → 24,7
"The command line options are:\n"
" -n <n>, where <n> = matrix dimension.\n\n";
 
#include "slepcsvd.h"
#include <slepcsvd.h>
 
/*
This example computes the singular values of an nxn Grcar matrix,
/trunk/src/examples/ex9.c
26,7 → 26,7
" -alpha <alpha>, -beta <beta>, -delta1 <delta1>, -delta2 <delta2>,\n"
" where <alpha> <beta> <delta1> <delta2> = model parameters.\n\n";
 
#include "slepceps.h"
#include <slepceps.h>
 
/*
This example computes the eigenvalues with largest real part of the
/trunk/src/examples/ex1f.F
31,11 → 31,11
program main
implicit none
 
#include "finclude/petscsys.h"
#include "finclude/petscvec.h"
#include "finclude/petscmat.h"
#include "finclude/slepcsys.h"
#include "finclude/slepceps.h"
#include <finclude/petscsys.h>
#include <finclude/petscvec.h>
#include <finclude/petscmat.h>
#include <finclude/slepcsys.h>
#include <finclude/slepceps.h>
 
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
! Declarations
/trunk/src/examples/ex6f.F
32,11 → 32,11
program main
implicit none
 
#include "finclude/petscsys.h"
#include "finclude/petscvec.h"
#include "finclude/petscmat.h"
#include "finclude/slepcsys.h"
#include "finclude/slepceps.h"
#include <finclude/petscsys.h>
#include <finclude/petscvec.h>
#include <finclude/petscmat.h>
#include <finclude/slepcsys.h>
#include <finclude/slepceps.h>
 
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
! Declarations
194,9 → 194,9
subroutine MatIsing_Mult(A,x,y,ierr)
implicit none
 
#include "finclude/petscsys.h"
#include "finclude/petscvec.h"
#include "finclude/petscmat.h"
#include <finclude/petscsys.h>
#include <finclude/petscvec.h>
#include <finclude/petscmat.h>
 
Mat A
Vec x,y
/trunk/src/examples/ex10.c
25,7 → 25,7
"The command line options are:\n"
" -n <n>, where <n> = number of grid subdivisions = matrix dimension.\n\n";
 
#include "slepceps.h"
#include <slepceps.h>
 
/* Define context for user-provided spectral transformation */
typedef struct {
/trunk/src/examples/ex11.c
25,7 → 25,7
" -n <n>, where <n> = number of grid subdivisions in x dimension.\n"
" -m <m>, where <m> = number of grid subdivisions in y dimension.\n\n";
 
#include "slepceps.h"
#include <slepceps.h>
 
#undef __FUNCT__
#define __FUNCT__ "main"
/trunk/src/examples/ex16f90.F90
30,7 → 30,7
!
program main
 
#include "finclude/slepcqepdef.h"
#include <finclude/slepcqepdef.h>
use slepcqep
 
implicit none
38,8 → 38,8
! For usage without modules, uncomment the following lines and remove
! the previous lines between 'program main' and 'implicit none'
!
!#include "finclude/petsc.h"
!#include "finclude/slepc.h"
!#include <finclude/petsc.h>
!#include <finclude/slepc.h>
 
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
! Declarations
/trunk/src/examples/ex12.c
25,7 → 25,7
"The command line options are:\n"
" -m <m>, where <m> = number of grid subdivisions in each dimension.\n\n";
 
#include "slepceps.h"
#include <slepceps.h>
 
/*
User-defined routines
/trunk/src/examples/ex13.c
28,7 → 28,7
" -m <m>, where <m> = number of grid subdivisions in y dimension.\n"
" -nulldim <k>, where <k> = dimension of the nullspace of B.\n\n";
 
#include "slepceps.h"
#include <slepceps.h>
 
#undef __FUNCT__
#define __FUNCT__ "main"
/trunk/src/examples/ex14.c
24,7 → 24,7
"The command line options are:\n"
" -file <filename>, where <filename> = matrix file in PETSc binary form.\n\n";
 
#include "slepcsvd.h"
#include <slepcsvd.h>
 
#undef __FUNCT__
#define __FUNCT__ "main"
/trunk/src/examples/ex15.c
24,7 → 24,7
" -n <n>, where <n> = matrix dimension.\n"
" -mu <mu>, where <mu> = subdiagonal value.\n\n";
 
#include "slepcsvd.h"
#include <slepcsvd.h>
 
#undef __FUNCT__
#define __FUNCT__ "main"
/trunk/src/examples/ex16.c
24,7 → 24,7
" -n <n>, where <n> = number of grid subdivisions in x dimension.\n"
" -m <m>, where <m> = number of grid subdivisions in y dimension.\n\n";
 
#include "slepcqep.h"
#include <slepcqep.h>
 
#undef __FUNCT__
#define __FUNCT__ "main"
/trunk/src/examples/ex17.c
25,7 → 25,7
" -C <filename>, where <filename> = matrix (C) file in PETSc binary form.\n"
" -K <filename>, where <filename> = matrix (K) file in PETSc binary form.\n\n";
 
#include "slepcqep.h"
#include <slepcqep.h>
 
#undef __FUNCT__
#define __FUNCT__ "main"
/trunk/src/examples/ex18.c
25,7 → 25,7
"The command line options are:\n"
" -m <m>, where <m> = number of grid subdivisions in each dimension.\n\n";
 
#include "slepceps.h"
#include <slepceps.h>
 
/*
User-defined routines
/trunk/src/examples/ex1f90.F90
30,7 → 30,7
!
program main
 
#include "finclude/slepcepsdef.h"
#include <finclude/slepcepsdef.h>
use slepceps
 
implicit none
38,8 → 38,8
! For usage without modules, uncomment the following lines and remove
! the previous lines between 'program main' and 'implicit none'
!
!#include "finclude/petsc.h"
!#include "finclude/slepc.h"
!#include <finclude/petsc.h>
!#include <finclude/slepc.h>
 
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
! Declarations
/trunk/src/examples/ex15f.F
30,11 → 30,11
program main
implicit none
 
#include "finclude/petscsys.h"
#include "finclude/petscvec.h"
#include "finclude/petscmat.h"
#include "finclude/slepcsys.h"
#include "finclude/slepcsvd.h"
#include <finclude/petscsys.h>
#include <finclude/petscvec.h>
#include <finclude/petscmat.h>
#include <finclude/slepcsys.h>
#include <finclude/slepcsvd.h>
 
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
! Declarations
/trunk/src/examples/ex1.c
23,7 → 23,7
"The command line options are:\n"
" -n <n>, where <n> = number of grid subdivisions = matrix dimension.\n\n";
 
#include "slepceps.h"
#include <slepceps.h>
 
#undef __FUNCT__
#define __FUNCT__ "main"
/trunk/src/sys/ftn-custom/zslepc_startf.c
19,7 → 19,7
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "private/fortranimpl.h"
#include <private/fortranimpl.h>
 
#ifdef PETSC_HAVE_FORTRAN_CAPS
#define slepcinitializefortran_ SLEPCINITIALIZEFORTRAN
/trunk/src/sys/ftn-custom/zslepc_start.c
22,13 → 22,6
*/
 
#include "private/fortranimpl.h"
#include "slepcsys.h"
#include "private/epsimpl.h"
#include "private/stimpl.h"
#include "private/svdimpl.h"
#include "private/ipimpl.h"
#include "private/qepimpl.h"
#include <stdlib.h>
 
extern PetscBool SlepcBeganPetsc;
extern PetscBool SlepcInitializeCalled;
/trunk/src/sys/slepcutil.c
19,8 → 19,8
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "slepcsys.h" /*I "slepcsys.h" I*/
#include "petscblaslapack.h"
#include <slepcsys.h>
#include <petscblaslapack.h>
#include <stdlib.h>
 
PetscLogEvent SLEPC_UpdateVectors = 0, SLEPC_VecMAXPBY = 0;
/trunk/src/sys/slepcinit.c
19,12 → 19,12
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
 
#include "slepcsys.h" /*I "slepcsys.h" I*/
#include "private/epsimpl.h"
#include "private/stimpl.h"
#include "private/svdimpl.h"
#include "private/qepimpl.h"
#include "private/ipimpl.h"
#include <slepcsys.h>
#include <private/epsimpl.h> /*I "slepceps.h" I*/
#include <private/stimpl.h> /*I "slepcst.h" I*/
#include <private/svdimpl.h> /*I "slepcsvd.h" I*/
#include <private/qepimpl.h> /*I "slepcqep.h" I*/
#include <private/ipimpl.h> /*I "slepcip.h" I*/
#include <stdlib.h>
 
#undef __FUNCT__