*-----------------------------------------------------------------------
*     Copyright (C) 2000-2016 GFD Dennou Club. All rights reserved.
*-----------------------------------------------------------------------
      SUBROUTINE UUSBRS(RSIZE)

      SAVE

      DATA      RSIZEZ/0.02/


      RSIZEZ=RSIZE

      RETURN
*-----------------------------------------------------------------------
      ENTRY UUQBRS(RSIZE)

      RSIZE=RSIZEZ

      RETURN
      END
