1 /* -- translated by f2c (version 20100827).
2 You must link the resulting object file with libf2c:
3 on Microsoft Windows system, link with libf2c.lib;
4 on Linux or Unix systems, link with .../path/to/libf2c.a -lm
5 or, if you install libf2c.a in a standard place, with -lf2c -lm
6 -- in that order, at the end of the command line, as in
7 cc *.o -lf2c -lm
8 Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
9
10 http://www.netlib.org/f2c/libf2c.zip
11 */
12
13 #include "libtinyf2c.h"
14
15 /* ----------------------------------------------------------------------- */
16 /* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. */
17 /* ----------------------------------------------------------------------- */
sgtxzr_(real * rx,real * ry,char * chars,real * rsize,integer * irota,integer * icent,integer * index,ftnlen chars_len)18 /* Subroutine */ int sgtxzr_(real *rx, real *ry, char *chars, real *rsize,
19 integer *irota, integer *icent, integer *index, ftnlen chars_len)
20 {
21 extern /* Subroutine */ int msgdmp_(char *, char *, char *, ftnlen,
22 ftnlen, ftnlen), sztxcl_(void), sztxop_(real *, integer *,
23 integer *, integer *), sztxzr_(real *, real *, char *, ftnlen);
24
25 if (*rsize == 0.f) {
26 msgdmp_("M", "SGTXZR", "TEXT HEIGHT IS 0 / DO NOTHING.", (ftnlen)1, (
27 ftnlen)6, (ftnlen)30);
28 return 0;
29 }
30 if (*rsize < 0.f) {
31 msgdmp_("E", "SGTXZR", "TEXT HEIGHT IS LESS THAN ZERO.", (ftnlen)1, (
32 ftnlen)6, (ftnlen)30);
33 }
34 if (! (-1 <= *icent && *icent <= 1)) {
35 msgdmp_("E", "SGTXZR", "CENTERING OPTION IS INVALID.", (ftnlen)1, (
36 ftnlen)6, (ftnlen)28);
37 }
38 if (*index == 0) {
39 msgdmp_("M", "SGTXZR", "TEXT INDEX IS 0 / DO NOTHING.", (ftnlen)1, (
40 ftnlen)6, (ftnlen)29);
41 return 0;
42 }
43 if (*index < 0) {
44 msgdmp_("E", "SGTXZR", "TEXT INDEX IS LESS THAN 0.", (ftnlen)1, (
45 ftnlen)6, (ftnlen)26);
46 }
47 sztxop_(rsize, irota, icent, index);
48 sztxzr_(rx, ry, chars, chars_len);
49 sztxcl_();
50 return 0;
51 } /* sgtxzr_ */
52
53