语音压缩

开发平台：

Unix_Linux

read_err.f：源码内容

							c==========================================================================
c
c ROUTINE
c               read_error
c
c FUNCTION
c                
c               prints sungraph read error message
c
c SYNOPSIS
c               subroutine read_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 read_error(status,string)
	implicit undefined(a-z)
	integer status
	character*(*) string
c
	print *,' read_error:  disk read error at ', string
	call print_disk_read_error(status)
	stop
	end

						