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

语音压缩

开发平台:

Unix_Linux

  1. c==========================================================================
  2. c
  3. c ROUTINE
  4. c               mark
  5. c
  6. c FUNCTION
  7. c                
  8. c               display prompts to indicate processing
  9. c (output to standard error)
  10. c
  11. c SYNOPSIS
  12. c               subroutine mark (type)
  13. c
  14. c   formal 
  15. c
  16. c                       data    I/O
  17. c       name            type    type    function
  18. c       -------------------------------------------------------------------
  19. c       type int i 0 - display a 'pump' (rotating bar)
  20. c 1 - display a row of dots
  21. c
  22. c**************************************************************************
  23. c
  24. subroutine mark (type)
  25. implicit undefined(a-z)
  26. c
  27. integer i, type
  28. character*4 chr
  29. data chr /'/-\|'/
  30. save i
  31. if (type .ne. 0) then
  32.          write (0,'(a,$)') '.'
  33. else
  34.    i = i + 1
  35.            write(0,'(a,$)') chr(i:i)//char(8)
  36.    if (i .ge. 4) i = 0
  37. end if
  38. call flush(0)
  39. return
  40. end