dsign.mata

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

*! version 1.0.0  15oct2004
version 9.0
mata:

/*
	FORTRAN DSIGN() function
*/

real scalar dsign(a,b) return(b>=0 ? abs(a) : -abs(a))

end