*-----------------------------------------------------------------------
*     Copyright (C) 2000-2016 GFD Dennou Club. All rights reserved.
*-----------------------------------------------------------------------
      SUBROUTINE UUSARP(ITPT1,ITPT2)

      SAVE

      DATA      ITPT1Z/201/, ITPT2Z/401/


      ITPT1Z=ITPT1
      ITPT2Z=ITPT2

      RETURN
*-----------------------------------------------------------------------
      ENTRY UUQARP(ITPT1,ITPT2)

      ITPT1=ITPT1Z
      ITPT2=ITPT2Z

      RETURN
      END
