/*** ^^A -*-C++-*- **********************************************/
/*	setgtc 		7xi09					*/
/****************************************************************/
/*	Short Description :					*/
/*	Set LB and GB for simple Gaussian multiplication	*/
/****************************************************************/
/*
$Id: setgtc,v 1.10.16.1 2006/03/16 16:27:06 svcu Exp $
*/

float tlb,tgb,tgtc,taq;

GETCURDATA
tlb=-0.01; tgtc=0;
if (strlen(cmd) == 0) 
{
    GETFLOAT("Enter Gaussian time constant to set : ",tgtc);
}
else
{
    if (1 != sscanf(cmd, "%f", &tgtc))
    {
 
	STOPMSG("illegal input, one real number needed, Gaussian time constant");
    }
}
if (tgtc<0)
{
	STOPMSG("illegal input, Gaussian time must be positive");
}
FETCHPAR("AQ",&taq);
d1=tgtc;
tgb=-3.141593*tlb*tgtc*tgtc/(taq*2);
STOREPAR("LB",tlb);
STOREPAR("GB",tgb);
QUIT;