Update cg.f90