#include    <mpl.h> 
#include    "mpl_blas.h" 
#define PRECISION float


visible void
/***************************************************************************
*                                                                          *
*   DATA PARALLEL BLAS based on MPL                                        *
*                                                                          *
*   Internal routine, this routine is not supposed to be                   *
*                     called by user programs.                             *
*                                                                          *
*   Version 1.0   1/4-92 ,                                                 *
*   For MasPar MP-1 computers                                              *
*                                                                          *
*   para//ab, University of Bergen, NORWAY                                 *
*                                                                          *
*   The calling sequence may be changed in a future version.               *
*   Please report any BUGs, ideas for improvement or other                 *
*   comments to                                                            *
*                    adm@parallab.uib.no                                   *
*                                                                          *
*   Future versions may then reflect your suggestions.                     *
*   The most current version of this software is available                 *
*   from netlib@nac.no , send the message `send index from maspar'         *
*                                                                          *
*   REVISIONS:                                                             *
*                                                                          *
***************************************************************************/
#ifdef __STDMPL__
mpl_scopy(
    register int    n,
    register plural PRECISION  *x, 
    register plural PRECISION  *y
    )
#else
mpl_scopy(n, x, y)
    register int    n;
    register plural PRECISION  *x, *y;
#endif
   {
    register int i;
        for (i=0; i<NFB(n); i++)
            *(y++) = *(x++);
        if(ENDVEC(n))
	    *y = *x;
}