1 /* dv7shf.f -- translated by f2c (version 19970211).
2    You must link the resulting object file with the libraries:
3 	-lf2c -lm   (in that order)
4 */
5 
6 #include "f2c.h"
7 
dv7shf_(n,k,x)8 /* Subroutine */ int dv7shf_(n, k, x)
9 integer *n, *k;
10 doublereal *x;
11 {
12     /* System generated locals */
13     integer i__1;
14 
15     /* Local variables */
16     static integer i__;
17     static doublereal t;
18     static integer nm1;
19 
20 
21 /*  ***  SHIFT X(K),...,X(N) LEFT CIRCULARLY ONE POSITION  *** */
22 
23 
24 
25     /* Parameter adjustments */
26     --x;
27 
28     /* Function Body */
29     if (*k >= *n) {
30 	goto L999;
31     }
32     nm1 = *n - 1;
33     t = x[*k];
34     i__1 = nm1;
35     for (i__ = *k; i__ <= i__1; ++i__) {
36 /* L10: */
37 	x[i__] = x[i__ + 1];
38     }
39     x[*n] = t;
40 L999:
41     return 0;
42 } /* dv7shf_ */
43 
44