开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 嵌入式/单片机编程 > DSP编程 > 查看源码
IQmathLib.h
资源名称：TMS320F2812-EVM.rar　[点击查看]
上传用户：qingfan3
上传日期：2014-10-27
资源大小：31439k
文件大小：123k
源码类别：

DSP编程

开发平台：

C/C++

IQmathLib.h：源码内容
  1. //###########################################################################
  2. //
  3. // FILE: IQmathLib.h
  4. //
  5. // TITLE: IQ Math library functions definitions.
  6. //
  7. //###########################################################################
  8. //
  9. // Ver  | dd-mmm-yyyy |  Who  | Description of changes
  10. // =====|=============|=======|==============================================
  11. //  1.3 | 19 Nov 2001 | A. T. | Original Release.
  12. // -----|-------------|-------|----------------------------------------------
  13. //  1.4 | 17 May 2002 | A. T. | Added new functions and support for
  14. //      |             |       | intrinsics IQmpy, IQxmpy, IQsat.
  15. // -----|-------------|-------|----------------------------------------------
  16. //  1.4a| 12 Jun 2002 | A. T. | Fixed problem with _IQ() operation on
  17. //      |             |       | variables.
  18. // -----|-------------|-------|----------------------------------------------
  19. //  1.4b| 18 Jun 2002 | A. T. | Fixed bug with _IQtoIQN() and _IQNtoIQ()
  20. //      |             |       | operations.
  21. // -----|-------------|-------|----------------------------------------------
  22. //  1.4d| 30 Mar 2003 | DA/SD | 1. Added macro parameters in parentheses 
  23. //      |             |       |    in number of places where it matters
  24. //      |             |       | 2. Added macro definition to include header 
  25. //      |             |       |    file multiple times in the program.     
  26. // -----|-------------|-------|----------------------------------------------
  27. //
  28. //###########################################################################
  29. // 
  30. // User needs to configure "MATH_TYPE" and "GLOBAL_Q" values:
  31. //
  32. //---------------------------------------------------------------------------
  33. // Select math type, IQ_MATH or FLOAT_MATH:
  34. //
  36. #ifndef __IQMATHLIB_H_INCLUDED__
  37. #define __IQMATHLIB_H_INCLUDED__
  40. #define   FLOAT_MATH     1
  41. #define   IQ_MATH        0
  43. #ifndef   MATH_TYPE
  44. #define   MATH_TYPE      IQ_MATH
  45. #endif
  47. //---------------------------------------------------------------------------
  48. // Select global Q value and scaling. The Q value is limited to the 
  49. // following range for all functions:
  50. //
  51. //        30 <= GLOBAL_Q <=  1
  52. //
  53. #ifndef   GLOBAL_Q
  54. #define   GLOBAL_Q       24
  55. #endif
  57. //---------------------------------------------------------------------------
  58. // Various Usefull Constant Definitions:
  59. //
  60. #define   QG          GLOBAL_Q
  61. #define   Q30         30
  62. #define   Q29         29
  63. #define   Q28         28
  64. #define   Q27         27
  65. #define   Q26         26
  66. #define   Q25         25
  67. #define   Q24         24
  68. #define   Q23         23
  69. #define   Q22         22
  70. #define   Q21         21
  71. #define   Q20         20
  72. #define   Q19         19
  73. #define   Q18         18
  74. #define   Q17         17
  75. #define   Q16         16
  76. #define   Q15         15
  77. #define   Q14         14
  78. #define   Q13         13
  79. #define   Q12         12
  80. #define   Q11         11
  81. #define   Q10         10
  82. #define   Q9          9
  83. #define   Q8          8
  84. #define   Q7          7
  85. #define   Q6          6
  86. #define   Q5          5
  87. #define   Q4          4
  88. #define   Q3          3
  89. #define   Q2          2
  90. #define   Q1          1
  92. #define   MAX_IQ_POS  2147483647 
  93. #define   MAX_IQ_NEG  -2147483648
  94. #define   MIN_IQ_POS  1
  95. #define   MIN_IQ_NEG  -1
  97. //###########################################################################
  98. #if MATH_TYPE == IQ_MATH
  99. //###########################################################################
  100. // If IQ_MATH is used, the following IQmath library function definitions
  101. // are used:
  102. //===========================================================================
  103. typedef   long    _iq;
  104. typedef   long    _iq30;
  105. typedef   long    _iq29;
  106. typedef   long    _iq28;
  107. typedef   long    _iq27;
  108. typedef   long    _iq26;
  109. typedef   long    _iq25;
  110. typedef   long    _iq24;
  111. typedef   long    _iq23;
  112. typedef   long    _iq22;
  113. typedef   long    _iq21;
  114. typedef   long    _iq20;
  115. typedef   long    _iq19;
  116. typedef   long    _iq18;
  117. typedef   long    _iq17;
  118. typedef   long    _iq16;
  119. typedef   long    _iq15;
  120. typedef   long    _iq14;
  121. typedef   long    _iq13;
  122. typedef   long    _iq12;
  123. typedef   long    _iq11;
  124. typedef   long    _iq10;
  125. typedef   long    _iq9;
  126. typedef   long    _iq8;
  127. typedef   long    _iq7;
  128. typedef   long    _iq6;
  129. typedef   long    _iq5;
  130. typedef   long    _iq4;
  131. typedef   long    _iq3;
  132. typedef   long    _iq2;
  133. typedef   long    _iq1;
  134. //---------------------------------------------------------------------------
  135. #define   _IQ30(A)      (long) ((A) * 1073741824.0L)
  136. #define   _IQ29(A)      (long) ((A) * 536870912.0L)
  137. #define   _IQ28(A)      (long) ((A) * 268435456.0L)
  138. #define   _IQ27(A)      (long) ((A) * 134217728.0L)
  139. #define   _IQ26(A)      (long) ((A) * 67108864.0L)
  140. #define   _IQ25(A)      (long) ((A) * 33554432.0L)
  141. #define   _IQ24(A)      (long) ((A) * 16777216.0L)
  142. #define   _IQ23(A)      (long) ((A) * 8388608.0L)
  143. #define   _IQ22(A)      (long) ((A) * 4194304.0L)
  144. #define   _IQ21(A)      (long) ((A) * 2097152.0L)
  145. #define   _IQ20(A)      (long) ((A) * 1048576.0L)
  146. #define   _IQ19(A)      (long) ((A) * 524288.0L)
  147. #define   _IQ18(A)      (long) ((A) * 262144.0L)
  148. #define   _IQ17(A)      (long) ((A) * 131072.0L)
  149. #define   _IQ16(A)      (long) ((A) * 65536.0L)
  150. #define   _IQ15(A)      (long) ((A) * 32768.0L)
  151. #define   _IQ14(A)      (long) ((A) * 16384.0L)
  152. #define   _IQ13(A)      (long) ((A) * 8192.0L)
  153. #define   _IQ12(A)      (long) ((A) * 4096.0L)
  154. #define   _IQ11(A)      (long) ((A) * 2048.0L)
  155. #define   _IQ10(A)      (long) ((A) * 1024.0L)
  156. #define   _IQ9(A)       (long) ((A) * 512.0L)
  157. #define   _IQ8(A)       (long) ((A) * 256.0L)
  158. #define   _IQ7(A)       (long) ((A) * 128.0L)
  159. #define   _IQ6(A)       (long) ((A) * 64.0L)
  160. #define   _IQ5(A)       (long) ((A) * 32.0L)
  161. #define   _IQ4(A)       (long) ((A) * 16.0L)
  162. #define   _IQ3(A)       (long) ((A) * 8.0L)
  163. #define   _IQ2(A)       (long) ((A) * 4.0L)
  164. #define   _IQ1(A)       (long) ((A) * 2.0L)
  166. #if GLOBAL_Q == 30
  167. #define   _IQ(A)  _IQ30(A)
  168. #endif
  169. #if GLOBAL_Q == 29
  170. #define   _IQ(A)  _IQ29(A)
  171. #endif
  172. #if GLOBAL_Q == 28
  173. #define   _IQ(A)  _IQ28(A)
  174. #endif
  175. #if GLOBAL_Q == 27
  176. #define   _IQ(A)  _IQ27(A)
  177. #endif
  178. #if GLOBAL_Q == 26
  179. #define   _IQ(A)  _IQ26(A)
  180. #endif
  181. #if GLOBAL_Q == 25
  182. #define   _IQ(A)  _IQ25(A)
  183. #endif
  184. #if GLOBAL_Q == 24
  185. #define   _IQ(A)  _IQ24(A)
  186. #endif
  187. #if GLOBAL_Q == 23
  188. #define   _IQ(A)  _IQ23(A)
  189. #endif
  190. #if GLOBAL_Q == 22
  191. #define   _IQ(A)  _IQ22(A)
  192. #endif
  193. #if GLOBAL_Q == 21
  194. #define   _IQ(A)  _IQ21(A)
  195. #endif
  196. #if GLOBAL_Q == 20
  197. #define   _IQ(A)  _IQ20(A)
  198. #endif
  199. #if GLOBAL_Q == 19
  200. #define   _IQ(A)  _IQ19(A)
  201. #endif
  202. #if GLOBAL_Q == 18
  203. #define   _IQ(A)  _IQ18(A)
  204. #endif
  205. #if GLOBAL_Q == 17
  206. #define   _IQ(A)  _IQ17(A)
  207. #endif
  208. #if GLOBAL_Q == 16
  209. #define   _IQ(A)  _IQ16(A)
  210. #endif
  211. #if GLOBAL_Q == 15
  212. #define   _IQ(A)  _IQ15(A)
  213. #endif
  214. #if GLOBAL_Q == 14
  215. #define   _IQ(A)  _IQ14(A)
  216. #endif
  217. #if GLOBAL_Q == 13
  218. #define   _IQ(A)  _IQ13(A)
  219. #endif
  220. #if GLOBAL_Q == 12
  221. #define   _IQ(A)  _IQ12(A)
  222. #endif
  223. #if GLOBAL_Q == 11
  224. #define   _IQ(A)  _IQ11(A)
  225. #endif
  226. #if GLOBAL_Q == 10
  227. #define   _IQ(A)  _IQ10(A)
  228. #endif
  229. #if GLOBAL_Q == 9
  230. #define   _IQ(A)  _IQ9(A)
  231. #endif
  232. #if GLOBAL_Q == 8
  233. #define   _IQ(A)  _IQ8(A)
  234. #endif
  235. #if GLOBAL_Q == 7
  236. #define   _IQ(A)  _IQ7(A)
  237. #endif
  238. #if GLOBAL_Q == 6
  239. #define   _IQ(A)  _IQ6(A)
  240. #endif
  241. #if GLOBAL_Q == 5
  242. #define   _IQ(A)  _IQ5(A)
  243. #endif
  244. #if GLOBAL_Q == 4
  245. #define   _IQ(A)  _IQ4(A)
  246. #endif
  247. #if GLOBAL_Q == 3
  248. #define   _IQ(A)  _IQ3(A)
  249. #endif
  250. #if GLOBAL_Q == 2
  251. #define   _IQ(A)  _IQ2(A)
  252. #endif
  253. #if GLOBAL_Q == 1
  254. #define   _IQ(A)  _IQ1(A)
  255. #endif
  256. //---------------------------------------------------------------------------
  257. extern    float _IQ30toF(long A);
  258. extern    float _IQ29toF(long A);
  259. extern    float _IQ28toF(long A);
  260. extern    float _IQ27toF(long A);
  261. extern    float _IQ26toF(long A);
  262. extern    float _IQ25toF(long A);
  263. extern    float _IQ24toF(long A);
  264. extern    float _IQ23toF(long A);
  265. extern    float _IQ22toF(long A);
  266. extern    float _IQ21toF(long A);
  267. extern    float _IQ20toF(long A);
  268. extern    float _IQ19toF(long A);
  269. extern    float _IQ18toF(long A);
  270. extern    float _IQ17toF(long A);
  271. extern    float _IQ16toF(long A);
  272. extern    float _IQ15toF(long A);
  273. extern    float _IQ14toF(long A);
  274. extern    float _IQ13toF(long A);
  275. extern    float _IQ12toF(long A);
  276. extern    float _IQ11toF(long A);
  277. extern    float _IQ10toF(long A);
  278. extern    float _IQ9toF(long A);
  279. extern    float _IQ8toF(long A);
  280. extern    float _IQ7toF(long A);
  281. extern    float _IQ6toF(long A);
  282. extern    float _IQ5toF(long A);
  283. extern    float _IQ4toF(long A);
  284. extern    float _IQ3toF(long A);
  285. extern    float _IQ2toF(long A);
  286. extern    float _IQ1toF(long A);
  288. #if GLOBAL_Q == 30
  289. #define   _IQtoF(A)  _IQ30toF(A)
  290. #endif
  291. #if GLOBAL_Q == 29
  292. #define   _IQtoF(A)  _IQ29toF(A)
  293. #endif
  294. #if GLOBAL_Q == 28
  295. #define   _IQtoF(A)  _IQ28toF(A)
  296. #endif
  297. #if GLOBAL_Q == 27
  298. #define   _IQtoF(A)  _IQ27toF(A)
  299. #endif
  300. #if GLOBAL_Q == 26
  301. #define   _IQtoF(A)  _IQ26toF(A)
  302. #endif
  303. #if GLOBAL_Q == 25
  304. #define   _IQtoF(A)  _IQ25toF(A)
  305. #endif
  306. #if GLOBAL_Q == 24
  307. #define   _IQtoF(A)  _IQ24toF(A)
  308. #endif
  309. #if GLOBAL_Q == 23
  310. #define   _IQtoF(A)  _IQ23toF(A)
  311. #endif
  312. #if GLOBAL_Q == 22
  313. #define   _IQtoF(A)  _IQ22toF(A)
  314. #endif
  315. #if GLOBAL_Q == 21
  316. #define   _IQtoF(A)  _IQ21toF(A)
  317. #endif
  318. #if GLOBAL_Q == 20
  319. #define   _IQtoF(A)  _IQ20toF(A)
  320. #endif
  321. #if GLOBAL_Q == 19
  322. #define   _IQtoF(A)  _IQ19toF(A)
  323. #endif
  324. #if GLOBAL_Q == 18
  325. #define   _IQtoF(A)  _IQ18toF(A)
  326. #endif
  327. #if GLOBAL_Q == 17
  328. #define   _IQtoF(A)  _IQ17toF(A)
  329. #endif
  330. #if GLOBAL_Q == 16
  331. #define   _IQtoF(A)  _IQ16toF(A)
  332. #endif
  333. #if GLOBAL_Q == 15
  334. #define   _IQtoF(A)  _IQ15toF(A)
  335. #endif
  336. #if GLOBAL_Q == 14
  337. #define   _IQtoF(A)  _IQ14toF(A)
  338. #endif
  339. #if GLOBAL_Q == 13
  340. #define   _IQtoF(A)  _IQ13toF(A)
  341. #endif
  342. #if GLOBAL_Q == 12
  343. #define   _IQtoF(A)  _IQ12toF(A)
  344. #endif
  345. #if GLOBAL_Q == 11
  346. #define   _IQtoF(A)  _IQ11toF(A)
  347. #endif
  348. #if GLOBAL_Q == 10
  349. #define   _IQtoF(A)  _IQ10toF(A)
  350. #endif
  351. #if GLOBAL_Q == 9
  352. #define   _IQtoF(A)  _IQ9toF(A)
  353. #endif
  354. #if GLOBAL_Q == 8
  355. #define   _IQtoF(A)  _IQ8toF(A)
  356. #endif
  357. #if GLOBAL_Q == 7
  358. #define   _IQtoF(A)  _IQ7toF(A)
  359. #endif
  360. #if GLOBAL_Q == 6
  361. #define   _IQtoF(A)  _IQ6toF(A)
  362. #endif
  363. #if GLOBAL_Q == 5
  364. #define   _IQtoF(A)  _IQ5toF(A)
  365. #endif
  366. #if GLOBAL_Q == 4
  367. #define   _IQtoF(A)  _IQ4toF(A)
  368. #endif
  369. #if GLOBAL_Q == 3
  370. #define   _IQtoF(A)  _IQ3toF(A)
  371. #endif
  372. #if GLOBAL_Q == 2
  373. #define   _IQtoF(A)  _IQ2toF(A)
  374. #endif
  375. #if GLOBAL_Q == 1
  376. #define   _IQtoF(A)  _IQ1toF(A)
  377. #endif
  378. //---------------------------------------------------------------------------
  379. #define   _IQsat(A, Pos, Neg)  __IQsat(A, Pos, Neg)
  380. //---------------------------------------------------------------------------
  381. #define   _IQtoIQ30(A)  ((long) (A) << (30 - GLOBAL_Q))
  382. #define   _IQ30toIQ(A)  ((long) (A) >> (30 - GLOBAL_Q))
  384. #define   _IQtoIQ29(A)  ((GLOBAL_Q >= 29) ? ((long) (A) >> (GLOBAL_Q - 29)):((long) (A) << (29 - GLOBAL_Q)))
  385. #define   _IQ29toIQ(A)  ((GLOBAL_Q >= 29) ? ((long) (A) << (GLOBAL_Q - 29)):((long) (A) >> (29 - GLOBAL_Q)))
  387. #define   _IQtoIQ28(A)  ((GLOBAL_Q >= 28) ? ((long) (A) >> (GLOBAL_Q - 28)):((long) (A) << (28 - GLOBAL_Q)))
  388. #define   _IQ28toIQ(A)  ((GLOBAL_Q >= 28) ? ((long) (A) << (GLOBAL_Q - 28)):((long) (A) >> (28 - GLOBAL_Q)))
  390. #define   _IQtoIQ27(A)  ((GLOBAL_Q >= 27) ? ((long) (A) >> (GLOBAL_Q - 27)):((long) (A) << (27 - GLOBAL_Q)))
  391. #define   _IQ27toIQ(A)  ((GLOBAL_Q >= 27) ? ((long) (A) << (GLOBAL_Q - 27)):((long) (A) >> (27 - GLOBAL_Q)))
  393. #define   _IQtoIQ26(A)  ((GLOBAL_Q >= 26) ? ((long) (A) >> (GLOBAL_Q - 26)):((long) (A) << (26 - GLOBAL_Q)))
  394. #define   _IQ26toIQ(A)  ((GLOBAL_Q >= 26) ? ((long) (A) << (GLOBAL_Q - 26)):((long) (A) >> (26 - GLOBAL_Q)))
  396. #define   _IQtoIQ25(A)  ((GLOBAL_Q >= 25) ? ((long) (A) >> (GLOBAL_Q - 25)):((long) (A) << (25 - GLOBAL_Q)))
  397. #define   _IQ25toIQ(A)  ((GLOBAL_Q >= 25) ? ((long) (A) << (GLOBAL_Q - 25)):((long) (A) >> (25 - GLOBAL_Q)))
  399. #define   _IQtoIQ24(A)  ((GLOBAL_Q >= 24) ? ((long) (A) >> (GLOBAL_Q - 24)):((long) (A) << (24 - GLOBAL_Q)))
  400. #define   _IQ24toIQ(A)  ((GLOBAL_Q >= 24) ? ((long) (A) << (GLOBAL_Q - 24)):((long) (A) >> (24 - GLOBAL_Q)))
  402. #define   _IQtoIQ23(A)  ((GLOBAL_Q >= 23) ? ((long) (A) >> (GLOBAL_Q - 23)):((long) (A) << (23 - GLOBAL_Q)))
  403. #define   _IQ23toIQ(A)  ((GLOBAL_Q >= 23) ? ((long) (A) << (GLOBAL_Q - 23)):((long) (A) >> (23 - GLOBAL_Q)))
  405. #define   _IQtoIQ22(A)  ((GLOBAL_Q >= 22) ? ((long) (A) >> (GLOBAL_Q - 22)):((long) (A) << (22 - GLOBAL_Q)))
  406. #define   _IQ22toIQ(A)  ((GLOBAL_Q >= 22) ? ((long) (A) << (GLOBAL_Q - 22)):((long) (A) >> (22 - GLOBAL_Q)))
  408. #define   _IQtoIQ21(A)  ((GLOBAL_Q >= 21) ? ((long) (A) >> (GLOBAL_Q - 21)):((long) (A) << (21 - GLOBAL_Q)))
  409. #define   _IQ21toIQ(A)  ((GLOBAL_Q >= 21) ? ((long) (A) << (GLOBAL_Q - 21)):((long) (A) >> (21 - GLOBAL_Q)))
  411. #define   _IQtoIQ20(A)  ((GLOBAL_Q >= 20) ? ((long) (A) >> (GLOBAL_Q - 20)):((long) (A) << (20 - GLOBAL_Q)))
  412. #define   _IQ20toIQ(A)  ((GLOBAL_Q >= 20) ? ((long) (A) << (GLOBAL_Q - 20)):((long) (A) >> (20 - GLOBAL_Q)))
  414. #define   _IQtoIQ19(A)  ((GLOBAL_Q >= 19) ? ((long) (A) >> (GLOBAL_Q - 19)):((long) (A) << (19 - GLOBAL_Q)))
  415. #define   _IQ19toIQ(A)  ((GLOBAL_Q >= 19) ? ((long) (A) << (GLOBAL_Q - 19)):((long) (A) >> (19 - GLOBAL_Q)))
  417. #define   _IQtoIQ18(A)  ((GLOBAL_Q >= 18) ? ((long) (A) >> (GLOBAL_Q - 18)):((long) (A) << (18 - GLOBAL_Q)))
  418. #define   _IQ18toIQ(A)  ((GLOBAL_Q >= 18) ? ((long) (A) << (GLOBAL_Q - 18)):((long) (A) >> (18 - GLOBAL_Q)))
  420. #define   _IQtoIQ17(A)  ((GLOBAL_Q >= 17) ? ((long) (A) >> (GLOBAL_Q - 17)):((long) (A) << (17 - GLOBAL_Q)))
  421. #define   _IQ17toIQ(A)  ((GLOBAL_Q >= 17) ? ((long) (A) << (GLOBAL_Q - 17)):((long) (A) >> (17 - GLOBAL_Q)))
  423. #define   _IQtoIQ16(A)  ((GLOBAL_Q >= 16) ? ((long) (A) >> (GLOBAL_Q - 16)):((long) (A) << (16 - GLOBAL_Q)))
  424. #define   _IQ16toIQ(A)  ((GLOBAL_Q >= 16) ? ((long) (A) << (GLOBAL_Q - 16)):((long) (A) >> (16 - GLOBAL_Q)))
  426. #define   _IQtoIQ15(A)  ((GLOBAL_Q >= 15) ? ((long) (A) >> (GLOBAL_Q - 15)):((long) (A) << (15 - GLOBAL_Q)))
  427. #define   _IQ15toIQ(A)  ((GLOBAL_Q >= 15) ? ((long) (A) << (GLOBAL_Q - 15)):((long) (A) >> (15 - GLOBAL_Q)))
  429. #define   _IQtoIQ14(A)  ((GLOBAL_Q >= 14) ? ((long) (A) >> (GLOBAL_Q - 14)):((long) (A) << (14 - GLOBAL_Q)))
  430. #define   _IQ14toIQ(A)  ((GLOBAL_Q >= 14) ? ((long) (A) << (GLOBAL_Q - 14)):((long) (A) >> (14 - GLOBAL_Q)))
  432. #define   _IQtoIQ13(A)  ((GLOBAL_Q >= 13) ? ((long) (A) >> (GLOBAL_Q - 13)):((long) (A) << (13 - GLOBAL_Q)))
  433. #define   _IQ13toIQ(A)  ((GLOBAL_Q >= 13) ? ((long) (A) << (GLOBAL_Q - 13)):((long) (A) >> (13 - GLOBAL_Q)))
  435. #define   _IQtoIQ12(A)  ((GLOBAL_Q >= 12) ? ((long) (A) >> (GLOBAL_Q - 12)):((long) (A) << (12 - GLOBAL_Q)))
  436. #define   _IQ12toIQ(A)  ((GLOBAL_Q >= 12) ? ((long) (A) << (GLOBAL_Q - 12)):((long) (A) >> (12 - GLOBAL_Q)))
  438. #define   _IQtoIQ11(A)  ((GLOBAL_Q >= 11) ? ((long) (A) >> (GLOBAL_Q - 11)):((long) (A) << (11 - GLOBAL_Q)))
  439. #define   _IQ11toIQ(A)  ((GLOBAL_Q >= 11) ? ((long) (A) << (GLOBAL_Q - 11)):((long) (A) >> (11 - GLOBAL_Q)))
  441. #define   _IQtoIQ10(A)  ((GLOBAL_Q >= 10) ? ((long) (A) >> (GLOBAL_Q - 10)):((long) (A) << (10 - GLOBAL_Q)))
  442. #define   _IQ10toIQ(A)  ((GLOBAL_Q >= 10) ? ((long) (A) << (GLOBAL_Q - 10)):((long) (A) >> (10 - GLOBAL_Q)))
  444. #define   _IQtoIQ9(A)   ((GLOBAL_Q >= 9) ? ((long) (A) >> (GLOBAL_Q - 9)):((long) (A) << (9 - GLOBAL_Q)))
  445. #define   _IQ9toIQ(A)   ((GLOBAL_Q >= 9) ? ((long) (A) << (GLOBAL_Q - 9)):((long) (A) >> (9 - GLOBAL_Q)))
  447. #define   _IQtoIQ8(A)   ((GLOBAL_Q >= 8) ? ((long) (A) >> (GLOBAL_Q - 8)):((long) (A) << (8 - GLOBAL_Q)))
  448. #define   _IQ8toIQ(A)   ((GLOBAL_Q >= 8) ? ((long) (A) << (GLOBAL_Q - 8)):((long) (A) >> (8 - GLOBAL_Q)))
  450. #define   _IQtoIQ7(A)   ((GLOBAL_Q >= 7) ? ((long) (A) >> (GLOBAL_Q - 7)):((long) (A) << (7 - GLOBAL_Q)))
  451. #define   _IQ7toIQ(A)   ((GLOBAL_Q >= 7) ? ((long) (A) << (GLOBAL_Q - 7)):((long) (A) >> (7 - GLOBAL_Q)))
  453. #define   _IQtoIQ6(A)   ((GLOBAL_Q >= 6) ? ((long) (A) >> (GLOBAL_Q - 6)):((long) (A) << (6 - GLOBAL_Q)))
  454. #define   _IQ6toIQ(A)   ((GLOBAL_Q >= 6) ? ((long) (A) << (GLOBAL_Q - 6)):((long) (A) >> (6 - GLOBAL_Q)))
  456. #define   _IQtoIQ5(A)   ((GLOBAL_Q >= 5) ? ((long) (A) >> (GLOBAL_Q - 5)):((long) (A) << (5 - GLOBAL_Q)))
  457. #define   _IQ5toIQ(A)   ((GLOBAL_Q >= 5) ? ((long) (A) << (GLOBAL_Q - 5)):((long) (A) >> (5 - GLOBAL_Q)))
  459. #define   _IQtoIQ4(A)   ((GLOBAL_Q >= 4) ? ((long) (A) >> (GLOBAL_Q - 4)):((long) (A) << (4 - GLOBAL_Q)))
  460. #define   _IQ4toIQ(A)   ((GLOBAL_Q >= 4) ? ((long) (A) << (GLOBAL_Q - 4)):((long) (A) >> (4 - GLOBAL_Q)))
  462. #define   _IQtoIQ3(A)   ((GLOBAL_Q >= 3) ? ((long) (A) >> (GLOBAL_Q - 3)):((long) (A) << (3 - GLOBAL_Q)))
  463. #define   _IQ3toIQ(A)   ((GLOBAL_Q >= 3) ? ((long) (A) << (GLOBAL_Q - 3)):((long) (A) >> (3 - GLOBAL_Q)))
  465. #define   _IQtoIQ2(A)   ((GLOBAL_Q >= 2) ? ((long) (A) >> (GLOBAL_Q - 2)):((long) (A) << (2 - GLOBAL_Q)))
  466. #define   _IQ2toIQ(A)   ((GLOBAL_Q >= 2) ? ((long) (A) << (GLOBAL_Q - 2)):((long) (A) >> (2 - GLOBAL_Q)))
  468. #define   _IQtoIQ1(A)   ((long) (A) >> (GLOBAL_Q - 1))
  469. #define   _IQ1toIQ(A)   ((long) (A) << (GLOBAL_Q - 1))
  470. //---------------------------------------------------------------------------
  471. #define   _IQtoQ15(A)   ((GLOBAL_Q >= 15) ? ((long) (A) >> (GLOBAL_Q - 15)):((long) (A) << (15 - GLOBAL_Q)))
  472. #define   _Q15toIQ(A)   ((GLOBAL_Q >= 15) ? ((long) (A) << (GLOBAL_Q - 15)):((long) (A) >> (15 - GLOBAL_Q)))
  474. #define   _IQtoQ14(A)   ((GLOBAL_Q >= 14) ? ((long) (A) >> (GLOBAL_Q - 14)):((long) (A) << (14 - GLOBAL_Q)))
  475. #define   _Q14toIQ(A)   ((GLOBAL_Q >= 14) ? ((long) (A) << (GLOBAL_Q - 14)):((long) (A) >> (14 - GLOBAL_Q)))
  477. #define   _IQtoQ13(A)   ((GLOBAL_Q >= 13) ? ((long) (A) >> (GLOBAL_Q - 13)):((long) (A) << (13 - GLOBAL_Q)))
  478. #define   _Q13toIQ(A)   ((GLOBAL_Q >= 13) ? ((long) (A) << (GLOBAL_Q - 13)):((long) (A) >> (13 - GLOBAL_Q)))
  480. #define   _IQtoQ12(A)   ((GLOBAL_Q >= 12) ? ((long) (A) >> (GLOBAL_Q - 12)):((long) (A) << (12 - GLOBAL_Q)))
  481. #define   _Q12toIQ(A)   ((GLOBAL_Q >= 12) ? ((long) (A) << (GLOBAL_Q - 12)):((long) (A) >> (12 - GLOBAL_Q)))
  483. #define   _IQtoQ11(A)   ((GLOBAL_Q >= 11) ? ((long) (A) >> (GLOBAL_Q - 11)):((long) (A) << (11 - GLOBAL_Q)))
  484. #define   _Q11toIQ(A)   ((GLOBAL_Q >= 11) ? ((long) (A) << (GLOBAL_Q - 11)):((long) (A) >> (11 - GLOBAL_Q)))
  486. #define   _IQtoQ10(A)   ((GLOBAL_Q >= 10) ? ((long) (A) >> (GLOBAL_Q - 10)):((long) (A) << (10 - GLOBAL_Q)))
  487. #define   _Q10toIQ(A)   ((GLOBAL_Q >= 10) ? ((long) (A) << (GLOBAL_Q - 10)):((long) (A) >> (10 - GLOBAL_Q)))
  489. #define   _IQtoQ9(A)    ((GLOBAL_Q >= 9) ? ((long) (A) >> (GLOBAL_Q - 9)):((long) (A) << (9 - GLOBAL_Q)))
  490. #define   _Q9toIQ(A)    ((GLOBAL_Q >= 9) ? ((long) (A) << (GLOBAL_Q - 9)):((long) (A) >> (9 - GLOBAL_Q)))
  492. #define   _IQtoQ8(A)    ((GLOBAL_Q >= 8) ? ((long) (A) >> (GLOBAL_Q - 8)):((long) (A) << (8 - GLOBAL_Q)))
  493. #define   _Q8toIQ(A)    ((GLOBAL_Q >= 8) ? ((long) (A) << (GLOBAL_Q - 8)):((long) (A) >> (8 - GLOBAL_Q)))
  495. #define   _IQtoQ7(A)    ((GLOBAL_Q >= 7) ? ((long) (A) >> (GLOBAL_Q - 7)):((long) (A) << (7 - GLOBAL_Q)))
  496. #define   _Q7toIQ(A)    ((GLOBAL_Q >= 7) ? ((long) (A) << (GLOBAL_Q - 7)):((long) (A) >> (7 - GLOBAL_Q)))
  498. #define   _IQtoQ6(A)    ((GLOBAL_Q >= 6) ? ((long) (A) >> (GLOBAL_Q - 6)):((long) (A) << (6 - GLOBAL_Q)))
  499. #define   _Q6toIQ(A)    ((GLOBAL_Q >= 6) ? ((long) (A) << (GLOBAL_Q - 6)):((long) (A) >> (6 - GLOBAL_Q)))
  501. #define   _IQtoQ5(A)    ((GLOBAL_Q >= 5) ? ((long) (A) >> (GLOBAL_Q - 5)):((long) (A) << (5 - GLOBAL_Q)))
  502. #define   _Q5toIQ(A)    ((GLOBAL_Q >= 5) ? ((long) (A) << (GLOBAL_Q - 5)):((long) (A) >> (5 - GLOBAL_Q)))
  504. #define   _IQtoQ5(A)    ((GLOBAL_Q >= 5) ? ((long) (A) >> (GLOBAL_Q - 5)):((long) (A) << (5 - GLOBAL_Q)))
  505. #define   _Q5toIQ(A)    ((GLOBAL_Q >= 5) ? ((long) (A) << (GLOBAL_Q - 5)):((long) (A) >> (5 - GLOBAL_Q)))
  507. #define   _IQtoQ4(A)    ((GLOBAL_Q >= 4) ? ((long) (A) >> (GLOBAL_Q - 4)):((long) (A) << (4 - GLOBAL_Q)))
  508. #define   _Q4toIQ(A)    ((GLOBAL_Q >= 4) ? ((long) (A) << (GLOBAL_Q - 4)):((long) (A) >> (4 - GLOBAL_Q)))
  510. #define   _IQtoQ3(A)    ((GLOBAL_Q >= 3) ? ((long) (A) >> (GLOBAL_Q - 3)):((long) (A) << (3 - GLOBAL_Q)))
  511. #define   _Q3toIQ(A)    ((GLOBAL_Q >= 3) ? ((long) (A) << (GLOBAL_Q - 3)):((long) (A) >> (3 - GLOBAL_Q)))
  513. #define   _IQtoQ2(A)    ((GLOBAL_Q >= 2) ? ((long) (A) >> (GLOBAL_Q - 2)):((long) (A) << (2 - GLOBAL_Q)))
  514. #define   _Q2toIQ(A)    ((GLOBAL_Q >= 2) ? ((long) (A) << (GLOBAL_Q - 2)):((long) (A) >> (2 - GLOBAL_Q)))
  516. #define   _IQtoQ1(A)    ((GLOBAL_Q >= 1) ? ((long) (A) >> (GLOBAL_Q - 1)):((long) (A) << (1 - GLOBAL_Q)))
  517. #define   _Q1toIQ(A)    ((GLOBAL_Q >= 1) ? ((long) (A) << (GLOBAL_Q - 1)):((long) (A) >> (1 - GLOBAL_Q)))
  518. //---------------------------------------------------------------------------
  519. #define   _IQmpy(A,B)    __IQmpy(A,B,GLOBAL_Q)
  520. #define   _IQ30mpy(A,B)  __IQmpy(A,B,30)
  521. #define   _IQ29mpy(A,B)  __IQmpy(A,B,29)
  522. #define   _IQ28mpy(A,B)  __IQmpy(A,B,28)
  523. #define   _IQ27mpy(A,B)  __IQmpy(A,B,27)
  524. #define   _IQ26mpy(A,B)  __IQmpy(A,B,26)
  525. #define   _IQ25mpy(A,B)  __IQmpy(A,B,25)
  526. #define   _IQ24mpy(A,B)  __IQmpy(A,B,24)
  527. #define   _IQ23mpy(A,B)  __IQmpy(A,B,23)
  528. #define   _IQ22mpy(A,B)  __IQmpy(A,B,22)
  529. #define   _IQ21mpy(A,B)  __IQmpy(A,B,21)
  530. #define   _IQ20mpy(A,B)  __IQmpy(A,B,20)
  531. #define   _IQ19mpy(A,B)  __IQmpy(A,B,19)
  532. #define   _IQ18mpy(A,B)  __IQmpy(A,B,18)
  533. #define   _IQ17mpy(A,B)  __IQmpy(A,B,17)
  534. #define   _IQ16mpy(A,B)  __IQmpy(A,B,16)
  535. #define   _IQ15mpy(A,B)  __IQmpy(A,B,15)
  536. #define   _IQ14mpy(A,B)  __IQmpy(A,B,14)
  537. #define   _IQ13mpy(A,B)  __IQmpy(A,B,13)
  538. #define   _IQ12mpy(A,B)  __IQmpy(A,B,12)
  539. #define   _IQ11mpy(A,B)  __IQmpy(A,B,11)
  540. #define   _IQ10mpy(A,B)  __IQmpy(A,B,10)
  541. #define   _IQ9mpy(A,B)   __IQmpy(A,B,9)
  542. #define   _IQ8mpy(A,B)   __IQmpy(A,B,8)
  543. #define   _IQ7mpy(A,B)   __IQmpy(A,B,7)
  544. #define   _IQ6mpy(A,B)   __IQmpy(A,B,6)
  545. #define   _IQ5mpy(A,B)   __IQmpy(A,B,5)
  546. #define   _IQ4mpy(A,B)   __IQmpy(A,B,4)
  547. #define   _IQ3mpy(A,B)   __IQmpy(A,B,3)
  548. #define   _IQ2mpy(A,B)   __IQmpy(A,B,2)
  549. #define   _IQ1mpy(A,B)   __IQmpy(A,B,1)
  550. //---------------------------------------------------------------------------
  551. extern    long _IQ30rmpy(long A, long B);
  552. extern    long _IQ29rmpy(long A, long B);
  553. extern    long _IQ28rmpy(long A, long B);
  554. extern    long _IQ27rmpy(long A, long B);
  555. extern    long _IQ26rmpy(long A, long B);
  556. extern    long _IQ25rmpy(long A, long B);
  557. extern    long _IQ24rmpy(long A, long B);
  558. extern    long _IQ23rmpy(long A, long B);
  559. extern    long _IQ22rmpy(long A, long B);
  560. extern    long _IQ21rmpy(long A, long B);
  561. extern    long _IQ20rmpy(long A, long B);
  562. extern    long _IQ19rmpy(long A, long B);
  563. extern    long _IQ18rmpy(long A, long B);
  564. extern    long _IQ17rmpy(long A, long B);
  565. extern    long _IQ16rmpy(long A, long B);
  566. extern    long _IQ15rmpy(long A, long B);
  567. extern    long _IQ14rmpy(long A, long B);
  568. extern    long _IQ13rmpy(long A, long B);
  569. extern    long _IQ12rmpy(long A, long B);
  570. extern    long _IQ11rmpy(long A, long B);
  571. extern    long _IQ10rmpy(long A, long B);
  572. extern    long _IQ9rmpy(long A, long B);
  573. extern    long _IQ8rmpy(long A, long B);
  574. extern    long _IQ7rmpy(long A, long B);
  575. extern    long _IQ6rmpy(long A, long B);
  576. extern    long _IQ5rmpy(long A, long B);
  577. extern    long _IQ4rmpy(long A, long B);
  578. extern    long _IQ3rmpy(long A, long B);
  579. extern    long _IQ2rmpy(long A, long B);
  580. extern    long _IQ1rmpy(long A, long B);
  582. #if GLOBAL_Q == 30
  583. #define   _IQrmpy(A,B)  _IQ30rmpy(A,B)
  584. #endif
  585. #if GLOBAL_Q == 29
  586. #define   _IQrmpy(A,B)  _IQ29rmpy(A,B)
  587. #endif
  588. #if GLOBAL_Q == 28
  589. #define   _IQrmpy(A,B)  _IQ28rmpy(A,B)
  590. #endif
  591. #if GLOBAL_Q == 27
  592. #define   _IQrmpy(A,B)  _IQ27rmpy(A,B)
  593. #endif
  594. #if GLOBAL_Q == 26
  595. #define   _IQrmpy(A,B)  _IQ26rmpy(A,B)
  596. #endif
  597. #if GLOBAL_Q == 25
  598. #define   _IQrmpy(A,B)  _IQ25rmpy(A,B)
  599. #endif
  600. #if GLOBAL_Q == 24
  601. #define   _IQrmpy(A,B)  _IQ24rmpy(A,B)
  602. #endif
  603. #if GLOBAL_Q == 23
  604. #define   _IQrmpy(A,B)  _IQ23rmpy(A,B)
  605. #endif
  606. #if GLOBAL_Q == 22
  607. #define   _IQrmpy(A,B)  _IQ22rmpy(A,B)
  608. #endif
  609. #if GLOBAL_Q == 21
  610. #define   _IQrmpy(A,B)  _IQ21rmpy(A,B)
  611. #endif
  612. #if GLOBAL_Q == 20
  613. #define   _IQrmpy(A,B)  _IQ20rmpy(A,B)
  614. #endif
  615. #if GLOBAL_Q == 19
  616. #define   _IQrmpy(A,B)  _IQ19rmpy(A,B)
  617. #endif
  618. #if GLOBAL_Q == 18
  619. #define   _IQrmpy(A,B)  _IQ18rmpy(A,B)
  620. #endif
  621. #if GLOBAL_Q == 17
  622. #define   _IQrmpy(A,B)  _IQ17rmpy(A,B)
  623. #endif
  624. #if GLOBAL_Q == 16
  625. #define   _IQrmpy(A,B)  _IQ16rmpy(A,B)
  626. #endif
  627. #if GLOBAL_Q == 15
  628. #define   _IQrmpy(A,B)  _IQ15rmpy(A,B)
  629. #endif
  630. #if GLOBAL_Q == 14
  631. #define   _IQrmpy(A,B)  _IQ14rmpy(A,B)
  632. #endif
  633. #if GLOBAL_Q == 13
  634. #define   _IQrmpy(A,B)  _IQ13rmpy(A,B)
  635. #endif
  636. #if GLOBAL_Q == 12
  637. #define   _IQrmpy(A,B)  _IQ12rmpy(A,B)
  638. #endif
  639. #if GLOBAL_Q == 11
  640. #define   _IQrmpy(A,B)  _IQ11rmpy(A,B)
  641. #endif
  642. #if GLOBAL_Q == 10
  643. #define   _IQrmpy(A,B)  _IQ10rmpy(A,B)
  644. #endif
  645. #if GLOBAL_Q == 9
  646. #define   _IQrmpy(A,B)  _IQ9rmpy(A,B)
  647. #endif
  648. #if GLOBAL_Q == 8
  649. #define   _IQrmpy(A,B)  _IQ8rmpy(A,B)
  650. #endif
  651. #if GLOBAL_Q == 7
  652. #define   _IQrmpy(A,B)  _IQ7rmpy(A,B)
  653. #endif
  654. #if GLOBAL_Q == 6
  655. #define   _IQrmpy(A,B)  _IQ6rmpy(A,B)
  656. #endif
  657. #if GLOBAL_Q == 5
  658. #define   _IQrmpy(A,B)  _IQ5rmpy(A,B)
  659. #endif
  660. #if GLOBAL_Q == 4
  661. #define   _IQrmpy(A,B)  _IQ4rmpy(A,B)
  662. #endif
  663. #if GLOBAL_Q == 3
  664. #define   _IQrmpy(A,B)  _IQ3rmpy(A,B)
  665. #endif
  666. #if GLOBAL_Q == 2
  667. #define   _IQrmpy(A,B)  _IQ2rmpy(A,B)
  668. #endif
  669. #if GLOBAL_Q == 1
  670. #define   _IQrmpy(A,B)  _IQ1rmpy(A,B)
  671. #endif
  672. //---------------------------------------------------------------------------
  673. extern    long _IQ30rsmpy(long A, long B);
  674. extern    long _IQ29rsmpy(long A, long B);
  675. extern    long _IQ28rsmpy(long A, long B);
  676. extern    long _IQ27rsmpy(long A, long B);
  677. extern    long _IQ26rsmpy(long A, long B);
  678. extern    long _IQ25rsmpy(long A, long B);
  679. extern    long _IQ24rsmpy(long A, long B);
  680. extern    long _IQ23rsmpy(long A, long B);
  681. extern    long _IQ22rsmpy(long A, long B);
  682. extern    long _IQ21rsmpy(long A, long B);
  683. extern    long _IQ20rsmpy(long A, long B);
  684. extern    long _IQ19rsmpy(long A, long B);
  685. extern    long _IQ18rsmpy(long A, long B);
  686. extern    long _IQ17rsmpy(long A, long B);
  687. extern    long _IQ16rsmpy(long A, long B);
  688. extern    long _IQ15rsmpy(long A, long B);
  689. extern    long _IQ14rsmpy(long A, long B);
  690. extern    long _IQ13rsmpy(long A, long B);
  691. extern    long _IQ12rsmpy(long A, long B);
  692. extern    long _IQ11rsmpy(long A, long B);
  693. extern    long _IQ10rsmpy(long A, long B);
  694. extern    long _IQ9rsmpy(long A, long B);
  695. extern    long _IQ8rsmpy(long A, long B);
  696. extern    long _IQ7rsmpy(long A, long B);
  697. extern    long _IQ6rsmpy(long A, long B);
  698. extern    long _IQ5rsmpy(long A, long B);
  699. extern    long _IQ4rsmpy(long A, long B);
  700. extern    long _IQ3rsmpy(long A, long B);
  701. extern    long _IQ2rsmpy(long A, long B);
  702. extern    long _IQ1rsmpy(long A, long B);
  704. #if GLOBAL_Q == 30
  705. #define   _IQrsmpy(A,B)  _IQ30rsmpy(A,B)
  706. #endif
  707. #if GLOBAL_Q == 29
  708. #define   _IQrsmpy(A,B)  _IQ29rsmpy(A,B)
  709. #endif
  710. #if GLOBAL_Q == 28
  711. #define   _IQrsmpy(A,B)  _IQ28rsmpy(A,B)
  712. #endif
  713. #if GLOBAL_Q == 27
  714. #define   _IQrsmpy(A,B)  _IQ27rsmpy(A,B)
  715. #endif
  716. #if GLOBAL_Q == 26
  717. #define   _IQrsmpy(A,B)  _IQ26rsmpy(A,B)
  718. #endif
  719. #if GLOBAL_Q == 25
  720. #define   _IQrsmpy(A,B)  _IQ25rsmpy(A,B)
  721. #endif
  722. #if GLOBAL_Q == 24
  723. #define   _IQrsmpy(A,B)  _IQ24rsmpy(A,B)
  724. #endif
  725. #if GLOBAL_Q == 23
  726. #define   _IQrsmpy(A,B)  _IQ23rsmpy(A,B)
  727. #endif
  728. #if GLOBAL_Q == 22
  729. #define   _IQrsmpy(A,B)  _IQ22rsmpy(A,B)
  730. #endif
  731. #if GLOBAL_Q == 21
  732. #define   _IQrsmpy(A,B)  _IQ21rsmpy(A,B)
  733. #endif
  734. #if GLOBAL_Q == 20
  735. #define   _IQrsmpy(A,B)  _IQ20rsmpy(A,B)
  736. #endif
  737. #if GLOBAL_Q == 19
  738. #define   _IQrsmpy(A,B)  _IQ19rsmpy(A,B)
  739. #endif
  740. #if GLOBAL_Q == 18
  741. #define   _IQrsmpy(A,B)  _IQ18rsmpy(A,B)
  742. #endif
  743. #if GLOBAL_Q == 17
  744. #define   _IQrsmpy(A,B)  _IQ17rsmpy(A,B)
  745. #endif
  746. #if GLOBAL_Q == 16
  747. #define   _IQrsmpy(A,B)  _IQ16rsmpy(A,B)
  748. #endif
  749. #if GLOBAL_Q == 15
  750. #define   _IQrsmpy(A,B)  _IQ15rsmpy(A,B)
  751. #endif
  752. #if GLOBAL_Q == 14
  753. #define   _IQrsmpy(A,B)  _IQ14rsmpy(A,B)
  754. #endif
  755. #if GLOBAL_Q == 13
  756. #define   _IQrsmpy(A,B)  _IQ13rsmpy(A,B)
  757. #endif
  758. #if GLOBAL_Q == 12
  759. #define   _IQrsmpy(A,B)  _IQ12rsmpy(A,B)
  760. #endif
  761. #if GLOBAL_Q == 11
  762. #define   _IQrsmpy(A,B)  _IQ11rsmpy(A,B)
  763. #endif
  764. #if GLOBAL_Q == 10
  765. #define   _IQrsmpy(A,B)  _IQ10rsmpy(A,B)
  766. #endif
  767. #if GLOBAL_Q == 9
  768. #define   _IQrsmpy(A,B)  _IQ9rsmpy(A,B)
  769. #endif
  770. #if GLOBAL_Q == 8
  771. #define   _IQrsmpy(A,B)  _IQ8rsmpy(A,B)
  772. #endif
  773. #if GLOBAL_Q == 7
  774. #define   _IQrsmpy(A,B)  _IQ7rsmpy(A,B)
  775. #endif
  776. #if GLOBAL_Q == 6
  777. #define   _IQrsmpy(A,B)  _IQ6rsmpy(A,B)
  778. #endif
  779. #if GLOBAL_Q == 5
  780. #define   _IQrsmpy(A,B)  _IQ5rsmpy(A,B)
  781. #endif
  782. #if GLOBAL_Q == 4
  783. #define   _IQrsmpy(A,B)  _IQ4rsmpy(A,B)
  784. #endif
  785. #if GLOBAL_Q == 3
  786. #define   _IQrsmpy(A,B)  _IQ3rsmpy(A,B)
  787. #endif
  788. #if GLOBAL_Q == 2
  789. #define   _IQrsmpy(A,B)  _IQ2rsmpy(A,B)
  790. #endif
  791. #if GLOBAL_Q == 1
  792. #define   _IQrsmpy(A,B)  _IQ1rsmpy(A,B)
  793. #endif
  794. //---------------------------------------------------------------------------
  795. extern    long _IQ30div(long A, long B);
  796. extern    long _IQ29div(long A, long B);
  797. extern    long _IQ28div(long A, long B);
  798. extern    long _IQ27div(long A, long B);
  799. extern    long _IQ26div(long A, long B);
  800. extern    long _IQ25div(long A, long B);
  801. extern    long _IQ24div(long A, long B);
  802. extern    long _IQ23div(long A, long B);
  803. extern    long _IQ22div(long A, long B);
  804. extern    long _IQ21div(long A, long B);
  805. extern    long _IQ20div(long A, long B);
  806. extern    long _IQ19div(long A, long B);
  807. extern    long _IQ18div(long A, long B);
  808. extern    long _IQ17div(long A, long B);
  809. extern    long _IQ16div(long A, long B);
  810. extern    long _IQ15div(long A, long B);
  811. extern    long _IQ14div(long A, long B);
  812. extern    long _IQ13div(long A, long B);
  813. extern    long _IQ12div(long A, long B);
  814. extern    long _IQ11div(long A, long B);
  815. extern    long _IQ10div(long A, long B);
  816. extern    long _IQ9div(long A, long B);
  817. extern    long _IQ8div(long A, long B);
  818. extern    long _IQ7div(long A, long B);
  819. extern    long _IQ6div(long A, long B);
  820. extern    long _IQ5div(long A, long B);
  821. extern    long _IQ4div(long A, long B);
  822. extern    long _IQ3div(long A, long B);
  823. extern    long _IQ2div(long A, long B);
  824. extern    long _IQ1div(long A, long B);
  826. #if GLOBAL_Q == 30
  827. #define   _IQdiv(A,B)  _IQ30div(A,B)
  828. #endif
  829. #if GLOBAL_Q == 29
  830. #define   _IQdiv(A,B)  _IQ29div(A,B)
  831. #endif
  832. #if GLOBAL_Q == 28
  833. #define   _IQdiv(A,B)  _IQ28div(A,B)
  834. #endif
  835. #if GLOBAL_Q == 27
  836. #define   _IQdiv(A,B)  _IQ27div(A,B)
  837. #endif
  838. #if GLOBAL_Q == 26
  839. #define   _IQdiv(A,B)  _IQ26div(A,B)
  840. #endif
  841. #if GLOBAL_Q == 25
  842. #define   _IQdiv(A,B)  _IQ25div(A,B)
  843. #endif
  844. #if GLOBAL_Q == 24
  845. #define   _IQdiv(A,B)  _IQ24div(A,B)
  846. #endif
  847. #if GLOBAL_Q == 23
  848. #define   _IQdiv(A,B)  _IQ23div(A,B)
  849. #endif
  850. #if GLOBAL_Q == 22
  851. #define   _IQdiv(A,B)  _IQ22div(A,B)
  852. #endif
  853. #if GLOBAL_Q == 21
  854. #define   _IQdiv(A,B)  _IQ21div(A,B)
  855. #endif
  856. #if GLOBAL_Q == 20
  857. #define   _IQdiv(A,B)  _IQ20div(A,B)
  858. #endif
  859. #if GLOBAL_Q == 19
  860. #define   _IQdiv(A,B)  _IQ19div(A,B)
  861. #endif
  862. #if GLOBAL_Q == 18
  863. #define   _IQdiv(A,B)  _IQ18div(A,B)
  864. #endif
  865. #if GLOBAL_Q == 17
  866. #define   _IQdiv(A,B)  _IQ17div(A,B)
  867. #endif
  868. #if GLOBAL_Q == 16
  869. #define   _IQdiv(A,B)  _IQ16div(A,B)
  870. #endif
  871. #if GLOBAL_Q == 15
  872. #define   _IQdiv(A,B)  _IQ15div(A,B)
  873. #endif
  874. #if GLOBAL_Q == 14
  875. #define   _IQdiv(A,B)  _IQ14div(A,B)
  876. #endif
  877. #if GLOBAL_Q == 13
  878. #define   _IQdiv(A,B)  _IQ13div(A,B)
  879. #endif
  880. #if GLOBAL_Q == 12
  881. #define   _IQdiv(A,B)  _IQ12div(A,B)
  882. #endif
  883. #if GLOBAL_Q == 11
  884. #define   _IQdiv(A,B)  _IQ11div(A,B)
  885. #endif
  886. #if GLOBAL_Q == 10
  887. #define   _IQdiv(A,B)  _IQ10div(A,B)
  888. #endif
  889. #if GLOBAL_Q == 9
  890. #define   _IQdiv(A,B)  _IQ9div(A,B)
  891. #endif
  892. #if GLOBAL_Q == 8
  893. #define   _IQdiv(A,B)  _IQ8div(A,B)
  894. #endif
  895. #if GLOBAL_Q == 7
  896. #define   _IQdiv(A,B)  _IQ7div(A,B)
  897. #endif
  898. #if GLOBAL_Q == 6
  899. #define   _IQdiv(A,B)  _IQ6div(A,B)
  900. #endif
  901. #if GLOBAL_Q == 5
  902. #define   _IQdiv(A,B)  _IQ5div(A,B)
  903. #endif
  904. #if GLOBAL_Q == 4
  905. #define   _IQdiv(A,B)  _IQ4div(A,B)
  906. #endif
  907. #if GLOBAL_Q == 3
  908. #define   _IQdiv(A,B)  _IQ3div(A,B)
  909. #endif
  910. #if GLOBAL_Q == 2
  911. #define   _IQdiv(A,B)  _IQ2div(A,B)
  912. #endif
  913. #if GLOBAL_Q == 1
  914. #define   _IQdiv(A,B)  _IQ1div(A,B)
  915. #endif
  916. //---------------------------------------------------------------------------
  917. extern    long _IQ30sin(long A);
  918. extern    long _IQ29sin(long A);
  919. extern    long _IQ28sin(long A);
  920. extern    long _IQ27sin(long A);
  921. extern    long _IQ26sin(long A);
  922. extern    long _IQ25sin(long A);
  923. extern    long _IQ24sin(long A);
  924. extern    long _IQ23sin(long A);
  925. extern    long _IQ22sin(long A);
  926. extern    long _IQ21sin(long A);
  927. extern    long _IQ20sin(long A);
  928. extern    long _IQ19sin(long A);
  929. extern    long _IQ18sin(long A);
  930. extern    long _IQ17sin(long A);
  931. extern    long _IQ16sin(long A);
  932. extern    long _IQ15sin(long A);
  933. extern    long _IQ14sin(long A);
  934. extern    long _IQ13sin(long A);
  935. extern    long _IQ12sin(long A);
  936. extern    long _IQ11sin(long A);
  937. extern    long _IQ10sin(long A);
  938. extern    long _IQ9sin(long A);
  939. extern    long _IQ8sin(long A);
  940. extern    long _IQ7sin(long A);
  941. extern    long _IQ6sin(long A);
  942. extern    long _IQ5sin(long A);
  943. extern    long _IQ4sin(long A);
  944. extern    long _IQ3sin(long A);
  945. extern    long _IQ2sin(long A);
  946. extern    long _IQ1sin(long A);
  948. #if GLOBAL_Q == 30
  949. #define   _IQsin(A)  _IQ30sin(A)
  950. #endif
  951. #if GLOBAL_Q == 29
  952. #define   _IQsin(A)  _IQ29sin(A)
  953. #endif
  954. #if GLOBAL_Q == 28
  955. #define   _IQsin(A)  _IQ28sin(A)
  956. #endif
  957. #if GLOBAL_Q == 27
  958. #define   _IQsin(A)  _IQ27sin(A)
  959. #endif
  960. #if GLOBAL_Q == 26
  961. #define   _IQsin(A)  _IQ26sin(A)
  962. #endif
  963. #if GLOBAL_Q == 25
  964. #define   _IQsin(A)  _IQ25sin(A)
  965. #endif
  966. #if GLOBAL_Q == 24
  967. #define   _IQsin(A)  _IQ24sin(A)
  968. #endif
  969. #if GLOBAL_Q == 23
  970. #define   _IQsin(A)  _IQ23sin(A)
  971. #endif
  972. #if GLOBAL_Q == 22
  973. #define   _IQsin(A)  _IQ22sin(A)
  974. #endif
  975. #if GLOBAL_Q == 21
  976. #define   _IQsin(A)  _IQ21sin(A)
  977. #endif
  978. #if GLOBAL_Q == 20
  979. #define   _IQsin(A)  _IQ20sin(A)
  980. #endif
  981. #if GLOBAL_Q == 19
  982. #define   _IQsin(A)  _IQ19sin(A)
  983. #endif
  984. #if GLOBAL_Q == 18
  985. #define   _IQsin(A)  _IQ18sin(A)
  986. #endif
  987. #if GLOBAL_Q == 17
  988. #define   _IQsin(A)  _IQ17sin(A)
  989. #endif
  990. #if GLOBAL_Q == 16
  991. #define   _IQsin(A)  _IQ16sin(A)
  992. #endif
  993. #if GLOBAL_Q == 15
  994. #define   _IQsin(A)  _IQ15sin(A)
  995. #endif
  996. #if GLOBAL_Q == 14
  997. #define   _IQsin(A)  _IQ14sin(A)
  998. #endif
  999. #if GLOBAL_Q == 13
  1000. #define   _IQsin(A)  _IQ13sin(A)
  1001. #endif
  1002. #if GLOBAL_Q == 12
  1003. #define   _IQsin(A)  _IQ12sin(A)
  1004. #endif
  1005. #if GLOBAL_Q == 11
  1006. #define   _IQsin(A)  _IQ11sin(A)
  1007. #endif
  1008. #if GLOBAL_Q == 10
  1009. #define   _IQsin(A)  _IQ10sin(A)
  1010. #endif
  1011. #if GLOBAL_Q == 9
  1012. #define   _IQsin(A)  _IQ9sin(A)
  1013. #endif
  1014. #if GLOBAL_Q == 8
  1015. #define   _IQsin(A)  _IQ8sin(A)
  1016. #endif
  1017. #if GLOBAL_Q == 7
  1018. #define   _IQsin(A)  _IQ7sin(A)
  1019. #endif
  1020. #if GLOBAL_Q == 6
  1021. #define   _IQsin(A)  _IQ6sin(A)
  1022. #endif
  1023. #if GLOBAL_Q == 5
  1024. #define   _IQsin(A)  _IQ5sin(A)
  1025. #endif
  1026. #if GLOBAL_Q == 4
  1027. #define   _IQsin(A)  _IQ4sin(A)
  1028. #endif
  1029. #if GLOBAL_Q == 3
  1030. #define   _IQsin(A)  _IQ3sin(A)
  1031. #endif
  1032. #if GLOBAL_Q == 2
  1033. #define   _IQsin(A)  _IQ2sin(A)
  1034. #endif
  1035. #if GLOBAL_Q == 1
  1036. #define   _IQsin(A)  _IQ1sin(A)
  1037. #endif
  1038. //---------------------------------------------------------------------------
  1039. extern    long _IQ30sinPU(long A);
  1040. extern    long _IQ29sinPU(long A);
  1041. extern    long _IQ28sinPU(long A);
  1042. extern    long _IQ27sinPU(long A);
  1043. extern    long _IQ26sinPU(long A);
  1044. extern    long _IQ25sinPU(long A);
  1045. extern    long _IQ24sinPU(long A);
  1046. extern    long _IQ23sinPU(long A);
  1047. extern    long _IQ22sinPU(long A);
  1048. extern    long _IQ21sinPU(long A);
  1049. extern    long _IQ20sinPU(long A);
  1050. extern    long _IQ19sinPU(long A);
  1051. extern    long _IQ18sinPU(long A);
  1052. extern    long _IQ17sinPU(long A);
  1053. extern    long _IQ16sinPU(long A);
  1054. extern    long _IQ15sinPU(long A);
  1055. extern    long _IQ14sinPU(long A);
  1056. extern    long _IQ13sinPU(long A);
  1057. extern    long _IQ12sinPU(long A);
  1058. extern    long _IQ11sinPU(long A);
  1059. extern    long _IQ10sinPU(long A);
  1060. extern    long _IQ9sinPU(long A);
  1061. extern    long _IQ8sinPU(long A);
  1062. extern    long _IQ7sinPU(long A);
  1063. extern    long _IQ6sinPU(long A);
  1064. extern    long _IQ5sinPU(long A);
  1065. extern    long _IQ4sinPU(long A);
  1066. extern    long _IQ3sinPU(long A);
  1067. extern    long _IQ2sinPU(long A);
  1068. extern    long _IQ1sinPU(long A);
  1070. #if GLOBAL_Q == 30
  1071. #define   _IQsinPU(A)  _IQ30sinPU(A)
  1072. #endif
  1073. #if GLOBAL_Q == 29
  1074. #define   _IQsinPU(A)  _IQ29sinPU(A)
  1075. #endif
  1076. #if GLOBAL_Q == 28
  1077. #define   _IQsinPU(A)  _IQ28sinPU(A)
  1078. #endif
  1079. #if GLOBAL_Q == 27
  1080. #define   _IQsinPU(A)  _IQ27sinPU(A)
  1081. #endif
  1082. #if GLOBAL_Q == 26
  1083. #define   _IQsinPU(A)  _IQ26sinPU(A)
  1084. #endif
  1085. #if GLOBAL_Q == 25
  1086. #define   _IQsinPU(A)  _IQ25sinPU(A)
  1087. #endif
  1088. #if GLOBAL_Q == 24
  1089. #define   _IQsinPU(A)  _IQ24sinPU(A)
  1090. #endif
  1091. #if GLOBAL_Q == 23
  1092. #define   _IQsinPU(A)  _IQ23sinPU(A)
  1093. #endif
  1094. #if GLOBAL_Q == 22
  1095. #define   _IQsinPU(A)  _IQ22sinPU(A)
  1096. #endif
  1097. #if GLOBAL_Q == 21
  1098. #define   _IQsinPU(A)  _IQ21sinPU(A)
  1099. #endif
  1100. #if GLOBAL_Q == 20
  1101. #define   _IQsinPU(A)  _IQ20sinPU(A)
  1102. #endif
  1103. #if GLOBAL_Q == 19
  1104. #define   _IQsinPU(A)  _IQ19sinPU(A)
  1105. #endif
  1106. #if GLOBAL_Q == 18
  1107. #define   _IQsinPU(A)  _IQ18sinPU(A)
  1108. #endif
  1109. #if GLOBAL_Q == 17
  1110. #define   _IQsinPU(A)  _IQ17sinPU(A)
  1111. #endif
  1112. #if GLOBAL_Q == 16
  1113. #define   _IQsinPU(A)  _IQ16sinPU(A)
  1114. #endif
  1115. #if GLOBAL_Q == 15
  1116. #define   _IQsinPU(A)  _IQ15sinPU(A)
  1117. #endif
  1118. #if GLOBAL_Q == 14
  1119. #define   _IQsinPU(A)  _IQ14sinPU(A)
  1120. #endif
  1121. #if GLOBAL_Q == 13
  1122. #define   _IQsinPU(A)  _IQ13sinPU(A)
  1123. #endif
  1124. #if GLOBAL_Q == 12
  1125. #define   _IQsinPU(A)  _IQ12sinPU(A)
  1126. #endif
  1127. #if GLOBAL_Q == 11
  1128. #define   _IQsinPU(A)  _IQ11sinPU(A)
  1129. #endif
  1130. #if GLOBAL_Q == 10
  1131. #define   _IQsinPU(A)  _IQ10sinPU(A)
  1132. #endif
  1133. #if GLOBAL_Q == 9
  1134. #define   _IQsinPU(A)  _IQ9sinPU(A)
  1135. #endif
  1136. #if GLOBAL_Q == 8
  1137. #define   _IQsinPU(A)  _IQ8sinPU(A)
  1138. #endif
  1139. #if GLOBAL_Q == 7
  1140. #define   _IQsinPU(A)  _IQ7sinPU(A)
  1141. #endif
  1142. #if GLOBAL_Q == 6
  1143. #define   _IQsinPU(A)  _IQ6sinPU(A)
  1144. #endif
  1145. #if GLOBAL_Q == 5
  1146. #define   _IQsinPU(A)  _IQ5sinPU(A)
  1147. #endif
  1148. #if GLOBAL_Q == 4
  1149. #define   _IQsinPU(A)  _IQ4sinPU(A)
  1150. #endif
  1151. #if GLOBAL_Q == 3
  1152. #define   _IQsinPU(A)  _IQ3sinPU(A)
  1153. #endif
  1154. #if GLOBAL_Q == 2
  1155. #define   _IQsinPU(A)  _IQ2sinPU(A)
  1156. #endif
  1157. #if GLOBAL_Q == 1
  1158. #define   _IQsinPU(A)  _IQ1sinPU(A)
  1159. #endif
  1160. //---------------------------------------------------------------------------
  1161. extern    long _IQ30cos(long A);
  1162. extern    long _IQ29cos(long A);
  1163. extern    long _IQ28cos(long A);
  1164. extern    long _IQ27cos(long A);
  1165. extern    long _IQ26cos(long A);
  1166. extern    long _IQ25cos(long A);
  1167. extern    long _IQ24cos(long A);
  1168. extern    long _IQ23cos(long A);
  1169. extern    long _IQ22cos(long A);
  1170. extern    long _IQ21cos(long A);
  1171. extern    long _IQ20cos(long A);
  1172. extern    long _IQ19cos(long A);
  1173. extern    long _IQ18cos(long A);
  1174. extern    long _IQ17cos(long A);
  1175. extern    long _IQ16cos(long A);
  1176. extern    long _IQ15cos(long A);
  1177. extern    long _IQ14cos(long A);
  1178. extern    long _IQ13cos(long A);
  1179. extern    long _IQ12cos(long A);
  1180. extern    long _IQ11cos(long A);
  1181. extern    long _IQ10cos(long A);
  1182. extern    long _IQ9cos(long A);
  1183. extern    long _IQ8cos(long A);
  1184. extern    long _IQ7cos(long A);
  1185. extern    long _IQ6cos(long A);
  1186. extern    long _IQ5cos(long A);
  1187. extern    long _IQ4cos(long A);
  1188. extern    long _IQ3cos(long A);
  1189. extern    long _IQ2cos(long A);
  1190. extern    long _IQ1cos(long A);
  1192. #if GLOBAL_Q == 30
  1193. #define   _IQcos(A)  _IQ30cos(A)
  1194. #endif
  1195. #if GLOBAL_Q == 29
  1196. #define   _IQcos(A)  _IQ29cos(A)
  1197. #endif
  1198. #if GLOBAL_Q == 28
  1199. #define   _IQcos(A)  _IQ28cos(A)
  1200. #endif
  1201. #if GLOBAL_Q == 27
  1202. #define   _IQcos(A)  _IQ27cos(A)
  1203. #endif
  1204. #if GLOBAL_Q == 26
  1205. #define   _IQcos(A)  _IQ26cos(A)
  1206. #endif
  1207. #if GLOBAL_Q == 25
  1208. #define   _IQcos(A)  _IQ25cos(A)
  1209. #endif
  1210. #if GLOBAL_Q == 24
  1211. #define   _IQcos(A)  _IQ24cos(A)
  1212. #endif
  1213. #if GLOBAL_Q == 23
  1214. #define   _IQcos(A)  _IQ23cos(A)
  1215. #endif
  1216. #if GLOBAL_Q == 22
  1217. #define   _IQcos(A)  _IQ22cos(A)
  1218. #endif
  1219. #if GLOBAL_Q == 21
  1220. #define   _IQcos(A)  _IQ21cos(A)
  1221. #endif
  1222. #if GLOBAL_Q == 20
  1223. #define   _IQcos(A)  _IQ20cos(A)
  1224. #endif
  1225. #if GLOBAL_Q == 19
  1226. #define   _IQcos(A)  _IQ19cos(A)
  1227. #endif
  1228. #if GLOBAL_Q == 18
  1229. #define   _IQcos(A)  _IQ18cos(A)
  1230. #endif
  1231. #if GLOBAL_Q == 17
  1232. #define   _IQcos(A)  _IQ17cos(A)
  1233. #endif
  1234. #if GLOBAL_Q == 16
  1235. #define   _IQcos(A)  _IQ16cos(A)
  1236. #endif
  1237. #if GLOBAL_Q == 15
  1238. #define   _IQcos(A)  _IQ15cos(A)
  1239. #endif
  1240. #if GLOBAL_Q == 14
  1241. #define   _IQcos(A)  _IQ14cos(A)
  1242. #endif
  1243. #if GLOBAL_Q == 13
  1244. #define   _IQcos(A)  _IQ13cos(A)
  1245. #endif
  1246. #if GLOBAL_Q == 12
  1247. #define   _IQcos(A)  _IQ12cos(A)
  1248. #endif
  1249. #if GLOBAL_Q == 11
  1250. #define   _IQcos(A)  _IQ11cos(A)
  1251. #endif
  1252. #if GLOBAL_Q == 10
  1253. #define   _IQcos(A)  _IQ10cos(A)
  1254. #endif
  1255. #if GLOBAL_Q == 9
  1256. #define   _IQcos(A)  _IQ9cos(A)
  1257. #endif
  1258. #if GLOBAL_Q == 8
  1259. #define   _IQcos(A)  _IQ8cos(A)
  1260. #endif
  1261. #if GLOBAL_Q == 7
  1262. #define   _IQcos(A)  _IQ7cos(A)
  1263. #endif
  1264. #if GLOBAL_Q == 6
  1265. #define   _IQcos(A)  _IQ6cos(A)
  1266. #endif
  1267. #if GLOBAL_Q == 5
  1268. #define   _IQcos(A)  _IQ5cos(A)
  1269. #endif
  1270. #if GLOBAL_Q == 4
  1271. #define   _IQcos(A)  _IQ4cos(A)
  1272. #endif
  1273. #if GLOBAL_Q == 3
  1274. #define   _IQcos(A)  _IQ3cos(A)
  1275. #endif
  1276. #if GLOBAL_Q == 2
  1277. #define   _IQcos(A)  _IQ2cos(A)
  1278. #endif
  1279. #if GLOBAL_Q == 1
  1280. #define   _IQcos(A)  _IQ1cos(A)
  1281. #endif
  1282. //---------------------------------------------------------------------------
  1283. extern    long _IQ30cosPU(long A);
  1284. extern    long _IQ29cosPU(long A);
  1285. extern    long _IQ28cosPU(long A);
  1286. extern    long _IQ27cosPU(long A);
  1287. extern    long _IQ26cosPU(long A);
  1288. extern    long _IQ25cosPU(long A);
  1289. extern    long _IQ24cosPU(long A);
  1290. extern    long _IQ23cosPU(long A);
  1291. extern    long _IQ22cosPU(long A);
  1292. extern    long _IQ21cosPU(long A);
  1293. extern    long _IQ20cosPU(long A);
  1294. extern    long _IQ19cosPU(long A);
  1295. extern    long _IQ18cosPU(long A);
  1296. extern    long _IQ17cosPU(long A);
  1297. extern    long _IQ16cosPU(long A);
  1298. extern    long _IQ15cosPU(long A);
  1299. extern    long _IQ14cosPU(long A);
  1300. extern    long _IQ13cosPU(long A);
  1301. extern    long _IQ12cosPU(long A);
  1302. extern    long _IQ11cosPU(long A);
  1303. extern    long _IQ10cosPU(long A);
  1304. extern    long _IQ9cosPU(long A);
  1305. extern    long _IQ8cosPU(long A);
  1306. extern    long _IQ7cosPU(long A);
  1307. extern    long _IQ6cosPU(long A);
  1308. extern    long _IQ5cosPU(long A);
  1309. extern    long _IQ4cosPU(long A);
  1310. extern    long _IQ3cosPU(long A);
  1311. extern    long _IQ2cosPU(long A);
  1312. extern    long _IQ1cosPU(long A);
  1314. #if GLOBAL_Q == 30
  1315. #define   _IQcosPU(A)  _IQ30cosPU(A)
  1316. #endif
  1317. #if GLOBAL_Q == 29
  1318. #define   _IQcosPU(A)  _IQ29cosPU(A)
  1319. #endif
  1320. #if GLOBAL_Q == 28
  1321. #define   _IQcosPU(A)  _IQ28cosPU(A)
  1322. #endif
  1323. #if GLOBAL_Q == 27
  1324. #define   _IQcosPU(A)  _IQ27cosPU(A)
  1325. #endif
  1326. #if GLOBAL_Q == 26
  1327. #define   _IQcosPU(A)  _IQ26cosPU(A)
  1328. #endif
  1329. #if GLOBAL_Q == 25
  1330. #define   _IQcosPU(A)  _IQ25cosPU(A)
  1331. #endif
  1332. #if GLOBAL_Q == 24
  1333. #define   _IQcosPU(A)  _IQ24cosPU(A)
  1334. #endif
  1335. #if GLOBAL_Q == 23
  1336. #define   _IQcosPU(A)  _IQ23cosPU(A)
  1337. #endif
  1338. #if GLOBAL_Q == 22
  1339. #define   _IQcosPU(A)  _IQ22cosPU(A)
  1340. #endif
  1341. #if GLOBAL_Q == 21
  1342. #define   _IQcosPU(A)  _IQ21cosPU(A)
  1343. #endif
  1344. #if GLOBAL_Q == 20
  1345. #define   _IQcosPU(A)  _IQ20cosPU(A)
  1346. #endif
  1347. #if GLOBAL_Q == 19
  1348. #define   _IQcosPU(A)  _IQ19cosPU(A)
  1349. #endif
  1350. #if GLOBAL_Q == 18
  1351. #define   _IQcosPU(A)  _IQ18cosPU(A)
  1352. #endif
  1353. #if GLOBAL_Q == 17
  1354. #define   _IQcosPU(A)  _IQ17cosPU(A)
  1355. #endif
  1356. #if GLOBAL_Q == 16
  1357. #define   _IQcosPU(A)  _IQ16cosPU(A)
  1358. #endif
  1359. #if GLOBAL_Q == 15
  1360. #define   _IQcosPU(A)  _IQ15cosPU(A)
  1361. #endif
  1362. #if GLOBAL_Q == 14
  1363. #define   _IQcosPU(A)  _IQ14cosPU(A)
  1364. #endif
  1365. #if GLOBAL_Q == 13
  1366. #define   _IQcosPU(A)  _IQ13cosPU(A)
  1367. #endif
  1368. #if GLOBAL_Q == 12
  1369. #define   _IQcosPU(A)  _IQ12cosPU(A)
  1370. #endif
  1371. #if GLOBAL_Q == 11
  1372. #define   _IQcosPU(A)  _IQ11cosPU(A)
  1373. #endif
  1374. #if GLOBAL_Q == 10
  1375. #define   _IQcosPU(A)  _IQ10cosPU(A)
  1376. #endif
  1377. #if GLOBAL_Q == 9
  1378. #define   _IQcosPU(A)  _IQ9cosPU(A)
  1379. #endif
  1380. #if GLOBAL_Q == 8
  1381. #define   _IQcosPU(A)  _IQ8cosPU(A)
  1382. #endif
  1383. #if GLOBAL_Q == 7
  1384. #define   _IQcosPU(A)  _IQ7cosPU(A)
  1385. #endif
  1386. #if GLOBAL_Q == 6
  1387. #define   _IQcosPU(A)  _IQ6cosPU(A)
  1388. #endif
  1389. #if GLOBAL_Q == 5
  1390. #define   _IQcosPU(A)  _IQ5cosPU(A)
  1391. #endif
  1392. #if GLOBAL_Q == 4
  1393. #define   _IQcosPU(A)  _IQ4cosPU(A)
  1394. #endif
  1395. #if GLOBAL_Q == 3
  1396. #define   _IQcosPU(A)  _IQ3cosPU(A)
  1397. #endif
  1398. #if GLOBAL_Q == 2
  1399. #define   _IQcosPU(A)  _IQ2cosPU(A)
  1400. #endif
  1401. #if GLOBAL_Q == 1
  1402. #define   _IQcosPU(A)  _IQ1cosPU(A)
  1403. #endif
  1404. //---------------------------------------------------------------------------
  1405. extern    long _IQ30atan2(long A, long B);
  1406. extern    long _IQ29atan2(long A, long B);
  1407. extern    long _IQ28atan2(long A, long B);
  1408. extern    long _IQ27atan2(long A, long B);
  1409. extern    long _IQ26atan2(long A, long B);
  1410. extern    long _IQ25atan2(long A, long B);
  1411. extern    long _IQ24atan2(long A, long B);
  1412. extern    long _IQ23atan2(long A, long B);
  1413. extern    long _IQ22atan2(long A, long B);
  1414. extern    long _IQ21atan2(long A, long B);
  1415. extern    long _IQ20atan2(long A, long B);
  1416. extern    long _IQ19atan2(long A, long B);
  1417. extern    long _IQ18atan2(long A, long B);
  1418. extern    long _IQ17atan2(long A, long B);
  1419. extern    long _IQ16atan2(long A, long B);
  1420. extern    long _IQ15atan2(long A, long B);
  1421. extern    long _IQ14atan2(long A, long B);
  1422. extern    long _IQ13atan2(long A, long B);
  1423. extern    long _IQ12atan2(long A, long B);
  1424. extern    long _IQ11atan2(long A, long B);
  1425. extern    long _IQ10atan2(long A, long B);
  1426. extern    long _IQ9atan2(long A, long B);
  1427. extern    long _IQ8atan2(long A, long B);
  1428. extern    long _IQ7atan2(long A, long B);
  1429. extern    long _IQ6atan2(long A, long B);
  1430. extern    long _IQ5atan2(long A, long B);
  1431. extern    long _IQ4atan2(long A, long B);
  1432. extern    long _IQ3atan2(long A, long B);
  1433. extern    long _IQ2atan2(long A, long B);
  1434. extern    long _IQ1atan2(long A, long B);
  1436. #if GLOBAL_Q == 30
  1437. #define   _IQatan2(A,B)  _IQ30atan2(A,B)
  1438. #endif
  1439. #if GLOBAL_Q == 29
  1440. #define   _IQatan2(A,B)  _IQ29atan2(A,B)
  1441. #endif
  1442. #if GLOBAL_Q == 28
  1443. #define   _IQatan2(A,B)  _IQ28atan2(A,B)
  1444. #endif
  1445. #if GLOBAL_Q == 27
  1446. #define   _IQatan2(A,B)  _IQ27atan2(A,B)
  1447. #endif
  1448. #if GLOBAL_Q == 26
  1449. #define   _IQatan2(A,B)  _IQ26atan2(A,B)
  1450. #endif
  1451. #if GLOBAL_Q == 25
  1452. #define   _IQatan2(A,B)  _IQ25atan2(A,B)
  1453. #endif
  1454. #if GLOBAL_Q == 24
  1455. #define   _IQatan2(A,B)  _IQ24atan2(A,B)
  1456. #endif
  1457. #if GLOBAL_Q == 23
  1458. #define   _IQatan2(A,B)  _IQ23atan2(A,B)
  1459. #endif
  1460. #if GLOBAL_Q == 22
  1461. #define   _IQatan2(A,B)  _IQ22atan2(A,B)
  1462. #endif
  1463. #if GLOBAL_Q == 21
  1464. #define   _IQatan2(A,B)  _IQ21atan2(A,B)
  1465. #endif
  1466. #if GLOBAL_Q == 20
  1467. #define   _IQatan2(A,B)  _IQ20atan2(A,B)
  1468. #endif
  1469. #if GLOBAL_Q == 19
  1470. #define   _IQatan2(A,B)  _IQ19atan2(A,B)
  1471. #endif
  1472. #if GLOBAL_Q == 18
  1473. #define   _IQatan2(A,B)  _IQ18atan2(A,B)
  1474. #endif
  1475. #if GLOBAL_Q == 17
  1476. #define   _IQatan2(A,B)  _IQ17atan2(A,B)
  1477. #endif
  1478. #if GLOBAL_Q == 16
  1479. #define   _IQatan2(A,B)  _IQ16atan2(A,B)
  1480. #endif
  1481. #if GLOBAL_Q == 15
  1482. #define   _IQatan2(A,B)  _IQ15atan2(A,B)
  1483. #endif
  1484. #if GLOBAL_Q == 14
  1485. #define   _IQatan2(A,B)  _IQ14atan2(A,B)
  1486. #endif
  1487. #if GLOBAL_Q == 13
  1488. #define   _IQatan2(A,B)  _IQ13atan2(A,B)
  1489. #endif
  1490. #if GLOBAL_Q == 12
  1491. #define   _IQatan2(A,B)  _IQ12atan2(A,B)
  1492. #endif
  1493. #if GLOBAL_Q == 11
  1494. #define   _IQatan2(A,B)  _IQ11atan2(A,B)
  1495. #endif
  1496. #if GLOBAL_Q == 10
  1497. #define   _IQatan2(A,B)  _IQ10atan2(A,B)
  1498. #endif
  1499. #if GLOBAL_Q == 9
  1500. #define   _IQatan2(A,B)  _IQ9atan2(A,B)
  1501. #endif
  1502. #if GLOBAL_Q == 8
  1503. #define   _IQatan2(A,B)  _IQ8atan2(A,B)
  1504. #endif
  1505. #if GLOBAL_Q == 7
  1506. #define   _IQatan2(A,B)  _IQ7atan2(A,B)
  1507. #endif
  1508. #if GLOBAL_Q == 6
  1509. #define   _IQatan2(A,B)  _IQ6atan2(A,B)
  1510. #endif
  1511. #if GLOBAL_Q == 5
  1512. #define   _IQatan2(A,B)  _IQ5atan2(A,B)
  1513. #endif
  1514. #if GLOBAL_Q == 4
  1515. #define   _IQatan2(A,B)  _IQ4atan2(A,B)
  1516. #endif
  1517. #if GLOBAL_Q == 3
  1518. #define   _IQatan2(A,B)  _IQ3atan2(A,B)
  1519. #endif
  1520. #if GLOBAL_Q == 2
  1521. #define   _IQatan2(A,B)  _IQ2atan2(A,B)
  1522. #endif
  1523. #if GLOBAL_Q == 1
  1524. #define   _IQatan2(A,B)  _IQ1atan2(A,B)
  1525. #endif
  1526. //---------------------------------------------------------------------------
  1527. extern    long _IQ30atan2PU(long A, long B);
  1528. extern    long _IQ29atan2PU(long A, long B);
  1529. extern    long _IQ28atan2PU(long A, long B);
  1530. extern    long _IQ27atan2PU(long A, long B);
  1531. extern    long _IQ26atan2PU(long A, long B);
  1532. extern    long _IQ25atan2PU(long A, long B);
  1533. extern    long _IQ24atan2PU(long A, long B);
  1534. extern    long _IQ23atan2PU(long A, long B);
  1535. extern    long _IQ22atan2PU(long A, long B);
  1536. extern    long _IQ21atan2PU(long A, long B);
  1537. extern    long _IQ20atan2PU(long A, long B);
  1538. extern    long _IQ19atan2PU(long A, long B);
  1539. extern    long _IQ18atan2PU(long A, long B);
  1540. extern    long _IQ17atan2PU(long A, long B);
  1541. extern    long _IQ16atan2PU(long A, long B);
  1542. extern    long _IQ15atan2PU(long A, long B);
  1543. extern    long _IQ14atan2PU(long A, long B);
  1544. extern    long _IQ13atan2PU(long A, long B);
  1545. extern    long _IQ12atan2PU(long A, long B);
  1546. extern    long _IQ11atan2PU(long A, long B);
  1547. extern    long _IQ10atan2PU(long A, long B);
  1548. extern    long _IQ9atan2PU(long A, long B);
  1549. extern    long _IQ8atan2PU(long A, long B);
  1550. extern    long _IQ7atan2PU(long A, long B);
  1551. extern    long _IQ6atan2PU(long A, long B);
  1552. extern    long _IQ5atan2PU(long A, long B);
  1553. extern    long _IQ4atan2PU(long A, long B);
  1554. extern    long _IQ3atan2PU(long A, long B);
  1555. extern    long _IQ2atan2PU(long A, long B);
  1556. extern    long _IQ1atan2PU(long A, long B);
  1558. #if GLOBAL_Q == 30
  1559. #define   _IQatan2PU(A,B)  _IQ30atan2PU(A,B)
  1560. #endif
  1561. #if GLOBAL_Q == 29
  1562. #define   _IQatan2PU(A,B)  _IQ29atan2PU(A,B)
  1563. #endif
  1564. #if GLOBAL_Q == 28
  1565. #define   _IQatan2PU(A,B)  _IQ28atan2PU(A,B)
  1566. #endif
  1567. #if GLOBAL_Q == 27
  1568. #define   _IQatan2PU(A,B)  _IQ27atan2PU(A,B)
  1569. #endif
  1570. #if GLOBAL_Q == 26
  1571. #define   _IQatan2PU(A,B)  _IQ26atan2PU(A,B)
  1572. #endif
  1573. #if GLOBAL_Q == 25
  1574. #define   _IQatan2PU(A,B)  _IQ25atan2PU(A,B)
  1575. #endif
  1576. #if GLOBAL_Q == 24
  1577. #define   _IQatan2PU(A,B)  _IQ24atan2PU(A,B)
  1578. #endif
  1579. #if GLOBAL_Q == 23
  1580. #define   _IQatan2PU(A,B)  _IQ23atan2PU(A,B)
  1581. #endif
  1582. #if GLOBAL_Q == 22
  1583. #define   _IQatan2PU(A,B)  _IQ22atan2PU(A,B)
  1584. #endif
  1585. #if GLOBAL_Q == 21
  1586. #define   _IQatan2PU(A,B)  _IQ21atan2PU(A,B)
  1587. #endif
  1588. #if GLOBAL_Q == 20
  1589. #define   _IQatan2PU(A,B)  _IQ20atan2PU(A,B)
  1590. #endif
  1591. #if GLOBAL_Q == 19
  1592. #define   _IQatan2PU(A,B)  _IQ19atan2PU(A,B)
  1593. #endif
  1594. #if GLOBAL_Q == 18
  1595. #define   _IQatan2PU(A,B)  _IQ18atan2PU(A,B)
  1596. #endif
  1597. #if GLOBAL_Q == 17
  1598. #define   _IQatan2PU(A,B)  _IQ17atan2PU(A,B)
  1599. #endif
  1600. #if GLOBAL_Q == 16
  1601. #define   _IQatan2PU(A,B)  _IQ16atan2PU(A,B)
  1602. #endif
  1603. #if GLOBAL_Q == 15
  1604. #define   _IQatan2PU(A,B)  _IQ15atan2PU(A,B)
  1605. #endif
  1606. #if GLOBAL_Q == 14
  1607. #define   _IQatan2PU(A,B)  _IQ14atan2PU(A,B)
  1608. #endif
  1609. #if GLOBAL_Q == 13
  1610. #define   _IQatan2PU(A,B)  _IQ13atan2PU(A,B)
  1611. #endif
  1612. #if GLOBAL_Q == 12
  1613. #define   _IQatan2PU(A,B)  _IQ12atan2PU(A,B)
  1614. #endif
  1615. #if GLOBAL_Q == 11
  1616. #define   _IQatan2PU(A,B)  _IQ11atan2PU(A,B)
  1617. #endif
  1618. #if GLOBAL_Q == 10
  1619. #define   _IQatan2PU(A,B)  _IQ10atan2PU(A,B)
  1620. #endif
  1621. #if GLOBAL_Q == 9
  1622. #define   _IQatan2PU(A,B)  _IQ9atan2PU(A,B)
  1623. #endif
  1624. #if GLOBAL_Q == 8
  1625. #define   _IQatan2PU(A,B)  _IQ8atan2PU(A,B)
  1626. #endif
  1627. #if GLOBAL_Q == 7
  1628. #define   _IQatan2PU(A,B)  _IQ7atan2PU(A,B)
  1629. #endif
  1630. #if GLOBAL_Q == 6
  1631. #define   _IQatan2PU(A,B)  _IQ6atan2PU(A,B)
  1632. #endif
  1633. #if GLOBAL_Q == 5
  1634. #define   _IQatan2PU(A,B)  _IQ5atan2PU(A,B)
  1635. #endif
  1636. #if GLOBAL_Q == 4
  1637. #define   _IQatan2PU(A,B)  _IQ4atan2PU(A,B)
  1638. #endif
  1639. #if GLOBAL_Q == 3
  1640. #define   _IQatan2PU(A,B)  _IQ3atan2PU(A,B)
  1641. #endif
  1642. #if GLOBAL_Q == 2
  1643. #define   _IQatan2PU(A,B)  _IQ2atan2PU(A,B)
  1644. #endif
  1645. #if GLOBAL_Q == 1
  1646. #define   _IQatan2PU(A,B)  _IQ1atan2PU(A,B)
  1647. #endif
  1648. //---------------------------------------------------------------------------
  1649. #if GLOBAL_Q == 30
  1650. #define   _IQatan(A)  _IQ30atan2(A,_IQ(1.0))
  1651. #endif
  1652. #if GLOBAL_Q == 29
  1653. #define   _IQatan(A)  _IQ29atan2(A,_IQ(1.0))
  1654. #endif
  1655. #if GLOBAL_Q == 28
  1656. #define   _IQatan(A)  _IQ28atan2(A,_IQ(1.0))
  1657. #endif
  1658. #if GLOBAL_Q == 27
  1659. #define   _IQatan(A)  _IQ27atan2(A,_IQ(1.0))
  1660. #endif
  1661. #if GLOBAL_Q == 26
  1662. #define   _IQatan(A)  _IQ26atan2(A,_IQ(1.0))
  1663. #endif
  1664. #if GLOBAL_Q == 25
  1665. #define   _IQatan(A)  _IQ25atan2(A,_IQ(1.0))
  1666. #endif
  1667. #if GLOBAL_Q == 24
  1668. #define   _IQatan(A)  _IQ24atan2(A,_IQ(1.0))
  1669. #endif
  1670. #if GLOBAL_Q == 23
  1671. #define   _IQatan(A)  _IQ23atan2(A,_IQ(1.0))
  1672. #endif
  1673. #if GLOBAL_Q == 22
  1674. #define   _IQatan(A)  _IQ22atan2(A,_IQ(1.0))
  1675. #endif
  1676. #if GLOBAL_Q == 21
  1677. #define   _IQatan(A)  _IQ21atan2(A,_IQ(1.0))
  1678. #endif
  1679. #if GLOBAL_Q == 20
  1680. #define   _IQatan(A)  _IQ20atan2(A,_IQ(1.0))
  1681. #endif
  1682. #if GLOBAL_Q == 19
  1683. #define   _IQatan(A)  _IQ19atan2(A,_IQ(1.0))
  1684. #endif
  1685. #if GLOBAL_Q == 18
  1686. #define   _IQatan(A)  _IQ18atan2(A,_IQ(1.0))
  1687. #endif
  1688. #if GLOBAL_Q == 17
  1689. #define   _IQatan(A)  _IQ17atan2(A,_IQ(1.0))
  1690. #endif
  1691. #if GLOBAL_Q == 16
  1692. #define   _IQatan(A)  _IQ16atan2(A,_IQ(1.0))
  1693. #endif
  1694. #if GLOBAL_Q == 15
  1695. #define   _IQatan(A)  _IQ15atan2(A,_IQ(1.0))
  1696. #endif
  1697. #if GLOBAL_Q == 14
  1698. #define   _IQatan(A)  _IQ14atan2(A,_IQ(1.0))
  1699. #endif
  1700. #if GLOBAL_Q == 13
  1701. #define   _IQatan(A)  _IQ13atan2(A,_IQ(1.0))
  1702. #endif
  1703. #if GLOBAL_Q == 12
  1704. #define   _IQatan(A)  _IQ12atan2(A,_IQ(1.0))
  1705. #endif
  1706. #if GLOBAL_Q == 11
  1707. #define   _IQatan(A)  _IQ11atan2(A,_IQ(1.0))
  1708. #endif
  1709. #if GLOBAL_Q == 10
  1710. #define   _IQatan(A)  _IQ10atan2(A,_IQ(1.0))
  1711. #endif
  1712. #if GLOBAL_Q == 9
  1713. #define   _IQatan(A)  _IQ9atan2(A,_IQ(1.0))
  1714. #endif
  1715. #if GLOBAL_Q == 8
  1716. #define   _IQatan(A)  _IQ8atan2(A,_IQ(1.0))
  1717. #endif
  1718. #if GLOBAL_Q == 7
  1719. #define   _IQatan(A)  _IQ7atan2(A,_IQ(1.0))
  1720. #endif
  1721. #if GLOBAL_Q == 6
  1722. #define   _IQatan(A)  _IQ6atan2(A,_IQ(1.0))
  1723. #endif
  1724. #if GLOBAL_Q == 5
  1725. #define   _IQatan(A)  _IQ5atan2(A,_IQ(1.0))
  1726. #endif
  1727. #if GLOBAL_Q == 4
  1728. #define   _IQatan(A)  _IQ4atan2(A,_IQ(1.0))
  1729. #endif
  1730. #if GLOBAL_Q == 3
  1731. #define   _IQatan(A)  _IQ3atan2(A,_IQ(1.0))
  1732. #endif
  1733. #if GLOBAL_Q == 2
  1734. #define   _IQatan(A)  _IQ2atan2(A,_IQ(1.0))
  1735. #endif
  1736. #if GLOBAL_Q == 1
  1737. #define   _IQatan(A)  _IQ1atan2(A,_IQ(1.0))
  1738. #endif
  1739. //---------------------------------------------------------------------------
  1740. extern    long _IQ30sqrt(long A);
  1741. extern    long _IQ29sqrt(long A);
  1742. extern    long _IQ28sqrt(long A);
  1743. extern    long _IQ27sqrt(long A);
  1744. extern    long _IQ26sqrt(long A);
  1745. extern    long _IQ25sqrt(long A);
  1746. extern    long _IQ24sqrt(long A);
  1747. extern    long _IQ23sqrt(long A);
  1748. extern    long _IQ22sqrt(long A);
  1749. extern    long _IQ21sqrt(long A);
  1750. extern    long _IQ20sqrt(long A);
  1751. extern    long _IQ19sqrt(long A);
  1752. extern    long _IQ18sqrt(long A);
  1753. extern    long _IQ17sqrt(long A);
  1754. extern    long _IQ16sqrt(long A);
  1755. extern    long _IQ15sqrt(long A);
  1756. extern    long _IQ14sqrt(long A);
  1757. extern    long _IQ13sqrt(long A);
  1758. extern    long _IQ12sqrt(long A);
  1759. extern    long _IQ11sqrt(long A);
  1760. extern    long _IQ10sqrt(long A);
  1761. extern    long _IQ9sqrt(long A);
  1762. extern    long _IQ8sqrt(long A);
  1763. extern    long _IQ7sqrt(long A);
  1764. extern    long _IQ6sqrt(long A);
  1765. extern    long _IQ5sqrt(long A);
  1766. extern    long _IQ4sqrt(long A);
  1767. extern    long _IQ3sqrt(long A);
  1768. extern    long _IQ2sqrt(long A);
  1769. extern    long _IQ1sqrt(long A);
  1771. #if GLOBAL_Q == 30
  1772. #define   _IQsqrt(A)  _IQ30sqrt(A)
  1773. #endif
  1774. #if GLOBAL_Q == 29
  1775. #define   _IQsqrt(A)  _IQ29sqrt(A)
  1776. #endif
  1777. #if GLOBAL_Q == 28
  1778. #define   _IQsqrt(A)  _IQ28sqrt(A)
  1779. #endif
  1780. #if GLOBAL_Q == 27
  1781. #define   _IQsqrt(A)  _IQ27sqrt(A)
  1782. #endif
  1783. #if GLOBAL_Q == 26
  1784. #define   _IQsqrt(A)  _IQ26sqrt(A)
  1785. #endif
  1786. #if GLOBAL_Q == 25
  1787. #define   _IQsqrt(A)  _IQ25sqrt(A)
  1788. #endif
  1789. #if GLOBAL_Q == 24
  1790. #define   _IQsqrt(A)  _IQ24sqrt(A)
  1791. #endif
  1792. #if GLOBAL_Q == 23
  1793. #define   _IQsqrt(A)  _IQ23sqrt(A)
  1794. #endif
  1795. #if GLOBAL_Q == 22
  1796. #define   _IQsqrt(A)  _IQ22sqrt(A)
  1797. #endif
  1798. #if GLOBAL_Q == 21
  1799. #define   _IQsqrt(A)  _IQ21sqrt(A)
  1800. #endif
  1801. #if GLOBAL_Q == 20
  1802. #define   _IQsqrt(A)  _IQ20sqrt(A)
  1803. #endif
  1804. #if GLOBAL_Q == 19
  1805. #define   _IQsqrt(A)  _IQ19sqrt(A)
  1806. #endif
  1807. #if GLOBAL_Q == 18
  1808. #define   _IQsqrt(A)  _IQ18sqrt(A)
  1809. #endif
  1810. #if GLOBAL_Q == 17
  1811. #define   _IQsqrt(A)  _IQ17sqrt(A)
  1812. #endif
  1813. #if GLOBAL_Q == 16
  1814. #define   _IQsqrt(A)  _IQ16sqrt(A)
  1815. #endif
  1816. #if GLOBAL_Q == 15
  1817. #define   _IQsqrt(A)  _IQ15sqrt(A)
  1818. #endif
  1819. #if GLOBAL_Q == 14
  1820. #define   _IQsqrt(A)  _IQ14sqrt(A)
  1821. #endif
  1822. #if GLOBAL_Q == 13
  1823. #define   _IQsqrt(A)  _IQ13sqrt(A)
  1824. #endif
  1825. #if GLOBAL_Q == 12
  1826. #define   _IQsqrt(A)  _IQ12sqrt(A)
  1827. #endif
  1828. #if GLOBAL_Q == 11
  1829. #define   _IQsqrt(A)  _IQ11sqrt(A)
  1830. #endif
  1831. #if GLOBAL_Q == 10
  1832. #define   _IQsqrt(A)  _IQ10sqrt(A)
  1833. #endif
  1834. #if GLOBAL_Q == 9
  1835. #define   _IQsqrt(A)  _IQ9sqrt(A)
  1836. #endif
  1837. #if GLOBAL_Q == 8
  1838. #define   _IQsqrt(A)  _IQ8sqrt(A)
  1839. #endif
  1840. #if GLOBAL_Q == 7
  1841. #define   _IQsqrt(A)  _IQ7sqrt(A)
  1842. #endif
  1843. #if GLOBAL_Q == 6
  1844. #define   _IQsqrt(A)  _IQ6sqrt(A)
  1845. #endif
  1846. #if GLOBAL_Q == 5
  1847. #define   _IQsqrt(A)  _IQ5sqrt(A)
  1848. #endif
  1849. #if GLOBAL_Q == 4
  1850. #define   _IQsqrt(A)  _IQ4sqrt(A)
  1851. #endif
  1852. #if GLOBAL_Q == 3
  1853. #define   _IQsqrt(A)  _IQ3sqrt(A)
  1854. #endif
  1855. #if GLOBAL_Q == 2
  1856. #define   _IQsqrt(A)  _IQ2sqrt(A)
  1857. #endif
  1858. #if GLOBAL_Q == 1
  1859. #define   _IQsqrt(A)  _IQ1sqrt(A)
  1860. #endif
  1861. //---------------------------------------------------------------------------
  1862. extern    long _IQ30isqrt(long A);
  1863. extern    long _IQ29isqrt(long A);
  1864. extern    long _IQ28isqrt(long A);
  1865. extern    long _IQ27isqrt(long A);
  1866. extern    long _IQ26isqrt(long A);
  1867. extern    long _IQ25isqrt(long A);
  1868. extern    long _IQ24isqrt(long A);
  1869. extern    long _IQ23isqrt(long A);
  1870. extern    long _IQ22isqrt(long A);
  1871. extern    long _IQ21isqrt(long A);
  1872. extern    long _IQ20isqrt(long A);
  1873. extern    long _IQ19isqrt(long A);
  1874. extern    long _IQ18isqrt(long A);
  1875. extern    long _IQ17isqrt(long A);
  1876. extern    long _IQ16isqrt(long A);
  1877. extern    long _IQ15isqrt(long A);
  1878. extern    long _IQ14isqrt(long A);
  1879. extern    long _IQ13isqrt(long A);
  1880. extern    long _IQ12isqrt(long A);
  1881. extern    long _IQ11isqrt(long A);
  1882. extern    long _IQ10isqrt(long A);
  1883. extern    long _IQ9isqrt(long A);
  1884. extern    long _IQ8isqrt(long A);
  1885. extern    long _IQ7isqrt(long A);
  1886. extern    long _IQ6isqrt(long A);
  1887. extern    long _IQ5isqrt(long A);
  1888. extern    long _IQ4isqrt(long A);
  1889. extern    long _IQ3isqrt(long A);
  1890. extern    long _IQ2isqrt(long A);
  1891. extern    long _IQ1isqrt(long A);
  1893. #if GLOBAL_Q == 30
  1894. #define   _IQisqrt(A)  _IQ30isqrt(A)
  1895. #endif
  1896. #if GLOBAL_Q == 29
  1897. #define   _IQisqrt(A)  _IQ29isqrt(A)
  1898. #endif
  1899. #if GLOBAL_Q == 28
  1900. #define   _IQisqrt(A)  _IQ28isqrt(A)
  1901. #endif
  1902. #if GLOBAL_Q == 27
  1903. #define   _IQisqrt(A)  _IQ27isqrt(A)
  1904. #endif
  1905. #if GLOBAL_Q == 26
  1906. #define   _IQisqrt(A)  _IQ26isqrt(A)
  1907. #endif
  1908. #if GLOBAL_Q == 25
  1909. #define   _IQisqrt(A)  _IQ25isqrt(A)
  1910. #endif
  1911. #if GLOBAL_Q == 24
  1912. #define   _IQisqrt(A)  _IQ24isqrt(A)
  1913. #endif
  1914. #if GLOBAL_Q == 23
  1915. #define   _IQisqrt(A)  _IQ23isqrt(A)
  1916. #endif
  1917. #if GLOBAL_Q == 22
  1918. #define   _IQisqrt(A)  _IQ22isqrt(A)
  1919. #endif
  1920. #if GLOBAL_Q == 21
  1921. #define   _IQisqrt(A)  _IQ21isqrt(A)
  1922. #endif
  1923. #if GLOBAL_Q == 20
  1924. #define   _IQisqrt(A)  _IQ20isqrt(A)
  1925. #endif
  1926. #if GLOBAL_Q == 19
  1927. #define   _IQisqrt(A)  _IQ19isqrt(A)
  1928. #endif
  1929. #if GLOBAL_Q == 18
  1930. #define   _IQisqrt(A)  _IQ18isqrt(A)
  1931. #endif
  1932. #if GLOBAL_Q == 17
  1933. #define   _IQisqrt(A)  _IQ17isqrt(A)
  1934. #endif
  1935. #if GLOBAL_Q == 16
  1936. #define   _IQisqrt(A)  _IQ16isqrt(A)
  1937. #endif
  1938. #if GLOBAL_Q == 15
  1939. #define   _IQisqrt(A)  _IQ15isqrt(A)
  1940. #endif
  1941. #if GLOBAL_Q == 14
  1942. #define   _IQisqrt(A)  _IQ14isqrt(A)
  1943. #endif
  1944. #if GLOBAL_Q == 13
  1945. #define   _IQisqrt(A)  _IQ13isqrt(A)
  1946. #endif
  1947. #if GLOBAL_Q == 12
  1948. #define   _IQisqrt(A)  _IQ12isqrt(A)
  1949. #endif
  1950. #if GLOBAL_Q == 11
  1951. #define   _IQisqrt(A)  _IQ11isqrt(A)
  1952. #endif
  1953. #if GLOBAL_Q == 10
  1954. #define   _IQisqrt(A)  _IQ10isqrt(A)
  1955. #endif
  1956. #if GLOBAL_Q == 9
  1957. #define   _IQisqrt(A)  _IQ9isqrt(A)
  1958. #endif
  1959. #if GLOBAL_Q == 8
  1960. #define   _IQisqrt(A)  _IQ8isqrt(A)
  1961. #endif
  1962. #if GLOBAL_Q == 7
  1963. #define   _IQisqrt(A)  _IQ7isqrt(A)
  1964. #endif
  1965. #if GLOBAL_Q == 6
  1966. #define   _IQisqrt(A)  _IQ6isqrt(A)
  1967. #endif
  1968. #if GLOBAL_Q == 5
  1969. #define   _IQisqrt(A)  _IQ5isqrt(A)
  1970. #endif
  1971. #if GLOBAL_Q == 4
  1972. #define   _IQisqrt(A)  _IQ4isqrt(A)
  1973. #endif
  1974. #if GLOBAL_Q == 3
  1975. #define   _IQisqrt(A)  _IQ3isqrt(A)
  1976. #endif
  1977. #if GLOBAL_Q == 2
  1978. #define   _IQisqrt(A)  _IQ2isqrt(A)
  1979. #endif
  1980. #if GLOBAL_Q == 1
  1981. #define   _IQisqrt(A)  _IQ1isqrt(A)
  1982. #endif
  1983. //---------------------------------------------------------------------------
  1984. extern    long _IQ30int(long A);
  1985. extern    long _IQ29int(long A);
  1986. extern    long _IQ28int(long A);
  1987. extern    long _IQ27int(long A);
  1988. extern    long _IQ26int(long A);
  1989. extern    long _IQ25int(long A);
  1990. extern    long _IQ24int(long A);
  1991. extern    long _IQ23int(long A);
  1992. extern    long _IQ22int(long A);
  1993. extern    long _IQ21int(long A);
  1994. extern    long _IQ20int(long A);
  1995. extern    long _IQ19int(long A);
  1996. extern    long _IQ18int(long A);
  1997. extern    long _IQ17int(long A);
  1998. extern    long _IQ16int(long A);
  1999. extern    long _IQ15int(long A);
  2000. extern    long _IQ14int(long A);
  2001. extern    long _IQ13int(long A);
  2002. extern    long _IQ12int(long A);
  2003. extern    long _IQ11int(long A);
  2004. extern    long _IQ10int(long A);
  2005. extern    long _IQ9int(long A);
  2006. extern    long _IQ8int(long A);
  2007. extern    long _IQ7int(long A);
  2008. extern    long _IQ6int(long A);
  2009. extern    long _IQ5int(long A);
  2010. extern    long _IQ4int(long A);
  2011. extern    long _IQ3int(long A);
  2012. extern    long _IQ2int(long A);
  2013. extern    long _IQ1int(long A);
  2015. #if GLOBAL_Q == 30
  2016. #define   _IQint(A)  _IQ30int(A)
  2017. #endif
  2018. #if GLOBAL_Q == 29
  2019. #define   _IQint(A)  _IQ29int(A)
  2020. #endif
  2021. #if GLOBAL_Q == 28
  2022. #define   _IQint(A)  _IQ28int(A)
  2023. #endif
  2024. #if GLOBAL_Q == 27
  2025. #define   _IQint(A)  _IQ27int(A)
  2026. #endif
  2027. #if GLOBAL_Q == 26
  2028. #define   _IQint(A)  _IQ26int(A)
  2029. #endif
  2030. #if GLOBAL_Q == 25
  2031. #define   _IQint(A)  _IQ25int(A)
  2032. #endif
  2033. #if GLOBAL_Q == 24
  2034. #define   _IQint(A)  _IQ24int(A)
  2035. #endif
  2036. #if GLOBAL_Q == 23
  2037. #define   _IQint(A)  _IQ23int(A)
  2038. #endif
  2039. #if GLOBAL_Q == 22
  2040. #define   _IQint(A)  _IQ22int(A)
  2041. #endif
  2042. #if GLOBAL_Q == 21
  2043. #define   _IQint(A)  _IQ21int(A)
  2044. #endif
  2045. #if GLOBAL_Q == 20
  2046. #define   _IQint(A)  _IQ20int(A)
  2047. #endif
  2048. #if GLOBAL_Q == 19
  2049. #define   _IQint(A)  _IQ19int(A)
  2050. #endif
  2051. #if GLOBAL_Q == 18
  2052. #define   _IQint(A)  _IQ18int(A)
  2053. #endif
  2054. #if GLOBAL_Q == 17
  2055. #define   _IQint(A)  _IQ17int(A)
  2056. #endif
  2057. #if GLOBAL_Q == 16
  2058. #define   _IQint(A)  _IQ16int(A)
  2059. #endif
  2060. #if GLOBAL_Q == 15
  2061. #define   _IQint(A)  _IQ15int(A)
  2062. #endif
  2063. #if GLOBAL_Q == 14
  2064. #define   _IQint(A)  _IQ14int(A)
  2065. #endif
  2066. #if GLOBAL_Q == 13
  2067. #define   _IQint(A)  _IQ13int(A)
  2068. #endif
  2069. #if GLOBAL_Q == 12
  2070. #define   _IQint(A)  _IQ12int(A)
  2071. #endif
  2072. #if GLOBAL_Q == 11
  2073. #define   _IQint(A)  _IQ11int(A)
  2074. #endif
  2075. #if GLOBAL_Q == 10
  2076. #define   _IQint(A)  _IQ10int(A)
  2077. #endif
  2078. #if GLOBAL_Q == 9
  2079. #define   _IQint(A)  _IQ9int(A)
  2080. #endif
  2081. #if GLOBAL_Q == 8
  2082. #define   _IQint(A)  _IQ8int(A)
  2083. #endif
  2084. #if GLOBAL_Q == 7
  2085. #define   _IQint(A)  _IQ7int(A)
  2086. #endif
  2087. #if GLOBAL_Q == 6
  2088. #define   _IQint(A)  _IQ6int(A)
  2089. #endif
  2090. #if GLOBAL_Q == 5
  2091. #define   _IQint(A)  _IQ5int(A)
  2092. #endif
  2093. #if GLOBAL_Q == 4
  2094. #define   _IQint(A)  _IQ4int(A)
  2095. #endif
  2096. #if GLOBAL_Q == 3
  2097. #define   _IQint(A)  _IQ3int(A)
  2098. #endif
  2099. #if GLOBAL_Q == 2
  2100. #define   _IQint(A)  _IQ2int(A)
  2101. #endif
  2102. #if GLOBAL_Q == 1
  2103. #define   _IQint(A)  _IQ1int(A)
  2104. #endif
  2105. //---------------------------------------------------------------------------
  2106. extern    long _IQ30frac(long A);
  2107. extern    long _IQ29frac(long A);
  2108. extern    long _IQ28frac(long A);
  2109. extern    long _IQ27frac(long A);
  2110. extern    long _IQ26frac(long A);
  2111. extern    long _IQ25frac(long A);
  2112. extern    long _IQ24frac(long A);
  2113. extern    long _IQ23frac(long A);
  2114. extern    long _IQ22frac(long A);
  2115. extern    long _IQ21frac(long A);
  2116. extern    long _IQ20frac(long A);
  2117. extern    long _IQ19frac(long A);
  2118. extern    long _IQ18frac(long A);
  2119. extern    long _IQ17frac(long A);
  2120. extern    long _IQ16frac(long A);
  2121. extern    long _IQ15frac(long A);
  2122. extern    long _IQ14frac(long A);
  2123. extern    long _IQ13frac(long A);
  2124. extern    long _IQ12frac(long A);
  2125. extern    long _IQ11frac(long A);
  2126. extern    long _IQ10frac(long A);
  2127. extern    long _IQ9frac(long A);
  2128. extern    long _IQ8frac(long A);
  2129. extern    long _IQ7frac(long A);
  2130. extern    long _IQ6frac(long A);
  2131. extern    long _IQ5frac(long A);
  2132. extern    long _IQ4frac(long A);
  2133. extern    long _IQ3frac(long A);
  2134. extern    long _IQ2frac(long A);
  2135. extern    long _IQ1frac(long A);
  2137. #if GLOBAL_Q == 30
  2138. #define   _IQfrac(A)  _IQ30frac(A)
  2139. #endif
  2140. #if GLOBAL_Q == 29
  2141. #define   _IQfrac(A)  _IQ29frac(A)
  2142. #endif
  2143. #if GLOBAL_Q == 28
  2144. #define   _IQfrac(A)  _IQ28frac(A)
  2145. #endif
  2146. #if GLOBAL_Q == 27
  2147. #define   _IQfrac(A)  _IQ27frac(A)
  2148. #endif
  2149. #if GLOBAL_Q == 26
  2150. #define   _IQfrac(A)  _IQ26frac(A)
  2151. #endif
  2152. #if GLOBAL_Q == 25
  2153. #define   _IQfrac(A)  _IQ25frac(A)
  2154. #endif
  2155. #if GLOBAL_Q == 24
  2156. #define   _IQfrac(A)  _IQ24frac(A)
  2157. #endif
  2158. #if GLOBAL_Q == 23
  2159. #define   _IQfrac(A)  _IQ23frac(A)
  2160. #endif
  2161. #if GLOBAL_Q == 22
  2162. #define   _IQfrac(A)  _IQ22frac(A)
  2163. #endif
  2164. #if GLOBAL_Q == 21
  2165. #define   _IQfrac(A)  _IQ21frac(A)
  2166. #endif
  2167. #if GLOBAL_Q == 20
  2168. #define   _IQfrac(A)  _IQ20frac(A)
  2169. #endif
  2170. #if GLOBAL_Q == 19
  2171. #define   _IQfrac(A)  _IQ19frac(A)
  2172. #endif
  2173. #if GLOBAL_Q == 18
  2174. #define   _IQfrac(A)  _IQ18frac(A)
  2175. #endif
  2176. #if GLOBAL_Q == 17
  2177. #define   _IQfrac(A)  _IQ17frac(A)
  2178. #endif
  2179. #if GLOBAL_Q == 16
  2180. #define   _IQfrac(A)  _IQ16frac(A)
  2181. #endif
  2182. #if GLOBAL_Q == 15
  2183. #define   _IQfrac(A)  _IQ15frac(A)
  2184. #endif
  2185. #if GLOBAL_Q == 14
  2186. #define   _IQfrac(A)  _IQ14frac(A)
  2187. #endif
  2188. #if GLOBAL_Q == 13
  2189. #define   _IQfrac(A)  _IQ13frac(A)
  2190. #endif
  2191. #if GLOBAL_Q == 12
  2192. #define   _IQfrac(A)  _IQ12frac(A)
  2193. #endif
  2194. #if GLOBAL_Q == 11
  2195. #define   _IQfrac(A)  _IQ11frac(A)
  2196. #endif
  2197. #if GLOBAL_Q == 10
  2198. #define   _IQfrac(A)  _IQ10frac(A)
  2199. #endif
  2200. #if GLOBAL_Q == 9
  2201. #define   _IQfrac(A)  _IQ9frac(A)
  2202. #endif
  2203. #if GLOBAL_Q == 8
  2204. #define   _IQfrac(A)  _IQ8frac(A)
  2205. #endif
  2206. #if GLOBAL_Q == 7
  2207. #define   _IQfrac(A)  _IQ7frac(A)
  2208. #endif
  2209. #if GLOBAL_Q == 6
  2210. #define   _IQfrac(A)  _IQ6frac(A)
  2211. #endif
  2212. #if GLOBAL_Q == 5
  2213. #define   _IQfrac(A)  _IQ5frac(A)
  2214. #endif
  2215. #if GLOBAL_Q == 4
  2216. #define   _IQfrac(A)  _IQ4frac(A)
  2217. #endif
  2218. #if GLOBAL_Q == 3
  2219. #define   _IQfrac(A)  _IQ3frac(A)
  2220. #endif
  2221. #if GLOBAL_Q == 2
  2222. #define   _IQfrac(A)  _IQ2frac(A)
  2223. #endif
  2224. #if GLOBAL_Q == 1
  2225. #define   _IQfrac(A)  _IQ1frac(A)
  2226. #endif
  2227. //---------------------------------------------------------------------------
  2228. #define   _IQmpyIQX(A, IQA, B, IQB)    __IQxmpy(A, B, (GLOBAL_Q + 32 - IQA - IQB))
  2229. #define   _IQ30mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (30 + 32 - IQA - IQB))
  2230. #define   _IQ29mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (29 + 32 - IQA - IQB))
  2231. #define   _IQ28mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (28 + 32 - IQA - IQB))
  2232. #define   _IQ27mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (27 + 32 - IQA - IQB))
  2233. #define   _IQ26mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (26 + 32 - IQA - IQB))
  2234. #define   _IQ25mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (25 + 32 - IQA - IQB))
  2235. #define   _IQ24mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (24 + 32 - IQA - IQB))
  2236. #define   _IQ23mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (23 + 32 - IQA - IQB))
  2237. #define   _IQ22mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (22 + 32 - IQA - IQB))
  2238. #define   _IQ21mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (21 + 32 - IQA - IQB))
  2239. #define   _IQ20mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (20 + 32 - IQA - IQB))
  2240. #define   _IQ19mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (19 + 32 - IQA - IQB))
  2241. #define   _IQ18mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (18 + 32 - IQA - IQB))
  2242. #define   _IQ17mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (17 + 32 - IQA - IQB))
  2243. #define   _IQ16mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (16 + 32 - IQA - IQB))
  2244. #define   _IQ15mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (15 + 32 - IQA - IQB))
  2245. #define   _IQ14mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (14 + 32 - IQA - IQB))
  2246. #define   _IQ13mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (13 + 32 - IQA - IQB))
  2247. #define   _IQ12mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (12 + 32 - IQA - IQB))
  2248. #define   _IQ11mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (11 + 32 - IQA - IQB))
  2249. #define   _IQ10mpyIQX(A, IQA, B, IQB)  __IQxmpy(A, B, (10 + 32 - IQA - IQB))
  2250. #define   _IQ9mpyIQX(A, IQA, B, IQB)   __IQxmpy(A, B, (9 + 32 - IQA - IQB))
  2251. #define   _IQ8mpyIQX(A, IQA, B, IQB)   __IQxmpy(A, B, (8 + 32 - IQA - IQB))
  2252. #define   _IQ7mpyIQX(A, IQA, B, IQB)   __IQxmpy(A, B, (7 + 32 - IQA - IQB))
  2253. #define   _IQ6mpyIQX(A, IQA, B, IQB)   __IQxmpy(A, B, (6 + 32 - IQA - IQB))
  2254. #define   _IQ5mpyIQX(A, IQA, B, IQB)   __IQxmpy(A, B, (5 + 32 - IQA - IQB))
  2255. #define   _IQ4mpyIQX(A, IQA, B, IQB)   __IQxmpy(A, B, (4 + 32 - IQA - IQB))
  2256. #define   _IQ3mpyIQX(A, IQA, B, IQB)   __IQxmpy(A, B, (3 + 32 - IQA - IQB))
  2257. #define   _IQ2mpyIQX(A, IQA, B, IQB)   __IQxmpy(A, B, (2 + 32 - IQA - IQB))
  2258. #define   _IQ1mpyIQX(A, IQA, B, IQB)   __IQxmpy(A, B, (1 + 32 - IQA - IQB))
  2259. //---------------------------------------------------------------------------
  2260. #define   _IQmpyI32(A,B)    ((A)*(B))
  2261. #define   _IQ30mpyI32(A,B)  ((A)*(B))
  2262. #define   _IQ29mpyI32(A,B)  ((A)*(B))
  2263. #define   _IQ28mpyI32(A,B)  ((A)*(B))
  2264. #define   _IQ27mpyI32(A,B)  ((A)*(B))
  2265. #define   _IQ26mpyI32(A,B)  ((A)*(B))
  2266. #define   _IQ25mpyI32(A,B)  ((A)*(B))
  2267. #define   _IQ24mpyI32(A,B)  ((A)*(B))
  2268. #define   _IQ23mpyI32(A,B)  ((A)*(B))
  2269. #define   _IQ22mpyI32(A,B)  ((A)*(B))
  2270. #define   _IQ21mpyI32(A,B)  ((A)*(B))
  2271. #define   _IQ20mpyI32(A,B)  ((A)*(B))
  2272. #define   _IQ19mpyI32(A,B)  ((A)*(B))
  2273. #define   _IQ18mpyI32(A,B)  ((A)*(B))
  2274. #define   _IQ17mpyI32(A,B)  ((A)*(B))
  2275. #define   _IQ16mpyI32(A,B)  ((A)*(B))
  2276. #define   _IQ15mpyI32(A,B)  ((A)*(B))
  2277. #define   _IQ14mpyI32(A,B)  ((A)*(B))
  2278. #define   _IQ13mpyI32(A,B)  ((A)*(B))
  2279. #define   _IQ12mpyI32(A,B)  ((A)*(B))
  2280. #define   _IQ11mpyI32(A,B)  ((A)*(B))
  2281. #define   _IQ10mpyI32(A,B)  ((A)*(B))
  2282. #define   _IQ9mpyI32(A,B)   ((A)*(B))
  2283. #define   _IQ8mpyI32(A,B)   ((A)*(B))
  2284. #define   _IQ7mpyI32(A,B)   ((A)*(B))
  2285. #define   _IQ6mpyI32(A,B)   ((A)*(B))
  2286. #define   _IQ5mpyI32(A,B)   ((A)*(B))
  2287. #define   _IQ4mpyI32(A,B)   ((A)*(B))
  2288. #define   _IQ3mpyI32(A,B)   ((A)*(B))
  2289. #define   _IQ2mpyI32(A,B)   ((A)*(B))
  2290. #define   _IQ1mpyI32(A,B)   ((A)*(B))
  2291. //---------------------------------------------------------------------------
  2292. extern    long _IQ30mpyI32int(long A, long B);
  2293. extern    long _IQ29mpyI32int(long A, long B);
  2294. extern    long _IQ28mpyI32int(long A, long B);
  2295. extern    long _IQ27mpyI32int(long A, long B);
  2296. extern    long _IQ26mpyI32int(long A, long B);
  2297. extern    long _IQ25mpyI32int(long A, long B);
  2298. extern    long _IQ24mpyI32int(long A, long B);
  2299. extern    long _IQ23mpyI32int(long A, long B);
  2300. extern    long _IQ22mpyI32int(long A, long B);
  2301. extern    long _IQ21mpyI32int(long A, long B);
  2302. extern    long _IQ20mpyI32int(long A, long B);
  2303. extern    long _IQ19mpyI32int(long A, long B);
  2304. extern    long _IQ18mpyI32int(long A, long B);
  2305. extern    long _IQ17mpyI32int(long A, long B);
  2306. extern    long _IQ16mpyI32int(long A, long B);
  2307. extern    long _IQ15mpyI32int(long A, long B);
  2308. extern    long _IQ14mpyI32int(long A, long B);
  2309. extern    long _IQ13mpyI32int(long A, long B);
  2310. extern    long _IQ12mpyI32int(long A, long B);
  2311. extern    long _IQ11mpyI32int(long A, long B);
  2312. extern    long _IQ10mpyI32int(long A, long B);
  2313. extern    long _IQ9mpyI32int(long A, long B);
  2314. extern    long _IQ8mpyI32int(long A, long B);
  2315. extern    long _IQ7mpyI32int(long A, long B);
  2316. extern    long _IQ6mpyI32int(long A, long B);
  2317. extern    long _IQ5mpyI32int(long A, long B);
  2318. extern    long _IQ4mpyI32int(long A, long B);
  2319. extern    long _IQ3mpyI32int(long A, long B);
  2320. extern    long _IQ2mpyI32int(long A, long B);
  2321. extern    long _IQ1mpyI32int(long A, long B);
  2323. #if GLOBAL_Q == 30
  2324. #define   _IQmpyI32int(A, B)  _IQ30mpyI32int(A, B)
  2325. #endif
  2326. #if GLOBAL_Q == 29
  2327. #define   _IQmpyI32int(A, B)  _IQ29mpyI32int(A, B)
  2328. #endif
  2329. #if GLOBAL_Q == 28
  2330. #define   _IQmpyI32int(A, B)  _IQ28mpyI32int(A, B)
  2331. #endif
  2332. #if GLOBAL_Q == 27
  2333. #define   _IQmpyI32int(A, B)  _IQ27mpyI32int(A, B)
  2334. #endif
  2335. #if GLOBAL_Q == 26
  2336. #define   _IQmpyI32int(A, B)  _IQ26mpyI32int(A, B)
  2337. #endif
  2338. #if GLOBAL_Q == 25
  2339. #define   _IQmpyI32int(A, B)  _IQ25mpyI32int(A, B)
  2340. #endif
  2341. #if GLOBAL_Q == 24
  2342. #define   _IQmpyI32int(A, B)  _IQ24mpyI32int(A, B)
  2343. #endif
  2344. #if GLOBAL_Q == 23
  2345. #define   _IQmpyI32int(A, B)  _IQ23mpyI32int(A, B)
  2346. #endif
  2347. #if GLOBAL_Q == 22
  2348. #define   _IQmpyI32int(A, B)  _IQ22mpyI32int(A, B)
  2349. #endif
  2350. #if GLOBAL_Q == 21
  2351. #define   _IQmpyI32int(A, B)  _IQ21mpyI32int(A, B)
  2352. #endif
  2353. #if GLOBAL_Q == 20
  2354. #define   _IQmpyI32int(A, B)  _IQ20mpyI32int(A, B)
  2355. #endif
  2356. #if GLOBAL_Q == 19
  2357. #define   _IQmpyI32int(A, B)  _IQ19mpyI32int(A, B)
  2358. #endif
  2359. #if GLOBAL_Q == 18
  2360. #define   _IQmpyI32int(A, B)  _IQ18mpyI32int(A, B)
  2361. #endif
  2362. #if GLOBAL_Q == 17
  2363. #define   _IQmpyI32int(A, B)  _IQ17mpyI32int(A, B)
  2364. #endif
  2365. #if GLOBAL_Q == 16
  2366. #define   _IQmpyI32int(A, B)  _IQ16mpyI32int(A, B)
  2367. #endif
  2368. #if GLOBAL_Q == 15
  2369. #define   _IQmpyI32int(A, B)  _IQ15mpyI32int(A, B)
  2370. #endif
  2371. #if GLOBAL_Q == 14
  2372. #define   _IQmpyI32int(A, B)  _IQ14mpyI32int(A, B)
  2373. #endif
  2374. #if GLOBAL_Q == 13
  2375. #define   _IQmpyI32int(A, B)  _IQ13mpyI32int(A, B)
  2376. #endif
  2377. #if GLOBAL_Q == 12
  2378. #define   _IQmpyI32int(A, B)  _IQ12mpyI32int(A, B)
  2379. #endif
  2380. #if GLOBAL_Q == 11
  2381. #define   _IQmpyI32int(A, B)  _IQ11mpyI32int(A, B)
  2382. #endif
  2383. #if GLOBAL_Q == 10
  2384. #define   _IQmpyI32int(A, B)  _IQ10mpyI32int(A, B)
  2385. #endif
  2386. #if GLOBAL_Q == 9
  2387. #define   _IQmpyI32int(A, B)  _IQ9mpyI32int(A, B)
  2388. #endif
  2389. #if GLOBAL_Q == 8
  2390. #define   _IQmpyI32int(A, B)  _IQ8mpyI32int(A, B)
  2391. #endif
  2392. #if GLOBAL_Q == 7
  2393. #define   _IQmpyI32int(A, B)  _IQ7mpyI32int(A, B)
  2394. #endif
  2395. #if GLOBAL_Q == 6
  2396. #define   _IQmpyI32int(A, B)  _IQ6mpyI32int(A, B)
  2397. #endif
  2398. #if GLOBAL_Q == 5
  2399. #define   _IQmpyI32int(A, B)  _IQ5mpyI32int(A, B)
  2400. #endif
  2401. #if GLOBAL_Q == 4
  2402. #define   _IQmpyI32int(A, B)  _IQ4mpyI32int(A, B)
  2403. #endif
  2404. #if GLOBAL_Q == 3
  2405. #define   _IQmpyI32int(A, B)  _IQ3mpyI32int(A, B)
  2406. #endif
  2407. #if GLOBAL_Q == 2
  2408. #define   _IQmpyI32int(A, B)  _IQ2mpyI32int(A, B)
  2409. #endif
  2410. #if GLOBAL_Q == 1
  2411. #define   _IQmpyI32int(A, B)  _IQ1mpyI32int(A, B)
  2412. #endif
  2413. //---------------------------------------------------------------------------
  2414. extern    long _IQ30mpyI32frac(long A, long B);
  2415. extern    long _IQ29mpyI32frac(long A, long B);
  2416. extern    long _IQ28mpyI32frac(long A, long B);
  2417. extern    long _IQ27mpyI32frac(long A, long B);
  2418. extern    long _IQ26mpyI32frac(long A, long B);
  2419. extern    long _IQ25mpyI32frac(long A, long B);
  2420. extern    long _IQ24mpyI32frac(long A, long B);
  2421. extern    long _IQ23mpyI32frac(long A, long B);
  2422. extern    long _IQ22mpyI32frac(long A, long B);
  2423. extern    long _IQ21mpyI32frac(long A, long B);
  2424. extern    long _IQ20mpyI32frac(long A, long B);
  2425. extern    long _IQ19mpyI32frac(long A, long B);
  2426. extern    long _IQ18mpyI32frac(long A, long B);
  2427. extern    long _IQ17mpyI32frac(long A, long B);
  2428. extern    long _IQ16mpyI32frac(long A, long B);
  2429. extern    long _IQ15mpyI32frac(long A, long B);
  2430. extern    long _IQ14mpyI32frac(long A, long B);
  2431. extern    long _IQ13mpyI32frac(long A, long B);
  2432. extern    long _IQ12mpyI32frac(long A, long B);
  2433. extern    long _IQ11mpyI32frac(long A, long B);
  2434. extern    long _IQ10mpyI32frac(long A, long B);
  2435. extern    long _IQ9mpyI32frac(long A, long B);
  2436. extern    long _IQ8mpyI32frac(long A, long B);
  2437. extern    long _IQ7mpyI32frac(long A, long B);
  2438. extern    long _IQ6mpyI32frac(long A, long B);
  2439. extern    long _IQ5mpyI32frac(long A, long B);
  2440. extern    long _IQ4mpyI32frac(long A, long B);
  2441. extern    long _IQ3mpyI32frac(long A, long B);
  2442. extern    long _IQ2mpyI32frac(long A, long B);
  2443. extern    long _IQ1mpyI32frac(long A, long B);
  2445. #if GLOBAL_Q == 30
  2446. #define   _IQmpyI32frac(A, B)  _IQ30mpyI32frac(A, B)
  2447. #endif
  2448. #if GLOBAL_Q == 29
  2449. #define   _IQmpyI32frac(A, B)  _IQ29mpyI32frac(A, B)
  2450. #endif
  2451. #if GLOBAL_Q == 28
  2452. #define   _IQmpyI32frac(A, B)  _IQ28mpyI32frac(A, B)
  2453. #endif
  2454. #if GLOBAL_Q == 27
  2455. #define   _IQmpyI32frac(A, B)  _IQ27mpyI32frac(A, B)
  2456. #endif
  2457. #if GLOBAL_Q == 26
  2458. #define   _IQmpyI32frac(A, B)  _IQ26mpyI32frac(A, B)
  2459. #endif
  2460. #if GLOBAL_Q == 25
  2461. #define   _IQmpyI32frac(A, B)  _IQ25mpyI32frac(A, B)
  2462. #endif
  2463. #if GLOBAL_Q == 24
  2464. #define   _IQmpyI32frac(A, B)  _IQ24mpyI32frac(A, B)
  2465. #endif
  2466. #if GLOBAL_Q == 23
  2467. #define   _IQmpyI32frac(A, B)  _IQ23mpyI32frac(A, B)
  2468. #endif
  2469. #if GLOBAL_Q == 22
  2470. #define   _IQmpyI32frac(A, B)  _IQ22mpyI32frac(A, B)
  2471. #endif
  2472. #if GLOBAL_Q == 21
  2473. #define   _IQmpyI32frac(A, B)  _IQ21mpyI32frac(A, B)
  2474. #endif
  2475. #if GLOBAL_Q == 20
  2476. #define   _IQmpyI32frac(A, B)  _IQ20mpyI32frac(A, B)
  2477. #endif
  2478. #if GLOBAL_Q == 19
  2479. #define   _IQmpyI32frac(A, B)  _IQ19mpyI32frac(A, B)
  2480. #endif
  2481. #if GLOBAL_Q == 18
  2482. #define   _IQmpyI32frac(A, B)  _IQ18mpyI32frac(A, B)
  2483. #endif
  2484. #if GLOBAL_Q == 17
  2485. #define   _IQmpyI32frac(A, B)  _IQ17mpyI32frac(A, B)
  2486. #endif
  2487. #if GLOBAL_Q == 16
  2488. #define   _IQmpyI32frac(A, B)  _IQ16mpyI32frac(A, B)
  2489. #endif
  2490. #if GLOBAL_Q == 15
  2491. #define   _IQmpyI32frac(A, B)  _IQ15mpyI32frac(A, B)
  2492. #endif
  2493. #if GLOBAL_Q == 14
  2494. #define   _IQmpyI32frac(A, B)  _IQ14mpyI32frac(A, B)
  2495. #endif
  2496. #if GLOBAL_Q == 13
  2497. #define   _IQmpyI32frac(A, B)  _IQ13mpyI32frac(A, B)
  2498. #endif
  2499. #if GLOBAL_Q == 12
  2500. #define   _IQmpyI32frac(A, B)  _IQ12mpyI32frac(A, B)
  2501. #endif
  2502. #if GLOBAL_Q == 11
  2503. #define   _IQmpyI32frac(A, B)  _IQ11mpyI32frac(A, B)
  2504. #endif
  2505. #if GLOBAL_Q == 10
  2506. #define   _IQmpyI32frac(A, B)  _IQ10mpyI32frac(A, B)
  2507. #endif
  2508. #if GLOBAL_Q == 9
  2509. #define   _IQmpyI32frac(A, B)  _IQ9mpyI32frac(A, B)
  2510. #endif
  2511. #if GLOBAL_Q == 8
  2512. #define   _IQmpyI32frac(A, B)  _IQ8mpyI32frac(A, B)
  2513. #endif
  2514. #if GLOBAL_Q == 7
  2515. #define   _IQmpyI32frac(A, B)  _IQ7mpyI32frac(A, B)
  2516. #endif
  2517. #if GLOBAL_Q == 6
  2518. #define   _IQmpyI32frac(A, B)  _IQ6mpyI32frac(A, B)
  2519. #endif
  2520. #if GLOBAL_Q == 5
  2521. #define   _IQmpyI32frac(A, B)  _IQ5mpyI32frac(A, B)
  2522. #endif
  2523. #if GLOBAL_Q == 4
  2524. #define   _IQmpyI32frac(A, B)  _IQ4mpyI32frac(A, B)
  2525. #endif
  2526. #if GLOBAL_Q == 3
  2527. #define   _IQmpyI32frac(A, B)  _IQ3mpyI32frac(A, B)
  2528. #endif
  2529. #if GLOBAL_Q == 2
  2530. #define   _IQmpyI32frac(A, B)  _IQ2mpyI32frac(A, B)
  2531. #endif
  2532. #if GLOBAL_Q == 1
  2533. #define   _IQmpyI32frac(A, B)  _IQ1mpyI32frac(A, B)
  2534. #endif
  2535. //---------------------------------------------------------------------------
  2536. extern    long _IQ30mag(long A, long B);
  2537. extern    long _IQ29mag(long A, long B);
  2538. extern    long _IQ28mag(long A, long B);
  2539. extern    long _IQ27mag(long A, long B);
  2540. extern    long _IQ26mag(long A, long B);
  2541. extern    long _IQ25mag(long A, long B);
  2542. extern    long _IQ24mag(long A, long B);
  2543. extern    long _IQ23mag(long A, long B);
  2544. extern    long _IQ22mag(long A, long B);
  2545. extern    long _IQ21mag(long A, long B);
  2546. extern    long _IQ20mag(long A, long B);
  2547. extern    long _IQ19mag(long A, long B);
  2548. extern    long _IQ18mag(long A, long B);
  2549. extern    long _IQ17mag(long A, long B);
  2550. extern    long _IQ16mag(long A, long B);
  2551. extern    long _IQ15mag(long A, long B);
  2552. extern    long _IQ14mag(long A, long B);
  2553. extern    long _IQ13mag(long A, long B);
  2554. extern    long _IQ12mag(long A, long B);
  2555. extern    long _IQ11mag(long A, long B);
  2556. extern    long _IQ10mag(long A, long B);
  2557. extern    long _IQ9mag(long A, long B);
  2558. extern    long _IQ8mag(long A, long B);
  2559. extern    long _IQ7mag(long A, long B);
  2560. extern    long _IQ6mag(long A, long B);
  2561. extern    long _IQ5mag(long A, long B);
  2562. extern    long _IQ4mag(long A, long B);
  2563. extern    long _IQ3mag(long A, long B);
  2564. extern    long _IQ2mag(long A, long B);
  2565. extern    long _IQ1mag(long A, long B);
  2567. #if GLOBAL_Q == 30
  2568. #define   _IQmag(A, B)  _IQ30mag(A, B)
  2569. #endif
  2570. #if GLOBAL_Q == 29
  2571. #define   _IQmag(A, B)  _IQ29mag(A, B)
  2572. #endif
  2573. #if GLOBAL_Q == 28
  2574. #define   _IQmag(A, B)  _IQ28mag(A, B)
  2575. #endif
  2576. #if GLOBAL_Q == 27
  2577. #define   _IQmag(A, B)  _IQ27mag(A, B)
  2578. #endif
  2579. #if GLOBAL_Q == 26
  2580. #define   _IQmag(A, B)  _IQ26mag(A, B)
  2581. #endif
  2582. #if GLOBAL_Q == 25
  2583. #define   _IQmag(A, B)  _IQ25mag(A, B)
  2584. #endif
  2585. #if GLOBAL_Q == 24
  2586. #define   _IQmag(A, B)  _IQ24mag(A, B)
  2587. #endif
  2588. #if GLOBAL_Q == 23
  2589. #define   _IQmag(A, B)  _IQ23mag(A, B)
  2590. #endif
  2591. #if GLOBAL_Q == 22
  2592. #define   _IQmag(A, B)  _IQ22mag(A, B)
  2593. #endif
  2594. #if GLOBAL_Q == 21
  2595. #define   _IQmag(A, B)  _IQ21mag(A, B)
  2596. #endif
  2597. #if GLOBAL_Q == 20
  2598. #define   _IQmag(A, B)  _IQ20mag(A, B)
  2599. #endif
  2600. #if GLOBAL_Q == 19
  2601. #define   _IQmag(A, B)  _IQ19mag(A, B)
  2602. #endif
  2603. #if GLOBAL_Q == 18
  2604. #define   _IQmag(A, B)  _IQ18mag(A, B)
  2605. #endif
  2606. #if GLOBAL_Q == 17
  2607. #define   _IQmag(A, B)  _IQ17mag(A, B)
  2608. #endif
  2609. #if GLOBAL_Q == 16
  2610. #define   _IQmag(A, B)  _IQ16mag(A, B)
  2611. #endif
  2612. #if GLOBAL_Q == 15
  2613. #define   _IQmag(A, B)  _IQ15mag(A, B)
  2614. #endif
  2615. #if GLOBAL_Q == 14
  2616. #define   _IQmag(A, B)  _IQ14mag(A, B)
  2617. #endif
  2618. #if GLOBAL_Q == 13
  2619. #define   _IQmag(A, B)  _IQ13mag(A, B)
  2620. #endif
  2621. #if GLOBAL_Q == 12
  2622. #define   _IQmag(A, B)  _IQ12mag(A, B)
  2623. #endif
  2624. #if GLOBAL_Q == 11
  2625. #define   _IQmag(A, B)  _IQ11mag(A, B)
  2626. #endif
  2627. #if GLOBAL_Q == 10
  2628. #define   _IQmag(A, B)  _IQ10mag(A, B)
  2629. #endif
  2630. #if GLOBAL_Q == 9
  2631. #define   _IQmag(A, B)  _IQ9mag(A, B)
  2632. #endif
  2633. #if GLOBAL_Q == 8
  2634. #define   _IQmag(A, B)  _IQ8mag(A, B)
  2635. #endif
  2636. #if GLOBAL_Q == 7
  2637. #define   _IQmag(A, B)  _IQ7mag(A, B)
  2638. #endif
  2639. #if GLOBAL_Q == 6
  2640. #define   _IQmag(A, B)  _IQ6mag(A, B)
  2641. #endif
  2642. #if GLOBAL_Q == 5
  2643. #define   _IQmag(A, B)  _IQ5mag(A, B)
  2644. #endif
  2645. #if GLOBAL_Q == 4
  2646. #define   _IQmag(A, B)  _IQ4mag(A, B)
  2647. #endif
  2648. #if GLOBAL_Q == 3
  2649. #define   _IQmag(A, B)  _IQ3mag(A, B)
  2650. #endif
  2651. #if GLOBAL_Q == 2
  2652. #define   _IQmag(A, B)  _IQ2mag(A, B)
  2653. #endif
  2654. #if GLOBAL_Q == 1
  2655. #define   _IQmag(A, B)  _IQ1mag(A, B)
  2656. #endif
  2657. //---------------------------------------------------------------------------
  2658. extern    long _atoIQN(const char *A, long q_value);
  2659. #define   _atoIQ(A)    _atoIQN(A, GLOBAL_Q)
  2660. #define   _atoIQ30(A)  _atoIQN(A, 30)
  2661. #define   _atoIQ29(A)  _atoIQN(A, 29)
  2662. #define   _atoIQ28(A)  _atoIQN(A, 28)
  2663. #define   _atoIQ27(A)  _atoIQN(A, 27)
  2664. #define   _atoIQ26(A)  _atoIQN(A, 26)
  2665. #define   _atoIQ25(A)  _atoIQN(A, 25)
  2666. #define   _atoIQ24(A)  _atoIQN(A, 24)
  2667. #define   _atoIQ23(A)  _atoIQN(A, 23)
  2668. #define   _atoIQ22(A)  _atoIQN(A, 22)
  2669. #define   _atoIQ21(A)  _atoIQN(A, 21)
  2670. #define   _atoIQ20(A)  _atoIQN(A, 20)
  2671. #define   _atoIQ19(A)  _atoIQN(A, 19)
  2672. #define   _atoIQ18(A)  _atoIQN(A, 18)
  2673. #define   _atoIQ17(A)  _atoIQN(A, 17)
  2674. #define   _atoIQ16(A)  _atoIQN(A, 16)
  2675. #define   _atoIQ15(A)  _atoIQN(A, 15)
  2676. #define   _atoIQ14(A)  _atoIQN(A, 14)
  2677. #define   _atoIQ13(A)  _atoIQN(A, 13)
  2678. #define   _atoIQ12(A)  _atoIQN(A, 12)
  2679. #define   _atoIQ11(A)  _atoIQN(A, 11)
  2680. #define   _atoIQ10(A)  _atoIQN(A, 10)
  2681. #define   _atoIQ9(A)   _atoIQN(A, 9)
  2682. #define   _atoIQ8(A)   _atoIQN(A, 8)
  2683. #define   _atoIQ7(A)   _atoIQN(A, 7)
  2684. #define   _atoIQ6(A)   _atoIQN(A, 6)
  2685. #define   _atoIQ5(A)   _atoIQN(A, 5)
  2686. #define   _atoIQ4(A)   _atoIQN(A, 4)
  2687. #define   _atoIQ3(A)   _atoIQN(A, 3)
  2688. #define   _atoIQ2(A)   _atoIQN(A, 2)
  2689. #define   _atoIQ1(A)   _atoIQN(A, 1)
  2690. //---------------------------------------------------------------------------
  2691. #define   _IQabs(A)    labs(A)
  2692. #define   _IQ30abs(A)  labs(A)
  2693. #define   _IQ29abs(A)  labs(A)
  2694. #define   _IQ28abs(A)  labs(A)
  2695. #define   _IQ27abs(A)  labs(A)
  2696. #define   _IQ26abs(A)  labs(A)
  2697. #define   _IQ25abs(A)  labs(A)
  2698. #define   _IQ24abs(A)  labs(A)
  2699. #define   _IQ23abs(A)  labs(A)
  2700. #define   _IQ22abs(A)  labs(A)
  2701. #define   _IQ21abs(A)  labs(A)
  2702. #define   _IQ20abs(A)  labs(A)
  2703. #define   _IQ19abs(A)  labs(A)
  2704. #define   _IQ18abs(A)  labs(A)
  2705. #define   _IQ17abs(A)  labs(A)
  2706. #define   _IQ16abs(A)  labs(A)
  2707. #define   _IQ15abs(A)  labs(A)
  2708. #define   _IQ14abs(A)  labs(A)
  2709. #define   _IQ13abs(A)  labs(A)
  2710. #define   _IQ12abs(A)  labs(A)
  2711. #define   _IQ11abs(A)  labs(A)
  2712. #define   _IQ10abs(A)  labs(A)
  2713. #define   _IQ9abs(A)   labs(A)
  2714. #define   _IQ8abs(A)   labs(A)
  2715. #define   _IQ7abs(A)   labs(A)
  2716. #define   _IQ6abs(A)   labs(A)
  2717. #define   _IQ5abs(A)   labs(A)
  2718. #define   _IQ4abs(A)   labs(A)
  2719. #define   _IQ3abs(A)   labs(A)
  2720. #define   _IQ2abs(A)   labs(A)
  2721. #define   _IQ1abs(A)   labs(A)
  2722. //###########################################################################
  2723. #else   // MATH_TYPE == FLOAT_MATH
  2724. //###########################################################################
  2725. // If FLOAT_MATH is used, the IQmath library function are replaced by
  2726. // equivalent floating point operations:
  2727. //===========================================================================
  2728. typedef   float   _iq;
  2729. typedef   float   _iq30;
  2730. typedef   float   _iq29;
  2731. typedef   float   _iq28;
  2732. typedef   float   _iq27;
  2733. typedef   float   _iq26;
  2734. typedef   float   _iq25;
  2735. typedef   float   _iq24;
  2736. typedef   float   _iq23;
  2737. typedef   float   _iq22;
  2738. typedef   float   _iq21;
  2739. typedef   float   _iq20;
  2740. typedef   float   _iq19;
  2741. typedef   float   _iq18;
  2742. typedef   float   _iq17;
  2743. typedef   float   _iq16;
  2744. typedef   float   _iq15;
  2745. typedef   float   _iq14;
  2746. typedef   float   _iq13;
  2747. typedef   float   _iq12;
  2748. typedef   float   _iq11;
  2749. typedef   float   _iq10;
  2750. typedef   float   _iq9;
  2751. typedef   float   _iq8;
  2752. typedef   float   _iq7;
  2753. typedef   float   _iq6;
  2754. typedef   float   _iq5;
  2755. typedef   float   _iq4;
  2756. typedef   float   _iq3;
  2757. typedef   float   _iq2;
  2758. typedef   float   _iq1;
  2759. //---------------------------------------------------------------------------
  2760. #define   _IQ(A)         (A)
  2761. #define   _IQ30(A)       (A)
  2762. #define   _IQ29(A)       (A)
  2763. #define   _IQ28(A)       (A)
  2764. #define   _IQ27(A)       (A)
  2765. #define   _IQ26(A)       (A)
  2766. #define   _IQ25(A)       (A)
  2767. #define   _IQ24(A)       (A)
  2768. #define   _IQ23(A)       (A)
  2769. #define   _IQ22(A)       (A)
  2770. #define   _IQ21(A)       (A)
  2771. #define   _IQ20(A)       (A)
  2772. #define   _IQ19(A)       (A)
  2773. #define   _IQ18(A)       (A)
  2774. #define   _IQ17(A)       (A)
  2775. #define   _IQ16(A)       (A)
  2776. #define   _IQ15(A)       (A)
  2777. #define   _IQ14(A)       (A)
  2778. #define   _IQ13(A)       (A)
  2779. #define   _IQ12(A)       (A)
  2780. #define   _IQ10(A)       (A)
  2781. #define   _IQ9(A)        (A)
  2782. #define   _IQ8(A)        (A)
  2783. #define   _IQ7(A)        (A)
  2784. #define   _IQ6(A)        (A)
  2785. #define   _IQ5(A)        (A)
  2786. #define   _IQ4(A)        (A)
  2787. #define   _IQ3(A)        (A)
  2788. #define   _IQ2(A)        (A)
  2789. #define   _IQ1(A)        (A)
  2790. //---------------------------------------------------------------------------
  2791. #define   _IQtoF(A)      (A)
  2792. #define   _IQ30toF(A)    (A)
  2793. #define   _IQ29toF(A)    (A)
  2794. #define   _IQ28toF(A)    (A)
  2795. #define   _IQ27toF(A)    (A)
  2796. #define   _IQ26toF(A)    (A)
  2797. #define   _IQ25toF(A)    (A)
  2798. #define   _IQ24toF(A)    (A)
  2799. #define   _IQ23toF(A)    (A)
  2800. #define   _IQ22toF(A)    (A)
  2801. #define   _IQ21toF(A)    (A)
  2802. #define   _IQ20toF(A)    (A)
  2803. #define   _IQ19toF(A)    (A)
  2804. #define   _IQ18toF(A)    (A)
  2805. #define   _IQ17toF(A)    (A)
  2806. #define   _IQ16toF(A)    (A)
  2807. #define   _IQ15toF(A)    (A)
  2808. #define   _IQ14toF(A)    (A)
  2809. #define   _IQ13toF(A)    (A)
  2810. #define   _IQ12toF(A)    (A)
  2811. #define   _IQ11toF(A)    (A)
  2812. #define   _IQ10toF(A)    (A)
  2813. #define   _IQ9toF(A)     (A)
  2814. #define   _IQ8toF(A)     (A)
  2815. #define   _IQ7toF(A)     (A)
  2816. #define   _IQ6toF(A)     (A)
  2817. #define   _IQ5toF(A)     (A)
  2818. #define   _IQ4toF(A)     (A)
  2819. #define   _IQ3toF(A)     (A)
  2820. #define   _IQ2toF(A)     (A)
  2821. #define   _IQ1toF(A)     (A)
  2822. //---------------------------------------------------------------------------
  2823. extern  float _satf(float A, float Pos, float Neg);
  2824. #define   _IQsat(A, Pos, Neg)    _satf(A, Pos, Neg)
  2825. //---------------------------------------------------------------------------
  2826. #define   _IQtoIQ30(A)   (A)
  2827. #define   _IQtoIQ29(A)   (A)
  2828. #define   _IQtoIQ28(A)   (A)
  2829. #define   _IQtoIQ27(A)   (A)
  2830. #define   _IQtoIQ26(A)   (A)
  2831. #define   _IQtoIQ25(A)   (A)
  2832. #define   _IQtoIQ24(A)   (A)
  2833. #define   _IQtoIQ23(A)   (A)
  2834. #define   _IQtoIQ22(A)   (A)
  2835. #define   _IQtoIQ21(A)   (A)
  2836. #define   _IQtoIQ20(A)   (A)
  2837. #define   _IQtoIQ19(A)   (A)
  2838. #define   _IQtoIQ18(A)   (A)
  2839. #define   _IQtoIQ17(A)   (A)
  2840. #define   _IQtoIQ16(A)   (A)
  2841. #define   _IQtoIQ15(A)   (A)
  2842. #define   _IQtoIQ14(A)   (A)
  2843. #define   _IQtoIQ13(A)   (A)
  2844. #define   _IQtoIQ12(A)   (A)
  2845. #define   _IQtoIQ11(A)   (A)
  2846. #define   _IQtoIQ10(A)   (A)
  2847. #define   _IQtoIQ9(A)    (A)
  2848. #define   _IQtoIQ8(A)    (A)
  2849. #define   _IQtoIQ7(A)    (A)
  2850. #define   _IQtoIQ6(A)    (A)
  2851. #define   _IQtoIQ5(A)    (A)
  2852. #define   _IQtoIQ4(A)    (A)
  2853. #define   _IQtoIQ3(A)    (A)
  2854. #define   _IQtoIQ2(A)    (A)
  2855. #define   _IQtoIQ1(A)    (A)
  2856. //---------------------------------------------------------------------------
  2857. #define   _IQ30toIQ(A)   (A)
  2858. #define   _IQ29toIQ(A)   (A)
  2859. #define   _IQ28toIQ(A)   (A)
  2860. #define   _IQ27toIQ(A)   (A)
  2861. #define   _IQ26toIQ(A)   (A)
  2862. #define   _IQ25toIQ(A)   (A)
  2863. #define   _IQ24toIQ(A)   (A)
  2864. #define   _IQ23toIQ(A)   (A)
  2865. #define   _IQ22toIQ(A)   (A)
  2866. #define   _IQ21toIQ(A)   (A)
  2867. #define   _IQ20toIQ(A)   (A)
  2868. #define   _IQ19toIQ(A)   (A)
  2869. #define   _IQ18toIQ(A)   (A)
  2870. #define   _IQ17toIQ(A)   (A)
  2871. #define   _IQ16toIQ(A)   (A)
  2872. #define   _IQ15toIQ(A)   (A)
  2873. #define   _IQ14toIQ(A)   (A)
  2874. #define   _IQ13toIQ(A)   (A)
  2875. #define   _IQ12toIQ(A)   (A)
  2876. #define   _IQ11toIQ(A)   (A)
  2877. #define   _IQ10toIQ(A)   (A)
  2878. #define   _IQ9toIQ(A)    (A)
  2879. #define   _IQ8toIQ(A)    (A)
  2880. #define   _IQ7toIQ(A)    (A)
  2881. #define   _IQ6toIQ(A)    (A)
  2882. #define   _IQ5toIQ(A)    (A)
  2883. #define   _IQ4toIQ(A)    (A)
  2884. #define   _IQ3toIQ(A)    (A)
  2885. #define   _IQ2toIQ(A)    (A)
  2886. #define   _IQ1toIQ(A)    (A)
  2887. //---------------------------------------------------------------------------
  2888. #define   _IQtoQ15(A)    (short) ((long)((A) * 32768.0L))
  2889. #define   _IQtoQ14(A)    (short) ((long)((A) * 16384.0L))
  2890. #define   _IQtoQ13(A)    (short) ((long)((A) * 8192.0L))
  2891. #define   _IQtoQ12(A)    (short) ((long)((A) * 4096.0L))
  2892. #define   _IQtoQ11(A)    (short) ((long)((A) * 2048.0L))
  2893. #define   _IQtoQ10(A)    (short) ((long)((A) * 1024.0L))
  2894. #define   _IQtoQ9(A)     (short) ((long)((A) * 512.0L))
  2895. #define   _IQtoQ8(A)     (short) ((long)((A) * 256.0L))
  2896. #define   _IQtoQ7(A)     (short) ((long)((A) * 128.0L))
  2897. #define   _IQtoQ6(A)     (short) ((long)((A) * 64.0L))
  2898. #define   _IQtoQ5(A)     (short) ((long)((A) * 32.0L))
  2899. #define   _IQtoQ4(A)     (short) ((long)((A) * 16.0L))
  2900. #define   _IQtoQ3(A)     (short) ((long)((A) * 8.0L))
  2901. #define   _IQtoQ2(A)     (short) ((long)((A) * 4.0L))
  2902. #define   _IQtoQ1(A)     (short) ((long)((A) * 2.0L))
  2904. //---------------------------------------------------------------------------
  2905. #define   _Q15toIQ(A)    (((float) (A)) * 0.000030518)
  2906. #define   _Q14toIQ(A)    (((float) (A)) * 0.000061035)
  2907. #define   _Q13toIQ(A)    (((float) (A)) * 0.000122070)
  2908. #define   _Q12toIQ(A)    (((float) (A)) * 0.000244141)
  2909. #define   _Q11toIQ(A)    (((float) (A)) * 0.000488281)
  2910. #define   _Q10toIQ(A)    (((float) (A)) * 0.000976563)
  2911. #define   _Q9toIQ(A)     (((float) (A)) * 0.001953125)
  2912. #define   _Q8toIQ(A)     (((float) (A)) * 0.003906250)
  2913. #define   _Q7toIQ(A)     (((float) (A)) * 0.007812500)
  2914. #define   _Q6toIQ(A)     (((float) (A)) * 0.015625000)
  2915. #define   _Q5toIQ(A)     (((float) (A)) * 0.031250000)
  2916. #define   _Q4toIQ(A)     (((float) (A)) * 0.062500000)
  2917. #define   _Q3toIQ(A)     (((float) (A)) * 0.125000000)
  2918. #define   _Q2toIQ(A)     (((float) (A)) * 0.250000000)
  2919. #define   _Q1toIQ(A)     (((float) (A)) * 0.500000000)
  2920. //---------------------------------------------------------------------------
  2921. #define   _IQmpy(A,B)         ((A) * (B))
  2922. #define   _IQ30mpy(A,B)       ((A) * (B))
  2923. #define   _IQ29mpy(A,B)       ((A) * (B))
  2924. #define   _IQ28mpy(A,B)       ((A) * (B))
  2925. #define   _IQ27mpy(A,B)       ((A) * (B))
  2926. #define   _IQ26mpy(A,B)       ((A) * (B))
  2927. #define   _IQ25mpy(A,B)       ((A) * (B))
  2928. #define   _IQ24mpy(A,B)       ((A) * (B))
  2929. #define   _IQ23mpy(A,B)       ((A) * (B))
  2930. #define   _IQ22mpy(A,B)       ((A) * (B))
  2931. #define   _IQ21mpy(A,B)       ((A) * (B))
  2932. #define   _IQ20mpy(A,B)       ((A) * (B))
  2933. #define   _IQ19mpy(A,B)       ((A) * (B))
  2934. #define   _IQ18mpy(A,B)       ((A) * (B))
  2935. #define   _IQ17mpy(A,B)       ((A) * (B))
  2936. #define   _IQ16mpy(A,B)       ((A) * (B))
  2937. #define   _IQ15mpy(A,B)       ((A) * (B))
  2938. #define   _IQ14mpy(A,B)       ((A) * (B))
  2939. #define   _IQ13mpy(A,B)       ((A) * (B))
  2940. #define   _IQ12mpy(A,B)       ((A) * (B))
  2941. #define   _IQ11mpy(A,B)       ((A) * (B))
  2942. #define   _IQ10mpy(A,B)       ((A) * (B))
  2943. #define   _IQ9mpy(A,B)        ((A) * (B))
  2944. #define   _IQ8mpy(A,B)        ((A) * (B))
  2945. #define   _IQ7mpy(A,B)        ((A) * (B))
  2946. #define   _IQ6mpy(A,B)        ((A) * (B))
  2947. #define   _IQ5mpy(A,B)        ((A) * (B))
  2948. #define   _IQ4mpy(A,B)        ((A) * (B))
  2949. #define   _IQ3mpy(A,B)        ((A) * (B))
  2950. #define   _IQ2mpy(A,B)        ((A) * (B))
  2951. #define   _IQ1mpy(A,B)        ((A) * (B))
  2952. //---------------------------------------------------------------------------
  2953. #define   _IQrmpy(A,B)        ((A) * (B))
  2954. #define   _IQ30rmpy(A,B)      ((A) * (B))
  2955. #define   _IQ29rmpy(A,B)      ((A) * (B))
  2956. #define   _IQ28rmpy(A,B)      ((A) * (B))
  2957. #define   _IQ27rmpy(A,B)      ((A) * (B))
  2958. #define   _IQ26rmpy(A,B)      ((A) * (B))
  2959. #define   _IQ25rmpy(A,B)      ((A) * (B))
  2960. #define   _IQ24rmpy(A,B)      ((A) * (B))
  2961. #define   _IQ23rmpy(A,B)      ((A) * (B))
  2962. #define   _IQ22rmpy(A,B)      ((A) * (B))
  2963. #define   _IQ21rmpy(A,B)      ((A) * (B))
  2964. #define   _IQ20rmpy(A,B)      ((A) * (B))
  2965. #define   _IQ19rmpy(A,B)      ((A) * (B))
  2966. #define   _IQ18rmpy(A,B)      ((A) * (B))
  2967. #define   _IQ17rmpy(A,B)      ((A) * (B))
  2968. #define   _IQ16rmpy(A,B)      ((A) * (B))
  2969. #define   _IQ15rmpy(A,B)      ((A) * (B))
  2970. #define   _IQ14rmpy(A,B)      ((A) * (B))
  2971. #define   _IQ13rmpy(A,B)      ((A) * (B))
  2972. #define   _IQ12rmpy(A,B)      ((A) * (B))
  2973. #define   _IQ11rmpy(A,B)      ((A) * (B))
  2974. #define   _IQ10rmpy(A,B)      ((A) * (B))
  2975. #define   _IQ9rmpy(A,B)       ((A) * (B))
  2976. #define   _IQ8rmpy(A,B)       ((A) * (B))
  2977. #define   _IQ7rmpy(A,B)       ((A) * (B))
  2978. #define   _IQ6rmpy(A,B)       ((A) * (B))
  2979. #define   _IQ5rmpy(A,B)       ((A) * (B))
  2980. #define   _IQ4rmpy(A,B)       ((A) * (B))
  2981. #define   _IQ3rmpy(A,B)       ((A) * (B))
  2982. #define   _IQ2rmpy(A,B)       ((A) * (B))
  2983. #define   _IQ1rmpy(A,B)       ((A) * (B))
  2984. //---------------------------------------------------------------------------
  2985. #define   _IQrsmpy(A,B)       ((A) * (B))
  2986. #define   _IQ30rsmpy(A,B)     ((A) * (B))
  2987. #define   _IQ29rsmpy(A,B)     ((A) * (B))
  2988. #define   _IQ28rsmpy(A,B)     ((A) * (B))
  2989. #define   _IQ27rsmpy(A,B)     ((A) * (B))
  2990. #define   _IQ26rsmpy(A,B)     ((A) * (B))
  2991. #define   _IQ25rsmpy(A,B)     ((A) * (B))
  2992. #define   _IQ24rsmpy(A,B)     ((A) * (B))
  2993. #define   _IQ23rsmpy(A,B)     ((A) * (B))
  2994. #define   _IQ22rsmpy(A,B)     ((A) * (B))
  2995. #define   _IQ21rsmpy(A,B)     ((A) * (B))
  2996. #define   _IQ20rsmpy(A,B)     ((A) * (B))
  2997. #define   _IQ19rsmpy(A,B)     ((A) * (B))
  2998. #define   _IQ18rsmpy(A,B)     ((A) * (B))
  2999. #define   _IQ17rsmpy(A,B)     ((A) * (B))
  3000. #define   _IQ16rsmpy(A,B)     ((A) * (B))
  3001. #define   _IQ15rsmpy(A,B)     ((A) * (B))
  3002. #define   _IQ14rsmpy(A,B)     ((A) * (B))
  3003. #define   _IQ13rsmpy(A,B)     ((A) * (B))
  3004. #define   _IQ12rsmpy(A,B)     ((A) * (B))
  3005. #define   _IQ11rsmpy(A,B)     ((A) * (B))
  3006. #define   _IQ10rsmpy(A,B)     ((A) * (B))
  3007. #define   _IQ9rsmpy(A,B)      ((A) * (B))
  3008. #define   _IQ8rsmpy(A,B)      ((A) * (B))
  3009. #define   _IQ7rsmpy(A,B)      ((A) * (B))
  3010. #define   _IQ6rsmpy(A,B)      ((A) * (B))
  3011. #define   _IQ5rsmpy(A,B)      ((A) * (B))
  3012. #define   _IQ4rsmpy(A,B)      ((A) * (B))
  3013. #define   _IQ3rsmpy(A,B)      ((A) * (B))
  3014. #define   _IQ2rsmpy(A,B)      ((A) * (B))
  3015. #define   _IQ1rsmpy(A,B)      ((A) * (B))
  3016. //---------------------------------------------------------------------------
  3017. #define   _IQdiv(A,B)         ((A) / (B))
  3018. #define   _IQ30div(A,B)       ((A) / (B))
  3019. #define   _IQ29div(A,B)       ((A) / (B))
  3020. #define   _IQ28div(A,B)       ((A) / (B))
  3021. #define   _IQ27div(A,B)       ((A) / (B))
  3022. #define   _IQ26div(A,B)       ((A) / (B))
  3023. #define   _IQ25div(A,B)       ((A) / (B))
  3024. #define   _IQ24div(A,B)       ((A) / (B))
  3025. #define   _IQ23div(A,B)       ((A) / (B))
  3026. #define   _IQ22div(A,B)       ((A) / (B))
  3027. #define   _IQ21div(A,B)       ((A) / (B))
  3028. #define   _IQ20div(A,B)       ((A) / (B))
  3029. #define   _IQ19div(A,B)       ((A) / (B))
  3030. #define   _IQ18div(A,B)       ((A) / (B))
  3031. #define   _IQ17div(A,B)       ((A) / (B))
  3032. #define   _IQ16div(A,B)       ((A) / (B))
  3033. #define   _IQ15div(A,B)       ((A) / (B))
  3034. #define   _IQ14div(A,B)       ((A) / (B))
  3035. #define   _IQ13div(A,B)       ((A) / (B))
  3036. #define   _IQ12div(A,B)       ((A) / (B))
  3037. #define   _IQ11div(A,B)       ((A) / (B))
  3038. #define   _IQ10div(A,B)       ((A) / (B))
  3039. #define   _IQ9div(A,B)        ((A) / (B))
  3040. #define   _IQ8div(A,B)        ((A) / (B))
  3041. #define   _IQ7div(A,B)        ((A) / (B))
  3042. #define   _IQ6div(A,B)        ((A) / (B))
  3043. #define   _IQ5div(A,B)        ((A) / (B))
  3044. #define   _IQ4div(A,B)        ((A) / (B))
  3045. #define   _IQ3div(A,B)        ((A) / (B))
  3046. #define   _IQ2div(A,B)        ((A) / (B))
  3047. #define   _IQ1div(A,B)        ((A) / (B))
  3048. //---------------------------------------------------------------------------
  3049. #define   _IQsin(A)           sin(A)
  3050. #define   _IQ30sin(A)         sin(A)
  3051. #define   _IQ29sin(A)         sin(A)
  3052. #define   _IQ28sin(A)         sin(A)
  3053. #define   _IQ27sin(A)         sin(A)
  3054. #define   _IQ26sin(A)         sin(A)
  3055. #define   _IQ25sin(A)         sin(A)
  3056. #define   _IQ24sin(A)         sin(A)
  3057. #define   _IQ23sin(A)         sin(A)
  3058. #define   _IQ22sin(A)         sin(A)
  3059. #define   _IQ21sin(A)         sin(A)
  3060. #define   _IQ20sin(A)         sin(A)
  3061. #define   _IQ19sin(A)         sin(A)
  3062. #define   _IQ18sin(A)         sin(A)
  3063. #define   _IQ17sin(A)         sin(A)
  3064. #define   _IQ16sin(A)         sin(A)
  3065. #define   _IQ15sin(A)         sin(A)
  3066. #define   _IQ14sin(A)         sin(A)
  3067. #define   _IQ13sin(A)         sin(A)
  3068. #define   _IQ12sin(A)         sin(A)
  3069. #define   _IQ11sin(A)         sin(A)
  3070. #define   _IQ10sin(A)         sin(A)
  3071. #define   _IQ9sin(A)          sin(A)
  3072. #define   _IQ8sin(A)          sin(A)
  3073. #define   _IQ7sin(A)          sin(A)
  3074. #define   _IQ6sin(A)          sin(A)
  3075. #define   _IQ5sin(A)          sin(A)
  3076. #define   _IQ4sin(A)          sin(A)
  3077. #define   _IQ3sin(A)          sin(A)
  3078. #define   _IQ2sin(A)          sin(A)
  3079. #define   _IQ1sin(A)          sin(A)
  3080. //---------------------------------------------------------------------------
  3081. #define   _IQsinPU(A)         sin((A)*6.283185307)
  3082. #define   _IQ30sinPU(A)       sin((A)*6.283185307)
  3083. #define   _IQ29sinPU(A)       sin((A)*6.283185307)
  3084. #define   _IQ28sinPU(A)       sin((A)*6.283185307)
  3085. #define   _IQ27sinPU(A)       sin((A)*6.283185307)
  3086. #define   _IQ26sinPU(A)       sin((A)*6.283185307)
  3087. #define   _IQ25sinPU(A)       sin((A)*6.283185307)
  3088. #define   _IQ24sinPU(A)       sin((A)*6.283185307)
  3089. #define   _IQ23sinPU(A)       sin((A)*6.283185307)
  3090. #define   _IQ22sinPU(A)       sin((A)*6.283185307)
  3091. #define   _IQ21sinPU(A)       sin((A)*6.283185307)
  3092. #define   _IQ20sinPU(A)       sin((A)*6.283185307)
  3093. #define   _IQ19sinPU(A)       sin((A)*6.283185307)
  3094. #define   _IQ18sinPU(A)       sin((A)*6.283185307)
  3095. #define   _IQ17sinPU(A)       sin((A)*6.283185307)
  3096. #define   _IQ16sinPU(A)       sin((A)*6.283185307)
  3097. #define   _IQ15sinPU(A)       sin((A)*6.283185307)
  3098. #define   _IQ14sinPU(A)       sin((A)*6.283185307)
  3099. #define   _IQ13sinPU(A)       sin((A)*6.283185307)
  3100. #define   _IQ12sinPU(A)       sin((A)*6.283185307)
  3101. #define   _IQ11sinPU(A)       sin((A)*6.283185307)
  3102. #define   _IQ10sinPU(A)       sin((A)*6.283185307)
  3103. #define   _IQ9sinPU(A)        sin((A)*6.283185307)
  3104. #define   _IQ8sinPU(A)        sin((A)*6.283185307)
  3105. #define   _IQ7sinPU(A)        sin((A)*6.283185307)
  3106. #define   _IQ6sinPU(A)        sin((A)*6.283185307)
  3107. #define   _IQ5sinPU(A)        sin((A)*6.283185307)
  3108. #define   _IQ4sinPU(A)        sin((A)*6.283185307)
  3109. #define   _IQ3sinPU(A)        sin((A)*6.283185307)
  3110. #define   _IQ2sinPU(A)        sin((A)*6.283185307)
  3111. #define   _IQ1sinPU(A)        sin((A)*6.283185307)
  3112. //---------------------------------------------------------------------------
  3113. #define   _IQcos(A)           cos(A)
  3114. #define   _IQ30cos(A)         cos(A)
  3115. #define   _IQ29cos(A)         cos(A)
  3116. #define   _IQ28cos(A)         cos(A)
  3117. #define   _IQ27cos(A)         cos(A)
  3118. #define   _IQ26cos(A)         cos(A)
  3119. #define   _IQ25cos(A)         cos(A)
  3120. #define   _IQ24cos(A)         cos(A)
  3121. #define   _IQ23cos(A)         cos(A)
  3122. #define   _IQ22cos(A)         cos(A)
  3123. #define   _IQ21cos(A)         cos(A)
  3124. #define   _IQ20cos(A)         cos(A)
  3125. #define   _IQ19cos(A)         cos(A)
  3126. #define   _IQ18cos(A)         cos(A)
  3127. #define   _IQ17cos(A)         cos(A)
  3128. #define   _IQ16cos(A)         cos(A)
  3129. #define   _IQ15cos(A)         cos(A)
  3130. #define   _IQ14cos(A)         cos(A)
  3131. #define   _IQ13cos(A)         cos(A)
  3132. #define   _IQ12cos(A)         cos(A)
  3133. #define   _IQ11cos(A)         cos(A)
  3134. #define   _IQ10cos(A)         cos(A)
  3135. #define   _IQ9cos(A)          cos(A)
  3136. #define   _IQ8cos(A)          cos(A)
  3137. #define   _IQ7cos(A)          cos(A)
  3138. #define   _IQ6cos(A)          cos(A)
  3139. #define   _IQ5cos(A)          cos(A)
  3140. #define   _IQ4cos(A)          cos(A)
  3141. #define   _IQ3cos(A)          cos(A)
  3142. #define   _IQ2cos(A)          cos(A)
  3143. #define   _IQ1cos(A)          cos(A)
  3144. //---------------------------------------------------------------------------
  3145. #define   _IQcosPU(A)         cos((A)*6.283185307)
  3146. #define   _IQ30cosPU(A)       cos((A)*6.283185307)
  3147. #define   _IQ29cosPU(A)       cos((A)*6.283185307)
  3148. #define   _IQ28cosPU(A)       cos((A)*6.283185307)
  3149. #define   _IQ27cosPU(A)       cos((A)*6.283185307)
  3150. #define   _IQ26cosPU(A)       cos((A)*6.283185307)
  3151. #define   _IQ25cosPU(A)       cos((A)*6.283185307)
  3152. #define   _IQ24cosPU(A)       cos((A)*6.283185307)
  3153. #define   _IQ23cosPU(A)       cos((A)*6.283185307)
  3154. #define   _IQ22cosPU(A)       cos((A)*6.283185307)
  3155. #define   _IQ21cosPU(A)       cos((A)*6.283185307)
  3156. #define   _IQ20cosPU(A)       cos((A)*6.283185307)
  3157. #define   _IQ19cosPU(A)       cos((A)*6.283185307)
  3158. #define   _IQ18cosPU(A)       cos((A)*6.283185307)
  3159. #define   _IQ17cosPU(A)       cos((A)*6.283185307)
  3160. #define   _IQ16cosPU(A)       cos((A)*6.283185307)
  3161. #define   _IQ15cosPU(A)       cos((A)*6.283185307)
  3162. #define   _IQ14cosPU(A)       cos((A)*6.283185307)
  3163. #define   _IQ13cosPU(A)       cos((A)*6.283185307)
  3164. #define   _IQ12cosPU(A)       cos((A)*6.283185307)
  3165. #define   _IQ11cosPU(A)       cos((A)*6.283185307)
  3166. #define   _IQ10cosPU(A)       cos((A)*6.283185307)
  3167. #define   _IQ9cosPU(A)        cos((A)*6.283185307)
  3168. #define   _IQ8cosPU(A)        cos((A)*6.283185307)
  3169. #define   _IQ7cosPU(A)        cos((A)*6.283185307)
  3170. #define   _IQ6cosPU(A)        cos((A)*6.283185307)
  3171. #define   _IQ5cosPU(A)        cos((A)*6.283185307)
  3172. #define   _IQ4cosPU(A)        cos((A)*6.283185307)
  3173. #define   _IQ3cosPU(A)        cos((A)*6.283185307)
  3174. #define   _IQ2cosPU(A)        cos((A)*6.283185307)
  3175. #define   _IQ1cosPU(A)        cos((A)*6.283185307)
  3176. //---------------------------------------------------------------------------
  3177. #define   _IQatan(A)          atan(A)
  3178. #define   _IQ30atan(A)        atan(A)
  3179. #define   _IQ29atan(A)        atan(A)
  3180. #define   _IQ28atan(A)        atan(A)
  3181. #define   _IQ27atan(A)        atan(A)
  3182. #define   _IQ26atan(A)        atan(A)
  3183. #define   _IQ25atan(A)        atan(A)
  3184. #define   _IQ24atan(A)        atan(A)
  3185. #define   _IQ23atan(A)        atan(A)
  3186. #define   _IQ22atan(A)        atan(A)
  3187. #define   _IQ21atan(A)        atan(A)
  3188. #define   _IQ20atan(A)        atan(A)
  3189. #define   _IQ19atan(A)        atan(A)
  3190. #define   _IQ18atan(A)        atan(A)
  3191. #define   _IQ17atan(A)        atan(A)
  3192. #define   _IQ16atan(A)        atan(A)
  3193. #define   _IQ15atan(A)        atan(A)
  3194. #define   _IQ14atan(A)        atan(A)
  3195. #define   _IQ13atan(A)        atan(A)
  3196. #define   _IQ12atan(A)        atan(A)
  3197. #define   _IQ11atan(A)        atan(A)
  3198. #define   _IQ10atan(A)        atan(A)
  3199. #define   _IQ9atan(A)         atan(A)
  3200. #define   _IQ8atan(A)         atan(A)
  3201. #define   _IQ7atan(A)         atan(A)
  3202. #define   _IQ6atan(A)         atan(A)
  3203. #define   _IQ5atan(A)         atan(A)
  3204. #define   _IQ4atan(A)         atan(A)
  3205. #define   _IQ3atan(A)         atan(A)
  3206. #define   _IQ2atan(A)         atan(A)
  3207. #define   _IQ1atan(A)         atan(A)
  3208. //---------------------------------------------------------------------------
  3209. #define   _IQatan2(A,B)       atan2(A,B)
  3210. #define   _IQ30atan2(A,B)     atan2(A,B)
  3211. #define   _IQ29atan2(A,B)     atan2(A,B)
  3212. #define   _IQ28atan2(A,B)     atan2(A,B)
  3213. #define   _IQ27atan2(A,B)     atan2(A,B)
  3214. #define   _IQ26atan2(A,B)     atan2(A,B)
  3215. #define   _IQ25atan2(A,B)     atan2(A,B)
  3216. #define   _IQ24atan2(A,B)     atan2(A,B)
  3217. #define   _IQ23atan2(A,B)     atan2(A,B)
  3218. #define   _IQ22atan2(A,B)     atan2(A,B)
  3219. #define   _IQ21atan2(A,B)     atan2(A,B)
  3220. #define   _IQ20atan2(A,B)     atan2(A,B)
  3221. #define   _IQ19atan2(A,B)     atan2(A,B)
  3222. #define   _IQ18atan2(A,B)     atan2(A,B)
  3223. #define   _IQ17atan2(A,B)     atan2(A,B)
  3224. #define   _IQ16atan2(A,B)     atan2(A,B)
  3225. #define   _IQ15atan2(A,B)     atan2(A,B)
  3226. #define   _IQ14atan2(A,B)     atan2(A,B)
  3227. #define   _IQ13atan2(A,B)     atan2(A,B)
  3228. #define   _IQ12atan2(A,B)     atan2(A,B)
  3229. #define   _IQ11atan2(A,B)     atan2(A,B)
  3230. #define   _IQ10atan2(A,B)     atan2(A,B)
  3231. #define   _IQ9atan2(A,B)      atan2(A,B)
  3232. #define   _IQ8atan2(A,B)      atan2(A,B)
  3233. #define   _IQ7atan2(A,B)      atan2(A,B)
  3234. #define   _IQ6atan2(A,B)      atan2(A,B)
  3235. #define   _IQ5atan2(A,B)      atan2(A,B)
  3236. #define   _IQ4atan2(A,B)      atan2(A,B)
  3237. #define   _IQ3atan2(A,B)      atan2(A,B)
  3238. #define   _IQ2atan2(A,B)      atan2(A,B)
  3239. #define   _IQ1atan2(A,B)      atan2(A,B)
  3240. //---------------------------------------------------------------------------
  3241. #define   _IQatan2PU(A,B)     ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3242. #define   _IQ30atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3243. #define   _IQ29atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3244. #define   _IQ28atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3245. #define   _IQ27atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3246. #define   _IQ26atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3247. #define   _IQ25atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3248. #define   _IQ24atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3249. #define   _IQ23atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3250. #define   _IQ22atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3251. #define   _IQ21atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3252. #define   _IQ20atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3253. #define   _IQ19atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3254. #define   _IQ18atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3255. #define   _IQ17atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3256. #define   _IQ16atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3257. #define   _IQ15atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3258. #define   _IQ14atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3259. #define   _IQ13atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3260. #define   _IQ12atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3261. #define   _IQ11atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3262. #define   _IQ10atan2PU(A,B)   ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3263. #define   _IQ9atan2PU(A,B)    ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3264. #define   _IQ8atan2PU(A,B)    ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3265. #define   _IQ7atan2PU(A,B)    ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3266. #define   _IQ6atan2PU(A,B)    ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3267. #define   _IQ5atan2PU(A,B)    ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3268. #define   _IQ4atan2PU(A,B)    ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3269. #define   _IQ3atan2PU(A,B)    ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3270. #define   _IQ2atan2PU(A,B)    ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3271. #define   _IQ1atan2PU(A,B)    ((atan2(A,B)/6.283185307) >= 0.0 ? (atan2(A,B)/6.283185307):1.0 + (atan2(A,B)/6.283185307))
  3272. //---------------------------------------------------------------------------
  3273. #define   _IQsqrt(A)          sqrt(A)
  3274. #define   _IQ30sqrt(A)        sqrt(A)
  3275. #define   _IQ29sqrt(A)        sqrt(A)
  3276. #define   _IQ28sqrt(A)        sqrt(A)
  3277. #define   _IQ27sqrt(A)        sqrt(A)
  3278. #define   _IQ26sqrt(A)        sqrt(A)
  3279. #define   _IQ25sqrt(A)        sqrt(A)
  3280. #define   _IQ24sqrt(A)        sqrt(A)
  3281. #define   _IQ23sqrt(A)        sqrt(A)
  3282. #define   _IQ22sqrt(A)        sqrt(A)
  3283. #define   _IQ21sqrt(A)        sqrt(A)
  3284. #define   _IQ20sqrt(A)        sqrt(A)
  3285. #define   _IQ19sqrt(A)        sqrt(A)
  3286. #define   _IQ18sqrt(A)        sqrt(A)
  3287. #define   _IQ17sqrt(A)        sqrt(A)
  3288. #define   _IQ16sqrt(A)        sqrt(A)
  3289. #define   _IQ15sqrt(A)        sqrt(A)
  3290. #define   _IQ14sqrt(A)        sqrt(A)
  3291. #define   _IQ13sqrt(A)        sqrt(A)
  3292. #define   _IQ12sqrt(A)        sqrt(A)
  3293. #define   _IQ11sqrt(A)        sqrt(A)
  3294. #define   _IQ10sqrt(A)        sqrt(A)
  3295. #define   _IQ9sqrt(A)         sqrt(A)
  3296. #define   _IQ8sqrt(A)         sqrt(A)
  3297. #define   _IQ7sqrt(A)         sqrt(A)
  3298. #define   _IQ6sqrt(A)         sqrt(A)
  3299. #define   _IQ5sqrt(A)         sqrt(A)
  3300. #define   _IQ4sqrt(A)         sqrt(A)
  3301. #define   _IQ3sqrt(A)         sqrt(A)
  3302. #define   _IQ2sqrt(A)         sqrt(A)
  3303. #define   _IQ1sqrt(A)         sqrt(A)
  3304. //---------------------------------------------------------------------------
  3305. #define   _IQisqrt(A)         (1.0/sqrt(A))
  3306. #define   _IQ30isqrt(A)       (1.0/sqrt(A))
  3307. #define   _IQ29isqrt(A)       (1.0/sqrt(A))
  3308. #define   _IQ28isqrt(A)       (1.0/sqrt(A))
  3309. #define   _IQ27isqrt(A)       (1.0/sqrt(A))
  3310. #define   _IQ26isqrt(A)       (1.0/sqrt(A))
  3311. #define   _IQ25isqrt(A)       (1.0/sqrt(A))
  3312. #define   _IQ24isqrt(A)       (1.0/sqrt(A))
  3313. #define   _IQ23isqrt(A)       (1.0/sqrt(A))
  3314. #define   _IQ22isqrt(A)       (1.0/sqrt(A))
  3315. #define   _IQ21isqrt(A)       (1.0/sqrt(A))
  3316. #define   _IQ20isqrt(A)       (1.0/sqrt(A))
  3317. #define   _IQ19isqrt(A)       (1.0/sqrt(A))
  3318. #define   _IQ18isqrt(A)       (1.0/sqrt(A))
  3319. #define   _IQ17isqrt(A)       (1.0/sqrt(A))
  3320. #define   _IQ16isqrt(A)       (1.0/sqrt(A))
  3321. #define   _IQ15isqrt(A)       (1.0/sqrt(A))
  3322. #define   _IQ14isqrt(A)       (1.0/sqrt(A))
  3323. #define   _IQ13isqrt(A)       (1.0/sqrt(A))
  3324. #define   _IQ12isqrt(A)       (1.0/sqrt(A))
  3325. #define   _IQ11isqrt(A)       (1.0/sqrt(A))
  3326. #define   _IQ10isqrt(A)       (1.0/sqrt(A))
  3327. #define   _IQ9isqrt(A)        (1.0/sqrt(A))
  3328. #define   _IQ8isqrt(A)        (1.0/sqrt(A))
  3329. #define   _IQ7isqrt(A)        (1.0/sqrt(A))
  3330. #define   _IQ6isqrt(A)        (1.0/sqrt(A))
  3331. #define   _IQ5isqrt(A)        (1.0/sqrt(A))
  3332. #define   _IQ4isqrt(A)        (1.0/sqrt(A))
  3333. #define   _IQ3isqrt(A)        (1.0/sqrt(A))
  3334. #define   _IQ2isqrt(A)        (1.0/sqrt(A))
  3335. #define   _IQ1isqrt(A)        (1.0/sqrt(A))
  3336. //---------------------------------------------------------------------------
  3337. #define   _IQint(A)           ((long) (A))
  3338. #define   _IQ30int(A)         ((long) (A))
  3339. #define   _IQ29int(A)         ((long) (A))
  3340. #define   _IQ28int(A)         ((long) (A))
  3341. #define   _IQ27int(A)         ((long) (A))
  3342. #define   _IQ26int(A)         ((long) (A))
  3343. #define   _IQ25int(A)         ((long) (A))
  3344. #define   _IQ24int(A)         ((long) (A))
  3345. #define   _IQ23int(A)         ((long) (A))
  3346. #define   _IQ22int(A)         ((long) (A))
  3347. #define   _IQ21int(A)         ((long) (A))
  3348. #define   _IQ20int(A)         ((long) (A))
  3349. #define   _IQ19int(A)         ((long) (A))
  3350. #define   _IQ18int(A)         ((long) (A))
  3351. #define   _IQ17int(A)         ((long) (A))
  3352. #define   _IQ16int(A)         ((long) (A))
  3353. #define   _IQ15int(A)         ((long) (A))
  3354. #define   _IQ14int(A)         ((long) (A))
  3355. #define   _IQ13int(A)         ((long) (A))
  3356. #define   _IQ12int(A)         ((long) (A))
  3357. #define   _IQ11int(A)         ((long) (A))
  3358. #define   _IQ10int(A)         ((long) (A))
  3359. #define   _IQ9int(A)          ((long) (A))
  3360. #define   _IQ8int(A)          ((long) (A))
  3361. #define   _IQ7int(A)          ((long) (A))
  3362. #define   _IQ6int(A)          ((long) (A))
  3363. #define   _IQ5int(A)          ((long) (A))
  3364. #define   _IQ4int(A)          ((long) (A))
  3365. #define   _IQ3int(A)          ((long) (A))
  3366. #define   _IQ2int(A)          ((long) (A))
  3367. #define   _IQ1int(A)          ((long) (A))
  3368. //---------------------------------------------------------------------------
  3369. #define   _IQfrac(A)          ((A) - (float)((long) (A)))
  3370. #define   _IQ30frac(A)        ((A) - (float)((long) (A)))
  3371. #define   _IQ29frac(A)        ((A) - (float)((long) (A)))
  3372. #define   _IQ28frac(A)        ((A) - (float)((long) (A)))
  3373. #define   _IQ27frac(A)        ((A) - (float)((long) (A)))
  3374. #define   _IQ26frac(A)        ((A) - (float)((long) (A)))
  3375. #define   _IQ25frac(A)        ((A) - (float)((long) (A)))
  3376. #define   _IQ24frac(A)        ((A) - (float)((long) (A)))
  3377. #define   _IQ23frac(A)        ((A) - (float)((long) (A)))
  3378. #define   _IQ22frac(A)        ((A) - (float)((long) (A)))
  3379. #define   _IQ21frac(A)        ((A) - (float)((long) (A)))
  3380. #define   _IQ20frac(A)        ((A) - (float)((long) (A)))
  3381. #define   _IQ19frac(A)        ((A) - (float)((long) (A)))
  3382. #define   _IQ18frac(A)        ((A) - (float)((long) (A)))
  3383. #define   _IQ17frac(A)        ((A) - (float)((long) (A)))
  3384. #define   _IQ16frac(A)        ((A) - (float)((long) (A)))
  3385. #define   _IQ15frac(A)        ((A) - (float)((long) (A)))
  3386. #define   _IQ14frac(A)        ((A) - (float)((long) (A)))
  3387. #define   _IQ13frac(A)        ((A) - (float)((long) (A)))
  3388. #define   _IQ12frac(A)        ((A) - (float)((long) (A)))
  3389. #define   _IQ11frac(A)        ((A) - (float)((long) (A)))
  3390. #define   _IQ10frac(A)        ((A) - (float)((long) (A)))
  3391. #define   _IQ9frac(A)         ((A) - (float)((long) (A)))
  3392. #define   _IQ8frac(A)         ((A) - (float)((long) (A)))
  3393. #define   _IQ7frac(A)         ((A) - (float)((long) (A)))
  3394. #define   _IQ6frac(A)         ((A) - (float)((long) (A)))
  3395. #define   _IQ5frac(A)         ((A) - (float)((long) (A)))
  3396. #define   _IQ4frac(A)         ((A) - (float)((long) (A)))
  3397. #define   _IQ3frac(A)         ((A) - (float)((long) (A)))
  3398. #define   _IQ2frac(A)         ((A) - (float)((long) (A)))
  3399. #define   _IQ1frac(A)         ((A) - (float)((long) (A)))
  3400. //---------------------------------------------------------------------------
  3401. #define   _IQmpyIQX(A, IQA, B, IQB)    ((A)*(B))    
  3402. #define   _IQ30mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3403. #define   _IQ29mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3404. #define   _IQ28mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3405. #define   _IQ27mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3406. #define   _IQ26mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3407. #define   _IQ25mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3408. #define   _IQ24mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3409. #define   _IQ23mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3410. #define   _IQ22mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3411. #define   _IQ21mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3412. #define   _IQ20mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3413. #define   _IQ19mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3414. #define   _IQ18mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3415. #define   _IQ17mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3416. #define   _IQ16mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3417. #define   _IQ15mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3418. #define   _IQ14mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3419. #define   _IQ13mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3420. #define   _IQ12mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3421. #define   _IQ11mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3422. #define   _IQ10mpyIQX(A, IQA, B, IQB)  ((A)*(B))    
  3423. #define   _IQ9mpyIQX(A, IQA, B, IQB)   ((A)*(B))    
  3424. #define   _IQ8mpyIQX(A, IQA, B, IQB)   ((A)*(B))    
  3425. #define   _IQ7mpyIQX(A, IQA, B, IQB)   ((A)*(B))    
  3426. #define   _IQ6mpyIQX(A, IQA, B, IQB)   ((A)*(B))    
  3427. #define   _IQ5mpyIQX(A, IQA, B, IQB)   ((A)*(B))    
  3428. #define   _IQ4mpyIQX(A, IQA, B, IQB)   ((A)*(B))    
  3429. #define   _IQ3mpyIQX(A, IQA, B, IQB)   ((A)*(B))    
  3430. #define   _IQ2mpyIQX(A, IQA, B, IQB)   ((A)*(B))    
  3431. #define   _IQ1mpyIQX(A, IQA, B, IQB)   ((A)*(B))    
  3432. //---------------------------------------------------------------------------
  3433. #define   _IQmpyI32(A,B)      ((A) * (float) (B))    
  3434. #define   _IQ30mpyI32(A,B)    ((A) * (float) (B))
  3435. #define   _IQ29mpyI32(A,B)    ((A) * (float) (B))
  3436. #define   _IQ28mpyI32(A,B)    ((A) * (float) (B))
  3437. #define   _IQ27mpyI32(A,B)    ((A) * (float) (B))
  3438. #define   _IQ26mpyI32(A,B)    ((A) * (float) (B))
  3439. #define   _IQ25mpyI32(A,B)    ((A) * (float) (B))
  3440. #define   _IQ24mpyI32(A,B)    ((A) * (float) (B))
  3441. #define   _IQ23mpyI32(A,B)    ((A) * (float) (B))
  3442. #define   _IQ22mpyI32(A,B)    ((A) * (float) (B))
  3443. #define   _IQ21mpyI32(A,B)    ((A) * (float) (B))
  3444. #define   _IQ20mpyI32(A,B)    ((A) * (float) (B))
  3445. #define   _IQ19mpyI32(A,B)    ((A) * (float) (B))
  3446. #define   _IQ18mpyI32(A,B)    ((A) * (float) (B))
  3447. #define   _IQ17mpyI32(A,B)    ((A) * (float) (B))
  3448. #define   _IQ16mpyI32(A,B)    ((A) * (float) (B))
  3449. #define   _IQ15mpyI32(A,B)    ((A) * (float) (B))
  3450. #define   _IQ14mpyI32(A,B)    ((A) * (float) (B))
  3451. #define   _IQ13mpyI32(A,B)    ((A) * (float) (B))
  3452. #define   _IQ12mpyI32(A,B)    ((A) * (float) (B))
  3453. #define   _IQ11mpyI32(A,B)    ((A) * (float) (B))
  3454. #define   _IQ10mpyI32(A,B)    ((A) * (float) (B))
  3455. #define   _IQ9mpyI32(A,B)     ((A) * (float) (B))
  3456. #define   _IQ8mpyI32(A,B)     ((A) * (float) (B))
  3457. #define   _IQ7mpyI32(A,B)     ((A) * (float) (B))
  3458. #define   _IQ6mpyI32(A,B)     ((A) * (float) (B))
  3459. #define   _IQ5mpyI32(A,B)     ((A) * (float) (B))
  3460. #define   _IQ4mpyI32(A,B)     ((A) * (float) (B))
  3461. #define   _IQ3mpyI32(A,B)     ((A) * (float) (B))
  3462. #define   _IQ2mpyI32(A,B)     ((A) * (float) (B))
  3463. #define   _IQ1mpyI32(A,B)     ((A) * (float) (B))
  3464. //---------------------------------------------------------------------------
  3465. #define   _IQmpyI32int(A,B)   ((long) ((A) * (float) (B)))
  3466. #define   _IQ30mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3467. #define   _IQ29mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3468. #define   _IQ28mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3469. #define   _IQ27mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3470. #define   _IQ26mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3471. #define   _IQ25mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3472. #define   _IQ24mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3473. #define   _IQ23mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3474. #define   _IQ22mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3475. #define   _IQ21mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3476. #define   _IQ20mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3477. #define   _IQ19mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3478. #define   _IQ18mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3479. #define   _IQ17mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3480. #define   _IQ16mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3481. #define   _IQ15mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3482. #define   _IQ14mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3483. #define   _IQ13mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3484. #define   _IQ12mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3485. #define   _IQ11mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3486. #define   _IQ10mpyI32int(A,B) ((long) ((A) * (float) (B)))
  3487. #define   _IQ9mpyI32int(A,B)  ((long) ((A) * (float) (B)))
  3488. #define   _IQ8mpyI32int(A,B)  ((long) ((A) * (float) (B)))
  3489. #define   _IQ7mpyI32int(A,B)  ((long) ((A) * (float) (B)))
  3490. #define   _IQ6mpyI32int(A,B)  ((long) ((A) * (float) (B)))
  3491. #define   _IQ5mpyI32int(A,B)  ((long) ((A) * (float) (B)))
  3492. #define   _IQ4mpyI32int(A,B)  ((long) ((A) * (float) (B)))
  3493. #define   _IQ3mpyI32int(A,B)  ((long) ((A) * (float) (B)))
  3494. #define   _IQ2mpyI32int(A,B)  ((long) ((A) * (float) (B)))
  3495. #define   _IQ1mpyI32int(A,B)  ((long) ((A) * (float) (B)))
  3496. //---------------------------------------------------------------------------
  3497. #define   _IQmpyI32frac(A,B)    ((A) - (float)((long) ((A) * (float) (B))))
  3498. #define   _IQ30mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3499. #define   _IQ29mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3500. #define   _IQ28mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3501. #define   _IQ27mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3502. #define   _IQ26mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3503. #define   _IQ25mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3504. #define   _IQ24mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3505. #define   _IQ23mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3506. #define   _IQ22mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3507. #define   _IQ21mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3508. #define   _IQ20mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3509. #define   _IQ19mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3510. #define   _IQ18mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3511. #define   _IQ17mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3512. #define   _IQ16mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3513. #define   _IQ15mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3514. #define   _IQ14mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3515. #define   _IQ13mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3516. #define   _IQ12mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3517. #define   _IQ11mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3518. #define   _IQ10mpyI32frac(A,B)  ((A) - (float)((long) ((A) * (float) (B))))
  3519. #define   _IQ9mpyI32frac(A,B)   ((A) - (float)((long) ((A) * (float) (B))))
  3520. #define   _IQ8mpyI32frac(A,B)   ((A) - (float)((long) ((A) * (float) (B))))
  3521. #define   _IQ7mpyI32frac(A,B)   ((A) - (float)((long) ((A) * (float) (B))))
  3522. #define   _IQ6mpyI32frac(A,B)   ((A) - (float)((long) ((A) * (float) (B))))
  3523. #define   _IQ5mpyI32frac(A,B)   ((A) - (float)((long) ((A) * (float) (B))))
  3524. #define   _IQ4mpyI32frac(A,B)   ((A) - (float)((long) ((A) * (float) (B))))
  3525. #define   _IQ3mpyI32frac(A,B)   ((A) - (float)((long) ((A) * (float) (B))))
  3526. #define   _IQ2mpyI32frac(A,B)   ((A) - (float)((long) ((A) * (float) (B))))
  3527. #define   _IQ1mpyI32frac(A,B)   ((A) - (float)((long) ((A) * (float) (B))))
  3528. //---------------------------------------------------------------------------
  3529. #define   _IQmag(A,B)         sqrt((A)*(A) + (B)*(B))
  3530. #define   _IQ30mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3531. #define   _IQ29mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3532. #define   _IQ28mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3533. #define   _IQ27mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3534. #define   _IQ26mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3535. #define   _IQ25mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3536. #define   _IQ24mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3537. #define   _IQ23mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3538. #define   _IQ22mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3539. #define   _IQ21mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3540. #define   _IQ20mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3541. #define   _IQ19mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3542. #define   _IQ18mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3543. #define   _IQ17mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3544. #define   _IQ16mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3545. #define   _IQ15mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3546. #define   _IQ14mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3547. #define   _IQ13mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3548. #define   _IQ12mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3549. #define   _IQ11mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3550. #define   _IQ10mag(A,B)       sqrt((A)*(A) + (B)*(B))
  3551. #define   _IQ9mag(A,B)        sqrt((A)*(A) + (B)*(B))
  3552. #define   _IQ8mag(A,B)        sqrt((A)*(A) + (B)*(B))
  3553. #define   _IQ7mag(A,B)        sqrt((A)*(A) + (B)*(B))
  3554. #define   _IQ6mag(A,B)        sqrt((A)*(A) + (B)*(B))
  3555. #define   _IQ5mag(A,B)        sqrt((A)*(A) + (B)*(B))
  3556. #define   _IQ4mag(A,B)        sqrt((A)*(A) + (B)*(B))
  3557. #define   _IQ3mag(A,B)        sqrt((A)*(A) + (B)*(B))
  3558. #define   _IQ2mag(A,B)        sqrt((A)*(A) + (B)*(B))
  3559. #define   _IQ1mag(A,B)        sqrt((A)*(A) + (B)*(B))
  3560. //---------------------------------------------------------------------------
  3561. #define   _atoIQ(A)           atof(A)
  3562. #define   _atoIQ30(A)         atof(A)
  3563. #define   _atoIQ29(A)         atof(A)
  3564. #define   _atoIQ28(A)         atof(A)
  3565. #define   _atoIQ27(A)         atof(A)
  3566. #define   _atoIQ26(A)         atof(A)
  3567. #define   _atoIQ25(A)         atof(A)
  3568. #define   _atoIQ24(A)         atof(A)
  3569. #define   _atoIQ23(A)         atof(A)
  3570. #define   _atoIQ22(A)         atof(A)
  3571. #define   _atoIQ21(A)         atof(A)
  3572. #define   _atoIQ20(A)         atof(A)
  3573. #define   _atoIQ19(A)         atof(A)
  3574. #define   _atoIQ18(A)         atof(A)
  3575. #define   _atoIQ17(A)         atof(A)
  3576. #define   _atoIQ16(A)         atof(A)
  3577. #define   _atoIQ15(A)         atof(A)
  3578. #define   _atoIQ14(A)         atof(A)
  3579. #define   _atoIQ13(A)         atof(A)
  3580. #define   _atoIQ12(A)         atof(A)
  3581. #define   _atoIQ11(A)         atof(A)
  3582. #define   _atoIQ10(A)         atof(A)
  3583. #define   _atoIQ9(A)          atof(A)
  3584. #define   _atoIQ8(A)          atof(A)
  3585. #define   _atoIQ7(A)          atof(A)
  3586. #define   _atoIQ6(A)          atof(A)
  3587. #define   _atoIQ5(A)          atof(A)
  3588. #define   _atoIQ4(A)          atof(A)
  3589. #define   _atoIQ3(A)          atof(A)
  3590. #define   _atoIQ2(A)          atof(A)
  3591. #define   _atoIQ1(A)          atof(A)
  3592. //###########################################################################
  3593. #endif  // No more.
  3594. //###########################################################################
  3596. #endif /* __IQMATHLIB_H_INCLUDED__ */