/**************************************************************************
*
* ROUTINE
*               movefr
*
* FUNCTION
*               copy real array to another array
*
* SYNOPSIS
*               subroutine movefr(n, a, b)
*
*   formal 
*
*                       data    I/O
*       name            type    type    function
*       -------------------------------------------------------------------
*       n               int	i       number of elements to copy
*       a               float	i       source
*       b               float	o       destination
***************************************************************************
*
* CALLED BY
*
*	csub	psearch
*
* CALLS
*
*
**************************************************************************/
movefr(n, a, b)
int n;
register float *a, *b;
{

register  int i;
  for (i = 0; i < n; i++)
    *b++ = *a++;
}