/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / clib / progs / meschach / !Meschach / h / matrix2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 6d 62 65 72 20 6f 66 20 | 74 79 70 65 73 20 2a 2f |mber of |types */|
|00000010| 0a 20 20 20 4d 45 4d 5f | 41 52 52 41 59 20 2a 69 |.   MEM_|ARRAY *i|
|00000020| 6e 66 6f 5f 73 75 6d 3b | 20 20 20 20 20 20 2f 2a |nfo_sum;|      /*|
|00000030| 20 6c 6f 63 61 6c 20 61 | 72 72 61 79 20 66 6f 72 | local a|rray for|
|00000040| 20 6b 65 65 70 69 6e 67 | 20 74 72 61 63 6b 20 6f | keeping| track o|
|00000050| 66 20 6d 65 6d 6f 72 79 | 20 2a 2f 0a 7d 20 4d 45 |f memory| */.} ME|
|00000060| 4d 5f 43 4f 4e 4e 45 43 | 54 3b 0a 0a 2f 2a 20 6d |M_CONNEC|T;../* m|
|00000070| 61 78 20 6e 75 6d 62 65 | 72 20 6f 66 20 6c 69 73 |ax numbe|r of lis|
|00000080| 74 73 20 6f 66 20 74 79 | 70 65 73 20 2a 2f 0a 23 |ts of ty|pes */.#|
|00000090| 64 65 66 69 6e 65 20 4d | 45 4d 5f 43 4f 4e 4e 45 |define M|EM_CONNE|
|000000a0| 43 54 5f 4d 41 58 5f 4c | 49 53 54 53 20 20 20 20 |CT_MAX_L|ISTS    |
|000000b0| 35 0a 0a 0a 23 65 6e 64 | 69 66 0a 46 69 6c 65 44 |5...#end|if.FileD|
|000000c0| 61 74 61 82 6f 6c 64 6e | 61 6d 65 73 00 00 00 0d |ata.oldn|ames....|
|000000d0| 0f 00 00 45 ff ff ff 70 | ee 3f 17 03 00 03 03 0a |...E...p|.?......|
|000000e0| 2f 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*******|********|
|000000f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0a 2a 2a 0a 2a |********|***.**.*|
|00000130| 2a 20 43 6f 70 79 72 69 | 67 68 74 20 28 43 29 20 |* Copyri|ght (C) |
|00000140| 31 39 39 33 20 44 61 76 | 69 64 20 45 2e 20 53 74 |1993 Dav|id E. St|
|00000150| 65 77 61 72 64 20 26 20 | 5a 62 69 67 6e 69 65 77 |eward & |Zbigniew|
|00000160| 20 4c 65 79 6b 2c 20 61 | 6c 6c 20 72 69 67 68 74 | Leyk, a|ll right|
|00000170| 73 20 72 65 73 65 72 76 | 65 64 2e 0a 2a 2a 0a 2a |s reserv|ed..**.*|
|00000180| 2a 09 09 09 20 20 20 20 | 20 4d 65 73 63 68 61 63 |*...    | Meschac|
|00000190| 68 20 4c 69 62 72 61 72 | 79 0a 2a 2a 20 0a 2a 2a |h Librar|y.** .**|
|000001a0| 20 54 68 69 73 20 4d 65 | 73 63 68 61 63 68 20 4c | This Me|schach L|
|000001b0| 69 62 72 61 72 79 20 69 | 73 20 70 72 6f 76 69 64 |ibrary i|s provid|
|000001c0| 65 64 20 22 61 73 20 69 | 73 22 20 77 69 74 68 6f |ed "as i|s" witho|
|000001d0| 75 74 20 61 6e 79 20 65 | 78 70 72 65 73 73 20 0a |ut any e|xpress .|
|000001e0| 2a 2a 20 6f 72 20 69 6d | 70 6c 69 65 64 20 77 61 |** or im|plied wa|
|000001f0| 72 72 61 6e 74 79 20 6f | 66 20 61 6e 79 20 6b 69 |rranty o|f any ki|
|00000200| 6e 64 20 77 69 74 68 20 | 72 65 73 70 65 63 74 20 |nd with |respect |
|00000210| 74 6f 20 74 68 69 73 20 | 73 6f 66 74 77 61 72 65 |to this |software|
|00000220| 2e 20 0a 2a 2a 20 49 6e | 20 70 61 72 74 69 63 75 |. .** In| particu|
|00000230| 6c 61 72 20 74 68 65 20 | 61 75 74 68 6f 72 73 20 |lar the |authors |
|00000240| 73 68 61 6c 6c 20 6e 6f | 74 20 62 65 20 6c 69 61 |shall no|t be lia|
|00000250| 62 6c 65 20 66 6f 72 20 | 61 6e 79 20 64 69 72 65 |ble for |any dire|
|00000260| 63 74 2c 20 0a 2a 2a 20 | 69 6e 64 69 72 65 63 74 |ct, .** |indirect|
|00000270| 2c 20 73 70 65 63 69 61 | 6c 2c 20 69 6e 63 69 64 |, specia|l, incid|
|00000280| 65 6e 74 61 6c 20 6f 72 | 20 63 6f 6e 73 65 71 75 |ental or| consequ|
|00000290| 65 6e 74 69 61 6c 20 64 | 61 6d 61 67 65 73 20 61 |ential d|amages a|
|000002a0| 72 69 73 69 6e 67 20 0a | 2a 2a 20 69 6e 20 61 6e |rising .|** in an|
|000002b0| 79 20 77 61 79 20 66 72 | 6f 6d 20 75 73 65 20 6f |y way fr|om use o|
|000002c0| 66 20 74 68 65 20 73 6f | 66 74 77 61 72 65 2e 0a |f the so|ftware..|
|000002d0| 2a 2a 20 0a 2a 2a 20 45 | 76 65 72 79 6f 6e 65 20 |** .** E|veryone |
|000002e0| 69 73 20 67 72 61 6e 74 | 65 64 20 70 65 72 6d 69 |is grant|ed permi|
|000002f0| 73 73 69 6f 6e 20 74 6f | 20 63 6f 70 79 2c 20 6d |ssion to| copy, m|
|00000300| 6f 64 69 66 79 20 61 6e | 64 20 72 65 64 69 73 74 |odify an|d redist|
|00000310| 72 69 62 75 74 65 20 74 | 68 69 73 0a 2a 2a 20 4d |ribute t|his.** M|
|00000320| 65 73 63 68 61 63 68 20 | 4c 69 62 72 61 72 79 2c |eschach |Library,|
|00000330| 20 70 72 6f 76 69 64 65 | 64 3a 0a 2a 2a 20 20 31 | provide|d:.**  1|
|00000340| 2e 20 20 41 6c 6c 20 63 | 6f 70 69 65 73 20 63 6f |.  All c|opies co|
|00000350| 6e 74 61 69 6e 20 74 68 | 69 73 20 63 6f 70 79 72 |ntain th|is copyr|
|00000360| 69 67 68 74 20 6e 6f 74 | 69 63 65 2e 0a 2a 2a 20 |ight not|ice..** |
|00000370| 20 32 2e 20 20 41 6c 6c | 20 6d 6f 64 69 66 69 65 | 2.  All| modifie|
|00000380| 64 20 63 6f 70 69 65 73 | 20 73 68 61 6c 6c 20 63 |d copies| shall c|
|00000390| 61 72 72 79 20 61 20 6e | 6f 74 69 63 65 20 73 74 |arry a n|otice st|
|000003a0| 61 74 69 6e 67 20 77 68 | 6f 0a 2a 2a 20 20 20 20 |ating wh|o.**    |
|000003b0| 20 20 6d 61 64 65 20 74 | 68 65 20 6c 61 73 74 20 |  made t|he last |
|000003c0| 6d 6f 64 69 66 69 63 61 | 74 69 6f 6e 20 61 6e 64 |modifica|tion and|
|000003d0| 20 74 68 65 20 64 61 74 | 65 20 6f 66 20 73 75 63 | the dat|e of suc|
|000003e0| 68 20 6d 6f 64 69 66 69 | 63 61 74 69 6f 6e 2e 0a |h modifi|cation..|
|000003f0| 2a 2a 20 20 33 2e 20 20 | 4e 6f 20 63 68 61 72 67 |**  3.  |No charg|
|00000400| 65 20 69 73 20 6d 61 64 | 65 20 66 6f 72 20 74 68 |e is mad|e for th|
|00000410| 69 73 20 73 6f 66 74 77 | 61 72 65 20 6f 72 20 77 |is softw|are or w|
|00000420| 6f 72 6b 73 20 64 65 72 | 69 76 65 64 20 66 72 6f |orks der|ived fro|
|00000430| 6d 20 69 74 2e 20 20 0a | 2a 2a 20 20 20 20 20 20 |m it.  .|**      |
|00000440| 54 68 69 73 20 63 6c 61 | 75 73 65 20 73 68 61 6c |This cla|use shal|
|00000450| 6c 20 6e 6f 74 20 62 65 | 20 63 6f 6e 73 74 72 75 |l not be| constru|
|00000460| 65 64 20 61 73 20 63 6f | 6e 73 74 72 61 69 6e 69 |ed as co|nstraini|
|00000470| 6e 67 20 6f 74 68 65 72 | 20 73 6f 66 74 77 61 72 |ng other| softwar|
|00000480| 65 0a 2a 2a 20 20 20 20 | 20 20 64 69 73 74 72 69 |e.**    |  distri|
|00000490| 62 75 74 65 64 20 6f 6e | 20 74 68 65 20 73 61 6d |buted on| the sam|
|000004a0| 65 20 6d 65 64 69 75 6d | 20 61 73 20 74 68 69 73 |e medium| as this|
|000004b0| 20 73 6f 66 74 77 61 72 | 65 2c 20 6e 6f 72 20 69 | softwar|e, nor i|
|000004c0| 73 20 61 0a 2a 2a 20 20 | 20 20 20 20 64 69 73 74 |s a.**  |    dist|
|000004d0| 72 69 62 75 74 69 6f 6e | 20 66 65 65 20 63 6f 6e |ribution| fee con|
|000004e0| 73 69 64 65 72 65 64 20 | 61 20 63 68 61 72 67 65 |sidered |a charge|
|000004f0| 2e 0a 2a 2a 0a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..**.***|********|
|00000500| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000510| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000520| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000530| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000540| 2f 0a 0a 0a 2f 2a 20 6d | 61 63 72 6f 73 20 66 6f |/.../* m|acros fo|
|00000550| 72 20 6e 61 6d 65 73 20 | 75 73 65 64 20 69 6e 20 |r names |used in |
|00000560| 76 65 72 73 69 6f 6e 73 | 20 31 2e 30 20 61 6e 64 |versions| 1.0 and|
|00000570| 20 31 2e 31 20 2a 2f 0a | 2f 2a 20 38 2f 31 31 2f | 1.1 */.|/* 8/11/|
|00000580| 39 33 20 2a 2f 0a 0a 0a | 23 69 66 6e 64 65 66 20 |93 */...|#ifndef |
|00000590| 4f 4c 44 4e 41 4d 45 53 | 48 0a 23 64 65 66 69 6e |OLDNAMES|H.#defin|
|000005a0| 65 20 4f 4c 44 4e 41 4d | 45 53 48 0a 0a 0a 2f 2a |e OLDNAM|ESH.../*|
|000005b0| 20 74 79 70 65 20 49 56 | 45 43 20 2a 2f 0a 0a 23 | type IV|EC */..#|
|000005c0| 64 65 66 69 6e 65 20 67 | 65 74 5f 69 76 65 63 20 |define g|et_ivec |
|000005d0| 20 20 69 76 5f 67 65 74 | 0a 23 64 65 66 69 6e 65 |  iv_get|.#define|
|000005e0| 20 66 72 65 65 69 76 65 | 63 20 20 20 49 56 5f 46 | freeive|c   IV_F|
|000005f0| 52 45 45 0a 23 64 65 66 | 69 6e 65 20 63 70 5f 69 |REE.#def|ine cp_i|
|00000600| 76 65 63 20 20 20 20 69 | 76 5f 63 6f 70 79 0a 23 |vec    i|v_copy.#|
|00000610| 64 65 66 69 6e 65 20 66 | 6f 75 74 5f 69 76 65 63 |define f|out_ivec|
|00000620| 20 20 69 76 5f 66 6f 75 | 74 70 75 74 0a 23 64 65 |  iv_fou|tput.#de|
|00000630| 66 69 6e 65 20 6f 75 74 | 5f 69 76 65 63 20 20 20 |fine out|_ivec   |
|00000640| 69 76 5f 6f 75 74 70 75 | 74 0a 23 64 65 66 69 6e |iv_outpu|t.#defin|
|00000650| 65 20 66 69 6e 5f 69 76 | 65 63 20 20 20 69 76 5f |e fin_iv|ec   iv_|
|00000660| 66 69 6e 70 75 74 0a 23 | 64 65 66 69 6e 65 20 69 |finput.#|define i|
|00000670| 6e 5f 69 76 65 63 20 20 | 20 20 69 76 5f 69 6e 70 |n_ivec  |  iv_inp|
|00000680| 75 74 0a 23 64 65 66 69 | 6e 65 20 64 75 6d 70 5f |ut.#defi|ne dump_|
|00000690| 69 76 65 63 20 20 69 76 | 5f 64 75 6d 70 0a 0a 0a |ivec  iv|_dump...|
|000006a0| 2f 2a 20 74 79 70 65 20 | 5a 56 45 43 20 2a 2f 0a |/* type |ZVEC */.|
|000006b0| 0a 23 64 65 66 69 6e 65 | 20 67 65 74 5f 7a 76 65 |.#define| get_zve|
|000006c0| 63 20 20 20 7a 76 5f 67 | 65 74 0a 23 64 65 66 69 |c   zv_g|et.#defi|
|000006d0| 6e 65 20 66 72 65 65 7a | 76 65 63 20 20 20 5a 56 |ne freez|vec   ZV|
|000006e0| 5f 46 52 45 45 0a 23 64 | 65 66 69 6e 65 20 63 70 |_FREE.#d|efine cp|
|000006f0| 5f 7a 76 65 63 20 20 20 | 20 7a 76 5f 63 6f 70 79 |_zvec   | zv_copy|
|00000700| 0a 23 64 65 66 69 6e 65 | 20 66 6f 75 74 5f 7a 76 |.#define| fout_zv|
|00000710| 65 63 20 20 7a 76 5f 66 | 6f 75 74 70 75 74 0a 23 |ec  zv_f|output.#|
|00000720| 64 65 66 69 6e 65 20 6f | 75 74 5f 7a 76 65 63 20 |define o|ut_zvec |
|00000730| 20 20 7a 76 5f 6f 75 74 | 70 75 74 0a 23 64 65 66 |  zv_out|put.#def|
|00000740| 69 6e 65 20 66 69 6e 5f | 7a 76 65 63 20 20 20 7a |ine fin_|zvec   z|
|00000750| 76 5f 66 69 6e 70 75 74 | 0a 23 64 65 66 69 6e 65 |v_finput|.#define|
|00000760| 20 69 6e 5f 7a 76 65 63 | 20 20 20 20 7a 76 5f 69 | in_zvec|    zv_i|
|00000770| 6e 70 75 74 0a 23 64 65 | 66 69 6e 65 20 7a 65 72 |nput.#de|fine zer|
|00000780| 6f 5f 7a 76 65 63 20 20 | 7a 76 5f 7a 65 72 6f 0a |o_zvec  |zv_zero.|
|00000790| 23 64 65 66 69 6e 65 20 | 72 61 6e 64 5f 7a 76 65 |#define |rand_zve|
|000007a0| 63 20 20 7a 76 5f 72 61 | 6e 64 0a 23 64 65 66 69 |c  zv_ra|nd.#defi|
|000007b0| 6e 65 20 64 75 6d 70 5f | 7a 76 65 63 20 20 7a 76 |ne dump_|zvec  zv|
|000007c0| 5f 64 75 6d 70 0a 0a 2f | 2a 20 74 79 70 65 20 5a |_dump../|* type Z|
|000007d0| 4d 41 54 20 2a 2f 0a 0a | 23 64 65 66 69 6e 65 20 |MAT */..|#define |
|000007e0| 67 65 74 5f 7a 6d 61 74 | 20 20 20 7a 6d 5f 67 65 |get_zmat|   zm_ge|
|000007f0| 74 0a 23 64 65 66 69 6e | 65 20 66 72 65 65 7a 6d |t.#defin|e freezm|
|00000800| 61 74 20 20 20 5a 4d 5f | 46 52 45 45 0a 23 64 65 |at   ZM_|FREE.#de|
|00000810| 66 69 6e 65 20 63 70 5f | 7a 6d 61 74 20 20 20 20 |fine cp_|zmat    |
|00000820| 7a 6d 5f 63 6f 70 79 0a | 23 64 65 66 69 6e 65 20 |zm_copy.|#define |
|00000830| 66 6f 75 74 5f 7a 6d 61 | 74 20 20 7a 6d 5f 66 6f |fout_zma|t  zm_fo|
|00000840| 75 74 70 75 74 0a 23 64 | 65 66 69 6e 65 20 6f 75 |utput.#d|efine ou|
|00000850| 74 5f 7a 6d 61 74 20 20 | 20 7a 6d 5f 6f 75 74 70 |t_zmat  | zm_outp|
|00000860| 75 74 0a 23 64 65 66 69 | 6e 65 20 66 69 6e 5f 7a |ut.#defi|ne fin_z|
|00000870| 6d 61 74 20 20 20 7a 6d | 5f 66 69 6e 70 75 74 0a |mat   zm|_finput.|
|00000880| 23 64 65 66 69 6e 65 20 | 69 6e 5f 7a 6d 61 74 20 |#define |in_zmat |
|00000890| 20 20 20 7a 6d 5f 69 6e | 70 75 74 0a 23 64 65 66 |   zm_in|put.#def|
|000008a0| 69 6e 65 20 7a 65 72 6f | 5f 7a 6d 61 74 20 20 7a |ine zero|_zmat  z|
|000008b0| 6d 5f 7a 65 72 6f 0a 23 | 64 65 66 69 6e 65 20 72 |m_zero.#|define r|
|000008c0| 61 6e 64 5f 7a 6d 61 74 | 20 20 7a 6d 5f 72 61 6e |and_zmat|  zm_ran|
|000008d0| 64 0a 23 64 65 66 69 6e | 65 20 64 75 6d 70 5f 7a |d.#defin|e dump_z|
|000008e0| 6d 61 74 20 20 7a 6d 5f | 64 75 6d 70 0a 0a 2f 2a |mat  zm_|dump../*|
|000008f0| 20 74 79 70 65 73 20 53 | 50 4d 41 54 20 2a 2f 0a | types S|PMAT */.|
|00000900| 0a 23 64 65 66 69 6e 65 | 20 73 70 5f 6d 61 74 20 |.#define| sp_mat |
|00000910| 20 20 20 20 20 20 20 53 | 50 4d 41 54 0a 23 64 65 |       S|PMAT.#de|
|00000920| 66 69 6e 65 20 73 70 5f | 67 65 74 5f 6d 61 74 20 |fine sp_|get_mat |
|00000930| 20 20 20 73 70 5f 67 65 | 74 0a 23 64 65 66 69 6e |   sp_ge|t.#defin|
|00000940| 65 20 73 70 5f 66 72 65 | 65 5f 6d 61 74 20 20 20 |e sp_fre|e_mat   |
|00000950| 73 70 5f 66 72 65 65 0a | 23 64 65 66 69 6e 65 20 |sp_free.|#define |
|00000960| 73 70 5f 63 70 5f 6d 61 | 74 20 20 20 20 20 73 70 |sp_cp_ma|t     sp|
|00000970| 5f 63 6f 70 79 0a 23 64 | 65 66 69 6e 65 20 73 70 |_copy.#d|efine sp|
|00000980| 5f 63 70 5f 6d 61 74 32 | 20 20 20 20 73 70 5f 63 |_cp_mat2|    sp_c|
|00000990| 6f 70 79 32 0a 23 64 65 | 66 69 6e 65 20 73 70 5f |opy2.#de|fine sp_|
|000009a0| 66 6f 75 74 5f 6d 61 74 | 20 20 20 73 70 5f 66 6f |fout_mat|   sp_fo|
|000009b0| 75 74 70 75 74 0a 23 64 | 65 66 69 6e 65 20 73 70 |utput.#d|efine sp|
|000009c0| 5f 66 6f 75 74 5f 6d 61 | 74 32 20 20 73 70 5f 66 |_fout_ma|t2  sp_f|
|000009d0| 6f 75 74 70 75 74 32 0a | 23 64 65 66 69 6e 65 20 |output2.|#define |
|000009e0| 73 70 5f 6f 75 74 5f 6d | 61 74 20 20 20 20 73 70 |sp_out_m|at    sp|
|000009f0| 5f 6f 75 74 70 75 74 0a | 23 64 65 66 69 6e 65 20 |_output.|#define |
|00000a00| 73 70 5f 6f 75 74 5f 6d | 61 74 32 20 20 20 73 70 |sp_out_m|at2   sp|
|00000a10| 5f 6f 75 74 70 75 74 32 | 0a 23 64 65 66 69 6e 65 |_output2|.#define|
|00000a20| 20 73 70 5f 66 69 6e 5f | 6d 61 74 20 20 20 20 73 | sp_fin_|mat    s|
|00000a30| 70 5f 66 69 6e 70 75 74 | 0a 23 64 65 66 69 6e 65 |p_finput|.#define|
|00000a40| 20 73 70 5f 69 6e 5f 6d | 61 74 20 20 20 20 20 73 | sp_in_m|at     s|
|00000a50| 70 5f 69 6e 70 75 74 0a | 23 64 65 66 69 6e 65 20 |p_input.|#define |
|00000a60| 73 70 5f 7a 65 72 6f 5f | 6d 61 74 20 20 20 73 70 |sp_zero_|mat   sp|
|00000a70| 5f 7a 65 72 6f 0a 23 64 | 65 66 69 6e 65 20 73 70 |_zero.#d|efine sp|
|00000a80| 5f 64 75 6d 70 5f 6d 61 | 74 20 20 20 73 70 5f 64 |_dump_ma|t   sp_d|
|00000a90| 75 6d 70 0a 0a 0a 2f 2a | 20 74 79 70 65 20 53 50 |ump.../*| type SP|
|00000aa0| 52 4f 57 20 2a 2f 0a 0a | 23 64 65 66 69 6e 65 20 |ROW */..|#define |
|00000ab0| 73 70 5f 72 6f 77 20 20 | 20 20 20 20 20 20 53 50 |sp_row  |      SP|
|00000ac0| 52 4f 57 0a 23 64 65 66 | 69 6e 65 20 73 70 5f 67 |ROW.#def|ine sp_g|
|00000ad0| 65 74 5f 69 64 78 20 20 | 20 20 73 70 72 6f 77 5f |et_idx  |  sprow_|
|00000ae0| 69 64 78 0a 23 64 65 66 | 69 6e 65 20 72 6f 77 5f |idx.#def|ine row_|
|00000af0| 78 70 64 20 20 20 20 20 | 20 20 73 70 72 6f 77 5f |xpd     |  sprow_|
|00000b00| 78 70 64 0a 23 64 65 66 | 69 6e 65 20 73 70 5f 67 |xpd.#def|ine sp_g|
|00000b10| 65 74 5f 72 6f 77 20 20 | 20 20 73 70 72 6f 77 5f |et_row  |  sprow_|
|00000b20| 67 65 74 0a 23 64 65 66 | 69 6e 65 20 72 6f 77 5f |get.#def|ine row_|
|00000b30| 73 65 74 5f 76 61 6c 20 | 20 20 73 70 72 6f 77 5f |set_val |  sprow_|
|00000b40| 73 65 74 5f 76 61 6c 0a | 23 64 65 66 69 6e 65 20 |set_val.|#define |
|00000b50| 66 6f 75 74 5f 72 6f 77 | 20 20 20 20 20 20 73 70 |fout_row|      sp|
|00000b60| 72 6f 77 5f 66 6f 75 74 | 70 75 74 0a 23 64 65 66 |row_fout|put.#def|
|00000b70| 69 6e 65 20 5f 72 6f 77 | 5f 6d 6c 74 61 64 64 20 |ine _row|_mltadd |
|00000b80| 20 20 73 70 72 6f 77 5f | 6d 6c 74 61 64 64 0a 23 |  sprow_|mltadd.#|
|00000b90| 64 65 66 69 6e 65 20 73 | 70 5f 72 6f 77 5f 63 6f |define s|p_row_co|
|00000ba0| 70 79 20 20 20 73 70 72 | 6f 77 5f 63 6f 70 79 0a |py   spr|ow_copy.|
|00000bb0| 23 64 65 66 69 6e 65 20 | 73 70 5f 72 6f 77 5f 6d |#define |sp_row_m|
|00000bc0| 65 72 67 65 20 20 73 70 | 72 6f 77 5f 6d 65 72 67 |erge  sp|row_merg|
|00000bd0| 65 0a 23 64 65 66 69 6e | 65 20 73 70 5f 72 6f 77 |e.#defin|e sp_row|
|00000be0| 5f 69 70 20 20 20 20 20 | 73 70 72 6f 77 5f 69 70 |_ip     |sprow_ip|
|00000bf0| 0a 23 64 65 66 69 6e 65 | 20 73 70 5f 72 6f 77 5f |.#define| sp_row_|
|00000c00| 73 71 72 20 20 20 20 73 | 70 72 6f 77 5f 73 71 72 |sqr    s|prow_sqr|
|00000c10| 0a 0a 0a 2f 2a 20 74 79 | 70 65 20 4d 41 54 20 2a |.../* ty|pe MAT *|
|00000c20| 2f 0a 0a 23 64 65 66 69 | 6e 65 20 67 65 74 5f 6d |/..#defi|ne get_m|
|00000c30| 61 74 20 20 20 6d 5f 67 | 65 74 0a 23 64 65 66 69 |at   m_g|et.#defi|
|00000c40| 6e 65 20 66 72 65 65 6d | 61 74 20 20 20 4d 5f 46 |ne freem|at   M_F|
|00000c50| 52 45 45 0a 23 64 65 66 | 69 6e 65 20 63 70 5f 6d |REE.#def|ine cp_m|
|00000c60| 61 74 20 20 20 20 6d 5f | 63 6f 70 79 0a 23 64 65 |at    m_|copy.#de|
|00000c70| 66 69 6e 65 20 66 6f 75 | 74 5f 6d 61 74 20 20 6d |fine fou|t_mat  m|
|00000c80| 5f 66 6f 75 74 70 75 74 | 0a 23 64 65 66 69 6e 65 |_foutput|.#define|
|00000c90| 20 6f 75 74 5f 6d 61 74 | 20 20 20 6d 5f 6f 75 74 | out_mat|   m_out|
|00000ca0| 70 75 74 0a 23 64 65 66 | 69 6e 65 20 66 69 6e 5f |put.#def|ine fin_|
|00000cb0| 6d 61 74 20 20 20 6d 5f | 66 69 6e 70 75 74 0a 23 |mat   m_|finput.#|
|00000cc0| 64 65 66 69 6e 65 20 69 | 6e 5f 6d 61 74 20 20 20 |define i|n_mat   |
|00000cd0| 20 6d 5f 69 6e 70 75 74 | 0a 23 64 65 66 69 6e 65 | m_input|.#define|
|00000ce0| 20 7a 65 72 6f 5f 6d 61 | 74 20 20 6d 5f 7a 65 72 | zero_ma|t  m_zer|
|00000cf0| 6f 0a 23 64 65 66 69 6e | 65 20 69 64 5f 6d 61 74 |o.#defin|e id_mat|
|00000d00| 20 20 20 20 6d 5f 69 64 | 65 6e 74 0a 23 64 65 66 |    m_id|ent.#def|
|00000d10| 69 6e 65 20 72 61 6e 64 | 5f 6d 61 74 20 20 6d 5f |ine rand|_mat  m_|
|00000d20| 72 61 6e 64 0a 23 64 65 | 66 69 6e 65 20 6f 6e 65 |rand.#de|fine one|
|00000d30| 73 5f 6d 61 74 20 20 6d | 5f 6f 6e 65 73 0a 23 64 |s_mat  m|_ones.#d|
|00000d40| 65 66 69 6e 65 20 64 75 | 6d 70 5f 6d 61 74 20 20 |efine du|mp_mat  |
|00000d50| 6d 5f 64 75 6d 70 0a 0a | 2f 2a 20 74 79 70 65 20 |m_dump..|/* type |
|00000d60| 56 45 43 20 2a 2f 0a 0a | 23 64 65 66 69 6e 65 20 |VEC */..|#define |
|00000d70| 67 65 74 5f 76 65 63 20 | 20 20 76 5f 67 65 74 0a |get_vec |  v_get.|
|00000d80| 23 64 65 66 69 6e 65 20 | 66 72 65 65 76 65 63 20 |#define |freevec |
|00000d90| 20 20 56 5f 46 52 45 45 | 0a 23 64 65 66 69 6e 65 |  V_FREE|.#define|
|00000da0| 20 63 70 5f 76 65 63 20 | 20 20 20 76 5f 63 6f 70 | cp_vec |   v_cop|
|00000db0| 79 0a 23 64 65 66 69 6e | 65 20 66 6f 75 74 5f 76 |y.#defin|e fout_v|
|00000dc0| 65 63 20 20 76 5f 66 6f | 75 74 70 75 74 0a 23 64 |ec  v_fo|utput.#d|
|00000dd0| 65 66 69 6e 65 20 6f 75 | 74 5f 76 65 63 20 20 20 |efine ou|t_vec   |
|00000de0| 76 5f 6f 75 74 70 75 74 | 0a 23 64 65 66 69 6e 65 |v_output|.#define|
|00000df0| 20 66 69 6e 5f 76 65 63 | 20 20 20 76 5f 66 69 6e | fin_vec|   v_fin|
|00000e00| 70 75 74 0a 23 64 65 66 | 69 6e 65 20 69 6e 5f 76 |put.#def|ine in_v|
|00000e10| 65 63 20 20 20 20 76 5f | 69 6e 70 75 74 0a 23 64 |ec    v_|input.#d|
|00000e20| 65 66 69 6e 65 20 7a 65 | 72 6f 5f 76 65 63 20 20 |efine ze|ro_vec  |
|00000e30| 76 5f 7a 65 72 6f 0a 23 | 64 65 66 69 6e 65 20 72 |v_zero.#|define r|
|00000e40| 61 6e 64 5f 76 65 63 20 | 20 76 5f 72 61 6e 64 0a |and_vec | v_rand.|
|00000e50| 23 64 65 66 69 6e 65 20 | 6f 6e 65 73 5f 76 65 63 |#define |ones_vec|
|00000e60| 20 20 76 5f 6f 6e 65 73 | 0a 23 64 65 66 69 6e 65 |  v_ones|.#define|
|00000e70| 20 64 75 6d 70 5f 76 65 | 63 20 20 76 5f 64 75 6d | dump_ve|c  v_dum|
|00000e80| 70 0a 0a 0a 2f 2a 20 74 | 79 70 65 20 50 45 52 4d |p.../* t|ype PERM|
|00000e90| 20 2a 2f 0a 0a 23 64 65 | 66 69 6e 65 20 67 65 74 | */..#de|fine get|
|00000ea0| 5f 70 65 72 6d 20 20 20 | 70 78 5f 67 65 74 0a 23 |_perm   |px_get.#|
|00000eb0| 64 65 66 69 6e 65 20 66 | 72 65 65 70 65 72 6d 20 |define f|reeperm |
|00000ec0| 20 20 50 58 5f 46 52 45 | 45 0a 23 64 65 66 69 6e |  PX_FRE|E.#defin|
|00000ed0| 65 20 63 70 5f 70 65 72 | 6d 20 20 20 20 70 78 5f |e cp_per|m    px_|
|00000ee0| 63 6f 70 79 0a 23 64 65 | 66 69 6e 65 20 66 6f 75 |copy.#de|fine fou|
|00000ef0| 74 5f 70 65 72 6d 20 20 | 70 78 5f 66 6f 75 74 70 |t_perm  |px_foutp|
|00000f00| 75 74 0a 23 64 65 66 69 | 6e 65 20 6f 75 74 5f 70 |ut.#defi|ne out_p|
|00000f10| 65 72 6d 20 20 20 70 78 | 5f 6f 75 74 70 75 74 0a |erm   px|_output.|
|00000f20| 23 64 65 66 69 6e 65 20 | 66 69 6e 5f 70 65 72 6d |#define |fin_perm|
|00000f30| 20 20 20 70 78 5f 66 69 | 6e 70 75 74 0a 23 64 65 |   px_fi|nput.#de|
|00000f40| 66 69 6e 65 20 69 6e 5f | 70 65 72 6d 20 20 20 20 |fine in_|perm    |
|00000f50| 70 78 5f 69 6e 70 75 74 | 0a 23 64 65 66 69 6e 65 |px_input|.#define|
|00000f60| 20 69 64 5f 70 65 72 6d | 20 20 20 20 70 78 5f 69 | id_perm|    px_i|
|00000f70| 64 65 6e 74 0a 23 64 65 | 66 69 6e 65 20 70 78 5f |dent.#de|fine px_|
|00000f80| 69 64 20 20 20 20 20 20 | 70 78 5f 69 64 65 6e 74 |id      |px_ident|
|00000f90| 0a 23 64 65 66 69 6e 65 | 20 74 72 61 6e 73 5f 70 |.#define| trans_p|
|00000fa0| 78 20 20 20 70 78 5f 74 | 72 61 6e 73 70 0a 23 64 |x   px_t|ransp.#d|
|00000fb0| 65 66 69 6e 65 20 73 69 | 67 6e 5f 70 78 20 20 20 |efine si|gn_px   |
|00000fc0| 20 70 78 5f 73 69 67 6e | 0a 23 64 65 66 69 6e 65 | px_sign|.#define|
|00000fd0| 20 64 75 6d 70 5f 70 65 | 72 6d 20 20 70 78 5f 64 | dump_pe|rm  px_d|
|00000fe0| 75 6d 70 0a 0a 23 65 6e | 64 69 66 0a 46 69 6c 65 |ump..#en|dif.File|
|00000ff0| 44 61 74 61 82 4f 6d 61 | 63 68 69 6e 65 00 00 00 |Data.Oma|chine...|
|00001000| ae 11 00 00 45 ff ff ff | 5c 70 0b 33 03 00 8f 52 |....E...|\p.3...R|
|00001010| 2f 2a 20 6d 61 63 68 69 | 6e 65 2e 68 2e 20 20 47 |/* machi|ne.h.  G|
|00001020| 65 6e 65 72 61 74 65 64 | 20 61 75 74 6f 6d 61 74 |enerated| automat|
|00001030| 69 63 61 6c 6c 79 20 62 | 79 20 63 6f 6e 66 69 67 |ically b|y config|
|00001040| 75 72 65 2e 20 20 2a 2f | 0a 2f 2a 20 41 6e 79 20 |ure.  */|./* Any |
|00001050| 6d 61 63 68 69 6e 65 20 | 73 70 65 63 69 66 69 63 |machine |specific|
|00001060| 20 73 74 75 66 66 20 67 | 6f 65 73 20 68 65 72 65 | stuff g|oes here|
|00001070| 20 2a 2f 0a 2f 2a 20 41 | 64 64 20 64 65 74 61 69 | */./* A|dd detai|
|00001080| 6c 73 20 6e 65 63 65 73 | 73 61 72 79 20 66 6f 72 |ls neces|sary for|
|00001090| 20 79 6f 75 72 20 6f 77 | 6e 20 69 6e 73 74 61 6c | your ow|n instal|
|000010a0| 6c 61 74 69 6f 6e 20 68 | 65 72 65 21 20 2a 2f 0a |lation h|ere! */.|
|000010b0| 0a 2f 2a 20 52 43 53 20 | 69 64 3a 20 24 49 64 3a |./* RCS |id: $Id:|
|000010c0| 20 24 20 2a 2f 0a 0a 2f | 2a 20 54 68 69 73 20 69 | $ */../|* This i|
|000010d0| 73 20 66 6f 72 20 75 73 | 65 20 77 69 74 68 20 22 |s for us|e with "|
|000010e0| 63 6f 6e 66 69 67 75 72 | 65 22 20 2d 2d 20 69 66 |configur|e" -- if|
|000010f0| 20 79 6f 75 20 61 72 65 | 20 6e 6f 74 20 75 73 69 | you are| not usi|
|00001100| 6e 67 20 63 6f 6e 66 69 | 67 75 72 65 0a 09 74 68 |ng confi|gure..th|
|00001110| 65 6e 20 75 73 65 20 6d | 61 63 68 69 6e 65 2e 76 |en use m|achine.v|
|00001120| 61 6e 20 66 6f 72 20 74 | 68 65 20 22 76 61 6e 69 |an for t|he "vani|
|00001130| 6c 6c 61 22 20 76 65 72 | 73 69 6f 6e 20 6f 66 20 |lla" ver|sion of |
|00001140| 6d 61 63 68 69 6e 65 2e | 68 20 2a 2f 0a 0a 2f 2a |machine.|h */../*|
|00001150| 20 4e 6f 74 65 20 73 70 | 65 63 69 61 6c 20 6d 61 | Note sp|ecial ma|
|00001160| 63 72 6f 73 3a 20 41 4e | 53 49 5f 43 20 28 41 4e |cros: AN|SI_C (AN|
|00001170| 53 49 20 43 20 73 79 6e | 74 61 78 29 0a 09 09 09 |SI C syn|tax)....|
|00001180| 53 45 47 4d 45 4e 54 45 | 44 20 28 73 65 67 6d 65 |SEGMENTE|D (segme|
|00001190| 6e 74 65 64 20 6d 65 6d | 6f 72 79 20 6d 61 63 68 |nted mem|ory mach|
|000011a0| 69 6e 65 20 65 2e 67 2e | 20 4d 53 2d 44 4f 53 29 |ine e.g.| MS-DOS)|
|000011b0| 0a 09 09 09 4d 41 4c 4c | 4f 43 44 45 43 4c 20 28 |....MALL|OCDECL (|
|000011c0| 64 65 63 6c 61 72 65 64 | 20 69 66 20 6d 61 6c 6c |declared| if mall|
|000011d0| 6f 63 28 29 20 65 74 63 | 20 68 61 76 65 0a 09 09 |oc() etc| have...|
|000011e0| 09 09 09 62 65 65 6e 20 | 64 65 63 6c 61 72 65 64 |...been |declared|
|000011f0| 29 20 2a 2f 0a 0a 23 64 | 65 66 69 6e 65 20 63 6f |) */..#d|efine co|
|00001200| 6e 73 74 20 0a 0a 2f 2a | 20 23 75 6e 64 65 66 20 |nst ../*| #undef |
|00001210| 4d 41 4c 4c 4f 43 44 45 | 43 4c 20 2a 2f 0a 23 64 |MALLOCDE|CL */.#d|
|00001220| 65 66 69 6e 65 20 4e 4f | 54 5f 53 45 47 4d 45 4e |efine NO|T_SEGMEN|
|00001230| 54 45 44 20 31 0a 23 64 | 65 66 69 6e 65 20 48 41 |TED 1.#d|efine HA|
|00001240| 56 45 5f 4d 45 4d 4f 52 | 59 5f 48 20 31 0a 2f 2a |VE_MEMOR|Y_H 1./*|
|00001250| 20 23 75 6e 64 65 66 20 | 48 41 56 45 5f 43 4f 4d | #undef |HAVE_COM|
|00001260| 50 4c 45 58 5f 48 20 2a | 2f 0a 23 64 65 66 69 6e |PLEX_H *|/.#defin|
|00001270| 65 20 48 41 56 45 5f 4d | 41 4c 4c 4f 43 5f 48 20 |e HAVE_M|ALLOC_H |
|00001280| 31 0a 23 64 65 66 69 6e | 65 20 53 54 44 43 5f 48 |1.#defin|e STDC_H|
|00001290| 45 41 44 45 52 53 20 31 | 0a 23 64 65 66 69 6e 65 |EADERS 1|.#define|
|000012a0| 20 48 41 56 45 5f 42 43 | 4f 50 59 20 31 0a 23 64 | HAVE_BC|OPY 1.#d|
|000012b0| 65 66 69 6e 65 20 48 41 | 56 45 5f 42 5a 45 52 4f |efine HA|VE_BZERO|
|000012c0| 20 31 0a 23 64 65 66 69 | 6e 65 20 43 48 41 52 30 | 1.#defi|ne CHAR0|
|000012d0| 49 53 44 42 4c 30 20 31 | 0a 23 64 65 66 69 6e 65 |ISDBL0 1|.#define|
|000012e0| 20 57 4f 52 44 53 5f 42 | 49 47 45 4e 44 49 41 4e | WORDS_B|IGENDIAN|
|000012f0| 20 31 0a 23 64 65 66 69 | 6e 65 20 55 5f 49 4e 54 | 1.#defi|ne U_INT|
|00001300| 5f 44 45 46 20 31 0a 23 | 64 65 66 69 6e 65 20 56 |_DEF 1.#|define V|
|00001310| 41 52 41 52 47 53 20 31 | 0a 23 64 65 66 69 6e 65 |ARARGS 1|.#define|
|00001320| 20 48 41 56 45 5f 50 52 | 4f 54 4f 54 59 50 45 53 | HAVE_PR|OTOTYPES|
|00001330| 20 31 0a 2f 2a 20 23 75 | 6e 64 65 66 20 48 41 56 | 1./* #u|ndef HAV|
|00001340| 45 5f 50 52 4f 54 4f 54 | 59 50 45 53 5f 49 4e 5f |E_PROTOT|YPES_IN_|
|00001350| 53 54 52 55 43 54 20 2a | 2f 0a 0a 2f 2a 20 66 6f |STRUCT *|/../* fo|
|00001360| 72 20 69 6e 63 6c 75 73 | 69 6f 6e 20 69 6e 74 6f |r inclus|ion into|
|00001370| 20 43 2b 2b 20 66 69 6c | 65 73 20 2a 2f 0a 23 69 | C++ fil|es */.#i|
|00001380| 66 64 65 66 20 5f 5f 63 | 70 6c 75 73 70 6c 75 73 |fdef __c|plusplus|
|00001390| 0a 23 64 65 66 69 6e 65 | 20 41 4e 53 49 5f 43 20 |.#define| ANSI_C |
|000013a0| 31 0a 23 69 66 6e 64 65 | 66 20 48 41 56 45 5f 50 |1.#ifnde|f HAVE_P|
|000013b0| 52 4f 54 4f 54 59 50 45 | 53 20 0a 23 64 65 66 69 |ROTOTYPE|S .#defi|
|000013c0| 6e 65 20 48 41 56 45 5f | 50 52 4f 54 4f 54 59 50 |ne HAVE_|PROTOTYP|
|000013d0| 45 53 20 31 0a 23 65 6e | 64 69 66 0a 23 69 66 6e |ES 1.#en|dif.#ifn|
|000013e0| 64 65 66 20 48 41 56 45 | 5f 50 52 4f 54 4f 54 59 |def HAVE|_PROTOTY|
|000013f0| 50 45 53 5f 49 4e 5f 53 | 54 52 55 43 54 0a 23 64 |PES_IN_S|TRUCT.#d|
|00001400| 65 66 69 6e 65 20 48 41 | 56 45 5f 50 52 4f 54 4f |efine HA|VE_PROTO|
|00001410| 54 59 50 45 53 5f 49 4e | 5f 53 54 52 55 43 54 20 |TYPES_IN|_STRUCT |
|00001420| 31 0a 23 65 6e 64 69 66 | 0a 23 65 6e 64 69 66 20 |1.#endif|.#endif |
|00001430| 2f 2a 20 5f 5f 63 70 6c | 75 73 70 6c 75 73 20 2a |/* __cpl|usplus *|
|00001440| 2f 0a 0a 2f 2a 20 65 78 | 61 6d 70 6c 65 20 75 73 |/../* ex|ample us|
|00001450| 61 67 65 3a 20 56 45 43 | 20 2a 50 52 4f 54 4f 28 |age: VEC| *PROTO(|
|00001460| 76 5f 67 65 74 2c 28 69 | 6e 74 20 64 69 6d 29 29 |v_get,(i|nt dim))|
|00001470| 3b 20 2a 2f 0a 23 69 66 | 64 65 66 20 48 41 56 45 |; */.#if|def HAVE|
|00001480| 5f 50 52 4f 54 4f 54 59 | 50 45 53 0a 23 64 65 66 |_PROTOTY|PES.#def|
|00001490| 69 6e 65 09 50 52 4f 54 | 4f 28 6e 61 6d 65 2c 61 |ine.PROT|O(name,a|
|000014a0| 72 67 73 29 09 6e 61 6d | 65 20 61 72 67 73 0a 23 |rgs).nam|e args.#|
|000014b0| 65 6c 73 65 0a 23 64 65 | 66 69 6e 65 20 50 52 4f |else.#de|fine PRO|
|000014c0| 54 4f 28 6e 61 6d 65 2c | 61 72 67 73 29 09 6e 61 |TO(name,|args).na|
|000014d0| 6d 65 28 29 0a 23 65 6e | 64 69 66 20 2f 2a 20 48 |me().#en|dif /* H|
|000014e0| 41 56 45 5f 50 52 4f 54 | 4f 54 59 50 45 53 20 2a |AVE_PROT|OTYPES *|
|000014f0| 2f 0a 23 69 66 64 65 66 | 20 48 41 56 45 5f 50 52 |/.#ifdef| HAVE_PR|
|00001500| 4f 54 4f 54 59 50 45 53 | 5f 49 4e 5f 53 54 52 55 |OTOTYPES|_IN_STRU|
|00001510| 43 54 0a 2f 2a 20 50 52 | 4f 54 4f 5f 28 29 20 69 |CT./* PR|OTO_() i|
|00001520| 73 20 74 6f 20 62 65 20 | 75 73 65 64 20 69 6e 73 |s to be |used ins|
|00001530| 74 65 61 64 20 6f 66 20 | 50 52 4f 54 4f 28 29 20 |tead of |PROTO() |
|00001540| 69 6e 20 73 74 72 75 63 | 74 27 73 20 61 6e 64 20 |in struc|t's and |
|00001550| 74 79 70 65 64 65 66 27 | 73 20 2a 2f 0a 23 64 65 |typedef'|s */.#de|
|00001560| 66 69 6e 65 09 50 52 4f | 54 4f 5f 28 6e 61 6d 65 |fine.PRO|TO_(name|
|00001570| 2c 61 72 67 73 29 09 6e | 61 6d 65 20 61 72 67 73 |,args).n|ame args|
|00001580| 0a 23 65 6c 73 65 0a 23 | 64 65 66 69 6e 65 20 50 |.#else.#|define P|
|00001590| 52 4f 54 4f 5f 28 6e 61 | 6d 65 2c 61 72 67 73 29 |ROTO_(na|me,args)|
|000015a0| 09 6e 61 6d 65 28 29 0a | 23 65 6e 64 69 66 20 2f |.name().|#endif /|
|000015b0| 2a 20 48 41 56 45 5f 50 | 52 4f 54 4f 54 59 50 45 |* HAVE_P|ROTOTYPE|
|000015c0| 53 5f 49 4e 5f 53 54 52 | 55 43 54 20 2a 2f 0a 0a |S_IN_STR|UCT */..|
|000015d0| 2f 2a 20 66 6f 72 20 62 | 61 73 69 63 20 6f 72 20 |/* for b|asic or |
|000015e0| 6c 61 72 67 65 72 20 76 | 65 72 73 69 6f 6e 73 20 |larger v|ersions |
|000015f0| 2a 2f 0a 23 64 65 66 69 | 6e 65 20 43 4f 4d 50 4c |*/.#defi|ne COMPL|
|00001600| 45 58 20 31 0a 23 64 65 | 66 69 6e 65 20 53 50 41 |EX 1.#de|fine SPA|
|00001610| 52 53 45 20 31 0a 0a 2f | 2a 20 66 6f 72 20 6c 6f |RSE 1../|* for lo|
|00001620| 6f 70 20 75 6e 72 6f 6c | 6c 69 6e 67 20 2a 2f 0a |op unrol|ling */.|
|00001630| 2f 2a 20 23 75 6e 64 65 | 66 20 56 55 4e 52 4f 4c |/* #unde|f VUNROL|
|00001640| 4c 20 2a 2f 0a 2f 2a 20 | 23 75 6e 64 65 66 20 4d |L */./* |#undef M|
|00001650| 55 4e 52 4f 4c 4c 20 2a | 2f 0a 0a 2f 2a 20 66 6f |UNROLL *|/../* fo|
|00001660| 72 20 73 65 67 6d 65 6e | 74 65 64 20 6d 65 6d 6f |r segmen|ted memo|
|00001670| 72 79 20 2a 2f 0a 23 69 | 66 6e 64 65 66 20 4e 4f |ry */.#i|fndef NO|
|00001680| 54 5f 53 45 47 4d 45 4e | 54 45 44 0a 23 64 65 66 |T_SEGMEN|TED.#def|
|00001690| 69 6e 65 09 53 45 47 4d | 45 4e 54 45 44 0a 23 65 |ine.SEGM|ENTED.#e|
|000016a0| 6e 64 69 66 0a 0a 2f 2a | 20 69 66 20 74 68 65 20 |ndif../*| if the |
|000016b0| 73 79 73 74 65 6d 20 68 | 61 73 20 6d 61 6c 6c 6f |system h|as mallo|
|000016c0| 63 2e 68 20 2a 2f 0a 23 | 69 66 64 65 66 20 48 41 |c.h */.#|ifdef HA|
|000016d0| 56 45 5f 4d 41 4c 4c 4f | 43 5f 48 0a 23 64 65 66 |VE_MALLO|C_H.#def|
|000016e0| 69 6e 65 09 4d 41 4c 4c | 4f 43 44 45 43 4c 09 31 |ine.MALL|OCDECL.1|
|000016f0| 0a 23 69 6e 63 6c 75 64 | 65 09 3c 6d 61 6c 6c 6f |.#includ|e.<mallo|
|00001700| 63 2e 68 3e 0a 23 65 6e | 64 69 66 0a 0a 2f 2a 20 |c.h>.#en|dif../* |
|00001710| 61 6e 79 20 63 6f 6d 70 | 69 6c 65 72 20 73 68 6f |any comp|iler sho|
|00001720| 75 6c 64 20 68 61 76 65 | 20 74 68 69 73 20 68 65 |uld have| this he|
|00001730| 61 64 65 72 20 2a 2f 0a | 2f 2a 20 69 66 20 6e 6f |ader */.|/* if no|
|00001740| 74 2c 20 63 68 61 6e 67 | 65 20 69 74 20 2a 2f 0a |t, chang|e it */.|
|00001750| 23 69 6e 63 6c 75 64 65 | 20 20 20 20 20 20 20 20 |#include|        |
|00001760| 3c 73 74 64 69 6f 2e 68 | 3e 0a 0a 0a 2f 2a 20 43 |<stdio.h|>.../* C|
|00001770| 68 65 63 6b 20 66 6f 72 | 20 41 4e 53 49 20 43 20 |heck for| ANSI C |
|00001780| 6d 65 6d 6d 6f 76 65 20 | 61 6e 64 20 6d 65 6d 73 |memmove |and mems|
|00001790| 65 74 20 2a 2f 0a 23 69 | 66 64 65 66 20 53 54 44 |et */.#i|fdef STD|
|000017a0| 43 5f 48 45 41 44 45 52 | 53 0a 0a 2f 2a 20 73 74 |C_HEADER|S../* st|
|000017b0| 61 6e 64 61 72 64 20 63 | 6f 70 79 20 26 20 7a 65 |andard c|opy & ze|
|000017c0| 72 6f 20 66 75 6e 63 74 | 69 6f 6e 73 20 2a 2f 0a |ro funct|ions */.|
|000017d0| 23 64 65 66 69 6e 65 09 | 4d 45 4d 5f 43 4f 50 59 |#define.|MEM_COPY|
|000017e0| 28 66 72 6f 6d 2c 74 6f | 2c 73 69 7a 65 29 09 6d |(from,to|,size).m|
|000017f0| 65 6d 6d 6f 76 65 28 28 | 74 6f 29 2c 28 66 72 6f |emmove((|to),(fro|
|00001800| 6d 29 2c 28 73 69 7a 65 | 29 29 0a 23 64 65 66 69 |m),(size|)).#defi|
|00001810| 6e 65 09 4d 45 4d 5f 5a | 45 52 4f 28 77 68 65 72 |ne.MEM_Z|ERO(wher|
|00001820| 65 2c 73 69 7a 65 29 09 | 6d 65 6d 73 65 74 28 28 |e,size).|memset((|
|00001830| 77 68 65 72 65 29 2c 27 | 5c 30 27 2c 28 73 69 7a |where),'|\0',(siz|
|00001840| 65 29 29 0a 0a 23 69 66 | 6e 64 65 66 20 41 4e 53 |e))..#if|ndef ANS|
|00001850| 49 5f 43 0a 23 64 65 66 | 69 6e 65 20 41 4e 53 49 |I_C.#def|ine ANSI|
|00001860| 5f 43 20 31 0a 23 65 6e | 64 69 66 0a 0a 23 65 6e |_C 1.#en|dif..#en|
|00001870| 64 69 66 0a 0a 2f 2a 20 | 73 74 61 6e 64 61 72 64 |dif../* |standard|
|00001880| 20 68 65 61 64 65 72 73 | 20 2a 2f 0a 23 69 66 64 | headers| */.#ifd|
|00001890| 65 66 20 41 4e 53 49 5f | 43 0a 23 69 6e 63 6c 75 |ef ANSI_|C.#inclu|
|000018a0| 64 65 09 3c 73 74 64 6c | 69 62 2e 68 3e 0a 23 69 |de.<stdl|ib.h>.#i|
|000018b0| 6e 63 6c 75 64 65 09 3c | 73 74 64 64 65 66 2e 68 |nclude.<|stddef.h|
|000018c0| 3e 0a 23 69 6e 63 6c 75 | 64 65 09 3c 73 74 72 69 |>.#inclu|de.<stri|
|000018d0| 6e 67 2e 68 3e 0a 23 69 | 6e 63 6c 75 64 65 09 3c |ng.h>.#i|nclude.<|
|000018e0| 66 6c 6f 61 74 2e 68 3e | 0a 23 65 6e 64 69 66 0a |float.h>|.#endif.|
|000018f0| 0a 0a 2f 2a 20 69 66 20 | 68 61 76 65 20 62 63 6f |../* if |have bco|
|00001900| 70 79 20 26 20 62 7a 65 | 72 6f 20 61 6e 64 20 6e |py & bze|ro and n|
|00001910| 6f 20 61 6c 74 65 72 6e | 61 74 69 76 65 73 20 79 |o altern|atives y|
|00001920| 65 74 20 6b 6e 6f 77 6e | 2c 20 75 73 65 20 74 68 |et known|, use th|
|00001930| 65 6d 20 2a 2f 0a 23 69 | 66 64 65 66 20 48 41 56 |em */.#i|fdef HAV|
|00001940| 45 5f 42 43 4f 50 59 0a | 23 69 66 6e 64 65 66 20 |E_BCOPY.|#ifndef |
|00001950| 4d 45 4d 5f 43 4f 50 59 | 0a 2f 2a 20 6e 6f 6e 73 |MEM_COPY|./* nons|
|00001960| 74 61 6e 64 61 72 64 20 | 63 6f 70 79 20 66 75 6e |tandard |copy fun|
|00001970| 63 74 69 6f 6e 20 2a 2f | 0a 23 64 65 66 69 6e 65 |ction */|.#define|
|00001980| 09 4d 45 4d 5f 43 4f 50 | 59 28 66 72 6f 6d 2c 74 |.MEM_COP|Y(from,t|
|00001990| 6f 2c 73 69 7a 65 29 09 | 62 63 6f 70 79 28 28 63 |o,size).|bcopy((c|
|000019a0| 68 61 72 20 2a 29 28 66 | 72 6f 6d 29 2c 28 63 68 |har *)(f|rom),(ch|
|000019b0| 61 72 20 2a 29 28 74 6f | 29 2c 28 69 6e 74 29 28 |ar *)(to|),(int)(|
|000019c0| 73 69 7a 65 29 29 0a 23 | 65 6e 64 69 66 0a 23 65 |size)).#|endif.#e|
|000019d0| 6e 64 69 66 0a 0a 23 69 | 66 64 65 66 20 48 41 56 |ndif..#i|fdef HAV|
|000019e0| 45 5f 42 5a 45 52 4f 0a | 23 69 66 6e 64 65 66 20 |E_BZERO.|#ifndef |
|000019f0| 4d 45 4d 5f 5a 45 52 4f | 0a 2f 2a 20 6e 6f 6e 73 |MEM_ZERO|./* nons|
|00001a00| 74 61 6e 64 61 72 64 20 | 7a 65 72 6f 20 66 75 6e |tandard |zero fun|
|00001a10| 63 74 69 6f 6e 20 2a 2f | 0a 23 64 65 66 69 6e 65 |ction */|.#define|
|00001a20| 09 4d 45 4d 5f 5a 45 52 | 4f 28 77 68 65 72 65 2c |.MEM_ZER|O(where,|
|00001a30| 73 69 7a 65 29 09 62 7a | 65 72 6f 28 28 63 68 61 |size).bz|ero((cha|
|00001a40| 72 20 2a 29 28 77 68 65 | 72 65 29 2c 28 69 6e 74 |r *)(whe|re),(int|
|00001a50| 29 28 73 69 7a 65 29 29 | 0a 23 65 6e 64 69 66 0a |)(size))|.#endif.|
|00001a60| 23 65 6e 64 69 66 0a 0a | 2f 2a 20 69 66 20 74 68 |#endif..|/* if th|
|00001a70| 65 20 73 79 73 74 65 6d | 20 68 61 73 20 63 6f 6d |e system| has com|
|00001a80| 70 6c 65 78 2e 68 20 2a | 2f 0a 23 69 66 64 65 66 |plex.h *|/.#ifdef|
|00001a90| 20 48 41 56 45 5f 43 4f | 4d 50 4c 45 58 5f 48 0a | HAVE_CO|MPLEX_H.|
|00001aa0| 23 69 6e 63 6c 75 64 65 | 09 3c 63 6f 6d 70 6c 65 |#include|.<comple|
|00001ab0| 78 2e 68 3e 0a 23 65 6e | 64 69 66 0a 0a 2f 2a 20 |x.h>.#en|dif../* |
|00001ac0| 49 66 20 70 72 6f 74 6f | 74 79 70 65 73 20 61 72 |If proto|types ar|
|00001ad0| 65 20 61 76 61 69 6c 61 | 62 6c 65 20 26 20 41 4e |e availa|ble & AN|
|00001ae0| 53 49 5f 43 20 6e 6f 74 | 20 79 65 74 20 64 65 66 |SI_C not| yet def|
|00001af0| 69 6e 65 64 2c 20 74 68 | 65 6e 20 64 65 66 69 6e |ined, th|en defin|
|00001b00| 65 20 69 74 2c 0a 09 62 | 75 74 20 64 6f 6e 27 74 |e it,..b|ut don't|
|00001b10| 20 69 6e 63 6c 75 64 65 | 20 61 6e 79 20 68 65 61 | include| any hea|
|00001b20| 64 65 72 20 66 69 6c 65 | 73 20 61 73 20 74 68 65 |der file|s as the|
|00001b30| 20 70 72 6f 70 65 72 20 | 41 4e 53 49 20 43 20 68 | proper |ANSI C h|
|00001b40| 65 61 64 65 72 73 0a 20 | 20 20 20 20 20 20 20 61 |eaders. |       a|
|00001b50| 72 65 6e 27 74 20 68 65 | 72 65 20 2a 2f 0a 23 69 |ren't he|re */.#i|
|00001b60| 66 64 65 66 20 48 41 56 | 45 5f 50 52 4f 54 4f 54 |fdef HAV|E_PROTOT|
|00001b70| 59 50 45 53 0a 23 69 66 | 6e 64 65 66 20 41 4e 53 |YPES.#if|ndef ANS|
|00001b80| 49 5f 43 0a 23 64 65 66 | 69 6e 65 20 41 4e 53 49 |I_C.#def|ine ANSI|
|00001b90| 5f 43 20 20 31 0a 23 65 | 6e 64 69 66 0a 23 65 6e |_C  1.#e|ndif.#en|
|00001ba0| 64 69 66 0a 0a 2f 2a 20 | 66 6c 6f 61 74 69 6e 67 |dif../* |floating|
|00001bb0| 20 70 6f 69 6e 74 20 70 | 72 65 63 69 73 69 6f 6e | point p|recision|
|00001bc0| 20 2a 2f 0a 0a 2f 2a 20 | 79 6f 75 20 63 61 6e 20 | */../* |you can |
|00001bd0| 63 68 6f 6f 73 65 20 73 | 69 6e 67 6c 65 2c 20 64 |choose s|ingle, d|
|00001be0| 6f 75 62 6c 65 20 6f 72 | 20 6c 6f 6e 67 20 64 6f |ouble or| long do|
|00001bf0| 75 62 6c 65 20 28 69 66 | 20 61 76 61 69 6c 61 62 |uble (if| availab|
|00001c00| 6c 65 29 20 70 72 65 63 | 69 73 69 6f 6e 20 2a 2f |le) prec|ision */|
|00001c10| 0a 0a 23 64 65 66 69 6e | 65 20 46 4c 4f 41 54 20 |..#defin|e FLOAT |
|00001c20| 09 09 31 0a 23 64 65 66 | 69 6e 65 20 44 4f 55 42 |..1.#def|ine DOUB|
|00001c30| 4c 45 20 09 09 32 0a 23 | 64 65 66 69 6e 65 20 4c |LE ..2.#|define L|
|00001c40| 4f 4e 47 5f 44 4f 55 42 | 4c 45 20 09 33 0a 0a 2f |ONG_DOUB|LE .3../|
|00001c50| 2a 20 23 75 6e 64 65 66 | 20 52 45 41 4c 5f 46 4c |* #undef| REAL_FL|
|00001c60| 54 20 2a 2f 0a 2f 2a 20 | 23 75 6e 64 65 66 20 52 |T */./* |#undef R|
|00001c70| 45 41 4c 5f 44 42 4c 20 | 2a 2f 0a 0a 2f 2a 20 69 |EAL_DBL |*/../* i|
|00001c80| 66 20 6e 6f 74 68 69 6e | 67 20 69 73 20 64 65 66 |f nothin|g is def|
|00001c90| 69 6e 65 64 2c 20 63 68 | 6f 6f 73 65 20 64 6f 75 |ined, ch|oose dou|
|00001ca0| 62 6c 65 20 70 72 65 63 | 69 73 69 6f 6e 20 2a 2f |ble prec|ision */|
|00001cb0| 0a 23 69 66 6e 64 65 66 | 20 52 45 41 4c 5f 44 42 |.#ifndef| REAL_DB|
|00001cc0| 4c 0a 23 69 66 6e 64 65 | 66 20 52 45 41 4c 5f 46 |L.#ifnde|f REAL_F|
|00001cd0| 4c 54 0a 23 64 65 66 69 | 6e 65 20 52 45 41 4c 5f |LT.#defi|ne REAL_|
|00001ce0| 44 42 4c 20 31 0a 23 65 | 6e 64 69 66 0a 23 65 6e |DBL 1.#e|ndif.#en|
|00001cf0| 64 69 66 0a 0a 2f 2a 20 | 73 69 6e 67 6c 65 20 70 |dif../* |single p|
|00001d00| 72 65 63 69 73 69 6f 6e | 20 2a 2f 0a 23 69 66 64 |recision| */.#ifd|
|00001d10| 65 66 20 52 45 41 4c 5f | 46 4c 54 0a 23 64 65 66 |ef REAL_|FLT.#def|
|00001d20| 69 6e 65 20 20 52 65 61 | 6c 20 66 6c 6f 61 74 0a |ine  Rea|l float.|
|00001d30| 23 64 65 66 69 6e 65 20 | 20 4c 6f 6e 67 52 65 61 |#define | LongRea|
|00001d40| 6c 20 66 6c 6f 61 74 0a | 23 64 65 66 69 6e 65 20 |l float.|#define |
|00001d50| 52 45 41 4c 20 46 4c 4f | 41 54 0a 23 64 65 66 69 |REAL FLO|AT.#defi|
|00001d60| 6e 65 20 4c 4f 4e 47 52 | 45 41 4c 20 46 4c 4f 41 |ne LONGR|EAL FLOA|
|00001d70| 54 0a 23 65 6e 64 69 66 | 0a 0a 2f 2a 20 64 6f 75 |T.#endif|../* dou|
|00001d80| 62 6c 65 20 70 72 65 63 | 69 73 69 6f 6e 20 2a 2f |ble prec|ision */|
|00001d90| 0a 23 69 66 64 65 66 20 | 52 45 41 4c 5f 44 42 4c |.#ifdef |REAL_DBL|
|00001da0| 0a 23 64 65 66 69 6e 65 | 20 52 65 61 6c 20 64 6f |.#define| Real do|
|00001db0| 75 62 6c 65 0a 23 64 65 | 66 69 6e 65 20 4c 6f 6e |uble.#de|fine Lon|
|00001dc0| 67 52 65 61 6c 20 64 6f | 75 62 6c 65 0a 23 64 65 |gReal do|uble.#de|
|00001dd0| 66 69 6e 65 20 52 45 41 | 4c 20 44 4f 55 42 4c 45 |fine REA|L DOUBLE|
|00001de0| 0a 23 64 65 66 69 6e 65 | 20 4c 4f 4e 47 52 45 41 |.#define| LONGREA|
|00001df0| 4c 20 44 4f 55 42 4c 45 | 0a 23 65 6e 64 69 66 0a |L DOUBLE|.#endif.|
|00001e00| 0a 0a 2f 2a 20 6d 61 63 | 68 69 6e 65 20 65 70 73 |../* mac|hine eps|
|00001e10| 69 6c 6f 6e 20 6f 72 20 | 75 6e 69 74 20 72 6f 75 |ilon or |unit rou|
|00001e20| 6e 64 6f 66 66 20 65 72 | 72 6f 72 20 2a 2f 0a 2f |ndoff er|ror */./|
|00001e30| 2a 20 54 68 69 73 20 69 | 73 20 63 6f 72 72 65 63 |* This i|s correc|
|00001e40| 74 20 6f 6e 20 6d 6f 73 | 74 20 49 45 45 45 20 52 |t on mos|t IEEE R|
|00001e50| 65 61 6c 20 70 72 65 63 | 69 73 69 6f 6e 20 73 79 |eal prec|ision sy|
|00001e60| 73 74 65 6d 73 20 2a 2f | 0a 23 69 66 64 65 66 20 |stems */|.#ifdef |
|00001e70| 44 42 4c 5f 45 50 53 49 | 4c 4f 4e 0a 23 69 66 20 |DBL_EPSI|LON.#if |
|00001e80| 52 45 41 4c 20 3d 3d 20 | 44 4f 55 42 4c 45 0a 23 |REAL == |DOUBLE.#|
|00001e90| 64 65 66 69 6e 65 09 4d | 41 43 48 45 50 53 09 44 |define.M|ACHEPS.D|
|00001ea0| 42 4c 5f 45 50 53 49 4c | 4f 4e 0a 23 65 6c 69 66 |BL_EPSIL|ON.#elif|
|00001eb0| 20 52 45 41 4c 20 3d 3d | 20 46 4c 4f 41 54 0a 23 | REAL ==| FLOAT.#|
|00001ec0| 64 65 66 69 6e 65 09 4d | 41 43 48 45 50 53 09 46 |define.M|ACHEPS.F|
|00001ed0| 4c 54 5f 45 50 53 49 4c | 4f 4e 0a 23 65 6c 69 66 |LT_EPSIL|ON.#elif|
|00001ee0| 20 52 45 41 4c 20 3d 3d | 20 4c 4f 4e 47 44 4f 55 | REAL ==| LONGDOU|
|00001ef0| 42 4c 45 0a 23 64 65 66 | 69 6e 65 20 4d 41 43 48 |BLE.#def|ine MACH|
|00001f00| 45 50 53 20 4c 44 42 4c | 5f 45 50 53 49 4c 4f 4e |EPS LDBL|_EPSILON|
|00001f10| 0a 23 65 6e 64 69 66 0a | 23 65 6e 64 69 66 0a 0a |.#endif.|#endif..|
|00001f20| 23 64 65 66 69 6e 65 20 | 46 5f 4d 41 43 48 45 50 |#define |F_MACHEP|
|00001f30| 53 20 31 2e 31 39 32 30 | 39 65 2d 30 37 0a 23 64 |S 1.1920|9e-07.#d|
|00001f40| 65 66 69 6e 65 20 44 5f | 4d 41 43 48 45 50 53 20 |efine D_|MACHEPS |
|00001f50| 32 2e 32 32 30 34 35 65 | 2d 31 36 0a 0a 23 69 66 |2.22045e|-16..#if|
|00001f60| 6e 64 65 66 20 4d 41 43 | 48 45 50 53 0a 23 69 66 |ndef MAC|HEPS.#if|
|00001f70| 20 52 45 41 4c 20 3d 3d | 20 44 4f 55 42 4c 45 0a | REAL ==| DOUBLE.|
|00001f80| 23 64 65 66 69 6e 65 09 | 4d 41 43 48 45 50 53 09 |#define.|MACHEPS.|
|00001f90| 44 5f 4d 41 43 48 45 50 | 53 0a 23 65 6c 69 66 20 |D_MACHEP|S.#elif |
|00001fa0| 52 45 41 4c 20 3d 3d 20 | 46 4c 4f 41 54 20 20 0a |REAL == |FLOAT  .|
|00001fb0| 23 64 65 66 69 6e 65 20 | 4d 41 43 48 45 50 53 20 |#define |MACHEPS |
|00001fc0| 46 5f 4d 41 43 48 45 50 | 53 0a 23 65 6c 69 66 20 |F_MACHEP|S.#elif |
|00001fd0| 52 45 41 4c 20 3d 3d 20 | 4c 4f 4e 47 44 4f 55 42 |REAL == |LONGDOUB|
|00001fe0| 4c 45 0a 23 64 65 66 69 | 6e 65 20 4d 41 43 48 45 |LE.#defi|ne MACHE|
|00001ff0| 50 53 20 44 5f 4d 41 43 | 48 45 50 53 0a 23 65 6e |PS D_MAC|HEPS.#en|
|00002000| 64 69 66 0a 23 65 6e 64 | 69 66 0a 0a 2f 2a 20 23 |dif.#end|if../* #|
|00002010| 75 6e 64 65 66 20 4d 5f | 4d 41 43 48 45 50 53 20 |undef M_|MACHEPS |
|00002020| 2a 2f 0a 0a 2f 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*/../***|********|
|00002030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0a 23 69 66 64 65 66 |********|*.#ifdef|
|00002040| 20 44 42 4c 5f 45 50 53 | 49 4c 4f 4e 0a 23 64 65 | DBL_EPS|ILON.#de|
|00002050| 66 69 6e 65 09 4d 41 43 | 48 45 50 53 09 44 42 4c |fine.MAC|HEPS.DBL|
|00002060| 5f 45 50                |                         |_EP     |        |
+--------+-------------------------+-------------------------+--------+--------+