Create solv_bicg.f90