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 /* 3-D TRANSFORMATION */
17 /* ----------------------------------------------------------------------- */
18 /* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. */
19 /* ----------------------------------------------------------------------- */
scsobj_0_(int n__,real * xobj3,real * yobj3,real * zobj3)20 /* Subroutine */ int scsobj_0_(int n__, real *xobj3, real *yobj3, real *zobj3)
21 {
22 extern /* Subroutine */ int sgrget_(char *, real *, ftnlen), sgrset_(char
23 *, real *, ftnlen);
24
25 switch(n__) {
26 case 1: goto L_scqobj;
27 }
28
29 sgrset_("XOBJ3", xobj3, (ftnlen)5);
30 sgrset_("YOBJ3", yobj3, (ftnlen)5);
31 sgrset_("ZOBJ3", zobj3, (ftnlen)5);
32 return 0;
33 /* ----------------------------------------------------------------------- */
34
35 L_scqobj:
36 sgrget_("XOBJ3", xobj3, (ftnlen)5);
37 sgrget_("YOBJ3", yobj3, (ftnlen)5);
38 sgrget_("ZOBJ3", zobj3, (ftnlen)5);
39 return 0;
40 } /* scsobj_ */
41
scsobj_(real * xobj3,real * yobj3,real * zobj3)42 /* Subroutine */ int scsobj_(real *xobj3, real *yobj3, real *zobj3)
43 {
44 return scsobj_0_(0, xobj3, yobj3, zobj3);
45 }
46
scqobj_(real * xobj3,real * yobj3,real * zobj3)47 /* Subroutine */ int scqobj_(real *xobj3, real *yobj3, real *zobj3)
48 {
49 return scsobj_0_(1, xobj3, yobj3, zobj3);
50 }
51
52