*-----------------------------------------------------------------------
*     Copyright (C) 2000-2016 GFD Dennou Club. All rights reserved.
*-----------------------------------------------------------------------
      SUBROUTINE GRSWND(UXMIN, UXMAX, UYMIN, UYMAX)


      CALL SGRSTX('UXMIN',UXMIN)
      CALL SGRSTX('UXMAX',UXMAX)
      CALL SGRSTX('UYMIN',UYMIN)
      CALL SGRSTX('UYMAX',UYMAX)

      END
