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

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