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

      SAVE

      DATA      ITYPEZ/1/, INDEXZ/1/


      ITYPEZ=ITYPE

      RETURN
*-----------------------------------------------------------------------
      ENTRY UUQLNT(ITYPE)

      ITYPE=ITYPEZ

      RETURN
*-----------------------------------------------------------------------
      ENTRY UUSLNI(INDEX)

      INDEXZ=INDEX

      RETURN
*-----------------------------------------------------------------------
      ENTRY UUQLNI(INDEX)

      INDEX=INDEXZ

      RETURN
      END
