Mathematica: PDESolve and Fix for large Matrices