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 /* VRSET */
17 /* ----------------------------------------------------------------------- */
18 /* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. */
19 /* ----------------------------------------------------------------------- */
vrset_0_(int n__,real * rx,real * ry,integer * n,integer * jx,integer * jy)20 /* Subroutine */ int vrset_0_(int n__, real *rx, real *ry, integer *n,
21 integer *jx, integer *jy)
22 {
23 /* System generated locals */
24 integer i__1;
25
26 /* Local variables */
27 static integer j, kx, ky;
28
29 /* --------------------------- */
30 /* --------------------------- */
31 /* Parameter adjustments */
32 --rx;
33 --ry;
34
35 /* Function Body */
36 switch(n__) {
37 case 1: goto L_vrset0;
38 case 2: goto L_vrset1;
39 }
40
41
42 L_vrset0:
43
44 L_vrset1:
45 kx = 1 - *jx;
46 ky = 1 - *jy;
47 i__1 = *n;
48 for (j = 1; j <= i__1; ++j) {
49 kx += *jx;
50 ky += *jy;
51 ry[ky] = rx[kx];
52 /* L10: */
53 }
54 return 0;
55 } /* vrset_ */
56
vrset_(real * rx,real * ry,integer * n,integer * jx,integer * jy)57 /* Subroutine */ int vrset_(real *rx, real *ry, integer *n, integer *jx,
58 integer *jy)
59 {
60 return vrset_0_(0, rx, ry, n, jx, jy);
61 }
62
vrset0_(real * rx,real * ry,integer * n,integer * jx,integer * jy)63 /* Subroutine */ int vrset0_(real *rx, real *ry, integer *n, integer *jx,
64 integer *jy)
65 {
66 return vrset_0_(1, rx, ry, n, jx, jy);
67 }
68
vrset1_(real * rx,real * ry,integer * n,integer * jx,integer * jy)69 /* Subroutine */ int vrset1_(real *rx, real *ry, integer *n, integer *jx,
70 integer *jy)
71 {
72 return vrset_0_(2, rx, ry, n, jx, jy);
73 }
74
75