| Line 68... |
Line 68... |
*ierr = STInitializePackage(PETSC_NULL); if (*ierr) { (*PetscErrorPrintf)("SlepcInitialize:Initializing ST package");return;}
|
*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 = EPSInitializePackage(PETSC_NULL); if (*ierr) { (*PetscErrorPrintf)("SlepcInitialize:Initializing EPS package");return;}
|
#endif
|
#endif
|
|
|
SlepcInitializeCalled = PETSC_TRUE;
|
SlepcInitializeCalled = PETSC_TRUE;
|
*ierr = PetscInfo(0,"SlepcInitialize: SLEPc successfully started from Fortran\n");
|
*ierr = PetscInfo(0,"SLEPc successfully started from Fortran\n");
|
if (*ierr) { (*PetscErrorPrintf)("SlepcInitialize:Calling PetscInfo()");return;}
|
if (*ierr) { (*PetscErrorPrintf)("SlepcInitialize:Calling PetscInfo()");return;}
|
|
|
}
|
}
|
|
|
EXTERN_C_END
|
EXTERN_C_END
|