CHARACTER*(MAX_LEN_FNAM) PETSC_PRECOND_TYPE
& PETSC_PRECOND_TYPE
IF (PETSC_PRECOND_TYPE.eq.'MUMPS') then
SELECT CASE (PETSC_PRECOND_TYPE)
& PETSC_PRECOND_TYPE, PETSC_SOLVER_TYPE,
PETSC_PRECOND_TYPE = 'PCBJACOBI'