/trunk/src/sys/ftn-custom/makefile
1,7 → 1,7
| |
| #requirespackage 'PETSC_HAVE_FORTRAN' |
| ALL: lib |
| CFLAGS = -DSLEPC_LIB_DIR='"${SLEPC_INSTALL_DIR}/lib/${PETSC_ARCH}"' |
| CFLAGS = -DSLEPC_LIB_DIR='"${SLEPC_LIB_DIR}"' |
| FFLAGS = |
| SOURCEC = zslepc_start.c zslepc_startf.c |
| OBJSC = zslepc_start.o zslepc_startf.o |
/trunk/src/sys/ftn-custom/zslepc_start.c
6,8 → 6,6
| #include "slepc.h" |
| #include "slepcst.h" |
| #include "slepceps.h" |
| #include "slepcsvd.h" |
| #include "slepcip.h" |
| |
| extern PetscTruth SlepcBeganPetsc; |
| |
69,8 → 67,6
| #else |
| *ierr = STInitializePackage(PETSC_NULL); if (*ierr) { (*PetscErrorPrintf)("SlepcInitialize:Initializing ST package");return;} |
| *ierr = EPSInitializePackage(PETSC_NULL); if (*ierr) { (*PetscErrorPrintf)("SlepcInitialize:Initializing EPS package");return;} |
| *ierr = SVDInitializePackage(PETSC_NULL); if (*ierr) { (*PetscErrorPrintf)("SlepcInitialize:Initializing SVD package");return;} |
| *ierr = IPInitializePackage(PETSC_NULL); if (*ierr) { (*PetscErrorPrintf)("SlepcInitialize:Initializing IP package");return;} |
| #endif |
| |
| SlepcInitializeCalled = PETSC_TRUE; |