CHARACTER*(MAX_LEN_FNAM) PETSC_PRECOND_TYPE
& PETSC_PRECOND_TYPE
SELECT CASE (PETSC_PRECOND_TYPE)
& PETSC_PRECOND_TYPE, PETSC_SOLVER_TYPE
PETSC_PRECOND_TYPE = 'PCBJACOBI'