Category

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

Voice Compress

Development Platform:

Unix_Linux

gaindcod.f：Code Content
  1. c==========================================================================
  2. c
  3. c ROUTINE
  4. c gaindecode
  5. c
  6. c FUNCTION
  7. c  
  8. c decode code book gain from the gain index (gindex),
  9. c bit index (bits), and quantization type (type).
  10. c
  11. c SYNOPSIS
  12. c subroutine gaindecode(gindex, bits, type, gain)
  13. c
  14. c   formal 
  15. c
  16. c                       data    I/O
  17. c       name            type    type    function
  18. c       -------------------------------------------------------------------
  19. c gindex i i gain index value
  20. c bits i i # bits for encode
  21. c type c i type of quantization
  22. c gain r o decoded code book gain value
  23. c
  24. C==========================================================================
  25. C 
  26. C INPUT FILES
  27. C cbgain.tbl code book gain coding
  28. C
  29. c**************************************************************************
  30. c
  31. subroutine gaindecode(gindex, bits, type, gain)
  32. implicit undefined(a-z)
  33. c
  34. integer gindex, bits
  35. real gain
  36. character*10 type
  37. integer i
  38. real gainlog5(32), midpoints(31)
  39. c
  40. include './cbgain.tbl'
  41. convex #include "./cbgain.tbl"
  42. c
  43. c Choose appropriate gain
  44. c
  45. if (bits .eq. 5) then
  46.    if (type .eq. 'log') then
  47.       gain=gainlog5(gindex+1)
  48.    else
  49.       print *,' gaindecode:  unquantized cbgain'
  50.    end if
  51. else
  52.    print *,' gaindecode:  unquantized cbgain'
  53. end if
  54. return
  55. end