/* Copyright (C) 1992 by Thomas Glen Smith.  All Rights Reserved. */
/* ravel APL2 V1.0.0 ***************************************************
* Called by ravel2 and vectin.  Ravel produces a vector whose elements *
* are from the argument in row major order.                            *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb ravel(rite)
Aplcb rite;
{
	Dtacopy; Errinit; Errstop; Getcb;
	Aplcb out;
	int datatyp;
	char *dataptr;

	if (errinit())
		return(errstop(0,NULL,rite,NULL));
	out = getcb(NULL,rite->aplcount,
		(datatyp=rite->aplflags & (APLMASK + APLAPL))+APLTEMP,1,NULL);
	dataptr=dtacopy(out->aplptr.apldata,rite->aplptr.apldata,
		out->aplcount,1,datatyp);
	return(errstop(0,NULL,rite,out));
}