语音压缩

开发平台：

Unix_Linux

pack.f：源码内容

							c==========================================================================
c
c ROUTINE
c		pack (pack decimal representation into binary)
c
c FUNCTION
c		Input decimal value and number of binary bits, 
c		program returns binary value packed in array.
c
c SYNOPSIS
c		subroutine pack(value, bits, steambits, array, pointer)
c
c   formal 
c
c                       data    I/O
c       name            type    type    function
c       -------------------------------------------------------------------
c	value		I	I	decimal value
c	bits		I	I	number of bits to convert to
c					(ie. 01001 for 5 bits, 1st 0 incl.)
c	streambits	I	I	number of bits in CELP frame
c	array		I*2	O	array to which one bit is assigned
c					for binary representation
c	pointer		I	I/O	points to appropriate element in
c					array
c
c==========================================================================
c
c DESCRIPTION
c
c	This program packs a decimal value into a binary value
c	to be decoded by unpack.f in CELP synthesizer sections.
c
c**************************************************************************
c
	subroutine pack(value, bits, streambits, array, pointer)
c
	implicit undefined(a-z)
	integer dvalue, i
	integer value, bits, pointer, streambits
	integer*2 array(streambits)
	real rvalue, rem
c
	rvalue=float(value)
	do 10 i=1,bits
	  rem=amod(rvalue,2.0)
	  if (rem .eq. 0.0) then
	    array(pointer)=0
	  else
	    array(pointer)=1
	  end if
	  dvalue=ifix(rvalue/2.0)
	  rvalue=float(dvalue)
	  pointer=pointer+1
10	continue
	return
	end
	    

						