#	from it: agcgt1 = 2 * agcgt,
#	and access both from other modules (agc)
#--------------------------------------------------------------

*call	parmath	edit
set	agcgt	float	300
set	agcgt1	float	
2.			agcgt

...

*call	agc	agcgt
...
*call	agc	agcgt1
...