1*-----------------------------------------------------------------------
2*     UYSTTL : PLOT SUB (SMALL) TITLE
3*-----------------------------------------------------------------------
4*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
5*-----------------------------------------------------------------------
6      SUBROUTINE UYSTTL(CSIDE,CTTL,PX)
7
8      CHARACTER CSIDE*1,CTTL*(*)
9
10      LOGICAL   LUYCHK
11
12
13      IF (.NOT.(LUYCHK(CSIDE))) THEN
14        CALL MSGDMP('E','UYSTTL','SIDE PARAMETER IS INVALID.')
15      END IF
16
17      CALL UYPTTL(CSIDE,1,CTTL,PX)
18
19      END
20