/*Copyright (C) 1992, 1995 by Thomas Glen Smith.  All Rights Reserved.*/
/* vectin APL2 V1.0.0 **************************************************
* Called by transpos and transpot.  Converts left to an integer vector.*
* Called by compress, drop, expand, and take.                          *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb vectin(left)
Aplcb left;
{
	Errstop; Integer; Perm; Ravel;
	extern int aplerr;

	if (!(left->aplflags & APLINT)) {
		left = integer(left);
		if (aplerr)
			return(errstop(0,left,NULL,NULL));
	}
	return(perm(ravel(left)));
}