*-----------------------------------------------------------------------
      SUBROUTINE UXSFMT(CFMT)
      CHARACTER CFMT*(*)

      CALL UZCSET('CXFMT', CFMT)

      RETURN
*-----------------------------------------------------------------------
      ENTRY UXQFMT(CFMT)

      CALL UZCGET('CXFMT', CFMT)

      END
