/* exchng.f -- translated by f2c (version 19950314).
   You must link the resulting object file with the libraries:
	-lF77 -lI77 -lm   (in that order)
*/

#include "f2c.h"

/* Subroutine */ int exchng_(doublereal *a, doublereal *b, doublereal *c, 
	doublereal *d, doublereal *x, doublereal *y, doublereal *t, 
	doublereal *q, integer *n)
{
    /* System generated locals */
    integer i__1;

    /* Local variables */
    static integer i;

/* ******************************************************************** */

/* THE CONTENTS OF A, C, T, AND X ARE STORED IN B, D, Q, AND Y! */

/*   THIS IS A DEDICATED ROUTINE, IT IS CALLED BY LINMIN AND LOCMIN ONLY. 
*/

/* ******************************************************************** */
    /* Parameter adjustments */
    --y;
    --x;

    /* Function Body */
    *b = *a;
    *d = *c;
    *q = *t;
    i__1 = *n;
    for (i = 1; i <= i__1; ++i) {
	y[i] = x[i];
/* L10: */
    }
    return 0;

} /* exchng_ */