Create solv_precond.f90