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