home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / univspl / void_big.h < prev   
Encoding:
C/C++ Source or Header  |  1998-12-09  |  52.3 KB  |  1,126 lines
  1. #if BIG
  2. void acorf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  3.   for (j=0; j<32; j++)
  4.     acorf(S[j], D[j], n, n); }
  5. void acort_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  6.   for (j=0; j<32; j++)
  7.     acort(S[j], D[j], n, n); }
  8. void aspec_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  9.   for (j=0; j<32; j++)
  10.     aspec(S[j], inc1, D[j], inco, n); }
  11. void blkman_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  12.   for (j=0; j<32; j++)
  13.     blkman(S[j], inc1, D[j], inco, n); }
  14. void ccdotp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  15.   for (j=0; j<32; j++)
  16.     ccdotp(S[j], 2, S[(j+4)%8], 2, cso, n); }
  17. void ccorf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  18.   for (j=0; j<32; j++)
  19.     ccorf(S[j], S[(j+4)%8], D[j], n, n); }
  20. void ccort_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  21.   for (j=0; j<32; j++)
  22.     ccort(S[j], S[(j+4)%8], D[j], n, n); }
  23. void cdotpr_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  24.   for (j=0; j<32; j++)
  25.     cdotpr(S[j], 2, S[(j+4)%8], 2, cso, n); }
  26. void cfft_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  27.   for (j=0; j<32; j++)
  28.     cfft(S[j], n, flg); }
  29. void cfftf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  30.   for (j=0; j<32; j++)
  31.     cfftf(S[j], 2, D[j], 2, n); }
  32. /**
  33. cfftf_64c_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  34.   for (j=0; j<32; j++)
  35.     cfftf_64c(S[j], 2, D[j], 2, n); }
  36.  **/
  37. void cffti_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  38.   for (j=0; j<32; j++)
  39.     cffti(S[j], 2, D[j], 2, n); }
  40. void cfftsc_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  41.   for (j=0; j<32; j++)
  42.     cfftsc(D[j], n); }
  43. void convd_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  44.   for (j=0; j<32; j++)
  45.     convd(S[j], 1, S[(j+4)%8], 1, D[j], 1, n, 32, ndf); }
  46. void cpow_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  47.   for (j=0; j<32; j++)
  48.     cpow(S[j], 2, &rs1, S[(j+4)%8], inc2, &rs2, D[j], inco, n); }
  49. void crvdiv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  50.   for (j=0; j<32; j++)
  51.     crvdiv(S[j], 2, S[(j+4)%8], inc2, D[j], 2, n); }
  52. void crvmul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  53.   for (j=0; j<32; j++)
  54.     crvmul(S[j], 2, S[(j+4)%8], inc2, D[j], 2, n); }
  55. void cspec_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  56.   for (j=0; j<32; j++)
  57.     cspec(S[j], S[(j+4)%8], D[j], n); }
  58. void cvabs_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  59.   for (j=0; j<32; j++)
  60.     cvabs(S[j], 2, D[j], inco, n); }
  61. void cvadd_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  62.   for (j=0; j<32; j++)
  63.     cvadd(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
  64. void cvcml_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  65.   for (j=0; j<32; j++)
  66.     cvcml(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
  67. void cvcmla_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  68.   for (j=0; j<32; j++)
  69.     cvcmla(S[j], 2, S[(j+4)%8], 2, S[(j+2)%8], 2, D[j], 2, n); }
  70. void cvcomb_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  71.   for (j=0; j<32; j++)
  72.     cvcomb(S[j], inc1, S[(j+4)%8], inc2, D[j], 2, n); }
  73. void cvconj_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  74.   for (j=0; j<32; j++)
  75.     cvconj(S[j], 2, D[j], 2, n); }
  76. void cvcsml_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  77.   for (j=0; j<32; j++)
  78.     cvcsml(S[j], 2, cs1, D[j], 2, n); }
  79. void cvdiv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  80.   for (j=0; j<32; j++)
  81.     cvdiv(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
  82. void cvexp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  83.   for (j=0; j<32; j++)
  84.     cvexp(S[j], inc1, D[j], 2, n); }
  85. void cvfill_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  86.   for (j=0; j<32; j++)
  87.     cvfill(cs1, D[j], 2, n); }
  88. void cvma_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  89.   for (j=0; j<32; j++)
  90.     cvma(S[j], 2, S[(j+4)%8], 2, S[(j+2)%8], 2, D[j], 2, n, 1); }
  91. void cvmags_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  92.   for (j=0; j<32; j++)
  93.     cvmags(S[j], 2, D[j], inco, n); }
  94. void cvmexp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  95.   for (j=0; j<32; j++)
  96.     cvmexp(S[j], inc1, S[(j+4)%8], 2, D[j], 2, n); }
  97. void cvmgsa_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  98.   for (j=0; j<32; j++)
  99.     cvmgsa(S[j], 2, S[(j+4)%8], inc2, D[j], inco, n); }
  100. void cvml_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  101.   for (j=0; j<32; j++)
  102.     cvml(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
  103. void cvmla_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  104.   for (j=0; j<32; j++)
  105.     cvmla(S[j], 2, S[(j+4)%8], 2, S[(j+2)%8], 2, D[j], 2, n); }
  106. void cvmov_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  107.   for (j=0; j<32; j++)
  108.     cvmov(S[j], 2, D[j], 2, n); }
  109. void cvmul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  110.   for (j=0; j<32; j++)
  111.     cvmul(S[j], 2, S[(j+4)%8], 2, D[j], 2, n, flg); }
  112. void cvneg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  113.   for (j=0; j<32; j++)
  114.     cvneg(S[j], 2, D[j], 2, n); }
  115. void cvphas_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  116.   for (j=0; j<32; j++)
  117.     cvphas(S[j], 2, D[j], inco, n); }
  118. void cvrcip_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  119.   for (j=0; j<32; j++)
  120.     cvrcip(S[j], 2, D[j], 2, n); }
  121. void cvreal_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  122.   for (j=0; j<32; j++)
  123.     cvreal(S[j], inc1, D[j], 2, n); }
  124. void cvsma_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  125.   for (j=0; j<32; j++)
  126.     cvsma(S[j], 2, cs1, S[(j+4)%8], 2, D[j], 2, n); }
  127. void cvsmul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  128.   for (j=0; j<32; j++)
  129.     cvsmul(S[j], 2, &rs1, D[j], 2, n); }
  130. void cvsqrt_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  131.   for (j=0; j<32; j++)
  132.     cvsqrt(S[j], 2, D[j], 2, n); }
  133. void cvsub_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  134.   for (j=0; j<32; j++)
  135.     cvsub(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
  136. void deq22_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  137.   for (j=0; j<32; j++)
  138.     deq22(S[j], inc1, S[(j+4)%8], D[j], inco, n); }
  139. void dotpr_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  140.   for (j=0; j<32; j++)
  141.     dotpr(S[j], inc1, S[(j+4)%8], inc2, &rso, n); }
  142. void envel_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  143.   for (j=0; j<32; j++)
  144.     envel(S[j], D[j], n); }
  145. void fftwts_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  146.   for (j=0; j<32; j++)
  147.     fftwts(D[j], m, n); }
  148. void fix4_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  149.   for (j=0; j<32; j++)
  150.     fix4(S[j], inc1, (long*)D[j], inco, n); }
  151. void fix2n_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  152.   for (j=0; j<32; j++)
  153.     fix2n(S[j], inc1, svo, inco, n); }
  154. void fix4n_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  155.   for (j=0; j<32; j++)
  156.     fix4n(S[j], inc1, (long*)D[j], inco, n); }
  157. void fixbn_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  158.   for (j=0; j<32; j++)
  159.     fixbn(S[j], inc1, (char*)D[j], inco, n); }
  160. void flt2_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  161.   for (j=0; j<32; j++)
  162.     flt2((short*)S[j], inc1, D[j], inco, n); }
  163. void flt2iq_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  164.   for (j=0; j<32; j++)
  165.     flt2iq((short*)S[j], inc1, D[j], D[(j+4)%8], n); }
  166. void flt4_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  167.   for (j=0; j<32; j++)
  168.     flt4((long*)S[j], inc1, D[j], inco, n); }
  169. void fltb_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  170.   for (j=0; j<32; j++)
  171.     fltb((char*)S[j], inc1, D[j], inco, n); }
  172. void fltbu_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  173.   for (j=0; j<32; j++)
  174.     fltbu((char*)S[j], inc1, D[j], inco, n); }
  175. void fxsl2n_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  176.   for (j=0; j<32; j++)
  177.     fxsl2n(S[j], inc1, &rs1, &rs2, svo, inco, n); }
  178. void fxsl4n_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  179.   for (j=0; j<32; j++)
  180.     fxsl4n(S[j], inc1, &rs1, &rs2, (long*)D[j], inco, n); }
  181. void fxslbn_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  182.   for (j=0; j<32; j++)
  183.     fxslbn(S[j], inc1, &rs1, &rs2, (char*)D[j], inco, n); }
  184. void gcosf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  185.   for (j=0; j<32; j++)
  186.     gcosf(D[j], inco, &rs1, &rs2, n); }
  187. void gcexp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  188.   for (j=0; j<32; j++)
  189.     gcexp(&rs1, &rs2, D[j], 2, n); }
  190. void hamm_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  191.   for (j=0; j<32; j++)
  192.     hamm(S[j], inc1, D[j], inco, n); }
  193. void hann_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  194.   for (j=0; j<32; j++)
  195.     hann(S[j], inc1, D[j], inco, n, flg); }
  196. void hlbrt_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  197.   for (j=0; j<32; j++)
  198.     hlbrt(S[j], D[j], n); }
  199. void lveq_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  200.   for (j=0; j<32; j++)
  201.     lveq(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  202. void lvge_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  203.   for (j=0; j<32; j++)
  204.     lvge(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  205. void lvgt_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  206.   for (j=0; j<32; j++)
  207.     lvgt(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  208. void lvle_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  209.   for (j=0; j<32; j++)
  210.     lvle(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  211. void lvlt_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  212.   for (j=0; j<32; j++)
  213.     lvlt(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  214. void lvne_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  215.   for (j=0; j<32; j++)
  216.     lvne(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  217. void lvnot_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  218.   for (j=0; j<32; j++)
  219.     lvnot(S[j], inc1, D[j], inco, n); }
  220. void maxmgv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  221.   for (j=0; j<32; j++)
  222.     maxmgv(S[j], inc1, &rso, &idx, n); }
  223. void maxv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  224.   for (j=0; j<32; j++)
  225.     maxv(S[j], inc1, &rso, &idx, n); }
  226. void meamgv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  227.   for (j=0; j<32; j++)
  228.     meamgv(S[j], inc1, &rso, n); }
  229. void meanv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  230.   for (j=0; j<32; j++)
  231.     meanv(S[j], inc1, &rso, n); }
  232. void measqv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  233.   for (j=0; j<32; j++)
  234.     measqv(S[j], inc1, &rso, n); }
  235. void minmgv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  236.   for (j=0; j<32; j++)
  237.     minmgv(S[j], inc1, &rso, &idx, n); }
  238. void minv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  239.   for (j=0; j<32; j++)
  240.     minv(S[j], inc1, &rso, &idx, n); }
  241. void mvessq_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  242.   for (j=0; j<32; j++)
  243.     mvessq(S[j], inc1, &rso, n); }
  244. void mxmov_time (m,n) long m,n; { long i, j; n=(n>512)?512:n; for(i=0; i<m; i+=32)
  245.   for (j=0; j<32; j++)
  246.     mxmov(S[j], 1, n, D[j], 1, n, n, n); }
  247. void mxmul_time (m,n) long m,n; { long i, j; n=(n>128)?128:n; for(i=0; i<m; i+=32)
  248.   for (j=0; j<32; j++)
  249.     mxmul(S[j], 1, n, S[j], 1, n, D[j], 1, n, n, n, n); }
  250. void mxmla_time (m,n) long m,n; { long i, j;  n=(n>128)?128:n; for(i=0; i<m; i+=32)
  251.   for (j=0; j<32; j++)
  252.     mxmla(S[j], 1, n, S[j], 1, n, D[j], 1, n, n, n, n); }
  253. void mxmls_time (m,n) long m,n; { long i, j;  n=(n>128)?128:n; for(i=0; i<m; i+=32)
  254.   for (j=0; j<32; j++)
  255.     mxmls(S[j], 1, n, S[j], 1, n, D[j], 1, n, n, n, n); }
  256. void polar_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  257.   for (j=0; j<32; j++)
  258.     polar(S[j], 2, D[j], 2, n); }
  259. void rect_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  260.   for (j=0; j<32; j++)
  261.     rect(S[j], 2, D[j], 2, n); }
  262. void reqs_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  263.   for (j=0; j<32; j++)
  264.     reqs(S[j], inc1, &rs1, n, &idx); }
  265. void rfft_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  266.   for (j=0; j<32; j++)
  267.     rfft(S[j], n, flg); }
  268. void rfftf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  269.   for (j=0; j<32; j++)
  270.     rfftf(S[j], inc1, D[j], 2, &rs1, n); }
  271. void rffti_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  272.   for (j=0; j<32; j++)
  273.     rffti(S[j], 2, &rs1, D[j], inco, n); }
  274. void rfftsc_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  275.   for (j=0; j<32; j++)
  276.     rfftsc(S[j], n, flg1, flg2); }
  277. void rges_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  278.   for (j=0; j<32; j++)
  279.     rges(S[j], inc1, &rs1, n, &idx); }
  280. void rgts_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  281.   for (j=0; j<32; j++)
  282.     rgts(S[j], inc1, &rs1, n, &idx); }
  283. void rlts_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  284.   for (j=0; j<32; j++)
  285.     rlts(S[j], inc1, &rs1, n, &idx); }
  286. void rmax_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  287.   for (j=0; j<32; j++)
  288.     rmax(S[j], inc1, &rso, &idx, n); }
  289. void rmaxmg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  290.   for (j=0; j<32; j++)
  291.     rmaxmg(S[j], inc1, &rso, &idx, n); }
  292. void rmin_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  293.   for (j=0; j<32; j++)
  294.     rmin(S[j], inc1, &rso, &idx, n); }
  295. void rminmg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  296.   for (j=0; j<32; j++)
  297.     rminmg(S[j], inc1, &rso, &idx, n); }
  298. void rmsqv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  299.   for (j=0; j<32; j++)
  300.     rmsqv(S[j], inc1, &rso, n); }
  301. void rnes_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  302.   for (j=0; j<32; j++)
  303.     rnes(S[j], inc1, &rs1, n, &idx); }
  304. void rsve_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  305.   for (j=0; j<32; j++)
  306.     rsve(S[j], inc1, &rs1, D[j], inco, n, 32); }
  307. void shphu_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  308.   for (j=0; j<32; j++)
  309.     shphu(S[j], inc1, &rs1, D[j], inco, n); }
  310. void shphuf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  311.   for (j=0; j<32; j++)
  312.     shphuf(S[j], inc1, &rs1, D[j], inco, n); }
  313. void sn2_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  314.   for (j=0; j<32; j++)
  315.     sn2(S[j], inc1, S[(j+4)%8], inc2, &rso, n); }
  316. void svdiv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  317.   for (j=0; j<32; j++)
  318.     svdiv(&rs1, S[j], inc1, D[j], inco, n); }
  319. void sve_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  320.   for (j=0; j<32; j++)
  321.     sve(S[j], inc1, &rso, n); }
  322. void svemg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  323.   for (j=0; j<32; j++)
  324.     svemg(S[j], inc1, &rso, n); }
  325. void svesq_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  326.   for (j=0; j<32; j++)
  327.     svesq(S[j], inc1, &rso, n); }
  328. void svessq_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  329.   for (j=0; j<32; j++)
  330.     svessq(S[j], inc1, &rso, n); }
  331. void tconv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  332.   for (j=0; j<32; j++)
  333.     tconv(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n, 32, n); }
  334. void trans_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  335.   for (j=0; j<32; j++)
  336.     trans(S[j], S[j], D[j], n); }
  337. void vaam_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  338.   for (j=0; j<32; j++)
  339.     vaam(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, S[(j+6)%8], inc4, D[j], inco, n); }
  340. void vabs_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  341.   for (j=0; j<32; j++)
  342.     vabs(S[j], inc1, D[j], inco, n); }
  343. void vacos_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  344.   for (j=0; j<32; j++)
  345.     vacos(S[j], inc1, D[j], inco, n); }
  346. void vadd_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  347.   for (j=0; j<32; j++)
  348.     vadd(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  349. void vaint_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  350.   for (j=0; j<32; j++)
  351.     vaint(S[j], inc1, D[j], inco, n); }
  352. void vam_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  353.   for (j=0; j<32; j++)
  354.     vam(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, D[j], inco, n); }
  355. void vanint_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  356.   for (j=0; j<32; j++)
  357.     vanint(S[j], inc1, D[j], inco, n); }
  358. void vasbm_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  359.   for (j=0; j<32; j++)
  360.     vasbm(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, S[(j+6)%8], inc4, D[j], inco, n); }
  361. void vasin_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  362.   for (j=0; j<32; j++)
  363.     vasin(S[j], inc1, D[j], inco, n); }
  364. void vasm_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  365.   for (j=0; j<32; j++)
  366.     vasm(S[j], inc1, S[(j+4)%8], inc2, &rs1, D[j], inco, n); }
  367. void vatan_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  368.   for (j=0; j<32; j++)
  369.     vatan(S[j], inc1, D[j], inco, n); }
  370. void vatan2_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  371.   for (j=0; j<32; j++)
  372.     vatan2(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  373. void vatn2f_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  374.   for (j=0; j<32; j++)
  375.     vatn2f(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  376. void vavexp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  377.   for (j=0; j<32; j++)
  378.     vavexp(S[j], inc1, &rs1, D[j], inco, n); }
  379. void vavlin_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  380.   for (j=0; j<32; j++)
  381.     vavlin(S[j], inc1, &rs1, D[j], inco, n); }
  382. void vclip_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  383.   for (j=0; j<32; j++)
  384.     vclip(S[j], inc1, &rs1, &rs2, D[j], inco, n); }
  385. void vclr_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  386.   for (j=0; j<32; j++)
  387.     vclr(D[j], inco, n); }
  388. void vcmprs_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  389.   for (j=0; j<32; j++)
  390.     vcmprs(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  391. void vcos_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  392.   for (j=0; j<32; j++)
  393.     vcos(S[j], inc1, D[j], inco, n); }
  394. void vcosf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  395.   for (j=0; j<32; j++)
  396.     vcosf(S[j], inc1, D[j], inco, n); }
  397. void vdbpwr_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  398.   for (j=0; j<32; j++)
  399.     vdbpwr(S[j], inc1, &rs1, D[j], inco, n); }
  400. void vdiv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  401.   for (j=0; j<32; j++)
  402.     vdiv(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  403. void vdpsp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  404.   for (j=0; j<32; j++)
  405.     vdpsp((double*)S[j], inc1, D[j], inco, n); }
  406. void veucl2_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  407.   for (j=0; j<32; j++)
  408.     veucl2(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  409. void veucl3_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  410.   for (j=0; j<32; j++)
  411.     veucl3(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, D[j], inco, n); }
  412. void vexp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  413.   for (j=0; j<32; j++)
  414.     vexp(S[j], inc1, D[j], inco, n); }
  415. void vexp10_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  416.   for (j=0; j<32; j++)
  417.     vexp10(S[j], inc1, D[j], inco, n); }
  418. void vexp2_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  419.   for (j=0; j<32; j++)
  420.     vexp2(S[j], inc1, D[j], inco, n); }
  421. void vfill_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  422.   for (j=0; j<32; j++)
  423.     vfill(&rs1, D[j], inco, n); }
  424. void vfrac_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  425.   for (j=0; j<32; j++)
  426.     vfrac(S[j], inc1, D[j], inco, n); }
  427. void vfracn_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  428.   for (j=0; j<32; j++)
  429.     vfracn(S[j], inc1, D[j], inco, n); }
  430. void vgathr_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  431.   for (j=0; j<32; j++)
  432.     vgathr(S[j], ib, inc2, D[j], inco, n); }
  433. void vgen_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  434.   for (j=0; j<32; j++)
  435.     vgen(&rs1, &rs2, D[j], inco, n); }
  436. void viadd_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  437.   for (j=0; j<32; j++)
  438.     viadd((long*)S[j], inc1, (long*)S[(j+4)%8], inc2, (long*)D[j], inco, n); }
  439. void viand_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  440.   for (j=0; j<32; j++)
  441.     viand((long*)S[j], inc1, (long*)S[(j+4)%8], inc2, (long*)D[j], inco, n); }
  442. void viars_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  443.   for (j=0; j<32; j++)
  444.     viars((long*)S[j], inc1, n1,(long*)D[j], inco, n); }
  445. void viclip_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  446.   for (j=0; j<32; j++)
  447.     viclip(S[j], inc1, &rs1, &rs2, D[j], inco, n); }
  448. void vils_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  449.   for (j=0; j<32; j++)
  450.     vils((long*)S[j], inc1, n1, (long*)D[j], inco, n); }
  451. void vimag_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  452.   for (j=0; j<32; j++)
  453.     vimag(S[j], 2, D[j], inco, n); }
  454. void vimul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  455.   for (j=0; j<32; j++)
  456.     vimul((long*)S[j], inc1, (long*)S[(j+4)%8], inc2, (long*)D[j], inco, n); }
  457. void vindex_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  458.   for (j=0; j<32; j++)
  459.     vindex(S[j], S[(j+4)%8], inc2, D[j], inco, n); }
  460. void vineg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  461.   for (j=0; j<32; j++)
  462.     vineg((long*)S[j], inc1, (long*)D[j], inco, n); }
  463. void vintb_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  464.   for (j=0; j<32; j++)
  465.     vintb(S[j], inc1, S[(j+4)%8], inc2, &rs1, D[j], inco, n); }
  466. void vior_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  467.   for (j=0; j<32; j++)
  468.     vior((long*)S[j], inc1, (long*)S[(j+4)%8], inc2, (long*)D[j], inco, n); }
  469. void virs_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  470.   for (j=0; j<32; j++)
  471.     virs((long*)S[j], inc1, n1, (long*)D[j], inco, n); }
  472. void visub_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  473.   for (j=0; j<32; j++)
  474.     visub((long*)S[j], inc1, (long*)S[(j+4)%8], inc2, (long*)D[j], inco, n); }
  475. void vixor_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  476.   for (j=0; j<32; j++)
  477.     vixor((long*)S[j], inc1,(long*)S[(j+4)%8], inc2, (long*)D[j], inco, n); }
  478. void vlim_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  479.   for (j=0; j<32; j++)
  480.     vlim(S[j], inc1, &rs1, &rs2, D[j], inco, n); }
  481. void vlint_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  482.   for (j=0; j<32; j++)
  483.     vlint(S[j], n, S[(j+4)%8], inc2, D[j], inco, n ); }
  484. void vlmerg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  485.   for (j=0; j<32; j++)
  486.     vlmerg(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, D[j], inco, n); }
  487. void vlog_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  488.   for (j=0; j<32; j++)
  489.     vlog(S[j], inc1, D[j], inco, n); }
  490. void vlog10_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  491.   for (j=0; j<32; j++)
  492.     vlog10(S[j], inc1, D[j], inco, n); }
  493. void vlog2_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  494.   for (j=0; j<32; j++)
  495.     vlog2(S[j], inc1, D[j], inco, n); }
  496. void vma_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  497.   for (j=0; j<32; j++)
  498.     vma(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, D[j], inco, n); }
  499. void vmax_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  500.   for (j=0; j<32; j++)
  501.     vmax(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  502. void vmaxmg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  503.   for (j=0; j<32; j++)
  504.     vmaxmg(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  505. void vmin_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  506.   for (j=0; j<32; j++)
  507.     vmin(S[j], inc1, S[(j+4)%8], inc1, D[j], inco, n); }
  508. void vminmg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  509.   for (j=0; j<32; j++)
  510.     vminmg(S[j], inc1, S[(j+4)%8], inc1, D[j], inco, n); }
  511. void vmma_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  512.   for (j=0; j<32; j++)
  513.     vmma(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, S[(j+6)%8], inc4, D[j], inco, n); }
  514. void vmmsb_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  515.   for (j=0; j<32; j++)
  516.     vmmsb(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, S[(j+6)%8], inc4, D[j], inco, n); }
  517. void vmov_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  518.   for (j=0; j<32; j++)
  519.     vmov(S[j], inc1, D[j], inco, n); }
  520. void vmsa_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  521.   for (j=0; j<32; j++)
  522.     vmsa(S[j], inc1, S[(j+4)%8], inc2, &rs1, D[j], inco, n); }
  523. void vmsb_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  524.   for (j=0; j<32; j++)
  525.     vmsb(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, D[j], inco, n); }
  526. void vmul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  527.   for (j=0; j<32; j++)
  528.     vmul(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  529. void vnabs_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  530.   for (j=0; j<32; j++)
  531.     vnabs(S[j], inc1, D[j], inco, n); }
  532. void vneg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  533.   for (j=0; j<32; j++)
  534.     vneg(S[j], inc1, D[j], inco, n); }
  535. void vnmsa_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  536.   for (j=0; j<32; j++)
  537.     vnmsa(S[j], inc1, S[(j+4)%8], inc2, &rs1, D[j], inco, n); }
  538. void vpmerg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  539.   for (j=0; j<32; j++)
  540.     vpmerg(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, D[j], inco, n); }
  541. void vpoly_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  542.   for (j=0; j<32; j++)
  543.     vpoly(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n, 8); }
  544. void vqint_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  545.   for (j=0; j<32; j++)
  546.     vqint(S[j], n, S[(j+4)%8], inc2, D[j], inco, n ); }
  547. void vramp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  548.   for (j=0; j<32; j++)
  549.     vramp(&rs1, &rs2, D[j], inco, n); }
  550. void vrand_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  551.   for (j=0; j<32; j++)
  552.     vrand(&idx, D[j], inco, n); }
  553. void vreal_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  554.   for (j=0; j<32; j++)
  555.     vreal(S[j], 2, D[j], inco, n); }
  556. void vrecip_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  557.   for (j=0; j<32; j++)
  558.     vrecip(S[j], inc1, D[j], inco, n); }
  559. void vrsqrt_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  560.   for (j=0; j<32; j++)
  561.     vrsqrt(S[j], inc1, D[j], inco, n); }
  562. void vrvrs_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  563.   for (j=0; j<32; j++)
  564.     vrvrs(S[j], inc1, n); }
  565. void vsadd_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  566.   for (j=0; j<32; j++)
  567.     vsadd(S[j], inc1, &rs1, D[j], inco, n); }
  568. void vsbm_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  569.   for (j=0; j<32; j++)
  570.     vsbm(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, D[j], inco, n); }
  571. void vsbsbm_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  572.   for (j=0; j<32; j++)
  573.     vsbsbm(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, S[(j+6)%8], inc4, D[j], inco, n); }
  574. void vsbsm_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  575.   for (j=0; j<32; j++)
  576.     vsbsm(S[j], inc1, S[(j+4)%8], inc2, &rs1, D[j], inco, n); }
  577. void vscatr_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  578.   for (j=0; j<32; j++)
  579.     vscatr(S[j], inc1, ib, inc2, D[j], n); }
  580. void vsdiv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  581.   for (j=0; j<32; j++)
  582.     vsdiv(S[j], inc1, &rs1, D[j], inco, n); }
  583. void vsimps_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  584.   for (j=0; j<32; j++)
  585.     vsimps(S[j], inc1, D[j], inco, n, &rs1); }
  586. void vsin_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  587.   for (j=0; j<32; j++)
  588.     vsin(S[j], inc1, D[j], inco, n); }
  589. void vsinf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  590.   for (j=0; j<32; j++)
  591.     vsinf(S[j], inc1, D[j], inco, n); }
  592. void vsinrf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  593.   for (j=0; j<32; j++)
  594.     vsinrf(S[j], inc1, D[j], inco, n); }
  595. void vsm2sa_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  596.   for (j=0; j<32; j++)
  597.     vsm2sa(S[j], inc1, &rs1, S[(j+4)%8], inc2, &rs2, &rs3, D[j], inco, n); }
  598. void vsma_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  599.   for (j=0; j<32; j++)
  600.     vsma(S[j], inc1, &rs1, S[(j+4)%8], inc2, D[j], inco, n); }
  601. void vsma2_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  602.   for (j=0; j<32; j++)
  603.     vsma2(S[j], &rs1, S[(j+4)%8], &rs2, inc, D[j], inco, n); }
  604. void vsma3_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  605.   for (j=0; j<32; j++)
  606.     vsma3(S[j], &rs1, S[(j+4)%8], &rs2, S[(j+2)%8], &rs3, inc, D[j], inco, n); }
  607. void vsma4_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  608.   for (j=0; j<32; j++)
  609.     vsma4(S[j], &rs1, S[(j+4)%8], &rs2, S[(j+2)%8], &rs3, S[(j+6)%8], &rs4, inc, D[j], inco, n); }
  610. void vsmsa_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  611.   for (j=0; j<32; j++)
  612.     vsmsa(S[j], inc1, &rs1, &rs2, D[j], inco, n); }
  613. void vsmsb_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  614.   for (j=0; j<32; j++)
  615.     vsmsb(S[j], inc1, &rs1, S[(j+4)%8], inc2, D[j], inco, n); }
  616. void vsmul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  617.   for (j=0; j<32; j++)
  618.     vsmul(S[j], inc1, &rs1, D[j], inco, n); }
  619. void vspdp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  620.   for (j=0; j<32; j++)
  621.     vspdp(S[j], inc1, (double*)D[j], inco, n); }
  622. void vsq_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  623.   for (j=0; j<32; j++)
  624.     vsq(S[j], inc1, D[j], inco, n); }
  625. void vsqrt_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  626.   for (j=0; j<32; j++)
  627.     vsqrt(S[j], inc1, D[j], inco, n); }
  628. void vssq_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  629.   for (j=0; j<32; j++)
  630.     vssq(S[j], inc1, D[j], inco, n); }
  631. void vsub_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  632.   for (j=0; j<32; j++)
  633.     vsub(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  634. void vsum_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  635.   for (j=0; j<32; j++)
  636.     vsum(S[j], inc1, D[j], inco, n, &rs1); }
  637. void vswap_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  638.   for (j=0; j<32; j++)
  639.     vswap(S[j], inc1, S[(j+4)%8], inc2, n); }
  640. void vtabi_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  641.   for (j=0; j<32; j++)
  642.     vtabi(S[j], inc1, &rs1, &rs2, S[(j+4)%8], D[j], inco, n, n); }
  643. void vtan_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  644.   for (j=0; j<32; j++)
  645.     vtan(S[j], inc1, D[j], inco, n); }
  646. void vtanf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  647.   for (j=0; j<32; j++)
  648.     vtanf(S[j], inc1, D[j], inco, n); }
  649. void vthr_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  650.   for (j=0; j<32; j++)
  651.     vthr(S[j], inc1, &rs1, D[j], inco, n); }
  652. void vthres_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  653.   for (j=0; j<32; j++)
  654.     vthres(S[j], inc1, &rs1, D[j], inco, n); }
  655. void vtrapz_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  656.   for (j=0; j<32; j++)
  657.     vtrapz(S[j], inc1, D[j], inco, n, &rs1); }
  658. void vxcs_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  659.   for (j=0; j<32; j++)
  660.     vxcs(S[j], D[j], 2, &rs1, &rs2, n); }
  661. void vxcsf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  662.   for (j=0; j<32; j++)
  663.     vxcsf(S[j], inc1, D[j], 2, &rs1, &rs2, n); }
  664. void wiener_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  665.   for (j=0; j<32; j++)
  666.     wiener(n, S[j], S[(j+4)%8], D[j], D[(j+4)%8], ndf, &idx); }
  667.  
  668. #else    /* !BIG */
  669. void acorf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  670.     acorf(rv1, rvo, n, n); }
  671. #if 1
  672. void acort_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  673.   {
  674.   for (j=0; j<32; j++)
  675.     {
  676.     acort(rv1, rvo, n, n);
  677.     }
  678.   }
  679. }
  680. #else
  681. void acort_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  682.     acort(rv1, rvo, n, n); }
  683. #endif
  684. void aspec_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  685.     aspec(cv1, inc1, rvo, inco, n); }
  686. /*    aspec(cv1, rvio, n); } */
  687. void blkman_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  688.     blkman(rv1, inc1, rvo, inco, n); }
  689. void ccdotp_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  690.     ccdotp(cv1, 2, cv2, 2, cso, n); }
  691. void ccorf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  692.     ccorf(rv1, rv2, rvo, n, n); }
  693. void ccort_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  694.     ccort(rv1, rv2, rvo, n, n); }
  695. void cdotpr_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  696.     cdotpr(cv1, 2, cv2, 2, cso, n); }
  697. void cfft_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  698.     cfft(cvio, n, flg); }
  699. void cfftf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  700.     cfftf(cv1, 2, cvo, 2, n); }
  701. /**
  702. cfftf_64c_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  703.     cfftf_64c(cv1, 2, cvo, 2, n); }
  704.  **/
  705. void cffti_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  706.     cffti(cv1,2, cvo, 2, n); }
  707. void cfftsc_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  708.     cfftsc(cvo, n); }
  709. void convd_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  710.     convd(rv1, inc1, rv2, inc2, rvo, inco, n, 32, ndf); }
  711. void cpow_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  712.     cpow(cv1, 2, &rs1, rv2, inc2, &rs2, rvo, inco, n); }
  713. void crvdiv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  714.     crvdiv(cv1, 2, rv2, inc2, cvo, 2, n); }
  715. void crvmul_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  716.     crvmul(cv1, 2, rv2, inc2, cvo, 2, n); }
  717. void cspec_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  718.     cspec(cv1, cv2, cvo, n); }
  719. void cvabs_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  720.     cvabs(cv1, 2, rvo, inco, n); }
  721. void cvadd_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  722.     cvadd(cv1, 2, cv2, 2, cvo, 2, n); }
  723. void cvcml_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  724.     cvcml(cv1, 2, cv2, 2, cvo, 2, n); }
  725. void cvcmla_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  726.     cvcmla(cv1, 2, cv2, 2, cv3, 2, cvo, 2, n); }
  727. void cvcomb_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  728.     cvcomb(rv1, inc1, rv2, inc2, cvo, 2, n); }
  729. void cvconj_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  730.     cvconj(cv1, 2, cvo, 2, n); }
  731. void cvcsml_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  732.     cvcsml(cv1, 2, cs1, cvo, 2, n); }
  733. void cvdiv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  734.     cvdiv(cv1, 2, cv2, 2, cvo, 2, n); }
  735. void cvexp_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  736.     cvexp(rv1, inc1, cvo, 2, n); }
  737. void cvfill_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  738.     cvfill(cs1, cvo, 2, n); }
  739. void cvma_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  740.     cvma(cv1, 2, cv2, 2, cv3, 2, cvo, 2, n, 1); }
  741. void cvmags_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  742.     cvmags(cv1, 2, rvo, inco, n); }
  743. void cvmexp_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  744.     cvmexp(rv1, inc1, cv2, 2, cvo, 2, n); }
  745. void cvmgsa_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  746.     cvmgsa(cv1, 2, rv2, inc2, rvo, inco, n); }
  747. void cvml_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  748.     cvml(cv1, 2, cv2, 2, cvo, 2, n); }
  749. void cvmla_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  750.     cvmla(cv1, 2, cv2, 2, cv3, 2, cvo, 2, n); }
  751. void cvmov_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  752.     cvmov(cv1, 2, cvo, 2, n); }
  753. void cvmul_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  754.     cvmul(cv1, 2, cv2, 2, cvo, 2, n, flg); }
  755. void cvneg_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  756.     cvneg(cv1, 2, cvo, 2, n); }
  757. void cvphas_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  758.     cvphas(cv1, 2, rvo, inco, n); }
  759. void cvrcip_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  760.     cvrcip(cv1, 2, cvo, 2, n); }
  761. void cvreal_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  762.     cvreal(rv1, inc1, cvo, 2, n); }
  763. void cvsma_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  764.     cvsma(cv1, 2, cs1, cv2, 2, cvo, 2, n); }
  765. void cvsmul_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  766.     cvsmul(cv1, 2, &rs1, cvo, 2, n); }
  767. void cvsqrt_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  768.     cvsqrt(cv1, 2, cvo, 2, n); }
  769. void cvsub_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  770.     cvsub(cv1, 2, cv2, 2, cvo, 2, n); }
  771. void deq22_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  772.     deq22(rv1, inc1, rv2, rvo, inco, n); }
  773. void dotpr_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  774.     dotpr(rv1, inc1, rv2, inc2, &rso, n); }
  775. void envel_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  776.     envel(rv1, rvo, n); }
  777. void fftwts_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  778.     fftwts(cvo, m, n); }
  779. void fix4_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  780.     fix4(rv1, inc1, ivo, inco, n); }
  781. void fix2n_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  782.     fix2n(rv1, inc1, svo, inco, n); }
  783. void fix4n_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  784.     fix4n(rv1, inc1, ivo, inco, n); }
  785. void fixbn_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  786.     fixbn(rv1, inc1, bvo, inco, n); }
  787. void flt2_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  788.     flt2(sv1, inc1, rvo, inco, n); }
  789. void flt2iq_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  790.     flt2iq(sv1, inc1, rvo, rvo, n); }
  791. void flt4_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  792.     flt4(iv1, inc1, rvo, inco, n); }
  793. void fltb_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  794.     fltb(bv1, inc1, rvo, inco, n); }
  795. void fltbu_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  796.     fltbu(bv1, inc1, rvo, inco, n); }
  797. void fxsl2n_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  798.     fxsl2n(rv1, inc1, &rs1, &rs2, svo, inco, n); }
  799. void fxsl4n_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  800.     fxsl4n(rv1, inc1, &rs1, &rs2, ivo, inco, n); }
  801. void fxslbn_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  802.     fxslbn(rv1, inc1, &rs1, &rs2, bvo, inco, n); }
  803. void gcosf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  804.     gcosf(rvo, inco, &rs1, &rs2, n); }
  805. void gcexp_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  806.     gcexp(cs1, cs2, cvo, 2, n); }
  807. void hamm_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  808.     hamm(rv1, inc1, rvo, inco, n); }
  809. void hann_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  810.     hann(rv1, inc1, rvo, inco, n, flg); }
  811. void hlbrt_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  812.     hlbrt(rv1, rvo, n); }
  813. void lveq_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  814.     lveq(rv1, inc1, rv2, inc2, rvo, inco, n); }
  815. void lvge_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  816.     lvge(rv1, inc1, rv2, inc2, rvo, inco, n); }
  817. void lvgt_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  818.     lvgt(rv1, inc1, rv2, inc2, rvo, inco, n); }
  819. void lvle_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  820.     lvle(rv1, inc1, rv2, inc2, rvo, inco, n); }
  821. void lvlt_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  822.     lvlt(rv1, inc1, rv2, inc2, rvo, inco, n); }
  823. void lvne_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  824.     lvne(rv1, inc1, rv2, inc2, rvo, inco, n); }
  825. void lvnot_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  826.     lvnot(rv1, inc1, rvo, inco, n); }
  827. void maxmgv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  828.     maxmgv(rv1, inc1, &rso, &idx, n); }
  829. void maxv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  830.     maxv(rv1, inc1, &rso, &idx, n); }
  831. void meamgv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  832.     meamgv(rv1, inc1, &rso, n); }
  833. void meanv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  834.     meanv(rv1, inc1, &rso, n); }
  835. void measqv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  836.     measqv(rv1, inc1, &rso, n); }
  837. void minmgv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  838.     minmgv(rv1, inc1, &rso, &idx, n); }
  839. void minv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  840.     minv(rv1, inc1, &rso, &idx, n); }
  841. void mvessq_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  842.     mvessq(rv1, inc1, &rso, n); }
  843. void mxmov_time (m,n) long m,n; { long i; n=(n>512)?512:n; for(i=0; i<m; i++)
  844.     mxmov(rv1, 1, n, rv1, 1, n, n, n); }
  845. void mxmul_time (m,n) long m,n; { long i; n=(n>128)?128:n; for(i=0; i<m; i++)
  846.     mxmul(rv1, 1, n, rv1, 1, n, rvo, 1, n, n, n, n); }
  847. void mxmla_time (m,n) long m,n; { long i; n=(n>128)?128:n; for(i=0; i<m; i++)
  848.     mxmla(rv1, 1, n, rv1, 1, n, rv1, 1, n, n, n, n); }
  849. void mxmls_time (m,n) long m,n; { long i; n=(n>128)?128:n; for(i=0; i<m; i++)
  850.     mxmls(rv1, 1, n, rv1, 1, n, rv1, 1, n, n, n, n); }
  851. void polar_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  852.     polar(rv1, 2, rvo, 2, n); }
  853. void rect_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  854.     rect(rv1, 2, rvo, 2, n); }
  855. void reqs_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  856.     reqs(rv1, inc1, &rs1, n, &idx); }
  857. void rfft_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  858.     rfft(rvio, n, flg); }
  859. void rfftf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  860.     rfftf(rv1, inc1, cvo, 2, &rs1, n); }
  861. void rffti_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  862.     rffti(rv1, 2, &rs1, rvo, inco, n); }
  863. void rfftsc_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  864.     rfftsc(rvio, n, flg1, flg2); }
  865. void rges_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  866.     rges(rv1, inc1, &rs1, n, &idx); }
  867. void rgts_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  868.     rgts(rv1, inc1, &rs1, n, &idx); }
  869. void rlts_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  870.     rlts(rv1, inc1, &rs1, n, &idx); }
  871. void rmax_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  872.     rmax(rv1, inc1, &rso, &idx, n); }
  873. void rmaxmg_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  874.     rmaxmg(rv1, inc1, &rso, &idx, n); }
  875. void rmin_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  876.     rmin(rv1, inc1, &rso, &idx, n); }
  877. void rminmg_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  878.     rminmg(rv1, inc1, &rso, &idx, n); }
  879. void rmsqv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  880.     rmsqv(rv1, inc1, &rso, n); }
  881. void rnes_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  882.     rnes(rv1, inc1, &rs1, n, &idx); }
  883. void rsve_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  884.     rsve(rv1, inc1, &rs1, rvo, inco, n, 32); }
  885. void shphu_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  886.     shphu(rv1, inc1, &rs1, rvo, inco, n); }
  887. void shphuf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  888.     shphuf(rv1, inc1, &rs1, rvo, inco, n); }
  889. void sn2_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  890.     sn2(rv1, inc1, rv2, inc2, &rso, n); }
  891. void svdiv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  892.     svdiv(&rs1, rv1, inc1, rvo, inco, n); }
  893. void sve_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  894.     sve(rv1, inc1, &rso, n); }
  895. void svemg_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  896.     svemg(rv1, inc1, &rso, n); }
  897. void svesq_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  898.     svesq(rv1, inc1, &rso, n); }
  899. void svessq_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  900.     svessq(rv1, inc1, &rso, n); }
  901. void tconv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  902.     tconv(rv1, inc1, rv2, inc2, rvo, inco, n, 32, n); }
  903. void trans_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  904.     trans(rv1, cv1, cvo, n); }
  905. void vaam_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  906.     vaam(rv1, inc1, rv2, inc2, rv3, inc3, rv4, inc4, rvo, inco, n); }
  907. void vabs_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  908.     vabs(rv1, inc1, rvo, inco, n); }
  909. void vacos_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  910.     vacos(rv1, inc1, rvo, inco, n); }
  911. void vadd_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  912.     vadd(rv1, inc1, rv2, inc2, rvo, inco, n); }
  913. void vaint_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  914.     vaint(rv1, inc1, rvo, inco, n); }
  915. void vam_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  916.     vam(rv1, inc1, rv2, inc2, rv3, inc3, rvo, inco, n); }
  917. void vanint_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  918.     vanint(rv1, inc1, rvo, inco, n); }
  919. void vasbm_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  920.     vasbm(rv1, inc1, rv2, inc2, rv3, inc3, rv4, inc4, rvo, inco, n); }
  921. void vasin_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  922.     vasin(rv1, inc1, rvo, inco, n); }
  923. void vasm_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  924.     vasm(rv1, inc1, rv2, inc2, &rs1, rvo, inco, n); }
  925. void vatan_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  926.     vatan(rv1, inc1, rvo, inco, n); }
  927. void vatan2_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  928.     vatan2(rv1, inc1, rv2, inc2, rvo, inco, n); }
  929. void vatn2f_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  930.     vatn2f(rv1, inc1, rv2, inc2, rvo, inco, n); }
  931. void vavexp_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  932.     vavexp(rv1, inc1, &rs1, rvo, inco, n); }
  933. void vavlin_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  934.     vavlin(rv1, inc1, &rs1, rvo, inco, n); }
  935. void vclip_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  936.     vclip(rv1, inc1, &rs1, &rs2, rvo, inco, n); }
  937. void vclr_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  938.     vclr(rvo, inco, n); }
  939. void vcmprs_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  940.     vcmprs(rv1, inc1, rv2, inc2, rvo, inco, n); }
  941. void vcos_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  942.     vcos(rv1, inc1, rvo, inco, n); }
  943. void vcosf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  944.     vcosf(rv1, inc1, rvo, inco, n); }
  945. void vdbpwr_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  946.     vdbpwr(rv1, inc1, &rs1, rvo, inco, n); }
  947. void vdiv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  948.     vdiv(rv1, inc1, rv2, inc2, rvo, inco, n); }
  949. void vdpsp_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  950.     vdpsp(dv1, inc1, rvo, inco, n); }
  951. void veucl2_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  952.     veucl2(rv1, inc1, rv2, inc2, rvo, inco, n); }
  953. void veucl3_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  954.     veucl3(rv1, inc1, rv2, inc2, rv3, inc3, rvo, inco, n); }
  955. void vexp_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  956.     vexp(rv1, inc1, rvo, inco, n); }
  957. void vexp10_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  958.     vexp10(rv1, inc1, rvo, inco, n); }
  959. void vexp2_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  960.     vexp2(rv1, inc1, rvo, inco, n); }
  961. void vfill_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  962.     vfill(&rs1, rvo, inco, n); }
  963. void vfrac_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  964.     vfrac(rv1, inc1, rvo, inco, n); }
  965. void vfracn_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  966.     vfracn(rv1, inc1, rvo, inco, n); }
  967. void vgathr_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  968.     vgathr(rv1, ib, inc2, rvo, inco, n); }
  969. void vgen_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  970.     vgen(&rs1, &rs2, rvo, inco, n); }
  971. void viadd_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  972.     viadd(iv1, inc1, iv2, inc2, ivo, inco, n); }
  973. void viand_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  974.     viand(iv1, inc1, iv2, inc2, ivo, inco, n); }
  975. void viars_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  976.     viars(iv1, inc1, n1, ivo, inco, n); }
  977. void viclip_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  978.     viclip(rv1, inc1, &rs1, &rs2, rvo, inco, n); }
  979. void vils_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  980.     vils(iv1, inc1, n1, ivo, inco, n); }
  981. void vimag_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  982.     vimag(cv1, 2, rvo, inco, n); }
  983. void vimul_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  984.     vimul(iv1, inc1, iv2, inc2, ivo, inco, n); }
  985. void vindex_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  986.     vindex(rv1, rv2, inc2, rvo, inco, n); }
  987. void vineg_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  988.     vineg(iv1, inc1, ivo, inco, n); }
  989. void vintb_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  990.     vintb(rv1, inc1, rv2, inc2, &rs1, rvo, inco, n); }
  991. void vior_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  992.     vior(iv1, inc1, iv2, inc2, ivo, inco, n); }
  993. void virs_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  994.     virs(iv1, inc1, n1, ivo, inco, n); }
  995. void visub_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  996.     visub(iv1, inc1, iv2, inc2, ivo, inco, n); }
  997. void vixor_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  998.     vixor(iv1, inc1, iv2, inc2, ivo, inco, n); }
  999. void vlim_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1000.     vlim(rv1, inc1, &rs1, &rs2, rvo, inco, n); }
  1001. void vlint_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1002.     vlint(rv1, n, rv2, inc2, rvo, inco, n); }
  1003. void vlmerg_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1004.     vlmerg(rv1, inc1, rv2, inc2, rv3, inc3, rvo, inco, n); }
  1005. void vlog_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1006.     vlog(rv1, inc1, rvo, inco, n); }
  1007. void vlog10_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1008.     vlog10(rv1, inc1, rvo, inco, n); }
  1009. void vlog2_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1010.     vlog2(rv1, inc1, rvo, inco, n); }
  1011. void vma_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1012.     vma(rv1, inc1, rv2, inc2, rv3, inc3, rvo, inco, n); }
  1013. void vmax_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1014.     vmax(rv1, inc1, rv2, inc2, rvo, inco, n); }
  1015. void vmaxmg_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1016.     vmaxmg(rv1, inc1, rv2, inc2, rvo, inco, n); }
  1017. void vmin_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1018.     vmin(rv1, inc1, rv1, inc1, rvo, inco, n); }
  1019. void vminmg_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1020.     vminmg(rv1, inc1, rv1, inc1, rvo, inco, n); }
  1021. void vmma_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1022.     vmma(rv1, inc1, rv2, inc2, rv3, inc3, rv4, inc4, rvo, inco, n); }
  1023. void vmmsb_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1024.     vmmsb(rv1, inc1, rv2, inc2, rv3, inc3, rv4, inc4, rvo, inco, n); }
  1025. void vmov_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1026.     vmov(rv1, inc1, rvo, inco, n); }
  1027. void vmsa_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1028.     vmsa(rv1, inc1, rv2, inc2, &rs1, rvo, inco, n); }
  1029. void vmsb_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1030.     vmsb(rv1, inc1, rv2, inc2, rv3, inc3, rvo, inco, n); }
  1031. void vmul_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1032.     vmul(rv1, inc1, rv2, inc2, rvo, inco, n); }
  1033. void vnabs_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1034.     vnabs(rv1, inc1, rvo, inco, n); }
  1035. void vneg_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1036.     vneg(rv1, inc1, rvo, inco, n); }
  1037. void vnmsa_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1038.     vnmsa(rv1, inc1, rv2, inc2, &rs1, rvo, inco, n); }
  1039. void vpmerg_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1040.     vpmerg(rv1, inc1, rv2, inc2, rv3, inc3, rvo, inco, n); }
  1041. void vpoly_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1042.     vpoly(rv1, inc1, rv2, inc2, rvo, inco, n, 8); }
  1043. void vqint_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1044.     vqint(rv1, n, rv2, inc2, rvo, inco, n); }
  1045. void vramp_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1046.     vramp(&rs1, &rs2, rvo, inco, n); }
  1047. void vrand_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1048.     vrand(&idx, rvo, inco, n); }
  1049. void vreal_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1050.     vreal(cv1, 2, rvo, inco, n); }
  1051. void vrecip_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1052.     vrecip(rv1, inc1, rvo, inco, n); }
  1053. void vrsqrt_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1054.     vrsqrt(rv1, inc1, rvo, inco, n); }
  1055. void vrvrs_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1056.     vrvrs(rv1, inc1, n); }
  1057. void vsadd_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1058.     vsadd(rv1, inc1, &rs1, rvo, inco, n); }
  1059. void vsbm_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1060.     vsbm(rv1, inc1, rv2, inc2, rv3, inc3, rvo, inco, n); }
  1061. void vsbsbm_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1062.     vsbsbm(rv1, inc1, rv2, inc2, rv3, inc3, rv4, inc4, rvo, inco, n); }
  1063. void vsbsm_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1064.     vsbsm(rv1, inc1, rv2, inc2, &rs1, rvo, inco, n); }
  1065. void vscatr_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1066.     vscatr(rv1, inc1, ib, inc2, rvo, n); }
  1067. void vsdiv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1068.     vsdiv(rv1, inc1, &rs1, rvo, inco, n); }
  1069. void vsimps_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1070.     vsimps(rv1, inc1,rvo, inco, n, &rs1 ); }
  1071. void vsin_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1072.     vsin(rv1, inc1, rvo, inco, n); }
  1073. void vsinf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1074.     vsinf(rv1, inc1, rvo, inco, n); }
  1075. void vsinrf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1076.     vsinrf(rv1, inc1, rvo, inco, n); }
  1077. void vsm2sa_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1078.     vsm2sa(rv1, inc1, &rs1, rv2, inc2, &rs2, &rs3, rvo, inco, n); }
  1079. void vsma_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1080.     vsma(rv1, inc1, &rs1, rv2, inc2, rvo, inco, n); }
  1081. void vsma2_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1082.     vsma2(rv1, &rs1, rv2, &rs2, inc, rvo, inco, n); }
  1083. void vsma3_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1084.     vsma3(rv1, &rs1, rv2, &rs2, rv3, &rs3, inc, rvo, inco, n); }
  1085. void vsma4_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1086.     vsma4(rv1, &rs1, rv2, &rs2, rv3, &rs3, rv4, &rs4, inc, rvo, inco, n); }
  1087. void vsmsa_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1088.     vsmsa(rv1, inc1, &rs1, &rs2, rvo, inco, n); }
  1089. void vsmsb_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1090.     vsmsb(rv1, inc1, &rs1, rv2, inc2, rvo, inco, n); }
  1091. void vsmul_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1092.     vsmul(rv1, inc1, &rs1, rvo, inco, n); }
  1093. void vspdp_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1094.     vspdp(rv1, inc1, dvo, inco, n); }
  1095. void vsq_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1096.     vsq(rv1, inc1, rvo, inco, n); }
  1097. void vsqrt_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1098.     vsqrt(rv1, inc1, rvo, inco, n); }
  1099. void vssq_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1100.     vssq(rv1, inc1, rvo, inco, n); }
  1101. void vsub_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1102.     vsub(rv1, inc1, rv2, inc2, rvo, inco, n); }
  1103. void vsum_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1104.     vsum(rv1, inc1, rvo, inco, n, &rs1); }
  1105. void vswap_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1106.     vswap(rv1, inc1, rv2, inc2, n); }
  1107. void vtabi_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1108.     vtabi(rv1, inc1, &rs1, &rs2, rv2, rvo, inco, n, n); }
  1109. void vtan_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1110.     vtan(rv1, inc1, rvo, inco, n); }
  1111. void vtanf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1112.     vtanf(rv1, inc1, rvo, inco, n); }
  1113. void vthr_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1114.     vthr(rv1, inc1, &rs1, rvo, inco, n); }
  1115. void vthres_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1116.     vthres(rv1, inc1, &rs1, rvo, inco, n); }
  1117. void vtrapz_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1118.     vtrapz(rv1, inc1, rvo, inco, n, &rs1); }
  1119. void vxcs_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1120.     vxcs(rv1, cvo, inco, &rs1, &rs2, n); }
  1121. void vxcsf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1122.     vxcsf(rv1, inc1, cvo, 2, &rs1, &rs2, n); }
  1123. void wiener_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1124.     wiener(n, rv1, rv2, rvo, rvo, ndf, &idx); }
  1125. #endif
  1126.