2 calls to
TRIDIAG
SOLVWPIM
SOLVWPIM1