call PCSETTYPE(pc, PCBJACOBI, ierr)
call PCSETTYPE(pc, PCJACOBI, ierr)
call PCSETTYPE(pc, PCILU, ierr)