home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: SHell self-extracting ARchive
(archive/shar).
You can browse this item here: whets.for
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| SHell self-extracting ARchive (archive/shar)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| POSIX shell script text executable
| default
| |
| 99%
| file
| a /bin/sh script, ASCII text executable
| default (weak)
| |
| 100%
| checkBytes
| Printable ASCII
| default
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| siegfried
| fmt/329 Shell Archive Format
| default
| |
| 100%
| gt2
| Shell Skript: '/bin/sh'
| default (weak)
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
| |
| 100%
| binwalkID
| Executable script, shebang: "/bin/sh"
| default (weak)
| |
| 100%
| xdgMime
| application/x-shellscript
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 23 21 20 2f 62 69 6e 2f | 73 68 0a 23 20 54 68 69 |#! /bin/|sh.# Thi|
|00000010| 73 20 69 73 20 61 20 73 | 68 65 6c 6c 20 61 72 63 |s is a s|hell arc|
|00000020| 68 69 76 65 2e 20 20 52 | 65 6d 6f 76 65 20 61 6e |hive. R|emove an|
|00000030| 79 74 68 69 6e 67 20 62 | 65 66 6f 72 65 20 74 68 |ything b|efore th|
|00000040| 69 73 20 6c 69 6e 65 2c | 20 74 68 65 6e 20 75 6e |is line,| then un|
|00000050| 70 61 63 6b 0a 23 20 69 | 74 20 62 79 20 73 61 76 |pack.# i|t by sav|
|00000060| 69 6e 67 20 69 74 20 69 | 6e 74 6f 20 61 20 66 69 |ing it i|nto a fi|
|00000070| 6c 65 20 61 6e 64 20 74 | 79 70 69 6e 67 20 22 73 |le and t|yping "s|
|00000080| 68 20 66 69 6c 65 22 2e | 20 20 54 6f 20 6f 76 65 |h file".| To ove|
|00000090| 72 77 72 69 74 65 20 65 | 78 69 73 74 69 6e 67 0a |rwrite e|xisting.|
|000000a0| 23 20 66 69 6c 65 73 2c | 20 74 79 70 65 20 22 73 |# files,| type "s|
|000000b0| 68 20 66 69 6c 65 20 2d | 63 22 2e 20 20 59 6f 75 |h file -|c". You|
|000000c0| 20 63 61 6e 20 61 6c 73 | 6f 20 66 65 65 64 20 74 | can als|o feed t|
|000000d0| 68 69 73 20 61 73 20 73 | 74 61 6e 64 61 72 64 20 |his as s|tandard |
|000000e0| 69 6e 70 75 74 20 76 69 | 61 0a 23 20 75 6e 73 68 |input vi|a.# unsh|
|000000f0| 61 72 2c 20 6f 72 20 62 | 79 20 74 79 70 69 6e 67 |ar, or b|y typing|
|00000100| 20 22 73 68 20 3c 66 69 | 6c 65 22 2c 20 65 2e 67 | "sh <fi|le", e.g|
|00000110| 2e 2e 20 20 49 66 20 74 | 68 69 73 20 61 72 63 68 |.. If t|his arch|
|00000120| 69 76 65 20 69 73 20 63 | 6f 6d 70 6c 65 74 65 2c |ive is c|omplete,|
|00000130| 20 79 6f 75 0a 23 20 77 | 69 6c 6c 20 73 65 65 20 | you.# w|ill see |
|00000140| 74 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 6d 65 |the foll|owing me|
|00000150| 73 73 61 67 65 20 61 74 | 20 74 68 65 20 65 6e 64 |ssage at| the end|
|00000160| 3a 0a 23 09 09 22 45 6e | 64 20 6f 66 20 73 68 65 |:.#.."En|d of she|
|00000170| 6c 6c 20 61 72 63 68 69 | 76 65 2e 22 0a 23 20 43 |ll archi|ve.".# C|
|00000180| 6f 6e 74 65 6e 74 73 3a | 20 20 46 77 68 65 74 64 |ontents:| Fwhetd|
|00000190| 2e 66 20 46 77 68 65 74 | 73 2e 66 20 4d 61 6b 65 |.f Fwhet|s.f Make|
|000001a0| 66 69 6c 65 20 5f 73 65 | 63 6f 6e 64 2e 63 20 73 |file _se|cond.c s|
|000001b0| 65 63 6f 6e 64 2e 63 20 | 73 65 63 6f 6e 64 2e 75 |econd.c |second.u|
|000001c0| 63 62 2e 63 0a 23 20 20 | 20 74 63 6f 72 6c 2e 63 |cb.c.# | tcorl.c|
|000001d0| 20 74 65 6d 70 2e 66 20 | 74 65 73 74 2e 63 0a 23 | temp.f |test.c.#|
|000001e0| 20 57 72 61 70 70 65 64 | 20 62 79 20 77 65 62 40 | Wrapped| by web@|
|000001f0| 6b 69 76 61 78 20 6f 6e | 20 4d 6f 6e 20 46 65 62 |kivax on| Mon Feb|
|00000200| 20 31 32 20 30 37 3a 33 | 34 3a 33 35 20 31 39 39 | 12 07:3|4:35 199|
|00000210| 30 0a 50 41 54 48 3d 2f | 62 69 6e 3a 2f 75 73 72 |0.PATH=/|bin:/usr|
|00000220| 2f 62 69 6e 3a 2f 75 73 | 72 2f 75 63 62 20 3b 20 |/bin:/us|r/ucb ; |
|00000230| 65 78 70 6f 72 74 20 50 | 41 54 48 0a 69 66 20 74 |export P|ATH.if t|
|00000240| 65 73 74 20 2d 66 20 46 | 77 68 65 74 64 2e 66 20 |est -f F|whetd.f |
|00000250| 2d 61 20 22 24 7b 31 7d | 22 20 21 3d 20 22 2d 63 |-a "${1}|" != "-c|
|00000260| 22 20 3b 20 74 68 65 6e | 20 0a 20 20 65 63 68 6f |" ; then| . echo|
|00000270| 20 73 68 61 72 3a 20 57 | 69 6c 6c 20 6e 6f 74 20 | shar: W|ill not |
|00000280| 6f 76 65 72 2d 77 72 69 | 74 65 20 65 78 69 73 74 |over-wri|te exist|
|00000290| 69 6e 67 20 66 69 6c 65 | 20 5c 22 46 77 68 65 74 |ing file| \"Fwhet|
|000002a0| 64 2e 66 5c 22 0a 65 6c | 73 65 0a 65 63 68 6f 20 |d.f\".el|se.echo |
|000002b0| 73 68 61 72 3a 20 45 78 | 74 72 61 63 74 69 6e 67 |shar: Ex|tracting|
|000002c0| 20 5c 22 46 77 68 65 74 | 64 2e 66 5c 22 20 5c 28 | \"Fwhet|d.f\" \(|
|000002d0| 34 36 34 35 20 63 68 61 | 72 61 63 74 65 72 73 5c |4645 cha|racters\|
|000002e0| 29 0a 73 65 64 20 22 73 | 2f 5e 58 2f 2f 22 20 3e |).sed "s|/^X//" >|
|000002f0| 46 77 68 65 74 64 2e 66 | 20 3c 3c 27 45 4e 44 5f |Fwhetd.f| <<'END_|
|00000300| 4f 46 5f 46 77 68 65 74 | 64 2e 66 27 0a 58 43 20 |OF_Fwhet|d.f'.XC |
|00000310| 54 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 6c 69 |The foll|owing li|
|00000320| 6e 65 20 69 73 20 66 6f | 72 20 74 68 65 20 4c 61 |ne is fo|r the La|
|00000330| 77 72 65 6e 63 65 20 4c | 69 76 65 72 6d 6f 72 65 |wrence L|ivermore|
|00000340| 20 4c 61 62 73 20 46 6f | 72 74 72 61 6e 20 43 6f | Labs Fo|rtran Co|
|00000350| 6d 70 69 6c 65 72 0a 58 | 43 2a 24 2a 4f 50 54 49 |mpiler.X|C*$*OPTI|
|00000360| 4f 4e 20 46 52 45 45 20 | 46 4f 52 4d 41 54 20 20 |ON FREE |FORMAT |
|00000370| 20 20 20 20 20 20 20 20 | 20 20 20 20 0a 58 43 0a | | .XC.|
|00000380| 58 43 09 57 48 45 54 53 | 54 4f 4e 45 20 42 45 4e |XC.WHETS|TONE BEN|
|00000390| 43 48 4d 41 52 4b 0a 58 | 43 0a 58 43 09 44 4f 55 |CHMARK.X|C.XC.DOU|
|000003a0| 42 4c 45 20 50 52 45 43 | 49 53 49 4f 4e 20 56 45 |BLE PREC|ISION VE|
|000003b0| 52 53 49 4f 4e 0a 58 43 | 0a 58 43 09 54 68 69 73 |RSION.XC|.XC.This|
|000003c0| 20 70 72 6f 67 72 61 6d | 20 69 73 20 74 68 65 20 | program| is the |
|000003d0| 72 65 73 75 6c 74 20 6f | 66 20 65 78 74 65 6e 73 |result o|f extens|
|000003e0| 69 76 65 20 72 65 73 65 | 61 72 63 68 20 74 6f 0a |ive rese|arch to.|
|000003f0| 58 43 09 64 65 74 65 72 | 6d 69 6e 65 20 74 68 65 |XC.deter|mine the|
|00000400| 20 69 6e 73 74 72 75 63 | 74 69 6f 6e 20 6d 69 78 | instruc|tion mix|
|00000410| 20 6f 66 20 61 20 74 79 | 70 69 63 61 6c 20 46 6f | of a ty|pical Fo|
|00000420| 72 74 72 61 6e 0a 58 43 | 09 70 72 6f 67 72 61 6d |rtran.XC|.program|
|00000430| 2e 20 20 54 68 65 20 72 | 65 73 75 6c 74 73 20 6f |. The r|esults o|
|00000440| 66 20 74 68 69 73 20 70 | 72 6f 67 72 61 6d 20 6f |f this p|rogram o|
|00000450| 6e 20 64 69 66 66 65 72 | 65 6e 74 0a 58 43 09 6d |n differ|ent.XC.m|
|00000460| 61 63 68 69 6e 65 73 20 | 73 68 6f 75 6c 64 20 67 |achines |should g|
|00000470| 69 76 65 20 61 20 67 6f | 6f 64 20 69 6e 64 69 63 |ive a go|od indic|
|00000480| 61 74 69 6f 6e 20 6f 66 | 20 77 68 69 63 68 0a 58 |ation of| which.X|
|00000490| 43 09 6d 61 63 68 69 6e | 65 20 70 65 72 66 6f 72 |C.machin|e perfor|
|000004a0| 6d 73 20 62 65 74 74 65 | 72 20 75 6e 64 65 72 20 |ms bette|r under |
|000004b0| 61 20 74 79 70 69 63 61 | 6c 20 6c 6f 61 64 20 6f |a typica|l load o|
|000004c0| 66 0a 58 43 09 46 6f 72 | 74 72 61 6e 20 70 72 6f |f.XC.For|tran pro|
|000004d0| 67 72 61 6d 73 2e 20 20 | 54 68 65 20 73 74 61 74 |grams. |The stat|
|000004e0| 65 6d 65 6e 74 73 20 61 | 72 65 20 70 75 72 70 6f |ements a|re purpo|
|000004f0| 73 65 6c 79 0a 58 43 09 | 61 72 72 61 6e 67 65 64 |sely.XC.|arranged|
|00000500| 20 74 6f 20 64 65 66 65 | 61 74 20 6f 70 74 69 6d | to defe|at optim|
|00000510| 69 7a 61 74 69 6f 6e 20 | 62 79 20 74 68 65 20 63 |ization |by the c|
|00000520| 6f 6d 70 69 6c 65 72 2e | 0a 58 43 0a 58 09 44 4f |ompiler.|.XC.X.DO|
|00000530| 55 42 4c 45 20 50 52 45 | 43 49 53 49 4f 4e 20 58 |UBLE PRE|CISION X|
|00000540| 31 2c 58 32 2c 58 33 2c | 58 34 2c 58 2c 59 2c 5a |1,X2,X3,|X4,X,Y,Z|
|00000550| 2c 54 2c 54 31 2c 54 32 | 2c 45 31 0a 58 09 44 49 |,T,T1,T2|,E1.X.DI|
|00000560| 4d 45 4e 53 49 4f 4e 20 | 43 50 55 28 32 29 0a 58 |MENSION |CPU(2).X|
|00000570| 09 43 4f 4d 4d 4f 4e 20 | 54 2c 54 31 2c 54 32 2c |.COMMON |T,T1,T2,|
|00000580| 45 31 28 34 29 2c 4a 2c | 4b 2c 4c 0a 58 43 0a 58 |E1(4),J,|K,L.XC.X|
|00000590| 09 20 20 20 20 20 54 20 | 20 3d 20 30 2e 34 39 39 |. T | = 0.499|
|000005a0| 39 37 35 09 44 30 30 0a | 58 09 20 20 20 20 20 54 |975.D00.|X. T|
|000005b0| 31 20 3d 20 30 2e 35 30 | 30 32 35 09 44 30 30 0a |1 = 0.50|025.D00.|
|000005c0| 58 09 20 20 20 20 20 54 | 32 20 3d 20 32 2e 30 09 |X. T|2 = 2.0.|
|000005d0| 09 44 30 30 0a 58 09 20 | 20 20 20 20 50 52 49 4e |.D00.X. | PRIN|
|000005e0| 54 20 39 39 39 0a 58 39 | 39 39 09 20 20 20 20 20 |T 999.X9|99. |
|000005f0| 46 4f 52 4d 41 54 20 28 | 2f 2f 20 27 20 57 48 45 |FORMAT (|// ' WHE|
|00000600| 54 53 54 4f 4e 45 20 42 | 45 4e 43 48 4d 41 52 4b |TSTONE B|ENCHMARK|
|00000610| 20 28 44 4f 55 42 4c 45 | 20 50 52 45 43 49 53 49 | (DOUBLE| PRECISI|
|00000620| 4f 4e 29 27 29 0a 58 31 | 20 20 20 20 20 20 20 20 |ON)').X1| |
|00000630| 20 20 20 20 50 52 49 4e | 54 20 31 30 30 30 0a 58 | PRIN|T 1000.X|
|00000640| 31 30 30 30 09 20 20 20 | 20 20 46 4f 52 4d 41 54 |1000. | FORMAT|
|00000650| 20 28 2f 2f 20 27 20 4e | 55 4d 42 45 52 20 4f 46 | (// ' N|UMBER OF|
|00000660| 20 49 54 45 52 41 54 49 | 4f 4e 53 3f 20 27 29 0a | ITERATI|ONS? ').|
|00000670| 58 09 20 20 20 20 20 52 | 45 41 44 20 31 30 30 31 |X. R|EAD 1001|
|00000680| 2c 20 49 54 45 52 0a 58 | 31 30 30 31 09 20 20 20 |, ITER.X|1001. |
|00000690| 20 20 46 4f 52 4d 41 54 | 20 28 49 38 29 0a 58 09 | FORMAT| (I8).X.|
|000006a0| 20 20 20 20 20 49 50 41 | 53 53 20 3d 20 31 0a 58 | IPA|SS = 1.X|
|000006b0| 43 0a 58 35 09 20 20 20 | 20 20 49 46 20 28 49 50 |C.X5. | IF (IP|
|000006c0| 41 53 53 2e 45 51 2e 32 | 29 20 49 54 45 52 20 3d |ASS.EQ.2|) ITER =|
|000006d0| 20 49 54 45 52 20 2b 20 | 31 30 0a 58 09 20 20 20 | ITER + |10.X. |
|000006e0| 20 20 49 46 20 28 49 50 | 41 53 53 2e 45 51 2e 32 | IF (IP|ASS.EQ.2|
|000006f0| 29 20 50 52 49 4e 54 20 | 31 30 30 32 2c 20 49 54 |) PRINT |1002, IT|
|00000700| 45 52 0a 58 31 30 30 32 | 09 20 20 20 20 20 46 4f |ER.X1002|. FO|
|00000710| 52 4d 41 54 20 28 27 20 | 50 41 53 53 20 32 3a 27 |RMAT (' |PASS 2:'|
|00000720| 2c 20 49 31 30 2c 20 27 | 20 49 54 45 52 41 54 49 |, I10, '| ITERATI|
|00000730| 4f 4e 53 27 2f 29 0a 58 | 09 20 20 20 20 20 49 20 |ONS'/).X|. I |
|00000740| 3d 20 49 54 45 52 0a 58 | 31 30 09 20 20 20 20 20 |= ITER.X|10. |
|00000750| 53 53 45 43 20 3d 20 53 | 45 43 4f 4e 44 28 29 0a |SSEC = S|ECOND().|
|00000760| 58 43 0a 58 09 4e 31 20 | 20 3d 20 30 0a 58 09 4e |XC.X.N1 | = 0.X.N|
|00000770| 32 20 20 3d 20 31 32 20 | 2a 20 49 0a 58 09 4e 33 |2 = 12 |* I.X.N3|
|00000780| 20 20 3d 20 31 34 20 2a | 20 49 0a 58 09 4e 34 20 | = 14 *| I.X.N4 |
|00000790| 20 3d 20 33 34 35 20 2a | 20 49 0a 58 09 4e 35 20 | = 345 *| I.X.N5 |
|000007a0| 20 3d 20 30 0a 58 09 4e | 36 20 20 3d 20 32 31 30 | = 0.X.N|6 = 210|
|000007b0| 20 2a 20 49 0a 58 09 4e | 37 20 20 3d 20 33 32 20 | * I.X.N|7 = 32 |
|000007c0| 2a 20 49 0a 58 09 4e 38 | 20 20 3d 20 38 39 39 20 |* I.X.N8| = 899 |
|000007d0| 2a 20 49 0a 58 09 4e 39 | 20 20 3d 20 36 31 36 20 |* I.X.N9| = 616 |
|000007e0| 2a 20 49 0a 58 09 4e 31 | 30 20 3d 20 30 0a 58 09 |* I.X.N1|0 = 0.X.|
|000007f0| 4e 31 31 20 3d 20 39 33 | 20 2a 20 49 0a 58 09 4e |N11 = 93| * I.X.N|
|00000800| 31 32 20 3d 20 30 0a 58 | 43 0a 58 09 58 31 20 20 |12 = 0.X|C.X.X1 |
|00000810| 3d 20 20 31 2e 30 44 30 | 0a 58 09 58 32 20 20 3d |= 1.0D0|.X.X2 =|
|00000820| 20 2d 31 2e 30 44 30 0a | 58 09 58 33 20 20 3d 20 | -1.0D0.|X.X3 = |
|00000830| 2d 31 2e 30 44 30 0a 58 | 09 58 34 20 20 3d 20 2d |-1.0D0.X|.X4 = -|
|00000840| 31 2e 30 44 30 0a 58 43 | 0a 58 09 49 46 20 28 4e |1.0D0.XC|.X.IF (N|
|00000850| 31 29 20 31 39 2c 20 31 | 39 2c 20 31 31 0a 58 31 |1) 19, 1|9, 11.X1|
|00000860| 31 09 44 4f 20 31 38 20 | 49 20 3d 20 31 2c 20 4e |1.DO 18 |I = 1, N|
|00000870| 31 2c 20 31 0a 58 09 20 | 20 20 20 58 31 20 3d 20 |1, 1.X. | X1 = |
|00000880| 28 58 31 20 2b 20 58 32 | 20 2b 20 58 33 20 2d 20 |(X1 + X2| + X3 - |
|00000890| 58 34 29 20 2a 20 54 0a | 58 09 20 20 20 20 58 32 |X4) * T.|X. X2|
|000008a0| 20 3d 20 28 58 31 20 2b | 20 58 32 20 2d 20 58 33 | = (X1 +| X2 - X3|
|000008b0| 20 2b 20 58 34 29 20 2a | 20 54 0a 58 09 20 20 20 | + X4) *| T.X. |
|000008c0| 20 58 34 20 3d 20 28 2d | 58 31 2b 20 58 32 20 2b | X4 = (-|X1+ X2 +|
|000008d0| 20 58 33 20 2b 20 58 34 | 29 20 2a 20 54 0a 58 09 | X3 + X4|) * T.X.|
|000008e0| 20 20 20 20 58 33 20 3d | 20 28 58 31 20 2d 20 58 | X3 =| (X1 - X|
|000008f0| 32 20 2b 20 58 33 20 2b | 20 58 34 29 20 2a 20 54 |2 + X3 +| X4) * T|
|00000900| 0a 58 31 38 09 43 4f 4e | 54 49 4e 55 45 0a 58 31 |.X18.CON|TINUE.X1|
|00000910| 39 09 43 4f 4e 54 49 4e | 55 45 0a 58 09 43 41 4c |9.CONTIN|UE.X.CAL|
|00000920| 4c 20 50 4f 55 54 28 4e | 31 2c 4e 31 2c 4e 31 2c |L POUT(N|1,N1,N1,|
|00000930| 58 31 2c 58 32 2c 58 33 | 2c 58 34 29 0a 58 43 0a |X1,X2,X3|,X4).XC.|
|00000940| 58 09 45 31 28 31 29 20 | 3d 20 20 31 2e 30 20 44 |X.E1(1) |= 1.0 D|
|00000950| 30 0a 58 09 45 31 28 32 | 29 20 3d 20 2d 31 2e 30 |0.X.E1(2|) = -1.0|
|00000960| 20 44 30 0a 58 09 45 31 | 28 33 29 20 3d 20 2d 31 | D0.X.E1|(3) = -1|
|00000970| 2e 30 20 44 30 0a 58 09 | 45 31 28 34 29 20 3d 20 |.0 D0.X.|E1(4) = |
|00000980| 2d 31 2e 30 20 44 30 0a | 58 09 49 46 20 28 4e 32 |-1.0 D0.|X.IF (N2|
|00000990| 29 20 32 39 2c 20 32 39 | 2c 20 32 31 0a 58 32 31 |) 29, 29|, 21.X21|
|000009a0| 09 44 4f 20 32 38 20 49 | 20 3d 20 31 2c 20 4e 32 |.DO 28 I| = 1, N2|
|000009b0| 2c 20 31 0a 58 09 20 20 | 20 20 45 31 28 31 29 20 |, 1.X. | E1(1) |
|000009c0| 3d 20 28 20 45 31 28 31 | 29 20 2b 20 45 31 28 32 |= ( E1(1|) + E1(2|
|000009d0| 29 20 2b 20 45 31 28 33 | 29 20 2d 20 45 31 28 34 |) + E1(3|) - E1(4|
|000009e0| 29 29 20 2a 20 54 0a 58 | 09 20 20 20 20 45 31 28 |)) * T.X|. E1(|
|000009f0| 32 29 20 3d 20 28 20 45 | 31 28 31 29 20 2b 20 45 |2) = ( E|1(1) + E|
|00000a00| 31 28 32 29 20 2d 20 45 | 31 28 33 29 20 2b 20 45 |1(2) - E|1(3) + E|
|00000a10| 31 28 34 29 29 20 2a 20 | 54 0a 58 09 20 20 20 20 |1(4)) * |T.X. |
|00000a20| 45 31 28 33 29 20 3d 20 | 28 20 45 31 28 31 29 20 |E1(3) = |( E1(1) |
|00000a30| 2d 20 45 31 28 32 29 20 | 2b 20 45 31 28 33 29 20 |- E1(2) |+ E1(3) |
|00000a40| 2b 20 45 31 28 34 29 29 | 20 2a 20 54 0a 58 09 20 |+ E1(4))| * T.X. |
|00000a50| 20 20 20 45 31 28 34 29 | 20 3d 20 28 2d 45 31 28 | E1(4)| = (-E1(|
|00000a60| 31 29 20 2b 20 45 31 28 | 32 29 20 2b 20 45 31 28 |1) + E1(|2) + E1(|
|00000a70| 33 29 20 2b 20 45 31 28 | 34 29 29 20 2a 20 54 0a |3) + E1(|4)) * T.|
|00000a80| 58 32 38 09 43 4f 4e 54 | 49 4e 55 45 0a 58 32 39 |X28.CONT|INUE.X29|
|00000a90| 20 09 43 4f 4e 54 49 4e | 55 45 0a 58 09 43 41 4c | .CONTIN|UE.X.CAL|
|00000aa0| 4c 20 50 4f 55 54 28 4e | 32 2c 4e 33 2c 4e 32 2c |L POUT(N|2,N3,N2,|
|00000ab0| 45 31 28 31 29 2c 45 31 | 28 32 29 2c 45 31 28 33 |E1(1),E1|(2),E1(3|
|00000ac0| 29 2c 45 31 28 34 29 29 | 0a 58 43 0a 58 09 49 46 |),E1(4))|.XC.X.IF|
|00000ad0| 20 28 4e 33 29 20 33 39 | 2c 20 33 39 2c 20 33 31 | (N3) 39|, 39, 31|
|00000ae0| 0a 58 33 31 09 44 4f 20 | 33 38 20 49 20 3d 20 31 |.X31.DO |38 I = 1|
|00000af0| 2c 20 4e 33 2c 20 31 0a | 58 33 38 09 20 20 20 20 |, N3, 1.|X38. |
|00000b00| 43 41 4c 4c 20 50 41 28 | 45 31 29 0a 58 33 39 09 |CALL PA(|E1).X39.|
|00000b10| 43 4f 4e 54 49 4e 55 45 | 0a 58 09 43 41 4c 4c 20 |CONTINUE|.X.CALL |
|00000b20| 50 4f 55 54 28 4e 33 2c | 4e 32 2c 4e 32 2c 45 31 |POUT(N3,|N2,N2,E1|
|00000b30| 28 31 29 2c 45 31 28 32 | 29 2c 45 31 28 33 29 2c |(1),E1(2|),E1(3),|
|00000b40| 45 31 28 34 29 29 0a 58 | 43 0a 58 09 4a 20 3d 20 |E1(4)).X|C.X.J = |
|00000b50| 31 0a 58 09 49 46 20 28 | 4e 34 29 20 34 39 2c 20 |1.X.IF (|N4) 49, |
|00000b60| 34 39 2c 20 34 31 0a 58 | 34 31 09 44 4f 20 34 38 |49, 41.X|41.DO 48|
|00000b70| 20 49 20 3d 20 31 2c 20 | 4e 34 2c 20 31 0a 58 09 | I = 1, |N4, 1.X.|
|00000b80| 20 20 20 20 49 46 20 28 | 4a 2d 31 29 20 34 33 2c | IF (|J-1) 43,|
|00000b90| 20 34 32 2c 20 34 33 0a | 58 34 32 09 20 20 20 20 | 42, 43.|X42. |
|00000ba0| 4a 20 3d 20 32 0a 58 09 | 20 20 20 20 47 4f 20 54 |J = 2.X.| GO T|
|00000bb0| 4f 20 34 34 0a 58 34 33 | 09 20 20 20 20 4a 20 3d |O 44.X43|. J =|
|00000bc0| 20 33 0a 58 34 34 09 20 | 20 20 20 49 46 20 28 4a | 3.X44. | IF (J|
|00000bd0| 2d 32 29 20 34 36 2c 20 | 34 36 2c 20 34 35 0a 58 |-2) 46, |46, 45.X|
|00000be0| 34 35 09 20 20 20 20 4a | 20 3d 20 30 0a 58 09 20 |45. J| = 0.X. |
|00000bf0| 20 20 20 47 4f 20 54 4f | 20 34 37 0a 58 34 36 09 | GO TO| 47.X46.|
|00000c00| 20 20 20 20 4a 20 3d 20 | 31 0a 58 34 37 09 20 20 | J = |1.X47. |
|00000c10| 20 20 49 46 20 28 4a 2d | 31 29 20 34 31 31 2c 20 | IF (J-|1) 411, |
|00000c20| 34 31 32 2c 20 34 31 32 | 0a 58 34 31 31 09 20 20 |412, 412|.X411. |
|00000c30| 20 20 4a 20 3d 20 31 0a | 58 09 20 20 20 20 47 4f | J = 1.|X. GO|
|00000c40| 20 54 4f 20 34 38 0a 58 | 34 31 32 09 20 20 20 20 | TO 48.X|412. |
|00000c50| 4a 20 3d 20 30 0a 58 34 | 38 09 43 4f 4e 54 49 4e |J = 0.X4|8.CONTIN|
|00000c60| 55 45 0a 58 34 39 09 43 | 4f 4e 54 49 4e 55 45 0a |UE.X49.C|ONTINUE.|
|00000c70| 58 09 43 41 4c 4c 20 50 | 4f 55 54 28 4e 34 2c 4a |X.CALL P|OUT(N4,J|
|00000c80| 2c 4a 2c 58 31 2c 58 32 | 2c 58 33 2c 58 34 29 0a |,J,X1,X2|,X3,X4).|
|00000c90| 58 43 0a 58 09 4a 20 3d | 20 31 0a 58 09 4b 20 3d |XC.X.J =| 1.X.K =|
|00000ca0| 20 32 0a 58 09 4c 20 3d | 20 33 0a 58 09 49 46 20 | 2.X.L =| 3.X.IF |
|00000cb0| 28 4e 36 29 20 36 39 2c | 20 36 39 2c 20 36 31 0a |(N6) 69,| 69, 61.|
|00000cc0| 58 36 31 09 44 4f 20 36 | 38 20 49 20 3d 20 31 2c |X61.DO 6|8 I = 1,|
|00000cd0| 20 4e 36 2c 20 31 0a 58 | 09 20 20 20 20 4a 20 3d | N6, 1.X|. J =|
|00000ce0| 20 4a 20 2a 20 28 4b 2d | 4a 29 20 2a 20 28 4c 2d | J * (K-|J) * (L-|
|00000cf0| 4b 29 0a 58 09 20 20 20 | 20 4b 20 3d 20 4c 20 2a |K).X. | K = L *|
|00000d00| 20 4b 20 2d 20 28 4c 2d | 4a 29 20 2a 20 4b 0a 58 | K - (L-|J) * K.X|
|00000d10| 09 20 20 20 20 4c 20 3d | 20 28 4c 2d 4b 29 20 2a |. L =| (L-K) *|
|00000d20| 20 28 4b 2b 4a 29 0a 58 | 09 20 20 20 20 45 31 28 | (K+J).X|. E1(|
|00000d30| 4c 2d 31 29 20 3d 20 4a | 20 2b 20 4b 20 2b 20 4c |L-1) = J| + K + L|
|00000d40| 0a 58 09 20 20 20 20 45 | 31 28 4b 2d 31 29 20 3d |.X. E|1(K-1) =|
|00000d50| 20 4a 20 2a 20 4b 20 2a | 20 4c 0a 58 36 38 09 43 | J * K *| L.X68.C|
|00000d60| 4f 4e 54 49 4e 55 45 0a | 58 36 39 09 43 4f 4e 54 |ONTINUE.|X69.CONT|
|00000d70| 49 4e 55 45 0a 58 09 43 | 41 4c 4c 20 50 4f 55 54 |INUE.X.C|ALL POUT|
|00000d80| 28 4e 36 2c 4a 2c 4b 2c | 45 31 28 31 29 2c 45 31 |(N6,J,K,|E1(1),E1|
|00000d90| 28 32 29 2c 45 31 28 33 | 29 2c 45 31 28 34 29 29 |(2),E1(3|),E1(4))|
|00000da0| 0a 58 43 0a 58 09 58 20 | 3d 20 30 2e 35 20 44 30 |.XC.X.X |= 0.5 D0|
|00000db0| 0a 58 09 59 20 3d 20 30 | 2e 35 20 44 30 0a 58 09 |.X.Y = 0|.5 D0.X.|
|00000dc0| 49 46 20 28 4e 37 29 20 | 37 39 2c 20 37 39 2c 20 |IF (N7) |79, 79, |
|00000dd0| 37 31 0a 58 37 31 09 44 | 4f 20 37 38 20 49 20 3d |71.X71.D|O 78 I =|
|00000de0| 20 31 2c 20 4e 37 2c 20 | 31 0a 58 09 20 20 20 20 | 1, N7, |1.X. |
|00000df0| 58 20 3d 20 54 20 2a 20 | 44 41 54 41 4e 28 54 32 |X = T * |DATAN(T2|
|00000e00| 2a 44 53 49 4e 28 58 29 | 2a 44 43 4f 53 28 58 29 |*DSIN(X)|*DCOS(X)|
|00000e10| 2f 28 44 43 4f 53 28 58 | 2b 59 29 2b 44 43 4f 53 |/(DCOS(X|+Y)+DCOS|
|00000e20| 28 58 2d 59 29 2d 31 2e | 30 44 30 29 29 0a 58 09 |(X-Y)-1.|0D0)).X.|
|00000e30| 20 20 20 20 59 20 3d 20 | 54 20 2a 20 44 41 54 41 | Y = |T * DATA|
|00000e40| 4e 28 54 32 2a 44 53 49 | 4e 28 59 29 2a 44 43 4f |N(T2*DSI|N(Y)*DCO|
|00000e50| 53 28 59 29 2f 28 44 43 | 4f 53 28 58 2b 59 29 2b |S(Y)/(DC|OS(X+Y)+|
|00000e60| 44 43 4f 53 28 58 2d 59 | 29 2d 31 2e 30 44 30 29 |DCOS(X-Y|)-1.0D0)|
|00000e70| 29 0a 58 37 38 09 43 4f | 4e 54 49 4e 55 45 0a 58 |).X78.CO|NTINUE.X|
|00000e80| 37 39 09 43 4f 4e 54 49 | 4e 55 45 0a 58 09 43 41 |79.CONTI|NUE.X.CA|
|00000e90| 4c 4c 20 50 4f 55 54 28 | 4e 37 2c 4a 2c 4b 2c 58 |LL POUT(|N7,J,K,X|
|00000ea0| 2c 58 2c 59 2c 59 29 0a | 58 43 0a 58 09 58 20 3d |,X,Y,Y).|XC.X.X =|
|00000eb0| 20 31 2e 30 20 44 30 0a | 58 09 59 20 3d 20 31 2e | 1.0 D0.|X.Y = 1.|
|00000ec0| 30 20 44 30 0a 58 09 5a | 20 3d 20 31 2e 30 20 44 |0 D0.X.Z| = 1.0 D|
|00000ed0| 30 0a 58 09 49 46 20 28 | 4e 38 29 20 38 39 2c 20 |0.X.IF (|N8) 89, |
|00000ee0| 38 39 2c 20 38 31 0a 58 | 38 31 09 44 4f 20 38 38 |89, 81.X|81.DO 88|
|00000ef0| 20 49 20 3d 20 31 2c 20 | 4e 38 2c 20 31 0a 58 38 | I = 1, |N8, 1.X8|
|00000f00| 38 09 20 20 20 20 43 41 | 4c 4c 20 50 33 28 58 2c |8. CA|LL P3(X,|
|00000f10| 59 2c 5a 29 0a 58 38 39 | 09 43 4f 4e 54 49 4e 55 |Y,Z).X89|.CONTINU|
|00000f20| 45 0a 58 09 43 41 4c 4c | 20 50 4f 55 54 28 4e 38 |E.X.CALL| POUT(N8|
|00000f30| 2c 4a 2c 4b 2c 58 2c 59 | 2c 5a 2c 5a 29 0a 58 43 |,J,K,X,Y|,Z,Z).XC|
|00000f40| 0a 58 09 4a 20 3d 20 31 | 0a 58 09 4b 20 3d 20 32 |.X.J = 1|.X.K = 2|
|00000f50| 0a 58 09 4c 20 3d 20 33 | 0a 58 09 45 31 28 31 29 |.X.L = 3|.X.E1(1)|
|00000f60| 20 3d 20 31 2e 30 20 44 | 30 0a 58 09 45 31 28 32 | = 1.0 D|0.X.E1(2|
|00000f70| 29 20 3d 20 32 2e 30 20 | 44 30 0a 58 09 45 31 28 |) = 2.0 |D0.X.E1(|
|00000f80| 33 29 20 3d 20 33 2e 30 | 20 44 30 0a 58 09 49 46 |3) = 3.0| D0.X.IF|
|00000f90| 20 28 4e 39 29 20 39 39 | 2c 20 39 39 2c 20 39 31 | (N9) 99|, 99, 91|
|00000fa0| 0a 58 39 31 09 44 4f 20 | 39 38 20 49 20 3d 20 31 |.X91.DO |98 I = 1|
|00000fb0| 2c 20 4e 39 2c 20 31 0a | 58 39 38 09 20 20 20 20 |, N9, 1.|X98. |
|00000fc0| 43 41 4c 4c 20 50 30 0a | 58 39 39 09 43 4f 4e 54 |CALL P0.|X99.CONT|
|00000fd0| 49 4e 55 45 0a 58 09 43 | 41 4c 4c 20 50 4f 55 54 |INUE.X.C|ALL POUT|
|00000fe0| 28 4e 39 2c 4a 2c 4b 2c | 45 31 28 31 29 2c 45 31 |(N9,J,K,|E1(1),E1|
|00000ff0| 28 32 29 2c 45 31 28 33 | 29 2c 45 31 28 34 29 29 |(2),E1(3|),E1(4))|
|00001000| 0a 58 43 0a 58 09 4a 20 | 3d 20 32 0a 58 09 4b 20 |.XC.X.J |= 2.X.K |
|00001010| 3d 20 33 0a 58 09 49 46 | 20 28 4e 31 30 29 20 31 |= 3.X.IF| (N10) 1|
|00001020| 30 39 2c 20 31 30 39 2c | 20 31 30 31 0a 58 31 30 |09, 109,| 101.X10|
|00001030| 31 09 44 4f 20 31 30 38 | 20 49 20 3d 20 31 2c 20 |1.DO 108| I = 1, |
|00001040| 4e 31 30 2c 20 31 0a 58 | 09 20 20 20 20 4a 20 3d |N10, 1.X|. J =|
|00001050| 20 4a 20 2b 20 4b 0a 58 | 09 20 20 20 20 4b 20 3d | J + K.X|. K =|
|00001060| 20 4a 20 2b 20 4b 0a 58 | 09 20 20 20 20 4a 20 3d | J + K.X|. J =|
|00001070| 20 4a 20 2d 20 4b 0a 58 | 09 20 20 20 20 4b 20 3d | J - K.X|. K =|
|00001080| 20 4b 20 2d 20 4a 20 2d | 20 4a 0a 58 31 30 38 09 | K - J -| J.X108.|
|00001090| 43 4f 4e 54 49 4e 55 45 | 0a 58 31 30 39 09 43 4f |CONTINUE|.X109.CO|
|000010a0| 4e 54 49 4e 55 45 0a 58 | 09 43 41 4c 4c 20 50 4f |NTINUE.X|.CALL PO|
|000010b0| 55 54 28 4e 31 30 2c 4a | 2c 4b 2c 58 31 2c 58 32 |UT(N10,J|,K,X1,X2|
|000010c0| 2c 58 33 2c 58 34 29 0a | 58 43 0a 58 09 58 20 3d |,X3,X4).|XC.X.X =|
|000010d0| 20 30 2e 37 35 20 44 30 | 0a 58 09 49 46 20 28 4e | 0.75 D0|.X.IF (N|
|000010e0| 31 31 29 20 31 31 39 2c | 20 31 31 39 2c 20 31 31 |11) 119,| 119, 11|
|000010f0| 31 0a 58 31 31 31 09 44 | 4f 20 31 31 38 20 49 20 |1.X111.D|O 118 I |
|00001100| 3d 20 31 2c 20 4e 31 31 | 2c 20 31 0a 58 31 31 38 |= 1, N11|, 1.X118|
|00001110| 09 20 20 20 20 58 20 3d | 20 44 53 51 52 54 28 44 |. X =| DSQRT(D|
|00001120| 45 58 50 28 44 4c 4f 47 | 28 58 29 2f 54 31 29 29 |EXP(DLOG|(X)/T1))|
|00001130| 0a 58 31 31 39 09 43 4f | 4e 54 49 4e 55 45 0a 58 |.X119.CO|NTINUE.X|
|00001140| 09 43 41 4c 4c 20 50 4f | 55 54 28 4e 31 31 2c 4a |.CALL PO|UT(N11,J|
|00001150| 2c 4b 2c 58 2c 58 2c 58 | 2c 58 29 0a 58 43 0a 58 |,K,X,X,X|,X).XC.X|
|00001160| 09 20 20 20 20 46 53 45 | 43 20 3d 20 53 45 43 4f |. FSE|C = SECO|
|00001170| 4e 44 28 29 0a 58 09 20 | 20 20 20 43 50 55 28 49 |ND().X. | CPU(I|
|00001180| 50 41 53 53 29 20 3d 20 | 46 53 45 43 20 2d 20 53 |PASS) = |FSEC - S|
|00001190| 53 45 43 0a 58 09 20 20 | 20 20 50 52 49 4e 54 20 |SEC.X. | PRINT |
|000011a0| 32 30 30 30 2c 20 49 50 | 41 53 53 2c 20 43 50 55 |2000, IP|ASS, CPU|
|000011b0| 28 49 50 41 53 53 29 0a | 58 32 30 30 30 09 20 20 |(IPASS).|X2000. |
|000011c0| 20 20 46 4f 52 4d 41 54 | 20 28 2f 20 27 20 50 41 | FORMAT| (/ ' PA|
|000011d0| 53 53 27 2c 49 32 2c 27 | 3a 27 2c 46 31 30 2e 34 |SS',I2,'|:',F10.4|
|000011e0| 2c 27 20 53 45 43 20 43 | 50 55 20 54 49 4d 45 27 |,' SEC C|PU TIME'|
|000011f0| 2f 2f 29 0a 58 09 20 20 | 20 20 49 50 41 53 53 20 |//).X. | IPASS |
|00001200| 3d 20 49 50 41 53 53 20 | 2b 20 31 0a 58 09 20 20 |= IPASS |+ 1.X. |
|00001210| 20 20 49 46 20 28 49 50 | 41 53 53 2e 4c 45 2e 32 | IF (IP|ASS.LE.2|
|00001220| 29 20 47 4f 20 54 4f 20 | 35 0a 58 43 0a 58 09 20 |) GO TO |5.XC.X. |
|00001230| 20 20 20 57 49 50 53 20 | 3d 20 31 30 30 30 2e 30 | WIPS |= 1000.0|
|00001240| 20 2f 20 28 43 50 55 28 | 32 29 20 2d 20 43 50 55 | / (CPU(|2) - CPU|
|00001250| 28 31 29 29 0a 58 09 20 | 20 20 20 50 52 49 4e 54 |(1)).X. | PRINT|
|00001260| 20 33 30 30 30 2c 20 57 | 49 50 53 0a 58 33 30 30 | 3000, W|IPS.X300|
|00001270| 30 09 20 20 20 20 46 4f | 52 4d 41 54 20 28 2f 2f |0. FO|RMAT (//|
|00001280| 20 27 20 57 48 45 54 53 | 54 4f 4e 45 20 49 4e 53 | ' WHETS|TONE INS|
|00001290| 54 52 55 43 54 49 4f 4e | 53 20 50 45 52 20 53 45 |TRUCTION|S PER SE|
|000012a0| 43 4f 4e 44 3a 27 2c 20 | 46 37 2e 31 29 0a 58 43 |COND:', |F7.1).XC|
|000012b0| 0a 58 09 53 54 4f 50 20 | 27 45 4e 44 20 44 4f 55 |.X.STOP |'END DOU|
|000012c0| 42 4c 45 2d 50 52 45 43 | 49 53 49 4f 4e 20 54 45 |BLE-PREC|ISION TE|
|000012d0| 53 54 27 0a 58 09 45 4e | 44 0a 58 43 0a 58 09 53 |ST'.X.EN|D.XC.X.S|
|000012e0| 55 42 52 4f 55 54 49 4e | 45 20 50 41 28 45 29 0a |UBROUTIN|E PA(E).|
|000012f0| 58 09 44 4f 55 42 4c 45 | 20 50 52 45 43 49 53 49 |X.DOUBLE| PRECISI|
|00001300| 4f 4e 20 54 2c 20 54 31 | 2c 20 54 32 2c 20 45 0a |ON T, T1|, T2, E.|
|00001310| 58 09 43 4f 4d 4d 4f 4e | 20 54 2c 20 54 31 2c 20 |X.COMMON| T, T1, |
|00001320| 54 32 0a 58 09 44 49 4d | 45 4e 53 49 4f 4e 20 45 |T2.X.DIM|ENSION E|
|00001330| 28 34 29 0a 58 09 4a 20 | 3d 20 30 0a 58 31 09 45 |(4).X.J |= 0.X1.E|
|00001340| 28 31 29 20 3d 20 28 20 | 45 28 31 29 20 2b 20 45 |(1) = ( |E(1) + E|
|00001350| 28 32 29 20 2b 20 45 28 | 33 29 20 2d 20 45 28 34 |(2) + E(|3) - E(4|
|00001360| 29 29 20 2a 20 54 0a 58 | 09 45 28 32 29 20 3d 20 |)) * T.X|.E(2) = |
|00001370| 28 20 45 28 31 29 20 2b | 20 45 28 32 29 20 2d 20 |( E(1) +| E(2) - |
|00001380| 45 28 33 29 20 2b 20 45 | 28 34 29 29 20 2a 20 54 |E(3) + E|(4)) * T|
|00001390| 0a 58 09 45 28 33 29 20 | 3d 20 28 20 45 28 31 29 |.X.E(3) |= ( E(1)|
|000013a0| 20 2d 20 45 28 32 29 20 | 2b 20 45 28 33 29 20 2b | - E(2) |+ E(3) +|
|000013b0| 20 45 28 34 29 29 20 2a | 20 54 0a 58 09 45 28 34 | E(4)) *| T.X.E(4|
|000013c0| 29 20 3d 20 28 2d 45 28 | 31 29 20 2b 20 45 28 32 |) = (-E(|1) + E(2|
|000013d0| 29 20 2b 20 45 28 33 29 | 20 2b 20 45 28 34 29 29 |) + E(3)| + E(4))|
|000013e0| 20 2f 20 54 32 0a 58 09 | 4a 20 3d 20 4a 20 2b 20 | / T2.X.|J = J + |
|000013f0| 31 0a 58 09 49 46 20 28 | 4a 2d 36 29 20 31 2c 20 |1.X.IF (|J-6) 1, |
|00001400| 32 2c 20 32 0a 58 32 09 | 43 4f 4e 54 49 4e 55 45 |2, 2.X2.|CONTINUE|
|00001410| 0a 58 09 52 45 54 55 52 | 4e 0a 58 09 45 4e 44 0a |.X.RETUR|N.X.END.|
|00001420| 58 43 0a 58 09 53 55 42 | 52 4f 55 54 49 4e 45 20 |XC.X.SUB|ROUTINE |
|00001430| 50 30 0a 58 09 44 4f 55 | 42 4c 45 20 50 52 45 43 |P0.X.DOU|BLE PREC|
|00001440| 49 53 49 4f 4e 20 54 2c | 20 54 31 2c 20 54 32 2c |ISION T,| T1, T2,|
|00001450| 20 45 31 0a 58 09 43 4f | 4d 4d 4f 4e 20 54 2c 20 | E1.X.CO|MMON T, |
|00001460| 54 31 2c 20 54 32 2c 20 | 45 31 28 34 29 2c 20 4a |T1, T2, |E1(4), J|
|00001470| 2c 20 4b 2c 20 4c 0a 58 | 09 45 31 28 4a 29 20 3d |, K, L.X|.E1(J) =|
|00001480| 20 45 31 28 4b 29 0a 58 | 09 45 31 28 4b 29 20 3d | E1(K).X|.E1(K) =|
|00001490| 20 45 31 28 4c 29 0a 58 | 09 45 31 28 4c 29 20 3d | E1(L).X|.E1(L) =|
|000014a0| 20 45 31 28 4a 29 0a 58 | 09 52 45 54 55 52 4e 0a | E1(J).X|.RETURN.|
|000014b0| 58 09 45 4e 44 0a 58 43 | 0a 58 09 53 55 42 52 4f |X.END.XC|.X.SUBRO|
|000014c0| 55 54 49 4e 45 20 50 33 | 28 58 2c 59 2c 5a 29 0a |UTINE P3|(X,Y,Z).|
|000014d0| 58 09 44 4f 55 42 4c 45 | 20 50 52 45 43 49 53 49 |X.DOUBLE| PRECISI|
|000014e0| 4f 4e 20 54 2c 20 54 31 | 2c 20 54 32 2c 20 58 31 |ON T, T1|, T2, X1|
|000014f0| 2c 20 59 31 2c 20 58 2c | 20 59 2c 20 5a 0a 58 09 |, Y1, X,| Y, Z.X.|
|00001500| 43 4f 4d 4d 4f 4e 20 54 | 2c 20 54 31 2c 20 54 32 |COMMON T|, T1, T2|
|00001510| 0a 58 09 58 31 20 3d 20 | 58 0a 58 09 59 31 20 3d |.X.X1 = |X.X.Y1 =|
|00001520| 20 59 0a 58 09 58 31 20 | 3d 20 54 20 2a 20 28 58 | Y.X.X1 |= T * (X|
|00001530| 31 20 2b 20 59 31 29 0a | 58 09 59 31 20 3d 20 54 |1 + Y1).|X.Y1 = T|
|00001540| 20 2a 20 28 58 31 20 2b | 20 59 31 29 0a 58 09 5a | * (X1 +| Y1).X.Z|
|00001550| 20 20 3d 20 28 58 31 20 | 2b 20 59 31 29 20 2f 20 | = (X1 |+ Y1) / |
|00001560| 54 32 0a 58 09 52 45 54 | 55 52 4e 0a 58 09 45 4e |T2.X.RET|URN.X.EN|
|00001570| 44 0a 58 43 0a 58 09 53 | 55 42 52 4f 55 54 49 4e |D.XC.X.S|UBROUTIN|
|00001580| 45 20 50 4f 55 54 28 4e | 2c 4a 2c 4b 2c 58 31 2c |E POUT(N|,J,K,X1,|
|00001590| 58 32 2c 58 33 2c 58 34 | 29 0a 58 09 44 4f 55 42 |X2,X3,X4|).X.DOUB|
|000015a0| 4c 45 20 50 52 45 43 49 | 53 49 4f 4e 20 58 31 2c |LE PRECI|SION X1,|
|000015b0| 20 58 32 2c 20 58 33 2c | 20 58 34 0a 58 09 50 52 | X2, X3,| X4.X.PR|
|000015c0| 49 4e 54 20 33 30 30 30 | 2c 20 4e 2c 20 4a 2c 20 |INT 3000|, N, J, |
|000015d0| 4b 2c 20 58 31 2c 20 58 | 32 2c 20 58 33 2c 20 58 |K, X1, X|2, X3, X|
|000015e0| 34 0a 58 33 30 30 30 09 | 46 4f 52 4d 41 54 28 31 |4.X3000.|FORMAT(1|
|000015f0| 48 20 2c 20 33 49 37 2c | 20 34 45 31 32 2e 34 29 |H , 3I7,| 4E12.4)|
|00001600| 0a 58 09 52 45 54 55 52 | 4e 0a 58 09 45 4e 44 0a |.X.RETUR|N.X.END.|
|00001610| 45 4e 44 5f 4f 46 5f 46 | 77 68 65 74 64 2e 66 0a |END_OF_F|whetd.f.|
|00001620| 69 66 20 74 65 73 74 20 | 34 36 34 35 20 2d 6e 65 |if test |4645 -ne|
|00001630| 20 60 77 63 20 2d 63 20 | 3c 46 77 68 65 74 64 2e | `wc -c |<Fwhetd.|
|00001640| 66 60 3b 20 74 68 65 6e | 0a 20 20 20 20 65 63 68 |f`; then|. ech|
|00001650| 6f 20 73 68 61 72 3a 20 | 5c 22 46 77 68 65 74 64 |o shar: |\"Fwhetd|
|00001660| 2e 66 5c 22 20 75 6e 70 | 61 63 6b 65 64 20 77 69 |.f\" unp|acked wi|
|00001670| 74 68 20 77 72 6f 6e 67 | 20 73 69 7a 65 21 0a 66 |th wrong| size!.f|
|00001680| 69 0a 23 20 65 6e 64 20 | 6f 66 20 6f 76 65 72 77 |i.# end |of overw|
|00001690| 72 69 74 69 6e 67 20 63 | 68 65 63 6b 0a 66 69 0a |riting c|heck.fi.|
|000016a0| 69 66 20 74 65 73 74 20 | 2d 66 20 46 77 68 65 74 |if test |-f Fwhet|
|000016b0| 73 2e 66 20 2d 61 20 22 | 24 7b 31 7d 22 20 21 3d |s.f -a "|${1}" !=|
|000016c0| 20 22 2d 63 22 20 3b 20 | 74 68 65 6e 20 0a 20 20 | "-c" ; |then . |
|000016d0| 65 63 68 6f 20 73 68 61 | 72 3a 20 57 69 6c 6c 20 |echo sha|r: Will |
|000016e0| 6e 6f 74 20 6f 76 65 72 | 2d 77 72 69 74 65 20 65 |not over|-write e|
|000016f0| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 5c 22 46 |xisting |file \"F|
|00001700| 77 68 65 74 73 2e 66 5c | 22 0a 65 6c 73 65 0a 65 |whets.f\|".else.e|
|00001710| 63 68 6f 20 73 68 61 72 | 3a 20 45 78 74 72 61 63 |cho shar|: Extrac|
|00001720| 74 69 6e 67 20 5c 22 46 | 77 68 65 74 73 2e 66 5c |ting \"F|whets.f\|
|00001730| 22 20 5c 28 34 33 39 38 | 20 63 68 61 72 61 63 74 |" \(4398| charact|
|00001740| 65 72 73 5c 29 0a 73 65 | 64 20 22 73 2f 5e 58 2f |ers\).se|d "s/^X/|
|00001750| 2f 22 20 3e 46 77 68 65 | 74 73 2e 66 20 3c 3c 27 |/" >Fwhe|ts.f <<'|
|00001760| 45 4e 44 5f 4f 46 5f 46 | 77 68 65 74 73 2e 66 27 |END_OF_F|whets.f'|
|00001770| 0a 58 43 20 54 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |.XC The |followin|
|00001780| 67 20 6c 69 6e 65 20 69 | 73 20 66 6f 72 20 74 68 |g line i|s for th|
|00001790| 65 20 4c 61 77 72 65 6e | 63 65 20 4c 69 76 65 72 |e Lawren|ce Liver|
|000017a0| 6d 6f 72 65 20 4c 61 62 | 73 20 46 6f 72 74 72 61 |more Lab|s Fortra|
|000017b0| 6e 20 43 6f 6d 70 69 6c | 65 72 0a 58 43 2a 24 2a |n Compil|er.XC*$*|
|000017c0| 4f 50 54 49 4f 4e 20 46 | 52 45 45 20 46 4f 52 4d |OPTION F|REE FORM|
|000017d0| 41 54 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |AT | |
|000017e0| 0a 58 43 0a 58 43 09 57 | 48 45 54 53 54 4f 4e 45 |.XC.XC.W|HETSTONE|
|000017f0| 20 42 45 4e 43 48 4d 41 | 52 4b 0a 58 43 0a 58 43 | BENCHMA|RK.XC.XC|
|00001800| 09 53 49 4e 47 4c 45 2d | 50 52 45 43 49 53 49 4f |.SINGLE-|PRECISIO|
|00001810| 4e 20 56 45 52 53 49 4f | 4e 0a 58 43 0a 58 43 09 |N VERSIO|N.XC.XC.|
|00001820| 54 68 69 73 20 70 72 6f | 67 72 61 6d 20 69 73 20 |This pro|gram is |
|00001830| 74 68 65 20 72 65 73 75 | 6c 74 20 6f 66 20 65 78 |the resu|lt of ex|
|00001840| 74 65 6e 73 69 76 65 20 | 72 65 73 65 61 72 63 68 |tensive |research|
|00001850| 20 74 6f 0a 58 43 09 64 | 65 74 65 72 6d 69 6e 65 | to.XC.d|etermine|
|00001860| 20 74 68 65 20 69 6e 73 | 74 72 75 63 74 69 6f 6e | the ins|truction|
|00001870| 20 6d 69 78 20 6f 66 20 | 61 20 74 79 70 69 63 61 | mix of |a typica|
|00001880| 6c 20 46 6f 72 74 72 61 | 6e 0a 58 43 09 70 72 6f |l Fortra|n.XC.pro|
|00001890| 67 72 61 6d 2e 20 20 54 | 68 65 20 72 65 73 75 6c |gram. T|he resul|
|000018a0| 74 73 20 6f 66 20 74 68 | 69 73 20 70 72 6f 67 72 |ts of th|is progr|
|000018b0| 61 6d 20 6f 6e 20 64 69 | 66 66 65 72 65 6e 74 0a |am on di|fferent.|
|000018c0| 58 43 09 6d 61 63 68 69 | 6e 65 73 20 73 68 6f 75 |XC.machi|nes shou|
|000018d0| 6c 64 20 67 69 76 65 20 | 61 20 67 6f 6f 64 20 69 |ld give |a good i|
|000018e0| 6e 64 69 63 61 74 69 6f | 6e 20 6f 66 20 77 68 69 |ndicatio|n of whi|
|000018f0| 63 68 0a 58 43 09 6d 61 | 63 68 69 6e 65 20 70 65 |ch.XC.ma|chine pe|
|00001900| 72 66 6f 72 6d 73 20 62 | 65 74 74 65 72 20 75 6e |rforms b|etter un|
|00001910| 64 65 72 20 61 20 74 79 | 70 69 63 61 6c 20 6c 6f |der a ty|pical lo|
|00001920| 61 64 20 6f 66 0a 58 43 | 09 46 6f 72 74 72 61 6e |ad of.XC|.Fortran|
|00001930| 20 70 72 6f 67 72 61 6d | 73 2e 20 20 54 68 65 20 | program|s. The |
|00001940| 73 74 61 74 65 6d 65 6e | 74 73 20 61 72 65 20 70 |statemen|ts are p|
|00001950| 75 72 70 6f 73 65 6c 79 | 0a 58 43 09 61 72 72 61 |urposely|.XC.arra|
|00001960| 6e 67 65 64 20 74 6f 20 | 64 65 66 65 61 74 20 6f |nged to |defeat o|
|00001970| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 62 79 20 74 |ptimizat|ion by t|
|00001980| 68 65 20 63 6f 6d 70 69 | 6c 65 72 2e 0a 58 43 0a |he compi|ler..XC.|
|00001990| 58 09 44 49 4d 45 4e 53 | 49 4f 4e 20 43 50 55 28 |X.DIMENS|ION CPU(|
|000019a0| 32 29 0a 58 09 43 4f 4d | 4d 4f 4e 20 54 2c 54 31 |2).X.COM|MON T,T1|
|000019b0| 2c 54 32 2c 45 31 28 34 | 29 2c 4a 2c 4b 2c 4c 0a |,T2,E1(4|),J,K,L.|
|000019c0| 58 43 0a 58 09 20 20 20 | 20 20 54 20 20 3d 20 30 |XC.X. | T = 0|
|000019d0| 2e 34 39 39 39 37 35 09 | 0a 58 09 20 20 20 20 20 |.499975.|.X. |
|000019e0| 54 31 20 3d 20 30 2e 35 | 30 30 32 35 09 0a 58 09 |T1 = 0.5|0025..X.|
|000019f0| 20 20 20 20 20 54 32 20 | 3d 20 32 2e 30 09 0a 58 | T2 |= 2.0..X|
|00001a00| 09 20 20 20 20 20 50 52 | 49 4e 54 20 39 39 39 0a |. PR|INT 999.|
|00001a10| 58 39 39 39 09 20 20 20 | 20 20 46 4f 52 4d 41 54 |X999. | FORMAT|
|00001a20| 20 28 2f 2f 20 27 20 57 | 48 45 54 53 54 4f 4e 45 | (// ' W|HETSTONE|
|00001a30| 20 42 45 4e 43 48 4d 41 | 52 4b 20 28 53 49 4e 47 | BENCHMA|RK (SING|
|00001a40| 4c 45 20 50 52 45 43 49 | 53 49 4f 4e 29 27 29 0a |LE PRECI|SION)').|
|00001a50| 58 31 20 20 20 20 20 20 | 20 20 20 20 20 20 50 52 |X1 | PR|
|00001a60| 49 4e 54 20 31 30 30 30 | 0a 58 31 30 30 30 09 20 |INT 1000|.X1000. |
|00001a70| 20 20 20 20 46 4f 52 4d | 41 54 20 28 2f 2f 20 27 | FORM|AT (// '|
|00001a80| 20 4e 55 4d 42 45 52 20 | 4f 46 20 49 54 45 52 41 | NUMBER |OF ITERA|
|00001a90| 54 49 4f 4e 53 3f 20 27 | 29 0a 58 09 20 20 20 20 |TIONS? '|).X. |
|00001aa0| 20 52 45 41 44 20 31 30 | 30 31 2c 20 49 54 45 52 | READ 10|01, ITER|
|00001ab0| 0a 58 31 30 30 31 09 20 | 20 20 20 20 46 4f 52 4d |.X1001. | FORM|
|00001ac0| 41 54 20 28 49 38 29 0a | 58 09 20 20 20 20 20 49 |AT (I8).|X. I|
|00001ad0| 50 41 53 53 20 3d 20 31 | 0a 58 43 0a 58 35 09 20 |PASS = 1|.XC.X5. |
|00001ae0| 20 20 20 20 49 46 20 28 | 49 50 41 53 53 2e 45 51 | IF (|IPASS.EQ|
|00001af0| 2e 32 29 20 49 54 45 52 | 20 3d 20 49 54 45 52 20 |.2) ITER| = ITER |
|00001b00| 2b 20 31 30 0a 58 09 20 | 20 20 20 20 49 46 20 28 |+ 10.X. | IF (|
|00001b10| 49 50 41 53 53 2e 45 51 | 2e 32 29 20 50 52 49 4e |IPASS.EQ|.2) PRIN|
|00001b20| 54 20 31 30 30 32 2c 20 | 49 54 45 52 0a 58 31 30 |T 1002, |ITER.X10|
|00001b30| 30 32 09 20 20 20 20 20 | 46 4f 52 4d 41 54 20 28 |02. |FORMAT (|
|00001b40| 27 20 50 41 53 53 20 32 | 3a 27 2c 20 49 31 30 2c |' PASS 2|:', I10,|
|00001b50| 20 27 20 49 54 45 52 41 | 54 49 4f 4e 53 27 2f 29 | ' ITERA|TIONS'/)|
|00001b60| 0a 58 09 20 20 20 20 20 | 49 20 3d 20 49 54 45 52 |.X. |I = ITER|
|00001b70| 0a 58 31 30 09 20 20 20 | 20 20 53 53 45 43 20 3d |.X10. | SSEC =|
|00001b80| 20 53 45 43 4f 4e 44 28 | 29 0a 58 43 0a 58 09 4e | SECOND(|).XC.X.N|
|00001b90| 31 20 20 3d 20 30 0a 58 | 09 4e 32 20 20 3d 20 31 |1 = 0.X|.N2 = 1|
|00001ba0| 32 20 2a 20 49 0a 58 09 | 4e 33 20 20 3d 20 31 34 |2 * I.X.|N3 = 14|
|00001bb0| 20 2a 20 49 0a 58 09 4e | 34 20 20 3d 20 33 34 35 | * I.X.N|4 = 345|
|00001bc0| 20 2a 20 49 0a 58 09 4e | 35 20 20 3d 20 30 0a 58 | * I.X.N|5 = 0.X|
|00001bd0| 09 4e 36 20 20 3d 20 32 | 31 30 20 2a 20 49 0a 58 |.N6 = 2|10 * I.X|
|00001be0| 09 4e 37 20 20 3d 20 33 | 32 20 2a 20 49 0a 58 09 |.N7 = 3|2 * I.X.|
|00001bf0| 4e 38 20 20 3d 20 38 39 | 39 20 2a 20 49 0a 58 09 |N8 = 89|9 * I.X.|
|00001c00| 4e 39 20 20 3d 20 36 31 | 36 20 2a 20 49 0a 58 09 |N9 = 61|6 * I.X.|
|00001c10| 4e 31 30 20 3d 20 30 0a | 58 09 4e 31 31 20 3d 20 |N10 = 0.|X.N11 = |
|00001c20| 39 33 20 2a 20 49 0a 58 | 09 4e 31 32 20 3d 20 30 |93 * I.X|.N12 = 0|
|00001c30| 0a 58 43 0a 58 09 58 31 | 20 20 3d 20 20 31 2e 30 |.XC.X.X1| = 1.0|
|00001c40| 0a 58 09 58 32 20 20 3d | 20 2d 31 2e 30 0a 58 09 |.X.X2 =| -1.0.X.|
|00001c50| 58 33 20 20 3d 20 2d 31 | 2e 30 0a 58 09 58 34 20 |X3 = -1|.0.X.X4 |
|00001c60| 20 3d 20 2d 31 2e 30 0a | 58 43 0a 58 09 49 46 20 | = -1.0.|XC.X.IF |
|00001c70| 28 4e 31 29 20 31 39 2c | 20 31 39 2c 20 31 31 0a |(N1) 19,| 19, 11.|
|00001c80| 58 31 31 09 44 4f 20 31 | 38 20 49 20 3d 20 31 2c |X11.DO 1|8 I = 1,|
|00001c90| 20 4e 31 2c 20 31 0a 58 | 09 20 20 20 20 58 31 20 | N1, 1.X|. X1 |
|00001ca0| 3d 20 28 58 31 20 2b 20 | 58 32 20 2b 20 58 33 20 |= (X1 + |X2 + X3 |
|00001cb0| 2d 20 58 34 29 20 2a 20 | 54 0a 58 09 20 20 20 20 |- X4) * |T.X. |
|00001cc0| 58 32 20 3d 20 28 58 31 | 20 2b 20 58 32 20 2d 20 |X2 = (X1| + X2 - |
|00001cd0| 58 33 20 2b 20 58 34 29 | 20 2a 20 54 0a 58 09 20 |X3 + X4)| * T.X. |
|00001ce0| 20 20 20 58 34 20 3d 20 | 28 2d 58 31 2b 20 58 32 | X4 = |(-X1+ X2|
|00001cf0| 20 2b 20 58 33 20 2b 20 | 58 34 29 20 2a 20 54 0a | + X3 + |X4) * T.|
|00001d00| 58 09 20 20 20 20 58 33 | 20 3d 20 28 58 31 20 2d |X. X3| = (X1 -|
|00001d10| 20 58 32 20 2b 20 58 33 | 20 2b 20 58 34 29 20 2a | X2 + X3| + X4) *|
|00001d20| 20 54 0a 58 31 38 09 43 | 4f 4e 54 49 4e 55 45 0a | T.X18.C|ONTINUE.|
|00001d30| 58 31 39 09 43 4f 4e 54 | 49 4e 55 45 0a 58 09 43 |X19.CONT|INUE.X.C|
|00001d40| 41 4c 4c 20 50 4f 55 54 | 28 4e 31 2c 4e 31 2c 4e |ALL POUT|(N1,N1,N|
|00001d50| 31 2c 58 31 2c 58 32 2c | 58 33 2c 58 34 29 0a 58 |1,X1,X2,|X3,X4).X|
|00001d60| 43 0a 58 09 45 31 28 31 | 29 20 3d 20 20 31 2e 30 |C.X.E1(1|) = 1.0|
|00001d70| 20 0a 58 09 45 31 28 32 | 29 20 3d 20 2d 31 2e 30 | .X.E1(2|) = -1.0|
|00001d80| 20 0a 58 09 45 31 28 33 | 29 20 3d 20 2d 31 2e 30 | .X.E1(3|) = -1.0|
|00001d90| 20 0a 58 09 45 31 28 34 | 29 20 3d 20 2d 31 2e 30 | .X.E1(4|) = -1.0|
|00001da0| 20 0a 58 09 49 46 20 28 | 4e 32 29 20 32 39 2c 20 | .X.IF (|N2) 29, |
|00001db0| 32 39 2c 20 32 31 0a 58 | 32 31 09 44 4f 20 32 38 |29, 21.X|21.DO 28|
|00001dc0| 20 49 20 3d 20 31 2c 20 | 4e 32 2c 20 31 0a 58 09 | I = 1, |N2, 1.X.|
|00001dd0| 20 20 20 20 45 31 28 31 | 29 20 3d 20 28 20 45 31 | E1(1|) = ( E1|
|00001de0| 28 31 29 20 2b 20 45 31 | 28 32 29 20 2b 20 45 31 |(1) + E1|(2) + E1|
|00001df0| 28 33 29 20 2d 20 45 31 | 28 34 29 29 20 2a 20 54 |(3) - E1|(4)) * T|
|00001e00| 0a 58 09 20 20 20 20 45 | 31 28 32 29 20 3d 20 28 |.X. E|1(2) = (|
|00001e10| 20 45 31 28 31 29 20 2b | 20 45 31 28 32 29 20 2d | E1(1) +| E1(2) -|
|00001e20| 20 45 31 28 33 29 20 2b | 20 45 31 28 34 29 29 20 | E1(3) +| E1(4)) |
|00001e30| 2a 20 54 0a 58 09 20 20 | 20 20 45 31 28 33 29 20 |* T.X. | E1(3) |
|00001e40| 3d 20 28 20 45 31 28 31 | 29 20 2d 20 45 31 28 32 |= ( E1(1|) - E1(2|
|00001e50| 29 20 2b 20 45 31 28 33 | 29 20 2b 20 45 31 28 34 |) + E1(3|) + E1(4|
|00001e60| 29 29 20 2a 20 54 0a 58 | 09 20 20 20 20 45 31 28 |)) * T.X|. E1(|
|00001e70| 34 29 20 3d 20 28 2d 45 | 31 28 31 29 20 2b 20 45 |4) = (-E|1(1) + E|
|00001e80| 31 28 32 29 20 2b 20 45 | 31 28 33 29 20 2b 20 45 |1(2) + E|1(3) + E|
|00001e90| 31 28 34 29 29 20 2a 20 | 54 0a 58 32 38 09 43 4f |1(4)) * |T.X28.CO|
|00001ea0| 4e 54 49 4e 55 45 0a 58 | 32 39 20 09 43 4f 4e 54 |NTINUE.X|29 .CONT|
|00001eb0| 49 4e 55 45 0a 58 09 43 | 41 4c 4c 20 50 4f 55 54 |INUE.X.C|ALL POUT|
|00001ec0| 28 4e 32 2c 4e 33 2c 4e | 32 2c 45 31 28 31 29 2c |(N2,N3,N|2,E1(1),|
|00001ed0| 45 31 28 32 29 2c 45 31 | 28 33 29 2c 45 31 28 34 |E1(2),E1|(3),E1(4|
|00001ee0| 29 29 0a 58 43 0a 58 09 | 49 46 20 28 4e 33 29 20 |)).XC.X.|IF (N3) |
|00001ef0| 33 39 2c 20 33 39 2c 20 | 33 31 0a 58 33 31 09 44 |39, 39, |31.X31.D|
|00001f00| 4f 20 33 38 20 49 20 3d | 20 31 2c 20 4e 33 2c 20 |O 38 I =| 1, N3, |
|00001f10| 31 0a 58 33 38 09 20 20 | 20 20 43 41 4c 4c 20 50 |1.X38. | CALL P|
|00001f20| 41 28 45 31 29 0a 58 33 | 39 09 43 4f 4e 54 49 4e |A(E1).X3|9.CONTIN|
|00001f30| 55 45 0a 58 09 43 41 4c | 4c 20 50 4f 55 54 28 4e |UE.X.CAL|L POUT(N|
|00001f40| 33 2c 4e 32 2c 4e 32 2c | 45 31 28 31 29 2c 45 31 |3,N2,N2,|E1(1),E1|
|00001f50| 28 32 29 2c 45 31 28 33 | 29 2c 45 31 28 34 29 29 |(2),E1(3|),E1(4))|
|00001f60| 0a 58 43 0a 58 09 4a 20 | 3d 20 31 0a 58 09 49 46 |.XC.X.J |= 1.X.IF|
|00001f70| 20 28 4e 34 29 20 34 39 | 2c 20 34 39 2c 20 34 31 | (N4) 49|, 49, 41|
|00001f80| 0a 58 34 31 09 44 4f 20 | 34 38 20 49 20 3d 20 31 |.X41.DO |48 I = 1|
|00001f90| 2c 20 4e 34 2c 20 31 0a | 58 09 20 20 20 20 49 46 |, N4, 1.|X. IF|
|00001fa0| 20 28 4a 2d 31 29 20 34 | 33 2c 20 34 32 2c 20 34 | (J-1) 4|3, 42, 4|
|00001fb0| 33 0a 58 34 32 09 20 20 | 20 20 4a 20 3d 20 32 0a |3.X42. | J = 2.|
|00001fc0| 58 09 20 20 20 20 47 4f | 20 54 4f 20 34 34 0a 58 |X. GO| TO 44.X|
|00001fd0| 34 33 09 20 20 20 20 4a | 20 3d 20 33 0a 58 34 34 |43. J| = 3.X44|
|00001fe0| 09 20 20 20 20 49 46 20 | 28 4a 2d 32 29 20 34 36 |. IF |(J-2) 46|
|00001ff0| 2c 20 34 36 2c 20 34 35 | 0a 58 34 35 09 20 20 20 |, 46, 45|.X45. |
|00002000| 20 4a 20 3d 20 30 0a 58 | 09 20 20 20 20 47 4f 20 | J = 0.X|. GO |
|00002010| 54 4f 20 34 37 0a 58 34 | 36 09 20 20 20 20 4a 20 |TO 47.X4|6. J |
|00002020| 3d 20 31 0a 58 34 37 09 | 20 20 20 20 49 46 20 28 |= 1.X47.| IF (|
|00002030| 4a 2d 31 29 20 34 31 31 | 2c 20 34 31 32 2c 20 34 |J-1) 411|, 412, 4|
|00002040| 31 32 0a 58 34 31 31 09 | 20 20 20 20 4a 20 3d 20 |12.X411.| J = |
|00002050| 31 0a 58 09 20 20 20 20 | 47 4f 20 54 4f 20 34 38 |1.X. |GO TO 48|
|00002060| 0a 58 34 31 32 09 20 20 | 20 20 4a 20 3d 20 30 0a |.X412. | J = 0.|
|00002070| 58 34 38 09 43 4f 4e 54 | 49 4e 55 45 0a 58 34 39 |X48.CONT|INUE.X49|
|00002080| 09 43 4f 4e 54 49 4e 55 | 45 0a 58 09 43 41 4c 4c |.CONTINU|E.X.CALL|
|00002090| 20 50 4f 55 54 28 4e 34 | 2c 4a 2c 4a 2c 58 31 2c | POUT(N4|,J,J,X1,|
|000020a0| 58 32 2c 58 33 2c 58 34 | 29 0a 58 43 0a 58 09 4a |X2,X3,X4|).XC.X.J|
|000020b0| 20 3d 20 31 0a 58 09 4b | 20 3d 20 32 0a 58 09 4c | = 1.X.K| = 2.X.L|
|000020c0| 20 3d 20 33 0a 58 09 49 | 46 20 28 4e 36 29 20 36 | = 3.X.I|F (N6) 6|
|000020d0| 39 2c 20 36 39 2c 20 36 | 31 0a 58 36 31 09 44 4f |9, 69, 6|1.X61.DO|
|000020e0| 20 36 38 20 49 20 3d 20 | 31 2c 20 4e 36 2c 20 31 | 68 I = |1, N6, 1|
|000020f0| 0a 58 09 20 20 20 20 4a | 20 3d 20 4a 20 2a 20 28 |.X. J| = J * (|
|00002100| 4b 2d 4a 29 20 2a 20 28 | 4c 2d 4b 29 0a 58 09 20 |K-J) * (|L-K).X. |
|00002110| 20 20 20 4b 20 3d 20 4c | 20 2a 20 4b 20 2d 20 28 | K = L| * K - (|
|00002120| 4c 2d 4a 29 20 2a 20 4b | 0a 58 09 20 20 20 20 4c |L-J) * K|.X. L|
|00002130| 20 3d 20 28 4c 2d 4b 29 | 20 2a 20 28 4b 2b 4a 29 | = (L-K)| * (K+J)|
|00002140| 0a 58 09 20 20 20 20 45 | 31 28 4c 2d 31 29 20 3d |.X. E|1(L-1) =|
|00002150| 20 4a 20 2b 20 4b 20 2b | 20 4c 0a 58 09 20 20 20 | J + K +| L.X. |
|00002160| 20 45 31 28 4b 2d 31 29 | 20 3d 20 4a 20 2a 20 4b | E1(K-1)| = J * K|
|00002170| 20 2a 20 4c 0a 58 36 38 | 09 43 4f 4e 54 49 4e 55 | * L.X68|.CONTINU|
|00002180| 45 0a 58 36 39 09 43 4f | 4e 54 49 4e 55 45 0a 58 |E.X69.CO|NTINUE.X|
|00002190| 09 43 41 4c 4c 20 50 4f | 55 54 28 4e 36 2c 4a 2c |.CALL PO|UT(N6,J,|
|000021a0| 4b 2c 45 31 28 31 29 2c | 45 31 28 32 29 2c 45 31 |K,E1(1),|E1(2),E1|
|000021b0| 28 33 29 2c 45 31 28 34 | 29 29 0a 58 43 0a 58 09 |(3),E1(4|)).XC.X.|
|000021c0| 58 20 3d 20 30 2e 35 20 | 0a 58 09 59 20 3d 20 30 |X = 0.5 |.X.Y = 0|
|000021d0| 2e 35 20 0a 58 09 49 46 | 20 28 4e 37 29 20 37 39 |.5 .X.IF| (N7) 79|
|000021e0| 2c 20 37 39 2c 20 37 31 | 0a 58 37 31 09 44 4f 20 |, 79, 71|.X71.DO |
|000021f0| 37 38 20 49 20 3d 20 31 | 2c 20 4e 37 2c 20 31 0a |78 I = 1|, N7, 1.|
|00002200| 58 09 20 20 20 20 58 20 | 3d 20 54 20 2a 20 41 54 |X. X |= T * AT|
|00002210| 41 4e 28 54 32 2a 53 49 | 4e 28 58 29 2a 43 4f 53 |AN(T2*SI|N(X)*COS|
|00002220| 28 58 29 2f 28 43 4f 53 | 28 58 2b 59 29 2b 43 4f |(X)/(COS|(X+Y)+CO|
|00002230| 53 28 58 2d 59 29 2d 31 | 2e 30 29 29 0a 58 09 20 |S(X-Y)-1|.0)).X. |
|00002240| 20 20 20 59 20 3d 20 54 | 20 2a 20 41 54 41 4e 28 | Y = T| * ATAN(|
|00002250| 54 32 2a 53 49 4e 28 59 | 29 2a 43 4f 53 28 59 29 |T2*SIN(Y|)*COS(Y)|
|00002260| 2f 28 43 4f 53 28 58 2b | 59 29 2b 43 4f 53 28 58 |/(COS(X+|Y)+COS(X|
|00002270| 2d 59 29 2d 31 2e 30 29 | 29 0a 58 37 38 09 43 4f |-Y)-1.0)|).X78.CO|
|00002280| 4e 54 49 4e 55 45 0a 58 | 37 39 09 43 4f 4e 54 49 |NTINUE.X|79.CONTI|
|00002290| 4e 55 45 0a 58 09 43 41 | 4c 4c 20 50 4f 55 54 28 |NUE.X.CA|LL POUT(|
|000022a0| 4e 37 2c 4a 2c 4b 2c 58 | 2c 58 2c 59 2c 59 29 0a |N7,J,K,X|,X,Y,Y).|
|000022b0| 58 43 0a 58 09 58 20 3d | 20 31 2e 30 20 0a 58 09 |XC.X.X =| 1.0 .X.|
|000022c0| 59 20 3d 20 31 2e 30 20 | 0a 58 09 5a 20 3d 20 31 |Y = 1.0 |.X.Z = 1|
|000022d0| 2e 30 20 0a 58 09 49 46 | 20 28 4e 38 29 20 38 39 |.0 .X.IF| (N8) 89|
|000022e0| 2c 20 38 39 2c 20 38 31 | 0a 58 38 31 09 44 4f 20 |, 89, 81|.X81.DO |
|000022f0| 38 38 20 49 20 3d 20 31 | 2c 20 4e 38 2c 20 31 0a |88 I = 1|, N8, 1.|
|00002300| 58 38 38 09 20 20 20 20 | 43 41 4c 4c 20 50 33 28 |X88. |CALL P3(|
|00002310| 58 2c 59 2c 5a 29 0a 58 | 38 39 09 43 4f 4e 54 49 |X,Y,Z).X|89.CONTI|
|00002320| 4e 55 45 0a 58 09 43 41 | 4c 4c 20 50 4f 55 54 28 |NUE.X.CA|LL POUT(|
|00002330| 4e 38 2c 4a 2c 4b 2c 58 | 2c 59 2c 5a 2c 5a 29 0a |N8,J,K,X|,Y,Z,Z).|
|00002340| 58 43 0a 58 09 4a 20 3d | 20 31 0a 58 09 4b 20 3d |XC.X.J =| 1.X.K =|
|00002350| 20 32 0a 58 09 4c 20 3d | 20 33 0a 58 09 45 31 28 | 2.X.L =| 3.X.E1(|
|00002360| 31 29 20 3d 20 31 2e 30 | 20 0a 58 09 45 31 28 32 |1) = 1.0| .X.E1(2|
|00002370| 29 20 3d 20 32 2e 30 30 | 20 0a 58 09 45 31 28 33 |) = 2.00| .X.E1(3|
|00002380| 29 20 3d 20 33 2e 30 20 | 0a 58 09 49 46 20 28 4e |) = 3.0 |.X.IF (N|
|00002390| 39 29 20 39 39 2c 20 39 | 39 2c 20 39 31 0a 58 39 |9) 99, 9|9, 91.X9|
|000023a0| 31 09 44 4f 20 39 38 20 | 49 20 3d 20 31 2c 20 4e |1.DO 98 |I = 1, N|
|000023b0| 39 2c 20 31 0a 58 39 38 | 09 20 20 20 20 43 41 4c |9, 1.X98|. CAL|
|000023c0| 4c 20 50 30 0a 58 39 39 | 09 43 4f 4e 54 49 4e 55 |L P0.X99|.CONTINU|
|000023d0| 45 0a 58 09 43 41 4c 4c | 20 50 4f 55 54 28 4e 39 |E.X.CALL| POUT(N9|
|000023e0| 2c 4a 2c 4b 2c 45 31 28 | 31 29 2c 45 31 28 32 29 |,J,K,E1(|1),E1(2)|
|000023f0| 2c 45 31 28 33 29 2c 45 | 31 28 34 29 29 0a 58 43 |,E1(3),E|1(4)).XC|
|00002400| 0a 58 09 4a 20 3d 20 32 | 0a 58 09 4b 20 3d 20 33 |.X.J = 2|.X.K = 3|
|00002410| 0a 58 09 49 46 20 28 4e | 31 30 29 20 31 30 39 2c |.X.IF (N|10) 109,|
|00002420| 20 31 30 39 2c 20 31 30 | 31 0a 58 31 30 31 09 44 | 109, 10|1.X101.D|
|00002430| 4f 20 31 30 38 20 49 20 | 3d 20 31 2c 20 4e 31 30 |O 108 I |= 1, N10|
|00002440| 2c 20 31 0a 58 09 20 20 | 20 20 4a 20 3d 20 4a 20 |, 1.X. | J = J |
|00002450| 2b 20 4b 0a 58 09 20 20 | 20 20 4b 20 3d 20 4a 20 |+ K.X. | K = J |
|00002460| 2b 20 4b 0a 58 09 20 20 | 20 20 4a 20 3d 20 4a 20 |+ K.X. | J = J |
|00002470| 2d 20 4b 0a 58 09 20 20 | 20 20 4b 20 3d 20 4b 20 |- K.X. | K = K |
|00002480| 2d 20 4a 20 2d 20 4a 0a | 58 31 30 38 09 43 4f 4e |- J - J.|X108.CON|
|00002490| 54 49 4e 55 45 0a 58 31 | 30 39 09 43 4f 4e 54 49 |TINUE.X1|09.CONTI|
|000024a0| 4e 55 45 0a 58 09 43 41 | 4c 4c 20 50 4f 55 54 28 |NUE.X.CA|LL POUT(|
|000024b0| 4e 31 30 2c 4a 2c 4b 2c | 58 31 2c 58 32 2c 58 33 |N10,J,K,|X1,X2,X3|
|000024c0| 2c 58 34 29 0a 58 43 0a | 58 09 58 20 3d 20 30 2e |,X4).XC.|X.X = 0.|
|000024d0| 37 35 20 0a 58 09 49 46 | 20 28 4e 31 31 29 20 31 |75 .X.IF| (N11) 1|
|000024e0| 31 39 2c 20 31 31 39 2c | 20 31 31 31 0a 58 31 31 |19, 119,| 111.X11|
|000024f0| 31 09 44 4f 20 31 31 38 | 20 49 20 3d 20 31 2c 20 |1.DO 118| I = 1, |
|00002500| 4e 31 31 2c 20 31 0a 58 | 31 31 38 09 20 20 20 20 |N11, 1.X|118. |
|00002510| 58 20 3d 20 53 51 52 54 | 28 45 58 50 28 41 4c 4f |X = SQRT|(EXP(ALO|
|00002520| 47 28 58 29 2f 54 31 29 | 29 0a 58 31 31 39 09 43 |G(X)/T1)|).X119.C|
|00002530| 4f 4e 54 49 4e 55 45 0a | 58 09 43 41 4c 4c 20 50 |ONTINUE.|X.CALL P|
|00002540| 4f 55 54 28 4e 31 31 2c | 4a 2c 4b 2c 58 2c 58 2c |OUT(N11,|J,K,X,X,|
|00002550| 58 2c 58 29 0a 58 43 0a | 58 09 20 20 20 20 46 53 |X,X).XC.|X. FS|
|00002560| 45 43 20 3d 20 53 45 43 | 4f 4e 44 28 29 0a 58 09 |EC = SEC|OND().X.|
|00002570| 20 20 20 20 43 50 55 28 | 49 50 41 53 53 29 20 3d | CPU(|IPASS) =|
|00002580| 20 46 53 45 43 20 2d 20 | 53 53 45 43 0a 58 09 20 | FSEC - |SSEC.X. |
|00002590| 20 20 20 50 52 49 4e 54 | 20 32 30 30 30 2c 20 49 | PRINT| 2000, I|
|000025a0| 50 41 53 53 2c 20 43 50 | 55 28 49 50 41 53 53 29 |PASS, CP|U(IPASS)|
|000025b0| 0a 58 32 30 30 30 09 20 | 20 20 20 46 4f 52 4d 41 |.X2000. | FORMA|
|000025c0| 54 20 28 2f 20 27 20 50 | 41 53 53 27 2c 49 32 2c |T (/ ' P|ASS',I2,|
|000025d0| 27 3a 27 2c 46 31 30 2e | 34 2c 27 20 53 45 43 20 |':',F10.|4,' SEC |
|000025e0| 43 50 55 20 54 49 4d 45 | 27 2f 2f 29 0a 58 09 20 |CPU TIME|'//).X. |
|000025f0| 20 20 20 49 50 41 53 53 | 20 3d 20 49 50 41 53 53 | IPASS| = IPASS|
|00002600| 20 2b 20 31 0a 58 09 20 | 20 20 20 49 46 20 28 49 | + 1.X. | IF (I|
|00002610| 50 41 53 53 2e 4c 45 2e | 32 29 20 47 4f 20 54 4f |PASS.LE.|2) GO TO|
|00002620| 20 35 0a 58 43 0a 58 09 | 20 20 20 20 57 49 50 53 | 5.XC.X.| WIPS|
|00002630| 20 3d 20 31 30 30 30 2e | 30 20 2f 20 28 43 50 55 | = 1000.|0 / (CPU|
|00002640| 28 32 29 20 2d 20 43 50 | 55 28 31 29 29 0a 58 09 |(2) - CP|U(1)).X.|
|00002650| 20 20 20 20 50 52 49 4e | 54 20 33 30 30 30 2c 20 | PRIN|T 3000, |
|00002660| 57 49 50 53 0a 58 33 30 | 30 30 09 20 20 20 20 46 |WIPS.X30|00. F|
|00002670| 4f 52 4d 41 54 20 28 2f | 2f 20 27 20 57 48 45 54 |ORMAT (/|/ ' WHET|
|00002680| 53 54 4f 4e 45 20 49 4e | 53 54 52 55 43 54 49 4f |STONE IN|STRUCTIO|
|00002690| 4e 53 20 50 45 52 20 53 | 45 43 4f 4e 44 3a 27 2c |NS PER S|ECOND:',|
|000026a0| 20 46 37 2e 31 29 0a 58 | 43 0a 58 09 53 54 4f 50 | F7.1).X|C.X.STOP|
|000026b0| 20 27 45 4e 44 20 53 49 | 4e 47 4c 45 2d 50 52 45 | 'END SI|NGLE-PRE|
|000026c0| 43 49 53 49 4f 4e 20 54 | 45 53 54 27 0a 58 09 45 |CISION T|EST'.X.E|
|000026d0| 4e 44 0a 58 43 0a 58 09 | 53 55 42 52 4f 55 54 49 |ND.XC.X.|SUBROUTI|
|000026e0| 4e 45 20 50 41 28 45 29 | 0a 58 09 43 4f 4d 4d 4f |NE PA(E)|.X.COMMO|
|000026f0| 4e 20 54 2c 20 54 31 2c | 20 54 32 0a 58 09 44 49 |N T, T1,| T2.X.DI|
|00002700| 4d 45 4e 53 49 4f 4e 20 | 45 28 34 29 0a 58 09 4a |MENSION |E(4).X.J|
|00002710| 20 3d 20 30 0a 58 31 09 | 45 28 31 29 20 3d 20 28 | = 0.X1.|E(1) = (|
|00002720| 20 45 28 31 29 20 2b 20 | 45 28 32 29 20 2b 20 45 | E(1) + |E(2) + E|
|00002730| 28 33 29 20 2d 20 45 28 | 34 29 29 20 2a 20 54 0a |(3) - E(|4)) * T.|
|00002740| 58 09 45 28 32 29 20 3d | 20 28 20 45 28 31 29 20 |X.E(2) =| ( E(1) |
|00002750| 2b 20 45 28 32 29 20 2d | 20 45 28 33 29 20 2b 20 |+ E(2) -| E(3) + |
|00002760| 45 28 34 29 29 20 2a 20 | 54 0a 58 09 45 28 33 29 |E(4)) * |T.X.E(3)|
|00002770| 20 3d 20 28 20 45 28 31 | 29 20 2d 20 45 28 32 29 | = ( E(1|) - E(2)|
|00002780| 20 2b 20 45 28 33 29 20 | 2b 20 45 28 34 29 29 20 | + E(3) |+ E(4)) |
|00002790| 2a 20 54 0a 58 09 45 28 | 34 29 20 3d 20 28 2d 45 |* T.X.E(|4) = (-E|
|000027a0| 28 31 29 20 2b 20 45 28 | 32 29 20 2b 20 45 28 33 |(1) + E(|2) + E(3|
|000027b0| 29 20 2b 20 45 28 34 29 | 29 20 2f 20 54 32 0a 58 |) + E(4)|) / T2.X|
|000027c0| 09 4a 20 3d 20 4a 20 2b | 20 31 0a 58 09 49 46 20 |.J = J +| 1.X.IF |
|000027d0| 28 4a 2d 36 29 20 31 2c | 20 32 2c 20 32 0a 58 32 |(J-6) 1,| 2, 2.X2|
|000027e0| 09 43 4f 4e 54 49 4e 55 | 45 0a 58 09 52 45 54 55 |.CONTINU|E.X.RETU|
|000027f0| 52 4e 0a 58 09 45 4e 44 | 0a 58 43 0a 58 09 53 55 |RN.X.END|.XC.X.SU|
|00002800| 42 52 4f 55 54 49 4e 45 | 20 50 30 0a 58 09 43 4f |BROUTINE| P0.X.CO|
|00002810| 4d 4d 4f 4e 20 54 2c 20 | 54 31 2c 20 54 32 2c 20 |MMON T, |T1, T2, |
|00002820| 45 31 28 34 29 2c 20 4a | 2c 20 4b 2c 20 4c 0a 58 |E1(4), J|, K, L.X|
|00002830| 09 45 31 28 4a 29 20 3d | 20 45 31 28 4b 29 0a 58 |.E1(J) =| E1(K).X|
|00002840| 09 45 31 28 4b 29 20 3d | 20 45 31 28 4c 29 0a 58 |.E1(K) =| E1(L).X|
|00002850| 09 45 31 28 4c 29 20 3d | 20 45 31 28 4a 29 0a 58 |.E1(L) =| E1(J).X|
|00002860| 09 52 45 54 55 52 4e 0a | 58 09 45 4e 44 0a 58 43 |.RETURN.|X.END.XC|
|00002870| 0a 58 09 53 55 42 52 4f | 55 54 49 4e 45 20 50 33 |.X.SUBRO|UTINE P3|
|00002880| 28 58 2c 59 2c 5a 29 0a | 58 09 43 4f 4d 4d 4f 4e |(X,Y,Z).|X.COMMON|
|00002890| 20 54 2c 20 54 31 2c 20 | 54 32 0a 58 09 58 31 20 | T, T1, |T2.X.X1 |
|000028a0| 3d 20 58 0a 58 09 59 31 | 20 3d 20 59 0a 58 09 58 |= X.X.Y1| = Y.X.X|
|000028b0| 31 20 3d 20 54 20 2a 20 | 28 58 31 20 2b 20 59 31 |1 = T * |(X1 + Y1|
|000028c0| 29 0a 58 09 59 31 20 3d | 20 54 20 2a 20 28 58 31 |).X.Y1 =| T * (X1|
|000028d0| 20 2b 20 59 31 29 0a 58 | 09 5a 20 20 3d 20 28 58 | + Y1).X|.Z = (X|
|000028e0| 31 20 2b 20 59 31 29 20 | 2f 20 54 32 0a 58 09 52 |1 + Y1) |/ T2.X.R|
|000028f0| 45 54 55 52 4e 0a 58 09 | 45 4e 44 0a 58 43 0a 58 |ETURN.X.|END.XC.X|
|00002900| 09 53 55 42 52 4f 55 54 | 49 4e 45 20 50 4f 55 54 |.SUBROUT|INE POUT|
|00002910| 28 4e 2c 4a 2c 4b 2c 58 | 31 2c 58 32 2c 58 33 2c |(N,J,K,X|1,X2,X3,|
|00002920| 58 34 29 0a 58 09 50 52 | 49 4e 54 20 33 30 30 30 |X4).X.PR|INT 3000|
|00002930| 2c 20 4e 2c 20 4a 2c 20 | 4b 2c 20 58 31 2c 20 58 |, N, J, |K, X1, X|
|00002940| 32 2c 20 58 33 2c 20 58 | 34 0a 58 33 30 30 30 09 |2, X3, X|4.X3000.|
|00002950| 46 4f 52 4d 41 54 28 31 | 48 20 2c 20 33 49 37 2c |FORMAT(1|H , 3I7,|
|00002960| 20 34 45 31 32 2e 34 29 | 0a 58 09 52 45 54 55 52 | 4E12.4)|.X.RETUR|
|00002970| 4e 0a 58 09 45 4e 44 0a | 45 4e 44 5f 4f 46 5f 46 |N.X.END.|END_OF_F|
|00002980| 77 68 65 74 73 2e 66 0a | 69 66 20 74 65 73 74 20 |whets.f.|if test |
|00002990| 34 33 39 38 20 2d 6e 65 | 20 60 77 63 20 2d 63 20 |4398 -ne| `wc -c |
|000029a0| 3c 46 77 68 65 74 73 2e | 66 60 3b 20 74 68 65 6e |<Fwhets.|f`; then|
|000029b0| 0a 20 20 20 20 65 63 68 | 6f 20 73 68 61 72 3a 20 |. ech|o shar: |
|000029c0| 5c 22 46 77 68 65 74 73 | 2e 66 5c 22 20 75 6e 70 |\"Fwhets|.f\" unp|
|000029d0| 61 63 6b 65 64 20 77 69 | 74 68 20 77 72 6f 6e 67 |acked wi|th wrong|
|000029e0| 20 73 69 7a 65 21 0a 66 | 69 0a 23 20 65 6e 64 20 | size!.f|i.# end |
|000029f0| 6f 66 20 6f 76 65 72 77 | 72 69 74 69 6e 67 20 63 |of overw|riting c|
|00002a00| 68 65 63 6b 0a 66 69 0a | 69 66 20 74 65 73 74 20 |heck.fi.|if test |
|00002a10| 2d 66 20 4d 61 6b 65 66 | 69 6c 65 20 2d 61 20 22 |-f Makef|ile -a "|
|00002a20| 24 7b 31 7d 22 20 21 3d | 20 22 2d 63 22 20 3b 20 |${1}" !=| "-c" ; |
|00002a30| 74 68 65 6e 20 0a 20 20 | 65 63 68 6f 20 73 68 61 |then . |echo sha|
|00002a40| 72 3a 20 57 69 6c 6c 20 | 6e 6f 74 20 6f 76 65 72 |r: Will |not over|
|00002a50| 2d 77 72 69 74 65 20 65 | 78 69 73 74 69 6e 67 20 |-write e|xisting |
|00002a60| 66 69 6c 65 20 5c 22 4d | 61 6b 65 66 69 6c 65 5c |file \"M|akefile\|
|00002a70| 22 0a 65 6c 73 65 0a 65 | 63 68 6f 20 73 68 61 72 |".else.e|cho shar|
|00002a80| 3a 20 45 78 74 72 61 63 | 74 69 6e 67 20 5c 22 4d |: Extrac|ting \"M|
|00002a90| 61 6b 65 66 69 6c 65 5c | 22 20 5c 28 38 32 32 20 |akefile\|" \(822 |
|00002aa0| 63 68 61 72 61 63 74 65 | 72 73 5c 29 0a 73 65 64 |characte|rs\).sed|
|00002ab0| 20 22 73 2f 5e 58 2f 2f | 22 20 3e 4d 61 6b 65 66 | "s/^X//|" >Makef|
|00002ac0| 69 6c 65 20 3c 3c 27 45 | 4e 44 5f 4f 46 5f 4d 61 |ile <<'E|ND_OF_Ma|
|00002ad0| 6b 65 66 69 6c 65 27 0a | 58 46 46 4c 41 47 53 20 |kefile'.|XFFLAGS |
|00002ae0| 3d 20 2d 4f 20 2d 66 54 | 0a 58 43 46 4c 41 47 53 |= -O -fT|.XCFLAGS|
|00002af0| 20 3d 20 2d 4f 20 2d 66 | 54 0a 58 54 49 4d 45 20 | = -O -f|T.XTIME |
|00002b00| 3d 20 74 69 6d 65 0a 58 | 53 49 5a 45 20 3d 20 73 |= time.X|SIZE = s|
|00002b10| 69 7a 65 0a 58 0a 58 61 | 6c 6c 3a 20 73 69 6e 67 |ize.X.Xa|ll: sing|
|00002b20| 6c 65 20 64 6f 75 62 6c | 65 0a 58 0a 58 73 69 6e |le doubl|e.X.Xsin|
|00002b30| 67 6c 65 3a 20 24 28 46 | 4f 52 54 29 46 77 68 65 |gle: $(F|ORT)Fwhe|
|00002b40| 74 73 0a 58 09 65 63 68 | 6f 20 31 30 20 7c 20 24 |ts.X.ech|o 10 | $|
|00002b50| 28 46 4f 52 54 29 46 77 | 68 65 74 73 0a 58 0a 58 |(FORT)Fw|hets.X.X|
|00002b60| 46 77 68 65 74 73 3a 20 | 66 37 37 46 77 68 65 74 |Fwhets: |f77Fwhet|
|00002b70| 73 0a 58 09 72 6d 20 2d | 66 20 46 77 68 65 74 73 |s.X.rm -|f Fwhets|
|00002b80| 0a 58 09 6c 6e 20 66 37 | 37 46 77 68 65 74 73 20 |.X.ln f7|7Fwhets |
|00002b90| 46 77 68 65 74 73 0a 58 | 0a 58 64 6f 75 62 6c 65 |Fwhets.X|.Xdouble|
|00002ba0| 3a 20 24 28 46 4f 52 54 | 29 46 77 68 65 74 64 0a |: $(FORT|)Fwhetd.|
|00002bb0| 58 09 65 63 68 6f 20 31 | 30 20 7c 20 24 28 46 4f |X.echo 1|0 | $(FO|
|00002bc0| 52 54 29 46 77 68 65 74 | 64 0a 58 0a 58 46 77 68 |RT)Fwhet|d.X.XFwh|
|00002bd0| 65 74 64 3a 20 66 37 37 | 46 77 68 65 74 64 0a 58 |etd: f77|Fwhetd.X|
|00002be0| 09 72 6d 20 2d 66 20 46 | 77 68 65 74 64 0a 58 09 |.rm -f F|whetd.X.|
|00002bf0| 6c 6e 20 66 37 37 46 77 | 68 65 74 64 20 46 77 68 |ln f77Fw|hetd Fwh|
|00002c00| 65 74 64 0a 58 0a 58 66 | 37 37 46 77 68 65 74 73 |etd.X.Xf|77Fwhets|
|00002c10| 3a 20 73 65 63 6f 6e 64 | 2e 6f 20 46 77 68 65 74 |: second|.o Fwhet|
|00002c20| 73 2e 66 20 0a 58 09 66 | 37 37 20 24 28 46 46 4c |s.f .X.f|77 $(FFL|
|00002c30| 41 47 53 29 20 46 77 68 | 65 74 73 2e 66 20 73 65 |AGS) Fwh|ets.f se|
|00002c40| 63 6f 6e 64 2e 6f 20 2d | 6f 20 66 37 37 46 77 68 |cond.o -|o f77Fwh|
|00002c50| 65 74 73 0a 58 0a 58 4c | 4c 4c 46 77 68 65 74 73 |ets.X.XL|LLFwhets|
|00002c60| 3a 20 5f 73 65 63 6f 6e | 64 2e 6f 20 46 77 68 65 |: _secon|d.o Fwhe|
|00002c70| 74 73 2e 66 20 0a 58 09 | 66 6f 72 74 72 61 6e 20 |ts.f .X.|fortran |
|00002c80| 24 28 46 46 4c 41 47 53 | 29 20 46 77 68 65 74 73 |$(FFLAGS|) Fwhets|
|00002c90| 2e 66 20 0a 58 09 66 6f | 72 6c 69 6e 6b 20 46 77 |.f .X.fo|rlink Fw|
|00002ca0| 68 65 74 73 2e 6f 20 5f | 73 65 63 6f 6e 64 2e 6f |hets.o _|second.o|
|00002cb0| 20 0a 58 09 6d 76 20 46 | 77 68 65 74 73 20 4c 4c | .X.mv F|whets LL|
|00002cc0| 4c 46 77 68 65 74 73 0a | 58 0a 58 66 37 37 46 77 |LFwhets.|X.Xf77Fw|
|00002cd0| 68 65 74 64 3a 20 73 65 | 63 6f 6e 64 2e 6f 20 46 |hetd: se|cond.o F|
|00002ce0| 77 68 65 74 64 2e 66 20 | 0a 58 09 66 37 37 20 24 |whetd.f |.X.f77 $|
|00002cf0| 28 46 46 4c 41 47 53 29 | 20 46 77 68 65 74 64 2e |(FFLAGS)| Fwhetd.|
|00002d00| 66 20 73 65 63 6f 6e 64 | 2e 6f 20 2d 6f 20 66 37 |f second|.o -o f7|
|00002d10| 37 46 77 68 65 74 64 0a | 58 0a 58 4c 4c 4c 46 77 |7Fwhetd.|X.XLLLFw|
|00002d20| 68 65 74 64 3a 20 5f 73 | 65 63 6f 6e 64 2e 6f 20 |hetd: _s|econd.o |
|00002d30| 46 77 68 65 74 64 2e 66 | 20 0a 58 09 66 6f 72 74 |Fwhetd.f| .X.fort|
|00002d40| 72 61 6e 20 24 28 46 46 | 4c 41 47 53 29 20 46 77 |ran $(FF|LAGS) Fw|
|00002d50| 68 65 74 64 2e 66 20 0a | 58 09 66 6f 72 6c 69 6e |hetd.f .|X.forlin|
|00002d60| 6b 20 46 77 68 65 74 64 | 2e 6f 20 5f 73 65 63 6f |k Fwhetd|.o _seco|
|00002d70| 6e 64 2e 6f 20 0a 58 09 | 6d 76 20 46 77 68 65 74 |nd.o .X.|mv Fwhet|
|00002d80| 64 20 4c 4c 4c 46 77 68 | 65 74 64 0a 58 0a 58 73 |d LLLFwh|etd.X.Xs|
|00002d90| 65 63 6f 6e 64 2e 6f 3a | 20 73 65 63 6f 6e 64 2e |econd.o:| second.|
|00002da0| 63 0a 58 09 24 28 43 43 | 29 20 24 28 43 46 4c 41 |c.X.$(CC|) $(CFLA|
|00002db0| 47 53 29 20 2d 63 20 73 | 65 63 6f 6e 64 2e 63 0a |GS) -c s|econd.c.|
|00002dc0| 58 0a 58 5f 73 65 63 6f | 6e 64 2e 6f 3a 20 5f 73 |X.X_seco|nd.o: _s|
|00002dd0| 65 63 6f 6e 64 2e 63 0a | 58 09 24 28 43 43 29 20 |econd.c.|X.$(CC) |
|00002de0| 24 28 43 46 4c 41 47 53 | 29 20 2d 63 20 5f 73 65 |$(CFLAGS|) -c _se|
|00002df0| 63 6f 6e 64 2e 63 0a 58 | 0a 58 63 6c 65 61 6e 3a |cond.c.X|.Xclean:|
|00002e00| 0a 58 09 28 73 65 74 20 | 6e 6f 6e 6f 6d 61 74 63 |.X.(set |nonomatc|
|00002e10| 68 3b 20 72 6d 20 2d 66 | 20 2a 2e 6f 20 24 28 46 |h; rm -f| *.o $(F|
|00002e20| 4f 52 54 29 46 77 68 65 | 74 73 20 24 28 46 4f 52 |ORT)Fwhe|ts $(FOR|
|00002e30| 54 29 46 77 68 65 74 64 | 20 29 0a 45 4e 44 5f 4f |T)Fwhetd| ).END_O|
|00002e40| 46 5f 4d 61 6b 65 66 69 | 6c 65 0a 69 66 20 74 65 |F_Makefi|le.if te|
|00002e50| 73 74 20 38 32 32 20 2d | 6e 65 20 60 77 63 20 2d |st 822 -|ne `wc -|
|00002e60| 63 20 3c 4d 61 6b 65 66 | 69 6c 65 60 3b 20 74 68 |c <Makef|ile`; th|
|00002e70| 65 6e 0a 20 20 20 20 65 | 63 68 6f 20 73 68 61 72 |en. e|cho shar|
|00002e80| 3a 20 5c 22 4d 61 6b 65 | 66 69 6c 65 5c 22 20 75 |: \"Make|file\" u|
|00002e90| 6e 70 61 63 6b 65 64 20 | 77 69 74 68 20 77 72 6f |npacked |with wro|
|00002ea0| 6e 67 20 73 69 7a 65 21 | 0a 66 69 0a 23 20 65 6e |ng size!|.fi.# en|
|00002eb0| 64 20 6f 66 20 6f 76 65 | 72 77 72 69 74 69 6e 67 |d of ove|rwriting|
|00002ec0| 20 63 68 65 63 6b 0a 66 | 69 0a 69 66 20 74 65 73 | check.f|i.if tes|
|00002ed0| 74 20 2d 66 20 5f 73 65 | 63 6f 6e 64 2e 63 20 2d |t -f _se|cond.c -|
|00002ee0| 61 20 22 24 7b 31 7d 22 | 20 21 3d 20 22 2d 63 22 |a "${1}"| != "-c"|
|00002ef0| 20 3b 20 74 68 65 6e 20 | 0a 20 20 65 63 68 6f 20 | ; then |. echo |
|00002f00| 73 68 61 72 3a 20 57 69 | 6c 6c 20 6e 6f 74 20 6f |shar: Wi|ll not o|
|00002f10| 76 65 72 2d 77 72 69 74 | 65 20 65 78 69 73 74 69 |ver-writ|e existi|
|00002f20| 6e 67 20 66 69 6c 65 20 | 5c 22 5f 73 65 63 6f 6e |ng file |\"_secon|
|00002f30| 64 2e 63 5c 22 0a 65 6c | 73 65 0a 65 63 68 6f 20 |d.c\".el|se.echo |
|00002f40| 73 68 61 72 3a 20 45 78 | 74 72 61 63 74 69 6e 67 |shar: Ex|tracting|
|00002f50| 20 5c 22 5f 73 65 63 6f | 6e 64 2e 63 5c 22 20 5c | \"_seco|nd.c\" \|
|00002f60| 28 34 35 30 20 63 68 61 | 72 61 63 74 65 72 73 5c |(450 cha|racters\|
|00002f70| 29 0a 73 65 64 20 22 73 | 2f 5e 58 2f 2f 22 20 3e |).sed "s|/^X//" >|
|00002f80| 5f 73 65 63 6f 6e 64 2e | 63 20 3c 3c 27 45 4e 44 |_second.|c <<'END|
|00002f90| 5f 4f 46 5f 5f 73 65 63 | 6f 6e 64 2e 63 27 0a 58 |_OF__sec|ond.c'.X|
|00002fa0| 0a 58 23 69 6e 63 6c 75 | 64 65 20 3c 73 79 73 2f |.X#inclu|de <sys/|
|00002fb0| 74 69 6d 65 2e 68 3e 0a | 58 23 69 6e 63 6c 75 64 |time.h>.|X#includ|
|00002fc0| 65 20 3c 73 79 73 2f 72 | 65 73 6f 75 72 63 65 2e |e <sys/r|esource.|
|00002fd0| 68 3e 0a 58 0a 58 66 6c | 6f 61 74 0a 58 73 65 63 |h>.X.Xfl|oat.Xsec|
|00002fe0| 6f 6e 64 20 28 29 0a 58 | 7b 0a 58 20 20 20 20 73 |ond ().X|{.X s|
|00002ff0| 74 72 75 63 74 20 72 75 | 73 61 67 65 20 72 75 3b |truct ru|sage ru;|
|00003000| 0a 58 0a 58 23 69 66 64 | 65 66 20 4d 4f 58 49 45 |.X.X#ifd|ef MOXIE|
|00003010| 0a 58 20 20 20 20 73 74 | 61 74 69 63 20 75 6e 73 |.X st|atic uns|
|00003020| 69 67 6e 65 64 20 63 6f | 75 6e 74 20 3d 20 30 3b |igned co|unt = 0;|
|00003030| 0a 58 20 20 20 20 73 74 | 61 74 69 63 20 75 6e 73 |.X st|atic uns|
|00003040| 69 67 6e 65 64 20 73 74 | 6f 70 3b 0a 58 20 20 20 |igned st|op;.X |
|00003050| 20 65 78 74 65 72 6e 20 | 75 6e 73 69 67 6e 65 64 | extern |unsigned|
|00003060| 20 5f 5f 41 72 67 63 3b | 0a 58 20 20 20 20 65 78 | __Argc;|.X ex|
|00003070| 74 65 72 6e 20 63 68 61 | 72 20 2a 2a 5f 5f 41 72 |tern cha|r **__Ar|
|00003080| 67 76 3b 0a 58 20 20 20 | 20 69 66 20 28 63 6f 75 |gv;.X | if (cou|
|00003090| 6e 74 20 3d 3d 20 30 20 | 26 26 20 5f 5f 41 72 67 |nt == 0 |&& __Arg|
|000030a0| 63 20 3e 20 31 29 20 7b | 0a 58 09 73 74 6f 70 20 |c > 1) {|.X.stop |
|000030b0| 3d 20 61 74 6f 69 28 5f | 5f 41 72 67 76 5b 5f 5f |= atoi(_|_Argv[__|
|000030c0| 41 72 67 63 2d 31 5d 29 | 3b 0a 58 20 20 20 20 7d |Argc-1])|;.X }|
|000030d0| 0a 58 20 20 20 20 63 6f | 75 6e 74 20 2b 3d 20 31 |.X co|unt += 1|
|000030e0| 3b 0a 58 20 20 20 20 69 | 66 20 28 63 6f 75 6e 74 |;.X i|f (count|
|000030f0| 20 3d 3d 20 73 74 6f 70 | 29 20 65 78 69 74 28 30 | == stop|) exit(0|
|00003100| 29 3b 0a 58 23 65 6e 64 | 69 66 0a 58 0a 58 20 20 |);.X#end|if.X.X |
|00003110| 20 20 67 65 74 72 75 73 | 61 67 65 20 28 30 2c 20 | getrus|age (0, |
|00003120| 26 72 75 29 3b 0a 58 20 | 20 20 20 72 65 74 75 72 |&ru);.X | retur|
|00003130| 6e 20 28 28 66 6c 6f 61 | 74 29 72 75 2e 72 75 5f |n ((floa|t)ru.ru_|
|00003140| 75 74 69 6d 65 2e 74 76 | 5f 73 65 63 20 2b 20 28 |utime.tv|_sec + (|
|00003150| 28 66 6c 6f 61 74 29 72 | 75 2e 72 75 5f 75 74 69 |(float)r|u.ru_uti|
|00003160| 6d 65 2e 74 76 5f 75 73 | 65 63 20 2f 20 31 2e 30 |me.tv_us|ec / 1.0|
|00003170| 65 36 29 29 3b 0a 58 7d | 0a 45 4e 44 5f 4f 46 5f |e6));.X}|.END_OF_|
|00003180| 5f 73 65 63 6f 6e 64 2e | 63 0a 69 66 20 74 65 73 |_second.|c.if tes|
|00003190| 74 20 34 35 30 20 2d 6e | 65 20 60 77 63 20 2d 63 |t 450 -n|e `wc -c|
|000031a0| 20 3c 5f 73 65 63 6f 6e | 64 2e 63 60 3b 20 74 68 | <_secon|d.c`; th|
|000031b0| 65 6e 0a 20 20 20 20 65 | 63 68 6f 20 73 68 61 72 |en. e|cho shar|
|000031c0| 3a 20 5c 22 5f 73 65 63 | 6f 6e 64 2e 63 5c 22 20 |: \"_sec|ond.c\" |
|000031d0| 75 6e 70 61 63 6b 65 64 | 20 77 69 74 68 20 77 72 |unpacked| with wr|
|000031e0| 6f 6e 67 20 73 69 7a 65 | 21 0a 66 69 0a 23 20 65 |ong size|!.fi.# e|
|000031f0| 6e 64 20 6f 66 20 6f 76 | 65 72 77 72 69 74 69 6e |nd of ov|erwritin|
|00003200| 67 20 63 68 65 63 6b 0a | 66 69 0a 69 66 20 74 65 |g check.|fi.if te|
|00003210| 73 74 20 2d 66 20 73 65 | 63 6f 6e 64 2e 63 20 2d |st -f se|cond.c -|
|00003220| 61 20 22 24 7b 31 7d 22 | 20 21 3d 20 22 2d 63 22 |a "${1}"| != "-c"|
|00003230| 20 3b 20 74 68 65 6e 20 | 0a 20 20 65 63 68 6f 20 | ; then |. echo |
|00003240| 73 68 61 72 3a 20 57 69 | 6c 6c 20 6e 6f 74 20 6f |shar: Wi|ll not o|
|00003250| 76 65 72 2d 77 72 69 74 | 65 20 65 78 69 73 74 69 |ver-writ|e existi|
|00003260| 6e 67 20 66 69 6c 65 20 | 5c 22 73 65 63 6f 6e 64 |ng file |\"second|
|00003270| 2e 63 5c 22 0a 65 6c 73 | 65 0a 65 63 68 6f 20 73 |.c\".els|e.echo s|
|00003280| 68 61 72 3a 20 45 78 74 | 72 61 63 74 69 6e 67 20 |har: Ext|racting |
|00003290| 5c 22 73 65 63 6f 6e 64 | 2e 63 5c 22 20 5c 28 31 |\"second|.c\" \(1|
|000032a0| 35 38 20 63 68 61 72 61 | 63 74 65 72 73 5c 29 0a |58 chara|cters\).|
|000032b0| 73 65 64 20 22 73 2f 5e | 58 2f 2f 22 20 3e 73 65 |sed "s/^|X//" >se|
|000032c0| 63 6f 6e 64 2e 63 20 3c | 3c 27 45 4e 44 5f 4f 46 |cond.c <|<'END_OF|
|000032d0| 5f 73 65 63 6f 6e 64 2e | 63 27 0a 58 23 69 6e 63 |_second.|c'.X#inc|
|000032e0| 6c 75 64 65 20 3c 73 79 | 73 2f 74 79 70 65 73 2e |lude <sy|s/types.|
|000032f0| 68 3e 0a 58 23 69 6e 63 | 6c 75 64 65 20 3c 73 79 |h>.X#inc|lude <sy|
|00003300| 73 2f 74 69 6d 65 73 2e | 68 3e 0a 58 66 6c 6f 61 |s/times.|h>.Xfloa|
|00003310| 74 0a 58 73 65 63 6f 6e | 64 5f 28 29 0a 58 7b 0a |t.Xsecon|d_().X{.|
|00003320| 58 09 73 74 72 75 63 74 | 20 74 6d 73 20 62 75 66 |X.struct| tms buf|
|00003330| 3b 0a 58 09 74 69 6d 65 | 73 28 26 62 75 66 29 3b |;.X.time|s(&buf);|
|00003340| 0a 58 09 72 65 74 75 72 | 6e 28 62 75 66 2e 74 6d |.X.retur|n(buf.tm|
|00003350| 73 5f 75 74 69 6d 65 2a | 30 2e 30 32 29 3b 20 20 |s_utime*|0.02); |
|00003360| 20 20 20 20 20 20 20 2f | 2a 20 31 20 74 69 63 6b | /|* 1 tick|
|00003370| 20 3d 20 31 2f 35 30 20 | 73 65 63 20 2a 2f 0a 58 | = 1/50 |sec */.X|
|00003380| 7d 0a 45 4e 44 5f 4f 46 | 5f 73 65 63 6f 6e 64 2e |}.END_OF|_second.|
|00003390| 63 0a 69 66 20 74 65 73 | 74 20 31 35 38 20 2d 6e |c.if tes|t 158 -n|
|000033a0| 65 20 60 77 63 20 2d 63 | 20 3c 73 65 63 6f 6e 64 |e `wc -c| <second|
|000033b0| 2e 63 60 3b 20 74 68 65 | 6e 0a 20 20 20 20 65 63 |.c`; the|n. ec|
|000033c0| 68 6f 20 73 68 61 72 3a | 20 5c 22 73 65 63 6f 6e |ho shar:| \"secon|
|000033d0| 64 2e 63 5c 22 20 75 6e | 70 61 63 6b 65 64 20 77 |d.c\" un|packed w|
|000033e0| 69 74 68 20 77 72 6f 6e | 67 20 73 69 7a 65 21 0a |ith wron|g size!.|
|000033f0| 66 69 0a 23 20 65 6e 64 | 20 6f 66 20 6f 76 65 72 |fi.# end| of over|
|00003400| 77 72 69 74 69 6e 67 20 | 63 68 65 63 6b 0a 66 69 |writing |check.fi|
|00003410| 0a 69 66 20 74 65 73 74 | 20 2d 66 20 73 65 63 6f |.if test| -f seco|
|00003420| 6e 64 2e 75 63 62 2e 63 | 20 2d 61 20 22 24 7b 31 |nd.ucb.c| -a "${1|
|00003430| 7d 22 20 21 3d 20 22 2d | 63 22 20 3b 20 74 68 65 |}" != "-|c" ; the|
|00003440| 6e 20 0a 20 20 65 63 68 | 6f 20 73 68 61 72 3a 20 |n . ech|o shar: |
|00003450| 57 69 6c 6c 20 6e 6f 74 | 20 6f 76 65 72 2d 77 72 |Will not| over-wr|
|00003460| 69 74 65 20 65 78 69 73 | 74 69 6e 67 20 66 69 6c |ite exis|ting fil|
|00003470| 65 20 5c 22 73 65 63 6f | 6e 64 2e 75 63 62 2e 63 |e \"seco|nd.ucb.c|
|00003480| 5c 22 0a 65 6c 73 65 0a | 65 63 68 6f 20 73 68 61 |\".else.|echo sha|
|00003490| 72 3a 20 45 78 74 72 61 | 63 74 69 6e 67 20 5c 22 |r: Extra|cting \"|
|000034a0| 73 65 63 6f 6e 64 2e 75 | 63 62 2e 63 5c 22 20 5c |second.u|cb.c\" \|
|000034b0| 28 34 35 30 20 63 68 61 | 72 61 63 74 65 72 73 5c |(450 cha|racters\|
|000034c0| 29 0a 73 65 64 20 22 73 | 2f 5e 58 2f 2f 22 20 3e |).sed "s|/^X//" >|
|000034d0| 73 65 63 6f 6e 64 2e 75 | 63 62 2e 63 20 3c 3c 27 |second.u|cb.c <<'|
|000034e0| 45 4e 44 5f 4f 46 5f 73 | 65 63 6f 6e 64 2e 75 63 |END_OF_s|econd.uc|
|000034f0| 62 2e 63 27 0a 58 23 69 | 6e 63 6c 75 64 65 20 3c |b.c'.X#i|nclude <|
|00003500| 73 79 73 2f 74 69 6d 65 | 2e 68 3e 0a 58 23 69 6e |sys/time|.h>.X#in|
|00003510| 63 6c 75 64 65 20 3c 73 | 79 73 2f 72 65 73 6f 75 |clude <s|ys/resou|
|00003520| 72 63 65 2e 68 3e 0a 58 | 0a 58 66 6c 6f 61 74 0a |rce.h>.X|.Xfloat.|
|00003530| 58 73 65 63 6f 6e 64 5f | 20 28 29 0a 58 7b 0a 58 |Xsecond_| ().X{.X|
|00003540| 20 20 20 20 73 74 72 75 | 63 74 20 72 75 73 61 67 | stru|ct rusag|
|00003550| 65 20 72 75 3b 0a 58 0a | 58 23 69 66 64 65 66 20 |e ru;.X.|X#ifdef |
|00003560| 4d 4f 58 49 45 0a 58 20 | 20 20 20 73 74 61 74 69 |MOXIE.X | stati|
|00003570| 63 20 75 6e 73 69 67 6e | 65 64 20 63 6f 75 6e 74 |c unsign|ed count|
|00003580| 20 3d 20 30 3b 0a 58 20 | 20 20 20 73 74 61 74 69 | = 0;.X | stati|
|00003590| 63 20 75 6e 73 69 67 6e | 65 64 20 73 74 6f 70 3b |c unsign|ed stop;|
|000035a0| 0a 58 20 20 20 20 65 78 | 74 65 72 6e 20 75 6e 73 |.X ex|tern uns|
|000035b0| 69 67 6e 65 64 20 5f 5f | 41 72 67 63 3b 0a 58 20 |igned __|Argc;.X |
|000035c0| 20 20 20 65 78 74 65 72 | 6e 20 63 68 61 72 20 2a | exter|n char *|
|000035d0| 2a 5f 5f 41 72 67 76 3b | 0a 58 20 20 20 20 69 66 |*__Argv;|.X if|
|000035e0| 20 28 63 6f 75 6e 74 20 | 3d 3d 20 30 20 26 26 20 | (count |== 0 && |
|000035f0| 5f 5f 41 72 67 63 20 3e | 20 31 29 20 7b 0a 58 09 |__Argc >| 1) {.X.|
|00003600| 73 74 6f 70 20 3d 20 61 | 74 6f 69 28 5f 5f 41 72 |stop = a|toi(__Ar|
|00003610| 67 76 5b 5f 5f 41 72 67 | 63 2d 31 5d 29 3b 0a 58 |gv[__Arg|c-1]);.X|
|00003620| 20 20 20 20 7d 0a 58 20 | 20 20 20 63 6f 75 6e 74 | }.X | count|
|00003630| 20 2b 3d 20 31 3b 0a 58 | 20 20 20 20 69 66 20 28 | += 1;.X| if (|
|00003640| 63 6f 75 6e 74 20 3d 3d | 20 73 74 6f 70 29 20 65 |count ==| stop) e|
|00003650| 78 69 74 28 30 29 3b 0a | 58 23 65 6e 64 69 66 0a |xit(0);.|X#endif.|
|00003660| 58 0a 58 20 20 20 20 67 | 65 74 72 75 73 61 67 65 |X.X g|etrusage|
|00003670| 20 28 30 2c 20 26 72 75 | 29 3b 0a 58 20 20 20 20 | (0, &ru|);.X |
|00003680| 72 65 74 75 72 6e 20 28 | 28 66 6c 6f 61 74 29 72 |return (|(float)r|
|00003690| 75 2e 72 75 5f 75 74 69 | 6d 65 2e 74 76 5f 73 65 |u.ru_uti|me.tv_se|
|000036a0| 63 20 2b 20 28 28 66 6c | 6f 61 74 29 72 75 2e 72 |c + ((fl|oat)ru.r|
|000036b0| 75 5f 75 74 69 6d 65 2e | 74 76 5f 75 73 65 63 20 |u_utime.|tv_usec |
|000036c0| 2f 20 31 2e 30 65 36 29 | 29 3b 0a 58 7d 0a 45 4e |/ 1.0e6)|);.X}.EN|
|000036d0| 44 5f 4f 46 5f 73 65 63 | 6f 6e 64 2e 75 63 62 2e |D_OF_sec|ond.ucb.|
|000036e0| 63 0a 69 66 20 74 65 73 | 74 20 34 35 30 20 2d 6e |c.if tes|t 450 -n|
|000036f0| 65 20 60 77 63 20 2d 63 | 20 3c 73 65 63 6f 6e 64 |e `wc -c| <second|
|00003700| 2e 75 63 62 2e 63 60 3b | 20 74 68 65 6e 0a 20 20 |.ucb.c`;| then. |
|00003710| 20 20 65 63 68 6f 20 73 | 68 61 72 3a 20 5c 22 73 | echo s|har: \"s|
|00003720| 65 63 6f 6e 64 2e 75 63 | 62 2e 63 5c 22 20 75 6e |econd.uc|b.c\" un|
|00003730| 70 61 63 6b 65 64 20 77 | 69 74 68 20 77 72 6f 6e |packed w|ith wron|
|00003740| 67 20 73 69 7a 65 21 0a | 66 69 0a 23 20 65 6e 64 |g size!.|fi.# end|
|00003750| 20 6f 66 20 6f 76 65 72 | 77 72 69 74 69 6e 67 20 | of over|writing |
|00003760| 63 68 65 63 6b 0a 66 69 | 0a 69 66 20 74 65 73 74 |check.fi|.if test|
|00003770| 20 2d 66 20 74 63 6f 72 | 6c 2e 63 20 2d 61 20 22 | -f tcor|l.c -a "|
|00003780| 24 7b 31 7d 22 20 21 3d | 20 22 2d 63 22 20 3b 20 |${1}" !=| "-c" ; |
|00003790| 74 68 65 6e 20 0a 20 20 | 65 63 68 6f 20 73 68 61 |then . |echo sha|
|000037a0| 72 3a 20 57 69 6c 6c 20 | 6e 6f 74 20 6f 76 65 72 |r: Will |not over|
|000037b0| 2d 77 72 69 74 65 20 65 | 78 69 73 74 69 6e 67 20 |-write e|xisting |
|000037c0| 66 69 6c 65 20 5c 22 74 | 63 6f 72 6c 2e 63 5c 22 |file \"t|corl.c\"|
|000037d0| 0a 65 6c 73 65 0a 65 63 | 68 6f 20 73 68 61 72 3a |.else.ec|ho shar:|
|000037e0| 20 45 78 74 72 61 63 74 | 69 6e 67 20 5c 22 74 63 | Extract|ing \"tc|
|000037f0| 6f 72 6c 2e 63 5c 22 20 | 5c 28 35 38 36 36 20 63 |orl.c\" |\(5866 c|
|00003800| 68 61 72 61 63 74 65 72 | 73 5c 29 0a 73 65 64 20 |haracter|s\).sed |
|00003810| 22 73 2f 5e 58 2f 2f 22 | 20 3e 74 63 6f 72 6c 2e |"s/^X//"| >tcorl.|
|00003820| 63 20 3c 3c 27 45 4e 44 | 5f 4f 46 5f 74 63 6f 72 |c <<'END|_OF_tcor|
|00003830| 6c 2e 63 27 0a 58 2f 2a | 20 20 56 45 52 53 49 4f |l.c'.X/*| VERSIO|
|00003840| 4e 20 4f 46 20 53 54 50 | 20 53 55 42 52 4f 55 54 |N OF STP| SUBROUT|
|00003850| 49 4e 45 20 54 43 4f 52 | 4c 3a 20 53 49 4e 47 4c |INE TCOR|L: SINGL|
|00003860| 45 20 50 52 45 43 49 53 | 49 4f 4e 20 20 20 20 20 |E PRECIS|ION |
|00003870| 20 2a 2f 0a 58 2f 2a 20 | 20 50 44 4c 20 56 45 52 | */.X/* | PDL VER|
|00003880| 53 49 4f 4e 20 20 20 20 | 20 20 20 20 20 20 20 20 |SION | |
|00003890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000038a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000038b0| 2a 2f 0a 58 0a 58 6d 61 | 69 6e 28 29 0a 58 7b 0a |*/.X.Xma|in().X{.|
|000038c0| 58 69 6e 74 20 20 20 69 | 2c 6a 3b 0a 58 69 6e 74 |Xint i|,j;.Xint|
|000038d0| 20 20 20 63 6f 70 74 72 | 2c 7a 6c 70 74 72 3b 20 | coptr|,zlptr; |
|000038e0| 20 20 0a 58 69 6e 74 20 | 20 20 69 69 69 3b 20 0a | .Xint | iii; .|
|000038f0| 58 66 6c 6f 61 74 20 7a | 63 6d 2c 74 73 74 61 74 |Xfloat z|cm,tstat|
|00003900| 2c 64 65 6c 74 69 6d 3b | 20 20 20 0a 58 66 6c 6f |,deltim;| .Xflo|
|00003910| 61 74 20 7a 74 63 38 2c | 7a 74 63 34 3b 20 20 20 |at ztc8,|ztc4; |
|00003920| 20 20 20 0a 58 66 6c 6f | 61 74 20 63 6f 6f 72 64 | .Xflo|at coord|
|00003930| 78 2c 63 6f 6f 72 64 79 | 2c 63 6f 6f 72 64 7a 3b |x,coordy|,coordz;|
|00003940| 20 20 20 0a 58 66 6c 6f | 61 74 20 63 6f 6f 72 76 | .Xflo|at coorv|
|00003950| 78 2c 63 6f 6f 72 76 79 | 2c 63 6f 6f 72 76 7a 3b |x,coorvy|,coorvz;|
|00003960| 20 20 20 20 20 20 0a 58 | 66 6c 6f 61 74 20 74 68 | .X|float th|
|00003970| 65 65 33 35 2c 74 68 65 | 65 34 35 3b 0a 58 66 6c |ee35,the|e45;.Xfl|
|00003980| 6f 61 74 20 63 6f 76 31 | 31 2c 63 6f 76 31 33 2c |oat cov1|1,cov13,|
|00003990| 63 6f 76 32 32 2c 63 6f | 76 32 34 3b 0a 58 66 6c |cov22,co|v24;.Xfl|
|000039a0| 6f 61 74 20 63 6f 76 33 | 33 2c 63 6f 76 33 35 2c |oat cov3|3,cov35,|
|000039b0| 63 6f 76 34 34 2c 63 6f | 76 34 35 3b 0a 58 66 6c |cov44,co|v45;.Xfl|
|000039c0| 6f 61 74 20 73 69 67 64 | 7a 31 2c 73 69 67 64 7a |oat sigd|z1,sigdz|
|000039d0| 32 2c 73 69 67 64 7a 33 | 3b 0a 58 66 6c 6f 61 74 |2,sigdz3|;.Xfloat|
|000039e0| 20 73 69 67 76 7a 31 2c | 73 69 67 76 7a 32 2c 73 | sigvz1,|sigvz2,s|
|000039f0| 69 67 76 7a 33 3b 0a 58 | 66 6c 6f 61 74 20 64 65 |igvz3;.X|float de|
|00003a00| 6c 74 64 78 2c 64 65 6c | 74 64 79 2c 64 65 6c 74 |ltdx,del|tdy,delt|
|00003a10| 64 7a 3b 0a 58 66 6c 6f | 61 74 20 64 65 6c 74 76 |dz;.Xflo|at deltv|
|00003a20| 78 2c 64 65 6c 74 76 79 | 2c 64 65 6c 74 76 7a 3b |x,deltvy|,deltvz;|
|00003a30| 0a 58 66 6c 6f 61 74 20 | 64 65 6c 74 64 7a 31 2c |.Xfloat |deltdz1,|
|00003a40| 64 65 6c 74 64 7a 32 2c | 64 65 6c 74 64 7a 33 3b |deltdz2,|deltdz3;|
|00003a50| 0a 58 66 6c 6f 61 74 20 | 64 65 6c 74 76 7a 31 2c |.Xfloat |deltvz1,|
|00003a60| 64 65 6c 74 76 7a 32 2c | 64 65 6c 74 76 7a 33 3b |deltvz2,|deltvz3;|
|00003a70| 0a 58 66 6c 6f 61 74 20 | 73 69 67 63 7a 31 2c 73 |.Xfloat |sigcz1,s|
|00003a80| 69 67 63 7a 32 2c 73 69 | 67 63 7a 33 3b 0a 58 66 |igcz2,si|gcz3;.Xf|
|00003a90| 6c 6f 61 74 20 73 69 67 | 74 7a 31 2c 73 69 67 74 |loat sig|tz1,sigt|
|00003aa0| 7a 32 2c 73 69 67 74 7a | 33 3b 0a 58 66 6c 6f 61 |z2,sigtz|3;.Xfloa|
|00003ab0| 74 20 7a 73 74 6d 5b 31 | 5d 5b 31 30 30 5d 3b 20 |t zstm[1|][100]; |
|00003ac0| 20 20 0a 58 66 6c 6f 61 | 74 20 7a 73 66 72 5b 36 | .Xfloa|t zsfr[6|
|00003ad0| 5d 5b 31 30 30 5d 3b 20 | 20 20 0a 58 66 6c 6f 61 |][100]; | .Xfloa|
|00003ae0| 74 20 7a 74 61 63 63 5b | 33 5d 5b 31 30 30 5d 3b |t ztacc[|3][100];|
|00003af0| 0a 58 66 6c 6f 61 74 20 | 7a 72 76 6f 5b 33 5d 5b |.Xfloat |zrvo[3][|
|00003b00| 31 30 30 5d 3b 0a 58 66 | 6c 6f 61 74 20 7a 64 72 |100];.Xf|loat zdr|
|00003b10| 67 78 5b 33 5d 5b 31 30 | 30 5d 3b 0a 58 66 6c 6f |gx[3][10|0];.Xflo|
|00003b20| 61 74 20 7a 72 76 69 5b | 31 35 5d 5b 31 30 30 5d |at zrvi[|15][100]|
|00003b30| 3b 20 20 20 0a 58 66 6c | 6f 61 74 20 7a 74 6d 61 |; .Xfl|oat ztma|
|00003b40| 74 5b 39 5d 5b 31 30 30 | 5d 3b 20 20 20 0a 58 69 |t[9][100|]; .Xi|
|00003b50| 6e 74 20 70 68 61 73 65 | 3b 0a 58 0a 58 70 72 69 |nt phase|;.X.Xpri|
|00003b60| 6e 74 66 28 22 65 6e 74 | 65 72 20 70 68 61 73 65 |ntf("ent|er phase|
|00003b70| 20 70 72 69 6f 72 20 74 | 6f 20 68 61 6c 74 69 6e | prior t|o haltin|
|00003b80| 67 20 28 31 20 3d 20 69 | 6e 69 74 69 61 6c 69 7a |g (1 = i|nitializ|
|00003b90| 61 74 69 6f 6e 20 6f 6e | 6c 79 29 20 5c 6e 22 29 |ation on|ly) \n")|
|00003ba0| 3b 0a 58 73 63 61 6e 66 | 20 28 22 25 36 64 22 2c |;.Xscanf| ("%6d",|
|00003bb0| 20 26 70 68 61 73 65 29 | 3b 0a 58 0a 58 0a 58 20 | &phase)|;.X.X.X |
|00003bc0| 20 20 66 6f 72 20 28 69 | 20 3d 20 30 3b 20 69 20 | for (i| = 0; i |
|00003bd0| 3c 20 31 30 30 3b 20 69 | 2b 2b 29 0a 58 20 20 20 |< 100; i|++).X |
|00003be0| 20 20 20 7a 73 74 6d 5b | 30 5d 5b 69 5d 20 3d 20 | zstm[|0][i] = |
|00003bf0| 33 2e 30 3b 0a 58 0a 58 | 20 20 20 66 6f 72 20 28 |3.0;.X.X| for (|
|00003c00| 69 20 3d 20 30 3b 20 69 | 20 3c 20 36 3b 20 69 2b |i = 0; i| < 6; i+|
|00003c10| 2b 29 0a 58 20 20 20 20 | 20 20 66 6f 72 20 28 6a |+).X | for (j|
|00003c20| 20 3d 20 30 3b 20 6a 20 | 3c 20 31 30 30 3b 20 6a | = 0; j |< 100; j|
|00003c30| 2b 2b 29 0a 58 20 20 20 | 20 20 20 20 20 20 7a 73 |++).X | zs|
|00003c40| 66 72 5b 69 5d 5b 6a 5d | 20 3d 20 33 2e 30 3b 0a |fr[i][j]| = 3.0;.|
|00003c50| 58 0a 58 20 20 20 66 6f | 72 20 28 69 20 3d 20 30 |X.X fo|r (i = 0|
|00003c60| 3b 20 69 20 3c 20 33 3b | 20 69 2b 2b 29 0a 58 20 |; i < 3;| i++).X |
|00003c70| 20 20 20 20 20 66 6f 72 | 20 28 6a 20 3d 20 30 3b | for| (j = 0;|
|00003c80| 20 6a 20 3c 20 31 30 30 | 3b 20 6a 2b 2b 29 7b 0a | j < 100|; j++){.|
|00003c90| 58 20 20 20 20 20 20 20 | 20 20 7a 74 61 63 63 5b |X | ztacc[|
|00003ca0| 69 5d 5b 6a 5d 20 3d 20 | 33 2e 30 3b 0a 58 20 20 |i][j] = |3.0;.X |
|00003cb0| 20 20 20 20 20 20 20 7a | 72 76 6f 5b 69 5d 5b 6a | z|rvo[i][j|
|00003cc0| 5d 20 3d 20 33 2e 30 3b | 0a 58 20 20 20 20 20 20 |] = 3.0;|.X |
|00003cd0| 20 20 20 7a 64 72 67 78 | 5b 69 5d 5b 6a 5d 20 3d | zdrgx|[i][j] =|
|00003ce0| 20 33 2e 30 3b 0a 58 20 | 20 20 20 20 20 7d 0a 58 | 3.0;.X | }.X|
|00003cf0| 0a 58 20 20 20 66 6f 72 | 20 28 69 20 3d 20 30 3b |.X for| (i = 0;|
|00003d00| 20 69 20 3c 20 31 35 3b | 20 69 2b 2b 29 0a 58 20 | i < 15;| i++).X |
|00003d10| 20 20 20 20 20 66 6f 72 | 20 28 6a 20 3d 20 30 3b | for| (j = 0;|
|00003d20| 20 6a 20 3c 20 31 30 30 | 3b 20 6a 2b 2b 29 0a 58 | j < 100|; j++).X|
|00003d30| 20 20 20 20 20 20 20 20 | 20 7a 72 76 69 5b 69 5d | | zrvi[i]|
|00003d40| 5b 6a 5d 20 3d 20 33 2e | 30 3b 0a 58 0a 58 20 20 |[j] = 3.|0;.X.X |
|00003d50| 20 66 6f 72 20 28 69 20 | 3d 20 30 3b 20 69 20 3c | for (i |= 0; i <|
|00003d60| 20 39 3b 20 69 2b 2b 29 | 0a 58 20 20 20 20 20 20 | 9; i++)|.X |
|00003d70| 66 6f 72 20 28 6a 20 3d | 20 30 3b 20 6a 20 3c 20 |for (j =| 0; j < |
|00003d80| 31 30 30 3b 20 6a 2b 2b | 29 0a 58 20 20 20 20 20 |100; j++|).X |
|00003d90| 20 20 20 20 7a 74 6d 61 | 74 5b 69 5d 5b 6a 5d 20 | ztma|t[i][j] |
|00003da0| 3d 20 33 2e 30 3b 0a 58 | 0a 58 2f 2a 20 20 52 45 |= 3.0;.X|.X/* RE|
|00003db0| 41 44 20 4f 52 20 49 4e | 49 54 49 41 4c 49 5a 45 |AD OR IN|ITIALIZE|
|00003dc0| 20 41 4c 4c 20 56 41 52 | 49 41 42 4c 45 53 20 20 | ALL VAR|IABLES |
|00003dd0| 2a 2f 0a 58 0a 58 20 20 | 20 7a 6c 70 74 72 20 3d |*/.X.X | zlptr =|
|00003de0| 20 31 30 30 3b 0a 58 20 | 20 20 7a 73 74 6d 5b 30 | 100;.X | zstm[0|
|00003df0| 5d 5b 30 5d 20 3d 20 35 | 2e 30 3b 0a 58 0a 58 20 |][0] = 5|.0;.X.X |
|00003e00| 20 20 66 6f 72 20 28 69 | 69 69 20 3d 20 30 3b 20 | for (i|ii = 0; |
|00003e10| 69 69 69 20 3c 20 31 3b | 20 69 69 69 2b 2b 29 7b |iii < 1;| iii++){|
|00003e20| 0a 58 2f 2a 20 20 50 41 | 53 53 20 4c 41 42 45 4c |.X/* PA|SS LABEL|
|00003e30| 20 54 4f 20 41 53 53 45 | 4d 42 4c 59 20 4c 41 4e | TO ASSE|MBLY LAN|
|00003e40| 47 55 41 47 45 20 20 20 | 2a 2f 0a 58 0a 58 2f 2a |GUAGE |*/.X.X/*|
|00003e50| 20 20 20 20 20 20 61 73 | 6d 28 22 74 69 6d 73 74 | as|m("timst|
|00003e60| 72 3a 22 29 3b 20 2a 2f | 0a 58 20 20 20 20 20 20 |r:"); */|.X |
|00003e70| 66 6f 72 20 28 69 20 3d | 20 30 3b 20 69 20 3c 20 |for (i =| 0; i < |
|00003e80| 31 3b 20 69 2b 2b 29 7b | 0a 58 2f 2a 20 20 53 54 |1; i++){|.X/* ST|
|00003e90| 41 52 54 20 42 45 4e 43 | 48 4d 41 52 4b 20 31 20 |ART BENC|HMARK 1 |
|00003ea0| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|00003eb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003ec0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 20 |********|******* |
|00003ed0| 2a 2f 0a 58 0a 58 69 66 | 20 28 31 20 3d 3d 20 70 |*/.X.Xif| (1 == p|
|00003ee0| 68 61 73 65 29 20 0a 58 | 20 20 65 78 69 74 28 31 |hase) .X| exit(1|
|00003ef0| 29 3b 0a 58 0a 58 2f 2a | 20 20 49 4e 49 54 49 41 |);.X.X/*| INITIA|
|00003f00| 4c 49 5a 45 20 54 48 45 | 20 43 41 4e 44 49 44 41 |LIZE THE| CANDIDA|
|00003f10| 54 45 20 4f 42 4a 45 43 | 54 20 50 4f 49 4e 54 45 |TE OBJEC|T POINTE|
|00003f20| 52 20 20 2a 2f 0a 58 20 | 20 20 20 20 20 20 20 20 |R */.X | |
|00003f30| 63 6f 70 74 72 20 3d 20 | 30 3b 0a 58 0a 58 2f 2a |coptr = |0;.X.X/*|
|00003f40| 20 20 49 4e 43 52 45 4d | 45 4e 54 20 54 52 54 54 | INCREM|ENT TRTT|
|00003f50| 27 53 20 54 49 4d 45 52 | 20 20 2a 2f 0a 58 20 20 |'S TIMER| */.X |
|00003f60| 20 20 20 20 20 20 20 7a | 63 6d 20 3d 20 7a 63 6d | z|cm = zcm|
|00003f70| 20 2b 20 7a 74 63 38 3b | 0a 58 0a 58 2f 2a 20 20 | + ztc8;|.X.X/* |
|00003f80| 53 45 54 20 54 48 45 20 | 43 41 4e 44 49 44 41 54 |SET THE |CANDIDAT|
|00003f90| 45 20 4f 42 4a 45 43 54 | 20 50 4f 49 4e 54 45 52 |E OBJECT| POINTER|
|00003fa0| 20 54 4f 20 54 48 45 20 | 4e 45 58 54 20 4f 42 4a | TO THE |NEXT OBJ|
|00003fb0| 45 43 54 20 20 2a 2f 0a | 58 20 20 20 20 20 20 20 |ECT */.|X |
|00003fc0| 20 20 64 6f 20 7b 0a 58 | 20 20 20 20 20 20 20 20 | do {.X| |
|00003fd0| 20 20 20 20 63 6f 70 74 | 72 20 3d 20 63 6f 70 74 | copt|r = copt|
|00003fe0| 72 20 2b 20 31 3b 0a 58 | 0a 58 2f 2a 20 20 50 52 |r + 1;.X|.X/* PR|
|00003ff0| 4f 50 41 47 41 54 45 20 | 43 41 4e 44 49 44 41 54 |OPAGATE |CANDIDAT|
|00004000| 45 20 4f 42 4a 45 43 54 | 27 53 20 52 41 44 41 52 |E OBJECT|'S RADAR|
|00004010| 20 46 41 43 45 20 43 41 | 52 54 45 53 49 41 4e 20 | FACE CA|RTESIAN |
|00004020| 43 4f 4f 52 44 49 4e 41 | 54 45 0a 58 20 20 20 28 |COORDINA|TE.X (|
|00004030| 52 46 43 43 29 20 53 54 | 41 54 45 20 56 45 43 54 |RFCC) ST|ATE VECT|
|00004040| 4f 52 20 54 4f 20 54 48 | 45 20 54 49 4d 45 20 4f |OR TO TH|E TIME O|
|00004050| 46 20 54 48 45 20 54 45 | 53 54 20 4f 42 4a 45 43 |F THE TE|ST OBJEC|
|00004060| 54 27 53 20 53 54 41 54 | 45 20 56 45 43 54 4f 52 |T'S STAT|E VECTOR|
|00004070| 20 2a 2f 0a 58 0a 58 20 | 20 20 20 20 20 20 20 20 | */.X.X | |
|00004080| 20 20 20 64 65 6c 74 69 | 6d 20 3d 20 7a 73 74 6d | delti|m = zstm|
|00004090| 5b 30 5d 5b 30 5d 20 2d | 20 7a 73 74 6d 5b 30 5d |[0][0] -| zstm[0]|
|000040a0| 5b 63 6f 70 74 72 5d 3b | 0a 58 20 20 20 20 20 20 |[coptr];|.X |
|000040b0| 20 20 20 20 20 20 63 6f | 6f 72 64 78 20 3d 20 7a | co|ordx = z|
|000040c0| 73 66 72 5b 30 5d 5b 63 | 6f 70 74 72 5d 20 2b 0a |sfr[0][c|optr] +.|
|000040d0| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |X | |
|000040e0| 28 20 7a 73 66 72 5b 33 | 5d 5b 63 6f 70 74 72 5d |( zsfr[3|][coptr]|
|000040f0| 20 2b 20 30 2e 35 20 2a | 20 7a 74 61 63 63 5b 30 | + 0.5 *| ztacc[0|
|00004100| 5d 5b 63 6f 70 74 72 5d | 20 2a 20 64 65 6c 74 69 |][coptr]| * delti|
|00004110| 6d 29 20 2a 20 64 65 6c | 74 69 6d 3b 0a 58 20 20 |m) * del|tim;.X |
|00004120| 20 20 20 20 20 20 20 20 | 20 20 63 6f 6f 72 64 79 | | coordy|
|00004130| 20 3d 20 7a 73 66 72 5b | 31 5d 5b 63 6f 70 74 72 | = zsfr[|1][coptr|
|00004140| 5d 20 2b 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |] +.X | |
|00004150| 20 20 20 20 28 20 7a 73 | 66 72 5b 34 5d 5b 63 6f | ( zs|fr[4][co|
|00004160| 70 74 72 5d 20 2b 20 30 | 2e 35 20 2a 20 7a 74 61 |ptr] + 0|.5 * zta|
|00004170| 63 63 5b 31 5d 5b 63 6f | 70 74 72 5d 20 2a 20 64 |cc[1][co|ptr] * d|
|00004180| 65 6c 74 69 6d 29 20 2a | 20 64 65 6c 74 69 6d 3b |eltim) *| deltim;|
|00004190| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 63 6f |.X | co|
|000041a0| 6f 72 64 7a 20 3d 20 7a | 73 66 72 5b 32 5d 5b 63 |ordz = z|sfr[2][c|
|000041b0| 6f 70 74 72 5d 20 2b 0a | 58 20 20 20 20 20 20 20 |optr] +.|X |
|000041c0| 20 20 20 20 20 20 20 20 | 28 20 7a 73 66 72 5b 35 | |( zsfr[5|
|000041d0| 5d 5b 63 6f 70 74 72 5d | 20 2b 20 30 2e 35 20 2a |][coptr]| + 0.5 *|
|000041e0| 20 7a 74 61 63 63 5b 32 | 5d 5b 63 6f 70 74 72 5d | ztacc[2|][coptr]|
|000041f0| 20 2a 20 64 65 6c 74 69 | 6d 29 20 2a 20 64 65 6c | * delti|m) * del|
|00004200| 74 69 6d 3b 0a 58 20 20 | 20 20 20 20 20 20 20 20 |tim;.X | |
|00004210| 20 20 63 6f 6f 72 76 78 | 20 3d 20 7a 73 66 72 5b | coorvx| = zsfr[|
|00004220| 33 5d 5b 63 6f 70 74 72 | 5d 20 2b 20 7a 74 61 63 |3][coptr|] + ztac|
|00004230| 63 5b 30 5d 5b 63 6f 70 | 74 72 5d 20 2a 20 64 65 |c[0][cop|tr] * de|
|00004240| 6c 74 69 6d 3b 0a 58 20 | 20 20 20 20 20 20 20 20 |ltim;.X | |
|00004250| 20 20 20 63 6f 6f 72 76 | 79 20 3d 20 7a 73 66 72 | coorv|y = zsfr|
|00004260| 5b 34 5d 5b 63 6f 70 74 | 72 5d 20 2b 20 7a 74 61 |[4][copt|r] + zta|
|00004270| 63 63 5b 31 5d 5b 63 6f | 70 74 72 5d 20 2a 20 64 |cc[1][co|ptr] * d|
|00004280| 65 6c 74 69 6d 3b 0a 58 | 20 20 20 20 20 20 20 20 |eltim;.X| |
|00004290| 20 20 20 20 63 6f 6f 72 | 76 7a 20 3d 20 7a 73 66 | coor|vz = zsf|
|000042a0| 72 5b 35 5d 5b 63 6f 70 | 74 72 5d 20 2b 20 7a 74 |r[5][cop|tr] + zt|
|000042b0| 61 63 63 5b 32 5d 5b 63 | 6f 70 74 72 5d 20 2a 20 |acc[2][c|optr] * |
|000042c0| 64 65 6c 74 69 6d 3b 0a | 58 0a 58 2f 2a 20 20 50 |deltim;.|X.X/* P|
|000042d0| 52 4f 50 41 47 41 54 45 | 20 54 48 45 20 52 56 43 |ROPAGATE| THE RVC|
|000042e0| 43 20 53 54 41 54 45 20 | 45 52 52 4f 52 20 43 4f |C STATE |ERROR CO|
|000042f0| 56 41 52 49 41 4e 43 45 | 20 45 4c 45 4d 45 4e 54 |VARIANCE| ELEMENT|
|00004300| 53 20 4f 46 20 54 48 45 | 20 0a 58 20 20 20 20 20 |S OF THE| .X |
|00004310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 43 41 4e | | CAN|
|00004320| 44 49 44 41 54 45 20 4f | 42 4a 45 43 54 20 20 2a |DIDATE O|BJECT *|
|00004330| 2f 0a 58 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |/.X.X | |
|00004340| 20 74 68 65 65 33 35 20 | 3d 20 64 65 6c 74 69 6d | thee35 |= deltim|
|00004350| 20 2a 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 | *.X | |
|00004360| 20 20 20 28 7a 64 72 67 | 78 5b 30 5d 5b 63 6f 70 | (zdrg|x[0][cop|
|00004370| 74 72 5d 20 2a 20 7a 74 | 6d 61 74 5b 30 5d 5b 63 |tr] * zt|mat[0][c|
|00004380| 6f 70 74 72 5d 0a 58 20 | 20 20 20 20 20 20 20 20 |optr].X | |
|00004390| 20 20 20 20 20 20 2b 7a | 64 72 67 78 5b 31 5d 5b | +z|drgx[1][|
|000043a0| 63 6f 70 74 72 5d 20 2a | 20 7a 74 6d 61 74 5b 33 |coptr] *| ztmat[3|
|000043b0| 5d 5b 63 6f 70 74 72 5d | 0a 58 20 20 20 20 20 20 |][coptr]|.X |
|000043c0| 20 20 20 20 20 20 20 20 | 20 2b 7a 64 72 67 78 5b | | +zdrgx[|
|000043d0| 32 5d 5b 63 6f 70 74 72 | 5d 20 2a 20 7a 74 6d 61 |2][coptr|] * ztma|
|000043e0| 74 5b 36 5d 5b 63 6f 70 | 74 72 5d 20 29 3b 0a 58 |t[6][cop|tr] );.X|
|000043f0| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 20 74 68 |.X | th|
|00004400| 65 65 34 35 20 3d 20 64 | 65 6c 74 69 6d 20 2a 0a |ee45 = d|eltim *.|
|00004410| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |X | |
|00004420| 28 7a 64 72 67 78 5b 30 | 5d 5b 63 6f 70 74 72 5d |(zdrgx[0|][coptr]|
|00004430| 20 2a 20 7a 74 6d 61 74 | 5b 30 5d 5b 63 6f 70 74 | * ztmat|[0][copt|
|00004440| 72 5d 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |r].X | |
|00004450| 20 20 20 2b 7a 64 72 67 | 78 5b 31 5d 5b 63 6f 70 | +zdrg|x[1][cop|
|00004460| 74 72 5d 20 2a 20 7a 74 | 6d 61 74 5b 34 5d 5b 63 |tr] * zt|mat[4][c|
|00004470| 6f 70 74 72 5d 0a 58 20 | 20 20 20 20 20 20 20 20 |optr].X | |
|00004480| 20 20 20 20 20 20 2b 7a | 64 72 67 78 5b 32 5d 5b | +z|drgx[2][|
|00004490| 63 6f 70 74 72 5d 20 2a | 20 7a 74 6d 61 74 5b 37 |coptr] *| ztmat[7|
|000044a0| 5d 5b 63 6f 70 74 72 5d | 20 29 3b 0a 58 0a 58 20 |][coptr]| );.X.X |
|000044b0| 20 20 20 20 20 20 20 20 | 20 20 20 63 6f 76 31 31 | | cov11|
|000044c0| 20 3d 20 7a 72 76 69 5b | 30 5d 5b 63 6f 70 74 72 | = zrvi[|0][coptr|
|000044d0| 5d 20 2b 20 7a 72 76 69 | 5b 32 5d 5b 63 6f 70 74 |] + zrvi|[2][copt|
|000044e0| 72 5d 20 2a 20 64 65 6c | 74 69 6d 3b 0a 58 20 20 |r] * del|tim;.X |
|000044f0| 20 20 20 20 20 20 20 20 | 20 20 63 6f 76 31 33 20 | | cov13 |
|00004500| 3d 20 7a 72 76 69 5b 32 | 5d 5b 63 6f 70 74 72 5d |= zrvi[2|][coptr]|
|00004510| 20 2b 20 7a 72 76 69 5b | 39 5d 5b 63 6f 70 74 72 | + zrvi[|9][coptr|
|00004520| 5d 20 2a 20 64 65 6c 74 | 69 6d 3b 0a 58 20 20 20 |] * delt|im;.X |
|00004530| 20 20 20 20 20 20 20 20 | 20 63 6f 76 32 32 20 3d | | cov22 =|
|00004540| 20 7a 72 76 69 5b 35 5d | 5b 63 6f 70 74 72 5d 20 | zrvi[5]|[coptr] |
|00004550| 2b 20 7a 72 76 69 5b 37 | 5d 5b 63 6f 70 74 72 5d |+ zrvi[7|][coptr]|
|00004560| 20 2a 20 64 65 6c 74 69 | 6d 3b 0a 58 20 20 20 20 | * delti|m;.X |
|00004570| 20 20 20 20 20 20 20 20 | 63 6f 76 32 34 20 3d 20 | |cov24 = |
|00004580| 7a 72 76 69 5b 37 5d 5b | 63 6f 70 74 72 5d 20 2b |zrvi[7][|coptr] +|
|00004590| 20 7a 72 76 69 5b 31 32 | 5d 5b 63 6f 70 74 72 5d | zrvi[12|][coptr]|
|000045a0| 20 2a 20 64 65 6c 74 69 | 6d 3b 0a 58 20 20 20 20 | * delti|m;.X |
|000045b0| 20 20 20 20 20 20 20 20 | 63 6f 76 33 33 20 3d 20 | |cov33 = |
|000045c0| 7a 72 76 69 5b 39 5d 5b | 63 6f 70 74 72 5d 20 2b |zrvi[9][|coptr] +|
|000045d0| 20 7a 72 76 69 5b 31 31 | 5d 5b 63 6f 70 74 72 5d | zrvi[11|][coptr]|
|000045e0| 20 2a 20 74 68 65 65 33 | 35 3b 0a 58 20 20 20 20 | * thee3|5;.X |
|000045f0| 20 20 20 20 20 20 20 20 | 63 6f 76 33 35 20 3d 20 | |cov35 = |
|00004600| 7a 72 76 69 5b 31 31 5d | 5b 63 6f 70 74 72 5d 20 |zrvi[11]|[coptr] |
|00004610| 2b 20 7a 72 76 69 5b 31 | 34 5d 5b 63 6f 70 74 72 |+ zrvi[1|4][coptr|
|00004620| 5d 20 2a 20 74 68 65 65 | 33 35 3b 0a 58 20 20 20 |] * thee|35;.X |
|00004630| 20 20 20 20 20 20 20 20 | 20 63 6f 76 34 34 20 3d | | cov44 =|
|00004640| 20 7a 72 76 69 5b 31 32 | 5d 5b 63 6f 70 74 72 5d | zrvi[12|][coptr]|
|00004650| 20 2b 20 7a 72 76 69 5b | 31 33 5d 5b 63 6f 70 74 | + zrvi[|13][copt|
|00004660| 72 5d 20 2a 20 74 68 65 | 65 34 35 3b 0a 58 20 20 |r] * the|e45;.X |
|00004670| 20 20 20 20 20 20 20 20 | 20 20 63 6f 76 34 35 20 | | cov45 |
|00004680| 3d 20 7a 72 76 69 5b 31 | 33 5d 5b 63 6f 70 74 72 |= zrvi[1|3][coptr|
|00004690| 5d 20 2b 20 7a 72 76 69 | 5b 31 34 5d 5b 63 6f 70 |] + zrvi|[14][cop|
|000046a0| 74 72 5d 20 2a 20 74 68 | 65 65 34 35 3b 0a 58 0a |tr] * th|ee45;.X.|
|000046b0| 58 20 20 20 20 20 20 20 | 20 20 20 20 20 73 69 67 |X | sig|
|000046c0| 64 7a 31 20 3d 20 63 6f | 76 31 31 20 2b 20 63 6f |dz1 = co|v11 + co|
|000046d0| 76 31 33 20 2a 20 64 65 | 6c 74 69 6d 3b 0a 58 20 |v13 * de|ltim;.X |
|000046e0| 20 20 20 20 20 20 20 20 | 20 20 20 73 69 67 64 7a | | sigdz|
|000046f0| 32 20 3d 20 63 6f 76 32 | 32 20 2b 20 63 6f 76 32 |2 = cov2|2 + cov2|
|00004700| 34 20 2a 20 64 65 6c 74 | 69 6d 3b 0a 58 20 20 20 |4 * delt|im;.X |
|00004710| 20 20 20 20 20 20 20 20 | 20 73 69 67 76 7a 31 20 | | sigvz1 |
|00004720| 3d 20 63 6f 76 33 33 20 | 2b 20 63 6f 76 33 35 20 |= cov33 |+ cov35 |
|00004730| 2a 20 74 68 65 65 33 35 | 3b 0a 58 20 20 20 20 20 |* thee35|;.X |
|00004740| 20 20 20 20 20 20 20 73 | 69 67 76 7a 32 20 3d 20 | s|igvz2 = |
|00004750| 63 6f 76 34 34 20 2b 20 | 63 6f 76 34 35 20 2a 20 |cov44 + |cov45 * |
|00004760| 74 68 65 65 34 35 3b 0a | 58 20 20 20 20 20 20 20 |thee45;.|X |
|00004770| 20 20 20 20 20 73 69 67 | 64 7a 33 20 3d 20 7a 72 | sig|dz3 = zr|
|00004780| 76 6f 5b 31 5d 5b 63 6f | 70 74 72 5d 20 2b 0a 58 |vo[1][co|ptr] +.X|
|00004790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 | | (|
|000047a0| 32 2e 30 20 2a 20 7a 72 | 76 6f 5b 31 5d 5b 63 6f |2.0 * zr|vo[1][co|
|000047b0| 70 74 72 5d 20 2b 20 7a | 72 76 6f 5b 32 5d 5b 63 |ptr] + z|rvo[2][c|
|000047c0| 6f 70 74 72 5d 20 2a 20 | 64 65 6c 74 69 6d 29 20 |optr] * |deltim) |
|000047d0| 2a 20 64 65 6c 74 69 6d | 3b 0a 58 20 20 20 20 20 |* deltim|;.X |
|000047e0| 20 20 20 20 20 20 20 73 | 69 67 76 7a 33 20 3d 20 | s|igvz3 = |
|000047f0| 7a 72 76 6f 5b 32 5d 5b | 63 6f 70 74 72 5d 3b 0a |zrvo[2][|coptr];.|
|00004800| 58 0a 58 2f 2a 20 20 54 | 41 4b 45 20 54 48 45 20 |X.X/* T|AKE THE |
|00004810| 44 49 46 46 45 52 45 4e | 43 45 20 42 45 54 57 45 |DIFFEREN|CE BETWE|
|00004820| 45 4e 20 54 45 53 54 20 | 41 4e 44 20 43 41 4e 44 |EN TEST |AND CAND|
|00004830| 49 44 41 54 45 20 4f 42 | 4a 45 43 54 20 53 54 41 |IDATE OB|JECT STA|
|00004840| 54 45 53 20 20 2a 2f 0a | 58 20 20 20 20 20 20 20 |TES */.|X |
|00004850| 20 20 20 20 20 64 65 6c | 74 64 78 20 3d 20 7a 73 | del|tdx = zs|
|00004860| 66 72 5b 30 5d 5b 30 5d | 20 2d 20 63 6f 6f 72 64 |fr[0][0]| - coord|
|00004870| 78 3b 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |x;.X | |
|00004880| 64 65 6c 74 64 79 20 3d | 20 7a 73 66 72 5b 31 5d |deltdy =| zsfr[1]|
|00004890| 5b 30 5d 20 2d 20 63 6f | 6f 72 64 79 3b 0a 58 20 |[0] - co|ordy;.X |
|000048a0| 20 20 20 20 20 20 20 20 | 20 20 20 64 65 6c 74 64 | | deltd|
|000048b0| 7a 20 3d 20 7a 73 66 72 | 5b 32 5d 5b 30 5d 20 2d |z = zsfr|[2][0] -|
|000048c0| 20 63 6f 6f 72 64 7a 3b | 0a 58 20 20 20 20 20 20 | coordz;|.X |
|000048d0| 20 20 20 20 20 20 64 65 | 6c 74 76 78 20 3d 20 7a | de|ltvx = z|
|000048e0| 73 66 72 5b 33 5d 5b 30 | 5d 20 2d 20 63 6f 6f 72 |sfr[3][0|] - coor|
|000048f0| 76 78 3b 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |vx;.X | |
|00004900| 20 64 65 6c 74 76 79 20 | 3d 20 7a 73 66 72 5b 34 | deltvy |= zsfr[4|
|00004910| 5d 5b 30 5d 20 2d 20 63 | 6f 6f 72 76 79 3b 0a 58 |][0] - c|oorvy;.X|
|00004920| 20 20 20 20 20 20 20 20 | 20 20 20 20 64 65 6c 74 | | delt|
|00004930| 76 7a 20 3d 20 7a 73 66 | 72 5b 35 5d 5b 30 5d 20 |vz = zsf|r[5][0] |
|00004940| 2d 20 63 6f 6f 72 76 7a | 3b 0a 58 0a 58 2f 2a 20 |- coorvz|;.X.X/* |
|00004950| 20 54 52 41 4e 53 46 4f | 52 4d 20 54 48 45 20 44 | TRANSFO|RM THE D|
|00004960| 49 46 46 45 52 45 4e 43 | 45 20 56 45 43 54 4f 52 |IFFERENC|E VECTOR|
|00004970| 20 46 52 4f 4d 20 52 46 | 43 43 20 54 4f 20 52 56 | FROM RF|CC TO RV|
|00004980| 43 43 20 20 2a 2f 0a 58 | 20 20 20 20 20 20 20 20 |CC */.X| |
|00004990| 20 20 20 20 64 65 6c 74 | 64 7a 31 20 3d 20 7a 74 | delt|dz1 = zt|
|000049a0| 6d 61 74 5b 30 5d 5b 30 | 5d 20 2a 20 64 65 6c 74 |mat[0][0|] * delt|
|000049b0| 64 78 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |dx.X | |
|000049c0| 20 20 20 2b 20 7a 74 6d | 61 74 5b 33 5d 5b 30 5d | + ztm|at[3][0]|
|000049d0| 20 2a 20 64 65 6c 74 64 | 79 0a 58 20 20 20 20 20 | * deltd|y.X |
|000049e0| 20 20 20 20 20 20 20 20 | 20 20 2b 20 7a 74 6d 61 | | + ztma|
|000049f0| 74 5b 36 5d 5b 30 5d 20 | 2a 20 64 65 6c 74 64 7a |t[6][0] |* deltdz|
|00004a00| 3b 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 64 |;.X | d|
|00004a10| 65 6c 74 64 7a 32 20 3d | 20 7a 74 6d 61 74 5b 31 |eltdz2 =| ztmat[1|
|00004a20| 5d 5b 30 5d 20 2a 20 64 | 65 6c 74 64 78 0a 58 20 |][0] * d|eltdx.X |
|00004a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2b 20 | | + |
|00004a40| 7a 74 6d 61 74 5b 34 5d | 5b 30 5d 20 2a 20 64 65 |ztmat[4]|[0] * de|
|00004a50| 6c 74 64 79 0a 58 20 20 | 20 20 20 20 20 20 20 20 |ltdy.X | |
|00004a60| 20 20 20 20 20 2b 20 7a | 74 6d 61 74 5b 37 5d 5b | + z|tmat[7][|
|00004a70| 30 5d 20 2a 20 64 65 6c | 74 64 7a 3b 0a 58 20 20 |0] * del|tdz;.X |
|00004a80| 20 20 20 20 20 20 20 20 | 20 64 65 6c 74 64 7a 33 | | deltdz3|
|00004a90| 20 3d 20 7a 74 6d 61 74 | 5b 32 5d 5b 30 5d 20 2a | = ztmat|[2][0] *|
|00004aa0| 20 64 65 6c 74 64 78 0a | 58 20 20 20 20 20 20 20 | deltdx.|X |
|00004ab0| 20 20 20 20 20 20 20 20 | 2b 20 7a 74 6d 61 74 5b | |+ ztmat[|
|00004ac0| 35 5d 5b 30 5d 20 2a 20 | 64 65 6c 74 64 79 0a 58 |5][0] * |deltdy.X|
|00004ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2b | | +|
|00004ae0| 20 7a 74 6d 61 74 5b 38 | 5d 5b 30 5d 20 2a 20 64 | ztmat[8|][0] * d|
|00004af0| 65 6c 74 64 7a 3b 0a 58 | 20 20 20 20 20 20 20 20 |eltdz;.X| |
|00004b00| 20 20 20 64 65 6c 74 76 | 7a 31 20 3d 20 7a 74 6d | deltv|z1 = ztm|
|00004b10| 61 74 5b 30 5d 5b 30 5d | 20 2a 20 64 65 6c 74 76 |at[0][0]| * deltv|
|00004b20| 78 0a 58 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |x.X | |
|00004b30| 20 20 2b 20 7a 74 6d 61 | 74 5b 33 5d 5b 30 5d 20 | + ztma|t[3][0] |
|00004b40| 2a 20 64 65 6c 74 76 79 | 0a 58 20 20 20 20 20 20 |* deltvy|.X |
|00004b50| 20 20 20 20 20 20 20 20 | 20 2b 20 7a 74 6d 61 74 | | + ztmat|
|00004b60| 5b 36 5d 5b 30 5d 20 2a | 20 64 65 6c 74 76 7a 3b |[6][0] *| deltvz;|
|00004b70| 0a 58 20 20 20 20 20 20 | 20 20 20 20 20 64 65 6c |.X | del|
|00004b80| 74 76 7a 32 20 3d 20 7a | 74 6d 61 74 5b 31 5d 5b |tvz2 = z|tmat[1][|
|00004b90| 30 5d 20 2a 20 64 65 6c | 74 76 78 0a 58 20 20 20 |0] * del|tvx.X |
|00004ba0| 20 20 20 20 20 20 20 20 | 20 20 20 20 2b 20 7a 74 | | + zt|
|00004bb0| 6d 61 74 5b 34 5d 5b 30 | 5d 20 2a 20 64 65 6c 74 |mat[4][0|] * delt|
|00004bc0| 76 79 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |vy.X | |
|00004bd0| 20 20 20 2b 20 7a 74 6d | 61 74 5b 37 5d 5b 30 5d | + ztm|at[7][0]|
|00004be0| 20 2a 20 64 65 6c 74 76 | 7a 3b 0a 58 20 20 20 20 | * deltv|z;.X |
|00004bf0| 20 20 20 20 20 20 20 64 | 65 6c 74 76 7a 33 20 3d | d|eltvz3 =|
|00004c00| 20 7a 74 6d 61 74 5b 32 | 5d 5b 30 5d 20 2a 20 64 | ztmat[2|][0] * d|
|00004c10| 65 6c 74 76 78 0a 58 20 | 20 20 20 20 20 20 20 20 |eltvx.X | |
|00004c20| 20 20 20 20 20 20 2b 20 | 7a 74 6d 61 74 5b 35 5d | + |ztmat[5]|
|00004c30| 5b 30 5d 20 2a 20 64 65 | 6c 74 76 79 0a 58 20 20 |[0] * de|ltvy.X |
|00004c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2b 20 7a | | + z|
|00004c50| 74 6d 61 74 5b 38 5d 5b | 30 5d 20 2a 20 64 65 6c |tmat[8][|0] * del|
|00004c60| 74 76 7a 3b 0a 58 0a 58 | 2f 2a 20 20 43 4f 4d 50 |tvz;.X.X|/* COMP|
|00004c70| 55 54 45 20 54 48 45 20 | 56 41 52 49 41 4e 43 45 |UTE THE |VARIANCE|
|00004c80| 20 4f 46 20 54 48 45 20 | 53 54 41 54 45 20 56 45 | OF THE |STATE VE|
|00004c90| 43 54 4f 52 20 44 49 46 | 46 45 52 45 4e 43 45 53 |CTOR DIF|FERENCES|
|00004ca0| 20 20 2a 2f 0a 58 20 20 | 20 20 20 20 20 20 20 20 | */.X | |
|00004cb0| 20 73 69 67 63 7a 31 20 | 3d 20 73 69 67 64 7a 31 | sigcz1 |= sigdz1|
|00004cc0| 20 2b 20 7a 72 76 69 5b | 30 5d 5b 30 5d 3b 0a 58 | + zrvi[|0][0];.X|
|00004cd0| 20 20 20 20 20 20 20 20 | 20 20 20 73 69 67 63 7a | | sigcz|
|00004ce0| 32 20 3d 20 73 69 67 64 | 7a 32 20 2b 20 7a 72 76 |2 = sigd|z2 + zrv|
|00004cf0| 69 5b 35 5d 5b 30 5d 3b | 0a 58 20 20 20 20 20 20 |i[5][0];|.X |
|00004d00| 20 20 20 20 20 73 69 67 | 74 7a 31 20 3d 20 73 69 | sig|tz1 = si|
|00004d10| 67 76 7a 31 20 2b 20 7a | 72 76 69 5b 39 5d 5b 30 |gvz1 + z|rvi[9][0|
|00004d20| 5d 3b 0a 58 20 20 20 20 | 20 20 20 20 20 20 20 73 |];.X | s|
|00004d30| 69 67 74 7a 32 20 3d 20 | 73 69 67 76 7a 32 20 2b |igtz2 = |sigvz2 +|
|00004d40| 20 7a 72 76 69 5b 31 32 | 5d 5b 30 5d 3b 0a 58 20 | zrvi[12|][0];.X |
|00004d50| 20 20 20 20 20 20 20 20 | 20 20 73 69 67 63 7a 33 | | sigcz3|
|00004d60| 20 3d 20 73 69 67 64 7a | 33 20 2b 20 7a 72 76 6f | = sigdz|3 + zrvo|
|00004d70| 5b 30 5d 5b 30 5d 3b 0a | 58 20 20 20 20 20 20 20 |[0][0];.|X |
|00004d80| 20 20 20 20 73 69 67 74 | 7a 33 20 3d 20 73 69 67 | sigt|z3 = sig|
|00004d90| 76 7a 33 20 2b 20 7a 72 | 76 6f 5b 32 5d 5b 30 5d |vz3 + zr|vo[2][0]|
|00004da0| 3b 0a 58 0a 58 2f 2a 20 | 20 43 4f 4d 50 55 54 45 |;.X.X/* | COMPUTE|
|00004db0| 20 54 48 45 20 36 20 44 | 2e 4f 2e 46 2e 20 52 56 | THE 6 D|.O.F. RV|
|00004dc0| 43 43 20 54 45 53 54 20 | 53 54 41 54 49 53 54 49 |CC TEST |STATISTI|
|00004dd0| 43 53 20 20 2a 2f 0a 58 | 20 20 20 20 20 20 20 20 |CS */.X| |
|00004de0| 20 20 20 74 73 74 61 74 | 20 3d 20 28 64 65 6c 74 | tstat| = (delt|
|00004df0| 64 7a 31 2a 64 65 6c 74 | 64 7a 31 29 2f 73 69 67 |dz1*delt|dz1)/sig|
|00004e00| 63 7a 31 20 2a 20 28 64 | 65 6c 74 64 7a 32 2a 64 |cz1 * (d|eltdz2*d|
|00004e10| 65 6c 74 64 7a 32 29 2f | 73 69 67 63 7a 32 0a 58 |eltdz2)/|sigcz2.X|
|00004e20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2b 20 | | + |
|00004e30| 28 64 65 6c 74 64 7a 33 | 2a 64 65 6c 74 64 7a 33 |(deltdz3|*deltdz3|
|00004e40| 29 2f 73 69 67 63 7a 33 | 20 2a 20 28 64 65 6c 74 |)/sigcz3| * (delt|
|00004e50| 76 7a 31 2a 64 65 6c 74 | 76 7a 31 29 2f 73 69 67 |vz1*delt|vz1)/sig|
|00004e60| 74 7a 31 0a 58 20 20 20 | 20 20 20 20 20 20 20 20 |tz1.X | |
|00004e70| 20 20 20 2b 20 28 64 65 | 6c 74 76 7a 32 2a 64 65 | + (de|ltvz2*de|
|00004e80| 6c 74 76 7a 32 29 2f 73 | 69 67 74 7a 32 20 2a 20 |ltvz2)/s|igtz2 * |
|00004e90| 28 64 65 6c 74 76 7a 33 | 2a 64 65 6c 74 76 7a 33 |(deltvz3|*deltvz3|
|00004ea0| 29 2f 73 69 67 74 7a 33 | 3b 0a 58 0a 58 2f 2a 20 |)/sigtz3|;.X.X/* |
|00004eb0| 20 49 4e 43 52 45 4d 45 | 4e 54 20 54 52 54 54 27 | INCREME|NT TRTT'|
|00004ec0| 53 20 54 49 4d 45 52 20 | 20 2a 2f 0a 58 20 20 20 |S TIMER | */.X |
|00004ed0| 20 20 20 20 20 20 20 20 | 20 7a 63 6d 20 3d 20 7a | | zcm = z|
|00004ee0| 63 6d 20 2b 20 7a 74 63 | 34 3b 0a 58 0a 58 2f 2a |cm + ztc|4;.X.X/*|
|00004ef0| 20 20 43 4f 4e 54 49 4e | 55 45 20 4c 4f 4f 50 2e | CONTIN|UE LOOP.|
|00004f00| 20 20 45 58 49 54 20 52 | 4f 55 54 49 4e 45 20 41 | EXIT R|OUTINE A|
|00004f10| 46 54 45 52 20 4c 41 53 | 54 20 43 41 4e 44 49 44 |FTER LAS|T CANDID|
|00004f20| 41 54 45 20 4f 42 4a 45 | 43 54 20 20 2a 2f 0a 58 |ATE OBJE|CT */.X|
|00004f30| 0a 58 20 20 20 20 20 20 | 20 20 20 7d 20 77 68 69 |.X | } whi|
|00004f40| 6c 65 20 28 63 6f 70 74 | 72 20 3c 20 7a 6c 70 74 |le (copt|r < zlpt|
|00004f50| 72 29 3b 20 20 0a 58 2f | 2a 20 20 45 58 49 54 20 |r); .X/|* EXIT |
|00004f60| 42 45 4e 43 48 4d 41 52 | 4b 20 31 20 20 2a 2a 2a |BENCHMAR|K 1 ***|
|00004f70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004f80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004f90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 20 20 2a 2f 0a 58 |********|** */.X|
|00004fa0| 20 20 20 20 20 20 7d 20 | 20 20 20 20 0a 58 2f 2a | } | .X/*|
|00004fb0| 20 20 20 20 20 20 61 73 | 6d 28 22 74 69 6d 65 6e | as|m("timen|
|00004fc0| 64 3a 22 29 3b 20 2a 2f | 0a 58 20 20 20 7d 0a 58 |d:"); */|.X }.X|
|00004fd0| 7d 0a 45 4e 44 5f 4f 46 | 5f 74 63 6f 72 6c 2e 63 |}.END_OF|_tcorl.c|
|00004fe0| 0a 69 66 20 74 65 73 74 | 20 35 38 36 36 20 2d 6e |.if test| 5866 -n|
|00004ff0| 65 20 60 77 63 20 2d 63 | 20 3c 74 63 6f 72 6c 2e |e `wc -c| <tcorl.|
|00005000| 63 60 3b 20 74 68 65 6e | 0a 20 20 20 20 65 63 68 |c`; then|. ech|
|00005010| 6f 20 73 68 61 72 3a 20 | 5c 22 74 63 6f 72 6c 2e |o shar: |\"tcorl.|
|00005020| 63 5c 22 20 75 6e 70 61 | 63 6b 65 64 20 77 69 74 |c\" unpa|cked wit|
|00005030| 68 20 77 72 6f 6e 67 20 | 73 69 7a 65 21 0a 66 69 |h wrong |size!.fi|
|00005040| 0a 23 20 65 6e 64 20 6f | 66 20 6f 76 65 72 77 72 |.# end o|f overwr|
|00005050| 69 74 69 6e 67 20 63 68 | 65 63 6b 0a 66 69 0a 69 |iting ch|eck.fi.i|
|00005060| 66 20 74 65 73 74 20 2d | 66 20 74 65 6d 70 2e 66 |f test -|f temp.f|
|00005070| 20 2d 61 20 22 24 7b 31 | 7d 22 20 21 3d 20 22 2d | -a "${1|}" != "-|
|00005080| 63 22 20 3b 20 74 68 65 | 6e 20 0a 20 20 65 63 68 |c" ; the|n . ech|
|00005090| 6f 20 73 68 61 72 3a 20 | 57 69 6c 6c 20 6e 6f 74 |o shar: |Will not|
|000050a0| 20 6f 76 65 72 2d 77 72 | 69 74 65 20 65 78 69 73 | over-wr|ite exis|
|000050b0| 74 69 6e 67 20 66 69 6c | 65 20 5c 22 74 65 6d 70 |ting fil|e \"temp|
|000050c0| 2e 66 5c 22 0a 65 6c 73 | 65 0a 65 63 68 6f 20 73 |.f\".els|e.echo s|
|000050d0| 68 61 72 3a 20 45 78 74 | 72 61 63 74 69 6e 67 20 |har: Ext|racting |
|000050e0| 5c 22 74 65 6d 70 2e 66 | 5c 22 20 5c 28 38 32 20 |\"temp.f|\" \(82 |
|000050f0| 63 68 61 72 61 63 74 65 | 72 73 5c 29 0a 73 65 64 |characte|rs\).sed|
|00005100| 20 22 73 2f 5e 58 2f 2f | 22 20 3e 74 65 6d 70 2e | "s/^X//|" >temp.|
|00005110| 66 20 3c 3c 27 45 4e 44 | 5f 4f 46 5f 74 65 6d 70 |f <<'END|_OF_temp|
|00005120| 2e 66 27 0a 58 09 20 20 | 20 20 20 50 52 49 4e 54 |.f'.X. | PRINT|
|00005130| 20 39 39 39 0a 58 39 39 | 39 09 20 20 20 20 20 46 | 999.X99|9. F|
|00005140| 4f 52 4d 41 54 20 28 20 | 27 20 57 48 45 54 53 54 |ORMAT ( |' WHETST|
|00005150| 4f 4e 45 20 42 45 4e 43 | 48 4d 41 52 4b 20 28 53 |ONE BENC|HMARK (S|
|00005160| 49 4e 47 4c 45 20 50 52 | 45 43 49 53 49 4f 4e 29 |INGLE PR|ECISION)|
|00005170| 27 29 0a 58 09 45 4e 44 | 0a 45 4e 44 5f 4f 46 5f |').X.END|.END_OF_|
|00005180| 74 65 6d 70 2e 66 0a 69 | 66 20 74 65 73 74 20 38 |temp.f.i|f test 8|
|00005190| 32 20 2d 6e 65 20 60 77 | 63 20 2d 63 20 3c 74 65 |2 -ne `w|c -c <te|
|000051a0| 6d 70 2e 66 60 3b 20 74 | 68 65 6e 0a 20 20 20 20 |mp.f`; t|hen. |
|000051b0| 65 63 68 6f 20 73 68 61 | 72 3a 20 5c 22 74 65 6d |echo sha|r: \"tem|
|000051c0| 70 2e 66 5c 22 20 75 6e | 70 61 63 6b 65 64 20 77 |p.f\" un|packed w|
|000051d0| 69 74 68 20 77 72 6f 6e | 67 20 73 69 7a 65 21 0a |ith wron|g size!.|
|000051e0| 66 69 0a 23 20 65 6e 64 | 20 6f 66 20 6f 76 65 72 |fi.# end| of over|
|000051f0| 77 72 69 74 69 6e 67 20 | 63 68 65 63 6b 0a 66 69 |writing |check.fi|
|00005200| 0a 69 66 20 74 65 73 74 | 20 2d 66 20 74 65 73 74 |.if test| -f test|
|00005210| 2e 63 20 2d 61 20 22 24 | 7b 31 7d 22 20 21 3d 20 |.c -a "$|{1}" != |
|00005220| 22 2d 63 22 20 3b 20 74 | 68 65 6e 20 0a 20 20 65 |"-c" ; t|hen . e|
|00005230| 63 68 6f 20 73 68 61 72 | 3a 20 57 69 6c 6c 20 6e |cho shar|: Will n|
|00005240| 6f 74 20 6f 76 65 72 2d | 77 72 69 74 65 20 65 78 |ot over-|write ex|
|00005250| 69 73 74 69 6e 67 20 66 | 69 6c 65 20 5c 22 74 65 |isting f|ile \"te|
|00005260| 73 74 2e 63 5c 22 0a 65 | 6c 73 65 0a 65 63 68 6f |st.c\".e|lse.echo|
|00005270| 20 73 68 61 72 3a 20 45 | 78 74 72 61 63 74 69 6e | shar: E|xtractin|
|00005280| 67 20 5c 22 74 65 73 74 | 2e 63 5c 22 20 5c 28 38 |g \"test|.c\" \(8|
|00005290| 37 30 20 63 68 61 72 61 | 63 74 65 72 73 5c 29 0a |70 chara|cters\).|
|000052a0| 73 65 64 20 22 73 2f 5e | 58 2f 2f 22 20 3e 74 65 |sed "s/^|X//" >te|
|000052b0| 73 74 2e 63 20 3c 3c 27 | 45 4e 44 5f 4f 46 5f 74 |st.c <<'|END_OF_t|
|000052c0| 65 73 74 2e 63 27 0a 58 | 64 6f 75 62 6c 65 20 73 |est.c'.X|double s|
|000052d0| 65 63 6f 6e 64 5f 28 29 | 3b 0a 58 0a 58 6d 61 69 |econd_()|;.X.Xmai|
|000052e0| 6e 20 28 29 0a 58 7b 0a | 58 09 69 6e 74 20 69 3b |n ().X{.|X.int i;|
|000052f0| 0a 58 09 64 6f 75 62 6c | 65 20 66 31 2c 66 32 2c |.X.doubl|e f1,f2,|
|00005300| 66 33 2c 66 34 3b 0a 58 | 0a 58 09 66 32 20 3d 20 |f3,f4;.X|.X.f2 = |
|00005310| 32 33 34 35 2e 32 33 34 | 35 3b 0a 58 09 66 33 20 |2345.234|5;.X.f3 |
|00005320| 3d 20 34 35 33 36 2e 35 | 34 36 37 3b 0a 58 09 66 |= 4536.5|467;.X.f|
|00005330| 34 20 3d 20 32 34 33 35 | 2e 39 37 38 38 3b 0a 58 |4 = 2435|.9788;.X|
|00005340| 09 0a 58 09 66 6f 72 20 | 28 69 3d 30 3b 69 3c 31 |..X.for |(i=0;i<1|
|00005350| 30 30 30 30 30 30 3b 69 | 2b 2b 29 20 7b 0a 58 09 |000000;i|++) {.X.|
|00005360| 09 66 31 20 3d 20 66 32 | 20 2a 20 66 33 20 2f 20 |.f1 = f2| * f3 / |
|00005370| 66 34 3b 0a 58 09 7d 0a | 58 0a 58 09 70 72 69 6e |f4;.X.}.|X.X.prin|
|00005380| 74 66 28 22 73 65 63 6f | 6e 64 28 29 3d 25 32 30 |tf("seco|nd()=%20|
|00005390| 2e 31 30 65 5c 6e 5c 6e | 22 2c 28 64 6f 75 62 6c |.10e\n\n|",(doubl|
|000053a0| 65 29 73 65 63 6f 6e 64 | 5f 28 29 29 3b 0a 58 7d |e)second|_());.X}|
|000053b0| 0a 58 0a 58 0a 58 23 69 | 66 64 65 66 20 55 43 42 |.X.X.X#i|fdef UCB|
|000053c0| 0a 58 23 69 6e 63 6c 75 | 64 65 20 3c 73 79 73 2f |.X#inclu|de <sys/|
|000053d0| 74 69 6d 65 2e 68 3e 0a | 58 23 69 6e 63 6c 75 64 |time.h>.|X#includ|
|000053e0| 65 20 3c 73 79 73 2f 72 | 65 73 6f 75 72 63 65 2e |e <sys/r|esource.|
|000053f0| 68 3e 0a 58 0a 58 64 6f | 75 62 6c 65 0a 58 73 65 |h>.X.Xdo|uble.Xse|
|00005400| 63 6f 6e 64 5f 20 28 29 | 0a 58 7b 0a 58 20 20 20 |cond_ ()|.X{.X |
|00005410| 20 73 74 72 75 63 74 20 | 72 75 73 61 67 65 20 72 | struct |rusage r|
|00005420| 75 3b 0a 58 0a 58 23 69 | 66 64 65 66 20 4d 4f 58 |u;.X.X#i|fdef MOX|
|00005430| 49 45 0a 58 20 20 20 20 | 73 74 61 74 69 63 20 75 |IE.X |static u|
|00005440| 6e 73 69 67 6e 65 64 20 | 63 6f 75 6e 74 20 3d 20 |nsigned |count = |
|00005450| 30 3b 0a 58 20 20 20 20 | 73 74 61 74 69 63 20 75 |0;.X |static u|
|00005460| 6e 73 69 67 6e 65 64 20 | 73 74 6f 70 3b 0a 58 20 |nsigned |stop;.X |
|00005470| 20 20 20 65 78 74 65 72 | 6e 20 75 6e 73 69 67 6e | exter|n unsign|
|00005480| 65 64 20 5f 5f 41 72 67 | 63 3b 0a 58 20 20 20 20 |ed __Arg|c;.X |
|00005490| 65 78 74 65 72 6e 20 63 | 68 61 72 20 2a 2a 5f 5f |extern c|har **__|
|000054a0| 41 72 67 76 3b 0a 58 20 | 20 20 20 69 66 20 28 63 |Argv;.X | if (c|
|000054b0| 6f 75 6e 74 20 3d 3d 20 | 30 20 26 26 20 5f 5f 41 |ount == |0 && __A|
|000054c0| 72 67 63 20 3e 20 31 29 | 20 7b 0a 58 09 73 74 6f |rgc > 1)| {.X.sto|
|000054d0| 70 20 3d 20 61 74 6f 69 | 28 5f 5f 41 72 67 76 5b |p = atoi|(__Argv[|
|000054e0| 5f 5f 41 72 67 63 2d 31 | 5d 29 3b 0a 58 20 20 20 |__Argc-1|]);.X |
|000054f0| 20 7d 0a 58 20 20 20 20 | 63 6f 75 6e 74 20 2b 3d | }.X |count +=|
|00005500| 20 31 3b 0a 58 20 20 20 | 20 69 66 20 28 63 6f 75 | 1;.X | if (cou|
|00005510| 6e 74 20 3d 3d 20 73 74 | 6f 70 29 20 65 78 69 74 |nt == st|op) exit|
|00005520| 28 30 29 3b 0a 58 23 65 | 6e 64 69 66 0a 58 0a 58 |(0);.X#e|ndif.X.X|
|00005530| 20 20 20 20 67 65 74 72 | 75 73 61 67 65 20 28 30 | getr|usage (0|
|00005540| 2c 20 26 72 75 29 3b 0a | 58 20 20 20 20 72 65 74 |, &ru);.|X ret|
|00005550| 75 72 6e 20 28 28 64 6f | 75 62 6c 65 29 72 75 2e |urn ((do|uble)ru.|
|00005560| 72 75 5f 75 74 69 6d 65 | 2e 74 76 5f 73 65 63 20 |ru_utime|.tv_sec |
|00005570| 2b 20 28 28 64 6f 75 62 | 6c 65 29 72 75 2e 72 75 |+ ((doub|le)ru.ru|
|00005580| 5f 75 74 69 6d 65 2e 74 | 76 5f 75 73 65 63 20 2f |_utime.t|v_usec /|
|00005590| 20 31 2e 30 65 36 29 29 | 3b 0a 58 7d 0a 58 23 65 | 1.0e6))|;.X}.X#e|
|000055a0| 6c 73 65 0a 58 0a 58 23 | 69 6e 63 6c 75 64 65 20 |lse.X.X#|include |
|000055b0| 3c 73 79 73 2f 74 79 70 | 65 73 2e 68 3e 0a 58 23 |<sys/typ|es.h>.X#|
|000055c0| 69 6e 63 6c 75 64 65 20 | 3c 73 79 73 2f 74 69 6d |include |<sys/tim|
|000055d0| 65 73 2e 68 3e 0a 58 64 | 6f 75 62 6c 65 0a 58 73 |es.h>.Xd|ouble.Xs|
|000055e0| 65 63 6f 6e 64 5f 28 29 | 0a 58 7b 0a 58 09 73 74 |econd_()|.X{.X.st|
|000055f0| 72 75 63 74 20 74 6d 73 | 20 62 75 66 3b 0a 58 09 |ruct tms| buf;.X.|
|00005600| 6c 6f 6e 67 20 74 3b 0a | 58 09 74 20 3d 20 74 69 |long t;.|X.t = ti|
|00005610| 6d 65 73 28 26 62 75 66 | 29 3b 0a 58 09 72 65 74 |mes(&buf|);.X.ret|
|00005620| 75 72 6e 28 62 75 66 2e | 74 6d 73 5f 75 74 69 6d |urn(buf.|tms_utim|
|00005630| 65 2a 30 2e 30 31 29 3b | 20 20 20 20 20 20 20 20 |e*0.01);| |
|00005640| 20 2f 2a 20 31 20 74 69 | 63 6b 20 3d 20 31 2f 31 | /* 1 ti|ck = 1/1|
|00005650| 30 30 20 73 65 63 20 2a | 2f 0a 58 7d 0a 58 23 65 |00 sec *|/.X}.X#e|
|00005660| 6e 64 69 66 0a 45 4e 44 | 5f 4f 46 5f 74 65 73 74 |ndif.END|_OF_test|
|00005670| 2e 63 0a 69 66 20 74 65 | 73 74 20 38 37 30 20 2d |.c.if te|st 870 -|
|00005680| 6e 65 20 60 77 63 20 2d | 63 20 3c 74 65 73 74 2e |ne `wc -|c <test.|
|00005690| 63 60 3b 20 74 68 65 6e | 0a 20 20 20 20 65 63 68 |c`; then|. ech|
|000056a0| 6f 20 73 68 61 72 3a 20 | 5c 22 74 65 73 74 2e 63 |o shar: |\"test.c|
|000056b0| 5c 22 20 75 6e 70 61 63 | 6b 65 64 20 77 69 74 68 |\" unpac|ked with|
|000056c0| 20 77 72 6f 6e 67 20 73 | 69 7a 65 21 0a 66 69 0a | wrong s|ize!.fi.|
|000056d0| 23 20 65 6e 64 20 6f 66 | 20 6f 76 65 72 77 72 69 |# end of| overwri|
|000056e0| 74 69 6e 67 20 63 68 65 | 63 6b 0a 66 69 0a 65 63 |ting che|ck.fi.ec|
|000056f0| 68 6f 20 73 68 61 72 3a | 20 45 6e 64 20 6f 66 20 |ho shar:| End of |
|00005700| 73 68 65 6c 6c 20 61 72 | 63 68 69 76 65 2e 0a 65 |shell ar|chive..e|
|00005710| 78 69 74 20 30 0a 0a 0a | |xit 0...| |
+--------+-------------------------+-------------------------+--------+--------+
