modify: Fortran solver use block LU