/*Copyright (C) 1992, 1994 by Thomas Glen Smith.  All Rights Reserved.*/
/*quadinit APL2 V1.0.0 ************************************************
* Called from aplinit to initialize the external quad name strings.    *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
void quadinit()
{
#include "quadext.h"

	quadav[0] = '\012';	/* Internal name for atomic vector.		*/
	quadav[1] = '\0';	/* End of string indicator.				*/
	quadct[0] = '\015';	/* Internal name for quad ct.				*/
	quadct[1] = '\0';	/* End of string indicator.				*/
	quadfc[0] = '\003';	/* Internal name for quad fc.				*/
	quadfc[1] = '\0';	/* End of string indicator.				*/
	quadio[0] = '\014';	/* Internal name for index origin.			*/
	quadio[1] = '\0';	/* End of string indicator.				*/
	quadlx[0] = '\047';	/* Internal name for latent expression.		*/
	quadlx[1] = '\0';	/* End of string indicator.				*/
	quadpp[0] = '\006';	/* Internal name for print precision.		*/
	quadpp[1] = '\0';	/* End of string indicator.				*/
	quadrl[0] = '\007';	/* Internal name for print precision.		*/
	quadrl[1] = '\0';	/* End of string indicator.				*/
	quadts[0] = '\010';	/* Internal name for print precision.		*/
	quadts[1] = '\0';	/* End of string indicator.				*/
	quadtt[0] = '\011';	/* Internal name for time zone.       		*/
	quadtt[1] = '\0';	/* End of string indicator.				*/
	quadtz[0] = '\012';	/* Internal name for time zone.       		*/
	quadtz[1] = '\0';	/* End of string indicator.				*/
}