Update GS.f90