savesg.f
上传用户:szhypcb168
上传日期:2007-01-06
资源大小:2187k
文件大小:1k
源码类别:

语音压缩

开发平台:

Unix_Linux

  1. c==========================================================================
  2. c
  3. c ROUTINE
  4. c               save_sg
  5. c
  6. c FUNCTION
  7. c                
  8. c               save data in sungraph format
  9. c
  10. c SYNOPSIS
  11. c               subroutine save_sg(id, data, number, string)
  12. c
  13. c   formal 
  14. c
  15. c                       data    I/O
  16. c       name            type    type    function
  17. c       -------------------------------------------------------------------
  18. c       id int i variable id name
  19. c data i array or variable to be saved
  20. c number int i number of values to be saved
  21. c string chr i character string to aid in error
  22. c location
  23. c
  24. c==========================================================================
  25. c
  26. c DESCRIPTION
  27. c
  28. c**************************************************************************
  29. c
  30. subroutine save_sg(id, data, number, string)
  31. c
  32. implicit undefined(a-z)
  33. integer id, number, status, save_variable
  34. integer data(*)
  35. character*(*) string
  36. c
  37. status=save_variable(id, data, number)
  38. if (status .lt. 0) then
  39.    print *,' save_sg:  disk write error at ', string
  40.    call print_disk_write_error(status)
  41.    stop
  42. end if
  43. return
  44. end