home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: SHell self-extracting ARchive
(archive/shar).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| Newsgroup Content (archive/news)
| magic
| Supported |
| 100%
| dexvert
| SHell self-extracting ARchive (archive/shar)
| magic
| Supported |
| 100%
| dexvert
| Internet Message Format (text/imf)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| news or mail, ASCII text
| default
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| siegfried
| fmt/329 Shell Archive Format
| default
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
| |
| 100%
| xdgMime
| message/rfc822
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 4a 2e | 44 2e 41 70 6c 65 76 69 |From: J.|D.Aplevi|
|00000010| 63 68 20 3c 64 65 63 76 | 61 78 21 77 61 74 6d 61 |ch <decv|ax!watma|
|00000020| 74 68 21 77 61 74 64 63 | 73 75 21 61 70 6c 65 76 |th!watdc|su!aplev|
|00000030| 69 63 68 3e 0a 53 75 62 | 6a 65 63 74 3a 20 47 2d |ich>.Sub|ject: G-|
|00000040| 66 6f 72 6d 61 74 20 63 | 6f 6d 70 69 6c 65 72 73 |format c|ompilers|
|00000050| 20 66 6f 72 20 55 6c 74 | 72 69 78 2f 55 6e 69 78 | for Ult|rix/Unix|
|00000060| 20 56 61 78 65 73 20 28 | 34 20 6f 66 20 34 29 0a | Vaxes (|4 of 4).|
|00000070| 4e 65 77 73 67 72 6f 75 | 70 73 3a 20 6d 6f 64 2e |Newsgrou|ps: mod.|
|00000080| 73 6f 75 72 63 65 73 0a | 41 70 70 72 6f 76 65 64 |sources.|Approved|
|00000090| 3a 20 6a 70 6e 40 70 61 | 6e 64 61 2e 55 55 43 50 |: jpn@pa|nda.UUCP|
|000000a0| 0a 0a 4d 6f 64 2e 73 6f | 75 72 63 65 73 3a 20 20 |..Mod.so|urces: |
|000000b0| 56 6f 6c 75 6d 65 20 33 | 2c 20 49 73 73 75 65 20 |Volume 3|, Issue |
|000000c0| 34 30 0a 53 75 62 6d 69 | 74 74 65 64 20 62 79 3a |40.Submi|tted by:|
|000000d0| 20 4a 2e 44 2e 41 70 6c | 65 76 69 63 68 20 3c 64 | J.D.Apl|evich <d|
|000000e0| 65 63 76 61 78 21 77 61 | 74 6d 61 74 68 21 77 61 |ecvax!wa|tmath!wa|
|000000f0| 74 64 63 73 75 21 61 70 | 6c 65 76 69 63 68 3e 0a |tdcsu!ap|levich>.|
|00000100| 0a 0a 23 21 2f 62 69 6e | 2f 73 68 0a 23 20 54 68 |..#!/bin|/sh.# Th|
|00000110| 69 73 20 69 73 20 61 20 | 73 68 65 6c 6c 20 61 72 |is is a |shell ar|
|00000120| 63 68 69 76 65 2c 20 6d | 65 61 6e 69 6e 67 3a 0a |chive, m|eaning:.|
|00000130| 23 20 31 2e 20 52 65 6d | 6f 76 65 20 65 76 65 72 |# 1. Rem|ove ever|
|00000140| 79 74 68 69 6e 67 20 61 | 62 6f 76 65 20 74 68 65 |ything a|bove the|
|00000150| 20 23 21 2f 62 69 6e 2f | 73 68 20 6c 69 6e 65 2e | #!/bin/|sh line.|
|00000160| 0a 23 20 32 2e 20 53 61 | 76 65 20 74 68 65 20 72 |.# 2. Sa|ve the r|
|00000170| 65 73 75 6c 74 69 6e 67 | 20 74 65 78 74 20 69 6e |esulting| text in|
|00000180| 20 61 20 66 69 6c 65 2e | 0a 23 20 33 2e 20 45 78 | a file.|.# 3. Ex|
|00000190| 65 63 75 74 65 20 74 68 | 65 20 66 69 6c 65 20 77 |ecute th|e file w|
|000001a0| 69 74 68 20 2f 62 69 6e | 2f 73 68 20 28 6e 6f 74 |ith /bin|/sh (not|
|000001b0| 20 63 73 68 29 20 74 6f | 20 63 72 65 61 74 65 20 | csh) to| create |
|000001c0| 74 68 65 20 66 69 6c 65 | 73 3a 0a 23 09 67 66 6c |the file|s:.#.gfl|
|000001d0| 6f 61 74 0a 23 20 54 68 | 69 73 20 61 72 63 68 69 |oat.# Th|is archi|
|000001e0| 76 65 20 63 72 65 61 74 | 65 64 3a 20 57 65 64 20 |ve creat|ed: Wed |
|000001f0| 4f 63 74 20 33 30 20 32 | 30 3a 34 34 3a 34 30 20 |Oct 30 2|0:44:40 |
|00000200| 31 39 38 35 0a 65 78 70 | 6f 72 74 20 50 41 54 48 |1985.exp|ort PATH|
|00000210| 3b 20 50 41 54 48 3d 2f | 62 69 6e 3a 24 50 41 54 |; PATH=/|bin:$PAT|
|00000220| 48 0a 69 66 20 74 65 73 | 74 20 21 20 2d 64 20 27 |H.if tes|t ! -d '|
|00000230| 67 66 6c 6f 61 74 27 0a | 74 68 65 6e 0a 09 6d 6b |gfloat'.|then..mk|
|00000240| 64 69 72 20 27 67 66 6c | 6f 61 74 27 0a 66 69 0a |dir 'gfl|oat'.fi.|
|00000250| 63 64 20 27 67 66 6c 6f | 61 74 27 0a 69 66 20 74 |cd 'gflo|at'.if t|
|00000260| 65 73 74 20 21 20 2d 64 | 20 27 66 37 37 27 0a 74 |est ! -d| 'f77'.t|
|00000270| 68 65 6e 0a 09 6d 6b 64 | 69 72 20 27 66 37 37 27 |hen..mkd|ir 'f77'|
|00000280| 0a 66 69 0a 63 64 20 27 | 66 37 37 27 0a 69 66 20 |.fi.cd '|f77'.if |
|00000290| 74 65 73 74 20 21 20 2d | 64 20 27 73 72 63 27 0a |test ! -|d 'src'.|
|000002a0| 74 68 65 6e 0a 09 6d 6b | 64 69 72 20 27 73 72 63 |then..mk|dir 'src|
|000002b0| 27 0a 66 69 0a 63 64 20 | 27 73 72 63 27 0a 69 66 |'.fi.cd |'src'.if|
|000002c0| 20 74 65 73 74 20 21 20 | 2d 64 20 27 66 37 37 70 | test ! |-d 'f77p|
|000002d0| 61 73 73 31 27 0a 74 68 | 65 6e 0a 09 6d 6b 64 69 |ass1'.th|en..mkdi|
|000002e0| 72 20 27 66 37 37 70 61 | 73 73 31 27 0a 66 69 0a |r 'f77pa|ss1'.fi.|
|000002f0| 63 64 20 27 66 37 37 70 | 61 73 73 31 27 0a 69 66 |cd 'f77p|ass1'.if|
|00000300| 20 74 65 73 74 20 2d 66 | 20 27 69 6e 74 72 2e 63 | test -f| 'intr.c|
|00000310| 2e 64 69 66 66 27 0a 74 | 68 65 6e 0a 09 65 63 68 |.diff'.t|hen..ech|
|00000320| 6f 20 73 68 61 72 3a 20 | 6f 76 65 72 2d 77 72 69 |o shar: |over-wri|
|00000330| 74 69 6e 67 20 65 78 69 | 73 74 69 6e 67 20 66 69 |ting exi|sting fi|
|00000340| 6c 65 20 22 27 69 6e 74 | 72 2e 63 2e 64 69 66 66 |le "'int|r.c.diff|
|00000350| 27 22 0a 66 69 0a 63 61 | 74 20 3c 3c 20 5c 53 48 |'".fi.ca|t << \SH|
|00000360| 41 52 5f 45 4f 46 20 3e | 20 27 69 6e 74 72 2e 63 |AR_EOF >| 'intr.c|
|00000370| 2e 64 69 66 66 27 0a 2a | 2a 2a 20 2e 2e 2f 66 37 |.diff'.*|** ../f7|
|00000380| 37 2f 73 72 63 2f 66 37 | 37 70 61 73 73 31 2f 69 |7/src/f7|7pass1/i|
|00000390| 6e 74 72 2e 63 2e 6f 72 | 69 67 09 54 75 65 20 4f |ntr.c.or|ig.Tue O|
|000003a0| 63 74 20 32 39 20 31 35 | 3a 31 36 3a 30 31 20 31 |ct 29 15|:16:01 1|
|000003b0| 39 38 35 0a 2d 2d 2d 20 | 2e 2e 2f 66 37 37 2f 73 |985.--- |../f77/s|
|000003c0| 72 63 2f 66 37 37 70 61 | 73 73 31 2f 69 6e 74 72 |rc/f77pa|ss1/intr|
|000003d0| 2e 63 09 54 75 65 20 4f | 63 74 20 32 39 20 31 35 |.c.Tue O|ct 29 15|
|000003e0| 3a 32 32 3a 35 30 20 31 | 39 38 35 0a 2a 2a 2a 2a |:22:50 1|985.****|
|000003f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0a 2a 2a 2a 20 |********|***.*** |
|00000400| 32 33 37 2c 32 34 32 0a | 20 20 09 7b 20 54 59 43 |237,242.| .{ TYC|
|00000410| 4f 4d 50 4c 45 58 2c 54 | 59 43 4f 4d 50 4c 45 58 |OMPLEX,T|YCOMPLEX|
|00000420| 2c 31 2c 22 72 5f 63 6e | 6a 67 22 20 7d 2c 0a 20 |,1,"r_cn|jg" },. |
|00000430| 20 09 7b 20 54 59 44 43 | 4f 4d 50 4c 45 58 2c 54 | .{ TYDC|OMPLEX,T|
|00000440| 59 44 43 4f 4d 50 4c 45 | 58 2c 31 2c 22 64 5f 63 |YDCOMPLE|X,1,"d_c|
|00000450| 6e 6a 67 22 20 7d 2c 0a | 20 20 0a 20 20 09 7b 20 |njg" },.| . .{ |
|00000460| 54 59 52 45 41 4c 2c 54 | 59 52 45 41 4c 2c 31 2c |TYREAL,T|YREAL,1,|
|00000470| 22 72 5f 73 71 72 74 22 | 2c 20 31 20 7d 2c 0a 20 |"r_sqrt"|, 1 },. |
|00000480| 20 09 7b 20 54 59 44 52 | 45 41 4c 2c 54 59 44 52 | .{ TYDR|EAL,TYDR|
|00000490| 45 41 4c 2c 31 2c 22 64 | 5f 73 71 72 74 22 2c 20 |EAL,1,"d|_sqrt", |
|000004a0| 31 20 7d 2c 0a 20 20 09 | 7b 20 54 59 43 4f 4d 50 |1 },. .|{ TYCOMP|
|000004b0| 4c 45 58 2c 54 59 43 4f | 4d 50 4c 45 58 2c 31 2c |LEX,TYCO|MPLEX,1,|
|000004c0| 22 63 5f 73 71 72 74 22 | 20 7d 2c 0a 0a 2d 2d 2d |"c_sqrt"| },..---|
|000004d0| 20 32 33 37 2c 32 34 33 | 20 2d 2d 2d 2d 2d 0a 20 | 237,243| -----. |
|000004e0| 20 09 7b 20 54 59 43 4f | 4d 50 4c 45 58 2c 54 59 | .{ TYCO|MPLEX,TY|
|000004f0| 43 4f 4d 50 4c 45 58 2c | 31 2c 22 72 5f 63 6e 6a |COMPLEX,|1,"r_cnj|
|00000500| 67 22 20 7d 2c 0a 20 20 | 09 7b 20 54 59 44 43 4f |g" },. |.{ TYDCO|
|00000510| 4d 50 4c 45 58 2c 54 59 | 44 43 4f 4d 50 4c 45 58 |MPLEX,TY|DCOMPLEX|
|00000520| 2c 31 2c 22 64 5f 63 6e | 6a 67 22 20 7d 2c 0a 20 |,1,"d_cn|jg" },. |
|00000530| 20 0a 2b 20 23 69 66 6e | 64 65 66 20 47 46 4c 4f | .+ #ifn|def GFLO|
|00000540| 41 54 0a 20 20 09 7b 20 | 54 59 52 45 41 4c 2c 54 |AT. .{ |TYREAL,T|
|00000550| 59 52 45 41 4c 2c 31 2c | 22 72 5f 73 71 72 74 22 |YREAL,1,|"r_sqrt"|
|00000560| 2c 20 31 20 7d 2c 0a 20 | 20 23 65 6c 73 65 20 47 |, 1 },. | #else G|
|00000570| 46 4c 4f 41 54 0a 20 20 | 09 7b 20 54 59 52 45 41 |FLOAT. |.{ TYREA|
|00000580| 4c 2c 54 59 52 45 41 4c | 2c 31 2c 22 72 5f 73 71 |L,TYREAL|,1,"r_sq|
|00000590| 72 74 22 20 7d 2c 0a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |rt" },.*|********|
|000005a0| 2a 2a 2a 2a 2a 2a 0a 2a | 2a 2a 20 32 33 38 2c 32 |******.*|** 238,2|
|000005b0| 34 33 0a 20 20 09 7b 20 | 54 59 44 43 4f 4d 50 4c |43. .{ |TYDCOMPL|
|000005c0| 45 58 2c 54 59 44 43 4f | 4d 50 4c 45 58 2c 31 2c |EX,TYDCO|MPLEX,1,|
|000005d0| 22 64 5f 63 6e 6a 67 22 | 20 7d 2c 0a 20 20 0a 20 |"d_cnjg"| },. . |
|000005e0| 20 09 7b 20 54 59 52 45 | 41 4c 2c 54 59 52 45 41 | .{ TYRE|AL,TYREA|
|000005f0| 4c 2c 31 2c 22 72 5f 73 | 71 72 74 22 2c 20 31 20 |L,1,"r_s|qrt", 1 |
|00000600| 7d 2c 0a 20 20 09 7b 20 | 54 59 44 52 45 41 4c 2c |},. .{ |TYDREAL,|
|00000610| 54 59 44 52 45 41 4c 2c | 31 2c 22 64 5f 73 71 72 |TYDREAL,|1,"d_sqr|
|00000620| 74 22 2c 20 31 20 7d 2c | 0a 20 20 09 7b 20 54 59 |t", 1 },|. .{ TY|
|00000630| 43 4f 4d 50 4c 45 58 2c | 54 59 43 4f 4d 50 4c 45 |COMPLEX,|TYCOMPLE|
|00000640| 58 2c 31 2c 22 63 5f 73 | 71 72 74 22 20 7d 2c 0a |X,1,"c_s|qrt" },.|
|00000650| 20 20 09 7b 20 54 59 44 | 43 4f 4d 50 4c 45 58 2c | .{ TYD|COMPLEX,|
|00000660| 54 59 44 43 4f 4d 50 4c | 45 58 2c 31 2c 22 7a 5f |TYDCOMPL|EX,1,"z_|
|00000670| 73 71 72 74 22 20 7d 2c | 0a 0a 2d 2d 2d 20 32 33 |sqrt" },|..--- 23|
|00000680| 39 2c 32 34 37 20 2d 2d | 2d 2d 2d 0a 20 20 0a 20 |9,247 --|---. . |
|00000690| 20 23 69 66 6e 64 65 66 | 20 47 46 4c 4f 41 54 0a | #ifndef| GFLOAT.|
|000006a0| 20 20 09 7b 20 54 59 52 | 45 41 4c 2c 54 59 52 45 | .{ TYR|EAL,TYRE|
|000006b0| 41 4c 2c 31 2c 22 72 5f | 73 71 72 74 22 2c 20 31 |AL,1,"r_|sqrt", 1|
|000006c0| 20 7d 2c 0a 2b 20 23 65 | 6c 73 65 20 47 46 4c 4f | },.+ #e|lse GFLO|
|000006d0| 41 54 0a 2b 20 09 7b 20 | 54 59 52 45 41 4c 2c 54 |AT.+ .{ |TYREAL,T|
|000006e0| 59 52 45 41 4c 2c 31 2c | 22 72 5f 73 71 72 74 22 |YREAL,1,|"r_sqrt"|
|000006f0| 20 7d 2c 0a 2b 20 23 65 | 6e 64 69 66 20 47 46 4c | },.+ #e|ndif GFL|
|00000700| 4f 41 54 0a 20 20 09 7b | 20 54 59 44 52 45 41 4c |OAT. .{| TYDREAL|
|00000710| 2c 54 59 44 52 45 41 4c | 2c 31 2c 22 64 5f 73 71 |,TYDREAL|,1,"d_sq|
|00000720| 72 74 22 2c 20 31 20 7d | 2c 0a 20 20 09 7b 20 54 |rt", 1 }|,. .{ T|
|00000730| 59 43 4f 4d 50 4c 45 58 | 2c 54 59 43 4f 4d 50 4c |YCOMPLEX|,TYCOMPL|
|00000740| 45 58 2c 31 2c 22 63 5f | 73 71 72 74 22 20 7d 2c |EX,1,"c_|sqrt" },|
|00000750| 0a 20 20 09 7b 20 54 59 | 44 43 4f 4d 50 4c 45 58 |. .{ TY|DCOMPLEX|
|00000760| 2c 54 59 44 43 4f 4d 50 | 4c 45 58 2c 31 2c 22 7a |,TYDCOMP|LEX,1,"z|
|00000770| 5f 73 71 72 74 22 20 7d | 2c 0a 2a 2a 2a 2a 2a 2a |_sqrt" }|,.******|
|00000780| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0a 2a 2a 2a 20 32 34 |********|*.*** 24|
|00000790| 32 2c 32 34 37 0a 20 20 | 09 7b 20 54 59 43 4f 4d |2,247. |.{ TYCOM|
|000007a0| 50 4c 45 58 2c 54 59 43 | 4f 4d 50 4c 45 58 2c 31 |PLEX,TYC|OMPLEX,1|
|000007b0| 2c 22 63 5f 73 71 72 74 | 22 20 7d 2c 0a 20 20 09 |,"c_sqrt|" },. .|
|000007c0| 7b 20 54 59 44 43 4f 4d | 50 4c 45 58 2c 54 59 44 |{ TYDCOM|PLEX,TYD|
|000007d0| 43 4f 4d 50 4c 45 58 2c | 31 2c 22 7a 5f 73 71 72 |COMPLEX,|1,"z_sqr|
|000007e0| 74 22 20 7d 2c 0a 20 20 | 0a 20 20 09 7b 20 54 59 |t" },. |. .{ TY|
|000007f0| 52 45 41 4c 2c 54 59 52 | 45 41 4c 2c 31 2c 22 72 |REAL,TYR|EAL,1,"r|
|00000800| 5f 65 78 70 22 2c 20 32 | 20 7d 2c 0a 20 20 09 7b |_exp", 2| },. .{|
|00000810| 20 54 59 44 52 45 41 4c | 2c 54 59 44 52 45 41 4c | TYDREAL|,TYDREAL|
|00000820| 2c 31 2c 22 64 5f 65 78 | 70 22 2c 20 32 20 7d 2c |,1,"d_ex|p", 2 },|
|00000830| 0a 20 20 09 7b 20 54 59 | 43 4f 4d 50 4c 45 58 2c |. .{ TY|COMPLEX,|
|00000840| 54 59 43 4f 4d 50 4c 45 | 58 2c 31 2c 22 63 5f 65 |TYCOMPLE|X,1,"c_e|
|00000850| 78 70 22 20 7d 2c 0a 0a | 2d 2d 2d 20 32 34 36 2c |xp" },..|--- 246,|
|00000860| 32 35 32 20 2d 2d 2d 2d | 2d 0a 20 20 09 7b 20 54 |252 ----|-. .{ T|
|00000870| 59 43 4f 4d 50 4c 45 58 | 2c 54 59 43 4f 4d 50 4c |YCOMPLEX|,TYCOMPL|
|00000880| 45 58 2c 31 2c 22 63 5f | 73 71 72 74 22 20 7d 2c |EX,1,"c_|sqrt" },|
|00000890| 0a 20 20 09 7b 20 54 59 | 44 43 4f 4d 50 4c 45 58 |. .{ TY|DCOMPLEX|
|000008a0| 2c 54 59 44 43 4f 4d 50 | 4c 45 58 2c 31 2c 22 7a |,TYDCOMP|LEX,1,"z|
|000008b0| 5f 73 71 72 74 22 20 7d | 2c 0a 20 20 0a 2b 20 23 |_sqrt" }|,. .+ #|
|000008c0| 69 66 6e 64 65 66 20 47 | 46 4c 4f 41 54 0a 20 20 |ifndef G|FLOAT. |
|000008d0| 09 7b 20 54 59 52 45 41 | 4c 2c 54 59 52 45 41 4c |.{ TYREA|L,TYREAL|
|000008e0| 2c 31 2c 22 72 5f 65 78 | 70 22 2c 20 32 20 7d 2c |,1,"r_ex|p", 2 },|
|000008f0| 0a 20 20 23 65 6c 73 65 | 20 47 46 4c 4f 41 54 0a |. #else| GFLOAT.|
|00000900| 20 20 09 7b 20 54 59 52 | 45 41 4c 2c 54 59 52 45 | .{ TYR|EAL,TYRE|
|00000910| 41 4c 2c 31 2c 22 72 5f | 65 78 70 22 20 7d 2c 0a |AL,1,"r_|exp" },.|
|00000920| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0a |********|*******.|
|00000930| 2a 2a 2a 20 32 34 33 2c | 32 34 38 0a 20 20 09 7b |*** 243,|248. .{|
|00000940| 20 54 59 44 43 4f 4d 50 | 4c 45 58 2c 54 59 44 43 | TYDCOMP|LEX,TYDC|
|00000950| 4f 4d 50 4c 45 58 2c 31 | 2c 22 7a 5f 73 71 72 74 |OMPLEX,1|,"z_sqrt|
|00000960| 22 20 7d 2c 0a 20 20 0a | 20 20 09 7b 20 54 59 52 |" },. .| .{ TYR|
|00000970| 45 41 4c 2c 54 59 52 45 | 41 4c 2c 31 2c 22 72 5f |EAL,TYRE|AL,1,"r_|
|00000980| 65 78 70 22 2c 20 32 20 | 7d 2c 0a 20 20 09 7b 20 |exp", 2 |},. .{ |
|00000990| 54 59 44 52 45 41 4c 2c | 54 59 44 52 45 41 4c 2c |TYDREAL,|TYDREAL,|
|000009a0| 31 2c 22 64 5f 65 78 70 | 22 2c 20 32 20 7d 2c 0a |1,"d_exp|", 2 },.|
|000009b0| 20 20 09 7b 20 54 59 43 | 4f 4d 50 4c 45 58 2c 54 | .{ TYC|OMPLEX,T|
|000009c0| 59 43 4f 4d 50 4c 45 58 | 2c 31 2c 22 63 5f 65 78 |YCOMPLEX|,1,"c_ex|
|000009d0| 70 22 20 7d 2c 0a 20 20 | 09 7b 20 54 59 44 43 4f |p" },. |.{ TYDCO|
|000009e0| 4d 50 4c 45 58 2c 54 59 | 44 43 4f 4d 50 4c 45 58 |MPLEX,TY|DCOMPLEX|
|000009f0| 2c 31 2c 22 7a 5f 65 78 | 70 22 20 7d 2c 0a 0a 2d |,1,"z_ex|p" },..-|
|00000a00| 2d 2d 20 32 34 38 2c 32 | 35 36 20 2d 2d 2d 2d 2d |-- 248,2|56 -----|
|00000a10| 0a 20 20 0a 20 20 23 69 | 66 6e 64 65 66 20 47 46 |. . #i|fndef GF|
|00000a20| 4c 4f 41 54 0a 20 20 09 | 7b 20 54 59 52 45 41 4c |LOAT. .|{ TYREAL|
|00000a30| 2c 54 59 52 45 41 4c 2c | 31 2c 22 72 5f 65 78 70 |,TYREAL,|1,"r_exp|
|00000a40| 22 2c 20 32 20 7d 2c 0a | 2b 20 23 65 6c 73 65 20 |", 2 },.|+ #else |
|00000a50| 47 46 4c 4f 41 54 0a 2b | 20 09 7b 20 54 59 52 45 |GFLOAT.+| .{ TYRE|
|00000a60| 41 4c 2c 54 59 52 45 41 | 4c 2c 31 2c 22 72 5f 65 |AL,TYREA|L,1,"r_e|
|00000a70| 78 70 22 20 7d 2c 0a 2b | 20 23 65 6e 64 69 66 20 |xp" },.+| #endif |
|00000a80| 47 46 4c 4f 41 54 0a 20 | 20 09 7b 20 54 59 44 52 |GFLOAT. | .{ TYDR|
|00000a90| 45 41 4c 2c 54 59 44 52 | 45 41 4c 2c 31 2c 22 64 |EAL,TYDR|EAL,1,"d|
|00000aa0| 5f 65 78 70 22 2c 20 32 | 20 7d 2c 0a 20 20 09 7b |_exp", 2| },. .{|
|00000ab0| 20 54 59 43 4f 4d 50 4c | 45 58 2c 54 59 43 4f 4d | TYCOMPL|EX,TYCOM|
|00000ac0| 50 4c 45 58 2c 31 2c 22 | 63 5f 65 78 70 22 20 7d |PLEX,1,"|c_exp" }|
|00000ad0| 2c 0a 20 20 09 7b 20 54 | 59 44 43 4f 4d 50 4c 45 |,. .{ T|YDCOMPLE|
|00000ae0| 58 2c 54 59 44 43 4f 4d | 50 4c 45 58 2c 31 2c 22 |X,TYDCOM|PLEX,1,"|
|00000af0| 7a 5f 65 78 70 22 20 7d | 2c 0a 2a 2a 2a 2a 2a 2a |z_exp" }|,.******|
|00000b00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0a 2a 2a 2a 20 32 34 |********|*.*** 24|
|00000b10| 37 2c 32 35 32 0a 20 20 | 09 7b 20 54 59 43 4f 4d |7,252. |.{ TYCOM|
|00000b20| 50 4c 45 58 2c 54 59 43 | 4f 4d 50 4c 45 58 2c 31 |PLEX,TYC|OMPLEX,1|
|00000b30| 2c 22 63 5f 65 78 70 22 | 20 7d 2c 0a 20 20 09 7b |,"c_exp"| },. .{|
|00000b40| 20 54 59 44 43 4f 4d 50 | 4c 45 58 2c 54 59 44 43 | TYDCOMP|LEX,TYDC|
|00000b50| 4f 4d 50 4c 45 58 2c 31 | 2c 22 7a 5f 65 78 70 22 |OMPLEX,1|,"z_exp"|
|00000b60| 20 7d 2c 0a 20 20 0a 20 | 20 09 7b 20 54 59 52 45 | },. . | .{ TYRE|
|00000b70| 41 4c 2c 54 59 52 45 41 | 4c 2c 31 2c 22 72 5f 6c |AL,TYREA|L,1,"r_l|
|00000b80| 6f 67 22 2c 20 33 20 7d | 2c 0a 20 20 09 7b 20 54 |og", 3 }|,. .{ T|
|00000b90| 59 44 52 45 41 4c 2c 54 | 59 44 52 45 41 4c 2c 31 |YDREAL,T|YDREAL,1|
|00000ba0| 2c 22 64 5f 6c 6f 67 22 | 2c 20 33 20 7d 2c 0a 20 |,"d_log"|, 3 },. |
|00000bb0| 20 09 7b 20 54 59 43 4f | 4d 50 4c 45 58 2c 54 59 | .{ TYCO|MPLEX,TY|
|00000bc0| 43 4f 4d 50 4c 45 58 2c | 31 2c 22 63 5f 6c 6f 67 |COMPLEX,|1,"c_log|
|00000bd0| 22 20 7d 2c 0a 0a 2d 2d | 2d 20 32 35 35 2c 32 36 |" },..--|- 255,26|
|00000be0| 31 20 2d 2d 2d 2d 2d 0a | 20 20 09 7b 20 54 59 43 |1 -----.| .{ TYC|
|00000bf0| 4f 4d 50 4c 45 58 2c 54 | 59 43 4f 4d 50 4c 45 58 |OMPLEX,T|YCOMPLEX|
|00000c00| 2c 31 2c 22 63 5f 65 78 | 70 22 20 7d 2c 0a 20 20 |,1,"c_ex|p" },. |
|00000c10| 09 7b 20 54 59 44 43 4f | 4d 50 4c 45 58 2c 54 59 |.{ TYDCO|MPLEX,TY|
|00000c20| 44 43 4f 4d 50 4c 45 58 | 2c 31 2c 22 7a 5f 65 78 |DCOMPLEX|,1,"z_ex|
|00000c30| 70 22 20 7d 2c 0a 20 20 | 0a 2b 20 23 69 66 6e 64 |p" },. |.+ #ifnd|
|00000c40| 65 66 20 47 46 4c 4f 41 | 54 0a 20 20 09 7b 20 54 |ef GFLOA|T. .{ T|
|00000c50| 59 52 45 41 4c 2c 54 59 | 52 45 41 4c 2c 31 2c 22 |YREAL,TY|REAL,1,"|
|00000c60| 72 5f 6c 6f 67 22 2c 20 | 33 20 7d 2c 0a 20 20 23 |r_log", |3 },. #|
|00000c70| 65 6c 73 65 20 47 46 4c | 4f 41 54 0a 20 20 09 7b |else GFL|OAT. .{|
|00000c80| 20 54 59 52 45 41 4c 2c | 54 59 52 45 41 4c 2c 31 | TYREAL,|TYREAL,1|
|00000c90| 2c 22 72 5f 6c 6f 67 22 | 20 7d 2c 0a 2a 2a 2a 2a |,"r_log"| },.****|
|00000ca0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0a 2a 2a 2a 20 |********|***.*** |
|00000cb0| 32 34 38 2c 32 35 33 0a | 20 20 09 7b 20 54 59 44 |248,253.| .{ TYD|
|00000cc0| 43 4f 4d 50 4c 45 58 2c | 54 59 44 43 4f 4d 50 4c |COMPLEX,|TYDCOMPL|
|00000cd0| 45 58 2c 31 2c 22 7a 5f | 65 78 70 22 20 7d 2c 0a |EX,1,"z_|exp" },.|
|00000ce0| 20 20 0a 20 20 09 7b 20 | 54 59 52 45 41 4c 2c 54 | . .{ |TYREAL,T|
|00000cf0| 59 52 45 41 4c 2c 31 2c | 22 72 5f 6c 6f 67 22 2c |YREAL,1,|"r_log",|
|00000d00| 20 33 20 7d 2c 0a 20 20 | 09 7b 20 54 59 44 52 45 | 3 },. |.{ TYDRE|
|00000d10| 41 4c 2c 54 59 44 52 45 | 41 4c 2c 31 2c 22 64 5f |AL,TYDRE|AL,1,"d_|
|00000d20| 6c 6f 67 22 2c 20 33 20 | 7d 2c 0a 20 20 09 7b 20 |log", 3 |},. .{ |
|00000d30| 54 59 43 4f 4d 50 4c 45 | 58 2c 54 59 43 4f 4d 50 |TYCOMPLE|X,TYCOMP|
|00000d40| 4c 45 58 2c 31 2c 22 63 | 5f 6c 6f 67 22 20 7d 2c |LEX,1,"c|_log" },|
|00000d50| 0a 20 20 09 7b 20 54 59 | 44 43 4f 4d 50 4c 45 58 |. .{ TY|DCOMPLEX|
|00000d60| 2c 54 59 44 43 4f 4d 50 | 4c 45 58 2c 31 2c 22 7a |,TYDCOMP|LEX,1,"z|
|00000d70| 5f 6c 6f 67 22 20 7d 2c | 0a 0a 2d 2d 2d 20 32 35 |_log" },|..--- 25|
|00000d80| 37 2c 32 36 35 20 2d 2d | 2d 2d 2d 0a 20 20 0a 20 |7,265 --|---. . |
|00000d90| 20 23 69 66 6e 64 65 66 | 20 47 46 4c 4f 41 54 0a | #ifndef| GFLOAT.|
|00000da0| 20 20 09 7b 20 54 59 52 | 45 41 4c 2c 54 59 52 45 | .{ TYR|EAL,TYRE|
|00000db0| 41 4c 2c 31 2c 22 72 5f | 6c 6f 67 22 2c 20 33 20 |AL,1,"r_|log", 3 |
|00000dc0| 7d 2c 0a 2b 20 23 65 6c | 73 65 20 47 46 4c 4f 41 |},.+ #el|se GFLOA|
|00000dd0| 54 0a 2b 20 09 7b 20 54 | 59 52 45 41 4c 2c 54 59 |T.+ .{ T|YREAL,TY|
|00000de0| 52 45 41 4c 2c 31 2c 22 | 72 5f 6c 6f 67 22 20 7d |REAL,1,"|r_log" }|
|00000df0| 2c 0a 2b 20 23 65 6e 64 | 69 66 20 47 46 4c 4f 41 |,.+ #end|if GFLOA|
|00000e00| 54 0a 20 20 09 7b 20 54 | 59 44 52 45 41 4c 2c 54 |T. .{ T|YDREAL,T|
|00000e10| 59 44 52 45 41 4c 2c 31 | 2c 22 64 5f 6c 6f 67 22 |YDREAL,1|,"d_log"|
|00000e20| 2c 20 33 20 7d 2c 0a 20 | 20 09 7b 20 54 59 43 4f |, 3 },. | .{ TYCO|
|00000e30| 4d 50 4c 45 58 2c 54 59 | 43 4f 4d 50 4c 45 58 2c |MPLEX,TY|COMPLEX,|
|00000e40| 31 2c 22 63 5f 6c 6f 67 | 22 20 7d 2c 0a 20 20 09 |1,"c_log|" },. .|
|00000e50| 7b 20 54 59 44 43 4f 4d | 50 4c 45 58 2c 54 59 44 |{ TYDCOM|PLEX,TYD|
|00000e60| 43 4f 4d 50 4c 45 58 2c | 31 2c 22 7a 5f 6c 6f 67 |COMPLEX,|1,"z_log|
|00000e70| 22 20 7d 2c 0a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |" },.***|********|
|00000e80| 2a 2a 2a 2a 0a 2a 2a 2a | 20 32 35 35 2c 32 36 30 |****.***| 255,260|
|00000e90| 0a 20 20 09 7b 20 54 59 | 52 45 41 4c 2c 54 59 52 |. .{ TY|REAL,TYR|
|00000ea0| 45 41 4c 2c 31 2c 22 72 | 5f 6c 67 31 30 22 20 7d |EAL,1,"r|_lg10" }|
|00000eb0| 2c 0a 20 20 09 7b 20 54 | 59 44 52 45 41 4c 2c 54 |,. .{ T|YDREAL,T|
|00000ec0| 59 44 52 45 41 4c 2c 31 | 2c 22 64 5f 6c 67 31 30 |YDREAL,1|,"d_lg10|
|00000ed0| 22 20 7d 2c 0a 20 20 0a | 20 20 09 7b 20 54 59 52 |" },. .| .{ TYR|
|00000ee0| 45 41 4c 2c 54 59 52 45 | 41 4c 2c 31 2c 22 72 5f |EAL,TYRE|AL,1,"r_|
|00000ef0| 73 69 6e 22 2c 20 34 20 | 7d 2c 0a 20 20 09 7b 20 |sin", 4 |},. .{ |
|00000f00| 54 59 44 52 45 41 4c 2c | 54 59 44 52 45 41 4c 2c |TYDREAL,|TYDREAL,|
|00000f10| 31 2c 22 64 5f 73 69 6e | 22 2c 20 34 20 7d 2c 0a |1,"d_sin|", 4 },.|
|00000f20| 20 20 09 7b 20 54 59 43 | 4f 4d 50 4c 45 58 2c 54 | .{ TYC|OMPLEX,T|
|00000f30| 59 43 4f 4d 50 4c 45 58 | 2c 31 2c 22 63 5f 73 69 |YCOMPLEX|,1,"c_si|
|00000f40| 6e 22 20 7d 2c 0a 0a 2d | 2d 2d 20 32 36 37 2c 32 |n" },..-|-- 267,2|
|00000f50| 37 33 20 2d 2d 2d 2d 2d | 0a 20 20 09 7b 20 54 59 |73 -----|. .{ TY|
|00000f60| 52 45 41 4c 2c 54 59 52 | 45 41 4c 2c 31 2c 22 72 |REAL,TYR|EAL,1,"r|
|00000f70| 5f 6c 67 31 30 22 20 7d | 2c 0a 20 20 09 7b 20 54 |_lg10" }|,. .{ T|
|00000f80| 59 44 52 45 41 4c 2c 54 | 59 44 52 45 41 4c 2c 31 |YDREAL,T|YDREAL,1|
|00000f90| 2c 22 64 5f 6c 67 31 30 | 22 20 7d 2c 0a 20 20 0a |,"d_lg10|" },. .|
|00000fa0| 2b 20 23 69 66 6e 64 65 | 66 20 47 46 4c 4f 41 54 |+ #ifnde|f GFLOAT|
|00000fb0| 0a 20 20 09 7b 20 54 59 | 52 45 41 4c 2c 54 59 52 |. .{ TY|REAL,TYR|
|00000fc0| 45 41 4c 2c 31 2c 22 72 | 5f 73 69 6e 22 2c 20 34 |EAL,1,"r|_sin", 4|
|00000fd0| 20 7d 2c 0a 20 20 23 65 | 6c 73 65 20 47 46 4c 4f | },. #e|lse GFLO|
|00000fe0| 41 54 0a 20 20 09 7b 20 | 54 59 52 45 41 4c 2c 54 |AT. .{ |TYREAL,T|
|00000ff0| 59 52 45 41 4c 2c 31 2c | 22 72 5f 73 69 6e 22 20 |YREAL,1,|"r_sin" |
|00001000| 7d 2c 20 0a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |}, .****|********|
|00001010| 2a 2a 2a 0a 2a 2a 2a 20 | 32 35 36 2c 32 36 31 0a |***.*** |256,261.|
|00001020| 20 20 09 7b 20 54 59 44 | 52 45 41 4c 2c 54 59 44 | .{ TYD|REAL,TYD|
|00001030| 52 45 41 4c 2c 31 2c 22 | 64 5f 6c 67 31 30 22 20 |REAL,1,"|d_lg10" |
|00001040| 7d 2c 0a 20 20 0a 20 20 | 09 7b 20 54 59 52 45 41 |},. . |.{ TYREA|
|00001050| 4c 2c 54 59 52 45 41 4c | 2c 31 2c 22 72 5f 73 69 |L,TYREAL|,1,"r_si|
|00001060| 6e 22 2c 20 34 20 7d 2c | 0a 20 20 09 7b 20 54 59 |n", 4 },|. .{ TY|
|00001070| 44 52 45 41 4c 2c 54 59 | 44 52 45 41 4c 2c 31 2c |DREAL,TY|DREAL,1,|
|00001080| 22 64 5f 73 69 6e 22 2c | 20 34 20 7d 2c 0a 20 20 |"d_sin",| 4 },. |
|00001090| 09 7b 20 54 59 43 4f 4d | 50 4c 45 58 2c 54 59 43 |.{ TYCOM|PLEX,TYC|
|000010a0| 4f 4d 50 4c 45 58 2c 31 | 2c 22 63 5f 73 69 6e 22 |OMPLEX,1|,"c_sin"|
|000010b0| 20 7d 2c 0a 20 20 09 7b | 20 54 59 44 43 4f 4d 50 | },. .{| TYDCOMP|
|000010c0| 4c 45 58 2c 54 59 44 43 | 4f 4d 50 4c 45 58 2c 31 |LEX,TYDC|OMPLEX,1|
|000010d0| 2c 22 7a 5f 73 69 6e 22 | 20 7d 2c 0a 0a 2d 2d 2d |,"z_sin"| },..---|
|000010e0| 20 32 36 39 2c 32 37 37 | 20 2d 2d 2d 2d 2d 0a 20 | 269,277| -----. |
|000010f0| 20 0a 20 20 23 69 66 6e | 64 65 66 20 47 46 4c 4f | . #ifn|def GFLO|
|00001100| 41 54 0a 20 20 09 7b 20 | 54 59 52 45 41 4c 2c 54 |AT. .{ |TYREAL,T|
|00001110| 59 52 45 41 4c 2c 31 2c | 22 72 5f 73 69 6e 22 2c |YREAL,1,|"r_sin",|
|00001120| 20 34 20 7d 2c 0a 2b 20 | 23 65 6c 73 65 20 47 46 | 4 },.+ |#else GF|
|00001130| 4c 4f 41 54 0a 2b 20 09 | 7b 20 54 59 52 45 41 4c |LOAT.+ .|{ TYREAL|
|00001140| 2c 54 59 52 45 41 4c 2c | 31 2c 22 72 5f 73 69 6e |,TYREAL,|1,"r_sin|
|00001150| 22 20 7d 2c 20 0a 2b 20 | 23 65 6e 64 69 66 20 47 |" }, .+ |#endif G|
|00001160| 46 4c 4f 41 54 0a 20 20 | 09 7b 20 54 59 44 52 45 |FLOAT. |.{ TYDRE|
|00001170| 41 4c 2c 54 59 44 52 45 | 41 4c 2c 31 2c 22 64 5f |AL,TYDRE|AL,1,"d_|
|00001180| 73 69 6e 22 2c 20 34 20 | 7d 2c 0a 20 20 09 7b 20 |sin", 4 |},. .{ |
|00001190| 54 59 43 4f 4d 50 4c 45 | 58 2c 54 59 43 4f 4d 50 |TYCOMPLE|X,TYCOMP|
|000011a0| 4c 45 58 2c 31 2c 22 63 | 5f 73 69 6e 22 20 7d 2c |LEX,1,"c|_sin" },|
|000011b0| 0a 20 20 09 7b 20 54 59 | 44 43 4f 4d 50 4c 45 58 |. .{ TY|DCOMPLEX|
|000011c0| 2c 54 59 44 43 4f 4d 50 | 4c 45 58 2c 31 2c 22 7a |,TYDCOMP|LEX,1,"z|
|000011d0| 5f 73 69 6e 22 20 7d 2c | 0a 2a 2a 2a 2a 2a 2a 2a |_sin" },|.*******|
|000011e0| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 2a 2a 2a 20 32 36 30 |********|.*** 260|
|000011f0| 2c 32 36 35 0a 20 20 09 | 7b 20 54 59 43 4f 4d 50 |,265. .|{ TYCOMP|
|00001200| 4c 45 58 2c 54 59 43 4f | 4d 50 4c 45 58 2c 31 2c |LEX,TYCO|MPLEX,1,|
|00001210| 22 63 5f 73 69 6e 22 20 | 7d 2c 0a 20 20 09 7b 20 |"c_sin" |},. .{ |
|00001220| 54 59 44 43 4f 4d 50 4c | 45 58 2c 54 59 44 43 4f |TYDCOMPL|EX,TYDCO|
|00001230| 4d 50 4c 45 58 2c 31 2c | 22 7a 5f 73 69 6e 22 20 |MPLEX,1,|"z_sin" |
|00001240| 7d 2c 0a 20 20 0a 20 20 | 09 7b 20 54 59 52 45 41 |},. . |.{ TYREA|
|00001250| 4c 2c 54 59 52 45 41 4c | 2c 31 2c 22 72 5f 63 6f |L,TYREAL|,1,"r_co|
|00001260| 73 22 2c 20 35 20 7d 2c | 0a 20 20 09 7b 20 54 59 |s", 5 },|. .{ TY|
|00001270| 44 52 45 41 4c 2c 54 59 | 44 52 45 41 4c 2c 31 2c |DREAL,TY|DREAL,1,|
|00001280| 22 64 5f 63 6f 73 22 2c | 20 35 20 7d 2c 0a 20 20 |"d_cos",| 5 },. |
|00001290| 09 7b 20 54 59 43 4f 4d | 50 4c 45 58 2c 54 59 43 |.{ TYCOM|PLEX,TYC|
|000012a0| 4f 4d 50 4c 45 58 2c 31 | 2c 22 63 5f 63 6f 73 22 |OMPLEX,1|,"c_cos"|
|000012b0| 20 7d 2c 0a 0a 2d 2d 2d | 20 32 37 36 2c 32 38 32 | },..---| 276,282|
|000012c0| 20 2d 2d 2d 2d 2d 0a 20 | 20 09 7b 20 54 59 43 4f | -----. | .{ TYCO|
|000012d0| 4d 50 4c 45 58 2c 54 59 | 43 4f 4d 50 4c 45 58 2c |MPLEX,TY|COMPLEX,|
|000012e0| 31 2c 22 63 5f 73 69 6e | 22 20 7d 2c 0a 20 20 09 |1,"c_sin|" },. .|
|000012f0| 7b 20 54 59 44 43 4f 4d | 50 4c 45 58 2c 54 59 44 |{ TYDCOM|PLEX,TYD|
|00001300| 43 4f 4d 50 4c 45 58 2c | 31 2c 22 7a 5f 73 69 6e |COMPLEX,|1,"z_sin|
|00001310| 22 20 7d 2c 0a 20 20 0a | 2b 20 23 69 66 6e 64 65 |" },. .|+ #ifnde|
|00001320| 66 20 47 46 4c 4f 41 54 | 0a 20 20 09 7b 20 54 59 |f GFLOAT|. .{ TY|
|00001330| 52 45 41 4c 2c 54 59 52 | 45 41 4c 2c 31 2c 22 72 |REAL,TYR|EAL,1,"r|
|00001340| 5f 63 6f 73 22 2c 20 35 | 20 7d 2c 0a 20 20 23 65 |_cos", 5| },. #e|
|00001350| 6c 73 65 20 47 46 4c 4f | 41 54 0a 20 20 09 7b 20 |lse GFLO|AT. .{ |
|00001360| 54 59 52 45 41 4c 2c 54 | 59 52 45 41 4c 2c 31 2c |TYREAL,T|YREAL,1,|
|00001370| 22 72 5f 63 6f 73 22 20 | 7d 2c 0a 2a 2a 2a 2a 2a |"r_cos" |},.*****|
|00001380| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0a 2a 2a 2a 20 32 |********|**.*** 2|
|00001390| 36 31 2c 32 36 36 0a 20 | 20 09 7b 20 54 59 44 43 |61,266. | .{ TYDC|
|000013a0| 4f 4d 50 4c 45 58 2c 54 | 59 44 43 4f 4d 50 4c 45 |OMPLEX,T|YDCOMPLE|
|000013b0| 58 2c 31 2c 22 7a 5f 73 | 69 6e 22 20 7d 2c 0a 20 |X,1,"z_s|in" },. |
|000013c0| 20 0a 20 20 09 7b 20 54 | 59 52 45 41 4c 2c 54 59 | . .{ T|YREAL,TY|
|000013d0| 52 45 41 4c 2c 31 2c 22 | 72 5f 63 6f 73 22 2c 20 |REAL,1,"|r_cos", |
|000013e0| 35 20 7d 2c 0a 20 20 09 | 7b 20 54 59 44 52 45 41 |5 },. .|{ TYDREA|
|000013f0| 4c 2c 54 59 44 52 45 41 | 4c 2c 31 2c 22 64 5f 63 |L,TYDREA|L,1,"d_c|
|00001400| 6f 73 22 2c 20 35 20 7d | 2c 0a 20 20 09 7b 20 54 |os", 5 }|,. .{ T|
|00001410| 59 43 4f 4d 50 4c 45 58 | 2c 54 59 43 4f 4d 50 4c |YCOMPLEX|,TYCOMPL|
|00001420| 45 58 2c 31 2c 22 63 5f | 63 6f 73 22 20 7d 2c 0a |EX,1,"c_|cos" },.|
|00001430| 20 20 09 7b 20 54 59 44 | 43 4f 4d 50 4c 45 58 2c | .{ TYD|COMPLEX,|
|00001440| 54 59 44 43 4f 4d 50 4c | 45 58 2c 31 2c 22 7a 5f |TYDCOMPL|EX,1,"z_|
|00001450| 63 6f 73 22 20 7d 2c 0a | 0a 2d 2d 2d 20 32 37 38 |cos" },.|.--- 278|
|00001460| 2c 32 38 36 20 2d 2d 2d | 2d 2d 0a 20 20 0a 20 20 |,286 ---|--. . |
|00001470| 23 69 66 6e 64 65 66 20 | 47 46 4c 4f 41 54 0a 20 |#ifndef |GFLOAT. |
|00001480| 20 09 7b 20 54 59 52 45 | 41 4c 2c 54 59 52 45 41 | .{ TYRE|AL,TYREA|
|00001490| 4c 2c 31 2c 22 72 5f 63 | 6f 73 22 2c 20 35 20 7d |L,1,"r_c|os", 5 }|
|000014a0| 2c 0a 2b 20 23 65 6c 73 | 65 20 47 46 4c 4f 41 54 |,.+ #els|e GFLOAT|
|000014b0| 0a 2b 20 09 7b 20 54 59 | 52 45 41 4c 2c 54 59 52 |.+ .{ TY|REAL,TYR|
|000014c0| 45 41 4c 2c 31 2c 22 72 | 5f 63 6f 73 22 20 7d 2c |EAL,1,"r|_cos" },|
|000014d0| 0a 2b 20 23 65 6e 64 69 | 66 20 47 46 4c 4f 41 54 |.+ #endi|f GFLOAT|
|000014e0| 0a 20 20 09 7b 20 54 59 | 44 52 45 41 4c 2c 54 59 |. .{ TY|DREAL,TY|
|000014f0| 44 52 45 41 4c 2c 31 2c | 22 64 5f 63 6f 73 22 2c |DREAL,1,|"d_cos",|
|00001500| 20 35 20 7d 2c 0a 20 20 | 09 7b 20 54 59 43 4f 4d | 5 },. |.{ TYCOM|
|00001510| 50 4c 45 58 2c 54 59 43 | 4f 4d 50 4c 45 58 2c 31 |PLEX,TYC|OMPLEX,1|
|00001520| 2c 22 63 5f 63 6f 73 22 | 20 7d 2c 0a 20 20 09 7b |,"c_cos"| },. .{|
|00001530| 20 54 59 44 43 4f 4d 50 | 4c 45 58 2c 54 59 44 43 | TYDCOMP|LEX,TYDC|
|00001540| 4f 4d 50 4c 45 58 2c 31 | 2c 22 7a 5f 63 6f 73 22 |OMPLEX,1|,"z_cos"|
|00001550| 20 7d 2c 0a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | },.****|********|
|00001560| 2a 2a 2a 0a 2a 2a 2a 20 | 32 36 35 2c 32 37 30 0a |***.*** |265,270.|
|00001570| 20 20 09 7b 20 54 59 43 | 4f 4d 50 4c 45 58 2c 54 | .{ TYC|OMPLEX,T|
|00001580| 59 43 4f 4d 50 4c 45 58 | 2c 31 2c 22 63 5f 63 6f |YCOMPLEX|,1,"c_co|
|00001590| 73 22 20 7d 2c 0a 20 20 | 09 7b 20 54 59 44 43 4f |s" },. |.{ TYDCO|
|000015a0| 4d 50 4c 45 58 2c 54 59 | 44 43 4f 4d 50 4c 45 58 |MPLEX,TY|DCOMPLEX|
|000015b0| 2c 31 2c 22 7a 5f 63 6f | 73 22 20 7d 2c 0a 20 20 |,1,"z_co|s" },. |
|000015c0| 0a 20 20 09 7b 20 54 59 | 52 45 41 4c 2c 54 59 52 |. .{ TY|REAL,TYR|
|000015d0| 45 41 4c 2c 31 2c 22 72 | 5f 74 61 6e 22 2c 20 36 |EAL,1,"r|_tan", 6|
|000015e0| 20 7d 2c 0a 20 20 09 7b | 20 54 59 44 52 45 41 4c | },. .{| TYDREAL|
|000015f0| 2c 54 59 44 52 45 41 4c | 2c 31 2c 22 64 5f 74 61 |,TYDREAL|,1,"d_ta|
|00001600| 6e 22 2c 20 36 20 7d 2c | 0a 20 20 0a 0a 2d 2d 2d |n", 6 },|. ..---|
|00001610| 20 32 38 35 2c 32 39 31 | 20 2d 2d 2d 2d 2d 0a 20 | 285,291| -----. |
|00001620| 20 09 7b 20 54 59 43 4f | 4d 50 4c 45 58 2c 54 59 | .{ TYCO|MPLEX,TY|
|00001630| 43 4f 4d 50 4c 45 58 2c | 31 2c 22 63 5f 63 6f 73 |COMPLEX,|1,"c_cos|
|00001640| 22 20 7d 2c 0a 20 20 09 | 7b 20 54 59 44 43 4f 4d |" },. .|{ TYDCOM|
|00001650| 50 4c 45 58 2c 54 59 44 | 43 4f 4d 50 4c 45 58 2c |PLEX,TYD|COMPLEX,|
|00001660| 31 2c 22 7a 5f 63 6f 73 | 22 20 7d 2c 0a 20 20 0a |1,"z_cos|" },. .|
|00001670| 2b 20 23 69 66 6e 64 65 | 66 20 47 46 4c 4f 41 54 |+ #ifnde|f GFLOAT|
|00001680| 0a 20 20 09 7b 20 54 59 | 52 45 41 4c 2c 54 59 52 |. .{ TY|REAL,TYR|
|00001690| 45 41 4c 2c 31 2c 22 72 | 5f 74 61 6e 22 2c 20 36 |EAL,1,"r|_tan", 6|
|000016a0| 20 7d 2c 0a 20 20 23 65 | 6c 73 65 20 47 46 4c 4f | },. #e|lse GFLO|
|000016b0| 41 54 0a 20 20 09 7b 20 | 54 59 52 45 41 4c 2c 54 |AT. .{ |TYREAL,T|
|000016c0| 59 52 45 41 4c 2c 31 2c | 22 72 5f 74 61 6e 22 20 |YREAL,1,|"r_tan" |
|000016d0| 7d 2c 0a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |},.*****|********|
|000016e0| 2a 2a 0a 2a 2a 2a 20 32 | 36 36 2c 32 37 31 0a 20 |**.*** 2|66,271. |
|000016f0| 20 09 7b 20 54 59 44 43 | 4f 4d 50 4c 45 58 2c 54 | .{ TYDC|OMPLEX,T|
|00001700| 59 44 43 4f 4d 50 4c 45 | 58 2c 31 2c 22 7a 5f 63 |YDCOMPLE|X,1,"z_c|
|00001710| 6f 73 22 20 7d 2c 0a 20 | 20 0a 20 20 09 7b 20 54 |os" },. | . .{ T|
|00001720| 59 52 45 41 4c 2c 54 59 | 52 45 41 4c 2c 31 2c 22 |YREAL,TY|REAL,1,"|
|00001730| 72 5f 74 61 6e 22 2c 20 | 36 20 7d 2c 0a 20 20 09 |r_tan", |6 },. .|
|00001740| 7b 20 54 59 44 52 45 41 | 4c 2c 54 59 44 52 45 41 |{ TYDREA|L,TYDREA|
|00001750| 4c 2c 31 2c 22 64 5f 74 | 61 6e 22 2c 20 36 20 7d |L,1,"d_t|an", 6 }|
|00001760| 2c 0a 20 20 0a 20 20 09 | 7b 20 54 59 52 45 41 4c |,. . .|{ TYREAL|
|00001770| 2c 54 59 52 45 41 4c 2c | 31 2c 22 72 5f 61 73 69 |,TYREAL,|1,"r_asi|
|00001780| 6e 22 2c 20 37 20 7d 2c | 0a 0a 2d 2d 2d 20 32 38 |n", 7 },|..--- 28|
|00001790| 37 2c 32 39 35 20 2d 2d | 2d 2d 2d 0a 20 20 0a 20 |7,295 --|---. . |
|000017a0| 20 23 69 66 6e 64 65 66 | 20 47 46 4c 4f 41 54 0a | #ifndef| GFLOAT.|
|000017b0| 20 20 09 7b 20 54 59 52 | 45 41 4c 2c 54 59 52 45 | .{ TYR|EAL,TYRE|
|000017c0| 41 4c 2c 31 2c 22 72 5f | 74 61 6e 22 2c 20 36 20 |AL,1,"r_|tan", 6 |
|000017d0| 7d 2c 0a 2b 20 23 65 6c | 73 65 20 47 46 4c 4f 41 |},.+ #el|se GFLOA|
|000017e0| 54 0a 2b 20 09 7b 20 54 | 59 52 45 41 4c 2c 54 59 |T.+ .{ T|YREAL,TY|
|000017f0| 52 45 41 4c 2c 31 2c 22 | 72 5f 74 61 6e 22 20 7d |REAL,1,"|r_tan" }|
|00001800| 2c 0a 2b 20 23 65 6e 64 | 69 66 20 47 46 4c 4f 41 |,.+ #end|if GFLOA|
|00001810| 54 0a 20 20 09 7b 20 54 | 59 44 52 45 41 4c 2c 54 |T. .{ T|YDREAL,T|
|00001820| 59 44 52 45 41 4c 2c 31 | 2c 22 64 5f 74 61 6e 22 |YDREAL,1|,"d_tan"|
|00001830| 2c 20 36 20 7d 2c 0a 20 | 20 0a 20 20 23 69 66 6e |, 6 },. | . #ifn|
|00001840| 64 65 66 20 47 46 4c 4f | 41 54 0a 2a 2a 2a 2a 2a |def GFLO|AT.*****|
|00001850| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0a 2a 2a 2a 20 32 |********|**.*** 2|
|00001860| 36 38 2c 32 37 33 0a 20 | 20 09 7b 20 54 59 52 45 |68,273. | .{ TYRE|
|00001870| 41 4c 2c 54 59 52 45 41 | 4c 2c 31 2c 22 72 5f 74 |AL,TYREA|L,1,"r_t|
|00001880| 61 6e 22 2c 20 36 20 7d | 2c 0a 20 20 09 7b 20 54 |an", 6 }|,. .{ T|
|00001890| 59 44 52 45 41 4c 2c 54 | 59 44 52 45 41 4c 2c 31 |YDREAL,T|YDREAL,1|
|000018a0| 2c 22 64 5f 74 61 6e 22 | 2c 20 36 20 7d 2c 0a 20 |,"d_tan"|, 6 },. |
|000018b0| 20 0a 20 20 09 7b 20 54 | 59 52 45 41 4c 2c 54 59 | . .{ T|YREAL,TY|
|000018c0| 52 45 41 4c 2c 31 2c 22 | 72 5f 61 73 69 6e 22 2c |REAL,1,"|r_asin",|
|000018d0| 20 37 20 7d 2c 0a 20 20 | 09 7b 20 54 59 44 52 45 | 7 },. |.{ TYDRE|
|000018e0| 41 4c 2c 54 59 44 52 45 | 41 4c 2c 31 2c 22 64 5f |AL,TYDRE|AL,1,"d_|
|000018f0| 61 73 69 6e 22 2c 20 37 | 20 7d 2c 0a 20 20 0a 0a |asin", 7| },. ..|
|00001900| 2d 2d 2d 20 32 39 32 2c | 32 39 38 20 2d 2d 2d 2d |--- 292,|298 ----|
|00001910| 2d 0a 20 20 23 65 6e 64 | 69 66 20 47 46 4c 4f 41 |-. #end|if GFLOA|
|00001920| 54 0a 20 20 09 7b 20 54 | 59 44 52 45 41 4c 2c 54 |T. .{ T|YDREAL,T|
|00001930| 59 44 52 45 41 4c 2c 31 | 2c 22 64 5f 74 61 6e 22 |YDREAL,1|,"d_tan"|
|00001940| 2c 20 36 20 7d 2c 0a 20 | 20 0a 2b 20 23 69 66 6e |, 6 },. | .+ #ifn|
|00001950| 64 65 66 20 47 46 4c 4f | 41 54 0a 20 20 09 7b 20 |def GFLO|AT. .{ |
|00001960| 54 59 52 45 41 4c 2c 54 | 59 52 45 41 4c 2c 31 2c |TYREAL,T|YREAL,1,|
|00001970| 22 72 5f 61 73 69 6e 22 | 2c 20 37 20 7d 2c 0a 20 |"r_asin"|, 7 },. |
|00001980| 20 23 65 6c 73 65 20 47 | 46 4c 4f 41 54 0a 20 20 | #else G|FLOAT. |
|00001990| 09 7b 20 54 59 52 45 41 | 4c 2c 54 59 52 45 41 4c |.{ TYREA|L,TYREAL|
|000019a0| 2c 31 2c 22 72 5f 61 73 | 69 6e 22 20 7d 2c 0a 2a |,1,"r_as|in" },.*|
|000019b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 2a |********|******.*|
|000019c0| 2a 2a 20 32 36 39 2c 32 | 37 34 0a 20 20 09 7b 20 |** 269,2|74. .{ |
|000019d0| 54 59 44 52 45 41 4c 2c | 54 59 44 52 45 41 4c 2c |TYDREAL,|TYDREAL,|
|000019e0| 31 2c 22 64 5f 74 61 6e | 22 2c 20 36 20 7d 2c 0a |1,"d_tan|", 6 },.|
|000019f0| 20 20 0a 20 20 09 7b 20 | 54 59 52 45 41 4c 2c 54 | . .{ |TYREAL,T|
|00001a00| 59 52 45 41 4c 2c 31 2c | 22 72 5f 61 73 69 6e 22 |YREAL,1,|"r_asin"|
|00001a10| 2c 20 37 20 7d 2c 0a 20 | 20 09 7b 20 54 59 44 52 |, 7 },. | .{ TYDR|
|00001a20| 45 41 4c 2c 54 59 44 52 | 45 41 4c 2c 31 2c 22 64 |EAL,TYDR|EAL,1,"d|
|00001a30| 5f 61 73 69 6e 22 2c 20 | 37 20 7d 2c 0a 20 20 0a |_asin", |7 },. .|
|00001a40| 20 20 09 7b 20 54 59 52 | 45 41 4c 2c 54 59 52 45 | .{ TYR|EAL,TYRE|
|00001a50| 41 4c 2c 31 2c 22 72 5f | 61 63 6f 73 22 2c 20 38 |AL,1,"r_|acos", 8|
|00001a60| 20 7d 2c 0a 0a 2d 2d 2d | 20 32 39 34 2c 33 30 32 | },..---| 294,302|
|00001a70| 20 2d 2d 2d 2d 2d 0a 20 | 20 0a 20 20 23 69 66 6e | -----. | . #ifn|
|00001a80| 64 65 66 20 47 46 4c 4f | 41 54 0a 20 20 09 7b 20 |def GFLO|AT. .{ |
|00001a90| 54 59 52 45 41 4c 2c 54 | 59 52 45 41 4c 2c 31 2c |TYREAL,T|YREAL,1,|
|00001aa0| 22 72 5f 61 73 69 6e 22 | 2c 20 37 20 7d 2c 0a 2b |"r_asin"|, 7 },.+|
|00001ab0| 20 23 65 6c 73 65 20 47 | 46 4c 4f 41 54 0a 2b 20 | #else G|FLOAT.+ |
|00001ac0| 09 7b 20 54 59 52 45 41 | 4c 2c 54 59 52 45 41 4c |.{ TYREA|L,TYREAL|
|00001ad0| 2c 31 2c 22 72 5f 61 73 | 69 6e 22 20 7d 2c 0a 2b |,1,"r_as|in" },.+|
|00001ae0| 20 23 65 6e 64 69 66 20 | 47 46 4c 4f 41 54 0a 20 | #endif |GFLOAT. |
|00001af0| 20 09 7b 20 54 59 44 52 | 45 41 4c 2c 54 59 44 52 | .{ TYDR|EAL,TYDR|
|00001b00| 45 41 4c 2c 31 2c 22 64 | 5f 61 73 69 6e 22 2c 20 |EAL,1,"d|_asin", |
|00001b10| 37 20 7d 2c 0a 20 20 0a | 20 20 23 69 66 6e 64 65 |7 },. .| #ifnde|
|00001b20| 66 20 47 46 4c 4f 41 54 | 0a 2a 2a 2a 2a 2a 2a 2a |f GFLOAT|.*******|
|00001b30| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 2a 2a 2a 20 32 37 31 |********|.*** 271|
|00001b40| 2c 32 37 36 0a 20 20 09 | 7b 20 54 59 52 45 41 4c |,276. .|{ TYREAL|
|00001b50| 2c 54 59 52 45 41 4c 2c | 31 2c 22 72 5f 61 73 69 |,TYREAL,|1,"r_asi|
|00001b60| 6e 22 2c 20 37 20 7d 2c | 0a 20 20 09 7b 20 54 59 |n", 7 },|. .{ TY|
|00001b70| 44 52 45 41 4c 2c 54 59 | 44 52 45 41 4c 2c 31 2c |DREAL,TY|DREAL,1,|
|00001b80| 22 64 5f 61 73 69 6e 22 | 2c 20 37 20 7d 2c 0a 20 |"d_asin"|, 7 },. |
|00001b90| 20 0a 20 20 09 7b 20 54 | 59 52 45 41 4c 2c 54 59 | . .{ T|YREAL,TY|
|00001ba0| 52 45 41 4c 2c 31 2c 22 | 72 5f 61 63 6f 73 22 2c |REAL,1,"|r_acos",|
|00001bb0| 20 38 20 7d 2c 0a 20 20 | 09 7b 20 54 59 44 52 45 | 8 },. |.{ TYDRE|
|00001bc0| 41 4c 2c 54 59 44 52 45 | 41 4c 2c 31 2c 22 64 5f |AL,TYDRE|AL,1,"d_|
|00001bd0| 61 63 6f 73 22 2c 20 38 | 20 7d 2c 0a 20 20 0a 0a |acos", 8| },. ..|
|00001be0| 2d 2d 2d 20 32 39 39 2c | 33 30 35 20 2d 2d 2d 2d |--- 299,|305 ----|
|00001bf0| 2d 0a 20 20 23 65 6e 64 | 69 66 20 47 46 4c 4f 41 |-. #end|if GFLOA|
|00001c00| 54 0a 20 20 09 7b 20 54 | 59 44 52 45 41 4c 2c 54 |T. .{ T|YDREAL,T|
|00001c10| 59 44 52 45 41 4c 2c 31 | 2c 22 64 5f 61 73 69 6e |YDREAL,1|,"d_asin|
|00001c20| 22 2c 20 37 20 7d 2c 0a | 20 20 0a 2b 20 23 69 66 |", 7 },.| .+ #if|
|00001c30| 6e 64 65 66 20 47 46 4c | 4f 41 54 0a 20 20 09 7b |ndef GFL|OAT. .{|
|00001c40| 20 54 59 52 45 41 4c 2c | 54 59 52 45 41 4c 2c 31 | TYREAL,|TYREAL,1|
|00001c50| 2c 22 72 5f 61 63 6f 73 | 22 2c 20 38 20 7d 2c 0a |,"r_acos|", 8 },.|
|00001c60| 20 20 23 65 6c 73 65 20 | 47 46 4c 4f 41 54 0a 20 | #else |GFLOAT. |
|00001c70| 20 09 7b 20 54 59 52 45 | 41 4c 2c 54 59 52 45 41 | .{ TYRE|AL,TYREA|
|00001c80| 4c 2c 31 2c 22 72 5f 61 | 63 6f 73 22 20 7d 2c 0a |L,1,"r_a|cos" },.|
|00001c90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0a |********|*******.|
|00001ca0| 2a 2a 2a 20 32 37 32 2c | 32 37 37 0a 20 20 09 7b |*** 272,|277. .{|
|00001cb0| 20 54 59 44 52 45 41 4c | 2c 54 59 44 52 45 41 4c | TYDREAL|,TYDREAL|
|00001cc0| 2c 31 2c 22 64 5f 61 73 | 69 6e 22 2c 20 37 20 7d |,1,"d_as|in", 7 }|
|00001cd0| 2c 0a 20 20 0a 20 20 09 | 7b 20 54 59 52 45 41 4c |,. . .|{ TYREAL|
|00001ce0| 2c 54 59 52 45 41 4c 2c | 31 2c 22 72 5f 61 63 6f |,TYREAL,|1,"r_aco|
|00001cf0| 73 22 2c 20 38 20 7d 2c | 0a 20 20 09 7b 20 54 59 |s", 8 },|. .{ TY|
|00001d00| 44 52 45 41 4c 2c 54 59 | 44 52 45 41 4c 2c 31 2c |DREAL,TY|DREAL,1,|
|00001d10| 22 64 5f 61 63 6f 73 22 | 2c 20 38 20 7d 2c 0a 20 |"d_acos"|, 8 },. |
|00001d20| 20 0a 20 20 09 7b 20 54 | 59 52 45 41 4c 2c 54 59 | . .{ T|YREAL,TY|
|00001d30| 52 45 41 4c 2c 31 2c 22 | 72 5f 61 74 61 6e 22 2c |REAL,1,"|r_atan",|
|00001d40| 20 39 20 7d 2c 0a 0a 2d | 2d 2d 20 33 30 31 2c 33 | 9 },..-|-- 301,3|
|00001d50| 30 39 20 2d 2d 2d 2d 2d | 0a 20 20 0a 20 20 23 69 |09 -----|. . #i|
|00001d60| 66 6e 64 65 66 20 47 46 | 4c 4f 41 54 0a 20 20 09 |fndef GF|LOAT. .|
|00001d70| 7b 20 54 59 52 45 41 4c | 2c 54 59 52 45 41 4c 2c |{ TYREAL|,TYREAL,|
|00001d80| 31 2c 22 72 5f 61 63 6f | 73 22 2c 20 38 20 7d 2c |1,"r_aco|s", 8 },|
|00001d90| 0a 2b 20 23 65 6c 73 65 | 20 47 46 4c 4f 41 54 0a |.+ #else| GFLOAT.|
|00001da0| 2b 20 09 7b 20 54 59 52 | 45 41 4c 2c 54 59 52 45 |+ .{ TYR|EAL,TYRE|
|00001db0| 41 4c 2c 31 2c 22 72 5f | 61 63 6f 73 22 20 7d 2c |AL,1,"r_|acos" },|
|00001dc0| 0a 2b 20 23 65 6e 64 69 | 66 20 47 46 4c 4f 41 54 |.+ #endi|f GFLOAT|
|00001dd0| 0a 20 20 09 7b 20 54 59 | 44 52 45 41 4c 2c 54 59 |. .{ TY|DREAL,TY|
|00001de0| 44 52 45 41 4c 2c 31 2c | 22 64 5f 61 63 6f 73 22 |DREAL,1,|"d_acos"|
|00001df0| 2c 20 38 20 7d 2c 0a 20 | 20 0a 20 20 23 69 66 6e |, 8 },. | . #ifn|
|00001e00| 64 65 66 20 47 46 4c 4f | 41 54 0a 2a 2a 2a 2a 2a |def GFLO|AT.*****|
|00001e10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0a 2a 2a 2a 20 32 |********|**.*** 2|
|00001e20| 37 34 2c 32 37 39 0a 20 | 20 09 7b 20 54 59 52 45 |74,279. | .{ TYRE|
|00001e30| 41 4c 2c 54 59 52 45 41 | 4c 2c 31 2c 22 72 5f 61 |AL,TYREA|L,1,"r_a|
|00001e40| 63 6f 73 22 2c 20 38 20 | 7d 2c 0a 20 20 09 7b 20 |cos", 8 |},. .{ |
|00001e50| 54 59 44 52 45 41 4c 2c | 54 59 44 52 45 41 4c 2c |TYDREAL,|TYDREAL,|
|00001e60| 31 2c 22 64 5f 61 63 6f | 73 22 2c 20 38 20 7d 2c |1,"d_aco|s", 8 },|
|00001e70| 0a 20 20 0a 20 20 09 7b | 20 54 59 52 45 41 4c 2c |. . .{| TYREAL,|
|00001e80| 54 59 52 45 41 4c 2c 31 | 2c 22 72 5f 61 74 61 6e |TYREAL,1|,"r_atan|
|00001e90| 22 2c 20 39 20 7d 2c 0a | 20 20 09 7b 20 54 59 44 |", 9 },.| .{ TYD|
|00001ea0| 52 45 41 4c 2c 54 59 44 | 52 45 41 4c 2c 31 2c 22 |REAL,TYD|REAL,1,"|
|00001eb0| 64 5f 61 74 61 6e 22 2c | 20 39 20 7d 2c 0a 20 20 |d_atan",| 9 },. |
|00001ec0| 0a 0a 2d 2d 2d 20 33 30 | 36 2c 33 31 32 20 2d 2d |..--- 30|6,312 --|
|00001ed0| 2d 2d 2d 0a 20 20 23 65 | 6e 64 69 66 20 47 46 4c |---. #e|ndif GFL|
|00001ee0| 4f 41 54 0a 20 20 09 7b | 20 54 59 44 52 45 41 4c |OAT. .{| TYDREAL|
|00001ef0| 2c 54 59 44 52 45 41 4c | 2c 31 2c 22 64 5f 61 63 |,TYDREAL|,1,"d_ac|
|00001f00| 6f 73 22 2c 20 38 20 7d | 2c 0a 20 20 0a 2b 20 23 |os", 8 }|,. .+ #|
|00001f10| 69 66 6e 64 65 66 20 47 | 46 4c 4f 41 54 0a 20 20 |ifndef G|FLOAT. |
|00001f20| 09 7b 20 54 59 52 45 41 | 4c 2c 54 59 52 45 41 4c |.{ TYREA|L,TYREAL|
|00001f30| 2c 31 2c 22 72 5f 61 74 | 61 6e 22 2c 20 39 20 7d |,1,"r_at|an", 9 }|
|00001f40| 2c 0a 20 20 23 65 6c 73 | 65 20 47 46 4c 4f 41 54 |,. #els|e GFLOAT|
|00001f50| 0a 20 20 09 7b 20 54 59 | 52 45 41 4c 2c 54 59 52 |. .{ TY|REAL,TYR|
|00001f60| 45 41 4c 2c 31 2c 22 72 | 5f 61 74 61 6e 22 20 7d |EAL,1,"r|_atan" }|
|00001f70| 2c 0a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |,.******|********|
|00001f80| 2a 0a 2a 2a 2a 20 32 37 | 35 2c 32 38 30 0a 20 20 |*.*** 27|5,280. |
|00001f90| 09 7b 20 54 59 44 52 45 | 41 4c 2c 54 59 44 52 45 |.{ TYDRE|AL,TYDRE|
|00001fa0| 41 4c 2c 31 2c 22 64 5f | 61 63 6f 73 22 2c 20 38 |AL,1,"d_|acos", 8|
|00001fb0| 20 7d 2c 0a 20 20 0a 20 | 20 09 7b 20 54 59 52 45 | },. . | .{ TYRE|
|00001fc0| 41 4c 2c 54 59 52 45 41 | 4c 2c 31 2c 22 72 5f 61 |AL,TYREA|L,1,"r_a|
|00001fd0| 74 61 6e 22 2c 20 39 20 | 7d 2c 0a 20 20 09 7b 20 |tan", 9 |},. .{ |
|00001fe0| 54 59 44 52 45 41 4c 2c | 54 59 44 52 45 41 4c 2c |TYDREAL,|TYDREAL,|
|00001ff0| 31 2c 22 64 5f 61 74 61 | 6e 22 2c 20 39 20 7d 2c |1,"d_ata|n", 9 },|
|00002000| 0a 20 20 0a 20 20 09 7b | 20 54 59 52 45 41 4c 2c |. . .{| TYREAL,|
|00002010| 54 59 52 45 41 4c 2c 32 | 2c 22 72 5f 61 74 6e 32 |TYREAL,2|,"r_atn2|
|00002020| 22 2c 20 31 30 20 7d 2c | 0a 0a 2d 2d 2d 20 33 30 |", 10 },|..--- 30|
|00002030| 38 2c 33 31 36 20 2d 2d | 2d 2d 2d 0a 20 20 0a 20 |8,316 --|---. . |
|00002040| 20 23 69 66 6e 64 65 66 | 20 47 46 4c 4f 41 54 0a | #ifndef| GFLOAT.|
|00002050| 20 20 09 7b 20 54 59 52 | 45 41 4c 2c 54 59 52 45 | .{ TYR|EAL,TYRE|
|00002060| 41 4c 2c 31 2c 22 72 5f | 61 74 61 6e 22 2c 20 39 |AL,1,"r_|atan", 9|
|00002070| 20 7d 2c 0a 2b 20 23 65 | 6c 73 65 20 47 46 4c 4f | },.+ #e|lse GFLO|
|00002080| 41 54 0a 2b 20 09 7b 20 | 54 59 52 45 41 4c 2c 54 |AT.+ .{ |TYREAL,T|
|00002090| 59 52 45 41 4c 2c 31 2c | 22 72 5f 61 74 61 6e 22 |YREAL,1,|"r_atan"|
|000020a0| 20 7d 2c 0a 2b 20 23 65 | 6e 64 69 66 20 47 46 4c | },.+ #e|ndif GFL|
|000020b0| 4f 41 54 0a 20 20 09 7b | 20 54 59 44 52 45 41 4c |OAT. .{| TYDREAL|
|000020c0| 2c 54 59 44 52 45 41 4c | 2c 31 2c 22 64 5f 61 74 |,TYDREAL|,1,"d_at|
|000020d0| 61 6e 22 2c 20 39 20 7d | 2c 0a 20 20 0a 20 20 23 |an", 9 }|,. . #|
|000020e0| 69 66 6e 64 65 66 20 47 | 46 4c 4f 41 54 0a 2a 2a |ifndef G|FLOAT.**|
|000020f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 2a 2a |********|*****.**|
|00002100| 2a 20 32 37 37 2c 32 38 | 32 0a 20 20 09 7b 20 54 |* 277,28|2. .{ T|
|00002110| 59 52 45 41 4c 2c 54 59 | 52 45 41 4c 2c 31 2c 22 |YREAL,TY|REAL,1,"|
|00002120| 72 5f 61 74 61 6e 22 2c | 20 39 20 7d 2c 0a 20 20 |r_atan",| 9 },. |
|00002130| 09 7b 20 54 59 44 52 45 | 41 4c 2c 54 59 44 52 45 |.{ TYDRE|AL,TYDRE|
|00002140| 41 4c 2c 31 2c 22 64 5f | 61 74 61 6e 22 2c 20 39 |AL,1,"d_|atan", 9|
|00002150| 20 7d 2c 0a 20 20 0a 20 | 20 09 7b 20 54 59 52 45 | },. . | .{ TYRE|
|00002160| 41 4c 2c 54 59 52 45 41 | 4c 2c 32 2c 22 72 5f 61 |AL,TYREA|L,2,"r_a|
|00002170| 74 6e 32 22 2c 20 31 30 | 20 7d 2c 0a 20 20 09 7b |tn2", 10| },. .{|
|00002180| 20 54 59 44 52 45 41 4c | 2c 54 59 44 52 45 41 4c | TYDREAL|,TYDREAL|
|00002190| 2c 32 2c 22 64 5f 61 74 | 6e 32 22 2c 20 31 30 20 |,2,"d_at|n2", 10 |
|000021a0| 7d 2c 0a 20 20 0a 0a 2d | 2d 2d 20 33 31 33 2c 33 |},. ..-|-- 313,3|
|000021b0| 31 39 20 2d 2d 2d 2d 2d | 0a 20 20 23 65 6e 64 69 |19 -----|. #endi|
|000021c0| 66 20 47 46 4c 4f 41 54 | 0a 20 20 09 7b 20 54 59 |f GFLOAT|. .{ TY|
|000021d0| 44 52 45 41 4c 2c 54 59 | 44 52 45 41 4c 2c 31 2c |DREAL,TY|DREAL,1,|
|000021e0| 22 64 5f 61 74 61 6e 22 | 2c 20 39 20 7d 2c 0a 20 |"d_atan"|, 9 },. |
|000021f0| 20 0a 2b 20 23 69 66 6e | 64 65 66 20 47 46 4c 4f | .+ #ifn|def GFLO|
|00002200| 41 54 0a 20 20 09 7b 20 | 54 59 52 45 41 4c 2c 54 |AT. .{ |TYREAL,T|
|00002210| 59 52 45 41 4c 2c 32 2c | 22 72 5f 61 74 6e 32 22 |YREAL,2,|"r_atn2"|
|00002220| 2c 20 31 30 20 7d 2c 0a | 20 20 23 65 6c 73 65 20 |, 10 },.| #else |
|00002230| 47 46 4c 4f 41 54 0a 20 | 20 09 7b 20 54 59 52 45 |GFLOAT. | .{ TYRE|
|00002240| 41 4c 2c 54 59 52 45 41 | 4c 2c 32 2c 22 72 5f 61 |AL,TYREA|L,2,"r_a|
|00002250| 74 6e 32 22 20 7d 2c 0a | 2a 2a 2a 2a 2a 2a 2a 2a |tn2" },.|********|
|00002260| 2a 2a 2a 2a 2a 2a 2a 0a | 2a 2a 2a 20 32 37 38 2c |*******.|*** 278,|
|00002270| 32 38 33 0a 20 20 09 7b | 20 54 59 44 52 45 41 4c |283. .{| TYDREAL|
|00002280| 2c 54 59 44 52 45 41 4c | 2c 31 2c 22 64 5f 61 74 |,TYDREAL|,1,"d_at|
|00002290| 61 6e 22 2c 20 39 20 7d | 2c 0a 20 20 0a 20 20 09 |an", 9 }|,. . .|
|000022a0| 7b 20 54 59 52 45 41 4c | 2c 54 59 52 45 41 4c 2c |{ TYREAL|,TYREAL,|
|000022b0| 32 2c 22 72 5f 61 74 6e | 32 22 2c 20 31 30 20 7d |2,"r_atn|2", 10 }|
|000022c0| 2c 0a 20 20 09 7b 20 54 | 59 44 52 45 41 4c 2c 54 |,. .{ T|YDREAL,T|
|000022d0| 59 44 52 45 41 4c 2c 32 | 2c 22 64 5f 61 74 6e 32 |YDREAL,2|,"d_atn2|
|000022e0| 22 2c 20 31 30 20 7d 2c | 0a 20 20 0a 20 20 09 7b |", 10 },|. . .{|
|000022f0| 20 54 59 52 45 41 4c 2c | 54 59 52 45 41 4c 2c 31 | TYREAL,|TYREAL,1|
|00002300| 2c 22 72 5f 73 69 6e 68 | 22 2c 20 31 31 20 7d 2c |,"r_sinh|", 11 },|
|00002310| 0a 0a 2d 2d 2d 20 33 31 | 35 2c 33 32 33 20 2d 2d |..--- 31|5,323 --|
|00002320| 2d 2d 2d 0a 20 20 0a 20 | 20 23 69 66 6e 64 65 66 |---. . | #ifndef|
|00002330| 20 47 46 4c 4f 41 54 0a | 20 20 09 7b 20 54 59 52 | GFLOAT.| .{ TYR|
|00002340| 45 41 4c 2c 54 59 52 45 | 41 4c 2c 32 2c 22 72 5f |EAL,TYRE|AL,2,"r_|
|00002350| 61 74 6e 32 22 2c 20 31 | 30 20 7d 2c 0a 2b 20 23 |atn2", 1|0 },.+ #|
|00002360| 65 6c 73 65 20 47 46 4c | 4f 41 54 0a 2b 20 09 7b |else GFL|OAT.+ .{|
|00002370| 20 54 59 52 45 41 4c 2c | 54 59 52 45 41 4c 2c 32 | TYREAL,|TYREAL,2|
|00002380| 2c 22 72 5f 61 74 6e 32 | 22 20 7d 2c 0a 2b 20 23 |,"r_atn2|" },.+ #|
|00002390| 65 6e 64 69 66 20 47 46 | 4c 4f 41 54 0a 20 20 09 |endif GF|LOAT. .|
|000023a0| 7b 20 54 59 44 52 45 41 | 4c 2c 54 59 44 52 45 41 |{ TYDREA|L,TYDREA|
|000023b0| 4c 2c 32 2c 22 64 5f 61 | 74 6e 32 22 2c 20 31 30 |L,2,"d_a|tn2", 10|
|000023c0| 20 7d 2c 0a 20 20 0a 20 | 20 23 69 66 6e 64 65 66 | },. . | #ifndef|
|000023d0| 20 47 46 4c 4f 41 54 0a | 2a 2a 2a 2a 2a 2a 2a 2a | GFLOAT.|********|
|000023e0| 2a 2a 2a 2a 2a 2a 2a 0a | 2a 2a 2a 20 32 38 30 2c |*******.|*** 280,|
|000023f0| 32 38 35 0a 20 20 09 7b | 20 54 59 52 45 41 4c 2c |285. .{| TYREAL,|
|00002400| 54 59 52 45 41 4c 2c 32 | 2c 22 72 5f 61 74 6e 32 |TYREAL,2|,"r_atn2|
|00002410| 22 2c 20 31 30 20 7d 2c | 0a 20 20 09 7b 20 54 59 |", 10 },|. .{ TY|
|00002420| 44 52 45 41 4c 2c 54 59 | 44 52 45 41 4c 2c 32 2c |DREAL,TY|DREAL,2,|
|00002430| 22 64 5f 61 74 6e 32 22 | 2c 20 31 30 20 7d 2c 0a |"d_atn2"|, 10 },.|
|00002440| 20 20 0a 20 20 09 7b 20 | 54 59 52 45 41 4c 2c 54 | . .{ |TYREAL,T|
|00002450| 59 52 45 41 4c 2c 31 2c | 22 72 5f 73 69 6e 68 22 |YREAL,1,|"r_sinh"|
|00002460| 2c 20 31 31 20 7d 2c 0a | 20 20 09 7b 20 54 59 44 |, 11 },.| .{ TYD|
|00002470| 52 45 41 4c 2c 54 59 44 | 52 45 41 4c 2c 31 2c 22 |REAL,TYD|REAL,1,"|
|00002480| 64 5f 73 69 6e 68 22 2c | 20 31 31 20 7d 2c 0a 20 |d_sinh",| 11 },. |
|00002490| 20 0a 0a 2d 2d 2d 20 33 | 32 30 2c 33 32 36 20 2d | ..--- 3|20,326 -|
|000024a0| 2d 2d 2d 2d 0a 20 20 23 | 65 6e 64 69 66 20 47 46 |----. #|endif GF|
|000024b0| 4c 4f 41 54 0a 20 20 09 | 7b 20 54 59 44 52 45 41 |LOAT. .|{ TYDREA|
|000024c0| 4c 2c 54 59 44 52 45 41 | 4c 2c 32 2c 22 64 5f 61 |L,TYDREA|L,2,"d_a|
|000024d0| 74 6e 32 22 2c 20 31 30 | 20 7d 2c 0a 20 20 0a 2b |tn2", 10| },. .+|
|000024e0| 20 23 69 66 6e 64 65 66 | 20 47 46 4c 4f 41 54 0a | #ifndef| GFLOAT.|
|000024f0| 20 20 09 7b 20 54 59 52 | 45 41 4c 2c 54 59 52 45 | .{ TYR|EAL,TYRE|
|00002500| 41 4c 2c 31 2c 22 72 5f | 73 69 6e 68 22 2c 20 31 |AL,1,"r_|sinh", 1|
|00002510| 31 20 7d 2c 0a 20 20 23 | 65 6c 73 65 20 47 46 4c |1 },. #|else GFL|
|00002520| 4f 41 54 0a 20 20 09 7b | 20 54 59 52 45 41 4c 2c |OAT. .{| TYREAL,|
|00002530| 54 59 52 45 41 4c 2c 31 | 2c 22 72 5f 73 69 6e 68 |TYREAL,1|,"r_sinh|
|00002540| 22 20 7d 2c 0a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |" },.***|********|
|00002550| 2a 2a 2a 2a 0a 2a 2a 2a | 20 32 38 31 2c 32 38 36 |****.***| 281,286|
|00002560| 0a 20 20 09 7b 20 54 59 | 44 52 45 41 4c 2c 54 59 |. .{ TY|DREAL,TY|
|00002570| 44 52 45 41 4c 2c 32 2c | 22 64 5f 61 74 6e 32 22 |DREAL,2,|"d_atn2"|
|00002580| 2c 20 31 30 20 7d 2c 0a | 20 20 0a 20 20 09 7b 20 |, 10 },.| . .{ |
|00002590| 54 59 52 45 41 4c 2c 54 | 59 52 45 41 4c 2c 31 2c |TYREAL,T|YREAL,1,|
|000025a0| 22 72 5f 73 69 6e 68 22 | 2c 20 31 31 20 7d 2c 0a |"r_sinh"|, 11 },.|
|000025b0| 20 20 09 7b 20 54 59 44 | 52 45 41 4c 2c 54 59 44 | .{ TYD|REAL,TYD|
|000025c0| 52 45 41 4c 2c 31 2c 22 | 64 5f 73 69 6e 68 22 2c |REAL,1,"|d_sinh",|
|000025d0| 20 31 31 20 7d 2c 0a 20 | 20 0a 20 20 09 7b 20 54 | 11 },. | . .{ T|
|000025e0| 59 52 45 41 4c 2c 54 59 | 52 45 41 4c 2c 31 2c 22 |YREAL,TY|REAL,1,"|
|000025f0| 72 5f 63 6f 73 68 22 2c | 20 31 32 20 7d 2c 0a 0a |r_cosh",| 12 },..|
|00002600| 2d 2d 2d 20 33 32 32 2c | 33 33 30 20 2d 2d 2d 2d |--- 322,|330 ----|
|00002610| 2d 0a 20 20 0a 20 20 23 | 69 66 6e 64 65 66 20 47 |-. . #|ifndef G|
|00002620| 46 4c 4f 41 54 0a 20 20 | 09 7b 20 54 59 52 45 41 |FLOAT. |.{ TYREA|
|00002630| 4c 2c 54 59 52 45 41 4c | 2c 31 2c 22 72 5f 73 69 |L,TYREAL|,1,"r_si|
|00002640| 6e 68 22 2c 20 31 31 20 | 7d 2c 0a 2b 20 23 65 6c |nh", 11 |},.+ #el|
|00002650| 73 65 20 47 46 4c 4f 41 | 54 0a 2b 20 09 7b 20 54 |se GFLOA|T.+ .{ T|
|00002660| 59 52 45 41 4c 2c 54 59 | 52 45 41 4c 2c 31 2c 22 |YREAL,TY|REAL,1,"|
|00002670| 72 5f 73 69 6e 68 22 20 | 7d 2c 0a 2b 20 23 65 6e |r_sinh" |},.+ #en|
|00002680| 64 69 66 20 47 46 4c 4f | 41 54 0a 20 20 09 7b 20 |dif GFLO|AT. .{ |
|00002690| 54 59 44 52 45 41 4c 2c | 54 59 44 52 45 41 4c 2c |TYDREAL,|TYDREAL,|
|000026a0| 31 2c 22 64 5f 73 69 6e | 68 22 2c 20 31 31 20 7d |1,"d_sin|h", 11 }|
|000026b0| 2c 0a 20 20 0a 20 20 23 | 69 66 6e 64 65 66 20 47 |,. . #|ifndef G|
|000026c0| 46 4c 4f 41 54 0a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |FLOAT.**|********|
|000026d0| 2a 2a 2a 2a 2a 0a 2a 2a | 2a 20 32 38 33 2c 32 38 |*****.**|* 283,28|
|000026e0| 38 0a 20 20 09 7b 20 54 | 59 52 45 41 4c 2c 54 59 |8. .{ T|YREAL,TY|
|000026f0| 52 45 41 4c 2c 31 2c 22 | 72 5f 73 69 6e 68 22 2c |REAL,1,"|r_sinh",|
|00002700| 20 31 31 20 7d 2c 0a 20 | 20 09 7b 20 54 59 44 52 | 11 },. | .{ TYDR|
|00002710| 45 41 4c 2c 54 59 44 52 | 45 41 4c 2c 31 2c 22 64 |EAL,TYDR|EAL,1,"d|
|00002720| 5f 73 69 6e 68 22 2c 20 | 31 31 20 7d 2c 0a 20 20 |_sinh", |11 },. |
|00002730| 0a 20 20 09 7b 20 54 59 | 52 45 41 4c 2c 54 59 52 |. .{ TY|REAL,TYR|
|00002740| 45 41 4c 2c 31 2c 22 72 | 5f 63 6f 73 68 22 2c 20 |EAL,1,"r|_cosh", |
|00002750| 31 32 20 7d 2c 0a 20 20 | 09 7b 20 54 59 44 52 45 |12 },. |.{ TYDRE|
|00002760| 41 4c 2c 54 59 44 52 45 | 41 4c 2c 31 2c 22 64 5f |AL,TYDRE|AL,1,"d_|
|00002770| 63 6f 73 68 22 2c 20 31 | 32 20 7d 2c 0a 20 20 0a |cosh", 1|2 },. .|
|00002780| 0a 2d 2d 2d 20 33 32 37 | 2c 33 33 33 20 2d 2d 2d |.--- 327|,333 ---|
|00002790| 2d 2d 0a 20 20 23 65 6e | 64 69 66 20 47 46 4c 4f |--. #en|dif GFLO|
|000027a0| 41 54 0a 20 20 09 7b 20 | 54 59 44 52 45 41 4c 2c |AT. .{ |TYDREAL,|
|000027b0| 54 59 44 52 45 41 4c 2c | 31 2c 22 64 5f 73 69 6e |TYDREAL,|1,"d_sin|
|000027c0| 68 22 2c 20 31 31 20 7d | 2c 0a 20 20 0a 2b 20 23 |h", 11 }|,. .+ #|
|000027d0| 69 66 6e 64 65 66 20 47 | 46 4c 4f 41 54 0a 20 20 |ifndef G|FLOAT. |
|000027e0| 09 7b 20 54 59 52 45 41 | 4c 2c 54 59 52 45 41 4c |.{ TYREA|L,TYREAL|
|000027f0| 2c 31 2c 22 72 5f 63 6f | 73 68 22 2c 20 31 32 20 |,1,"r_co|sh", 12 |
|00002800| 7d 2c 0a 20 20 23 65 6c | 73 65 20 47 46 4c 4f 41 |},. #el|se GFLOA|
|00002810| 54 0a 20 20 09 7b 20 54 | 59 52 45 41 4c 2c 54 59 |T. .{ T|YREAL,TY|
|00002820| 52 45 41 4c 2c 31 2c 22 | 72 5f 63 6f 73 68 22 20 |REAL,1,"|r_cosh" |
|00002830| 7d 2c 0a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |},.*****|********|
|00002840| 2a 2a 0a 2a 2a 2a 20 32 | 38 34 2c 32 38 39 0a 20 |**.*** 2|84,289. |
|00002850| 20 09 7b 20 54 59 44 52 | 45 41 4c 2c 54 59 44 52 | .{ TYDR|EAL,TYDR|
|00002860| 45 41 4c 2c 31 2c 22 64 | 5f 73 69 6e 68 22 2c 20 |EAL,1,"d|_sinh", |
|00002870| 31 31 20 7d 2c 0a 20 20 | 0a 20 20 09 7b 20 54 59 |11 },. |. .{ TY|
|00002880| 52 45 41 4c 2c 54 59 52 | 45 41 4c 2c 31 2c 22 72 |REAL,TYR|EAL,1,"r|
|00002890| 5f 63 6f 73 68 22 2c 20 | 31 32 20 7d 2c 0a 20 20 |_cosh", |12 },. |
|000028a0| 09 7b 20 54 59 44 52 45 | 41 4c 2c 54 59 44 52 45 |.{ TYDRE|AL,TYDRE|
|000028b0| 41 4c 2c 31 2c 22 64 5f | 63 6f 73 68 22 2c 20 31 |AL,1,"d_|cosh", 1|
|000028c0| 32 20 7d 2c 0a 20 20 0a | 20 20 09 7b 20 54 59 52 |2 },. .| .{ TYR|
|000028d0| 45 41 4c 2c 54 59 52 45 | 41 4c 2c 31 2c 22 72 5f |EAL,TYRE|AL,1,"r_|
|000028e0| 74 61 6e 68 22 2c 20 31 | 33 20 7d 2c 0a 0a 2d 2d |tanh", 1|3 },..--|
|000028f0| 2d 20 33 32 39 2c 33 33 | 37 20 2d 2d 2d 2d 2d 0a |- 329,33|7 -----.|
|00002900| 20 20 0a 20 20 23 69 66 | 6e 64 65 66 20 47 46 4c | . #if|ndef GFL|
|00002910| 4f 41 54 0a 20 20 09 7b | 20 54 59 52 45 41 4c 2c |OAT. .{| TYREAL,|
|00002920| 54 59 52 45 41 4c 2c 31 | 2c 22 72 5f 63 6f 73 68 |TYREAL,1|,"r_cosh|
|00002930| 22 2c 20 31 32 20 7d 2c | 0a 2b 20 23 65 6c 73 65 |", 12 },|.+ #else|
|00002940| 20 47 46 4c 4f 41 54 0a | 2b 20 09 7b 20 54 59 52 | GFLOAT.|+ .{ TYR|
|00002950| 45 41 4c 2c 54 59 52 45 | 41 4c 2c 31 2c 22 72 5f |EAL,TYRE|AL,1,"r_|
|00002960| 63 6f 73 68 22 20 7d 2c | 0a 2b 20 23 65 6e 64 69 |cosh" },|.+ #endi|
|00002970| 66 20 47 46 4c 4f 41 54 | 0a 20 20 09 7b 20 54 59 |f GFLOAT|. .{ TY|
|00002980| 44 52 45 41 4c 2c 54 59 | 44 52 45 41 4c 2c 31 2c |DREAL,TY|DREAL,1,|
|00002990| 22 64 5f 63 6f 73 68 22 | 2c 20 31 32 20 7d 2c 0a |"d_cosh"|, 12 },.|
|000029a0| 20 20 0a 20 20 23 69 66 | 6e 64 65 66 20 47 46 4c | . #if|ndef GFL|
|000029b0| 4f 41 54 0a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |OAT.****|********|
|000029c0| 2a 2a 2a 0a 2a 2a 2a 20 | 32 38 36 2c 32 39 31 0a |***.*** |286,291.|
|000029d0| 20 20 09 7b 20 54 59 52 | 45 41 4c 2c 54 59 52 45 | .{ TYR|EAL,TYRE|
|000029e0| 41 4c 2c 31 2c 22 72 5f | 63 6f 73 68 22 2c 20 31 |AL,1,"r_|cosh", 1|
|000029f0| 32 20 7d 2c 0a 20 20 09 | 7b 20 54 59 44 52 45 41 |2 },. .|{ TYDREA|
|00002a00| 4c 2c 54 59 44 52 45 41 | 4c 2c 31 2c 22 64 5f 63 |L,TYDREA|L,1,"d_c|
|00002a10| 6f 73 68 22 2c 20 31 32 | 20 7d 2c 0a 20 20 0a 20 |osh", 12| },. . |
|00002a20| 20 09 7b 20 54 59 52 45 | 41 4c 2c 54 59 52 45 41 | .{ TYRE|AL,TYREA|
|00002a30| 4c 2c 31 2c 22 72 5f 74 | 61 6e 68 22 2c 20 31 33 |L,1,"r_t|anh", 13|
|00002a40| 20 7d 2c 0a 20 20 09 7b | 20 54 59 44 52 45 41 4c | },. .{| TYDREAL|
|00002a50| 2c 54 59 44 52 45 41 4c | 2c 31 2c 22 64 5f 74 61 |,TYDREAL|,1,"d_ta|
|00002a60| 6e 68 22 2c 20 31 33 20 | 7d 2c 0a 20 20 0a 0a 2d |nh", 13 |},. ..-|
|00002a70| 2d 2d 20 33 33 34 2c 33 | 34 30 20 2d 2d 2d 2d 2d |-- 334,3|40 -----|
|00002a80| 0a 20 20 23 65 6e 64 69 | 66 20 47 46 4c 4f 41 54 |. #endi|f GFLOAT|
|00002a90| 0a 20 20 09 7b 20 54 59 | 44 52 45 41 4c 2c 54 59 |. .{ TY|DREAL,TY|
|00002aa0| 44 52 45 41 4c 2c 31 2c | 22 64 5f 63 6f 73 68 22 |DREAL,1,|"d_cosh"|
|00002ab0| 2c 20 31 32 20 7d 2c 0a | 20 20 0a 2b 20 23 69 66 |, 12 },.| .+ #if|
|00002ac0| 6e 64 65 66 20 47 46 4c | 4f 41 54 0a 20 20 09 7b |ndef GFL|OAT. .{|
|00002ad0| 20 54 59 52 45 41 4c 2c | 54 59 52 45 41 4c 2c 31 | TYREAL,|TYREAL,1|
|00002ae0| 2c 22 72 5f 74 61 6e 68 | 22 2c 20 31 33 20 7d 2c |,"r_tanh|", 13 },|
|00002af0| 0a 20 20 23 65 6c 73 65 | 20 47 46 4c 4f 41 54 0a |. #else| GFLOAT.|
|00002b00| 20 20 09 7b 20 54 59 52 | 45 41 4c 2c 54 59 52 45 | .{ TYR|EAL,TYRE|
|00002b10| 41 4c 2c 31 2c 22 72 5f | 74 61 6e 68 22 20 7d 2c |AL,1,"r_|tanh" },|
|00002b20| 0a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.*******|********|
|00002b30| 0a 2a 2a 2a 20 32 38 37 | 2c 32 39 32 0a 20 20 09 |.*** 287|,292. .|
|00002b40| 7b 20 54 59 44 52 45 41 | 4c 2c 54 59 44 52 45 41 |{ TYDREA|L,TYDREA|
|00002b50| 4c 2c 31 2c 22 64 5f 63 | 6f 73 68 22 2c 20 31 32 |L,1,"d_c|osh", 12|
|00002b60| 20 7d 2c 0a 20 20 0a 20 | 20 09 7b 20 54 59 52 45 | },. . | .{ TYRE|
|00002b70| 41 4c 2c 54 59 52 45 41 | 4c 2c 31 2c 22 72 5f 74 |AL,TYREA|L,1,"r_t|
|00002b80| 61 6e 68 22 2c 20 31 33 | 20 7d 2c 0a 20 20 09 7b |anh", 13| },. .{|
|00002b90| 20 54 59 44 52 45 41 4c | 2c 54 59 44 52 45 41 4c | TYDREAL|,TYDREAL|
|00002ba0| 2c 31 2c 22 64 5f 74 61 | 6e 68 22 2c 20 31 33 20 |,1,"d_ta|nh", 13 |
|00002bb0| 7d 2c 0a 20 20 0a 20 20 | 09 7b 20 54 59 43 48 41 |},. . |.{ TYCHA|
|00002bc0| 52 2c 54 59 4c 4f 47 49 | 43 41 4c 2c 32 2c 22 68 |R,TYLOGI|CAL,2,"h|
|00002bd0| 6c 5f 67 65 22 20 7d 2c | 0a 0a 2d 2d 2d 20 33 33 |l_ge" },|..--- 33|
|00002be0| 36 2c 33 34 34 20 2d 2d | 2d 2d 2d 0a 20 20 0a 20 |6,344 --|---. . |
|00002bf0| 20 23 69 66 6e 64 65 66 | 20 47 46 4c 4f 41 54 0a | #ifndef| GFLOAT.|
|00002c00| 20 20 09 7b 20 54 59 52 | 45 41 4c 2c 54 59 52 45 | .{ TYR|EAL,TYRE|
|00002c10| 41 4c 2c 31 2c 22 72 5f | 74 61 6e 68 22 2c 20 31 |AL,1,"r_|tanh", 1|
|00002c20| 33 20 7d 2c 0a 2b 20 23 | 65 6c 73 65 20 47 46 4c |3 },.+ #|else GFL|
|00002c30| 4f 41 54 0a 2b 20 09 7b | 20 54 59 52 45 41 4c 2c |OAT.+ .{| TYREAL,|
|00002c40| 54 59 52 45 41 4c 2c 31 | 2c 22 72 5f 74 61 6e 68 |TYREAL,1|,"r_tanh|
|00002c50| 22 20 7d 2c 0a 2b 20 23 | 65 6e 64 69 66 20 47 46 |" },.+ #|endif GF|
|00002c60| 4c 4f 41 54 0a 20 20 09 | 7b 20 54 59 44 52 45 41 |LOAT. .|{ TYDREA|
|00002c70| 4c 2c 54 59 44 52 45 41 | 4c 2c 31 2c 22 64 5f 74 |L,TYDREA|L,1,"d_t|
|00002c80| 61 6e 68 22 2c 20 31 33 | 20 7d 2c 0a 20 20 0a 20 |anh", 13| },. . |
|00002c90| 20 09 7b 20 54 59 43 48 | 41 52 2c 54 59 4c 4f 47 | .{ TYCH|AR,TYLOG|
|00002ca0| 49 43 41 4c 2c 32 2c 22 | 68 6c 5f 67 65 22 20 7d |ICAL,2,"|hl_ge" }|
|00002cb0| 2c 0a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |,.******|********|
|00002cc0| 2a 0a 2a 2a 2a 20 33 30 | 36 2c 33 31 31 0a 20 20 |*.*** 30|6,311. |
|00002cd0| 09 7b 20 54 59 44 52 45 | 41 4c 2c 54 59 53 48 4f |.{ TYDRE|AL,TYSHO|
|00002ce0| 52 54 2c 31 2c 22 68 64 | 5f 65 78 70 6e 22 20 7d |RT,1,"hd|_expn" }|
|00002cf0| 2c 0a 20 20 09 7b 20 54 | 59 44 52 45 41 4c 2c 54 |,. .{ T|YDREAL,T|
|00002d00| 59 4c 4f 4e 47 2c 31 2c | 22 69 64 5f 65 78 70 6e |YLONG,1,|"id_expn|
|00002d10| 22 20 7d 2c 0a 20 20 0a | 20 20 09 7b 20 54 59 52 |" },. .| .{ TYR|
|00002d20| 45 41 4c 2c 54 59 52 45 | 41 4c 2c 31 2c 22 72 5f |EAL,TYRE|AL,1,"r_|
|00002d30| 61 62 73 70 22 20 7d 2c | 0a 20 20 09 7b 20 54 59 |absp" },|. .{ TY|
|00002d40| 44 52 45 41 4c 2c 54 59 | 44 52 45 41 4c 2c 31 2c |DREAL,TY|DREAL,1,|
|00002d50| 22 64 5f 61 62 73 70 22 | 20 7d 2c 0a 20 20 0a 0a |"d_absp"| },. ..|
|00002d60| 2d 2d 2d 20 33 35 38 2c | 33 36 34 20 2d 2d 2d 2d |--- 358,|364 ----|
|00002d70| 2d 0a 20 20 09 7b 20 54 | 59 44 52 45 41 4c 2c 54 |-. .{ T|YDREAL,T|
|00002d80| 59 53 48 4f 52 54 2c 31 | 2c 22 68 64 5f 65 78 70 |YSHORT,1|,"hd_exp|
|00002d90| 6e 22 20 7d 2c 0a 20 20 | 09 7b 20 54 59 44 52 45 |n" },. |.{ TYDRE|
|00002da0| 41 4c 2c 54 59 4c 4f 4e | 47 2c 31 2c 22 69 64 5f |AL,TYLON|G,1,"id_|
|00002db0| 65 78 70 6e 22 20 7d 2c | 0a 20 20 0a 2b 20 23 69 |expn" },|. .+ #i|
|00002dc0| 66 6e 64 65 66 20 47 46 | 4c 4f 41 54 0a 20 20 09 |fndef GF|LOAT. .|
|00002dd0| 7b 20 54 59 52 45 41 4c | 2c 54 59 52 45 41 4c 2c |{ TYREAL|,TYREAL,|
|00002de0| 31 2c 22 72 5f 61 62 73 | 70 22 20 7d 2c 0a 20 20 |1,"r_abs|p" },. |
|00002df0| 23 65 6c 73 65 20 47 46 | 4c 4f 41 54 0a 20 20 09 |#else GF|LOAT. .|
|00002e00| 7b 20 54 59 52 45 41 4c | 2c 54 59 44 52 45 41 4c |{ TYREAL|,TYDREAL|
|00002e10| 2c 31 2c 22 72 5f 61 62 | 73 70 22 20 7d 2c 0a 2a |,1,"r_ab|sp" },.*|
|00002e20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 2a |********|******.*|
|00002e30| 2a 2a 20 33 30 37 2c 33 | 31 32 0a 20 20 09 7b 20 |** 307,3|12. .{ |
|00002e40| 54 59 44 52 45 41 4c 2c | 54 59 4c 4f 4e 47 2c 31 |TYDREAL,|TYLONG,1|
|00002e50| 2c 22 69 64 5f 65 78 70 | 6e 22 20 7d 2c 0a 20 20 |,"id_exp|n" },. |
|00002e60| 0a 20 20 09 7b 20 54 59 | 52 45 41 4c 2c 54 59 52 |. .{ TY|REAL,TYR|
|00002e70| 45 41 4c 2c 31 2c 22 72 | 5f 61 62 73 70 22 20 7d |EAL,1,"r|_absp" }|
|00002e80| 2c 0a 20 20 09 7b 20 54 | 59 44 52 45 41 4c 2c 54 |,. .{ T|YDREAL,T|
|00002e90| 59 44 52 45 41 4c 2c 31 | 2c 22 64 5f 61 62 73 70 |YDREAL,1|,"d_absp|
|00002ea0| 22 20 7d 2c 0a 20 20 0a | 20 20 09 7b 20 54 59 52 |" },. .| .{ TYR|
|00002eb0| 45 41 4c 2c 54 59 44 52 | 45 41 4c 2c 31 2c 22 72 |EAL,TYDR|EAL,1,"r|
|00002ec0| 5f 72 72 73 70 22 20 7d | 2c 0a 0a 2d 2d 2d 20 33 |_rrsp" }|,..--- 3|
|00002ed0| 36 30 2c 33 36 38 20 2d | 2d 2d 2d 2d 0a 20 20 0a |60,368 -|----. .|
|00002ee0| 20 20 23 69 66 6e 64 65 | 66 20 47 46 4c 4f 41 54 | #ifnde|f GFLOAT|
|00002ef0| 0a 20 20 09 7b 20 54 59 | 52 45 41 4c 2c 54 59 52 |. .{ TY|REAL,TYR|
|00002f00| 45 41 4c 2c 31 2c 22 72 | 5f 61 62 73 70 22 20 7d |EAL,1,"r|_absp" }|
|00002f10| 2c 0a 2b 20 23 65 6c 73 | 65 20 47 46 4c 4f 41 54 |,.+ #els|e GFLOAT|
|00002f20| 0a 2b 20 09 7b 20 54 59 | 52 45 41 4c 2c 54 59 44 |.+ .{ TY|REAL,TYD|
|00002f30| 52 45 41 4c 2c 31 2c 22 | 72 5f 61 62 73 70 22 20 |REAL,1,"|r_absp" |
|00002f40| 7d 2c 0a 2b 20 23 65 6e | 64 69 66 20 47 46 4c 4f |},.+ #en|dif GFLO|
|00002f50| 41 54 0a 20 20 09 7b 20 | 54 59 44 52 45 41 4c 2c |AT. .{ |TYDREAL,|
|00002f60| 54 59 44 52 45 41 4c 2c | 31 2c 22 64 5f 61 62 73 |TYDREAL,|1,"d_abs|
|00002f70| 70 22 20 7d 2c 0a 20 20 | 0a 20 20 09 7b 20 54 59 |p" },. |. .{ TY|
|00002f80| 52 45 41 4c 2c 54 59 44 | 52 45 41 4c 2c 31 2c 22 |REAL,TYD|REAL,1,"|
|00002f90| 72 5f 72 72 73 70 22 20 | 7d 2c 0a 2a 2a 2a 2a 2a |r_rrsp" |},.*****|
|00002fa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0a 2a 2a 2a 20 33 |********|**.*** 3|
|00002fb0| 31 32 2c 33 31 37 0a 20 | 20 09 7b 20 54 59 52 45 |12,317. | .{ TYRE|
|00002fc0| 41 4c 2c 54 59 44 52 45 | 41 4c 2c 31 2c 22 72 5f |AL,TYDRE|AL,1,"r_|
|00002fd0| 72 72 73 70 22 20 7d 2c | 0a 20 20 09 7b 20 54 59 |rrsp" },|. .{ TY|
|00002fe0| 44 52 45 41 4c 2c 54 59 | 44 52 45 41 4c 2c 31 2c |DREAL,TY|DREAL,1,|
|00002ff0| 22 64 5f 72 72 73 70 22 | 20 7d 2c 0a 20 20 0a 20 |"d_rrsp"| },. . |
|00003000| 20 09 7b 20 54 59 52 45 | 41 4c 2c 54 59 52 45 41 | .{ TYRE|AL,TYREA|
|00003010| 4c 2c 31 2c 22 72 5f 66 | 72 61 63 22 20 7d 2c 0a |L,1,"r_f|rac" },.|
|00003020| 20 20 09 7b 20 54 59 44 | 52 45 41 4c 2c 54 59 44 | .{ TYD|REAL,TYD|
|00003030| 52 45 41 4c 2c 31 2c 22 | 64 5f 66 72 61 63 22 20 |REAL,1,"|d_frac" |
|00003040| 7d 2c 0a 20 20 0a 0a 2d | 2d 2d 20 33 36 38 2c 33 |},. ..-|-- 368,3|
|00003050| 37 34 20 2d 2d 2d 2d 2d | 0a 20 20 09 7b 20 54 59 |74 -----|. .{ TY|
|00003060| 52 45 41 4c 2c 54 59 44 | 52 45 41 4c 2c 31 2c 22 |REAL,TYD|REAL,1,"|
|00003070| 72 5f 72 72 73 70 22 20 | 7d 2c 0a 20 20 09 7b 20 |r_rrsp" |},. .{ |
|00003080| 54 59 44 52 45 41 4c 2c | 54 59 44 52 45 41 4c 2c |TYDREAL,|TYDREAL,|
|00003090| 31 2c 22 64 5f 72 72 73 | 70 22 20 7d 2c 0a 20 20 |1,"d_rrs|p" },. |
|000030a0| 0a 2b 20 23 69 66 6e 64 | 65 66 20 47 46 4c 4f 41 |.+ #ifnd|ef GFLOA|
|000030b0| 54 0a 20 20 09 7b 20 54 | 59 52 45 41 4c 2c 54 59 |T. .{ T|YREAL,TY|
|000030c0| 52 45 41 4c 2c 31 2c 22 | 72 5f 66 72 61 63 22 20 |REAL,1,"|r_frac" |
|000030d0| 7d 2c 0a 20 20 23 65 6c | 73 65 20 47 46 4c 4f 41 |},. #el|se GFLOA|
|000030e0| 54 0a 20 20 09 7b 20 54 | 59 52 45 41 4c 2c 54 59 |T. .{ T|YREAL,TY|
|000030f0| 44 52 45 41 4c 2c 31 2c | 22 72 5f 66 72 61 63 22 |DREAL,1,|"r_frac"|
|00003100| 20 7d 2c 0a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | },.****|********|
|00003110| 2a 2a 2a 0a 2a 2a 2a 20 | 33 31 33 2c 33 31 38 0a |***.*** |313,318.|
|00003120| 20 20 09 7b 20 54 59 44 | 52 45 41 4c 2c 54 59 44 | .{ TYD|REAL,TYD|
|00003130| 52 45 41 4c 2c 31 2c 22 | 64 5f 72 72 73 70 22 20 |REAL,1,"|d_rrsp" |
|00003140| 7d 2c 0a 20 20 0a 20 20 | 09 7b 20 54 59 52 45 41 |},. . |.{ TYREA|
|00003150| 4c 2c 54 59 52 45 41 4c | 2c 31 2c 22 72 5f 66 72 |L,TYREAL|,1,"r_fr|
|00003160| 61 63 22 20 7d 2c 0a 20 | 20 09 7b 20 54 59 44 52 |ac" },. | .{ TYDR|
|00003170| 45 41 4c 2c 54 59 44 52 | 45 41 4c 2c 31 2c 22 64 |EAL,TYDR|EAL,1,"d|
|00003180| 5f 66 72 61 63 22 20 7d | 2c 0a 20 20 0a 20 20 09 |_frac" }|,. . .|
|00003190| 7b 20 54 59 52 45 41 4c | 2c 54 59 52 45 41 4c 2c |{ TYREAL|,TYREAL,|
|000031a0| 32 2c 22 72 5f 6d 61 6b | 65 22 20 7d 2c 0a 0a 2d |2,"r_mak|e" },..-|
|000031b0| 2d 2d 20 33 37 30 2c 33 | 37 38 20 2d 2d 2d 2d 2d |-- 370,3|78 -----|
|000031c0| 0a 20 20 0a 20 20 23 69 | 66 6e 64 65 66 20 47 46 |. . #i|fndef GF|
|000031d0| 4c 4f 41 54 0a 20 20 09 | 7b 20 54 59 52 45 41 4c |LOAT. .|{ TYREAL|
|000031e0| 2c 54 59 52 45 41 4c 2c | 31 2c 22 72 5f 66 72 61 |,TYREAL,|1,"r_fra|
|000031f0| 63 22 20 7d 2c 0a 2b 20 | 23 65 6c 73 65 20 47 46 |c" },.+ |#else GF|
|00003200| 4c 4f 41 54 0a 2b 20 09 | 7b 20 54 59 52 45 41 4c |LOAT.+ .|{ TYREAL|
|00003210| 2c 54 59 44 52 45 41 4c | 2c 31 2c 22 72 5f 66 72 |,TYDREAL|,1,"r_fr|
|00003220| 61 63 22 20 7d 2c 0a 2b | 20 23 65 6e 64 69 66 20 |ac" },.+| #endif |
|00003230| 47 46 4c 4f 41 54 0a 20 | 20 09 7b 20 54 59 44 52 |GFLOAT. | .{ TYDR|
|00003240| 45 41 4c 2c 54 59 44 52 | 45 41 4c 2c 31 2c 22 64 |EAL,TYDR|EAL,1,"d|
|00003250| 5f 66 72 61 63 22 20 7d | 2c 0a 20 20 0a 20 20 23 |_frac" }|,. . #|
|00003260| 69 66 6e 64 65 66 20 47 | 46 4c 4f 41 54 0a 2a 2a |ifndef G|FLOAT.**|
|00003270| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 2a 2a |********|*****.**|
|00003280| 2a 20 33 31 35 2c 33 32 | 30 0a 20 20 09 7b 20 54 |* 315,32|0. .{ T|
|00003290| 59 52 45 41 4c 2c 54 59 | 52 45 41 4c 2c 31 2c 22 |YREAL,TY|REAL,1,"|
|000032a0| 72 5f 66 72 61 63 22 20 | 7d 2c 0a 20 20 09 7b 20 |r_frac" |},. .{ |
|000032b0| 54 59 44 52 45 41 4c 2c | 54 59 44 52 45 41 4c 2c |TYDREAL,|TYDREAL,|
|000032c0| 31 2c 22 64 5f 66 72 61 | 63 22 20 7d 2c 0a 20 20 |1,"d_fra|c" },. |
|000032d0| 0a 20 20 09 7b 20 54 59 | 52 45 41 4c 2c 54 59 52 |. .{ TY|REAL,TYR|
|000032e0| 45 41 4c 2c 32 2c 22 72 | 5f 6d 61 6b 65 22 20 7d |EAL,2,"r|_make" }|
|000032f0| 2c 0a 20 20 09 7b 20 54 | 59 44 52 45 41 4c 2c 54 |,. .{ T|YDREAL,T|
|00003300| 59 44 52 45 41 4c 2c 32 | 2c 22 64 5f 6d 61 6b 65 |YDREAL,2|,"d_make|
|00003310| 22 20 7d 2c 0a 20 20 0a | 0a 2d 2d 2d 20 33 37 35 |" },. .|.--- 375|
|00003320| 2c 33 38 31 20 2d 2d 2d | 2d 2d 0a 20 20 23 65 6e |,381 ---|--. #en|
|00003330| 64 69 66 20 47 46 4c 4f | 41 54 0a 20 20 09 7b 20 |dif GFLO|AT. .{ |
|00003340| 54 59 44 52 45 41 4c 2c | 54 59 44 52 45 41 4c 2c |TYDREAL,|TYDREAL,|
|00003350| 31 2c 22 64 5f 66 72 61 | 63 22 20 7d 2c 0a 20 20 |1,"d_fra|c" },. |
|00003360| 0a 2b 20 23 69 66 6e 64 | 65 66 20 47 46 4c 4f 41 |.+ #ifnd|ef GFLOA|
|00003370| 54 0a 20 20 09 7b 20 54 | 59 52 45 41 4c 2c 54 59 |T. .{ T|YREAL,TY|
|00003380| 52 45 41 4c 2c 32 2c 22 | 72 5f 6d 61 6b 65 22 20 |REAL,2,"|r_make" |
|00003390| 7d 2c 0a 20 20 23 65 6c | 73 65 20 47 46 4c 4f 41 |},. #el|se GFLOA|
|000033a0| 54 0a 20 20 09 7b 20 54 | 59 52 45 41 4c 2c 54 59 |T. .{ T|YREAL,TY|
|000033b0| 44 52 45 41 4c 2c 32 2c | 22 72 5f 6d 61 6b 65 22 |DREAL,2,|"r_make"|
|000033c0| 20 7d 2c 0a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | },.****|********|
|000033d0| 2a 2a 2a 0a 2a 2a 2a 20 | 33 31 36 2c 33 32 31 0a |***.*** |316,321.|
|000033e0| 20 20 09 7b 20 54 59 44 | 52 45 41 4c 2c 54 59 44 | .{ TYD|REAL,TYD|
|000033f0| 52 45 41 4c 2c 31 2c 22 | 64 5f 66 72 61 63 22 20 |REAL,1,"|d_frac" |
|00003400| 7d 2c 0a 20 20 0a 20 20 | 09 7b 20 54 59 52 45 41 |},. . |.{ TYREA|
|00003410| 4c 2c 54 59 52 45 41 4c | 2c 32 2c 22 72 5f 6d 61 |L,TYREAL|,2,"r_ma|
|00003420| 6b 65 22 20 7d 2c 0a 20 | 20 09 7b 20 54 59 44 52 |ke" },. | .{ TYDR|
|00003430| 45 41 4c 2c 54 59 44 52 | 45 41 4c 2c 32 2c 22 64 |EAL,TYDR|EAL,2,"d|
|00003440| 5f 6d 61 6b 65 22 20 7d | 2c 0a 20 20 0a 20 20 09 |_make" }|,. . .|
|00003450| 7b 20 54 59 52 45 41 4c | 2c 54 59 52 45 41 4c 2c |{ TYREAL|,TYREAL,|
|00003460| 32 2c 22 72 5f 73 63 61 | 6c 22 20 7d 2c 0a 0a 2d |2,"r_sca|l" },..-|
|00003470| 2d 2d 20 33 37 37 2c 33 | 38 35 20 2d 2d 2d 2d 2d |-- 377,3|85 -----|
|00003480| 0a 20 20 0a 20 20 23 69 | 66 6e 64 65 66 20 47 46 |. . #i|fndef GF|
|00003490| 4c 4f 41 54 0a 20 20 09 | 7b 20 54 59 52 45 41 4c |LOAT. .|{ TYREAL|
|000034a0| 2c 54 59 52 45 41 4c 2c | 32 2c 22 72 5f 6d 61 6b |,TYREAL,|2,"r_mak|
|000034b0| 65 22 20 7d 2c 0a 2b 20 | 23 65 6c 73 65 20 47 46 |e" },.+ |#else GF|
|000034c0| 4c 4f 41 54 0a 2b 20 09 | 7b 20 54 59 52 45 41 4c |LOAT.+ .|{ TYREAL|
|000034d0| 2c 54 59 44 52 45 41 4c | 2c 32 2c 22 72 5f 6d 61 |,TYDREAL|,2,"r_ma|
|000034e0| 6b 65 22 20 7d 2c 0a 2b | 20 23 65 6e 64 69 66 20 |ke" },.+| #endif |
|000034f0| 47 46 4c 4f 41 54 0a 20 | 20 09 7b 20 54 59 44 52 |GFLOAT. | .{ TYDR|
|00003500| 45 41 4c 2c 54 59 44 52 | 45 41 4c 2c 32 2c 22 64 |EAL,TYDR|EAL,2,"d|
|00003510| 5f 6d 61 6b 65 22 20 7d | 2c 0a 20 20 0a 20 20 23 |_make" }|,. . #|
|00003520| 69 66 6e 64 65 66 20 47 | 46 4c 4f 41 54 0a 2a 2a |ifndef G|FLOAT.**|
|00003530| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 2a 2a |********|*****.**|
|00003540| 2a 20 33 31 38 2c 33 32 | 33 0a 20 20 09 7b 20 54 |* 318,32|3. .{ T|
|00003550| 59 52 45 41 4c 2c 54 59 | 52 45 41 4c 2c 32 2c 22 |YREAL,TY|REAL,2,"|
|00003560| 72 5f 6d 61 6b 65 22 20 | 7d 2c 0a 20 20 09 7b 20 |r_make" |},. .{ |
|00003570| 54 59 44 52 45 41 4c 2c | 54 59 44 52 45 41 4c 2c |TYDREAL,|TYDREAL,|
|00003580| 32 2c 22 64 5f 6d 61 6b | 65 22 20 7d 2c 0a 20 20 |2,"d_mak|e" },. |
|00003590| 0a 20 20 09 7b 20 54 59 | 52 45 41 4c 2c 54 59 52 |. .{ TY|REAL,TYR|
|000035a0| 45 41 4c 2c 32 2c 22 72 | 5f 73 63 61 6c 22 20 7d |EAL,2,"r|_scal" }|
|000035b0| 2c 0a 20 20 09 7b 20 54 | 59 44 52 45 41 4c 2c 54 |,. .{ T|YDREAL,T|
|000035c0| 59 44 52 45 41 4c 2c 32 | 2c 22 64 5f 73 63 61 6c |YDREAL,2|,"d_scal|
|000035d0| 22 20 7d 0a 20 20 7d 20 | 3b 0a 0a 2d 2d 2d 20 33 |" }. } |;..--- 3|
|000035e0| 38 32 2c 33 38 38 20 2d | 2d 2d 2d 2d 0a 20 20 23 |82,388 -|----. #|
|000035f0| 65 6e 64 69 66 20 47 46 | 4c 4f 41 54 0a 20 20 09 |endif GF|LOAT. .|
|00003600| 7b 20 54 59 44 52 45 41 | 4c 2c 54 59 44 52 45 41 |{ TYDREA|L,TYDREA|
|00003610| 4c 2c 32 2c 22 64 5f 6d | 61 6b 65 22 20 7d 2c 0a |L,2,"d_m|ake" },.|
|00003620| 20 20 0a 2b 20 23 69 66 | 6e 64 65 66 20 47 46 4c | .+ #if|ndef GFL|
|00003630| 4f 41 54 0a 20 20 09 7b | 20 54 59 52 45 41 4c 2c |OAT. .{| TYREAL,|
|00003640| 54 59 52 45 41 4c 2c 32 | 2c 22 72 5f 73 63 61 6c |TYREAL,2|,"r_scal|
|00003650| 22 20 7d 2c 0a 20 20 23 | 65 6c 73 65 20 47 46 4c |" },. #|else GFL|
|00003660| 4f 41 54 0a 20 20 09 7b | 20 54 59 52 45 41 4c 2c |OAT. .{| TYREAL,|
|00003670| 54 59 44 52 45 41 4c 2c | 32 2c 22 72 5f 73 63 61 |TYDREAL,|2,"r_sca|
|00003680| 6c 22 20 7d 2c 0a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |l" },.**|********|
|00003690| 2a 2a 2a 2a 2a 0a 2a 2a | 2a 20 33 31 39 2c 33 32 |*****.**|* 319,32|
|000036a0| 34 0a 20 20 09 7b 20 54 | 59 44 52 45 41 4c 2c 54 |4. .{ T|YDREAL,T|
|000036b0| 59 44 52 45 41 4c 2c 32 | 2c 22 64 5f 6d 61 6b 65 |YDREAL,2|,"d_make|
|000036c0| 22 20 7d 2c 0a 20 20 0a | 20 20 09 7b 20 54 59 52 |" },. .| .{ TYR|
|000036d0| 45 41 4c 2c 54 59 52 45 | 41 4c 2c 32 2c 22 72 5f |EAL,TYRE|AL,2,"r_|
|000036e0| 73 63 61 6c 22 20 7d 2c | 0a 20 20 09 7b 20 54 59 |scal" },|. .{ TY|
|000036f0| 44 52 45 41 4c 2c 54 59 | 44 52 45 41 4c 2c 32 2c |DREAL,TY|DREAL,2,|
|00003700| 22 64 5f 73 63 61 6c 22 | 20 7d 0a 20 20 7d 20 3b |"d_scal"| }. } ;|
|00003710| 0a 20 20 0c 0a 0a 2d 2d | 2d 20 33 38 34 2c 33 39 |. ...--|- 384,39|
|00003720| 32 20 2d 2d 2d 2d 2d 0a | 20 20 0a 20 20 23 69 66 |2 -----.| . #if|
|00003730| 6e 64 65 66 20 47 46 4c | 4f 41 54 0a 20 20 09 7b |ndef GFL|OAT. .{|
|00003740| 20 54 59 52 45 41 4c 2c | 54 59 52 45 41 4c 2c 32 | TYREAL,|TYREAL,2|
|00003750| 2c 22 72 5f 73 63 61 6c | 22 20 7d 2c 0a 2b 20 23 |,"r_scal|" },.+ #|
|00003760| 65 6c 73 65 20 47 46 4c | 4f 41 54 0a 2b 20 09 7b |else GFL|OAT.+ .{|
|00003770| 20 54 59 52 45 41 4c 2c | 54 59 44 52 45 41 4c 2c | TYREAL,|TYDREAL,|
|00003780| 32 2c 22 72 5f 73 63 61 | 6c 22 20 7d 2c 0a 2b 20 |2,"r_sca|l" },.+ |
|00003790| 23 65 6e 64 69 66 20 47 | 46 4c 4f 41 54 0a 20 20 |#endif G|FLOAT. |
|000037a0| 09 7b 20 54 59 44 52 45 | 41 4c 2c 54 59 44 52 45 |.{ TYDRE|AL,TYDRE|
|000037b0| 41 4c 2c 32 2c 22 64 5f | 73 63 61 6c 22 20 7d 0a |AL,2,"d_|scal" }.|
|000037c0| 20 20 7d 20 3b 0a 20 20 | 0c 0a 53 48 41 52 5f 45 | } ;. |..SHAR_E|
|000037d0| 4f 46 0a 63 68 6d 6f 64 | 20 2b 78 20 27 69 6e 74 |OF.chmod| +x 'int|
|000037e0| 72 2e 63 2e 64 69 66 66 | 27 0a 69 66 20 74 65 73 |r.c.diff|'.if tes|
|000037f0| 74 20 2d 66 20 27 6f 70 | 74 63 73 65 2e 63 2e 64 |t -f 'op|tcse.c.d|
|00003800| 69 66 66 27 0a 74 68 65 | 6e 0a 09 65 63 68 6f 20 |iff'.the|n..echo |
|00003810| 73 68 61 72 3a 20 6f 76 | 65 72 2d 77 72 69 74 69 |shar: ov|er-writi|
|00003820| 6e 67 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |ng exist|ing file|
|00003830| 20 22 27 6f 70 74 63 73 | 65 2e 63 2e 64 69 66 66 | "'optcs|e.c.diff|
|00003840| 27 22 0a 66 69 0a 63 61 | 74 20 3c 3c 20 5c 53 48 |'".fi.ca|t << \SH|
|00003850| 41 52 5f 45 4f 46 20 3e | 20 27 6f 70 74 63 73 65 |AR_EOF >| 'optcse|
|00003860| 2e 63 2e 64 69 66 66 27 | 0a 2a 2a 2a 20 2e 2e 2f |.c.diff'|.*** ../|
|00003870| 66 37 37 2f 73 72 63 2f | 66 37 37 70 61 73 73 31 |f77/src/|f77pass1|
|00003880| 2f 6f 70 74 63 73 65 2e | 63 2e 6f 72 69 67 09 54 |/optcse.|c.orig.T|
|00003890| 75 65 20 4f 63 74 20 32 | 39 20 31 35 3a 31 36 3a |ue Oct 2|9 15:16:|
|000038a0| 30 37 20 31 39 38 35 0a | 2d 2d 2d 20 2e 2e 2f 66 |07 1985.|--- ../f|
|000038b0| 37 37 2f 73 72 63 2f 66 | 37 37 70 61 73 73 31 2f |77/src/f|77pass1/|
|000038c0| 6f 70 74 63 73 65 2e 63 | 09 54 75 65 20 4f 63 74 |optcse.c|.Tue Oct|
|000038d0| 20 32 39 20 31 35 3a 32 | 32 3a 35 36 20 31 39 38 | 29 15:2|2:56 198|
|000038e0| 35 0a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |5.******|********|
|000038f0| 2a 0a 2a 2a 2a 20 34 37 | 37 2c 34 38 33 0a 20 20 |*.*** 47|7,483. |
|00003900| 09 09 09 63 61 73 65 20 | 54 59 4c 4f 4e 47 3a 0a |...case |TYLONG:.|
|00003910| 20 20 09 09 09 09 69 66 | 28 61 70 2d 3e 63 69 20 | ....if|(ap->ci |
|00003920| 3d 3d 20 62 70 2d 3e 63 | 69 29 20 72 65 74 75 72 |== bp->c|i) retur|
|00003930| 6e 28 54 52 55 45 29 3b | 0a 20 20 09 09 09 09 62 |n(TRUE);|. ....b|
|00003940| 72 65 61 6b 3b 0a 21 20 | 09 09 09 63 61 73 65 20 |reak;.! |...case |
|00003950| 54 59 52 45 41 4c 3a 0a | 20 20 09 09 09 63 61 73 |TYREAL:.| ...cas|
|00003960| 65 20 54 59 44 52 45 41 | 4c 3a 0a 20 20 09 09 09 |e TYDREA|L:. ...|
|00003970| 09 69 66 28 61 70 2d 3e | 63 64 5b 30 5d 20 3d 3d |.if(ap->|cd[0] ==|
|00003980| 20 62 70 2d 3e 63 64 5b | 30 5d 29 20 72 65 74 75 | bp->cd[|0]) retu|
|00003990| 72 6e 28 54 52 55 45 29 | 3b 0a 20 20 09 09 09 09 |rn(TRUE)|;. ....|
|000039a0| 62 72 65 61 6b 3b 0a 0a | 2d 2d 2d 20 34 37 37 2c |break;..|--- 477,|
|000039b0| 34 38 37 20 2d 2d 2d 2d | 2d 0a 20 20 09 09 09 63 |487 ----|-. ...c|
|000039c0| 61 73 65 20 54 59 4c 4f | 4e 47 3a 0a 20 20 09 09 |ase TYLO|NG:. ..|
|000039d0| 09 09 69 66 28 61 70 2d | 3e 63 69 20 3d 3d 20 62 |..if(ap-|>ci == b|
|000039e0| 70 2d 3e 63 69 29 20 72 | 65 74 75 72 6e 28 54 52 |p->ci) r|eturn(TR|
|000039f0| 55 45 29 3b 0a 20 20 09 | 09 09 09 62 72 65 61 6b |UE);. .|...break|
|00003a00| 3b 0a 21 20 09 09 09 63 | 61 73 65 20 54 59 52 45 |;.! ...c|ase TYRE|
|00003a10| 41 4c 3a 20 0a 21 20 23 | 69 66 64 65 66 20 47 46 |AL: .! #|ifdef GF|
|00003a20| 4c 4f 41 54 0a 21 20 09 | 09 09 09 69 66 28 61 70 |LOAT.! .|...if(ap|
|00003a30| 2d 3e 63 72 5b 30 5d 20 | 3d 3d 20 62 70 2d 3e 63 |->cr[0] |== bp->c|
|00003a40| 72 5b 30 5d 29 20 72 65 | 74 75 72 6e 28 54 52 55 |r[0]) re|turn(TRU|
|00003a50| 45 29 3b 0a 21 20 09 09 | 09 09 62 72 65 61 6b 3b |E);.! ..|..break;|
|00003a60| 0a 21 20 23 65 6e 64 69 | 66 20 47 46 4c 4f 41 54 |.! #endi|f GFLOAT|
|00003a70| 0a 20 20 09 09 09 63 61 | 73 65 20 54 59 44 52 45 |. ...ca|se TYDRE|
|00003a80| 41 4c 3a 0a 20 20 09 09 | 09 09 69 66 28 61 70 2d |AL:. ..|..if(ap-|
|00003a90| 3e 63 64 5b 30 5d 20 3d | 3d 20 62 70 2d 3e 63 64 |>cd[0] =|= bp->cd|
|00003aa0| 5b 30 5d 29 20 72 65 74 | 75 72 6e 28 54 52 55 45 |[0]) ret|urn(TRUE|
|00003ab0| 29 3b 0a 20 20 09 09 09 | 09 62 72 65 61 6b 3b 0a |);. ...|.break;.|
|00003ac0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0a |********|*******.|
|00003ad0| 2a 2a 2a 20 34 38 32 2c | 34 38 37 0a 20 20 09 09 |*** 482,|487. ..|
|00003ae0| 09 09 69 66 28 61 70 2d | 3e 63 64 5b 30 5d 20 3d |..if(ap-|>cd[0] =|
|00003af0| 3d 20 62 70 2d 3e 63 64 | 5b 30 5d 29 20 72 65 74 |= bp->cd|[0]) ret|
|00003b00| 75 72 6e 28 54 52 55 45 | 29 3b 0a 20 20 09 09 09 |urn(TRUE|);. ...|
|00003b10| 09 62 72 65 61 6b 3b 0a | 20 20 09 09 09 63 61 73 |.break;.| ...cas|
|00003b20| 65 20 54 59 43 4f 4d 50 | 4c 45 58 3a 0a 20 20 09 |e TYCOMP|LEX:. .|
|00003b30| 09 09 63 61 73 65 20 54 | 59 44 43 4f 4d 50 4c 45 |..case T|YDCOMPLE|
|00003b40| 58 3a 0a 20 20 09 09 09 | 09 69 66 28 61 70 2d 3e |X:. ...|.if(ap->|
|00003b50| 63 64 5b 30 5d 20 3d 3d | 20 62 70 2d 3e 63 64 5b |cd[0] ==| bp->cd[|
|00003b60| 30 5d 20 26 26 0a 20 20 | 09 09 09 09 20 20 20 20 |0] &&. |.... |
|00003b70| 61 70 2d 3e 63 64 5b 31 | 5d 20 3d 3d 20 62 70 2d |ap->cd[1|] == bp-|
|00003b80| 3e 63 64 5b 31 5d 20 29 | 0a 0a 2d 2d 2d 20 34 38 |>cd[1] )|..--- 48|
|00003b90| 36 2c 34 39 37 20 2d 2d | 2d 2d 2d 0a 20 20 09 09 |6,497 --|---. ..|
|00003ba0| 09 09 69 66 28 61 70 2d | 3e 63 64 5b 30 5d 20 3d |..if(ap-|>cd[0] =|
|00003bb0| 3d 20 62 70 2d 3e 63 64 | 5b 30 5d 29 20 72 65 74 |= bp->cd|[0]) ret|
|00003bc0| 75 72 6e 28 54 52 55 45 | 29 3b 0a 20 20 09 09 09 |urn(TRUE|);. ...|
|00003bd0| 09 62 72 65 61 6b 3b 0a | 20 20 09 09 09 63 61 73 |.break;.| ...cas|
|00003be0| 65 20 54 59 43 4f 4d 50 | 4c 45 58 3a 0a 2b 20 23 |e TYCOMP|LEX:.+ #|
|00003bf0| 69 66 64 65 66 20 47 46 | 4c 4f 41 54 0a 2b 20 09 |ifdef GF|LOAT.+ .|
|00003c00| 09 09 09 69 66 28 61 70 | 2d 3e 63 72 5b 30 5d 20 |...if(ap|->cr[0] |
|00003c10| 3d 3d 20 62 70 2d 3e 63 | 72 5b 30 5d 20 26 26 0a |== bp->c|r[0] &&.|
|00003c20| 2b 20 09 09 09 09 20 20 | 20 20 61 70 2d 3e 63 72 |+ .... | ap->cr|
|00003c30| 5b 31 5d 20 3d 3d 20 62 | 70 2d 3e 63 72 5b 31 5d |[1] == b|p->cr[1]|
|00003c40| 20 29 0a 2b 20 09 09 09 | 09 09 72 65 74 75 72 6e | ).+ ...|..return|
|00003c50| 28 54 52 55 45 29 3b 0a | 2b 20 09 09 09 09 62 72 |(TRUE);.|+ ....br|
|00003c60| 65 61 6b 3b 0a 2b 20 23 | 65 6e 64 69 66 20 47 46 |eak;.+ #|endif GF|
|00003c70| 4c 4f 41 54 0a 20 20 09 | 09 09 63 61 73 65 20 54 |LOAT. .|..case T|
|00003c80| 59 44 43 4f 4d 50 4c 45 | 58 3a 0a 20 20 09 09 09 |YDCOMPLE|X:. ...|
|00003c90| 09 69 66 28 61 70 2d 3e | 63 64 5b 30 5d 20 3d 3d |.if(ap->|cd[0] ==|
|00003ca0| 20 62 70 2d 3e 63 64 5b | 30 5d 20 26 26 0a 20 20 | bp->cd[|0] &&. |
|00003cb0| 09 09 09 09 20 20 20 20 | 61 70 2d 3e 63 64 5b 31 |.... |ap->cd[1|
|00003cc0| 5d 20 3d 3d 20 62 70 2d | 3e 63 64 5b 31 5d 20 29 |] == bp-|>cd[1] )|
|00003cd0| 0a 53 48 41 52 5f 45 4f | 46 0a 63 68 6d 6f 64 20 |.SHAR_EO|F.chmod |
|00003ce0| 2b 78 20 27 6f 70 74 63 | 73 65 2e 63 2e 64 69 66 |+x 'optc|se.c.dif|
|00003cf0| 66 27 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 6f |f'.if te|st -f 'o|
|00003d00| 70 74 6c 6f 6f 70 2e 63 | 2e 64 69 66 66 27 0a 74 |ptloop.c|.diff'.t|
|00003d10| 68 65 6e 0a 09 65 63 68 | 6f 20 73 68 61 72 3a 20 |hen..ech|o shar: |
|00003d20| 6f 76 65 72 2d 77 72 69 | 74 69 6e 67 20 65 78 69 |over-wri|ting exi|
|00003d30| 73 74 69 6e 67 20 66 69 | 6c 65 20 22 27 6f 70 74 |sting fi|le "'opt|
|00003d40| 6c 6f 6f 70 2e 63 2e 64 | 69 66 66 27 22 0a 66 69 |loop.c.d|iff'".fi|
|00003d50| 0a 63 61 74 20 3c 3c 20 | 5c 53 48 41 52 5f 45 4f |.cat << |\SHAR_EO|
|00003d60| 46 20 3e 20 27 6f 70 74 | 6c 6f 6f 70 2e 63 2e 64 |F > 'opt|loop.c.d|
|00003d70| 69 66 66 27 0a 2a 2a 2a | 20 2e 2e 2f 66 37 37 2f |iff'.***| ../f77/|
|00003d80| 73 72 63 2f 66 37 37 70 | 61 73 73 31 2f 6f 70 74 |src/f77p|ass1/opt|
|00003d90| 6c 6f 6f 70 2e 63 2e 6f | 72 69 67 09 54 75 65 20 |loop.c.o|rig.Tue |
|00003da0| 4f 63 74 20 32 39 20 31 | 35 3a 31 36 3a 30 39 20 |Oct 29 1|5:16:09 |
|00003db0| 31 39 38 35 0a 2d 2d 2d | 20 2e 2e 2f 66 37 37 2f |1985.---| ../f77/|
|00003dc0| 73 72 63 2f 66 37 37 70 | 61 73 73 31 2f 6f 70 74 |src/f77p|ass1/opt|
|00003dd0| 6c 6f 6f 70 2e 63 09 57 | 65 64 20 4f 63 74 20 33 |loop.c.W|ed Oct 3|
|00003de0| 30 20 32 30 3a 32 36 3a | 34 34 20 31 39 38 35 0a |0 20:26:|44 1985.|
|00003df0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0a |********|*******.|
|00003e00| 2a 2a 2a 20 36 36 30 2c | 36 36 35 0a 20 20 20 20 |*** 660,|665. |
|00003e10| 20 20 20 20 72 65 74 75 | 72 6e 20 59 45 53 3b 0a | retu|rn YES;.|
|00003e20| 20 20 0a 20 20 20 20 69 | 66 20 28 49 53 52 45 41 | . i|f (ISREA|
|00003e30| 4c 28 70 2d 3e 63 6f 6e | 73 74 62 6c 6f 63 6b 2e |L(p->con|stblock.|
|00003e40| 76 74 79 70 65 29 29 0a | 20 20 20 20 20 20 69 66 |vtype)).| if|
|00003e50| 20 28 61 62 73 28 70 2d | 3e 63 6f 6e 73 74 62 6c | (abs(p-|>constbl|
|00003e60| 6f 63 6b 2e 63 6f 6e 73 | 74 2e 63 64 5b 30 5d 29 |ock.cons|t.cd[0])|
|00003e70| 20 3c 3d 20 31 2e 30 29 | 0a 20 20 20 20 20 20 20 | <= 1.0)|. |
|00003e80| 20 72 65 74 75 72 6e 20 | 59 45 53 3b 0a 20 20 0a | return |YES;. .|
|00003e90| 0a 2d 2d 2d 20 36 36 30 | 2c 36 36 36 20 2d 2d 2d |.--- 660|,666 ---|
|00003ea0| 2d 2d 0a 20 20 20 20 20 | 20 20 20 72 65 74 75 72 |--. | retur|
|00003eb0| 6e 20 59 45 53 3b 0a 20 | 20 0a 20 20 20 20 69 66 |n YES;. | . if|
|00003ec0| 20 28 49 53 52 45 41 4c | 28 70 2d 3e 63 6f 6e 73 | (ISREAL|(p->cons|
|00003ed0| 74 62 6c 6f 63 6b 2e 76 | 74 79 70 65 29 29 0a 2b |tblock.v|type)).+|
|00003ee0| 20 23 69 66 6e 64 65 66 | 20 47 46 4c 4f 41 54 0a | #ifndef| GFLOAT.|
|00003ef0| 20 20 20 20 20 20 69 66 | 20 28 61 62 73 28 70 2d | if| (abs(p-|
|00003f00| 3e 63 6f 6e 73 74 62 6c | 6f 63 6b 2e 63 6f 6e 73 |>constbl|ock.cons|
|00003f10| 74 2e 63 64 5b 30 5d 29 | 20 3c 3d 20 31 2e 30 29 |t.cd[0])| <= 1.0)|
|00003f20| 0a 20 20 23 65 6c 73 65 | 20 47 46 4c 4f 41 54 0a |. #else| GFLOAT.|
|00003f30| 20 20 20 20 20 20 69 66 | 20 28 70 2d 3e 63 6f 6e | if| (p->con|
|00003f40| 73 74 62 6c 6f 63 6b 2e | 76 74 79 70 65 3d 3d 54 |stblock.|vtype==T|
|00003f50| 59 52 45 41 4c 29 20 7b | 0a 2a 2a 2a 2a 2a 2a 2a |YREAL) {|.*******|
|00003f60| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 2a 2a 2a 20 36 36 31 |********|.*** 661|
|00003f70| 2c 36 36 36 0a 20 20 0a | 20 20 20 20 69 66 20 28 |,666. .| if (|
|00003f80| 49 53 52 45 41 4c 28 70 | 2d 3e 63 6f 6e 73 74 62 |ISREAL(p|->constb|
|00003f90| 6c 6f 63 6b 2e 76 74 79 | 70 65 29 29 0a 20 20 20 |lock.vty|pe)). |
|00003fa0| 20 20 20 69 66 20 28 61 | 62 73 28 70 2d 3e 63 6f | if (a|bs(p->co|
|00003fb0| 6e 73 74 62 6c 6f 63 6b | 2e 63 6f 6e 73 74 2e 63 |nstblock|.const.c|
|00003fc0| 64 5b 30 5d 29 20 3c 3d | 20 31 2e 30 29 0a 20 20 |d[0]) <=| 1.0). |
|00003fd0| 20 20 20 20 20 20 72 65 | 74 75 72 6e 20 59 45 53 | re|turn YES|
|00003fe0| 3b 0a 20 20 0a 20 20 20 | 20 72 65 74 75 72 6e 20 |;. . | return |
|00003ff0| 4e 4f 3b 0a 0a 2d 2d 2d | 20 36 36 32 2c 36 37 33 |NO;..---| 662,673|
|00004000| 20 2d 2d 2d 2d 2d 0a 20 | 20 20 20 69 66 20 28 49 | -----. | if (I|
|00004010| 53 52 45 41 4c 28 70 2d | 3e 63 6f 6e 73 74 62 6c |SREAL(p-|>constbl|
|00004020| 6f 63 6b 2e 76 74 79 70 | 65 29 29 0a 20 20 23 69 |ock.vtyp|e)). #i|
|00004030| 66 6e 64 65 66 20 47 46 | 4c 4f 41 54 0a 20 20 20 |fndef GF|LOAT. |
|00004040| 20 20 20 69 66 20 28 61 | 62 73 28 70 2d 3e 63 6f | if (a|bs(p->co|
|00004050| 6e 73 74 62 6c 6f 63 6b | 2e 63 6f 6e 73 74 2e 63 |nstblock|.const.c|
|00004060| 64 5b 30 5d 29 20 3c 3d | 20 31 2e 30 29 0a 2b 20 |d[0]) <=| 1.0).+ |
|00004070| 23 65 6c 73 65 20 47 46 | 4c 4f 41 54 0a 2b 20 20 |#else GF|LOAT.+ |
|00004080| 20 20 20 69 66 20 28 70 | 2d 3e 63 6f 6e 73 74 62 | if (p|->constb|
|00004090| 6c 6f 63 6b 2e 76 74 79 | 70 65 3d 3d 54 59 52 45 |lock.vty|pe==TYRE|
|000040a0| 41 4c 29 20 7b 0a 2b 20 | 20 20 20 20 20 20 69 66 |AL) {.+ | if|
|000040b0| 20 28 61 62 73 28 70 2d | 3e 63 6f 6e 73 74 62 6c | (abs(p-|>constbl|
|000040c0| 6f 63 6b 2e 63 6f 6e 73 | 74 2e 63 72 5b 30 5d 29 |ock.cons|t.cr[0])|
|000040d0| 20 3c 3d 20 31 2e 30 29 | 20 72 65 74 75 72 6e 20 | <= 1.0)| return |
|000040e0| 59 45 53 3b 0a 2b 20 20 | 20 20 20 20 20 7d 0a 2b |YES;.+ | }.+|
|000040f0| 20 20 20 20 20 65 6c 73 | 65 20 69 66 20 28 61 62 | els|e if (ab|
|00004100| 73 28 70 2d 3e 63 6f 6e | 73 74 62 6c 6f 63 6b 2e |s(p->con|stblock.|
|00004110| 63 6f 6e 73 74 2e 63 64 | 5b 30 5d 29 20 3c 3d 20 |const.cd|[0]) <= |
|00004120| 31 2e 30 29 0a 2b 20 23 | 65 6e 64 69 66 20 47 46 |1.0).+ #|endif GF|
|00004130| 4c 4f 41 54 0a 20 20 20 | 20 20 20 20 20 72 65 74 |LOAT. | ret|
|00004140| 75 72 6e 20 59 45 53 3b | 0a 20 20 0a 20 20 20 20 |urn YES;|. . |
|00004150| 72 65 74 75 72 6e 20 4e | 4f 3b 0a 53 48 41 52 5f |return N|O;.SHAR_|
|00004160| 45 4f 46 0a 63 68 6d 6f | 64 20 2b 78 20 27 6f 70 |EOF.chmo|d +x 'op|
|00004170| 74 6c 6f 6f 70 2e 63 2e | 64 69 66 66 27 0a 69 66 |tloop.c.|diff'.if|
|00004180| 20 74 65 73 74 20 2d 66 | 20 27 70 75 74 2e 63 2e | test -f| 'put.c.|
|00004190| 64 69 66 66 27 0a 74 68 | 65 6e 0a 09 65 63 68 6f |diff'.th|en..echo|
|000041a0| 20 73 68 61 72 3a 20 6f | 76 65 72 2d 77 72 69 74 | shar: o|ver-writ|
|000041b0| 69 6e 67 20 65 78 69 73 | 74 69 6e 67 20 66 69 6c |ing exis|ting fil|
|000041c0| 65 20 22 27 70 75 74 2e | 63 2e 64 69 66 66 27 22 |e "'put.|c.diff'"|
|000041d0| 0a 66 69 0a 63 61 74 20 | 3c 3c 20 5c 53 48 41 52 |.fi.cat |<< \SHAR|
|000041e0| 5f 45 4f 46 20 3e 20 27 | 70 75 74 2e 63 2e 64 69 |_EOF > '|put.c.di|
|000041f0| 66 66 27 0a 2a 2a 2a 20 | 2e 2e 2f 66 37 37 2f 73 |ff'.*** |../f77/s|
|00004200| 72 63 2f 66 37 37 70 61 | 73 73 31 2f 70 75 74 2e |rc/f77pa|ss1/put.|
|00004210| 63 2e 6f 72 69 67 09 54 | 75 65 20 4f 63 74 20 32 |c.orig.T|ue Oct 2|
|00004220| 39 20 31 35 3a 31 36 3a | 31 32 20 31 39 38 35 0a |9 15:16:|12 1985.|
|00004230| 2d 2d 2d 20 2e 2e 2f 66 | 37 37 2f 73 72 63 2f 66 |--- ../f|77/src/f|
|00004240| 37 37 70 61 73 73 31 2f | 70 75 74 2e 63 09 54 75 |77pass1/|put.c.Tu|
|00004250| 65 20 4f 63 74 20 32 39 | 20 31 35 3a 32 33 3a 30 |e Oct 29| 15:23:0|
|00004260| 37 20 31 39 38 35 0a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |7 1985.*|********|
|00004270| 2a 2a 2a 2a 2a 2a 0a 2a | 2a 2a 20 31 36 39 2c 31 |******.*|** 169,1|
|00004280| 37 34 0a 20 20 0a 20 20 | 69 66 20 28 49 53 43 4f |74. . |if (ISCO|
|00004290| 4e 53 54 28 70 29 29 0a | 20 20 09 7b 0a 20 20 09 |NST(p)).| .{. .|
|000042a0| 69 66 20 28 49 53 43 4f | 4d 50 4c 45 58 28 70 2d |if (ISCO|MPLEX(p-|
|000042b0| 3e 63 6f 6e 73 74 62 6c | 6f 63 6b 2e 76 74 79 70 |>constbl|ock.vtyp|
|000042c0| 65 29 29 0a 20 20 09 09 | 72 65 74 75 72 6e 28 6d |e)). ..|return(m|
|000042d0| 6b 72 65 61 6c 63 6f 6e | 28 70 2d 3e 63 6f 6e 73 |krealcon|(p->cons|
|000042e0| 74 62 6c 6f 63 6b 2e 76 | 74 79 70 65 20 3d 3d 20 |tblock.v|type == |
|000042f0| 54 59 43 4f 4d 50 4c 45 | 58 20 3f 0a 20 20 09 09 |TYCOMPLE|X ?. ..|
|00004300| 09 09 09 54 59 52 45 41 | 4c 20 3a 20 54 59 44 52 |...TYREA|L : TYDR|
|00004310| 45 41 4c 2c 0a 0a 2d 2d | 2d 20 31 36 39 2c 31 37 |EAL,..--|- 169,17|
|00004320| 35 20 2d 2d 2d 2d 2d 0a | 20 20 0a 20 20 69 66 20 |5 -----.| . if |
|00004330| 28 49 53 43 4f 4e 53 54 | 28 70 29 29 0a 20 20 09 |(ISCONST|(p)). .|
|00004340| 7b 0a 2b 20 23 69 66 6e | 64 65 66 20 47 46 4c 4f |{.+ #ifn|def GFLO|
|00004350| 41 54 0a 20 20 09 69 66 | 20 28 49 53 43 4f 4d 50 |AT. .if| (ISCOMP|
|00004360| 4c 45 58 28 70 2d 3e 63 | 6f 6e 73 74 62 6c 6f 63 |LEX(p->c|onstbloc|
|00004370| 6b 2e 76 74 79 70 65 29 | 29 0a 20 20 09 09 72 65 |k.vtype)|). ..re|
|00004380| 74 75 72 6e 28 6d 6b 72 | 65 61 6c 63 6f 6e 28 70 |turn(mkr|ealcon(p|
|00004390| 2d 3e 63 6f 6e 73 74 62 | 6c 6f 63 6b 2e 76 74 79 |->constb|lock.vty|
|000043a0| 70 65 20 3d 3d 20 54 59 | 43 4f 4d 50 4c 45 58 20 |pe == TY|COMPLEX |
|000043b0| 3f 0a 20 20 09 09 09 09 | 09 54 59 52 45 41 4c 20 |?. ....|.TYREAL |
|000043c0| 3a 20 54 59 44 52 45 41 | 4c 2c 0a 2a 2a 2a 2a 2a |: TYDREA|L,.*****|
|000043d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0a 2a 2a 2a 20 31 |********|**.*** 1|
|000043e0| 37 33 2c 31 37 38 0a 20 | 20 09 09 72 65 74 75 72 |73,178. | ..retur|
|000043f0| 6e 28 6d 6b 72 65 61 6c | 63 6f 6e 28 70 2d 3e 63 |n(mkreal|con(p->c|
|00004400| 6f 6e 73 74 62 6c 6f 63 | 6b 2e 76 74 79 70 65 20 |onstbloc|k.vtype |
|00004410| 3d 3d 20 54 59 43 4f 4d | 50 4c 45 58 20 3f 0a 20 |== TYCOM|PLEX ?. |
|00004420| 20 09 09 09 09 09 54 59 | 52 45 41 4c 20 3a 20 54 | .....TY|REAL : T|
|00004430| 59 44 52 45 41 4c 2c 0a | 20 20 09 09 09 09 70 2d |YDREAL,.| ....p-|
|00004440| 3e 63 6f 6e 73 74 62 6c | 6f 63 6b 2e 63 6f 6e 73 |>constbl|ock.cons|
|00004450| 74 2e 63 64 5b 31 5d 29 | 29 3b 0a 20 20 09 65 6c |t.cd[1])|);. .el|
|00004460| 73 65 20 69 66 20 28 70 | 2d 3e 63 6f 6e 73 74 62 |se if (p|->constb|
|00004470| 6c 6f 63 6b 2e 76 74 79 | 70 65 20 3d 3d 20 54 59 |lock.vty|pe == TY|
|00004480| 44 52 45 41 4c 29 0a 20 | 20 09 09 72 65 74 75 72 |DREAL). | ..retur|
|00004490| 6e 28 6d 6b 72 65 61 6c | 63 6f 6e 28 54 59 44 52 |n(mkreal|con(TYDR|
|000044a0| 45 41 4c 2c 20 30 2e 30 | 29 29 3b 0a 20 20 09 65 |EAL, 0.0|));. .e|
|000044b0| 6c 73 65 0a 0a 2d 2d 2d | 20 31 37 34 2c 31 38 36 |lse..---| 174,186|
|000044c0| 20 2d 2d 2d 2d 2d 0a 20 | 20 09 09 72 65 74 75 72 | -----. | ..retur|
|000044d0| 6e 28 6d 6b 72 65 61 6c | 63 6f 6e 28 70 2d 3e 63 |n(mkreal|con(p->c|
|000044e0| 6f 6e 73 74 62 6c 6f 63 | 6b 2e 76 74 79 70 65 20 |onstbloc|k.vtype |
|000044f0| 3d 3d 20 54 59 43 4f 4d | 50 4c 45 58 20 3f 0a 20 |== TYCOM|PLEX ?. |
|00004500| 20 09 09 09 09 09 54 59 | 52 45 41 4c 20 3a 20 54 | .....TY|REAL : T|
|00004510| 59 44 52 45 41 4c 2c 0a | 20 20 09 09 09 09 70 2d |YDREAL,.| ....p-|
|00004520| 3e 63 6f 6e 73 74 62 6c | 6f 63 6b 2e 63 6f 6e 73 |>constbl|ock.cons|
|00004530| 74 2e 63 64 5b 31 5d 29 | 29 3b 0a 2b 20 23 65 6c |t.cd[1])|);.+ #el|
|00004540| 73 65 20 47 46 4c 4f 41 | 54 0a 2b 20 09 69 66 20 |se GFLOA|T.+ .if |
|00004550| 28 70 2d 3e 63 6f 6e 73 | 74 62 6c 6f 63 6b 2e 76 |(p->cons|tblock.v|
|00004560| 74 79 70 65 20 3d 3d 20 | 54 59 43 4f 4d 50 4c 45 |type == |TYCOMPLE|
|00004570| 58 29 20 0a 2b 20 09 09 | 72 65 74 75 72 6e 28 6d |X) .+ ..|return(m|
|00004580| 6b 72 65 61 6c 63 6f 6e | 28 20 54 59 52 45 41 4c |krealcon|( TYREAL|
|00004590| 2c 20 0a 2b 20 09 09 09 | 28 64 6f 75 62 6c 65 29 |, .+ ...|(double)|
|000045a0| 20 70 2d 3e 63 6f 6e 73 | 74 62 6c 6f 63 6b 2e 63 | p->cons|tblock.c|
|000045b0| 6f 6e 73 74 2e 63 72 5b | 31 5d 29 29 3b 0a 2b 20 |onst.cr[|1]));.+ |
|000045c0| 09 65 6c 73 65 20 69 66 | 20 28 70 2d 3e 63 6f 6e |.else if| (p->con|
|000045d0| 73 74 62 6c 6f 63 6b 2e | 76 74 79 70 65 20 3d 3d |stblock.|vtype ==|
|000045e0| 20 54 59 44 43 4f 4d 50 | 4c 45 58 29 0a 2b 20 09 | TYDCOMP|LEX).+ .|
|000045f0| 09 72 65 74 75 72 6e 28 | 6d 6b 72 65 61 6c 63 6f |.return(|mkrealco|
|00004600| 6e 28 20 54 59 44 52 45 | 41 4c 2c 20 70 2d 3e 63 |n( TYDRE|AL, p->c|
|00004610| 6f 6e 73 74 62 6c 6f 63 | 6b 2e 63 6f 6e 73 74 2e |onstbloc|k.const.|
|00004620| 63 64 5b 31 5d 29 29 3b | 0a 2b 20 23 65 6e 64 69 |cd[1]));|.+ #endi|
|00004630| 66 20 47 46 4c 4f 41 54 | 0a 20 20 09 65 6c 73 65 |f GFLOAT|. .else|
|00004640| 20 69 66 20 28 70 2d 3e | 63 6f 6e 73 74 62 6c 6f | if (p->|constblo|
|00004650| 63 6b 2e 76 74 79 70 65 | 20 3d 3d 20 54 59 44 52 |ck.vtype| == TYDR|
|00004660| 45 41 4c 29 0a 20 20 09 | 09 72 65 74 75 72 6e 28 |EAL). .|.return(|
|00004670| 6d 6b 72 65 61 6c 63 6f | 6e 28 54 59 44 52 45 41 |mkrealco|n(TYDREA|
|00004680| 4c 2c 20 30 2e 30 29 29 | 3b 0a 20 20 09 65 6c 73 |L, 0.0))|;. .els|
|00004690| 65 0a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |e.******|********|
|000046a0| 2a 0a 2a 2a 2a 20 33 34 | 30 2c 33 34 35 0a 20 20 |*.*** 34|0,345. |
|000046b0| 09 09 6b 20 3d 20 32 3b | 0a 20 20 09 63 61 73 65 |..k = 2;|. .case|
|000046c0| 20 54 59 52 45 41 4c 3a | 0a 20 20 09 09 74 79 70 | TYREAL:|. ..typ|
|000046d0| 65 20 3d 20 54 59 52 45 | 41 4c 3b 0a 20 20 09 09 |e = TYRE|AL;. ..|
|000046e0| 67 6f 74 6f 20 66 6c 70 | 74 3b 0a 20 20 0a 20 20 |goto flp|t;. . |
|000046f0| 09 63 61 73 65 20 54 59 | 44 43 4f 4d 50 4c 45 58 |.case TY|DCOMPLEX|
|00004700| 3a 0a 0a 2d 2d 2d 20 33 | 34 38 2c 33 35 34 20 2d |:..--- 3|48,354 -|
|00004710| 2d 2d 2d 2d 0a 20 20 09 | 09 6b 20 3d 20 32 3b 0a |----. .|.k = 2;.|
|00004720| 20 20 09 63 61 73 65 20 | 54 59 52 45 41 4c 3a 0a | .case |TYREAL:.|
|00004730| 20 20 09 09 74 79 70 65 | 20 3d 20 54 59 52 45 41 | ..type| = TYREA|
|00004740| 4c 3b 0a 2b 20 23 69 66 | 6e 64 65 66 20 47 46 4c |L;.+ #if|ndef GFL|
|00004750| 4f 41 54 0a 20 20 09 09 | 67 6f 74 6f 20 66 6c 70 |OAT. ..|goto flp|
|00004760| 74 3b 0a 20 20 23 65 6c | 73 65 20 47 46 4c 4f 41 |t;. #el|se GFLOA|
|00004770| 54 0a 20 20 09 09 66 6f | 72 28 69 20 3d 20 30 20 |T. ..fo|r(i = 0 |
|00004780| 3b 20 69 20 3c 20 6b 20 | 3b 20 2b 2b 69 29 20 0a |; i < k |; ++i) .|
|00004790| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0a |********|*******.|
|000047a0| 2a 2a 2a 20 33 34 31 2c | 33 34 36 0a 20 20 09 63 |*** 341,|346. .c|
|000047b0| 61 73 65 20 54 59 52 45 | 41 4c 3a 0a 20 20 09 09 |ase TYRE|AL:. ..|
|000047c0| 74 79 70 65 20 3d 20 54 | 59 52 45 41 4c 3b 0a 20 |type = T|YREAL;. |
|000047d0| 20 09 09 67 6f 74 6f 20 | 66 6c 70 74 3b 0a 20 20 | ..goto |flpt;. |
|000047e0| 0a 20 20 09 63 61 73 65 | 20 54 59 44 43 4f 4d 50 |. .case| TYDCOMP|
|000047f0| 4c 45 58 3a 0a 20 20 09 | 09 6b 20 3d 20 32 3b 0a |LEX:. .|.k = 2;.|
|00004800| 0a 2d 2d 2d 20 33 35 30 | 2c 33 36 30 20 2d 2d 2d |.--- 350|,360 ---|
|00004810| 2d 2d 0a 20 20 09 09 74 | 79 70 65 20 3d 20 54 59 |--. ..t|ype = TY|
|00004820| 52 45 41 4c 3b 0a 20 20 | 23 69 66 6e 64 65 66 20 |REAL;. |#ifndef |
|00004830| 47 46 4c 4f 41 54 0a 20 | 20 09 09 67 6f 74 6f 20 |GFLOAT. | ..goto |
|00004840| 66 6c 70 74 3b 0a 2b 20 | 23 65 6c 73 65 20 47 46 |flpt;.+ |#else GF|
|00004850| 4c 4f 41 54 0a 2b 20 09 | 09 66 6f 72 28 69 20 3d |LOAT.+ .|.for(i =|
|00004860| 20 30 20 3b 20 69 20 3c | 20 6b 20 3b 20 2b 2b 69 | 0 ; i <| k ; ++i|
|00004870| 29 20 0a 2b 20 09 09 09 | 70 72 63 6f 6e 72 28 61 |) .+ ...|prconr(a|
|00004880| 73 6d 66 69 6c 65 2c 20 | 74 79 70 65 2c 20 26 70 |smfile, |type, &p|
|00004890| 2d 3e 63 6f 6e 73 74 2e | 63 72 5b 69 5d 29 3b 20 |->const.|cr[i]); |
|000048a0| 0a 2b 20 09 09 62 72 65 | 61 6b 3b 0a 2b 20 23 65 |.+ ..bre|ak;.+ #e|
|000048b0| 6e 64 69 66 20 47 46 4c | 4f 41 54 0a 20 20 0a 20 |ndif GFL|OAT. . |
|000048c0| 20 09 63 61 73 65 20 54 | 59 44 43 4f 4d 50 4c 45 | .case T|YDCOMPLE|
|000048d0| 58 3a 0a 20 20 09 09 6b | 20 3d 20 32 3b 0a 2a 2a |X:. ..k| = 2;.**|
|000048e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 2a 2a |********|*****.**|
|000048f0| 2a 20 33 34 36 2c 33 35 | 31 0a 20 20 09 09 6b 20 |* 346,35|1. ..k |
|00004900| 3d 20 32 3b 0a 20 20 09 | 63 61 73 65 20 54 59 44 |= 2;. .|case TYD|
|00004910| 52 45 41 4c 3a 0a 20 20 | 09 09 74 79 70 65 20 3d |REAL:. |..type =|
|00004920| 20 54 59 44 52 45 41 4c | 3b 0a 20 20 0a 20 20 09 | TYDREAL|;. . .|
|00004930| 66 6c 70 74 3a 0a 20 20 | 09 09 66 6f 72 28 69 20 |flpt:. |..for(i |
|00004940| 3d 20 30 20 3b 20 69 20 | 3c 20 6b 20 3b 20 2b 2b |= 0 ; i |< k ; ++|
|00004950| 69 29 0a 0a 2d 2d 2d 20 | 33 36 30 2c 33 36 36 20 |i)..--- |360,366 |
|00004960| 2d 2d 2d 2d 2d 0a 20 20 | 09 09 6b 20 3d 20 32 3b |-----. |..k = 2;|
|00004970| 0a 20 20 09 63 61 73 65 | 20 54 59 44 52 45 41 4c |. .case| TYDREAL|
|00004980| 3a 0a 20 20 09 09 74 79 | 70 65 20 3d 20 54 59 44 |:. ..ty|pe = TYD|
|00004990| 52 45 41 4c 3b 0a 2b 20 | 23 69 66 6e 64 65 66 20 |REAL;.+ |#ifndef |
|000049a0| 47 46 4c 4f 41 54 0a 20 | 20 0a 20 20 09 66 6c 70 |GFLOAT. | . .flp|
|000049b0| 74 3a 0a 20 20 23 65 6e | 64 69 66 20 47 46 4c 4f |t:. #en|dif GFLO|
|000049c0| 41 54 0a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |AT.*****|********|
|000049d0| 2a 2a 0a 2a 2a 2a 20 33 | 34 38 2c 33 35 33 0a 20 |**.*** 3|48,353. |
|000049e0| 20 09 09 74 79 70 65 20 | 3d 20 54 59 44 52 45 41 | ..type |= TYDREA|
|000049f0| 4c 3b 0a 20 20 0a 20 20 | 09 66 6c 70 74 3a 0a 20 |L;. . |.flpt:. |
|00004a00| 20 09 09 66 6f 72 28 69 | 20 3d 20 30 20 3b 20 69 | ..for(i| = 0 ; i|
|00004a10| 20 3c 20 6b 20 3b 20 2b | 2b 69 29 0a 20 20 09 09 | < k ; +|+i). ..|
|00004a20| 09 70 72 63 6f 6e 72 28 | 61 73 6d 66 69 6c 65 2c |.prconr(|asmfile,|
|00004a30| 20 74 79 70 65 2c 20 70 | 2d 3e 63 6f 6e 73 74 2e | type, p|->const.|
|00004a40| 63 64 5b 69 5d 29 3b 0a | 20 20 09 09 62 72 65 61 |cd[i]);.| ..brea|
|00004a50| 6b 3b 0a 0a 2d 2d 2d 20 | 33 36 33 2c 33 36 39 20 |k;..--- |363,369 |
|00004a60| 2d 2d 2d 2d 2d 0a 20 20 | 23 69 66 6e 64 65 66 20 |-----. |#ifndef |
|00004a70| 47 46 4c 4f 41 54 0a 20 | 20 0a 20 20 09 66 6c 70 |GFLOAT. | . .flp|
|00004a80| 74 3a 0a 2b 20 23 65 6e | 64 69 66 20 47 46 4c 4f |t:.+ #en|dif GFLO|
|00004a90| 41 54 0a 20 20 09 09 66 | 6f 72 28 69 20 3d 20 30 |AT. ..f|or(i = 0|
|00004aa0| 20 3b 20 69 20 3c 20 6b | 20 3b 20 2b 2b 69 29 0a | ; i < k| ; ++i).|
|00004ab0| 20 20 23 69 66 6e 64 65 | 66 20 47 46 4c 4f 41 54 | #ifnde|f GFLOAT|
|00004ac0| 0a 20 20 09 09 09 70 72 | 63 6f 6e 72 28 61 73 6d |. ...pr|conr(asm|
|00004ad0| 66 69 6c 65 2c 20 74 79 | 70 65 2c 20 70 2d 3e 63 |file, ty|pe, p->c|
|00004ae0| 6f 6e 73 74 2e 63 64 5b | 69 5d 29 3b 0a 2a 2a 2a |onst.cd[|i]);.***|
|00004af0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0a 2a 2a 2a |********|****.***|
|00004b00| 20 33 34 39 2c 33 35 34 | 0a 20 20 0a 20 20 09 66 | 349,354|. . .f|
|00004b10| 6c 70 74 3a 0a 20 20 09 | 09 66 6f 72 28 69 20 3d |lpt:. .|.for(i =|
|00004b20| 20 30 20 3b 20 69 20 3c | 20 6b 20 3b 20 2b 2b 69 | 0 ; i <| k ; ++i|
|00004b30| 29 0a 20 20 09 09 09 70 | 72 63 6f 6e 72 28 61 73 |). ...p|rconr(as|
|00004b40| 6d 66 69 6c 65 2c 20 74 | 79 70 65 2c 20 70 2d 3e |mfile, t|ype, p->|
|00004b50| 63 6f 6e 73 74 2e 63 64 | 5b 69 5d 29 3b 0a 20 20 |const.cd|[i]);. |
|00004b60| 09 09 62 72 65 61 6b 3b | 0a 20 20 0a 0a 2d 2d 2d |..break;|. ..---|
|00004b70| 20 33 36 35 2c 33 37 31 | 20 2d 2d 2d 2d 2d 0a 20 | 365,371| -----. |
|00004b80| 20 09 66 6c 70 74 3a 0a | 20 20 23 65 6e 64 69 66 | .flpt:.| #endif|
|00004b90| 20 47 46 4c 4f 41 54 0a | 20 20 09 09 66 6f 72 28 | GFLOAT.| ..for(|
|00004ba0| 69 20 3d 20 30 20 3b 20 | 69 20 3c 20 6b 20 3b 20 |i = 0 ; |i < k ; |
|00004bb0| 2b 2b 69 29 0a 2b 20 23 | 69 66 6e 64 65 66 20 47 |++i).+ #|ifndef G|
|00004bc0| 46 4c 4f 41 54 0a 20 20 | 09 09 09 70 72 63 6f 6e |FLOAT. |...prcon|
|00004bd0| 72 28 61 73 6d 66 69 6c | 65 2c 20 74 79 70 65 2c |r(asmfil|e, type,|
|00004be0| 20 70 2d 3e 63 6f 6e 73 | 74 2e 63 64 5b 69 5d 29 | p->cons|t.cd[i])|
|00004bf0| 3b 0a 20 20 23 65 6c 73 | 65 20 47 46 4c 4f 41 54 |;. #els|e GFLOAT|
|00004c00| 0a 20 20 09 09 09 70 72 | 63 6f 6e 72 28 61 73 6d |. ...pr|conr(asm|
|00004c10| 66 69 6c 65 2c 20 74 79 | 70 65 2c 20 26 70 2d 3e |file, ty|pe, &p->|
|00004c20| 63 6f 6e 73 74 2e 63 64 | 5b 69 5d 29 3b 0a 2a 2a |const.cd|[i]);.**|
|00004c30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 2a 2a |********|*****.**|
|00004c40| 2a 20 33 35 30 2c 33 35 | 35 0a 20 20 09 66 6c 70 |* 350,35|5. .flp|
|00004c50| 74 3a 0a 20 20 09 09 66 | 6f 72 28 69 20 3d 20 30 |t:. ..f|or(i = 0|
|00004c60| 20 3b 20 69 20 3c 20 6b | 20 3b 20 2b 2b 69 29 0a | ; i < k| ; ++i).|
|00004c70| 20 20 09 09 09 70 72 63 | 6f 6e 72 28 61 73 6d 66 | ...prc|onr(asmf|
|00004c80| 69 6c 65 2c 20 74 79 70 | 65 2c 20 70 2d 3e 63 6f |ile, typ|e, p->co|
|00004c90| 6e 73 74 2e 63 64 5b 69 | 5d 29 3b 0a 20 20 09 09 |nst.cd[i|]);. ..|
|00004ca0| 62 72 65 61 6b 3b 0a 20 | 20 0a 20 20 09 63 61 73 |break;. | . .cas|
|00004cb0| 65 20 54 59 43 48 41 52 | 3a 0a 0a 2d 2d 2d 20 33 |e TYCHAR|:..--- 3|
|00004cc0| 36 37 2c 33 37 35 20 2d | 2d 2d 2d 2d 0a 20 20 09 |67,375 -|----. .|
|00004cd0| 09 66 6f 72 28 69 20 3d | 20 30 20 3b 20 69 20 3c |.for(i =| 0 ; i <|
|00004ce0| 20 6b 20 3b 20 2b 2b 69 | 29 0a 20 20 23 69 66 6e | k ; ++i|). #ifn|
|00004cf0| 64 65 66 20 47 46 4c 4f | 41 54 0a 20 20 09 09 09 |def GFLO|AT. ...|
|00004d00| 70 72 63 6f 6e 72 28 61 | 73 6d 66 69 6c 65 2c 20 |prconr(a|smfile, |
|00004d10| 74 79 70 65 2c 20 70 2d | 3e 63 6f 6e 73 74 2e 63 |type, p-|>const.c|
|00004d20| 64 5b 69 5d 29 3b 0a 2b | 20 23 65 6c 73 65 20 47 |d[i]);.+| #else G|
|00004d30| 46 4c 4f 41 54 0a 2b 20 | 09 09 09 70 72 63 6f 6e |FLOAT.+ |...prcon|
|00004d40| 72 28 61 73 6d 66 69 6c | 65 2c 20 74 79 70 65 2c |r(asmfil|e, type,|
|00004d50| 20 26 70 2d 3e 63 6f 6e | 73 74 2e 63 64 5b 69 5d | &p->con|st.cd[i]|
|00004d60| 29 3b 0a 2b 20 23 65 6e | 64 69 66 20 47 46 4c 4f |);.+ #en|dif GFLO|
|00004d70| 41 54 0a 20 20 09 09 62 | 72 65 61 6b 3b 0a 20 20 |AT. ..b|reak;. |
|00004d80| 0a 20 20 09 63 61 73 65 | 20 54 59 43 48 41 52 3a |. .case| TYCHAR:|
|00004d90| 0a 53 48 41 52 5f 45 4f | 46 0a 63 68 6d 6f 64 20 |.SHAR_EO|F.chmod |
|00004da0| 2b 78 20 27 70 75 74 2e | 63 2e 64 69 66 66 27 0a |+x 'put.|c.diff'.|
|00004db0| 69 66 20 74 65 73 74 20 | 2d 66 20 27 76 61 78 2e |if test |-f 'vax.|
|00004dc0| 63 2e 64 69 66 66 27 0a | 74 68 65 6e 0a 09 65 63 |c.diff'.|then..ec|
|00004dd0| 68 6f 20 73 68 61 72 3a | 20 6f 76 65 72 2d 77 72 |ho shar:| over-wr|
|00004de0| 69 74 69 6e 67 20 65 78 | 69 73 74 69 6e 67 20 66 |iting ex|isting f|
|00004df0| 69 6c 65 20 22 27 76 61 | 78 2e 63 2e 64 69 66 66 |ile "'va|x.c.diff|
|00004e00| 27 22 0a 66 69 0a 63 61 | 74 20 3c 3c 20 5c 53 48 |'".fi.ca|t << \SH|
|00004e10| 41 52 5f 45 4f 46 20 3e | 20 27 76 61 78 2e 63 2e |AR_EOF >| 'vax.c.|
|00004e20| 64 69 66 66 27 0a 2a 2a | 2a 20 2e 2e 2f 66 37 37 |diff'.**|* ../f77|
|00004e30| 2f 73 72 63 2f 66 37 37 | 70 61 73 73 31 2f 76 61 |/src/f77|pass1/va|
|00004e40| 78 2e 63 2e 6f 72 69 67 | 09 54 75 65 20 4f 63 74 |x.c.orig|.Tue Oct|
|00004e50| 20 32 39 20 31 35 3a 31 | 36 3a 31 38 20 31 39 38 | 29 15:1|6:18 198|
|00004e60| 35 0a 2d 2d 2d 20 2e 2e | 2f 66 37 37 2f 73 72 63 |5.--- ..|/f77/src|
|00004e70| 2f 66 37 37 70 61 73 73 | 31 2f 76 61 78 2e 63 09 |/f77pass|1/vax.c.|
|00004e80| 54 75 65 20 4f 63 74 20 | 32 39 20 31 35 3a 32 33 |Tue Oct |29 15:23|
|00004e90| 3a 31 33 20 31 39 38 35 | 0a 2a 2a 2a 2a 2a 2a 2a |:13 1985|.*******|
|00004ea0| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 2a 2a 2a 20 36 39 2c |********|.*** 69,|
|00004eb0| 37 34 0a 20 20 0a 20 20 | 66 74 6e 69 6e 74 20 69 |74. . |ftnint i|
|00004ec0| 6e 74 63 6f 6e 5b 31 34 | 5d 20 3d 0a 20 20 09 7b |ntcon[14|] =. .{|
|00004ed0| 20 32 2c 20 32 2c 20 32 | 2c 20 32 2c 0a 20 20 09 | 2, 2, 2|, 2,. .|
|00004ee0| 20 20 31 35 2c 20 33 31 | 2c 20 32 34 2c 20 35 36 | 15, 31|, 24, 56|
|00004ef0| 2c 0a 20 20 09 20 20 2d | 31 32 38 2c 20 2d 31 32 |,. . -|128, -12|
|00004f00| 38 2c 20 31 32 37 2c 20 | 31 32 37 2c 0a 20 20 09 |8, 127, |127,. .|
|00004f10| 20 20 33 32 37 36 37 2c | 20 32 31 34 37 34 38 33 | 32767,| 2147483|
|00004f20| 36 34 37 20 7d 3b 0a 0a | 2d 2d 2d 20 36 39 2c 37 |647 };..|--- 69,7|
|00004f30| 35 20 2d 2d 2d 2d 2d 0a | 20 20 0a 20 20 66 74 6e |5 -----.| . ftn|
|00004f40| 69 6e 74 20 69 6e 74 63 | 6f 6e 5b 31 34 5d 20 3d |int intc|on[14] =|
|00004f50| 0a 20 20 09 7b 20 32 2c | 20 32 2c 20 32 2c 20 32 |. .{ 2,| 2, 2, 2|
|00004f60| 2c 0a 2b 20 23 69 66 6e | 64 65 66 20 47 46 4c 4f |,.+ #ifn|def GFLO|
|00004f70| 41 54 0a 20 20 09 20 20 | 31 35 2c 20 33 31 2c 20 |AT. . |15, 31, |
|00004f80| 32 34 2c 20 35 36 2c 0a | 20 20 09 20 20 2d 31 32 |24, 56,.| . -12|
|00004f90| 38 2c 20 2d 31 32 38 2c | 20 31 32 37 2c 20 31 32 |8, -128,| 127, 12|
|00004fa0| 37 2c 0a 20 20 23 65 6c | 73 65 20 47 46 4c 4f 41 |7,. #el|se GFLOA|
|00004fb0| 54 0a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |T.******|********|
|00004fc0| 2a 0a 2a 2a 2a 20 37 31 | 2c 37 36 0a 20 20 09 7b |*.*** 71|,76. .{|
|00004fd0| 20 32 2c 20 32 2c 20 32 | 2c 20 32 2c 0a 20 20 09 | 2, 2, 2|, 2,. .|
|00004fe0| 20 20 31 35 2c 20 33 31 | 2c 20 32 34 2c 20 35 36 | 15, 31|, 24, 56|
|00004ff0| 2c 0a 20 20 09 20 20 2d | 31 32 38 2c 20 2d 31 32 |,. . -|128, -12|
|00005000| 38 2c 20 31 32 37 2c 20 | 31 32 37 2c 0a 20 20 09 |8, 127, |127,. .|
|00005010| 20 20 33 32 37 36 37 2c | 20 32 31 34 37 34 38 33 | 32767,| 2147483|
|00005020| 36 34 37 20 7d 3b 0a 20 | 20 0a 20 20 23 69 66 20 |647 };. | . #if |
|00005030| 48 45 52 45 20 3d 3d 20 | 56 41 58 0a 0a 2d 2d 2d |HERE == |VAX..---|
|00005040| 20 37 32 2c 38 31 20 2d | 2d 2d 2d 2d 0a 20 20 23 | 72,81 -|----. #|
|00005050| 69 66 6e 64 65 66 20 47 | 46 4c 4f 41 54 0a 20 20 |ifndef G|FLOAT. |
|00005060| 09 20 20 31 35 2c 20 33 | 31 2c 20 32 34 2c 20 35 |. 15, 3|1, 24, 5|
|00005070| 36 2c 0a 20 20 09 20 20 | 2d 31 32 38 2c 20 2d 31 |6,. . |-128, -1|
|00005080| 32 38 2c 20 31 32 37 2c | 20 31 32 37 2c 0a 2b 20 |28, 127,| 127,.+ |
|00005090| 23 65 6c 73 65 20 47 46 | 4c 4f 41 54 0a 2b 20 09 |#else GF|LOAT.+ .|
|000050a0| 20 20 31 35 2c 20 33 31 | 2c 20 32 34 2c 20 35 33 | 15, 31|, 24, 53|
|000050b0| 2c 0a 2b 20 09 20 20 2d | 31 32 38 2c 20 2d 31 30 |,.+ . -|128, -10|
|000050c0| 32 34 2c 20 31 32 37 2c | 20 31 30 32 33 2c 0a 2b |24, 127,| 1023,.+|
|000050d0| 20 23 65 6e 64 69 66 20 | 47 46 4c 4f 41 54 0a 20 | #endif |GFLOAT. |
|000050e0| 20 09 20 20 33 32 37 36 | 37 2c 20 32 31 34 37 34 | . 3276|7, 21474|
|000050f0| 38 33 36 34 37 20 7d 3b | 0a 20 20 0a 20 20 23 69 |83647 };|. . #i|
|00005100| 66 20 48 45 52 45 20 3d | 3d 20 56 41 58 0a 2a 2a |f HERE =|= VAX.**|
|00005110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 2a 2a |********|*****.**|
|00005120| 2a 20 37 38 2c 38 33 0a | 20 20 6c 6f 6e 67 20 72 |* 78,83.| long r|
|00005130| 65 61 6c 63 6f 6e 5b 36 | 5d 5b 32 5d 20 3d 0a 20 |ealcon[6|][2] =. |
|00005140| 20 09 7b 0a 20 20 09 09 | 7b 20 30 32 30 30 2c 20 | .{. ..|{ 0200, |
|00005150| 30 20 7d 2c 0a 20 20 09 | 09 7b 20 30 32 30 30 2c |0 },. .|.{ 0200,|
|00005160| 20 30 20 7d 2c 0a 20 20 | 09 09 7b 20 30 33 37 37 | 0 },. |..{ 0377|
|00005170| 37 37 36 37 37 37 37 37 | 2c 20 30 20 7d 2c 0a 20 |77677777|, 0 },. |
|00005180| 20 09 09 7b 20 30 33 37 | 37 37 37 36 37 37 37 37 | ..{ 037|77767777|
|00005190| 37 2c 20 30 33 37 37 37 | 37 37 37 37 37 37 37 20 |7, 03777|7777777 |
|000051a0| 7d 2c 0a 0a 2d 2d 2d 20 | 38 33 2c 38 39 20 2d 2d |},..--- |83,89 --|
|000051b0| 2d 2d 2d 0a 20 20 6c 6f | 6e 67 20 72 65 61 6c 63 |---. lo|ng realc|
|000051c0| 6f 6e 5b 36 5d 5b 32 5d | 20 3d 0a 20 20 09 7b 0a |on[6][2]| =. .{.|
|000051d0| 20 20 09 09 7b 20 30 32 | 30 30 2c 20 30 20 7d 2c | ..{ 02|00, 0 },|
|000051e0| 0a 2b 20 23 69 66 6e 64 | 65 66 20 47 46 4c 4f 41 |.+ #ifnd|ef GFLOA|
|000051f0| 54 0a 20 20 09 09 7b 20 | 30 32 30 30 2c 20 30 20 |T. ..{ |0200, 0 |
|00005200| 7d 2c 0a 20 20 23 65 6c | 73 65 20 47 46 4c 4f 41 |},. #el|se GFLOA|
|00005210| 54 0a 20 20 09 09 7b 20 | 30 30 32 30 2c 20 30 20 |T. ..{ |0020, 0 |
|00005220| 7d 2c 0a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |},.*****|********|
|00005230| 2a 2a 0a 2a 2a 2a 20 37 | 39 2c 38 34 0a 20 20 09 |**.*** 7|9,84. .|
|00005240| 7b 0a 20 20 09 09 7b 20 | 30 32 30 30 2c 20 30 20 |{. ..{ |0200, 0 |
|00005250| 7d 2c 0a 20 20 09 09 7b | 20 30 32 30 30 2c 20 30 |},. ..{| 0200, 0|
|00005260| 20 7d 2c 0a 20 20 09 09 | 7b 20 30 33 37 37 37 37 | },. ..|{ 037777|
|00005270| 36 37 37 37 37 37 2c 20 | 30 20 7d 2c 0a 20 20 09 |677777, |0 },. .|
|00005280| 09 7b 20 30 33 37 37 37 | 37 36 37 37 37 37 37 2c |.{ 03777|7677777,|
|00005290| 20 30 33 37 37 37 37 37 | 37 37 37 37 37 20 7d 2c | 0377777|77777 },|
|000052a0| 0a 20 20 09 09 7b 20 30 | 33 32 32 30 30 2c 20 30 |. ..{ 0|32200, 0|
|000052b0| 20 7d 2c 0a 0a 2d 2d 2d | 20 38 35 2c 39 33 20 2d | },..---| 85,93 -|
|000052c0| 2d 2d 2d 2d 0a 20 20 09 | 09 7b 20 30 32 30 30 2c |----. .|.{ 0200,|
|000052d0| 20 30 20 7d 2c 0a 20 20 | 23 69 66 6e 64 65 66 20 | 0 },. |#ifndef |
|000052e0| 47 46 4c 4f 41 54 0a 20 | 20 09 09 7b 20 30 32 30 |GFLOAT. | ..{ 020|
|000052f0| 30 2c 20 30 20 7d 2c 0a | 2b 20 23 65 6c 73 65 20 |0, 0 },.|+ #else |
|00005300| 47 46 4c 4f 41 54 0a 2b | 20 09 09 7b 20 30 30 32 |GFLOAT.+| ..{ 002|
|00005310| 30 2c 20 30 20 7d 2c 0a | 2b 20 23 65 6e 64 69 66 |0, 0 },.|+ #endif|
|00005320| 20 47 46 4c 4f 41 54 0a | 20 20 09 09 7b 20 30 33 | GFLOAT.| ..{ 03|
|00005330| 37 37 37 37 36 37 37 37 | 37 37 2c 20 30 20 7d 2c |77776777|77, 0 },|
|00005340| 0a 20 20 23 69 66 6e 64 | 65 66 20 47 46 4c 4f 41 |. #ifnd|ef GFLOA|
|00005350| 54 0a 20 20 09 09 7b 20 | 30 33 37 37 37 37 36 37 |T. ..{ |03777767|
|00005360| 37 37 37 37 2c 20 30 33 | 37 37 37 37 37 37 37 37 |7777, 03|77777777|
|00005370| 37 37 20 7d 2c 0a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |77 },.**|********|
|00005380| 2a 2a 2a 2a 2a 0a 2a 2a | 2a 20 38 30 2c 38 35 0a |*****.**|* 80,85.|
|00005390| 20 20 09 09 7b 20 30 32 | 30 30 2c 20 30 20 7d 2c | ..{ 02|00, 0 },|
|000053a0| 0a 20 20 09 09 7b 20 30 | 32 30 30 2c 20 30 20 7d |. ..{ 0|200, 0 }|
|000053b0| 2c 0a 20 20 09 09 7b 20 | 30 33 37 37 37 37 36 37 |,. ..{ |03777767|
|000053c0| 37 37 37 37 2c 20 30 20 | 7d 2c 0a 20 20 09 09 7b |7777, 0 |},. ..{|
|000053d0| 20 30 33 37 37 37 37 36 | 37 37 37 37 37 2c 20 30 | 0377776|77777, 0|
|000053e0| 33 37 37 37 37 37 37 37 | 37 37 37 20 7d 2c 0a 20 |37777777|777 },. |
|000053f0| 20 09 09 7b 20 30 33 32 | 32 30 30 2c 20 30 20 7d | ..{ 032|200, 0 }|
|00005400| 2c 0a 20 20 09 09 7b 20 | 30 32 32 32 30 30 2c 20 |,. ..{ |022200, |
|00005410| 30 20 7d 0a 0a 2d 2d 2d | 20 38 39 2c 39 35 20 2d |0 }..---| 89,95 -|
|00005420| 2d 2d 2d 2d 0a 20 20 09 | 09 7b 20 30 30 32 30 2c |----. .|.{ 0020,|
|00005430| 20 30 20 7d 2c 0a 20 20 | 23 65 6e 64 69 66 20 47 | 0 },. |#endif G|
|00005440| 46 4c 4f 41 54 0a 20 20 | 09 09 7b 20 30 33 37 37 |FLOAT. |..{ 0377|
|00005450| 37 37 36 37 37 37 37 37 | 2c 20 30 20 7d 2c 0a 2b |77677777|, 0 },.+|
|00005460| 20 23 69 66 6e 64 65 66 | 20 47 46 4c 4f 41 54 0a | #ifndef| GFLOAT.|
|00005470| 20 20 09 09 7b 20 30 33 | 37 37 37 37 36 37 37 37 | ..{ 03|77776777|
|00005480| 37 37 2c 20 30 33 37 37 | 37 37 37 37 37 37 37 37 |77, 0377|77777777|
|00005490| 20 7d 2c 0a 20 20 23 65 | 6c 73 65 20 47 46 4c 4f | },. #e|lse GFLO|
|000054a0| 41 54 0a 20 20 09 09 7b | 20 30 33 37 37 37 37 36 |AT. ..{| 0377776|
|000054b0| 37 37 37 37 37 2c 20 30 | 33 37 37 37 37 37 37 37 |77777, 0|37777777|
|000054c0| 37 37 37 20 7d 2c 0a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |777 },.*|********|
|000054d0| 2a 2a 2a 2a 2a 2a 0a 2a | 2a 2a 20 38 31 2c 38 36 |******.*|** 81,86|
|000054e0| 0a 20 20 09 09 7b 20 30 | 32 30 30 2c 20 30 20 7d |. ..{ 0|200, 0 }|
|000054f0| 2c 0a 20 20 09 09 7b 20 | 30 33 37 37 37 37 36 37 |,. ..{ |03777767|
|00005500| 37 37 37 37 2c 20 30 20 | 7d 2c 0a 20 20 09 09 7b |7777, 0 |},. ..{|
|00005510| 20 30 33 37 37 37 37 36 | 37 37 37 37 37 2c 20 30 | 0377776|77777, 0|
|00005520| 33 37 37 37 37 37 37 37 | 37 37 37 20 7d 2c 0a 20 |37777777|777 },. |
|00005530| 20 09 09 7b 20 30 33 32 | 32 30 30 2c 20 30 20 7d | ..{ 032|200, 0 }|
|00005540| 2c 0a 20 20 09 09 7b 20 | 30 32 32 32 30 30 2c 20 |,. ..{ |022200, |
|00005550| 30 20 7d 0a 20 20 09 7d | 3b 0a 0a 2d 2d 2d 20 39 |0 }. .}|;..--- 9|
|00005560| 31 2c 39 39 20 2d 2d 2d | 2d 2d 0a 20 20 09 09 7b |1,99 ---|--. ..{|
|00005570| 20 30 33 37 37 37 37 36 | 37 37 37 37 37 2c 20 30 | 0377776|77777, 0|
|00005580| 20 7d 2c 0a 20 20 23 69 | 66 6e 64 65 66 20 47 46 | },. #i|fndef GF|
|00005590| 4c 4f 41 54 0a 20 20 09 | 09 7b 20 30 33 37 37 37 |LOAT. .|.{ 03777|
|000055a0| 37 36 37 37 37 37 37 2c | 20 30 33 37 37 37 37 37 |7677777,| 0377777|
|000055b0| 37 37 37 37 37 20 7d 2c | 0a 2b 20 23 65 6c 73 65 |77777 },|.+ #else|
|000055c0| 20 47 46 4c 4f 41 54 0a | 2b 20 09 09 7b 20 30 33 | GFLOAT.|+ ..{ 03|
|000055d0| 37 37 37 37 36 37 37 37 | 37 37 2c 20 30 33 37 37 |77776777|77, 0377|
|000055e0| 37 37 37 37 37 37 37 37 | 20 7d 2c 0a 2b 20 23 65 |77777777| },.+ #e|
|000055f0| 6e 64 69 66 20 47 46 4c | 4f 41 54 0a 20 20 09 09 |ndif GFL|OAT. ..|
|00005600| 7b 20 30 33 32 32 30 30 | 2c 20 30 20 7d 2c 0a 20 |{ 032200|, 0 },. |
|00005610| 20 23 69 66 6e 64 65 66 | 20 47 46 4c 4f 41 54 0a | #ifndef| GFLOAT.|
|00005620| 20 20 09 09 7b 20 30 32 | 32 32 30 30 2c 20 30 20 | ..{ 02|2200, 0 |
|00005630| 7d 0a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |}.******|********|
|00005640| 2a 0a 2a 2a 2a 20 38 32 | 2c 38 37 0a 20 20 09 09 |*.*** 82|,87. ..|
|00005650| 7b 20 30 33 37 37 37 37 | 36 37 37 37 37 37 2c 20 |{ 037777|677777, |
|00005660| 30 20 7d 2c 0a 20 20 09 | 09 7b 20 30 33 37 37 37 |0 },. .|.{ 03777|
|00005670| 37 36 37 37 37 37 37 2c | 20 30 33 37 37 37 37 37 |7677777,| 0377777|
|00005680| 37 37 37 37 37 20 7d 2c | 0a 20 20 09 09 7b 20 30 |77777 },|. ..{ 0|
|00005690| 33 32 32 30 30 2c 20 30 | 20 7d 2c 0a 20 20 09 09 |32200, 0| },. ..|
|000056a0| 7b 20 30 32 32 32 30 30 | 2c 20 30 20 7d 0a 20 20 |{ 022200|, 0 }. |
|000056b0| 09 7d 3b 0a 20 20 23 65 | 6c 73 65 0a 0a 2d 2d 2d |.};. #e|lse..---|
|000056c0| 20 39 35 2c 31 30 31 20 | 2d 2d 2d 2d 2d 0a 20 20 | 95,101 |-----. |
|000056d0| 09 09 7b 20 30 33 37 37 | 37 37 36 37 37 37 37 37 |..{ 0377|77677777|
|000056e0| 2c 20 30 33 37 37 37 37 | 37 37 37 37 37 37 20 7d |, 037777|777777 }|
|000056f0| 2c 0a 20 20 23 65 6e 64 | 69 66 20 47 46 4c 4f 41 |,. #end|if GFLOA|
|00005700| 54 0a 20 20 09 09 7b 20 | 30 33 32 32 30 30 2c 20 |T. ..{ |032200, |
|00005710| 30 20 7d 2c 0a 2b 20 23 | 69 66 6e 64 65 66 20 47 |0 },.+ #|ifndef G|
|00005720| 46 4c 4f 41 54 0a 20 20 | 09 09 7b 20 30 32 32 32 |FLOAT. |..{ 0222|
|00005730| 30 30 2c 20 30 20 7d 0a | 20 20 23 65 6c 73 65 20 |00, 0 }.| #else |
|00005740| 47 46 4c 4f 41 54 0a 20 | 20 09 09 7b 20 30 33 36 |GFLOAT. | ..{ 036|
|00005750| 33 32 30 2c 20 30 20 7d | 0a 2a 2a 2a 2a 2a 2a 2a |320, 0 }|.*******|
|00005760| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 2a 2a 2a 20 38 33 2c |********|.*** 83,|
|00005770| 38 38 0a 20 20 09 09 7b | 20 30 33 37 37 37 37 36 |88. ..{| 0377776|
|00005780| 37 37 37 37 37 2c 20 30 | 33 37 37 37 37 37 37 37 |77777, 0|37777777|
|00005790| 37 37 37 20 7d 2c 0a 20 | 20 09 09 7b 20 30 33 32 |777 },. | ..{ 032|
|000057a0| 32 30 30 2c 20 30 20 7d | 2c 0a 20 20 09 09 7b 20 |200, 0 }|,. ..{ |
|000057b0| 30 32 32 32 30 30 2c 20 | 30 20 7d 0a 20 20 09 7d |022200, |0 }. .}|
|000057c0| 3b 0a 20 20 23 65 6c 73 | 65 0a 20 20 64 6f 75 62 |;. #els|e. doub|
|000057d0| 6c 65 20 72 65 61 6c 63 | 6f 6e 5b 36 5d 20 3d 0a |le realc|on[6] =.|
|000057e0| 0a 2d 2d 2d 20 39 37 2c | 31 30 35 20 2d 2d 2d 2d |.--- 97,|105 ----|
|000057f0| 2d 0a 20 20 09 09 7b 20 | 30 33 32 32 30 30 2c 20 |-. ..{ |032200, |
|00005800| 30 20 7d 2c 0a 20 20 23 | 69 66 6e 64 65 66 20 47 |0 },. #|ifndef G|
|00005810| 46 4c 4f 41 54 0a 20 20 | 09 09 7b 20 30 32 32 32 |FLOAT. |..{ 0222|
|00005820| 30 30 2c 20 30 20 7d 0a | 2b 20 23 65 6c 73 65 20 |00, 0 }.|+ #else |
|00005830| 47 46 4c 4f 41 54 0a 2b | 20 09 09 7b 20 30 33 36 |GFLOAT.+| ..{ 036|
|00005840| 33 32 30 2c 20 30 20 7d | 0a 2b 20 23 65 6e 64 69 |320, 0 }|.+ #endi|
|00005850| 66 20 47 46 4c 4f 41 54 | 0a 20 20 09 7d 3b 0a 20 |f GFLOAT|. .};. |
|00005860| 20 23 65 6c 73 65 0a 20 | 20 64 6f 75 62 6c 65 20 | #else. | double |
|00005870| 72 65 61 6c 63 6f 6e 5b | 36 5d 20 3d 0a 2a 2a 2a |realcon[|6] =.***|
|00005880| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0a 2a 2a 2a |********|****.***|
|00005890| 20 31 39 37 2c 32 30 32 | 0a 20 20 70 72 63 6f 6e | 197,202|. prcon|
|000058a0| 72 28 66 70 2c 20 74 79 | 70 65 2c 20 78 29 0a 20 |r(fp, ty|pe, x). |
|000058b0| 20 46 49 4c 45 50 20 66 | 70 3b 0a 20 20 69 6e 74 | FILEP f|p;. int|
|000058c0| 20 74 79 70 65 3b 0a 20 | 20 66 6c 6f 61 74 20 78 | type;. | float x|
|000058d0| 3b 0a 20 20 7b 0a 20 20 | 66 70 72 69 6e 74 66 28 |;. {. |fprintf(|
|000058e0| 66 70 2c 20 22 5c 74 25 | 73 5c 74 30 66 25 65 5c |fp, "\t%|s\t0f%e\|
|000058f0| 6e 22 2c 20 28 74 79 70 | 65 3d 3d 54 59 52 45 41 |n", (typ|e==TYREA|
|00005900| 4c 20 3f 20 22 2e 66 6c | 6f 61 74 22 20 3a 20 22 |L ? ".fl|oat" : "|
|00005910| 2e 64 6f 75 62 6c 65 22 | 29 2c 20 78 29 3b 0a 0a |.double"|), x);..|
|00005920| 2d 2d 2d 20 32 31 34 2c | 32 32 30 20 2d 2d 2d 2d |--- 214,|220 ----|
|00005930| 2d 0a 20 20 70 72 63 6f | 6e 72 28 66 70 2c 20 74 |-. prco|nr(fp, t|
|00005940| 79 70 65 2c 20 78 29 0a | 20 20 46 49 4c 45 50 20 |ype, x).| FILEP |
|00005950| 66 70 3b 0a 20 20 69 6e | 74 20 74 79 70 65 3b 0a |fp;. in|t type;.|
|00005960| 2b 20 23 69 66 6e 64 65 | 66 20 47 46 4c 4f 41 54 |+ #ifnde|f GFLOAT|
|00005970| 0a 20 20 66 6c 6f 61 74 | 20 78 3b 0a 20 20 23 65 |. float| x;. #e|
|00005980| 6c 73 65 20 47 46 4c 4f | 41 54 0a 20 20 66 6c 6f |lse GFLO|AT. flo|
|00005990| 61 74 20 2a 78 3b 0a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |at *x;.*|********|
|000059a0| 2a 2a 2a 2a 2a 2a 0a 2a | 2a 2a 20 31 39 38 2c 32 |******.*|** 198,2|
|000059b0| 30 33 0a 20 20 46 49 4c | 45 50 20 66 70 3b 0a 20 |03. FIL|EP fp;. |
|000059c0| 20 69 6e 74 20 74 79 70 | 65 3b 0a 20 20 66 6c 6f | int typ|e;. flo|
|000059d0| 61 74 20 78 3b 0a 20 20 | 7b 0a 20 20 66 70 72 69 |at x;. |{. fpri|
|000059e0| 6e 74 66 28 66 70 2c 20 | 22 5c 74 25 73 5c 74 30 |ntf(fp, |"\t%s\t0|
|000059f0| 66 25 65 5c 6e 22 2c 20 | 28 74 79 70 65 3d 3d 54 |f%e\n", |(type==T|
|00005a00| 59 52 45 41 4c 20 3f 20 | 22 2e 66 6c 6f 61 74 22 |YREAL ? |".float"|
|00005a10| 20 3a 20 22 2e 64 6f 75 | 62 6c 65 22 29 2c 20 78 | : ".dou|ble"), x|
|00005a20| 29 3b 0a 20 20 7d 0a 0a | 2d 2d 2d 20 32 31 36 2c |);. }..|--- 216,|
|00005a30| 32 32 34 20 2d 2d 2d 2d | 2d 0a 20 20 69 6e 74 20 |224 ----|-. int |
|00005a40| 74 79 70 65 3b 0a 20 20 | 23 69 66 6e 64 65 66 20 |type;. |#ifndef |
|00005a50| 47 46 4c 4f 41 54 0a 20 | 20 66 6c 6f 61 74 20 78 |GFLOAT. | float x|
|00005a60| 3b 0a 2b 20 23 65 6c 73 | 65 20 47 46 4c 4f 41 54 |;.+ #els|e GFLOAT|
|00005a70| 0a 2b 20 66 6c 6f 61 74 | 20 2a 78 3b 0a 2b 20 23 |.+ float| *x;.+ #|
|00005a80| 65 6e 64 69 66 20 47 46 | 4c 4f 41 54 0a 20 20 7b |endif GF|LOAT. {|
|00005a90| 0a 20 20 23 69 66 6e 64 | 65 66 20 47 46 4c 4f 41 |. #ifnd|ef GFLOA|
|00005aa0| 54 0a 20 20 66 70 72 69 | 6e 74 66 28 66 70 2c 20 |T. fpri|ntf(fp, |
|00005ab0| 22 5c 74 25 73 5c 74 30 | 66 25 65 5c 6e 22 2c 20 |"\t%s\t0|f%e\n", |
|00005ac0| 28 74 79 70 65 3d 3d 54 | 59 52 45 41 4c 20 3f 20 |(type==T|YREAL ? |
|00005ad0| 22 2e 66 6c 6f 61 74 22 | 20 3a 20 22 2e 64 6f 75 |".float"| : ".dou|
|00005ae0| 62 6c 65 22 29 2c 20 78 | 29 3b 0a 2a 2a 2a 2a 2a |ble"), x|);.*****|
|00005af0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0a 2a 2a 2a 20 31 |********|**.*** 1|
|00005b00| 39 39 2c 32 30 34 0a 20 | 20 69 6e 74 20 74 79 70 |99,204. | int typ|
|00005b10| 65 3b 0a 20 20 66 6c 6f | 61 74 20 78 3b 0a 20 20 |e;. flo|at x;. |
|00005b20| 7b 0a 20 20 66 70 72 69 | 6e 74 66 28 66 70 2c 20 |{. fpri|ntf(fp, |
|00005b30| 22 5c 74 25 73 5c 74 30 | 66 25 65 5c 6e 22 2c 20 |"\t%s\t0|f%e\n", |
|00005b40| 28 74 79 70 65 3d 3d 54 | 59 52 45 41 4c 20 3f 20 |(type==T|YREAL ? |
|00005b50| 22 2e 66 6c 6f 61 74 22 | 20 3a 20 22 2e 64 6f 75 |".float"| : ".dou|
|00005b60| 62 6c 65 22 29 2c 20 78 | 29 3b 0a 20 20 7d 0a 20 |ble"), x|);. }. |
|00005b70| 20 23 65 6e 64 69 66 0a | 0a 2d 2d 2d 20 32 32 30 | #endif.|.--- 220|
|00005b80| 2c 32 32 36 20 2d 2d 2d | 2d 2d 0a 20 20 66 6c 6f |,226 ---|--. flo|
|00005b90| 61 74 20 2a 78 3b 0a 20 | 20 23 65 6e 64 69 66 20 |at *x;. | #endif |
|00005ba0| 47 46 4c 4f 41 54 0a 20 | 20 7b 0a 2b 20 23 69 66 |GFLOAT. | {.+ #if|
|00005bb0| 6e 64 65 66 20 47 46 4c | 4f 41 54 0a 20 20 66 70 |ndef GFL|OAT. fp|
|00005bc0| 72 69 6e 74 66 28 66 70 | 2c 20 22 5c 74 25 73 5c |rintf(fp|, "\t%s\|
|00005bd0| 74 30 66 25 65 5c 6e 22 | 2c 20 28 74 79 70 65 3d |t0f%e\n"|, (type=|
|00005be0| 3d 54 59 52 45 41 4c 20 | 3f 20 22 2e 66 6c 6f 61 |=TYREAL |? ".floa|
|00005bf0| 74 22 20 3a 20 22 2e 64 | 6f 75 62 6c 65 22 29 2c |t" : ".d|ouble"),|
|00005c00| 20 78 29 3b 0a 20 20 23 | 65 6c 73 65 20 47 46 4c | x);. #|else GFL|
|00005c10| 4f 41 54 0a 20 20 66 70 | 72 69 6e 74 66 28 66 70 |OAT. fp|rintf(fp|
|00005c20| 2c 20 22 5c 74 25 73 5c | 74 30 66 25 65 5c 6e 22 |, "\t%s\|t0f%e\n"|
|00005c30| 2c 20 28 74 79 70 65 3d | 3d 54 59 52 45 41 4c 20 |, (type=|=TYREAL |
|00005c40| 3f 20 22 2e 66 6c 6f 61 | 74 22 20 3a 20 22 2e 64 |? ".floa|t" : ".d|
|00005c50| 6f 75 62 6c 65 22 29 2c | 20 2a 78 29 3b 0a 2a 2a |ouble"),| *x);.**|
|00005c60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 2a 2a |********|*****.**|
|00005c70| 2a 20 32 30 30 2c 32 30 | 35 0a 20 20 66 6c 6f 61 |* 200,20|5. floa|
|00005c80| 74 20 78 3b 0a 20 20 7b | 0a 20 20 66 70 72 69 6e |t x;. {|. fprin|
|00005c90| 74 66 28 66 70 2c 20 22 | 5c 74 25 73 5c 74 30 66 |tf(fp, "|\t%s\t0f|
|00005ca0| 25 65 5c 6e 22 2c 20 28 | 74 79 70 65 3d 3d 54 59 |%e\n", (|type==TY|
|00005cb0| 52 45 41 4c 20 3f 20 22 | 2e 66 6c 6f 61 74 22 20 |REAL ? "|.float" |
|00005cc0| 3a 20 22 2e 64 6f 75 62 | 6c 65 22 29 2c 20 78 29 |: ".doub|le"), x)|
|00005cd0| 3b 0a 20 20 7d 0a 20 20 | 23 65 6e 64 69 66 0a 20 |;. }. |#endif. |
|00005ce0| 20 0a 0a 2d 2d 2d 20 32 | 32 32 2c 32 33 30 20 2d | ..--- 2|22,230 -|
|00005cf0| 2d 2d 2d 2d 0a 20 20 7b | 0a 20 20 23 69 66 6e 64 |----. {|. #ifnd|
|00005d00| 65 66 20 47 46 4c 4f 41 | 54 0a 20 20 66 70 72 69 |ef GFLOA|T. fpri|
|00005d10| 6e 74 66 28 66 70 2c 20 | 22 5c 74 25 73 5c 74 30 |ntf(fp, |"\t%s\t0|
|00005d20| 66 25 65 5c 6e 22 2c 20 | 28 74 79 70 65 3d 3d 54 |f%e\n", |(type==T|
|00005d30| 59 52 45 41 4c 20 3f 20 | 22 2e 66 6c 6f 61 74 22 |YREAL ? |".float"|
|00005d40| 20 3a 20 22 2e 64 6f 75 | 62 6c 65 22 29 2c 20 78 | : ".dou|ble"), x|
|00005d50| 29 3b 0a 2b 20 23 65 6c | 73 65 20 47 46 4c 4f 41 |);.+ #el|se GFLOA|
|00005d60| 54 0a 2b 20 66 70 72 69 | 6e 74 66 28 66 70 2c 20 |T.+ fpri|ntf(fp, |
|00005d70| 22 5c 74 25 73 5c 74 30 | 66 25 65 5c 6e 22 2c 20 |"\t%s\t0|f%e\n", |
|00005d80| 28 74 79 70 65 3d 3d 54 | 59 52 45 41 4c 20 3f 20 |(type==T|YREAL ? |
|00005d90| 22 2e 66 6c 6f 61 74 22 | 20 3a 20 22 2e 64 6f 75 |".float"| : ".dou|
|00005da0| 62 6c 65 22 29 2c 20 2a | 78 29 3b 0a 2b 20 23 65 |ble"), *|x);.+ #e|
|00005db0| 6e 64 69 66 20 47 46 4c | 4f 41 54 0a 20 20 7d 0a |ndif GFL|OAT. }.|
|00005dc0| 20 20 23 65 6e 64 69 66 | 0a 20 20 0a 2a 2a 2a 2a | #endif|. .****|
|00005dd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0a 2a 2a 2a 20 |********|***.*** |
|00005de0| 32 30 37 2c 32 31 32 0a | 20 20 70 72 63 6f 6e 72 |207,212.| prconr|
|00005df0| 28 66 70 2c 20 74 79 70 | 65 2c 20 78 29 0a 20 20 |(fp, typ|e, x). |
|00005e00| 46 49 4c 45 50 20 66 70 | 3b 0a 20 20 69 6e 74 20 |FILEP fp|;. int |
|00005e10| 74 79 70 65 3b 0a 20 20 | 64 6f 75 62 6c 65 20 78 |type;. |double x|
|00005e20| 3b 0a 20 20 7b 0a 20 20 | 2f 2a 20 6e 6f 6e 2d 70 |;. {. |/* non-p|
|00005e30| 6f 72 74 61 62 6c 65 20 | 63 68 65 61 74 20 74 6f |ortable |cheat to|
|00005e40| 20 70 72 65 73 65 72 76 | 65 20 62 69 74 20 70 61 | preserv|e bit pa|
|00005e50| 74 74 65 72 6e 73 20 2a | 2f 0a 0a 2d 2d 2d 20 32 |tterns *|/..--- 2|
|00005e60| 33 32 2c 32 33 38 20 2d | 2d 2d 2d 2d 0a 20 20 70 |32,238 -|----. p|
|00005e70| 72 63 6f 6e 72 28 66 70 | 2c 20 74 79 70 65 2c 20 |rconr(fp|, type, |
|00005e80| 78 29 0a 20 20 46 49 4c | 45 50 20 66 70 3b 0a 20 |x). FIL|EP fp;. |
|00005e90| 20 69 6e 74 20 74 79 70 | 65 3b 0a 2b 20 23 69 66 | int typ|e;.+ #if|
|00005ea0| 6e 64 65 66 20 47 46 4c | 4f 41 54 0a 20 20 64 6f |ndef GFL|OAT. do|
|00005eb0| 75 62 6c 65 20 78 3b 0a | 20 20 7b 0a 20 20 2f 2a |uble x;.| {. /*|
|00005ec0| 20 6e 6f 6e 2d 70 6f 72 | 74 61 62 6c 65 20 63 68 | non-por|table ch|
|00005ed0| 65 61 74 20 74 6f 20 70 | 72 65 73 65 72 76 65 20 |eat to p|reserve |
|00005ee0| 62 69 74 20 70 61 74 74 | 65 72 6e 73 20 2a 2f 0a |bit patt|erns */.|
|00005ef0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0a |********|*******.|
|00005f00| 2a 2a 2a 20 32 32 36 2c | 32 33 31 0a 20 20 09 66 |*** 226,|231. .f|
|00005f10| 70 72 69 6e 74 66 28 66 | 70 2c 20 22 5c 74 2e 6c |printf(f|p, "\t.l|
|00005f20| 6f 6e 67 5c 74 30 78 25 | 58 2c 30 78 25 58 5c 6e |ong\t0x%|X,0x%X\n|
|00005f30| 22 2c 20 63 68 65 61 74 | 2e 78 6c 5b 30 5d 2c 20 |", cheat|.xl[0], |
|00005f40| 63 68 65 61 74 2e 78 6c | 5b 31 5d 29 3b 0a 20 20 |cheat.xl|[1]);. |
|00005f50| 09 69 20 3d 20 53 5a 44 | 4f 55 42 4c 45 3b 0a 20 |.i = SZD|OUBLE;. |
|00005f60| 20 09 7d 0a 20 20 69 66 | 28 66 70 20 3d 3d 20 69 | .}. if|(fp == i|
|00005f70| 6e 69 74 66 69 6c 65 29 | 0a 20 20 09 69 5f 6f 66 |nitfile)|. .i_of|
|00005f80| 66 73 65 74 20 2b 3d 20 | 69 3b 0a 20 20 65 6c 73 |fset += |i;. els|
|00005f90| 65 0a 0a 2d 2d 2d 20 32 | 35 32 2c 32 37 34 20 2d |e..--- 2|52,274 -|
|00005fa0| 2d 2d 2d 2d 0a 20 20 09 | 66 70 72 69 6e 74 66 28 |----. .|fprintf(|
|00005fb0| 66 70 2c 20 22 5c 74 2e | 6c 6f 6e 67 5c 74 30 78 |fp, "\t.|long\t0x|
|00005fc0| 25 58 2c 30 78 25 58 5c | 6e 22 2c 20 63 68 65 61 |%X,0x%X\|n", chea|
|00005fd0| 74 2e 78 6c 5b 30 5d 2c | 20 63 68 65 61 74 2e 78 |t.xl[0],| cheat.x|
|00005fe0| 6c 5b 31 5d 29 3b 0a 20 | 20 09 69 20 3d 20 53 5a |l[1]);. | .i = SZ|
|00005ff0| 44 4f 55 42 4c 45 3b 0a | 20 20 09 7d 0a 2b 20 23 |DOUBLE;.| .}.+ #|
|00006000| 65 6c 73 65 20 47 46 4c | 4f 41 54 0a 2b 20 2f 2a |else GFL|OAT.+ /*|
|00006010| 20 54 68 69 73 20 61 73 | 73 75 6d 65 73 20 74 77 | This as|sumes tw|
|00006020| 6f 20 6c 6f 6e 67 73 20 | 6d 61 6b 65 20 61 20 64 |o longs |make a d|
|00006030| 6f 75 62 6c 65 20 2a 2f | 0a 2b 20 6c 6f 6e 67 20 |ouble */|.+ long |
|00006040| 2a 78 3b 0a 2b 20 7b 0a | 2b 20 72 65 67 69 73 74 |*x;.+ {.|+ regist|
|00006050| 65 72 20 69 6e 74 20 69 | 3b 0a 2b 20 0a 2b 20 69 |er int i|;.+ .+ i|
|00006060| 66 28 74 79 70 65 20 3d | 3d 20 54 59 52 45 41 4c |f(type =|= TYREAL|
|00006070| 29 0a 2b 20 09 7b 0a 2b | 20 09 66 70 72 69 6e 74 |).+ .{.+| .fprint|
|00006080| 66 28 66 70 2c 20 22 5c | 74 2e 6c 6f 6e 67 5c 74 |f(fp, "\|t.long\t|
|00006090| 30 78 25 58 5c 6e 22 2c | 20 2a 78 20 29 3b 0a 2b |0x%X\n",| *x );.+|
|000060a0| 20 09 69 20 3d 20 53 5a | 46 4c 4f 41 54 3b 0a 2b | .i = SZ|FLOAT;.+|
|000060b0| 20 09 7d 0a 2b 20 65 6c | 73 65 0a 2b 20 09 7b 0a | .}.+ el|se.+ .{.|
|000060c0| 2b 20 09 66 70 72 69 6e | 74 66 28 66 70 2c 20 22 |+ .fprin|tf(fp, "|
|000060d0| 5c 74 2e 6c 6f 6e 67 5c | 74 30 78 25 58 2c 30 78 |\t.long\|t0x%X,0x|
|000060e0| 25 58 5c 6e 22 2c 20 2a | 78 2c 20 2a 28 78 2b 31 |%X\n", *|x, *(x+1|
|000060f0| 29 20 29 3b 0a 2b 20 09 | 69 20 3d 20 53 5a 44 4f |) );.+ .|i = SZDO|
|00006100| 55 42 4c 45 3b 0a 2b 20 | 09 7d 0a 2b 20 23 65 6e |UBLE;.+ |.}.+ #en|
|00006110| 64 69 66 20 47 46 4c 4f | 41 54 0a 20 20 69 66 28 |dif GFLO|AT. if(|
|00006120| 66 70 20 3d 3d 20 69 6e | 69 74 66 69 6c 65 29 0a |fp == in|itfile).|
|00006130| 20 20 09 69 5f 6f 66 66 | 73 65 74 20 2b 3d 20 69 | .i_off|set += i|
|00006140| 3b 0a 20 20 65 6c 73 65 | 0a 2a 2a 2a 2a 2a 2a 2a |;. else|.*******|
|00006150| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 2a 2a 2a 20 33 36 39 |********|.*** 369|
|00006160| 2c 33 37 34 0a 20 20 65 | 6c 73 65 20 69 66 20 28 |,374. e|lse if (|
|00006170| 74 79 70 65 20 3d 3d 20 | 54 59 53 48 4f 52 54 29 |type == |TYSHORT)|
|00006180| 0a 20 20 09 70 32 70 61 | 73 73 28 22 5c 74 74 73 |. .p2pa|ss("\tts|
|00006190| 74 77 5c 74 72 30 22 29 | 3b 0a 20 20 65 6c 73 65 |tw\tr0")|;. else|
|000061a0| 0a 20 20 09 70 32 70 61 | 73 73 28 22 5c 74 74 73 |. .p2pa|ss("\tts|
|000061b0| 74 64 5c 74 72 30 22 29 | 3b 0a 20 20 70 32 70 69 |td\tr0")|;. p2pi|
|000061c0| 28 22 5c 74 6a 6c 73 73 | 5c 74 4c 25 64 22 2c 20 |("\tjlss|\tL%d", |
|000061d0| 6e 65 67 29 3b 0a 20 20 | 70 32 70 69 28 22 5c 74 |neg);. |p2pi("\t|
|000061e0| 6a 65 71 6c 5c 74 4c 25 | 64 22 2c 20 7a 65 72 29 |jeql\tL%|d", zer)|
|000061f0| 3b 0a 0a 2d 2d 2d 20 34 | 31 32 2c 34 31 38 20 2d |;..--- 4|12,418 -|
|00006200| 2d 2d 2d 2d 0a 20 20 65 | 6c 73 65 20 69 66 20 28 |----. e|lse if (|
|00006210| 74 79 70 65 20 3d 3d 20 | 54 59 53 48 4f 52 54 29 |type == |TYSHORT)|
|00006220| 0a 20 20 09 70 32 70 61 | 73 73 28 22 5c 74 74 73 |. .p2pa|ss("\tts|
|00006230| 74 77 5c 74 72 30 22 29 | 3b 0a 20 20 65 6c 73 65 |tw\tr0")|;. else|
|00006240| 0a 2b 20 23 69 66 6e 64 | 65 66 20 47 46 4c 4f 41 |.+ #ifnd|ef GFLOA|
|00006250| 54 0a 20 20 09 70 32 70 | 61 73 73 28 22 5c 74 74 |T. .p2p|ass("\tt|
|00006260| 73 74 64 5c 74 72 30 22 | 29 3b 0a 20 20 23 65 6c |std\tr0"|);. #el|
|00006270| 73 65 20 47 46 4c 4f 41 | 54 0a 20 20 09 70 32 70 |se GFLOA|T. .p2p|
|00006280| 61 73 73 28 22 5c 74 74 | 73 74 67 5c 74 72 30 22 |ass("\tt|stg\tr0"|
|00006290| 29 3b 0a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |);.*****|********|
|000062a0| 2a 2a 0a 2a 2a 2a 20 33 | 37 30 2c 33 37 35 0a 20 |**.*** 3|70,375. |
|000062b0| 20 09 70 32 70 61 73 73 | 28 22 5c 74 74 73 74 77 | .p2pass|("\ttstw|
|000062c0| 5c 74 72 30 22 29 3b 0a | 20 20 65 6c 73 65 0a 20 |\tr0");.| else. |
|000062d0| 20 09 70 32 70 61 73 73 | 28 22 5c 74 74 73 74 64 | .p2pass|("\ttstd|
|000062e0| 5c 74 72 30 22 29 3b 0a | 20 20 70 32 70 69 28 22 |\tr0");.| p2pi("|
|000062f0| 5c 74 6a 6c 73 73 5c 74 | 4c 25 64 22 2c 20 6e 65 |\tjlss\t|L%d", ne|
|00006300| 67 29 3b 0a 20 20 70 32 | 70 69 28 22 5c 74 6a 65 |g);. p2|pi("\tje|
|00006310| 71 6c 5c 74 4c 25 64 22 | 2c 20 7a 65 72 29 3b 0a |ql\tL%d"|, zer);.|
|00006320| 20 20 70 32 70 69 28 22 | 5c 74 6a 62 72 5c 74 4c | p2pi("|\tjbr\tL|
|00006330| 25 64 22 2c 20 70 6f 73 | 29 3b 0a 0a 2d 2d 2d 20 |%d", pos|);..--- |
|00006340| 34 31 34 2c 34 32 32 20 | 2d 2d 2d 2d 2d 0a 20 20 |414,422 |-----. |
|00006350| 65 6c 73 65 0a 20 20 23 | 69 66 6e 64 65 66 20 47 |else. #|ifndef G|
|00006360| 46 4c 4f 41 54 0a 20 20 | 09 70 32 70 61 73 73 28 |FLOAT. |.p2pass(|
|00006370| 22 5c 74 74 73 74 64 5c | 74 72 30 22 29 3b 0a 2b |"\ttstd\|tr0");.+|
|00006380| 20 23 65 6c 73 65 20 47 | 46 4c 4f 41 54 0a 2b 20 | #else G|FLOAT.+ |
|00006390| 09 70 32 70 61 73 73 28 | 22 5c 74 74 73 74 67 5c |.p2pass(|"\ttstg\|
|000063a0| 74 72 30 22 29 3b 0a 2b | 20 23 65 6e 64 69 66 20 |tr0");.+| #endif |
|000063b0| 47 46 4c 4f 41 54 0a 20 | 20 70 32 70 69 28 22 5c |GFLOAT. | p2pi("\|
|000063c0| 74 6a 6c 73 73 5c 74 4c | 25 64 22 2c 20 6e 65 67 |tjlss\tL|%d", neg|
|000063d0| 29 3b 0a 20 20 70 32 70 | 69 28 22 5c 74 6a 65 71 |);. p2p|i("\tjeq|
|000063e0| 6c 5c 74 4c 25 64 22 2c | 20 7a 65 72 29 3b 0a 20 |l\tL%d",| zer);. |
|000063f0| 20 70 32 70 69 28 22 5c | 74 6a 62 72 5c 74 4c 25 | p2pi("\|tjbr\tL%|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
