getcl_defs.fh

来自「这是LPC-10压缩算法的源代码,愿共享之.也希望能赐与MELP方面的算法源码.」· FH 代码 · 共 18 行

* $Log: getcl_defs.fh,v $
* Revision 1.1  1996/02/07  14:46:51  jaf
* Initial revision
*

	integer FLEN, SLEN, IS_SWITCH, IS_VALUE, IS_PARM
	integer MATCHED, AMBIGUOUS, DUPLICATE, RANGE, BADNUM
	parameter (FLEN=100)
	parameter (SLEN=400)
	parameter (IS_SWITCH=1, IS_VALUE=2, IS_PARM=4)
	parameter (MATCHED=8, AMBIGUOUS=16, DUPLICATE=32)
	parameter (RANGE=64, BADNUM=128)

	integer argc, sargc
	integer*2 lx(2,FLEN), flag(FLEN)
	character*(SLEN) line
	common /getcl_defs/ argc, sargc, lx, flag, line