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 /* VRCON */
17 /* ----------------------------------------------------------------------- */
18 /* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. */
19 /* ----------------------------------------------------------------------- */
vrcon_(real * rx,real * ry,integer * n,integer * jx,integer * jy,real * rr)20 /* Subroutine */ int vrcon_(real *rx, real *ry, integer *n, integer *jx,
21 integer *jy, real *rr)
22 {
23 static logical lmiss;
24 extern /* Subroutine */ int vrcon0_(real *, real *, integer *, integer *,
25 integer *, real *), vrcon1_(real *, real *, integer *, integer *,
26 integer *, real *), gllget_(char *, logical *, ftnlen);
27
28 /* Parameter adjustments */
29 --ry;
30 --rx;
31
32 /* Function Body */
33 gllget_("LMISS", &lmiss, (ftnlen)5);
34 if (lmiss) {
35 vrcon1_(&rx[1], &ry[1], n, jx, jy, rr);
36 } else {
37 vrcon0_(&rx[1], &ry[1], n, jx, jy, rr);
38 }
39 return 0;
40 } /* vrcon_ */
41
42