1*-----------------------------------------------------------------------
2*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
3*-----------------------------------------------------------------------
4      SUBROUTINE SGTXZR(RX,RY,CHARS,RSIZE,IROTA,ICENT,INDEX)
5
6      CHARACTER CHARS*(*)
7
8
9      IF (RSIZE.EQ.0) THEN
10        CALL MSGDMP('M','SGTXZR','TEXT HEIGHT IS 0 / DO NOTHING.')
11        RETURN
12      END IF
13      IF (RSIZE.LT.0) THEN
14        CALL MSGDMP('E','SGTXZR','TEXT HEIGHT IS LESS THAN ZERO.')
15      END IF
16      IF (.NOT.(-1.LE.ICENT .AND. ICENT.LE.1)) THEN
17        CALL MSGDMP('E','SGTXZR','CENTERING OPTION IS INVALID.')
18      END IF
19      IF (INDEX.EQ.0) THEN
20        CALL MSGDMP('M','SGTXZR','TEXT INDEX IS 0 / DO NOTHING.')
21        RETURN
22      END IF
23      IF (INDEX.LT.0) THEN
24        CALL MSGDMP('E','SGTXZR','TEXT INDEX IS LESS THAN 0.')
25      END IF
26
27      CALL SZTXOP(RSIZE,IROTA,ICENT,INDEX)
28      CALL SZTXZR(RX,RY,CHARS)
29      CALL SZTXCL
30
31      END
32