Create solv_cg.f90