mvc_(a,b,n)
int	*n;	/* number of bytes to be moved */
double *a,*b;	/* mobe a to b */
{
double *c,*d;
int	i,j;
char   *cc,*dd,*ddd;
if ( *n < 1) return;
dd = (char *)  b;
cc = (char *)  a;
i = b - a;
switch (i)
	{
	case (1):
		j = *n < 4 ? 4 : *n;
		for (i=0; i<j;i++) *(a++) = *a;
		b = a + 1;
		break;
	case (2):
		if (*n == 1) { *(cc+2) = *cc; return; }
		*(cc+2) = *cc;
		*(cc+3) = *(cc+1);
		b = a + 1;
		break;
	case (3):
		dd = (char *)  b;
		cc = (char *)  a;
		for ( ; dd < ddd ; *(dd++) = *(cc++));  /* move remaining char */
		return;

	}
dd += *n;
d = (double *) dd;
d -= 1;
for ( ; b < d ; *(b++) = *(a++));   /* move double words  */
ddd = dd;
dd = (char *)  b;
cc = (char *)  a;
for ( ; dd < ddd ; *(dd++) = *(cc++));  /* move remaining char */
}