Category

Development Platform
Home > SourceCode/Document > Communication-Mobile > Voice Compress > View Code
gainncod.f
Package: celp_3.2a.tar.gz　[view]
Upload User: szhypcb168
Upload Date: 2007-01-06
Package Size: 2187k
Code Size: 2k
Category:

Voice Compress

Development Platform:

Unix_Linux

gainncod.f：Code Content
  1. c==========================================================================
  2. c
  3. c ROUTINE
  4. c gainencode
  5. c
  6. c FUNCTION
  7. c  
  8. c encode and quantize code book gain
  9. c
  10. c SYNOPSIS
  11. c subroutine gainencode(input, bits, type, index)
  12. c
  13. c   formal 
  14. c
  15. c                       data    I/O
  16. c       name            type    type    function
  17. c       -------------------------------------------------------------------
  18. c input i i code book gain input (true value)
  19. c bits i i # bits for encode
  20. c type c i type of quantization
  21. c index r o encoded code book gain ZERO BASED index
  22. c gainencode r f encoded code book gain
  23. c
  24. c==========================================================================
  25. c
  26. c DESCRIPTION
  27. c
  28. c   Fast code book gain quantizer to allow practical quantization
  29. c inside the code book search loop.  A binary tree search quantization 
  30. c is implemented below.
  31. c
  32. C==========================================================================
  33. C 
  34. C INPUT FILES
  35. C cbgain.tbl code book gain coding
  36. C
  37. c**************************************************************************
  38. c
  39. real function gainencode(input, bits, type, index)
  40. implicit undefined(a-z)
  41. c
  42. real input
  43. integer bits, index
  44. character*10 type
  45. c
  46. c Hard coded for 5 bit quantization to achieve high speed
  47. c
  48. integer bit, bitm1
  49. parameter (bit   = 5)
  50. parameter (bitm1 = bit-1)
  51. real gainlog5(2**bit), midpoints(2**bit-1)
  52. integer i, shift(bitm1)
  53. data shift/8, 4, 2, 1/
  54. c
  55. include './cbgain.tbl'
  56. convex #include "./cbgain.tbl"
  57. c
  58. ccc if (bits .ne. bit) stop ' gainencode:  bad bits'
  59. c
  60. c *Binary tree search for closest gain
  61. c
  62. index = 2**bitm1
  63. do 69 i = 1, bitm1
  64.    if (input .gt. midpoints(index)) then
  65.       index = index + shift(i)
  66.    else
  67.       index = index - shift(i)
  68.    end if
  69. 69 continue
  70. if (input .gt. midpoints(index)) index = index + 1
  71. c
  72. c *Return quantized gain and ZERO based index
  73. c
  74. gainencode = gainlog5(index)
  75. index      = index - 1
  77. return
  78. end