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