语音压缩

开发平台：

Unix_Linux

wrterr.f：源码内容

							c==========================================================================
c
c ROUTINE
c               write_error
c
c FUNCTION
c                
c               prints sungraph write error message
c
c SYNOPSIS
c               subroutine write_error(status,string)
c
c   formal 
c
c                       data    I/O
c       name            type    type    function
c       -------------------------------------------------------------------
c       status		i	i	sungraph error index
c	string		chr	i	name of file in error
c
c==========================================================================
c
c DESCRIPTION
c
c
c**************************************************************************
c
	subroutine write_error(status,string)
	implicit undefined(a-z)
	integer status
	character*(*) string
c
	print *,' write_error:  disk write error at ', string
	call print_disk_write_error(status)
	stop
	end

						