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 /* NORMALIZATION TRANSFORMATION */
17 /* ----------------------------------------------------------------------- */
18 /* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. */
19 /* ----------------------------------------------------------------------- */
sgsvpt_0_(int n__,real * vxmin,real * vxmax,real * vymin,real * vymax)20 /* Subroutine */ int sgsvpt_0_(int n__, real *vxmin, real *vxmax, real *vymin,
21 real *vymax)
22 {
23 extern /* Subroutine */ int sgrget_(char *, real *, ftnlen), sgrset_(char
24 *, real *, ftnlen);
25
26 switch(n__) {
27 case 1: goto L_sgqvpt;
28 }
29
30 sgrset_("VXMIN", vxmin, (ftnlen)5);
31 sgrset_("VXMAX", vxmax, (ftnlen)5);
32 sgrset_("VYMIN", vymin, (ftnlen)5);
33 sgrset_("VYMAX", vymax, (ftnlen)5);
34 return 0;
35 /* ----------------------------------------------------------------------- */
36
37 L_sgqvpt:
38 sgrget_("VXMIN", vxmin, (ftnlen)5);
39 sgrget_("VXMAX", vxmax, (ftnlen)5);
40 sgrget_("VYMIN", vymin, (ftnlen)5);
41 sgrget_("VYMAX", vymax, (ftnlen)5);
42 return 0;
43 } /* sgsvpt_ */
44
sgsvpt_(real * vxmin,real * vxmax,real * vymin,real * vymax)45 /* Subroutine */ int sgsvpt_(real *vxmin, real *vxmax, real *vymin, real *
46 vymax)
47 {
48 return sgsvpt_0_(0, vxmin, vxmax, vymin, vymax);
49 }
50
sgqvpt_(real * vxmin,real * vxmax,real * vymin,real * vymax)51 /* Subroutine */ int sgqvpt_(real *vxmin, real *vxmax, real *vymin, real *
52 vymax)
53 {
54 return sgsvpt_0_(1, vxmin, vxmax, vymin, vymax);
55 }
56
57