/*Copyright (C) 1992, 1995 by Thomas Glen Smith.  All Rights Reserved.*/
/* iscalar APL2 V1.0.0 *************************************************
* Called by first, match, and transpot. Returns a pointer to an APLCB  *
* for a scalar variable equal in value to the integer argument.        *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb iscalar(value)
int value;
{
	Getcb;
	Aplcb out;

	out=getcb(NULL,1,APLINT+APLTEMP,0,NULL);
	if (out != NULL)
		*(out->aplptr.aplint) = value;
	return(out);
}