SUBROUTINE wrt_gst
      RETURN
      END SUBROUTINE wrt_gst