语音压缩

开发平台：

Unix_Linux

impulse.f：源码内容

							C==========================================================================
C
C ROUTINE
C               impulse 
C
C FUNCTION
C               compute impulse response with direct form filter
C		exclusive of adaptive code book contribution
C
C SYNOPSIS
C               subroutine impulse(l)
C
C   formal 
C
C                       data    I/O
C       name            type    type    function
C       -------------------------------------------------------------------
C       l               int     i       impulse response length
C
C   global 
C                       data    I/O
C       name            type    type    function
C       -------------------------------------------------------------------
C 	/ccsub/       see description include file
C
C==========================================================================
C*-
        subroutine impulse(l)
	implicit undefined(a-z)
	integer l
c
	include 'ccsub.com'
convex	#include "ccsub.com"
	real fctemp(maxno+1)
c
        call setr(l, 0.0, h)
        h(1) = 1.0
	call setr(no+1, 0.0, d5)
	call bwexp(gamma, fc, fctemp, no)
	call polefilt(fctemp, no, d5, h, l)
        return
        end

						