1*-----------------------------------------------------------------------
2*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
3*-----------------------------------------------------------------------
4      SUBROUTINE SZTXZU(UX,UY,CHARS)
5
6      CHARACTER CHARS*(*)
7
8
9      CALL STFTRF(UX,UY,VX,VY)
10      CALL SZTXWV(VX,VY,CHARS)
11
12      END
13