Voice Compress

Development Platform:

Unix_Linux

savesg.f：Code Content

							c==========================================================================
c
c ROUTINE
c               save_sg
c
c FUNCTION
c                
c               save data in sungraph format
c
c SYNOPSIS
c               subroutine save_sg(id, data, number, string)
c
c   formal 
c
c                       data    I/O
c       name            type    type    function
c       -------------------------------------------------------------------
c       id		int	i	variable id name
c	data			i	array or variable to be saved
c	number		int	i	number of values to be saved
c	string		chr	i	character string to aid in error
c					location
c
c==========================================================================
c
c DESCRIPTION
c
c**************************************************************************
c
	subroutine save_sg(id, data, number, string)
c
	implicit undefined(a-z)
	integer id, number, status, save_variable
	integer data(*)
	character*(*) string
c
	status=save_variable(id, data, number)
	if (status .lt. 0) then
	   print *,' save_sg:  disk write error at ', string
	   call print_disk_write_error(status)
	   stop
	end if
	return
	end

						