home *** CD-ROM | disk | FTP | other *** search
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
This file was processed as: Tape Archive
(archive/tar).
You can browse this item here: 2014.05.ftp.ornl.gov.tar
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| Tape Archive (archive/tar)
| magic
| Supported |
| 100%
| file
| POSIX tar archive (GNU)
| default
| |
| 99%
| file
| POSIX tar archive (GNU), directory ftp.ornl.gov/, mode 0000755, uid 0001750, gid 0001750, size 00000000000, seconds 12336432661, user ohhdemgirls, group ohhdemgirls
| default
| |
| 98%
| file
| data
| default
| |
| 62%
| TrID
| TAR - Tape ARchive (GNU)
| default
| |
| 37%
| TrID
| TAR - Tape ARchive (directory)
| default
| |
| 100%
| siegfried
| x-fmt/265 Tape Archive Format
| default
| |
| 100%
| lsar
| Tar
| default
| |
| 100%
| gt2
| TAR Archiv gefunden (Auflistung ist deaktiviert)
| default
| |
| 100%
| disktype
| GNU tar archive
| default
| |
| 100%
| detectItEasy
| Archive: tar
| default
| |
| 100%
| binwalkID
| POSIX tar archive (GNU), owner user name: ".gov/"
| default
| |
| 100%
| xdgMime
| application/x-tar
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 66 74 70 2e 6f 72 6e 6c | 2e 67 6f 76 2f 00 00 00 |ftp.ornl|.gov/...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 30 30 30 30 | 37 35 35 00 30 30 30 31 |....0000|755.0001|
|00000070| 37 35 30 00 30 30 30 31 | 37 35 30 00 30 30 30 30 |750.0001|750.0000|
|00000080| 30 30 30 30 30 30 30 00 | 31 32 33 33 36 34 33 32 |0000000.|12336432|
|00000090| 36 36 31 00 30 31 35 30 | 31 34 00 20 35 00 00 00 |661.0150|14. 5...|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 75 73 74 61 72 20 20 | 00 6f 68 68 64 65 6d 67 |.ustar |.ohhdemg|
|00000110| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 6f 68 68 64 65 6d 67 |........|.ohhdemg|
|00000130| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 66 74 70 2e 6f 72 6e 6c | 2e 67 6f 76 2f 52 45 41 |ftp.ornl|.gov/REA|
|00000210| 44 4d 45 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |DME.....|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 30 30 30 30 | 36 34 34 00 30 30 30 31 |....0000|644.0001|
|00000270| 37 35 30 00 30 30 30 31 | 37 35 30 00 30 30 30 30 |750.0001|750.0000|
|00000280| 30 30 30 35 36 35 34 00 | 31 30 32 34 30 35 30 30 |0005654.|10240500|
|00000290| 31 34 30 00 30 31 35 36 | 36 32 00 20 30 00 00 00 |140.0156|62. 0...|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 75 73 74 61 72 20 20 | 00 6f 68 68 64 65 6d 67 |.ustar |.ohhdemg|
|00000310| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 6f 68 68 64 65 6d 67 |........|.ohhdemg|
|00000330| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 0a 0a 09 09 20 20 20 20 | 4f 61 6b 20 52 69 64 67 |.... |Oak Ridg|
|00000410| 65 20 4e 61 74 69 6f 6e | 61 6c 20 4c 61 62 6f 72 |e Nation|al Labor|
|00000420| 61 74 6f 72 79 0a 09 09 | 20 20 20 20 20 20 41 6e |atory...| An|
|00000430| 6f 6e 79 6d 6f 75 73 20 | 46 54 50 20 46 69 6c 65 |onymous |FTP File|
|00000440| 20 53 65 72 76 65 72 0a | 0a 09 09 20 20 20 20 20 | Server.|... |
|00000450| 20 20 20 20 55 70 64 61 | 74 65 64 20 35 2f 31 32 | Upda|ted 5/12|
|00000460| 2f 32 30 30 72 35 33 0a | 0a 49 4e 54 52 4f 44 55 |/200r53.|.INTRODU|
|00000470| 43 54 49 4f 4e 0a 0a 20 | 20 20 20 54 68 65 20 66 |CTION.. | The f|
|00000480| 69 6c 65 73 20 75 6e 64 | 65 72 20 74 68 69 73 20 |iles und|er this |
|00000490| 64 69 72 65 63 74 6f 72 | 79 20 61 72 65 20 70 72 |director|y are pr|
|000004a0| 6f 76 69 64 65 64 20 61 | 73 20 61 20 73 65 72 76 |ovided a|s a serv|
|000004b0| 69 63 65 20 6f 66 20 4f | 61 6b 20 52 69 64 67 65 |ice of O|ak Ridge|
|000004c0| 20 0a 20 20 20 20 4e 61 | 74 69 6f 6e 61 6c 20 4c | . Na|tional L|
|000004d0| 61 62 6f 72 61 74 6f 72 | 79 2c 20 6d 61 6e 61 67 |aborator|y, manag|
|000004e0| 65 64 20 62 79 20 55 54 | 2d 42 61 74 74 65 6c 6c |ed by UT|-Battell|
|000004f0| 65 20 4c 4c 43 2e 0a 0a | 4f 52 47 41 4e 49 5a 41 |e LLC...|ORGANIZA|
|00000500| 54 49 4f 4e 0a 0a 20 20 | 20 20 54 68 65 20 61 6e |TION.. | The an|
|00000510| 6f 6e 79 6d 6f 75 73 20 | 46 54 50 20 73 65 72 76 |onymous |FTP serv|
|00000520| 65 72 20 69 73 20 6f 72 | 67 61 6e 69 7a 65 64 20 |er is or|ganized |
|00000530| 61 73 20 66 6f 6c 6c 6f | 77 73 3a 0a 0a 20 20 20 |as follo|ws:.. |
|00000540| 20 52 45 41 44 4d 45 20 | 09 09 20 2d 20 74 68 69 | README |.. - thi|
|00000550| 73 20 66 69 6c 65 0a 0a | 20 20 20 20 70 75 62 20 |s file..| pub |
|00000560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000570| 20 2d 20 70 75 62 6c 69 | 63 20 66 69 6c 65 73 20 | - publi|c files |
|00000580| 66 6f 72 20 61 6e 6f 6e | 79 6d 6f 75 73 20 75 73 |for anon|ymous us|
|00000590| 65 72 73 20 74 6f 20 64 | 6f 77 6e 6c 6f 61 64 0a |ers to d|ownload.|
|000005a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000005b0| 20 20 20 20 20 20 20 20 | 20 20 20 77 69 74 68 20 | | with |
|000005c0| 22 67 65 74 22 0a 0a 20 | 20 20 20 69 6e 63 6f 6d |"get".. | incom|
|000005d0| 69 6e 67 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ing | |
|000005e0| 2d 20 64 69 72 65 63 74 | 6f 72 79 20 66 6f 72 20 |- direct|ory for |
|000005f0| 61 6e 6f 6e 79 6d 6f 75 | 73 20 75 73 65 72 73 20 |anonymou|s users |
|00000600| 74 6f 20 75 70 6c 6f 61 | 64 20 64 61 74 61 0a 20 |to uploa|d data. |
|00000610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000620| 20 20 20 20 20 20 20 20 | 20 20 69 6e 74 6f 20 77 | | into w|
|00000630| 69 74 68 20 74 68 65 20 | 22 70 75 74 22 20 63 6f |ith the |"put" co|
|00000640| 6d 6d 61 6e 64 2e 20 44 | 4f 20 4e 4f 54 20 63 72 |mmand. D|O NOT cr|
|00000650| 65 61 74 65 0a 20 20 20 | 20 20 20 20 20 20 20 20 |eate. | |
|00000660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000670| 64 69 72 65 63 74 6f 72 | 69 65 73 20 69 6e 20 74 |director|ies in t|
|00000680| 68 69 73 20 61 72 65 61 | 2c 20 61 73 20 74 68 65 |his area|, as the|
|00000690| 79 20 77 69 6c 6c 20 62 | 65 0a 20 20 20 20 20 20 |y will b|e. |
|000006a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000006b0| 20 20 20 20 20 64 65 6c | 65 74 65 64 20 73 68 6f | del|eted sho|
|000006c0| 72 74 6c 79 20 61 66 74 | 65 72 20 79 6f 75 20 63 |rtly aft|er you c|
|000006d0| 72 65 61 74 65 20 74 68 | 65 6d 2e 0a 0a 20 20 20 |reate th|em... |
|000006e0| 20 6f 75 74 67 6f 69 6e | 67 20 20 20 20 20 20 20 | outgoin|g |
|000006f0| 20 20 20 20 20 20 2d 20 | 64 69 72 65 63 74 6f 72 | - |director|
|00000700| 79 20 66 6f 72 20 61 6e | 6f 6e 79 6d 6f 75 73 20 |y for an|onymous |
|00000710| 75 73 65 72 73 20 74 6f | 20 64 6f 77 6e 6c 6f 61 |users to| downloa|
|00000720| 64 20 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d . | |
|00000730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 77 69 | | wi|
|00000740| 74 68 20 22 67 65 74 22 | 2e 20 20 22 64 69 72 22 |th "get"|. "dir"|
|00000750| 20 61 6e 64 20 22 6c 73 | 22 20 64 6f 20 6e 6f 74 | and "ls|" do not|
|00000760| 20 77 6f 72 6b 20 69 6e | 20 74 68 69 73 0a 20 20 | work in| this. |
|00000770| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000780| 20 20 20 20 20 20 20 20 | 20 64 69 72 65 63 74 6f | | directo|
|00000790| 72 79 20 61 6e 64 20 79 | 6f 75 20 6d 75 73 74 20 |ry and y|ou must |
|000007a0| 6b 6e 6f 77 20 66 69 6c | 65 20 6e 61 6d 65 73 2e |know fil|e names.|
|000007b0| 0a 0a 20 20 20 20 62 69 | 6e 2c 20 65 74 63 2c 20 |.. bi|n, etc, |
|000007c0| 75 73 72 20 20 20 20 20 | 20 20 20 2d 20 66 69 6c |usr | - fil|
|000007d0| 65 73 20 75 73 65 64 20 | 74 6f 20 69 6d 70 6c 65 |es used |to imple|
|000007e0| 6d 65 6e 74 20 74 68 65 | 20 73 65 72 76 65 72 2e |ment the| server.|
|000007f0| 20 20 54 68 65 73 65 0a | 09 09 09 20 20 20 61 72 | These.|... ar|
|00000800| 65 20 6e 6f 74 20 69 6e | 74 65 72 65 73 74 69 6e |e not in|terestin|
|00000810| 67 20 6f 72 20 75 73 65 | 66 75 6c 20 74 6f 20 6d |g or use|ful to m|
|00000820| 6f 73 74 0a 20 20 09 09 | 09 20 20 20 77 6f 72 6b |ost. ..|. work|
|00000830| 73 74 61 74 69 6f 6e 20 | 75 73 65 72 73 0a 0a 55 |station |users..U|
|00000840| 53 41 47 45 0a 0a 20 20 | 20 20 55 73 65 20 74 68 |SAGE.. | Use th|
|00000850| 65 20 22 63 64 22 20 61 | 6e 64 20 22 6c 73 22 20 |e "cd" a|nd "ls" |
|00000860| 63 6f 6d 6d 61 6e 64 73 | 20 74 6f 20 6d 6f 76 65 |commands| to move|
|00000870| 20 61 72 6f 75 6e 64 20 | 74 68 65 20 46 54 50 20 | around |the FTP |
|00000880| 61 72 65 61 2e 20 20 43 | 6f 70 79 0a 20 20 20 20 |area. C|opy. |
|00000890| 66 69 6c 65 73 20 74 6f | 20 79 6f 75 72 20 73 79 |files to| your sy|
|000008a0| 73 74 65 6d 20 77 69 74 | 68 20 74 68 65 20 22 67 |stem wit|h the "g|
|000008b0| 65 74 22 20 63 6f 6d 6d | 61 6e 64 2e 20 20 55 73 |et" comm|and. Us|
|000008c0| 65 20 74 68 65 20 22 62 | 69 6e 61 72 79 22 20 63 |e the "b|inary" c|
|000008d0| 6f 6d 6d 61 6e 64 0a 20 | 20 20 20 62 65 66 6f 72 |ommand. | befor|
|000008e0| 65 20 74 72 61 6e 73 66 | 65 72 72 69 6e 67 20 62 |e transf|erring b|
|000008f0| 69 6e 61 72 79 20 66 69 | 6c 65 73 20 73 75 63 68 |inary fi|les such|
|00000900| 20 61 73 20 65 78 65 63 | 75 74 61 62 6c 65 73 20 | as exec|utables |
|00000910| 61 6e 64 20 63 6f 6d 70 | 72 65 73 73 65 64 0a 20 |and comp|ressed. |
|00000920| 20 20 20 66 69 6c 65 73 | 2e 20 20 43 6f 6d 70 72 | files|. Compr|
|00000930| 65 73 73 65 64 20 66 69 | 6c 65 73 20 68 61 76 65 |essed fi|les have|
|00000940| 20 6e 61 6d 65 73 20 65 | 6e 64 69 6e 67 20 77 69 | names e|nding wi|
|00000950| 74 68 20 22 2e 5a 22 20 | 6f 72 20 22 2e 67 7a 22 |th ".Z" |or ".gz"|
|00000960| 2e 20 20 55 73 65 20 74 | 68 65 0a 20 20 20 20 75 |. Use t|he. u|
|00000970| 6e 63 6f 6d 70 72 65 73 | 73 20 6f 72 20 7a 63 61 |ncompres|s or zca|
|00000980| 74 20 63 6f 6d 6d 61 6e | 64 20 6f 6e 20 79 6f 75 |t comman|d on you|
|00000990| 72 20 73 79 73 74 65 6d | 20 74 6f 20 72 65 74 75 |r system| to retu|
|000009a0| 72 6e 20 22 2e 5a 22 20 | 63 6f 6d 70 72 65 73 73 |rn ".Z" |compress|
|000009b0| 65 64 0a 20 20 20 20 66 | 69 6c 65 73 20 28 6f 72 |ed. f|iles (or|
|000009c0| 20 67 75 6e 7a 69 70 20 | 6f 72 20 67 7a 63 61 74 | gunzip |or gzcat|
|000009d0| 20 66 6f 72 20 22 2e 67 | 7a 22 20 66 69 6c 65 73 | for ".g|z" files|
|000009e0| 2c 20 73 65 65 20 2f 75 | 6e 69 78 2f 67 7a 69 70 |, see /u|nix/gzip|
|000009f0| 29 20 74 6f 20 74 68 65 | 69 72 0a 20 20 20 20 6f |) to the|ir. o|
|00000a00| 72 69 67 69 6e 61 6c 20 | 66 6f 72 6d 61 74 2e 20 |riginal |format. |
|00000a10| 0a 0a 20 20 20 20 46 69 | 6c 65 6e 61 6d 65 73 20 |.. Fi|lenames |
|00000a20| 65 6e 64 69 6e 67 20 69 | 6e 20 22 2e 74 61 72 22 |ending i|n ".tar"|
|00000a30| 20 61 72 65 20 74 61 72 | 20 61 72 63 68 69 76 65 | are tar| archive|
|00000a40| 73 2e 20 20 53 65 65 20 | 74 68 65 20 74 61 72 20 |s. See |the tar |
|00000a50| 6d 61 6e 20 70 61 67 65 | 0a 20 20 20 20 6f 6e 20 |man page|. on |
|00000a60| 79 6f 75 72 20 73 79 73 | 74 65 6d 20 66 6f 72 20 |your sys|tem for |
|00000a70| 6d 6f 72 65 20 64 65 74 | 61 69 6c 73 20 6f 6e 20 |more det|ails on |
|00000a80| 75 6e 70 61 63 6b 69 6e | 67 20 74 68 65 6d 2e 0a |unpackin|g them..|
|00000a90| 0a 20 20 20 20 46 69 6c | 65 6e 61 6d 65 73 20 65 |. Fil|enames e|
|00000aa0| 6e 64 69 6e 67 20 69 6e | 20 22 2e 70 73 22 20 61 |nding in| ".ps" a|
|00000ab0| 72 65 20 69 6e 20 50 6f | 73 74 53 63 72 69 70 74 |re in Po|stScript|
|00000ac0| 20 66 6f 72 6d 61 74 2e | 20 20 54 68 65 79 20 63 | format.| They c|
|00000ad0| 61 6e 20 62 65 0a 20 20 | 20 20 70 72 69 6e 74 65 |an be. | printe|
|00000ae0| 64 20 6f 6e 20 61 20 50 | 6f 73 74 53 63 72 69 70 |d on a P|ostScrip|
|00000af0| 74 20 63 6f 6d 70 61 74 | 69 62 6c 65 20 70 72 69 |t compat|ible pri|
|00000b00| 6e 74 65 72 20 6f 72 20 | 76 69 65 77 65 64 20 6f |nter or |viewed o|
|00000b10| 6e 20 73 63 72 65 65 6e | 20 75 73 69 6e 67 20 61 |n screen| using a|
|00000b20| 0a 20 20 20 20 70 72 65 | 76 69 65 77 65 72 20 73 |. pre|viewer s|
|00000b30| 75 63 68 20 61 73 20 44 | 45 43 27 73 20 64 78 70 |uch as D|EC's dxp|
|00000b40| 73 76 69 65 77 20 6f 72 | 20 53 75 6e 20 4f 70 65 |sview or| Sun Ope|
|00000b50| 6e 57 69 6e 64 6f 77 73 | 27 20 70 61 67 65 76 69 |nWindows|' pagevi|
|00000b60| 65 77 2e 0a 0a 20 20 20 | 20 42 65 66 6f 72 65 20 |ew... | Before |
|00000b70| 72 65 74 72 69 65 76 69 | 6e 67 20 6c 61 72 67 65 |retrievi|ng large|
|00000b80| 20 66 69 6c 65 73 2c 20 | 6d 61 6b 65 20 73 75 72 | files, |make sur|
|00000b90| 65 20 79 6f 75 27 76 65 | 20 67 6f 74 20 73 75 66 |e you've| got suf|
|00000ba0| 66 69 63 69 65 6e 74 0a | 20 20 20 20 64 69 73 6b |ficient.| disk|
|00000bb0| 20 73 70 61 63 65 20 6f | 6e 20 79 6f 75 72 20 73 | space o|n your s|
|00000bc0| 79 73 74 65 6d 20 74 6f | 20 67 65 74 20 74 68 65 |ystem to| get the|
|00000bd0| 20 66 69 6c 65 73 20 61 | 6e 64 20 75 6e 70 61 63 | files a|nd unpac|
|00000be0| 6b 20 74 68 65 6d 2e 20 | 20 54 68 65 20 22 6c 73 |k them. | The "ls|
|00000bf0| 0a 20 20 20 20 2d 6c 22 | 20 46 54 50 20 63 6f 6d |. -l"| FTP com|
|00000c00| 6d 61 6e 64 20 73 68 6f | 77 73 20 74 68 65 20 73 |mand sho|ws the s|
|00000c10| 69 7a 65 20 6f 66 20 66 | 69 6c 65 73 20 69 6e 20 |ize of f|iles in |
|00000c20| 62 79 74 65 73 2e 20 20 | 54 68 65 20 22 64 75 22 |bytes. |The "du"|
|00000c30| 20 63 6f 6d 6d 61 6e 64 | 20 6f 6e 0a 20 20 20 20 | command| on. |
|00000c40| 6d 6f 73 74 20 77 6f 72 | 6b 73 74 61 74 69 6f 6e |most wor|kstation|
|00000c50| 73 20 77 69 6c 6c 20 73 | 68 6f 77 20 61 76 61 69 |s will s|how avai|
|00000c60| 6c 61 62 6c 65 20 64 69 | 73 6b 20 73 70 61 63 65 |lable di|sk space|
|00000c70| 20 69 6e 20 35 31 32 20 | 62 79 74 65 20 62 6c 6f | in 512 |byte blo|
|00000c80| 63 6b 73 2e 0a 0a 20 20 | 20 20 49 66 20 79 6f 75 |cks... | If you|
|00000c90| 27 72 65 20 63 6f 6d 69 | 6e 67 20 66 72 6f 6d 20 |'re comi|ng from |
|00000ca0| 61 20 77 6f 72 6b 73 74 | 61 74 69 6f 6e 2c 20 64 |a workst|ation, d|
|00000cb0| 6f 6e 27 74 20 66 6f 72 | 67 65 74 20 74 68 61 74 |on't for|get that|
|00000cc0| 20 79 6f 75 20 63 61 6e | 0a 20 20 20 20 65 78 65 | you can|. exe|
|00000cd0| 63 75 74 65 20 55 4e 49 | 58 20 63 6f 6d 6d 61 6e |cute UNI|X comman|
|00000ce0| 64 73 20 6f 6e 20 79 6f | 75 72 20 73 79 73 74 65 |ds on yo|ur syste|
|00000cf0| 6d 20 77 68 69 6c 65 20 | 79 6f 75 27 72 65 20 69 |m while |you're i|
|00000d00| 6e 20 46 54 50 20 62 79 | 20 70 72 65 66 69 78 69 |n FTP by| prefixi|
|00000d10| 6e 67 0a 20 20 20 20 74 | 68 65 6d 20 77 69 74 68 |ng. t|hem with|
|00000d20| 20 61 6e 20 65 78 63 6c | 61 6d 61 74 69 6f 6e 20 | an excl|amation |
|00000d30| 6d 61 72 6b 2e 20 20 46 | 6f 72 20 65 78 61 6d 70 |mark. F|or examp|
|00000d40| 6c 65 2c 20 74 6f 20 63 | 72 65 61 74 65 20 61 20 |le, to c|reate a |
|00000d50| 64 69 72 65 63 74 6f 72 | 79 20 6f 6e 0a 20 20 20 |director|y on. |
|00000d60| 20 79 6f 75 72 20 73 79 | 73 74 65 6d 20 74 79 70 | your sy|stem typ|
|00000d70| 65 20 22 21 6d 6b 64 69 | 72 20 64 69 72 2d 6e 61 |e "!mkdi|r dir-na|
|00000d80| 6d 65 22 2e 0a 0a 20 20 | 20 20 48 69 6e 74 3a 20 |me"... | Hint: |
|00000d90| 74 6f 20 72 65 61 64 20 | 74 65 78 74 20 66 69 6c |to read |text fil|
|00000da0| 65 73 20 77 69 74 68 6f | 75 74 20 63 6f 70 79 69 |es witho|ut copyi|
|00000db0| 6e 67 20 74 68 65 6d 20 | 74 6f 20 79 6f 75 72 20 |ng them |to your |
|00000dc0| 73 79 73 74 65 6d 2c 20 | 63 6f 70 79 0a 20 20 20 |system, |copy. |
|00000dd0| 20 74 68 65 6d 20 74 6f | 20 22 2d 22 2e 20 20 46 | them to| "-". F|
|00000de0| 6f 72 20 65 78 61 6d 70 | 6c 65 2c 20 22 67 65 74 |or examp|le, "get|
|00000df0| 20 52 45 41 44 4d 45 20 | 2d 22 20 77 69 6c 6c 20 | README |-" will |
|00000e00| 63 6f 70 79 20 74 68 65 | 20 72 65 6d 6f 74 65 20 |copy the| remote |
|00000e10| 66 69 6c 65 20 0a 20 20 | 20 20 52 45 41 44 4d 45 |file . | README|
|00000e20| 20 74 6f 20 79 6f 75 72 | 20 73 63 72 65 65 6e 2e | to your| screen.|
|00000e30| 20 20 59 6f 75 20 63 61 | 6e 20 61 6c 73 6f 20 73 | You ca|n also s|
|00000e40| 75 62 73 74 69 74 75 74 | 65 20 22 2f 64 65 76 2f |ubstitut|e "/dev/|
|00000e50| 74 74 79 22 20 66 6f 72 | 20 22 2d 22 2c 0a 20 20 |tty" for| "-",. |
|00000e60| 20 20 65 2e 67 2e 2c 20 | 22 67 65 74 20 52 45 41 | e.g., |"get REA|
|00000e70| 44 4d 45 20 2f 64 65 76 | 2f 74 74 79 22 20 6f 6e |DME /dev|/tty" on|
|00000e80| 20 55 4e 49 58 20 73 79 | 73 74 65 6d 73 2e 0a 0a | UNIX sy|stems...|
|00000e90| 49 4d 50 4f 52 54 41 4e | 54 20 4e 4f 54 49 43 45 |IMPORTAN|T NOTICE|
|00000ea0| 0a 0a 20 20 20 20 49 66 | 20 79 6f 75 20 68 61 76 |.. If| you hav|
|00000eb0| 65 20 61 6e 79 20 70 72 | 6f 62 6c 65 6d 73 2c 20 |e any pr|oblems, |
|00000ec0| 73 65 6e 64 20 65 6d 61 | 69 6c 20 74 6f 20 63 69 |send ema|il to ci|
|00000ed0| 70 73 67 72 6f 75 70 40 | 6f 72 6e 6c 2e 67 6f 76 |psgroup@|ornl.gov|
|00000ee0| 2e 0a 0a 43 4f 4e 54 41 | 43 54 0a 0a 20 20 20 20 |...CONTA|CT.. |
|00000ef0| 48 65 6c 70 6c 69 6e 65 | 20 63 61 6e 20 62 65 20 |Helpline| can be |
|00000f00| 72 65 61 63 68 65 64 20 | 62 79 20 70 68 6f 6e 65 |reached |by phone|
|00000f10| 20 61 74 20 28 38 36 35 | 29 20 32 34 31 2d 36 37 | at (865|) 241-67|
|00000f20| 36 35 20 61 6e 64 20 62 | 79 0a 20 20 20 20 65 2d |65 and b|y. e-|
|00000f30| 6d 61 69 6c 20 61 74 20 | 68 65 6c 70 6c 69 6e 65 |mail at |helpline|
|00000f40| 40 6f 72 6e 6c 2e 67 6f | 76 2e 20 20 49 66 20 79 |@ornl.go|v. If y|
|00000f50| 6f 75 20 68 61 76 65 20 | 71 75 65 73 74 69 6f 6e |ou have |question|
|00000f60| 73 2c 20 63 6f 6d 6d 65 | 6e 74 73 2c 20 6f 72 20 |s, comme|nts, or |
|00000f70| 0a 20 20 20 20 73 75 67 | 67 65 73 74 69 6f 6e 73 |. sug|gestions|
|00000f80| 20 66 6f 72 20 69 6d 70 | 72 6f 76 69 6e 67 20 6f | for imp|roving o|
|00000f90| 75 72 20 73 65 72 76 69 | 63 65 2c 20 70 6c 65 61 |ur servi|ce, plea|
|00000fa0| 73 65 20 74 65 6c 6c 20 | 75 73 2e 0a 00 00 00 00 |se tell |us......|
|00000fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001000| 66 74 70 2e 6f 72 6e 6c | 2e 67 6f 76 2f 65 74 63 |ftp.ornl|.gov/etc|
|00001010| 2f 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |/.......|........|
|00001020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001060| 00 00 00 00 30 30 30 30 | 37 35 35 00 30 30 30 31 |....0000|755.0001|
|00001070| 37 35 30 00 30 30 30 31 | 37 35 30 00 30 30 30 30 |750.0001|750.0000|
|00001080| 30 30 30 30 30 30 30 00 | 31 32 33 33 36 34 33 32 |0000000.|12336432|
|00001090| 32 33 37 00 30 31 35 35 | 36 36 00 20 35 00 00 00 |237.0155|66. 5...|
|000010a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001100| 00 75 73 74 61 72 20 20 | 00 6f 68 68 64 65 6d 67 |.ustar |.ohhdemg|
|00001110| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00001120| 00 00 00 00 00 00 00 00 | 00 6f 68 68 64 65 6d 67 |........|.ohhdemg|
|00001130| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00001140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001200| 66 74 70 2e 6f 72 6e 6c | 2e 67 6f 76 2f 69 6e 63 |ftp.ornl|.gov/inc|
|00001210| 6f 6d 69 6e 67 2f 00 00 | 00 00 00 00 00 00 00 00 |oming/..|........|
|00001220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001260| 00 00 00 00 30 30 30 30 | 37 35 35 00 30 30 30 31 |....0000|755.0001|
|00001270| 37 35 30 00 30 30 30 31 | 37 35 30 00 30 30 30 30 |750.0001|750.0000|
|00001280| 30 30 30 30 30 30 30 00 | 31 32 33 33 36 34 33 32 |0000000.|12336432|
|00001290| 32 33 37 00 30 31 36 36 | 31 36 00 20 35 00 00 00 |237.0166|16. 5...|
|000012a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001300| 00 75 73 74 61 72 20 20 | 00 6f 68 68 64 65 6d 67 |.ustar |.ohhdemg|
|00001310| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00001320| 00 00 00 00 00 00 00 00 | 00 6f 68 68 64 65 6d 67 |........|.ohhdemg|
|00001330| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00001340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001400| 66 74 70 2e 6f 72 6e 6c | 2e 67 6f 76 2f 75 73 72 |ftp.ornl|.gov/usr|
|00001410| 2f 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |/.......|........|
|00001420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001460| 00 00 00 00 30 30 30 30 | 37 35 35 00 30 30 30 31 |....0000|755.0001|
|00001470| 37 35 30 00 30 30 30 31 | 37 35 30 00 30 30 30 30 |750.0001|750.0000|
|00001480| 30 30 30 30 30 30 30 00 | 31 32 33 33 36 34 33 32 |0000000.|12336432|
|00001490| 36 36 32 00 30 31 35 36 | 32 36 00 20 35 00 00 00 |662.0156|26. 5...|
|000014a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001500| 00 75 73 74 61 72 20 20 | 00 6f 68 68 64 65 6d 67 |.ustar |.ohhdemg|
|00001510| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00001520| 00 00 00 00 00 00 00 00 | 00 6f 68 68 64 65 6d 67 |........|.ohhdemg|
|00001530| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00001540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000015f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001600| 66 74 70 2e 6f 72 6e 6c | 2e 67 6f 76 2f 75 73 72 |ftp.ornl|.gov/usr|
|00001610| 2f 6c 6f 63 61 6c 2f 00 | 00 00 00 00 00 00 00 00 |/local/.|........|
|00001620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001660| 00 00 00 00 30 30 30 30 | 37 35 35 00 30 30 30 31 |....0000|755.0001|
|00001670| 37 35 30 00 30 30 30 31 | 37 35 30 00 30 30 30 30 |750.0001|750.0000|
|00001680| 30 30 30 30 30 30 30 00 | 31 32 33 33 36 34 33 32 |0000000.|12336432|
|00001690| 36 36 33 00 30 31 36 37 | 32 31 00 20 35 00 00 00 |663.0167|21. 5...|
|000016a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001700| 00 75 73 74 61 72 20 20 | 00 6f 68 68 64 65 6d 67 |.ustar |.ohhdemg|
|00001710| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00001720| 00 00 00 00 00 00 00 00 | 00 6f 68 68 64 65 6d 67 |........|.ohhdemg|
|00001730| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00001740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001800| 66 74 70 2e 6f 72 6e 6c | 2e 67 6f 76 2f 75 73 72 |ftp.ornl|.gov/usr|
|00001810| 2f 6c 6f 63 61 6c 2f 6c | 69 62 2f 00 00 00 00 00 |/local/l|ib/.....|
|00001820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001860| 00 00 00 00 30 30 30 30 | 37 35 35 00 30 30 30 31 |....0000|755.0001|
|00001870| 37 35 30 00 30 30 30 31 | 37 35 30 00 30 30 30 30 |750.0001|750.0000|
|00001880| 30 30 30 30 30 30 30 00 | 31 32 33 33 36 34 33 32 |0000000.|12336432|
|00001890| 36 36 33 00 30 31 37 34 | 36 37 00 20 35 00 00 00 |663.0174|67. 5...|
|000018a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001900| 00 75 73 74 61 72 20 20 | 00 6f 68 68 64 65 6d 67 |.ustar |.ohhdemg|
|00001910| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00001920| 00 00 00 00 00 00 00 00 | 00 6f 68 68 64 65 6d 67 |........|.ohhdemg|
|00001930| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00001940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a00| 66 74 70 2e 6f 72 6e 6c | 2e 67 6f 76 2f 75 73 72 |ftp.ornl|.gov/usr|
|00001a10| 2f 6c 6f 63 61 6c 2f 6c | 69 62 2f 66 74 70 64 5f |/local/l|ib/ftpd_|
|00001a20| 6d 73 67 73 2f 00 00 00 | 00 00 00 00 00 00 00 00 |msgs/...|........|
|00001a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a60| 00 00 00 00 30 30 30 30 | 37 35 35 00 30 30 30 31 |....0000|755.0001|
|00001a70| 37 35 30 00 30 30 30 31 | 37 35 30 00 30 30 30 30 |750.0001|750.0000|
|00001a80| 30 30 30 30 30 30 30 00 | 31 32 33 33 36 34 33 32 |0000000.|12336432|
|00001a90| 36 36 33 00 30 32 31 34 | 35 35 00 20 35 00 00 00 |663.0214|55. 5...|
|00001aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b00| 00 75 73 74 61 72 20 20 | 00 6f 68 68 64 65 6d 67 |.ustar |.ohhdemg|
|00001b10| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00001b20| 00 00 00 00 00 00 00 00 | 00 6f 68 68 64 65 6d 67 |........|.ohhdemg|
|00001b30| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00001b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c00| 66 74 70 2e 6f 72 6e 6c | 2e 67 6f 76 2f 6f 75 74 |ftp.ornl|.gov/out|
|00001c10| 67 6f 69 6e 67 2f 00 00 | 00 00 00 00 00 00 00 00 |going/..|........|
|00001c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c60| 00 00 00 00 30 30 30 30 | 37 35 35 00 30 30 30 31 |....0000|755.0001|
|00001c70| 37 35 30 00 30 30 30 31 | 37 35 30 00 30 30 30 30 |750.0001|750.0000|
|00001c80| 30 30 30 30 30 30 30 00 | 31 32 33 33 36 34 33 32 |0000000.|12336432|
|00001c90| 32 34 35 00 30 31 36 36 | 34 35 00 20 35 00 00 00 |245.0166|45. 5...|
|00001ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d00| 00 75 73 74 61 72 20 20 | 00 6f 68 68 64 65 6d 67 |.ustar |.ohhdemg|
|00001d10| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00001d20| 00 00 00 00 00 00 00 00 | 00 6f 68 68 64 65 6d 67 |........|.ohhdemg|
|00001d30| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00001d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e00| 66 74 70 2e 6f 72 6e 6c | 2e 67 6f 76 2f 70 75 62 |ftp.ornl|.gov/pub|
|00001e10| 2f 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |/.......|........|
|00001e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e60| 00 00 00 00 30 30 30 30 | 37 35 35 00 30 30 30 31 |....0000|755.0001|
|00001e70| 37 35 30 00 30 30 30 31 | 37 35 30 00 30 30 30 30 |750.0001|750.0000|
|00001e80| 30 30 30 30 30 30 30 00 | 31 32 33 33 36 34 33 32 |0000000.|12336432|
|00001e90| 36 36 31 00 30 31 35 36 | 30 32 00 20 35 00 00 00 |661.0156|02. 5...|
|00001ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f00| 00 75 73 74 61 72 20 20 | 00 6f 68 68 64 65 6d 67 |.ustar |.ohhdemg|
|00001f10| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00001f20| 00 00 00 00 00 00 00 00 | 00 6f 68 68 64 65 6d 67 |........|.ohhdemg|
|00001f30| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00001f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002000| 66 74 70 2e 6f 72 6e 6c | 2e 67 6f 76 2f 70 75 62 |ftp.ornl|.gov/pub|
|00002010| 2f 63 73 67 2f 00 00 00 | 00 00 00 00 00 00 00 00 |/csg/...|........|
|00002020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002060| 00 00 00 00 30 30 30 30 | 37 35 35 00 30 30 30 31 |....0000|755.0001|
|00002070| 37 35 30 00 30 30 30 31 | 37 35 30 00 30 30 30 30 |750.0001|750.0000|
|00002080| 30 30 30 30 30 30 30 00 | 31 32 33 33 36 34 33 32 |0000000.|12336432|
|00002090| 33 30 37 00 30 31 36 33 | 35 33 00 20 35 00 00 00 |307.0163|53. 5...|
|000020a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002100| 00 75 73 74 61 72 20 20 | 00 6f 68 68 64 65 6d 67 |.ustar |.ohhdemg|
|00002110| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00002120| 00 00 00 00 00 00 00 00 | 00 6f 68 68 64 65 6d 67 |........|.ohhdemg|
|00002130| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00002140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002200| 66 74 70 2e 6f 72 6e 6c | 2e 67 6f 76 2f 70 75 62 |ftp.ornl|.gov/pub|
|00002210| 2f 63 73 67 2f 53 58 4c | 53 51 49 2e 66 00 00 00 |/csg/SXL|SQI.f...|
|00002220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002260| 00 00 00 00 30 30 30 30 | 36 36 34 00 30 30 30 31 |....0000|664.0001|
|00002270| 37 35 30 00 30 30 30 31 | 37 35 30 00 30 30 30 30 |750.0001|750.0000|
|00002280| 31 30 30 36 33 34 32 00 | 30 36 36 33 37 35 35 31 |1006342.|06637551|
|00002290| 33 36 30 00 30 31 37 35 | 36 35 00 20 30 00 00 00 |360.0175|65. 0...|
|000022a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002300| 00 75 73 74 61 72 20 20 | 00 6f 68 68 64 65 6d 67 |.ustar |.ohhdemg|
|00002310| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00002320| 00 00 00 00 00 00 00 00 | 00 6f 68 68 64 65 6d 67 |........|.ohhdemg|
|00002330| 69 72 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |irls....|........|
|00002340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002400| 43 20 4d 41 49 4e 20 50 | 52 4f 47 52 41 4d 20 4f |C MAIN P|ROGRAM O|
|00002410| 46 20 53 58 4c 53 51 49 | 0a 43 0a 43 20 20 4c 41 |F SXLSQI|.C.C LA|
|00002420| 53 54 20 52 45 56 49 53 | 45 44 20 4e 4f 56 2e 20 |ST REVIS|ED NOV. |
|00002430| 31 37 2c 20 31 39 39 38 | 0a 43 0a 43 20 20 42 59 |17, 1998|.C.C BY|
|00002440| 20 43 2e 20 46 2e 20 42 | 41 45 53 2c 20 4a 52 2e | C. F. B|AES, JR.|
|00002450| 0a 43 0a 43 0a 43 20 4d | 41 49 4e 20 50 52 4f 47 |.C.C.C M|AIN PROG|
|00002460| 52 41 4d 0a 43 0a 43 20 | 20 54 48 45 20 4d 41 49 |RAM.C.C | THE MAI|
|00002470| 4e 20 50 52 4f 47 52 41 | 4d 20 45 53 54 41 42 4c |N PROGRA|M ESTABL|
|00002480| 49 53 48 45 53 20 54 48 | 45 20 53 49 5a 45 20 4f |ISHES TH|E SIZE O|
|00002490| 46 20 54 57 4f 20 4c 49 | 4e 45 41 52 20 41 52 52 |F TWO LI|NEAR ARR|
|000024a0| 41 59 53 0a 43 0a 43 20 | 20 20 20 20 53 20 41 4e |AYS.C.C | S AN|
|000024b0| 44 20 4e 0a 43 0a 43 20 | 20 20 54 48 41 54 20 57 |D N.C.C | THAT W|
|000024c0| 49 4c 4c 20 53 54 4f 52 | 45 20 41 52 52 41 59 53 |ILL STOR|E ARRAYS|
|000024d0| 20 4f 46 20 41 44 4a 55 | 53 54 41 42 4c 45 20 4c | OF ADJU|STABLE L|
|000024e0| 45 4e 47 54 48 20 44 45 | 54 45 52 4d 49 4e 45 44 |ENGTH DE|TERMINED|
|000024f0| 20 42 59 0a 43 20 20 20 | 54 48 45 20 53 49 5a 45 | BY.C |THE SIZE|
|00002500| 20 4f 46 20 54 48 45 20 | 41 53 53 55 4d 45 44 20 | OF THE |ASSUMED |
|00002510| 4d 4f 44 45 4c 20 41 4e | 44 20 54 48 45 20 44 41 |MODEL AN|D THE DA|
|00002520| 54 41 20 53 45 54 0a 43 | 0a 43 20 0a 20 20 20 20 |TA SET.C|.C . |
|00002530| 20 20 49 4d 50 4c 49 43 | 49 54 20 52 45 41 4c 2a | IMPLIC|IT REAL*|
|00002540| 38 28 41 2d 48 2c 4f 2d | 5a 29 0a 20 20 20 20 20 |8(A-H,O-|Z). |
|00002550| 20 44 49 4d 45 4e 53 49 | 4f 4e 20 53 28 35 30 30 | DIMENSI|ON S(500|
|00002560| 30 30 29 2c 4e 28 38 30 | 30 29 0a 20 20 20 20 20 |00),N(80|0). |
|00002570| 20 43 4f 4d 4d 4f 4e 2f | 4c 47 53 4e 2f 4c 47 53 | COMMON/|LGSN/LGS|
|00002580| 2c 4c 47 4e 0a 43 20 20 | 41 53 53 49 47 4e 20 54 |,LGN.C |ASSIGN T|
|00002590| 48 45 20 4c 45 4e 47 54 | 48 20 4f 46 20 41 52 52 |HE LENGT|H OF ARR|
|000025a0| 41 59 20 53 20 44 45 43 | 4c 41 52 45 44 20 41 42 |AY S DEC|LARED AB|
|000025b0| 4f 56 45 0a 20 20 20 20 | 20 20 4c 47 53 3d 35 30 |OVE. | LGS=50|
|000025c0| 30 30 30 0a 43 20 20 41 | 53 53 49 47 4e 20 54 48 |000.C A|SSIGN TH|
|000025d0| 45 20 4c 45 4e 47 54 48 | 20 4f 46 20 41 52 52 41 |E LENGTH| OF ARRA|
|000025e0| 59 20 4e 20 44 45 43 4c | 41 52 45 44 20 41 42 4f |Y N DECL|ARED ABO|
|000025f0| 56 45 20 0a 20 20 20 20 | 20 20 4c 47 4e 3d 38 30 |VE . | LGN=80|
|00002600| 30 0a 43 20 20 43 41 4c | 4c 20 53 55 42 52 4f 55 |0.C CAL|L SUBROU|
|00002610| 54 49 4e 45 20 54 48 41 | 54 20 57 49 4c 4c 20 4c |TINE THA|T WILL L|
|00002620| 4f 43 41 54 45 20 49 4e | 20 53 20 41 4e 44 20 4e |OCATE IN| S AND N|
|00002630| 20 56 41 52 49 4f 55 53 | 20 41 52 52 41 59 53 20 | VARIOUS| ARRAYS |
|00002640| 54 4f 0a 43 20 20 20 42 | 45 20 55 53 45 44 20 49 |TO.C B|E USED I|
|00002650| 4e 20 54 48 45 20 43 41 | 4c 43 55 4c 41 54 49 4f |N THE CA|LCULATIO|
|00002660| 4e 53 0a 20 20 20 20 20 | 20 43 41 4c 4c 20 41 52 |NS. | CALL AR|
|00002670| 52 41 59 53 28 53 2c 4e | 29 0a 20 20 20 20 20 20 |RAYS(S,N|). |
|00002680| 45 4e 44 0a 43 0a 43 0a | 43 0a 43 20 20 53 55 42 |END.C.C.|C.C SUB|
|00002690| 52 4f 55 54 49 4e 45 20 | 54 4f 20 45 53 54 41 42 |ROUTINE |TO ESTAB|
|000026a0| 4c 49 53 48 20 54 48 45 | 20 4c 45 4e 47 54 48 20 |LISH THE| LENGTH |
|000026b0| 41 4e 44 20 50 4f 53 49 | 54 49 4f 4e 20 4f 46 20 |AND POSI|TION OF |
|000026c0| 56 41 52 49 4f 55 53 20 | 41 52 52 41 59 53 0a 43 |VARIOUS |ARRAYS.C|
|000026d0| 20 20 20 49 4e 20 54 48 | 45 20 4c 49 4e 45 41 52 | IN TH|E LINEAR|
|000026e0| 20 41 52 52 41 59 53 20 | 53 20 41 4e 44 20 4e 0a | ARRAYS |S AND N.|
|000026f0| 43 0a 43 20 20 20 50 41 | 52 41 4d 45 54 45 52 53 |C.C PA|RAMETERS|
|00002700| 20 54 48 41 54 20 44 45 | 54 45 52 4d 49 4e 45 20 | THAT DE|TERMINE |
|00002710| 41 52 52 41 59 20 53 49 | 5a 45 53 0a 43 0a 43 20 |ARRAY SI|ZES.C.C |
|00002720| 20 20 20 20 20 20 20 20 | 4e 41 4e 20 3d 20 4e 55 | |NAN = NU|
|00002730| 4d 42 45 52 20 4f 46 20 | 41 51 55 45 4f 55 53 20 |MBER OF |AQUEOUS |
|00002740| 41 4e 49 4f 4e 53 0a 43 | 20 20 20 20 20 20 20 20 |ANIONS.C| |
|00002750| 20 4e 43 41 20 3d 20 4e | 55 4d 42 45 52 20 4f 46 | NCA = N|UMBER OF|
|00002760| 20 41 51 55 45 4f 55 53 | 20 43 41 54 49 4f 4e 53 | AQUEOUS| CATIONS|
|00002770| 0a 43 20 20 20 20 20 20 | 20 20 20 4e 4e 55 20 3d |.C | NNU =|
|00002780| 20 4e 55 4d 42 45 52 20 | 4f 46 20 4e 45 55 54 52 | NUMBER |OF NEUTR|
|00002790| 41 4c 20 41 51 55 45 4f | 55 53 20 53 50 45 43 49 |AL AQUEO|US SPECI|
|000027a0| 45 53 0a 43 20 20 20 20 | 20 20 20 20 20 4e 4f 20 |ES.C | NO |
|000027b0| 20 3d 20 4e 55 4d 42 45 | 52 20 4f 46 20 44 41 54 | = NUMBE|R OF DAT|
|000027c0| 41 20 50 4f 49 4e 54 53 | 0a 43 20 20 20 20 20 20 |A POINTS|.C |
|000027d0| 20 20 20 4e 50 41 20 3d | 20 4e 55 4d 42 45 52 20 | NPA =| NUMBER |
|000027e0| 4f 46 20 41 42 53 4f 52 | 42 45 4e 43 59 20 50 41 |OF ABSOR|BENCY PA|
|000027f0| 52 41 4d 45 54 45 52 53 | 20 50 45 52 20 53 50 45 |RAMETERS| PER SPE|
|00002800| 43 49 45 53 0a 43 20 20 | 20 20 20 20 20 20 20 4e |CIES.C | N|
|00002810| 50 48 20 3d 20 44 45 4e | 4f 54 45 53 20 50 52 45 |PH = DEN|OTES PRE|
|00002820| 53 45 4e 43 45 20 28 31 | 29 20 4f 52 20 41 42 53 |SENCE (1|) OR ABS|
|00002830| 45 4e 43 45 20 28 30 29 | 20 4f 46 20 4f 4e 45 20 |ENCE (0)| OF ONE |
|00002840| 48 45 41 54 0a 43 20 20 | 20 20 20 20 20 20 20 20 |HEAT.C | |
|00002850| 20 20 20 20 20 20 50 41 | 52 41 4d 45 54 45 52 20 | PA|RAMETER |
|00002860| 46 4f 52 20 53 50 45 43 | 49 45 53 0a 43 20 20 20 |FOR SPEC|IES.C |
|00002870| 20 20 20 20 20 20 4e 53 | 41 20 3d 20 4e 55 4d 42 | NS|A = NUMB|
|00002880| 45 52 20 4f 46 20 50 52 | 4f 44 55 43 54 20 53 50 |ER OF PR|ODUCT SP|
|00002890| 45 43 49 45 53 20 49 4e | 20 54 48 45 20 41 51 55 |ECIES IN| THE AQU|
|000028a0| 45 4f 55 53 20 50 48 41 | 53 45 0a 43 20 20 20 20 |EOUS PHA|SE.C |
|000028b0| 20 20 20 20 20 4e 53 4f | 20 3d 20 4e 55 4d 42 45 | NSO| = NUMBE|
|000028c0| 52 20 4f 46 20 50 52 4f | 44 55 43 54 20 53 50 45 |R OF PRO|DUCT SPE|
|000028d0| 43 49 45 53 20 49 4e 20 | 54 48 45 20 4e 4f 4e 41 |CIES IN |THE NONA|
|000028e0| 51 55 45 4f 55 53 20 50 | 48 41 53 45 0a 43 20 20 |QUEOUS P|HASE.C |
|000028f0| 20 20 20 20 20 20 20 4e | 55 4d 20 3d 20 46 4c 41 | N|UM = FLA|
|00002900| 47 20 49 4e 44 49 43 41 | 54 49 4e 47 20 54 48 41 |G INDICA|TING THA|
|00002910| 54 20 45 46 46 45 43 54 | 53 20 4f 46 20 55 4e 53 |T EFFECT|S OF UNS|
|00002920| 59 4d 4d 45 54 52 49 43 | 41 4c 20 4d 49 58 49 4e |YMMETRIC|AL MIXIN|
|00002930| 47 0a 43 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |G.C | |
|00002940| 20 20 20 4f 46 20 49 4f | 4e 53 20 57 49 4c 4c 20 | OF IO|NS WILL |
|00002950| 28 31 29 20 4f 52 20 57 | 49 4c 4c 20 4e 4f 54 20 |(1) OR W|ILL NOT |
|00002960| 28 30 29 20 42 45 20 49 | 4e 43 4c 55 44 45 44 20 |(0) BE I|NCLUDED |
|00002970| 49 4e 20 54 48 45 0a 43 | 20 20 20 20 20 20 20 20 |IN THE.C| |
|00002980| 20 20 20 20 20 20 20 20 | 50 49 54 5a 45 52 20 54 | |PITZER T|
|00002990| 52 45 41 54 4d 45 4e 54 | 0a 43 20 20 20 20 20 20 |REATMENT|.C |
|000029a0| 20 20 20 4e 55 50 20 3d | 20 4e 55 4d 42 45 52 20 | NUP =| NUMBER |
|000029b0| 4f 46 20 55 53 45 52 2d | 44 45 46 49 4e 45 44 20 |OF USER-|DEFINED |
|000029c0| 41 44 4a 55 53 54 41 42 | 4c 45 20 50 41 52 41 4d |ADJUSTAB|LE PARAM|
|000029d0| 45 54 45 52 53 0a 43 20 | 20 20 20 20 20 20 20 20 |ETERS.C | |
|000029e0| 4e 56 50 20 3d 20 4e 55 | 4d 42 45 52 20 4f 46 20 |NVP = NU|MBER OF |
|000029f0| 50 41 52 41 4d 45 54 45 | 52 53 20 42 45 49 4e 47 |PARAMETE|RS BEING|
|00002a00| 20 52 45 46 49 4e 45 44 | 0a 43 0a 43 20 20 20 20 | REFINED|.C.C |
|00002a10| 20 41 52 52 41 59 20 20 | 20 20 20 20 20 20 20 43 | ARRAY | C|
|00002a20| 4f 4e 54 41 49 4e 53 20 | 20 20 20 20 20 20 20 20 |ONTAINS | |
|00002a30| 20 20 20 20 20 20 20 4c | 45 4e 47 54 48 20 20 20 | L|ENGTH |
|00002a40| 20 20 20 53 54 41 52 54 | 49 4e 47 20 50 4f 53 49 | START|ING POSI|
|00002a50| 54 49 4f 4e 20 0a 43 0a | 43 20 20 20 20 20 41 43 |TION .C.|C AC|
|00002a60| 20 20 20 20 20 4e 4f 4e | 41 51 2e 53 4f 4c 55 54 | NON|AQ.SOLUT|
|00002a70| 45 20 41 43 54 49 56 49 | 54 59 20 20 20 20 20 20 |E ACTIVI|TY |
|00002a80| 20 20 20 20 32 2b 4e 53 | 4f 20 20 20 20 20 20 20 | 2+NS|O |
|00002a90| 20 20 20 20 53 28 4a 41 | 43 53 29 0a 43 20 20 20 | S(JA|CS).C |
|00002aa0| 20 20 20 20 20 20 20 20 | 20 20 28 58 20 53 43 41 | | (X SCA|
|00002ab0| 4c 45 29 0a 43 20 20 20 | 20 20 41 4c 50 20 20 20 |LE).C | ALP |
|00002ac0| 20 50 49 54 5a 45 52 20 | 50 41 52 41 4d 2e 2c 20 | PITZER |PARAM., |
|00002ad0| 43 41 2e 2d 41 4e 2e 20 | 20 20 20 20 20 20 20 20 |CA.-AN. | |
|00002ae0| 32 2a 4e 43 41 2a 4e 41 | 4e 20 20 20 20 20 20 20 |2*NCA*NA|N |
|00002af0| 53 28 4a 41 4c 50 29 0a | 43 20 20 20 20 20 41 4d |S(JALP).|C AM|
|00002b00| 20 20 20 20 20 41 52 52 | 41 59 20 55 53 45 44 20 | ARR|AY USED |
|00002b10| 42 59 20 4f 52 47 4c 53 | 20 20 20 20 20 20 20 20 |BY ORGLS| |
|00002b20| 20 20 20 20 4e 56 50 2a | 28 4e 56 50 2b 33 29 2f | NVP*|(NVP+3)/|
|00002b30| 32 20 20 20 53 28 4e 4c | 41 4d 29 20 20 0a 43 20 |2 S(NL|AM) .C |
|00002b40| 20 20 20 20 41 4d 45 56 | 20 20 20 41 52 52 41 59 | AMEV| ARRAY|
|00002b50| 20 55 53 45 44 20 42 59 | 20 4f 52 47 4c 53 20 20 | USED BY| ORGLS |
|00002b60| 20 20 20 20 20 20 20 20 | 20 20 4e 56 50 2a 28 4e | | NVP*(N|
|00002b70| 56 50 2b 33 29 2f 32 20 | 20 20 53 28 4e 4c 41 4d |VP+3)/2 | S(NLAM|
|00002b80| 56 29 0a 43 20 20 20 20 | 20 42 30 20 20 20 20 20 |V).C | B0 |
|00002b90| 50 49 54 5a 45 52 20 50 | 41 52 41 4d 2e 2c 20 43 |PITZER P|ARAM., C|
|00002ba0| 41 2e 2d 41 4e 2e 20 20 | 20 20 20 20 20 20 20 4e |A.-AN. | N|
|00002bb0| 43 41 2a 4e 41 4e 20 20 | 20 20 20 20 20 20 20 53 |CA*NAN | S|
|00002bc0| 28 4a 42 30 29 20 20 20 | 20 20 20 0a 43 20 20 20 |(JB0) | .C |
|00002bd0| 20 20 42 31 20 20 20 20 | 20 50 49 54 5a 45 52 20 | B1 | PITZER |
|00002be0| 50 41 52 41 4d 2e 2c 20 | 43 41 2e 2d 41 4e 2e 20 |PARAM., |CA.-AN. |
|00002bf0| 20 20 20 20 20 20 20 20 | 4e 43 41 2a 4e 41 4e 20 | |NCA*NAN |
|00002c00| 20 20 20 20 20 20 20 20 | 53 28 4a 42 31 29 20 20 | |S(JB1) |
|00002c10| 20 20 20 20 0a 43 20 20 | 20 20 20 42 32 20 20 20 | .C | B2 |
|00002c20| 20 20 50 49 54 5a 45 52 | 20 50 41 52 41 4d 2e 2c | PITZER| PARAM.,|
|00002c30| 20 43 41 2e 2d 41 4e 2e | 20 20 20 20 20 20 20 20 | CA.-AN.| |
|00002c40| 20 4e 43 41 2a 4e 41 4e | 20 20 20 20 20 20 20 20 | NCA*NAN| |
|00002c50| 20 53 28 4a 42 32 29 20 | 20 20 20 20 20 0a 43 20 | S(JB2) | .C |
|00002c60| 20 20 20 20 42 50 20 20 | 20 20 20 50 49 54 5a 45 | BP | PITZE|
|00002c70| 52 20 50 41 52 41 4d 2e | 2c 20 43 41 2e 2d 41 4e |R PARAM.|, CA.-AN|
|00002c80| 2e 20 20 20 20 20 20 20 | 20 20 4e 43 41 2a 4e 41 |. | NCA*NA|
|00002c90| 4e 20 20 20 20 20 20 20 | 20 20 53 28 4a 42 50 29 |N | S(JBP)|
|00002ca0| 20 20 20 20 20 20 0a 43 | 20 20 20 20 20 42 47 20 | .C| BG |
|00002cb0| 20 20 20 20 50 49 54 5a | 45 52 20 50 41 52 41 4d | PITZ|ER PARAM|
|00002cc0| 2e 2c 20 43 41 2e 2d 41 | 4e 2e 20 20 20 20 20 20 |., CA.-A|N. |
|00002cd0| 20 20 20 4e 43 41 2a 4e | 41 4e 20 20 20 20 20 20 | NCA*N|AN |
|00002ce0| 20 20 20 53 28 4a 42 47 | 29 20 20 0a 43 20 20 20 | S(JBG|) .C |
|00002cf0| 20 20 42 47 50 20 20 20 | 20 50 49 54 5a 45 52 20 | BGP | PITZER |
|00002d00| 50 41 52 41 4d 2e 2c 20 | 43 41 2e 2d 41 4e 2e 20 |PARAM., |CA.-AN. |
|00002d10| 20 20 20 20 20 20 20 20 | 4e 43 41 2a 4e 41 4e 20 | |NCA*NAN |
|00002d20| 20 20 20 20 20 20 20 20 | 53 28 4a 42 47 50 29 20 | |S(JBGP) |
|00002d30| 20 0a 43 20 20 20 20 20 | 43 41 4d 20 20 20 20 41 | .C |CAM A|
|00002d40| 4e 49 4f 4e 20 43 4f 4e | 43 45 4e 54 52 41 54 49 |NION CON|CENTRATI|
|00002d50| 4f 4e 20 20 20 20 20 20 | 20 20 20 20 20 20 4e 41 |ON | NA|
|00002d60| 4e 20 20 20 20 20 20 20 | 20 20 20 20 20 20 53 28 |N | S(|
|00002d70| 4a 41 4d 29 0a 43 20 20 | 20 20 20 43 41 50 20 20 |JAM).C | CAP |
|00002d80| 20 20 43 41 4c 43 2e 41 | 51 2e 50 52 4f 44 2e 53 | CALC.A|Q.PROD.S|
|00002d90| 50 43 2e 43 4f 4e 43 2e | 20 20 20 20 20 20 20 20 |PC.CONC.| |
|00002da0| 20 4e 53 41 20 20 20 20 | 20 20 20 20 20 20 20 20 | NSA | |
|00002db0| 20 53 28 4a 43 41 29 0a | 43 20 20 20 20 20 43 42 | S(JCA).|C CB|
|00002dc0| 4d 20 20 20 20 4e 45 55 | 54 52 41 4c 20 53 50 2e |M NEU|TRAL SP.|
|00002dd0| 20 43 4f 4e 43 45 4e 54 | 52 41 54 49 4f 4e 20 20 | CONCENT|RATION |
|00002de0| 20 20 20 20 4e 4e 55 20 | 20 20 20 20 20 20 20 20 | NNU | |
|00002df0| 20 20 20 20 53 28 4a 42 | 4d 29 0a 43 20 20 20 20 | S(JB|M).C |
|00002e00| 20 43 45 4f 43 20 20 20 | 45 58 50 4f 4e 2e 49 4e | CEOC |EXPON.IN|
|00002e10| 20 4e 4f 4d 2d 41 51 2e | 43 4f 4d 42 2e 52 43 54 | NOM-AQ.|COMB.RCT|
|00002e20| 4e 2e 20 20 20 20 20 38 | 2b 4e 53 4f 20 20 20 20 |N. 8|+NSO |
|00002e30| 20 20 20 20 20 20 20 53 | 28 4a 43 45 4f 29 0a 43 | S|(JCEO).C|
|00002e40| 20 20 20 20 20 43 43 4d | 20 20 20 20 43 41 54 49 | CCM| CATI|
|00002e50| 4f 4e 20 43 4f 4e 43 45 | 4e 54 52 41 54 49 4f 4e |ON CONCE|NTRATION|
|00002e60| 20 20 20 20 20 20 20 20 | 20 20 20 4e 43 41 20 20 | | NCA |
|00002e70| 20 20 20 20 20 20 20 20 | 20 20 20 53 28 4a 43 4d | | S(JCM|
|00002e80| 29 0a 43 20 20 20 20 20 | 43 47 20 20 20 20 20 50 |).C |CG P|
|00002e90| 49 54 5a 45 52 20 50 41 | 52 41 4d 2e 2c 20 43 41 |ITZER PA|RAM., CA|
|00002ea0| 2e 2d 41 4e 2e 20 20 20 | 20 20 20 20 20 20 4e 43 |.-AN. | NC|
|00002eb0| 41 2a 4e 41 4e 20 20 20 | 20 20 20 20 20 20 53 28 |A*NAN | S(|
|00002ec0| 4a 43 47 29 0a 43 20 20 | 20 20 20 43 4f 50 20 20 |JCG).C | COP |
|00002ed0| 20 20 43 41 4c 43 2e 4e | 4f 4e 41 51 2e 50 52 4f | CALC.N|ONAQ.PRO|
|00002ee0| 44 2e 53 50 43 2e 43 4f | 4e 43 2e 20 20 20 20 20 |D.SPC.CO|NC. |
|00002ef0| 20 4e 53 4f 20 20 20 20 | 20 20 20 20 20 20 20 20 | NSO | |
|00002f00| 20 53 28 4a 43 4f 29 0a | 43 20 20 20 20 20 43 50 | S(JCO).|C CP|
|00002f10| 20 20 20 20 20 50 49 54 | 5a 45 52 20 50 41 52 41 | PIT|ZER PARA|
|00002f20| 4d 2e 2c 20 43 41 2e 2d | 41 4e 2e 20 20 20 20 20 |M., CA.-|AN. |
|00002f30| 20 20 20 20 4e 43 41 2a | 4e 41 4e 20 20 20 20 20 | NCA*|NAN |
|00002f40| 20 20 20 20 53 28 4a 43 | 50 29 20 20 20 20 20 20 | S(JC|P) |
|00002f50| 0a 43 20 20 20 20 20 43 | 53 20 20 20 20 20 45 53 |.C C|S ES|
|00002f60| 54 2e 45 51 55 49 4c 2e | 43 4f 4e 43 45 4e 54 52 |T.EQUIL.|CONCENTR|
|00002f70| 41 54 49 4f 4e 53 20 20 | 20 20 20 20 20 38 2b 4e |ATIONS | 8+N|
|00002f80| 53 4f 2b 4e 53 41 20 20 | 20 20 20 20 20 53 28 4a |SO+NSA | S(J|
|00002f90| 4c 43 53 29 20 20 20 20 | 20 20 20 20 0a 43 20 20 |LCS) | .C |
|00002fa0| 20 20 20 44 43 41 20 20 | 20 20 50 49 54 5a 45 52 | DCA | PITZER|
|00002fb0| 20 50 41 52 41 4d 2e 2c | 20 4e 55 2e 20 20 20 20 | PARAM.,| NU. |
|00002fc0| 20 20 20 20 20 20 20 20 | 20 4e 4e 55 20 20 20 20 | | NNU |
|00002fd0| 20 20 20 20 20 20 20 20 | 20 53 28 4a 44 43 41 29 | | S(JDCA)|
|00002fe0| 20 20 20 20 20 20 0a 43 | 20 20 20 20 20 44 49 41 | .C| DIA|
|00002ff0| 47 20 20 20 41 52 52 41 | 59 20 55 53 45 44 20 42 |G ARRA|Y USED B|
|00003000| 59 20 4f 52 47 4c 53 20 | 20 20 20 20 20 20 20 20 |Y ORGLS | |
|00003010| 20 20 20 4e 56 50 20 20 | 20 20 20 20 20 20 20 20 | NVP | |
|00003020| 20 20 20 53 28 4e 4c 44 | 47 29 0a 43 20 20 20 20 | S(NLD|G).C |
|00003030| 20 44 50 20 20 20 20 20 | 41 44 4a 2e 50 41 52 41 | DP |ADJ.PARA|
|00003040| 4d 45 54 45 52 20 49 4e | 43 52 45 4d 45 4e 54 53 |METER IN|CREMENTS|
|00003050| 20 20 20 20 20 20 20 4c | 50 20 20 20 20 20 20 20 | L|P |
|00003060| 20 20 20 20 20 20 20 53 | 28 4a 44 50 29 0a 43 20 | S|(JDP).C |
|00003070| 20 20 20 20 44 56 20 20 | 20 20 20 41 52 52 41 59 | DV | ARRAY|
|00003080| 20 55 53 45 44 20 42 59 | 20 4f 52 47 4c 53 20 20 | USED BY| ORGLS |
|00003090| 20 20 20 20 20 20 20 20 | 20 20 4e 56 50 20 20 20 | | NVP |
|000030a0| 20 20 20 20 20 20 20 20 | 20 20 53 28 4e 4c 44 56 | | S(NLDV|
|000030b0| 29 0a 43 20 20 20 20 20 | 45 41 43 20 20 20 20 52 |).C |EAC R|
|000030c0| 43 54 2e 43 4f 4e 2e 45 | 58 50 2e 2c 20 41 51 2e |CT.CON.E|XP., AQ.|
|000030d0| 45 51 55 49 4c 2e 43 4f | 4e 53 54 2e 20 20 38 2a |EQUIL.CO|NST. 8*|
|000030e0| 4e 53 41 20 20 20 20 20 | 20 20 20 20 20 20 53 28 |NSA | S(|
|000030f0| 4a 45 41 43 29 0a 43 20 | 20 20 20 20 45 4f 43 20 |JEAC).C | EOC |
|00003100| 20 20 20 52 43 54 2e 43 | 4f 4e 2e 45 58 50 2e 2c | RCT.C|ON.EXP.,|
|00003110| 20 4e 4f 4e 41 51 2e 45 | 51 2e 43 4f 4e 53 54 2e | NONAQ.E|Q.CONST.|
|00003120| 20 20 38 2a 4e 53 4f 20 | 20 20 20 20 20 20 20 20 | 8*NSO | |
|00003130| 20 20 53 28 4a 45 4f 43 | 29 0a 43 20 20 20 20 20 | S(JEOC|).C |
|00003140| 45 50 20 20 20 20 20 41 | 52 52 41 59 20 55 53 45 |EP A|RRAY USE|
|00003150| 44 20 42 59 20 53 4d 50 | 4c 58 20 20 20 20 20 20 |D BY SMP|LX |
|00003160| 20 20 20 20 20 20 38 2b | 4e 53 4f 2b 4e 53 41 20 | 8+|NSO+NSA |
|00003170| 20 20 20 20 20 20 53 28 | 4a 4c 45 50 29 0a 43 20 | S(|JLEP).C |
|00003180| 20 20 20 20 45 54 48 41 | 20 20 20 50 49 54 5a 2e | ETHA| PITZ.|
|00003190| 55 4e 53 59 4d 2e 4d 58 | 47 2e 50 41 52 41 4d 53 |UNSYM.MX|G.PARAMS|
|000031a0| 2c 20 41 4e 49 4f 4e 53 | 20 20 4e 55 4d 2a 4e 41 |, ANIONS| NUM*NA|
|000031b0| 4e 2a 4e 41 4e 20 20 20 | 20 20 53 28 4a 45 41 29 |N*NAN | S(JEA)|
|000031c0| 20 20 0a 43 20 20 20 20 | 20 45 54 48 41 50 20 20 | .C | ETHAP |
|000031d0| 50 49 54 5a 2e 55 4e 53 | 59 4d 2e 4d 58 47 2e 50 |PITZ.UNS|YM.MXG.P|
|000031e0| 41 52 41 4d 53 2c 20 41 | 4e 49 4f 4e 53 20 20 4e |ARAMS, A|NIONS N|
|000031f0| 55 4d 2a 4e 41 4e 2a 4e | 41 4e 20 20 20 20 20 53 |UM*NAN*N|AN S|
|00003200| 28 4a 45 41 50 29 0a 43 | 20 20 20 20 20 45 54 48 |(JEAP).C| ETH|
|00003210| 43 20 20 20 50 49 54 5a | 2e 55 4e 53 59 4d 2e 4d |C PITZ|.UNSYM.M|
|00003220| 58 47 2e 50 41 52 41 4d | 53 2c 20 43 41 54 49 4f |XG.PARAM|S, CATIO|
|00003230| 4e 53 20 4e 55 4d 2a 4e | 43 41 2a 4e 43 41 20 20 |NS NUM*N|CA*NCA |
|00003240| 20 20 20 53 28 4a 45 43 | 29 20 20 0a 43 20 20 20 | S(JEC|) .C |
|00003250| 20 20 45 54 48 43 50 20 | 20 50 49 54 5a 2e 55 4e | ETHCP | PITZ.UN|
|00003260| 53 59 4d 2e 4d 58 47 2e | 50 41 52 41 4d 53 2c 20 |SYM.MXG.|PARAMS, |
|00003270| 43 41 54 49 4f 4e 53 20 | 4e 55 4d 2a 4e 43 41 2a |CATIONS |NUM*NCA*|
|00003280| 4e 43 41 20 20 20 20 20 | 53 28 4a 45 43 50 29 0a |NCA |S(JECP).|
|00003290| 43 20 20 20 20 20 45 56 | 41 4c 20 20 20 41 52 52 |C EV|AL ARR|
|000032a0| 41 59 20 55 53 45 44 20 | 42 59 20 4f 52 47 4c 53 |AY USED |BY ORGLS|
|000032b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 4e 56 50 20 | | NVP |
|000032c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 28 4e 4c | | S(NL|
|000032d0| 45 56 41 29 0a 43 20 20 | 20 20 20 45 56 45 43 20 |EVA).C | EVEC |
|000032e0| 20 20 41 52 52 41 59 20 | 55 53 45 44 20 42 59 20 | ARRAY |USED BY |
|000032f0| 4f 52 47 4c 53 20 20 20 | 20 20 20 20 20 20 20 20 |ORGLS | |
|00003300| 20 4e 56 50 2a 4e 56 50 | 20 20 20 20 20 20 20 20 | NVP*NVP| |
|00003310| 20 53 28 4e 4c 45 56 43 | 29 0a 43 20 20 20 20 20 | S(NLEVC|).C |
|00003320| 45 58 43 20 20 20 20 41 | 52 52 41 59 20 55 53 45 |EXC A|RRAY USE|
|00003330| 44 20 42 59 20 53 4d 50 | 4c 58 20 20 20 20 20 20 |D BY SMP|LX |
|00003340| 20 20 20 20 20 20 38 2b | 4e 53 4f 2b 4e 53 41 20 | 8+|NSO+NSA |
|00003350| 20 20 20 20 20 20 53 28 | 4a 4c 45 58 29 0a 43 20 | S(|JLEX).C |
|00003360| 20 20 20 20 46 41 43 20 | 20 20 20 46 41 43 54 4f | FAC | FACTO|
|00003370| 52 20 49 4e 20 41 51 2e | 45 51 55 49 4c 2e 43 4f |R IN AQ.|EQUIL.CO|
|00003380| 4e 53 54 2e 20 20 20 20 | 20 20 38 2a 4e 53 41 20 |NST. | 8*NSA |
|00003390| 20 20 20 20 20 20 20 20 | 20 20 53 28 4a 46 41 43 | | S(JFAC|
|000033a0| 29 0a 43 20 20 20 20 20 | 46 41 4b 20 20 20 20 41 |).C |FAK A|
|000033b0| 51 2e 50 52 4f 44 2e 53 | 50 2e 46 4f 52 4d 41 54 |Q.PROD.S|P.FORMAT|
|000033c0| 49 4f 4e 20 43 4f 4e 53 | 54 2e 20 20 20 20 4e 53 |ION CONS|T. NS|
|000033d0| 41 20 20 20 20 20 20 20 | 20 20 20 20 20 20 53 28 |A | S(|
|000033e0| 4a 46 41 4b 29 0a 43 20 | 20 20 20 20 46 43 4c 20 |JFAK).C | FCL |
|000033f0| 20 20 20 46 43 54 4e 53 | 2e 4f 46 20 58 43 4c 20 | FCTNS|.OF XCL |
|00003400| 54 4f 20 42 45 20 53 41 | 54 49 53 46 49 45 44 20 |TO BE SA|TISFIED |
|00003410| 20 20 38 2b 4e 53 4f 2b | 4e 53 41 20 20 20 20 20 | 8+NSO+|NSA |
|00003420| 20 20 53 28 4a 4c 46 43 | 4c 29 0a 43 20 20 20 20 | S(JLFC|L).C |
|00003430| 20 46 4f 43 20 20 20 20 | 46 41 43 54 4f 52 20 49 | FOC |FACTOR I|
|00003440| 4e 20 4e 4f 4e 41 51 2e | 45 51 2e 43 4f 4e 53 54 |N NONAQ.|EQ.CONST|
|00003450| 2e 20 20 20 20 20 20 38 | 2a 4e 53 4f 20 20 20 20 |. 8|*NSO |
|00003460| 20 20 20 20 20 20 20 53 | 28 4a 46 4f 43 29 0a 43 | S|(JFOC).C|
|00003470| 20 20 20 20 20 46 4f 4b | 20 20 20 20 4e 4f 4e 41 | FOK| NONA|
|00003480| 51 2e 50 52 4f 44 2e 53 | 50 2e 46 4f 52 4d 27 4e |Q.PROD.S|P.FORM'N|
|00003490| 2e 43 4f 4e 53 54 2e 20 | 20 20 20 4e 53 4f 20 20 |.CONST. | NSO |
|000034a0| 20 20 20 20 20 20 20 20 | 20 20 20 53 28 4a 46 4f | | S(JFO|
|000034b0| 4b 29 0a 43 20 20 20 20 | 20 46 58 20 20 20 20 20 |K).C | FX |
|000034c0| 41 52 52 41 59 20 55 53 | 45 44 20 42 59 20 53 4d |ARRAY US|ED BY SM|
|000034d0| 50 4c 58 20 20 20 20 20 | 20 20 20 20 20 20 20 31 |PLX | 1|
|000034e0| 31 2b 4e 53 4f 2b 4e 53 | 41 20 20 20 20 20 20 53 |1+NSO+NS|A S|
|000034f0| 28 4a 4c 46 58 29 0a 43 | 20 20 20 20 20 47 20 20 |(JLFX).C| G |
|00003500| 20 20 20 20 41 43 54 49 | 56 49 54 59 20 43 4f 45 | ACTI|VITY COE|
|00003510| 46 46 49 43 49 45 4e 54 | 53 20 20 20 20 20 20 20 |FFICIENT|S |
|00003520| 20 20 20 38 2b 4e 53 4f | 2b 4e 53 41 20 20 20 20 | 8+NSO|+NSA |
|00003530| 20 20 20 53 28 4a 4c 47 | 29 0a 43 20 20 20 20 20 | S(JLG|).C |
|00003540| 47 4f 20 20 20 20 20 53 | 4f 4c 55 42 49 4c 49 54 |GO S|OLUBILIT|
|00003550| 59 20 50 41 52 41 4d 45 | 54 45 52 53 20 20 20 20 |Y PARAME|TERS |
|00003560| 20 20 20 20 20 20 32 2b | 4e 53 4f 20 20 20 20 20 | 2+|NSO |
|00003570| 20 20 20 20 20 20 53 28 | 4a 4c 47 4f 29 0a 43 20 | S(|JLGO).C |
|00003580| 20 20 20 20 47 58 20 20 | 20 20 20 4e 4f 4e 41 51 | GX | NONAQ|
|00003590| 2e 4d 4f 4c 45 20 46 52 | 41 43 54 2e 41 43 54 2e |.MOLE FR|ACT.ACT.|
|000035a0| 43 4f 45 46 2e 20 20 20 | 20 20 32 2b 4e 53 4f 20 |COEF. | 2+NSO |
|000035b0| 20 20 20 20 20 20 20 20 | 20 20 53 28 4a 47 58 53 | | S(JGXS|
|000035c0| 29 0a 43 20 20 20 20 20 | 47 58 30 20 20 20 20 4c |).C |GX0 L|
|000035d0| 49 4d 49 54 49 4e 47 20 | 41 43 54 49 56 49 54 59 |IMITING |ACTIVITY|
|000035e0| 20 43 4f 45 46 2e 20 20 | 20 20 20 20 20 20 32 2b | COEF. | 2+|
|000035f0| 4e 53 4f 20 20 20 20 20 | 20 20 20 20 20 20 53 28 |NSO | S(|
|00003600| 4a 47 58 30 29 0a 43 20 | 20 20 20 20 49 41 4e 20 |JGX0).C | IAN |
|00003610| 20 20 20 41 4e 49 4f 4e | 20 49 44 45 4e 54 49 46 | ANION| IDENTIF|
|00003620| 49 45 52 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |IER | |
|00003630| 20 20 4e 41 4e 20 20 20 | 20 20 20 20 20 20 20 20 | NAN | |
|00003640| 20 20 4e 28 49 49 41 4e | 29 0a 43 20 20 20 20 20 | N(IIAN|).C |
|00003650| 49 43 41 20 20 20 20 43 | 41 54 49 4f 4e 20 49 44 |ICA C|ATION ID|
|00003660| 45 4e 54 49 46 49 45 52 | 20 20 20 20 20 20 20 20 |ENTIFIER| |
|00003670| 20 20 20 20 20 20 4e 43 | 41 20 20 20 20 20 20 20 | NC|A |
|00003680| 20 20 20 20 20 20 4e 28 | 49 49 43 41 29 0a 43 20 | N(|IICA).C |
|00003690| 20 20 20 20 49 4e 55 20 | 20 20 20 4e 45 55 54 52 | INU | NEUTR|
|000036a0| 41 4c 20 53 50 2e 20 49 | 4e 44 45 54 49 46 49 45 |AL SP. I|NDETIFIE|
|000036b0| 52 20 20 20 20 20 20 20 | 20 20 4e 4e 55 20 20 20 |R | NNU |
|000036c0| 20 20 20 20 20 20 20 20 | 20 20 4e 28 49 49 4e 55 | | N(IINU|
|000036d0| 29 0a 43 20 20 20 20 20 | 49 4f 55 54 20 20 20 41 |).C |IOUT A|
|000036e0| 52 52 41 59 20 55 53 45 | 44 20 42 59 20 4f 52 47 |RRAY USE|D BY ORG|
|000036f0| 4c 53 20 20 20 20 20 20 | 20 20 20 20 20 20 4e 56 |LS | NV|
|00003700| 50 20 20 20 20 20 20 20 | 20 20 20 20 20 20 4e 28 |P | N(|
|00003710| 49 4f 55 29 0a 43 20 20 | 20 20 20 4b 49 20 20 20 |IOU).C | KI |
|00003720| 20 20 52 45 46 49 4e 45 | 4d 45 4e 54 20 49 4e 54 | REFINE|MENT INT|
|00003730| 45 47 45 52 53 20 20 20 | 20 20 20 20 20 20 20 20 |EGERS | |
|00003740| 20 4c 50 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | LP | |
|00003750| 20 4e 28 49 4b 49 29 0a | 43 20 20 20 20 20 4b 58 | N(IKI).|C KX|
|00003760| 20 20 20 20 20 41 52 52 | 41 59 20 55 53 45 44 20 | ARR|AY USED |
|00003770| 42 59 20 53 4d 50 4c 58 | 20 20 20 20 20 20 20 20 |BY SMPLX| |
|00003780| 20 20 20 20 31 31 2b 4e | 53 4f 2b 4e 53 41 20 20 | 11+N|SO+NSA |
|00003790| 20 20 20 20 4e 28 49 4b | 58 29 0a 43 20 20 20 20 | N(IK|X).C |
|000037a0| 20 4e 43 41 50 20 20 20 | 46 4d 4c 41 2e 43 4f 45 | NCAP |FMLA.COE|
|000037b0| 46 53 2e 2c 20 41 51 55 | 2e 50 52 4f 44 2e 53 50 |FS., AQU|.PROD.SP|
|000037c0| 45 43 49 45 53 20 20 37 | 2a 4e 53 41 20 20 20 20 |ECIES 7|*NSA |
|000037d0| 20 20 20 20 20 20 20 4e | 28 49 43 41 29 0a 43 20 | N|(ICA).C |
|000037e0| 20 20 20 20 4e 43 4f 50 | 20 20 20 46 4d 4c 41 2e | NCOP| FMLA.|
|000037f0| 43 4f 45 46 53 2e 2c 20 | 4e 4f 4e 41 51 2e 50 52 |COEFS., |NONAQ.PR|
|00003800| 4f 44 2e 53 50 2e 20 20 | 20 20 38 2a 4e 53 4f 20 |OD.SP. | 8*NSO |
|00003810| 20 20 20 20 20 20 20 20 | 20 20 4e 28 49 43 4f 29 | | N(ICO)|
|00003820| 0a 43 20 20 20 20 20 4e | 46 20 20 20 20 20 49 4e |.C N|F IN|
|00003830| 44 45 58 20 4f 46 20 43 | 4f 4e 43 4e 53 2e 54 4f |DEX OF C|ONCNS.TO|
|00003840| 20 42 45 20 44 45 54 4d | 44 2e 20 20 20 38 2b 4e | BE DETM|D. 8+N|
|00003850| 53 4f 2b 4e 53 41 20 20 | 20 20 20 20 20 4e 28 49 |SO+NSA | N(I|
|00003860| 4e 46 29 0a 43 20 20 20 | 20 20 4e 50 53 49 20 20 |NF).C | NPSI |
|00003870| 20 4e 4f 2e 4f 46 20 45 | 53 54 2e 43 4f 4e 43 4e | NO.OF E|ST.CONCN|
|00003880| 53 2e 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |S. | |
|00003890| 4e 53 4f 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |NSO | |
|000038a0| 4e 28 49 4e 50 53 29 0a | 43 20 20 20 20 20 4e 49 |N(INPS).|C NI|
|000038b0| 44 54 20 20 20 49 4e 54 | 45 47 45 52 20 44 45 46 |DT INT|EGER DEF|
|000038c0| 49 4e 49 4e 47 20 44 41 | 54 41 20 54 59 50 45 20 |INING DA|TA TYPE |
|000038d0| 20 20 20 20 4e 4f 20 20 | 20 20 20 20 20 20 20 20 | NO | |
|000038e0| 20 20 20 20 4e 28 49 44 | 54 29 0a 43 20 20 20 20 | N(ID|T).C |
|000038f0| 20 4e 5a 41 20 20 20 20 | 43 48 41 52 47 45 53 20 | NZA |CHARGES |
|00003900| 4f 4e 20 41 51 2e 53 50 | 45 43 49 45 53 20 20 20 |ON AQ.SP|ECIES |
|00003910| 20 20 20 20 20 20 20 36 | 2b 4e 53 41 20 20 20 20 | 6|+NSA |
|00003920| 20 20 20 20 20 20 20 4e | 28 49 5a 41 29 0a 43 20 | N|(IZA).C |
|00003930| 20 20 20 20 4e 5a 50 4f | 20 20 20 43 48 41 52 47 | NZPO| CHARG|
|00003940| 45 20 4f 4e 20 4e 4f 4e | 41 51 2e 50 52 4f 44 2e |E ON NON|AQ.PROD.|
|00003950| 53 50 45 43 49 45 53 20 | 20 20 4e 53 4f 20 20 20 |SPECIES | NSO |
|00003960| 20 20 20 20 20 20 20 20 | 20 20 4e 28 49 5a 4f 29 | | N(IZO)|
|00003970| 0a 43 20 20 20 20 20 50 | 20 20 20 20 20 20 41 44 |.C P| AD|
|00003980| 4a 55 53 54 41 42 4c 45 | 20 50 41 52 41 4d 45 54 |JUSTABLE| PARAMET|
|00003990| 45 52 53 20 20 20 20 20 | 20 20 20 20 20 4c 50 20 |ERS | LP |
|000039a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 53 28 4a | | S(J|
|000039b0| 4c 50 29 0a 43 20 20 20 | 20 20 50 41 41 20 20 20 |LP).C | PAA |
|000039c0| 20 50 49 54 5a 45 52 20 | 50 41 52 41 4d 2e 2c 20 | PITZER |PARAM., |
|000039d0| 41 4e 2e 2d 41 4e 2e 20 | 20 20 20 20 20 20 20 20 |AN.-AN. | |
|000039e0| 4e 41 4e 2a 4e 41 4e 20 | 20 20 20 20 20 20 20 20 |NAN*NAN | |
|000039f0| 53 28 4a 50 41 41 29 20 | 20 20 20 20 20 0a 43 20 |S(JPAA) | .C |
|00003a00| 20 20 20 20 50 42 20 20 | 20 20 20 41 52 52 41 59 | PB | ARRAY|
|00003a10| 20 55 53 45 44 20 42 59 | 20 53 4d 50 4c 58 20 20 | USED BY| SMPLX |
|00003a20| 20 20 20 20 20 20 20 20 | 20 20 38 2b 4e 53 4f 2b | | 8+NSO+|
|00003a30| 4e 53 41 20 20 20 20 20 | 20 20 53 28 4a 4c 50 42 |NSA | S(JLPB|
|00003a40| 29 0a 43 20 20 20 20 20 | 50 43 41 41 20 20 20 50 |).C |PCAA P|
|00003a50| 49 54 5a 45 52 20 50 41 | 52 41 4d 2e 2c 20 43 41 |ITZER PA|RAM., CA|
|00003a60| 2e 2d 41 4e 2e 2d 41 4e | 2e 20 20 20 20 20 4e 43 |.-AN.-AN|. NC|
|00003a70| 41 2a 4e 41 4e 2a 4e 41 | 4e 20 20 20 20 20 53 28 |A*NAN*NA|N S(|
|00003a80| 4a 50 43 41 41 29 20 20 | 20 20 20 20 0a 43 20 20 |JPCAA) | .C |
|00003a90| 20 20 20 50 43 43 20 20 | 20 20 50 49 54 5a 45 52 | PCC | PITZER|
|00003aa0| 20 50 41 52 41 4d 2e 2c | 20 43 41 2e 2d 43 41 2e | PARAM.,| CA.-CA.|
|00003ab0| 20 20 20 20 20 20 20 20 | 20 4e 43 41 2a 4e 43 41 | | NCA*NCA|
|00003ac0| 20 20 20 20 20 20 20 20 | 20 53 28 4a 50 43 43 29 | | S(JPCC)|
|00003ad0| 20 20 20 20 20 20 0a 43 | 20 20 20 20 20 50 43 43 | .C| PCC|
|00003ae0| 41 20 20 20 50 49 54 5a | 45 52 20 50 41 52 41 4d |A PITZ|ER PARAM|
|00003af0| 2e 2c 20 43 41 2e 2d 43 | 41 2e 2d 41 4e 2e 20 20 |., CA.-C|A.-AN. |
|00003b00| 20 20 20 4e 43 41 2a 4e | 43 41 2a 4e 41 4e 20 20 | NCA*N|CA*NAN |
|00003b10| 20 20 20 53 28 4a 50 43 | 43 41 29 20 20 20 20 20 | S(JPC|CA) |
|00003b20| 20 0a 43 20 20 20 20 20 | 50 44 20 20 20 20 20 41 | .C |PD A|
|00003b30| 52 52 41 59 20 55 53 45 | 44 20 42 59 20 4f 52 47 |RRAY USE|D BY ORG|
|00003b40| 4c 53 20 20 20 20 20 20 | 20 20 20 20 20 20 4e 56 |LS | NV|
|00003b50| 50 20 20 20 20 20 20 20 | 20 20 20 20 20 20 53 28 |P | S(|
|00003b60| 4e 4c 50 44 29 0a 43 20 | 20 20 20 20 50 48 20 20 |NLPD).C | PH |
|00003b70| 20 20 20 56 4f 4c 55 4d | 45 20 46 52 41 43 54 49 | VOLUM|E FRACTI|
|00003b80| 4f 4e 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ON | |
|00003b90| 20 20 32 2b 4e 53 4f 20 | 20 20 20 20 20 20 20 20 | 2+NSO | |
|00003ba0| 20 20 53 28 4a 50 48 29 | 0a 43 20 20 20 20 20 50 | S(JPH)|.C P|
|00003bb0| 48 56 20 20 20 20 41 52 | 52 41 59 20 55 53 45 44 |HV AR|RAY USED|
|00003bc0| 20 42 59 20 4f 52 47 41 | 43 20 20 20 20 20 20 20 | BY ORGA|C |
|00003bd0| 20 20 20 20 20 32 2b 4e | 53 4f 20 20 20 20 20 20 | 2+N|SO |
|00003be0| 20 20 20 20 20 53 28 4a | 50 48 56 29 0a 43 20 20 | S(J|PHV).C |
|00003bf0| 20 20 20 50 4e 41 20 20 | 20 20 50 49 54 5a 45 52 | PNA | PITZER|
|00003c00| 20 50 41 52 41 4d 2e 2c | 20 4e 55 2e 2d 41 4e 2e | PARAM.,| NU.-AN.|
|00003c10| 20 20 20 20 20 20 20 20 | 20 4e 4e 55 2a 4e 41 4e | | NNU*NAN|
|00003c20| 20 20 20 20 20 20 20 20 | 20 53 28 4a 50 4e 41 29 | | S(JPNA)|
|00003c30| 20 20 20 20 20 20 0a 43 | 20 20 20 20 20 50 4e 43 | .C| PNC|
|00003c40| 20 20 20 20 50 49 54 5a | 45 52 20 50 41 52 41 4d | PITZ|ER PARAM|
|00003c50| 2e 2c 20 4e 55 2e 2d 43 | 41 2e 20 20 20 20 20 20 |., NU.-C|A. |
|00003c60| 20 20 20 4e 4e 55 2a 4e | 43 41 20 20 20 20 20 20 | NNU*N|CA |
|00003c70| 20 20 20 53 28 4a 50 4e | 43 29 20 20 20 20 20 20 | S(JPN|C) |
|00003c80| 0a 43 20 20 20 20 20 50 | 4e 4e 20 20 20 20 50 49 |.C P|NN PI|
|00003c90| 54 5a 45 52 20 50 41 52 | 41 4d 2e 2c 20 4e 55 2e |TZER PAR|AM., NU.|
|00003ca0| 2d 4e 55 2e 20 20 20 20 | 20 20 20 20 20 4e 4e 55 |-NU. | NNU|
|00003cb0| 2a 4e 4e 55 20 20 20 20 | 20 20 20 20 20 53 28 4a |*NNU | S(J|
|00003cc0| 50 4e 4e 29 0a 43 20 20 | 20 20 20 50 54 20 20 20 |PNN).C | PT |
|00003cd0| 20 20 41 52 52 41 59 20 | 55 53 45 44 20 42 59 20 | ARRAY |USED BY |
|00003ce0| 53 4d 50 4c 58 20 20 20 | 20 20 20 20 20 20 20 20 |SMPLX | |
|00003cf0| 20 28 38 2b 4e 53 4f 2b | 4e 53 41 29 2a 20 20 20 | (8+NSO+|NSA)* |
|00003d00| 20 53 28 4a 4c 50 54 29 | 0a 43 20 20 20 20 20 20 | S(JLPT)|.C |
|00003d10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003d30| 20 20 20 20 20 28 31 31 | 2b 4e 53 4f 2b 4e 53 41 | (11|+NSO+NSA|
|00003d40| 29 20 20 0a 43 20 20 20 | 20 20 52 41 43 20 20 20 |) .C | RAC |
|00003d50| 20 46 4d 4c 41 2e 43 4f | 45 46 53 2e 2c 20 41 51 | FMLA.CO|EFS., AQ|
|00003d60| 55 2e 50 52 4f 44 2e 53 | 50 45 43 49 45 53 20 20 |U.PROD.S|PECIES |
|00003d70| 38 2a 4e 53 41 20 20 20 | 20 20 20 20 20 20 20 20 |8*NSA | |
|00003d80| 53 28 4a 52 41 43 29 20 | 20 20 20 0a 43 20 20 20 |S(JRAC) | .C |
|00003d90| 20 20 52 45 4f 43 20 20 | 20 45 58 50 4f 4e 2e 49 | REOC | EXPON.I|
|00003da0| 4e 20 4e 4f 4d 2d 41 51 | 2e 43 4f 4d 42 2e 52 43 |N NOM-AQ|.COMB.RC|
|00003db0| 54 4e 2e 20 20 20 20 20 | 28 38 2b 4e 53 4f 29 2a |TN. |(8+NSO)*|
|00003dc0| 4e 53 4f 2a 20 20 20 20 | 53 28 4a 52 45 4f 29 0a |NSO* |S(JREO).|
|00003dd0| 43 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |C | |
|00003de0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003df0| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 4d 53 4f | | (MSO|
|00003e00| 2d 31 29 2a 35 2f 32 20 | 20 20 20 20 20 20 20 20 |-1)*5/2 | |
|00003e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003e20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003e30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003e40| 20 20 20 0a 43 20 20 20 | 20 20 52 46 4f 4b 20 20 | .C | RFOK |
|00003e50| 20 45 51 2e 43 4f 4e 53 | 54 2e 2c 4e 4f 4d 2d 41 | EQ.CONS|T.,NOM-A|
|00003e60| 51 2e 43 4f 4d 42 2e 52 | 43 54 4e 2e 20 20 20 20 |Q.COMB.R|CTN. |
|00003e70| 4e 53 4f 2a 28 4d 53 4f | 2d 31 29 2a 35 2f 32 20 |NSO*(MSO|-1)*5/2 |
|00003e80| 53 28 4a 52 46 4f 29 0a | 43 20 20 20 20 20 52 4f |S(JRFO).|C RO|
|00003e90| 43 20 20 20 20 46 4d 4c | 41 2e 43 4f 45 46 53 2e |C FML|A.COEFS.|
|00003ea0| 2c 20 4e 4f 4e 41 51 2e | 50 52 4f 44 2e 53 50 2e |, NONAQ.|PROD.SP.|
|00003eb0| 20 20 20 20 38 2a 4e 53 | 4f 20 20 20 20 20 20 20 | 8*NS|O |
|00003ec0| 20 20 20 20 53 28 4a 52 | 4f 43 29 0a 43 20 20 20 | S(JR|OC).C |
|00003ed0| 20 20 52 4f 57 20 20 20 | 20 41 52 52 41 59 20 55 | ROW | ARRAY U|
|00003ee0| 53 45 44 20 42 59 20 4f | 52 47 4c 53 20 20 20 20 |SED BY O|RGLS |
|00003ef0| 20 20 20 20 20 20 20 20 | 4e 56 50 20 20 20 20 20 | |NVP |
|00003f00| 20 20 20 20 20 20 20 20 | 53 28 4e 4c 52 57 29 0a | |S(NLRW).|
|00003f10| 43 20 20 20 20 20 52 5a | 49 52 20 20 20 52 41 54 |C RZ|IR RAT|
|00003f20| 49 4f 20 4f 46 20 43 48 | 41 52 47 45 20 4f 4e 20 |IO OF CH|ARGE ON |
|00003f30| 4e 4f 4e 41 51 2e 49 4f | 4e 20 20 20 4e 53 4f 20 |NONAQ.IO|N NSO |
|00003f40| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 28 4a 52 | | S(JR|
|00003f50| 5a 49 29 0a 43 20 20 20 | 20 20 20 20 20 20 20 20 |ZI).C | |
|00003f60| 20 20 54 4f 20 54 48 41 | 54 20 4f 4e 20 52 45 46 | TO THA|T ON REF|
|00003f70| 2e 49 4f 4e 0a 43 20 20 | 20 20 20 53 41 4d 20 20 |.ION.C | SAM |
|00003f80| 20 20 41 52 52 41 59 20 | 55 53 45 44 20 42 59 20 | ARRAY |USED BY |
|00003f90| 4f 52 47 4c 53 20 20 20 | 20 20 20 20 20 20 20 20 |ORGLS | |
|00003fa0| 20 4e 56 50 20 20 20 20 | 20 20 20 20 20 20 20 20 | NVP | |
|00003fb0| 20 53 28 4e 4c 53 4d 29 | 0a 43 20 20 20 20 20 53 | S(NLSM)|.C S|
|00003fc0| 43 50 53 49 20 20 20 53 | 55 4d 20 4f 46 20 49 4f |CPSI S|UM OF IO|
|00003fd0| 4e 20 43 4f 4e 43 4e 53 | 2e 20 20 20 20 20 20 20 |N CONCNS|. |
|00003fe0| 20 20 20 20 20 4e 53 4f | 20 20 20 20 20 20 20 20 | NSO| |
|00003ff0| 20 20 20 20 20 53 28 4a | 53 43 50 29 0a 43 20 20 | S(J|SCP).C |
|00004000| 20 20 20 53 45 4f 43 20 | 20 20 45 58 50 4f 4e 2e | SEOC | EXPON.|
|00004010| 49 4e 20 4e 4f 4d 2d 41 | 51 2e 43 4f 4d 42 2e 52 |IN NOM-A|Q.COMB.R|
|00004020| 43 54 4e 2e 20 20 20 20 | 20 28 38 2b 4e 53 4f 29 |CTN. | (8+NSO)|
|00004030| 2a 4e 53 4f 2a 20 20 20 | 20 53 28 4a 53 45 4f 29 |*NSO* | S(JSEO)|
|00004040| 0a 43 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.C | |
|00004050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 4d 53 | | (MS|
|00004070| 4f 2d 31 29 2f 32 20 20 | 20 20 20 20 20 20 20 20 |O-1)/2 | |
|00004080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000040a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000040b0| 20 20 0a 43 20 20 20 20 | 20 53 46 4f 4b 20 20 20 | .C | SFOK |
|000040c0| 45 51 2e 43 4f 4e 53 54 | 2e 2c 4e 4f 4d 2d 41 51 |EQ.CONST|.,NOM-AQ|
|000040d0| 2e 43 4f 4d 42 2e 52 43 | 54 4e 2e 20 20 20 20 4e |.COMB.RC|TN. N|
|000040e0| 53 4f 2a 28 4d 53 4f 2d | 31 29 2f 32 20 20 20 53 |SO*(MSO-|1)/2 S|
|000040f0| 28 4a 53 46 4f 29 0a 43 | 20 20 20 20 20 53 49 47 |(JSFO).C| SIG|
|00004100| 59 4f 20 20 55 4e 43 45 | 52 54 41 49 4e 54 59 20 |YO UNCE|RTAINTY |
|00004110| 49 4e 20 4f 42 53 2e 51 | 55 41 4e 54 2e 20 20 20 |IN OBS.Q|UANT. |
|00004120| 20 20 20 4e 4f 20 20 20 | 20 20 20 20 20 20 20 20 | NO | |
|00004130| 20 20 20 53 28 4a 4c 53 | 29 0a 43 20 20 20 20 20 | S(JLS|).C |
|00004140| 53 56 20 20 20 20 20 4d | 41 53 53 4f 4e 20 43 4f |SV M|ASSON CO|
|00004150| 45 46 2e 53 56 20 4f 46 | 20 41 51 55 2e 49 4f 4e |EF.SV OF| AQU.ION|
|00004160| 53 20 20 20 20 20 36 2b | 4e 53 41 20 20 20 20 20 |S 6+|NSA |
|00004170| 20 20 20 20 20 20 53 28 | 4a 53 56 29 0a 43 20 20 | S(|JSV).C |
|00004180| 20 20 20 56 20 20 20 20 | 20 20 4d 4f 4c 41 52 20 | V | MOLAR |
|00004190| 56 4f 4c 2e 20 4f 46 20 | 53 50 45 43 49 45 53 20 |VOL. OF |SPECIES |
|000041a0| 20 20 20 20 20 20 20 20 | 20 38 2b 4e 53 4f 20 20 | | 8+NSO |
|000041b0| 20 20 20 20 20 20 20 20 | 20 53 28 4a 4c 4d 56 29 | | S(JLMV)|
|000041c0| 0a 43 20 20 20 20 20 56 | 43 20 20 20 20 20 41 52 |.C V|C AR|
|000041d0| 52 41 59 20 55 53 45 44 | 20 42 59 20 4f 52 47 4c |RAY USED| BY ORGL|
|000041e0| 53 20 20 20 20 20 20 20 | 20 20 20 20 20 4e 56 50 |S | NVP|
|000041f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 53 28 4e | | S(N|
|00004200| 4c 56 29 0a 43 20 20 20 | 20 20 56 30 20 20 20 20 |LV).C | V0 |
|00004210| 20 4d 41 53 53 4f 4e 20 | 43 4f 45 46 2e 56 30 20 | MASSON |COEF.V0 |
|00004220| 4f 46 20 41 51 55 2e 49 | 4f 4e 53 20 20 20 20 20 |OF AQU.I|ONS |
|00004230| 36 2b 4e 53 41 20 20 20 | 20 20 20 20 20 20 20 20 |6+NSA | |
|00004240| 53 28 4a 56 4f 29 20 20 | 0a 43 20 20 20 20 20 56 |S(JVO) |.C V|
|00004250| 52 54 20 20 20 20 41 52 | 52 41 59 20 55 53 45 44 |RT AR|RAY USED|
|00004260| 20 42 59 20 4f 52 47 41 | 43 20 20 20 20 20 20 20 | BY ORGA|C |
|00004270| 20 20 20 20 20 32 2b 4e | 53 4f 20 20 20 20 20 20 | 2+N|SO |
|00004280| 20 20 20 20 20 53 28 4a | 56 52 54 29 0a 43 20 20 | S(J|VRT).C |
|00004290| 20 20 20 57 20 20 20 20 | 20 20 4d 2e 57 2e 20 4f | W | M.W. O|
|000042a0| 46 20 53 50 45 43 49 45 | 53 20 20 20 20 20 20 20 |F SPECIE|S |
|000042b0| 20 20 20 20 20 20 20 20 | 20 38 2b 4e 53 4f 2b 4e | | 8+NSO+N|
|000042c0| 53 41 20 20 20 20 20 20 | 20 53 28 4a 4c 4d 57 29 |SA | S(JLMW)|
|000042d0| 0a 43 20 20 20 20 20 57 | 41 20 20 20 20 20 41 52 |.C W|A AR|
|000042e0| 52 41 59 20 55 53 45 44 | 20 42 59 20 48 59 42 52 |RAY USED| BY HYBR|
|000042f0| 44 31 20 20 20 20 20 20 | 20 20 20 20 20 28 38 2b |D1 | (8+|
|00004300| 4e 53 4f 2b 4e 53 41 29 | 2a 20 20 20 20 53 28 4a |NSO+NSA)|* S(J|
|00004310| 4c 57 41 29 0a 43 20 20 | 20 20 20 20 20 20 20 20 |LWA).C | |
|00004320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004340| 20 28 33 2a 28 38 2b 4e | 53 4f 2b 4e 53 41 29 2b | (3*(8+N|SO+NSA)+|
|00004350| 37 29 2f 32 0a 43 20 20 | 20 20 20 58 20 20 20 20 |7)/2.C | X |
|00004360| 20 20 49 4e 44 45 50 45 | 4e 44 45 4e 54 20 56 41 | INDEPE|NDENT VA|
|00004370| 52 49 41 42 4c 45 53 20 | 20 20 20 20 20 20 20 20 |RIABLES | |
|00004380| 20 31 30 2a 4e 4f 20 20 | 20 20 20 20 20 20 20 20 | 10*NO | |
|00004390| 20 53 28 4a 4c 58 29 0a | 43 20 20 20 20 20 58 43 | S(JLX).|C XC|
|000043a0| 20 20 20 20 20 4c 47 2e | 45 51 55 49 4c 2e 43 4f | LG.|EQUIL.CO|
|000043b0| 4e 43 53 2e 2c 20 43 55 | 52 52 2e 44 41 54 41 20 |NCS., CU|RR.DATA |
|000043c0| 50 54 20 20 38 2b 4e 53 | 4f 2b 4e 53 41 20 20 20 |PT 8+NS|O+NSA |
|000043d0| 20 20 20 20 53 28 4a 4c | 58 43 29 0a 43 20 20 20 | S(JL|XC).C |
|000043e0| 20 20 58 43 4c 20 20 20 | 20 4c 47 2e 43 55 52 52 | XCL | LG.CURR|
|000043f0| 2e 43 4f 4e 43 53 2e 54 | 4f 20 42 45 20 44 45 54 |.CONCS.T|O BE DET|
|00004400| 4d 44 2e 20 20 20 20 20 | 38 2b 4e 53 4f 2b 4e 53 |MD. |8+NSO+NS|
|00004410| 41 20 20 20 20 20 20 20 | 53 28 4a 4c 58 43 4c 29 |A |S(JLXCL)|
|00004420| 0a 43 20 20 20 20 20 58 | 43 41 53 20 20 20 4c 47 |.C X|CAS LG|
|00004430| 2e 45 51 2e 43 4f 4e 53 | 2e 2c 20 44 41 54 41 20 |.EQ.CONS|., DATA |
|00004440| 50 54 53 2e 57 2f 4f 20 | 20 20 20 20 20 4e 4f 2a |PTS.W/O | NO*|
|00004450| 28 36 2b 4e 53 41 29 20 | 20 20 20 20 20 53 28 4a |(6+NSA) | S(J|
|00004460| 4c 58 43 41 53 29 0a 43 | 20 20 20 20 20 20 20 20 |LXCAS).C| |
|00004470| 20 20 20 20 20 4e 4f 4e | 41 51 2e 50 48 41 53 45 | NON|AQ.PHASE|
|00004480| 0a 43 20 20 20 20 20 58 | 43 4f 53 20 20 20 4c 47 |.C X|COS LG|
|00004490| 2e 45 51 2e 43 4f 4e 53 | 2e 2c 20 44 41 54 41 20 |.EQ.CONS|., DATA |
|000044a0| 50 54 53 2e 57 2f 4f 20 | 20 20 20 20 20 4e 4f 2a |PTS.W/O | NO*|
|000044b0| 28 38 2b 4e 53 4f 2b 4e | 53 41 29 20 20 53 28 4a |(8+NSO+N|SA) S(J|
|000044c0| 4c 58 43 4f 53 29 0a 43 | 20 20 20 20 20 20 20 20 |LXCOS).C| |
|000044d0| 20 20 20 20 20 41 51 2e | 50 48 41 53 45 0a 43 20 | AQ.|PHASE.C |
|000044e0| 20 20 20 20 58 43 53 20 | 20 20 20 4c 47 2e 45 51 | XCS | LG.EQ|
|000044f0| 2e 43 4f 4e 53 2e 2c 20 | 57 20 42 4f 54 48 20 50 |.CONS., |W BOTH P|
|00004500| 48 41 53 45 53 20 20 20 | 20 20 4e 4f 2a 28 38 2b |HASES | NO*(8+|
|00004510| 4e 53 4f 2b 4e 53 41 29 | 20 20 53 28 4a 4c 58 43 |NSO+NSA)| S(JLXC|
|00004520| 53 29 0a 43 20 20 20 20 | 20 58 46 20 20 20 20 20 |S).C | XF |
|00004530| 4e 4f 4e 41 51 2e 53 4f | 4c 55 54 45 20 4d 4f 4c |NONAQ.SO|LUTE MOL|
|00004540| 45 20 46 52 41 43 54 49 | 4f 4e 20 20 20 20 20 32 |E FRACTI|ON 2|
|00004550| 2b 4e 53 4f 20 20 20 20 | 20 20 20 20 20 20 20 53 |+NSO | S|
|00004560| 28 4a 58 46 29 0a 43 20 | 20 20 20 20 58 53 20 20 |(JXF).C | XS |
|00004570| 20 20 20 4c 47 2e 47 56 | 4e 2e 43 4f 4e 43 45 4e | LG.GV|N.CONCEN|
|00004580| 54 52 41 54 49 4f 4e 53 | 2e 20 20 20 20 20 20 20 |TRATIONS|. |
|00004590| 20 20 31 31 2a 4e 4f 20 | 20 20 20 20 20 20 20 20 | 11*NO | |
|000045a0| 20 20 53 28 4a 4c 58 53 | 29 0a 43 20 20 20 20 20 | S(JLXS|).C |
|000045b0| 59 4f 20 20 20 20 20 4f | 42 53 45 52 56 45 44 20 |YO O|BSERVED |
|000045c0| 51 55 41 4e 54 49 54 59 | 20 20 20 20 20 20 20 20 |QUANTITY| |
|000045d0| 20 20 20 20 20 20 4e 4f | 20 20 20 20 20 20 20 20 | NO| |
|000045e0| 20 20 20 20 20 20 53 28 | 4a 4c 59 29 0a 43 20 20 | S(|JLY).C |
|000045f0| 20 20 20 5a 41 20 20 20 | 20 20 41 4e 49 4f 4e 20 | ZA | ANION |
|00004600| 43 48 41 52 47 45 20 20 | 20 20 20 20 20 20 20 20 |CHARGE | |
|00004610| 20 20 20 20 20 20 20 20 | 20 4e 41 4e 20 20 20 20 | | NAN |
|00004620| 20 20 20 20 20 20 20 20 | 20 53 28 4a 5a 41 29 0a | | S(JZA).|
|00004630| 43 20 20 20 20 20 5a 43 | 20 20 20 20 20 43 41 54 |C ZC| CAT|
|00004640| 49 4f 4e 20 43 48 41 52 | 47 45 20 20 20 20 20 20 |ION CHAR|GE |
|00004650| 20 20 20 20 20 20 20 20 | 20 20 20 20 4e 43 41 20 | | NCA |
|00004660| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 28 4a 5a | | S(JZ|
|00004670| 43 29 0a 43 20 20 20 20 | 20 5a 46 41 20 20 20 20 |C).C | ZFA |
|00004680| 41 4e 49 4f 4e 20 43 48 | 41 52 47 45 20 46 55 4e |ANION CH|ARGE FUN|
|00004690| 43 54 49 4f 4e 20 20 20 | 20 20 20 20 20 20 20 4e |CTION | N|
|000046a0| 41 4e 20 20 20 20 20 20 | 20 20 20 20 20 20 20 53 |AN | S|
|000046b0| 28 4a 5a 46 41 29 0a 43 | 20 20 20 20 20 5a 46 43 |(JZFA).C| ZFC|
|000046c0| 20 20 20 20 43 41 54 49 | 4f 4e 20 43 48 41 52 47 | CATI|ON CHARG|
|000046d0| 45 20 46 55 4e 43 54 49 | 4f 4e 20 20 20 20 20 20 |E FUNCTI|ON |
|000046e0| 20 20 20 4e 43 41 20 20 | 20 20 20 20 20 20 20 20 | NCA | |
|000046f0| 20 20 20 53 28 4a 5a 46 | 43 29 0a 43 0a 43 0a 43 | S(JZF|C).C.C.C|
|00004700| 20 20 4f 54 48 45 52 20 | 51 55 41 4e 54 49 54 49 | OTHER |QUANTITI|
|00004710| 45 53 3a 0a 43 0a 43 20 | 20 20 20 20 53 4d 49 4e |ES:.C.C | SMIN|
|00004720| 53 20 3d 20 41 20 50 4f | 53 49 54 49 56 45 20 56 |S = A PO|SITIVE V|
|00004730| 41 4c 55 45 20 54 48 41 | 54 20 45 53 54 41 42 4c |ALUE THA|T ESTABL|
|00004740| 49 53 48 45 53 20 54 48 | 45 20 50 52 4f 43 45 44 |ISHES TH|E PROCED|
|00004750| 55 52 45 20 54 4f 20 42 | 45 0a 43 20 20 20 20 20 |URE TO B|E.C |
|00004760| 20 20 20 20 20 20 20 20 | 20 55 53 45 44 20 49 4e | | USED IN|
|00004770| 20 53 4f 4c 56 49 4e 47 | 20 53 45 54 53 20 4f 46 | SOLVING| SETS OF|
|00004780| 20 4e 4f 4e 2d 4c 49 4e | 45 41 52 20 53 49 4d 55 | NON-LIN|EAR SIMU|
|00004790| 4c 54 41 4e 45 4f 55 53 | 20 45 51 55 41 54 49 4f |LTANEOUS| EQUATIO|
|000047a0| 4e 53 2e 0a 43 20 20 20 | 20 20 20 20 20 20 20 20 |NS..C | |
|000047b0| 20 20 20 57 48 45 4e 20 | 54 48 45 20 52 45 53 49 | WHEN |THE RESI|
|000047c0| 44 55 41 4c 53 20 4f 46 | 20 54 48 45 53 45 20 45 |DUALS OF| THESE E|
|000047d0| 51 55 41 54 49 4f 4e 53 | 20 45 58 43 45 45 44 20 |QUATIONS| EXCEED |
|000047e0| 41 20 4c 49 4d 49 54 0a | 43 20 20 20 20 20 20 20 |A LIMIT.|C |
|000047f0| 20 20 20 20 20 20 20 44 | 45 52 49 56 45 44 20 46 | D|ERIVED F|
|00004800| 52 4f 4d 20 54 48 45 20 | 56 41 4c 55 45 20 4f 46 |ROM THE |VALUE OF|
|00004810| 20 53 4d 49 4e 53 2c 20 | 41 20 53 49 4d 50 4c 45 | SMINS, |A SIMPLE|
|00004820| 58 20 50 52 4f 43 45 44 | 55 52 45 20 49 53 0a 43 |X PROCED|URE IS.C|
|00004830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 55 53 | | US|
|00004840| 45 44 20 54 4f 20 52 45 | 44 55 43 45 20 54 48 45 |ED TO RE|DUCE THE|
|00004850| 20 52 45 53 49 44 55 41 | 4c 53 20 42 45 4c 4f 57 | RESIDUA|LS BELOW|
|00004860| 20 54 48 49 53 20 4c 49 | 4d 49 54 2e 20 54 48 45 | THIS LI|MIT. THE|
|00004870| 52 45 41 46 54 45 52 2c | 0a 43 20 20 20 20 20 20 |REAFTER,|.C |
|00004880| 20 20 20 20 20 20 20 20 | 41 20 4d 4f 52 45 20 45 | |A MORE E|
|00004890| 46 46 49 43 49 45 4e 54 | 2c 20 42 55 54 20 4c 45 |FFICIENT|, BUT LE|
|000048a0| 53 53 20 52 4f 42 55 53 | 54 2c 20 45 51 55 41 54 |SS ROBUS|T, EQUAT|
|000048b0| 49 4f 4e 20 53 4f 4c 56 | 45 52 20 28 48 59 42 52 |ION SOLV|ER (HYBR|
|000048c0| 44 32 29 0a 43 20 20 20 | 20 20 20 20 20 20 20 20 |D2).C | |
|000048d0| 20 20 20 49 53 20 45 4d | 50 4c 4f 59 45 44 2e 20 | IS EM|PLOYED. |
|000048e0| 41 20 56 41 4c 55 45 20 | 4f 46 20 53 4d 49 4e 53 |A VALUE |OF SMINS|
|000048f0| 20 3d 20 32 20 49 53 20 | 52 45 43 4f 4d 4d 45 4e | = 2 IS |RECOMMEN|
|00004900| 44 45 44 2e 20 49 46 20 | 50 52 4f 42 4c 45 4d 53 |DED. IF |PROBLEMS|
|00004910| 0a 43 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.C | |
|00004920| 41 52 45 20 45 4e 43 4f | 55 4e 54 45 52 45 44 20 |ARE ENCO|UNTERED |
|00004930| 57 49 54 48 20 43 4f 4e | 56 45 52 47 45 4e 43 45 |WITH CON|VERGENCE|
|00004940| 20 49 4e 20 53 55 42 52 | 4f 55 54 49 4e 45 20 48 | IN SUBR|OUTINE H|
|00004950| 59 44 52 44 31 20 54 48 | 41 54 0a 43 20 20 20 20 |YDRD1 TH|AT.C |
|00004960| 20 20 20 20 20 20 20 20 | 20 20 43 41 4e 27 54 20 | | CAN'T |
|00004970| 42 45 20 4f 56 45 52 43 | 4f 4d 45 20 41 4e 59 20 |BE OVERC|OME ANY |
|00004980| 4f 54 48 45 52 20 57 41 | 59 2c 20 54 48 45 20 56 |OTHER WA|Y, THE V|
|00004990| 41 4c 55 45 20 4f 46 20 | 53 4d 49 4e 53 20 43 41 |ALUE OF |SMINS CA|
|000049a0| 4e 20 42 45 0a 43 20 20 | 20 20 20 20 20 20 20 20 |N BE.C | |
|000049b0| 20 20 20 20 52 45 44 55 | 43 45 44 2c 20 54 48 4f | REDU|CED, THO|
|000049c0| 55 47 48 20 54 48 49 53 | 20 57 49 4c 4c 20 49 4e |UGH THIS| WILL IN|
|000049d0| 43 52 45 41 53 45 20 54 | 48 45 20 43 4f 4d 50 55 |CREASE T|HE COMPU|
|000049e0| 54 41 54 49 4f 4e 20 54 | 49 4d 45 2e 0a 43 0a 43 |TATION T|IME..C.C|
|000049f0| 20 20 20 20 20 4d 58 48 | 43 59 20 3d 20 49 4e 20 | MXH|CY = IN |
|00004a00| 48 59 42 52 44 32 2c 20 | 54 48 45 20 4d 41 58 49 |HYBRD2, |THE MAXI|
|00004a10| 4d 55 4d 20 4e 55 4d 42 | 45 52 20 4f 46 20 49 54 |MUM NUMB|ER OF IT|
|00004a20| 45 52 41 54 49 4f 4e 53 | 20 50 45 52 4d 49 54 54 |ERATIONS| PERMITT|
|00004a30| 45 44 20 42 45 46 4f 52 | 45 0a 43 20 20 20 20 20 |ED BEFOR|E.C |
|00004a40| 20 20 20 20 20 20 20 20 | 20 41 20 43 41 4c 43 55 | | A CALCU|
|00004a50| 4c 41 54 49 4f 4e 20 49 | 53 20 54 45 52 4d 49 4e |LATION I|S TERMIN|
|00004a60| 41 54 45 44 2e 20 54 48 | 45 20 52 45 43 4f 4d 4d |ATED. TH|E RECOMM|
|00004a70| 45 4e 44 45 44 20 56 41 | 4c 55 45 20 49 53 20 31 |ENDED VA|LUE IS 1|
|00004a80| 30 30 30 0a 43 0a 43 20 | 20 20 20 20 20 4e 54 52 |000.C.C | NTR|
|00004a90| 59 20 3d 20 49 4e 20 48 | 59 42 52 44 32 2c 20 54 |Y = IN H|YBRD2, T|
|00004aa0| 48 45 20 4e 55 4d 42 45 | 52 20 4f 46 20 49 54 45 |HE NUMBE|R OF ITE|
|00004ab0| 52 41 54 49 4f 4e 53 20 | 41 46 54 45 52 20 57 48 |RATIONS |AFTER WH|
|00004ac0| 49 43 48 20 41 20 43 41 | 4c 43 55 4c 41 54 49 4f |ICH A CA|LCULATIO|
|00004ad0| 4e 0a 43 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |N.C | |
|00004ae0| 20 49 53 20 54 45 52 4d | 49 4e 41 54 45 44 20 49 | IS TERM|INATED I|
|00004af0| 46 20 54 48 45 20 52 45 | 53 49 44 55 41 4c 20 4f |F THE RE|SIDUAL O|
|00004b00| 46 20 54 48 45 20 53 45 | 54 20 4f 46 20 45 51 55 |F THE SE|T OF EQU|
|00004b10| 41 54 49 4f 4e 53 20 54 | 4f 20 42 45 0a 43 20 20 |ATIONS T|O BE.C |
|00004b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 41 54 49 | | SATI|
|00004b30| 53 46 49 45 44 20 49 53 | 20 4e 4f 54 20 52 45 44 |SFIED IS| NOT RED|
|00004b40| 55 43 45 44 20 42 59 20 | 42 59 20 41 20 4c 45 41 |UCED BY |BY A LEA|
|00004b50| 53 54 20 4f 4e 45 20 50 | 45 52 20 43 45 4e 54 2e |ST ONE P|ER CENT.|
|00004b60| 20 54 48 45 20 56 41 4c | 55 45 0a 43 20 20 20 20 | THE VAL|UE.C |
|00004b70| 20 20 20 20 20 20 20 20 | 20 20 4f 46 20 54 48 49 | | OF THI|
|00004b80| 53 20 51 55 41 4e 54 49 | 54 59 20 44 45 50 45 4e |S QUANTI|TY DEPEN|
|00004b90| 44 53 20 4f 4e 20 54 48 | 45 20 4e 55 4d 42 45 52 |DS ON TH|E NUMBER|
|00004ba0| 20 41 4e 44 20 50 52 4f | 50 45 52 54 49 45 53 20 | AND PRO|PERTIES |
|00004bb0| 4f 46 20 54 48 45 0a 43 | 20 20 20 20 20 20 20 20 |OF THE.C| |
|00004bc0| 20 20 20 20 20 20 45 51 | 55 41 54 49 4f 4e 53 20 | EQ|UATIONS |
|00004bd0| 42 45 49 4e 47 20 53 4f | 4c 56 45 44 2e 20 49 54 |BEING SO|LVED. IT|
|00004be0| 20 43 41 4e 20 42 45 20 | 41 53 20 53 4d 41 4c 4c | CAN BE |AS SMALL|
|00004bf0| 20 41 53 20 32 30 20 4f | 52 20 41 53 20 4c 41 52 | AS 20 O|R AS LAR|
|00004c00| 47 45 0a 43 20 20 20 20 | 20 20 20 20 20 20 20 20 |GE.C | |
|00004c10| 20 20 46 49 4e 44 53 20 | 4e 45 43 45 53 53 41 52 | FINDS |NECESSAR|
|00004c20| 59 2e 20 0a 43 0a 43 20 | 20 20 20 20 20 20 20 4c |Y. .C.C | L|
|00004c30| 50 20 3d 20 4e 53 4f 2a | 28 31 2b 4e 50 48 2b 4e |P = NSO*|(1+NPH+N|
|00004c40| 50 41 29 2b 32 2a 28 4e | 50 48 2b 4e 50 41 29 2b |PA)+2*(N|PH+NPA)+|
|00004c50| 4e 53 41 2b 32 2b 4e 53 | 4f 2b 34 2a 4e 43 41 2a |NSA+2+NS|O+4*NCA*|
|00004c60| 4e 41 4e 2b 0a 43 20 20 | 20 20 20 20 20 20 20 20 |NAN+.C | |
|00004c70| 20 20 20 20 28 31 2b 4e | 41 4e 29 2a 4e 43 41 2a | (1+N|AN)*NCA*|
|00004c80| 28 4e 43 41 2d 31 29 2f | 32 2b 28 31 2b 4e 43 41 |(NCA-1)/|2+(1+NCA|
|00004c90| 29 2a 4e 41 4e 2a 28 4e | 41 4e 2d 31 29 2f 32 2b |)*NAN*(N|AN-1)/2+|
|00004ca0| 4e 4e 55 2b 31 2b 4e 4e | 55 2a 4e 43 41 2b 0a 43 |NNU+1+NN|U*NCA+.C|
|00004cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 4e 4e | | NN|
|00004cc0| 55 2a 4e 41 4e 2b 4e 4e | 55 2a 28 4e 4e 55 2b 31 |U*NAN+NN|U*(NNU+1|
|00004cd0| 29 2f 32 2b 4e 55 50 0a | 43 0a 43 0a 43 0a 43 20 |)/2+NUP.|C.C.C.C |
|00004ce0| 20 4f 52 44 45 52 20 49 | 4e 20 57 48 49 43 48 20 | ORDER I|N WHICH |
|00004cf0| 51 55 41 4e 54 49 54 49 | 45 53 20 41 52 45 20 53 |QUANTITI|ES ARE S|
|00004d00| 54 4f 52 45 44 20 49 4e | 20 56 41 52 49 4f 55 53 |TORED IN| VARIOUS|
|00004d10| 20 41 52 52 41 59 53 0a | 43 0a 43 20 20 20 20 20 | ARRAYS.|C.C |
|00004d20| 20 20 20 4f 52 44 45 52 | 20 20 20 20 20 20 20 20 | ORDER| |
|00004d30| 20 20 20 20 20 20 20 20 | 20 41 52 52 41 59 20 20 | | ARRAY |
|00004d40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004d50| 20 51 55 41 4e 54 49 54 | 59 0a 43 0a 43 20 20 20 | QUANTIT|Y.C.C |
|00004d60| 4d 2c 4e 2c 41 2c 42 2c | 58 2c 59 2c 48 2f 4f 48 |M,N,A,B,|X,Y,H/OH|
|00004d70| 3a 20 20 20 4e 43 41 50 | 28 31 2c 4a 29 20 2d 20 |: NCAP|(1,J) - |
|00004d80| 4e 43 41 50 28 37 2c 4a | 29 20 20 46 4f 52 4d 55 |NCAP(7,J|) FORMU|
|00004d90| 4c 41 20 43 4f 45 46 2e | 2c 41 51 2e 53 50 2e 20 |LA COEF.|,AQ.SP. |
|00004da0| 4a 0a 43 0a 43 20 20 20 | 4d 2c 4e 2c 41 2c 42 2c |J.C.C |M,N,A,B,|
|00004db0| 58 2c 59 2c 48 2f 4f 48 | 2c 20 20 20 4e 43 4f 50 |X,Y,H/OH|, NCOP|
|00004dc0| 28 31 2c 4a 29 20 2d 20 | 4e 43 4f 50 28 38 2c 4a |(1,J) - |NCOP(8,J|
|00004dd0| 29 20 20 46 4f 52 4d 55 | 4c 41 20 43 4f 45 46 2e |) FORMU|LA COEF.|
|00004de0| 2c 4e 4f 4e 41 51 2e 0a | 63 20 20 20 20 48 32 30 |,NONAQ..|c H20|
|00004df0| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |: | |
|00004e00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004e10| 20 20 20 20 20 20 20 20 | 53 50 2e 20 4a 0a 43 0a | |SP. J.C.|
|00004e20| 43 20 20 20 48 41 2c 42 | 2c 4d 2c 4e 2c 58 2c 59 |C HA,B|,M,N,X,Y|
|00004e30| 2c 48 2f 4f 48 3a 20 20 | 58 28 31 2c 4a 29 20 2d |,H/OH: |X(1,J) -|
|00004e40| 20 58 28 37 2c 4a 29 20 | 20 20 20 20 20 20 20 47 | X(7,J) | G|
|00004e50| 49 56 45 4e 20 43 4f 4e | 43 2e 2c 20 50 4f 49 4e |IVEN CON|C., POIN|
|00004e60| 54 20 4a 0a 43 0a 43 20 | 20 20 48 41 2c 42 2c 4d |T J.C.C | HA,B,M|
|00004e70| 2c 4e 2c 58 2c 59 2c 48 | 2f 4f 48 3a 20 20 58 53 |,N,X,Y,H|/OH: XS|
|00004e80| 28 31 2c 4a 29 20 2d 20 | 58 53 28 37 2c 4a 29 20 |(1,J) - |XS(7,J) |
|00004e90| 20 20 20 20 20 4c 4f 47 | 20 47 49 56 4e 2e 43 4f | LOG| GIVN.CO|
|00004ea0| 4e 43 2e 2c 20 50 4f 49 | 4e 54 20 4a 0a 43 20 20 |NC., POI|NT J.C |
|00004eb0| 20 4d 2c 4e 2c 58 2c 59 | 3a 20 20 20 20 20 20 20 | M,N,X,Y|: |
|00004ec0| 20 20 20 20 20 58 53 28 | 38 2c 4a 29 20 2d 20 58 | XS(|8,J) - X|
|00004ed0| 53 28 31 31 2c 4a 29 20 | 20 20 20 20 53 48 49 46 |S(11,J) | SHIF|
|00004ee0| 54 45 44 20 56 41 4c 53 | 2e 49 46 20 4e 4f 20 41 |TED VALS|.IF NO A|
|00004ef0| 51 2e 50 48 2e 0a 43 0a | 43 20 20 20 48 41 2c 42 |Q.PH..C.|C HA,B|
|00004f00| 2c 4d 2c 4e 2c 58 2c 59 | 2c 48 2c 4f 48 2c 20 20 |,M,N,X,Y|,H,OH, |
|00004f10| 58 43 28 31 29 20 2d 20 | 58 43 28 38 29 2c 20 20 |XC(1) - |XC(8), |
|00004f20| 20 20 20 20 20 20 20 4c | 4f 47 2e 45 51 2e 53 50 | L|OG.EQ.SP|
|00004f30| 45 43 2e 43 4f 4e 43 2e | 20 46 4f 52 0a 43 20 20 |EC.CONC.| FOR.C |
|00004f40| 20 20 4e 4f 4e 41 51 2e | 53 50 2e 31 20 2d 20 4e | NONAQ.|SP.1 - N|
|00004f50| 53 4f 2c 20 20 58 43 28 | 39 29 20 2d 20 58 43 28 |SO, XC(|9) - XC(|
|00004f60| 38 2b 4e 53 4f 29 20 20 | 20 20 20 20 20 41 20 53 |8+NSO) | A S|
|00004f70| 49 4e 47 4c 45 20 44 41 | 54 41 20 50 4f 49 4e 54 |INGLE DA|TA POINT|
|00004f80| 0a 43 20 20 20 20 41 51 | 2e 53 50 2e 31 20 2d 20 |.C AQ|.SP.1 - |
|00004f90| 4e 53 41 3a 20 20 20 20 | 20 58 43 28 39 2b 4e 53 |NSA: | XC(9+NS|
|00004fa0| 4f 29 20 2d 20 58 43 28 | 38 2b 4e 53 4f 2b 4e 53 |O) - XC(|8+NSO+NS|
|00004fb0| 41 29 0a 43 0a 43 20 20 | 20 20 20 20 20 28 53 41 |A).C.C | (SA|
|00004fc0| 4d 45 29 20 20 20 20 20 | 20 20 20 20 20 58 43 53 |ME) | XCS|
|00004fd0| 28 31 2c 4a 29 20 2d 20 | 20 20 20 20 20 20 20 20 |(1,J) - | |
|00004fe0| 20 20 20 20 4c 4f 47 2e | 45 51 2e 53 50 45 43 2e | LOG.|EQ.SPEC.|
|00004ff0| 43 4f 4e 43 2e 20 46 4f | 52 0a 43 20 20 20 20 20 |CONC. FO|R.C |
|00005000| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005010| 20 20 58 43 53 28 38 2b | 4e 53 4f 2b 4e 53 41 2c | XCS(8+|NSO+NSA,|
|00005020| 4a 29 20 20 20 20 20 20 | 20 20 50 4f 49 4e 54 20 |J) | POINT |
|00005030| 4a 2c 20 57 49 54 48 20 | 42 4f 54 48 20 50 48 41 |J, WITH |BOTH PHA|
|00005040| 53 45 53 0a 43 0a 43 20 | 20 20 20 20 20 20 28 53 |SES.C.C | (S|
|00005050| 41 4d 45 29 20 20 20 20 | 20 20 20 20 20 20 58 43 |AME) | XC|
|00005060| 4f 53 28 31 2c 4a 29 20 | 2d 20 20 20 20 20 20 20 |OS(1,J) |- |
|00005070| 20 20 20 20 20 4c 4f 47 | 2e 45 51 2e 53 50 45 43 | LOG|.EQ.SPEC|
|00005080| 2e 43 4f 4e 43 2e 20 46 | 4f 52 0a 43 20 20 20 20 |.CONC. F|OR.C |
|00005090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000050a0| 20 20 20 58 43 4f 53 28 | 38 2b 4e 53 4f 2b 4e 53 | XCOS(|8+NSO+NS|
|000050b0| 41 2c 4a 29 20 20 20 20 | 20 20 20 50 4f 49 4e 54 |A,J) | POINT|
|000050c0| 20 4a 2c 20 57 2f 4f 20 | 41 51 2e 50 48 41 53 45 | J, W/O |AQ.PHASE|
|000050d0| 0a 43 0a 43 20 20 20 20 | 20 20 20 28 53 41 4d 45 |.C.C | (SAME|
|000050e0| 29 20 20 20 20 20 20 20 | 20 20 20 43 53 28 31 29 |) | CS(1)|
|000050f0| 20 2d 20 43 53 28 38 2b | 4e 53 4f 2b 4e 53 41 29 | - CS(8+|NSO+NSA)|
|00005100| 20 20 45 53 54 2e 43 4f | 4e 43 2e 4f 46 20 41 20 | EST.CO|NC.OF A |
|00005110| 53 50 45 43 49 45 53 0a | 43 0a 43 20 20 20 20 20 |SPECIES.|C.C |
|00005120| 20 20 28 53 41 4d 45 29 | 20 20 20 20 20 20 20 20 | (SAME)| |
|00005130| 20 20 47 28 31 29 20 2d | 20 47 28 38 2b 4e 53 4f | G(1) -| G(8+NSO|
|00005140| 2b 4e 53 41 29 20 20 20 | 20 41 43 54 2e 43 4f 45 |+NSA) | ACT.COE|
|00005150| 46 2e 20 46 4f 52 20 41 | 20 53 50 45 43 49 45 53 |F. FOR A| SPECIES|
|00005160| 0a 43 0a 43 20 20 20 20 | 20 20 20 28 53 41 4d 45 |.C.C | (SAME|
|00005170| 29 20 20 20 20 20 20 20 | 20 20 20 57 28 31 29 20 |) | W(1) |
|00005180| 2d 20 57 28 38 2b 4e 53 | 4f 2b 4e 53 41 29 20 20 |- W(8+NS|O+NSA) |
|00005190| 20 20 4d 4f 4c 2e 57 54 | 2e 20 4f 46 20 53 50 45 | MOL.WT|. OF SPE|
|000051a0| 43 49 45 53 0a 43 0a 43 | 20 20 20 20 20 20 20 28 |CIES.C.C| (|
|000051b0| 53 41 4d 45 29 20 20 20 | 20 20 20 20 20 20 20 4e |SAME) | N|
|000051c0| 46 28 31 29 20 2d 20 4e | 46 28 4e 45 51 29 20 20 |F(1) - N|F(NEQ) |
|000051d0| 20 20 20 20 20 20 49 4e | 44 45 58 20 4e 4f 2e 41 | IN|DEX NO.A|
|000051e0| 53 53 47 4e 44 2e 45 41 | 43 48 2e 4f 46 20 4e 45 |SSGND.EA|CH.OF NE|
|000051f0| 51 0a 43 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |Q.C | |
|00005200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005220| 20 20 53 50 43 2e 43 4f | 4e 43 53 2e 54 4f 20 42 | SPC.CO|NCS.TO B|
|00005230| 45 20 44 54 52 4d 44 2e | 20 20 20 20 20 20 20 20 |E DTRMD.| |
|00005240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005260| 20 20 20 20 20 20 0a 43 | 0a 43 20 20 20 48 41 2c | .C|.C HA,|
|00005270| 42 2c 4d 2c 4e 2c 58 2c | 59 2c 48 2c 4f 48 2c 20 |B,M,N,X,|Y,H,OH, |
|00005280| 20 56 28 31 29 20 2d 20 | 56 28 38 2b 4e 53 4f 29 | V(1) - |V(8+NSO)|
|00005290| 20 20 20 20 20 20 20 20 | 4d 4f 4c 2e 56 4f 4c 2e | |MOL.VOL.|
|000052a0| 20 4f 46 20 53 50 45 43 | 49 45 53 0a 43 20 20 20 | OF SPEC|IES.C |
|000052b0| 20 4e 41 51 2e 2e 53 50 | 2e 31 20 2d 20 4e 53 4f | NAQ..SP|.1 - NSO|
|000052c0| 3a 0a 43 0a 43 20 20 20 | 20 20 20 20 28 53 41 4d |:.C.C | (SAM|
|000052d0| 45 29 20 20 20 20 20 20 | 20 20 20 20 43 45 4f 43 |E) | CEOC|
|000052e0| 28 31 29 20 2d 20 43 45 | 4f 43 28 38 2b 4e 53 4f |(1) - CE|OC(8+NSO|
|000052f0| 29 20 20 4e 4f 2e 20 4f | 46 20 52 45 41 43 54 41 |) NO. O|F REACTA|
|00005300| 4e 54 20 53 50 43 53 2e | 49 4e 0a 43 20 20 20 20 |NT SPCS.|IN.C |
|00005310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005330| 20 20 20 20 20 20 20 20 | 20 20 20 41 20 46 4f 52 | | A FOR|
|00005340| 4d 2e 52 43 54 4e 2e 0a | 43 0a 43 20 20 20 20 20 |M.RCTN..|C.C |
|00005350| 20 20 28 53 41 4d 45 29 | 20 20 20 20 20 20 20 20 | (SAME)| |
|00005360| 20 20 52 45 4f 43 28 31 | 2c 4a 2c 4b 29 20 2d 20 | REOC(1|,J,K) - |
|00005370| 20 20 20 20 20 20 20 20 | 20 4e 4f 2e 20 4f 46 20 | | NO. OF |
|00005380| 53 50 43 53 2e 49 4e 20 | 43 4f 4d 42 27 4e 2e 0a |SPCS.IN |COMB'N..|
|00005390| 43 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |C | |
|000053a0| 20 20 20 20 20 20 20 20 | 20 20 52 45 4f 43 28 38 | | REOC(8|
|000053b0| 2b 4e 53 4f 2c 4a 2c 4b | 29 20 20 20 20 20 20 20 |+NSO,J,K|) |
|000053c0| 52 43 54 4e 2e 4a 20 49 | 4e 20 4e 4f 4e 41 51 2e |RCTN.J I|N NONAQ.|
|000053d0| 50 48 41 53 45 0a 43 20 | 20 20 20 20 20 20 20 20 |PHASE.C | |
|000053e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000053f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005400| 20 20 20 20 20 20 54 48 | 41 54 20 45 58 43 4c 55 | TH|AT EXCLU|
|00005410| 44 45 53 20 41 51 2e 52 | 45 41 43 54 2e 0a 43 20 |DES AQ.R|EACT..C |
|00005420| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005430| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 4b 2e | | K.|
|00005450| 0a 43 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.C | |
|00005460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005470| 20 20 20 20 20 20 20 20 | 20 20 20 20 0a 43 20 20 | | .C |
|00005480| 20 20 20 20 20 28 53 41 | 4d 45 29 20 20 20 20 20 | (SA|ME) |
|00005490| 20 20 20 20 20 53 45 4f | 43 28 31 2c 4a 29 20 2d | SEO|C(1,J) -|
|000054a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 4e 4f 2e 20 | | NO. |
|000054b0| 4f 46 20 53 50 43 53 2e | 49 4e 20 43 4f 4d 42 27 |OF SPCS.|IN COMB'|
|000054c0| 4e 2e 0a 43 20 20 20 20 | 20 20 20 20 20 20 20 20 |N..C | |
|000054d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 52 45 4f | | REO|
|000054e0| 43 28 38 2b 4e 53 4f 2c | 4a 29 20 20 20 20 20 20 |C(8+NSO,|J) |
|000054f0| 20 20 20 52 43 54 4e 2e | 4a 20 49 4e 20 4e 4f 4e | RCTN.|J IN NON|
|00005500| 41 51 2e 50 48 41 53 45 | 0a 43 20 20 20 20 20 20 |AQ.PHASE|.C |
|00005510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005520| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005530| 20 20 20 20 20 20 20 20 | 20 54 48 41 54 20 45 58 | | THAT EX|
|00005540| 43 4c 55 44 45 53 20 41 | 4c 4c 20 41 51 2e 0a 43 |CLUDES A|LL AQ..C|
|00005550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 52 | | R|
|00005580| 45 41 43 54 41 4e 54 20 | 53 50 45 43 49 45 53 0a |EACTANT |SPECIES.|
|00005590| 43 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |C | |
|000055a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000055b0| 20 20 20 20 20 20 20 20 | 20 20 20 0a 43 20 20 20 | | .C |
|000055c0| 48 41 2c 42 2c 4d 2c 4e | 2c 58 2c 59 20 20 20 20 |HA,B,M,N|,X,Y |
|000055d0| 20 20 20 20 54 43 53 28 | 31 29 20 2d 20 54 43 53 | TCS(|1) - TCS|
|000055e0| 28 36 29 20 20 20 20 20 | 20 20 20 47 56 4e 2e 43 |(6) | GVN.C|
|000055f0| 4f 4e 43 2e 4f 46 20 52 | 45 41 43 54 41 4e 54 20 |ONC.OF R|EACTANT |
|00005600| 53 50 45 43 2e 0a 43 0a | 43 20 20 20 48 41 2c 42 |SPEC..C.|C HA,B|
|00005610| 2c 4d 2c 4e 2c 58 2c 59 | 2c 48 2c 48 32 4f 20 20 |,M,N,X,Y|,H,H2O |
|00005620| 45 41 43 28 31 2c 4a 29 | 20 2d 20 45 41 43 28 38 |EAC(1,J)| - EAC(8|
|00005630| 2c 4a 29 20 20 20 20 4e | 4f 2e 20 4f 46 20 52 45 |,J) N|O. OF RE|
|00005640| 41 43 54 41 4e 54 20 53 | 50 43 53 2e 49 4e 0a 43 |ACTANT S|PCS.IN.C|
|00005650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005670| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 46 | | F|
|00005680| 4f 52 4d 2e 52 43 54 4e | 2e 4f 46 20 41 51 2e 2e |ORM.RCTN|.OF AQ..|
|00005690| 50 52 44 2e 53 50 2e 4a | 0a 43 0a 43 20 20 20 20 |PRD.SP.J|.C.C |
|000056a0| 20 20 20 28 53 41 4d 45 | 29 20 20 20 20 20 20 20 | (SAME|) |
|000056b0| 20 20 20 46 41 43 28 31 | 2c 4a 29 20 2d 20 46 41 | FAC(1|,J) - FA|
|000056c0| 43 28 38 2c 4a 29 20 20 | 20 20 46 41 43 54 4f 52 |C(8,J) | FACTOR|
|000056d0| 20 4f 46 20 52 45 41 43 | 54 41 4e 54 2e 53 50 43 | OF REAC|TANT.SPC|
|000056e0| 53 2e 49 4e 0a 43 20 20 | 20 20 20 20 20 20 20 20 |S.IN.C | |
|000056f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005710| 20 20 20 20 20 46 4f 52 | 4d 2e 43 4e 53 54 2e 4f | FOR|M.CNST.O|
|00005720| 46 20 41 51 2e 2e 50 52 | 44 2e 53 50 2e 4a 0a 43 |F AQ..PR|D.SP.J.C|
|00005730| 0a 43 20 20 20 20 20 20 | 20 28 53 41 4d 45 29 20 |.C | (SAME) |
|00005740| 20 20 20 20 20 20 20 20 | 20 45 4f 43 28 31 2c 4a | | EOC(1,J|
|00005750| 29 20 2d 20 45 4f 43 28 | 38 2c 4a 29 20 20 20 20 |) - EOC(|8,J) |
|00005760| 4e 4f 2e 20 4f 46 20 52 | 45 41 43 54 41 4e 54 20 |NO. OF R|EACTANT |
|00005770| 53 50 43 53 2e 49 4e 0a | 43 20 20 20 20 20 20 20 |SPCS.IN.|C |
|00005780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000057a0| 20 20 20 20 20 20 20 20 | 46 4f 52 4d 2e 52 43 54 | |FORM.RCT|
|000057b0| 4e 2e 4f 46 20 4e 4f 4e | 41 51 2e 50 52 44 2e 0a |N.OF NON|AQ.PRD..|
|000057c0| 43 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |C | |
|000057d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000057e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000057f0| 53 50 2e 4a 0a 43 0a 43 | 20 20 20 20 20 20 20 28 |SP.J.C.C| (|
|00005800| 53 41 4d 45 29 20 20 20 | 20 20 20 20 20 20 20 46 |SAME) | F|
|00005810| 4f 43 28 31 2c 4a 29 20 | 2d 20 46 4f 43 28 38 2c |OC(1,J) |- FOC(8,|
|00005820| 4a 29 20 20 20 20 46 41 | 43 54 4f 52 20 4f 46 20 |J) FA|CTOR OF |
|00005830| 52 45 41 43 54 41 4e 54 | 2e 53 50 43 53 2e 0a 43 |REACTANT|.SPCS..C|
|00005840| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 49 | | I|
|00005870| 4e 20 46 4f 52 4d 2e 43 | 4e 53 54 2e 4f 46 20 4e |N FORM.C|NST.OF N|
|00005880| 4f 4e 41 51 2e 0a 43 20 | 20 20 20 20 20 20 20 20 |ONAQ..C | |
|00005890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000058a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000058b0| 20 20 20 20 20 20 50 52 | 44 2e 53 50 2e 4a 0a 43 | PR|D.SP.J.C|
|000058c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000058d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000058e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 0a 43 | | .C|
|000058f0| 20 20 20 20 20 20 20 28 | 53 41 4d 45 29 20 20 20 | (|SAME) |
|00005900| 20 20 20 20 20 20 20 52 | 46 4f 43 28 31 2c 4a 29 | R|FOC(1,J)|
|00005910| 20 2d 20 52 46 4f 43 28 | 38 2c 4a 29 20 20 46 41 | - RFOC(|8,J) FA|
|00005920| 43 54 4f 52 20 4f 46 20 | 52 45 41 43 54 41 4e 54 |CTOR OF |REACTANT|
|00005930| 2e 53 50 43 53 2e 0a 43 | 20 20 20 20 20 20 20 20 |.SPCS..C| |
|00005940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005950| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005960| 20 20 20 20 20 20 20 49 | 4e 20 46 4f 52 4d 2e 43 | I|N FORM.C|
|00005970| 4e 53 54 2e 4f 46 20 4e | 4f 4e 41 51 2e 0a 43 20 |NST.OF N|ONAQ..C |
|00005980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005990| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000059a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 50 52 | | PR|
|000059b0| 44 2e 53 50 2e 4a 0a 43 | 20 20 20 20 20 20 20 20 |D.SP.J.C| |
|000059c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000059d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000059e0| 20 20 20 20 20 20 0a 43 | 20 20 20 20 20 20 20 28 | .C| (|
|000059f0| 53 41 4d 45 29 20 20 20 | 20 20 20 20 20 20 20 52 |SAME) | R|
|00005a00| 4f 43 28 31 2c 4a 29 20 | 2d 20 52 4f 43 28 38 2c |OC(1,J) |- ROC(8,|
|00005a10| 4a 29 20 20 20 20 46 4f | 52 4d 55 4c 41 20 43 4f |J) FO|RMULA CO|
|00005a20| 45 46 2e 2c 20 4e 4f 4e | 41 51 2e 0a 43 20 20 20 |EF., NON|AQ..C |
|00005a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 50 45 43 | | SPEC|
|00005a60| 2e 4a 0a 43 0a 43 20 20 | 20 48 41 2c 42 2c 4d 2c |.J.C.C | HA,B,M,|
|00005a70| 4e 2c 58 2c 59 2c 48 20 | 20 20 20 20 20 52 41 43 |N,X,Y,H | RAC|
|00005a80| 28 31 2c 4a 29 20 2d 20 | 52 41 43 28 37 2c 4a 29 |(1,J) - |RAC(7,J)|
|00005a90| 20 20 20 20 46 4f 52 4d | 55 4c 41 20 43 4f 45 46 | FORM|ULA COEF|
|00005aa0| 2e 2c 20 41 51 2e 53 50 | 45 43 2e 4a 0a 43 20 20 |., AQ.SP|EC.J.C |
|00005ab0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005ad0| 20 20 20 20 20 20 20 20 | 20 20 20 0a 43 20 20 20 | | .C |
|00005ae0| 4d 2c 4e 2c 58 2c 59 2c | 48 2c 4f 48 2c 20 20 20 |M,N,X,Y,|H,OH, |
|00005af0| 20 20 20 20 56 30 28 31 | 29 20 2d 20 56 30 28 36 | V0(1|) - V0(6|
|00005b00| 2b 4e 53 41 29 20 20 20 | 20 20 20 4d 41 53 53 4f |+NSA) | MASSO|
|00005b10| 4e 20 43 4f 45 46 46 49 | 43 49 45 4e 54 53 0a 43 |N COEFFI|CIENTS.C|
|00005b20| 20 20 20 20 41 51 2e 50 | 44 2e 53 50 2e 31 20 2d | AQ.P|D.SP.1 -|
|00005b30| 20 4e 53 41 3a 20 20 53 | 56 28 31 29 20 2d 20 53 | NSA: S|V(1) - S|
|00005b40| 56 28 36 2b 4e 53 41 29 | 20 20 20 20 20 20 20 46 |V(6+NSA)| F|
|00005b50| 4f 52 20 41 51 55 45 4f | 55 53 20 53 50 45 43 49 |OR AQUEO|US SPECI|
|00005b60| 45 53 0a 43 0a 43 20 20 | 20 20 20 20 20 28 53 41 |ES.C.C | (SA|
|00005b70| 4d 45 29 20 20 20 20 20 | 20 20 20 20 20 58 43 41 |ME) | XCA|
|00005b80| 53 28 31 2c 4a 29 2d 20 | 20 20 20 20 20 20 20 20 |S(1,J)- | |
|00005b90| 20 20 20 20 4c 4f 47 2e | 45 51 2e 53 50 45 43 2e | LOG.|EQ.SPEC.|
|00005ba0| 43 4f 4e 43 2e 20 46 4f | 52 0a 43 20 20 20 20 20 |CONC. FO|R.C |
|00005bb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005bc0| 20 20 58 43 41 53 28 36 | 2b 4e 53 41 2c 4a 29 20 | XCAS(6|+NSA,J) |
|00005bd0| 20 20 20 20 20 20 20 20 | 20 20 50 4f 49 4e 54 20 | | POINT |
|00005be0| 4a 2c 20 57 2f 4f 20 4e | 4f 4e 41 51 2e 50 48 41 |J, W/O N|ONAQ.PHA|
|00005bf0| 53 45 20 20 20 20 20 0a | 43 0a 43 20 20 20 20 20 |SE .|C.C |
|00005c00| 20 20 28 53 41 4d 45 29 | 20 20 20 20 20 20 20 20 | (SAME)| |
|00005c10| 20 20 43 41 50 28 31 29 | 20 2d 20 43 41 50 28 4e | CAP(1)| - CAP(N|
|00005c20| 53 41 29 20 20 20 20 20 | 20 43 41 4c 43 2e 45 51 |SA) | CALC.EQ|
|00005c30| 2e 53 50 45 43 2e 43 4f | 4d 43 2e 0a 43 0a 43 20 |.SPEC.CO|MC..C.C |
|00005c40| 20 20 48 41 2c 42 20 20 | 20 20 20 20 20 20 20 20 | HA,B | |
|00005c50| 20 20 20 20 20 20 4e 43 | 52 28 31 29 2c 20 4e 43 | NC|R(1), NC|
|00005c60| 52 28 32 29 20 20 20 20 | 20 20 20 20 20 44 45 47 |R(2) | DEG|
|00005c70| 2e 4f 46 20 41 53 53 4f | 43 49 41 54 49 4f 4e 0a |.OF ASSO|CIATION.|
|00005c80| 43 20 20 20 20 20 20 20 | 28 53 41 4d 45 29 20 20 |C |(SAME) |
|00005c90| 20 20 20 20 20 20 20 20 | 4e 43 52 28 33 29 2c 20 | |NCR(3), |
|00005ca0| 4e 43 52 28 34 29 20 20 | 20 20 20 20 20 20 20 4e |NCR(4) | N|
|00005cb0| 4f 2e 4f 46 20 48 32 4f | 20 4d 4f 4c 2e 2f 41 47 |O.OF H2O| MOL./AG|
|00005cc0| 47 52 45 47 41 54 45 0a | 43 0a 43 20 20 20 4d 2c |GREGATE.|C.C M,|
|00005cd0| 4e 2c 48 2c 58 2c 59 2c | 4f 48 3a 20 20 20 20 20 |N,H,X,Y,|OH: |
|00005ce0| 20 20 4e 5a 41 28 31 29 | 20 2d 20 4e 5a 41 28 36 | NZA(1)| - NZA(6|
|00005cf0| 29 20 20 20 20 20 20 20 | 20 49 4f 4e 20 43 48 41 |) | ION CHA|
|00005d00| 52 47 45 2e 20 57 2f 4f | 20 53 49 47 4e 0a 43 20 |RGE. W/O| SIGN.C |
|00005d10| 20 20 41 51 2e 50 44 2e | 53 50 2e 31 20 2d 20 4e | AQ.PD.|SP.1 - N|
|00005d20| 53 41 3a 20 20 20 4e 5a | 41 28 37 29 20 2d 20 4e |SA: NZ|A(7) - N|
|00005d30| 5a 41 28 36 2b 4e 53 41 | 29 20 20 20 20 53 50 2e |ZA(6+NSA|) SP.|
|00005d40| 20 43 48 41 52 47 45 20 | 57 49 54 48 20 53 49 47 | CHARGE |WITH SIG|
|00005d50| 4e 0a 43 0a 43 20 20 20 | 4e 4f 4e 41 51 2e 50 44 |N.C.C |NONAQ.PD|
|00005d60| 2e 53 50 2e 20 20 20 20 | 20 20 20 20 4e 5a 50 4f |.SP. | NZPO|
|00005d70| 28 31 29 20 2d 20 4e 5a | 50 4f 28 4e 53 4f 29 20 |(1) - NZ|PO(NSO) |
|00005d80| 20 20 20 53 50 2e 20 43 | 48 41 52 47 45 20 57 49 | SP. C|HARGE WI|
|00005d90| 54 48 20 53 49 47 4e 0a | 43 20 20 20 20 31 20 2d |TH SIGN.|C 1 -|
|00005da0| 20 4e 53 4f 3a 0a 43 0a | 43 20 20 20 48 41 2c 42 | NSO:.C.|C HA,B|
|00005db0| 2c 4e 4f 4e 41 51 2e 50 | 44 2e 53 50 2e 20 20 20 |,NONAQ.P|D.SP. |
|00005dc0| 47 4f 28 31 29 20 2d 20 | 47 4f 28 32 2b 4e 53 4f |GO(1) - |GO(2+NSO|
|00005dd0| 29 20 20 20 20 20 20 53 | 4f 4c 55 42 49 4c 49 54 |) S|OLUBILIT|
|00005de0| 59 20 50 41 52 41 4d 45 | 54 45 52 53 0a 43 20 20 |Y PARAME|TERS.C |
|00005df0| 20 20 31 20 2d 20 4e 53 | 4f 3a 0a 43 0a 43 20 20 | 1 - NS|O:.C.C |
|00005e00| 20 20 20 20 20 28 53 41 | 4d 45 29 20 20 20 20 20 | (SA|ME) |
|00005e10| 20 20 20 20 20 43 4f 50 | 28 31 29 20 2d 20 43 4f | COP|(1) - CO|
|00005e20| 50 28 4e 53 4f 29 20 20 | 20 20 20 20 43 41 4c 43 |P(NSO) | CALC|
|00005e30| 2e 45 51 2e 53 50 45 43 | 2e 43 4f 4d 43 2e 0a 43 |.EQ.SPEC|.COMC..C|
|00005e40| 20 0a 43 20 20 20 20 20 | 20 20 28 53 41 4e 45 29 | .C | (SANE)|
|00005e50| 20 20 20 20 20 20 20 20 | 20 20 47 58 30 28 31 29 | | GX0(1)|
|00005e60| 20 2d 20 47 58 30 28 32 | 2b 4e 53 4f 29 20 20 20 | - GX0(2|+NSO) |
|00005e70| 20 4c 49 4d 49 54 49 4e | 47 20 41 43 54 49 56 49 | LIMITIN|G ACTIVI|
|00005e80| 54 59 20 43 4f 45 46 2e | 0a 43 20 20 20 20 20 20 |TY COEF.|.C |
|00005e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005ea0| 20 50 48 28 31 29 20 2d | 20 50 48 28 32 2b 4e 53 | PH(1) -| PH(2+NS|
|00005eb0| 4f 29 20 20 20 20 20 20 | 20 56 4f 4c 55 4d 45 20 |O) | VOLUME |
|00005ec0| 46 52 41 43 54 49 4f 4e | 0a 43 20 20 20 20 20 20 |FRACTION|.C |
|00005ed0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005ee0| 20 41 43 28 31 29 20 2d | 20 41 43 28 32 2b 4e 53 | AC(1) -| AC(2+NS|
|00005ef0| 4f 29 20 20 20 20 20 20 | 20 41 43 54 49 56 49 54 |O) | ACTIVIT|
|00005f00| 59 20 28 58 20 53 58 41 | 4c 45 29 0a 43 20 20 20 |Y (X SXA|LE).C |
|00005f10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005f20| 20 20 20 20 47 58 28 31 | 29 20 2d 20 47 58 28 32 | GX(1|) - GX(2|
|00005f30| 2b 4e 53 4f 29 20 20 20 | 20 20 20 20 4d 4f 4c 45 |+NSO) | MOLE|
|00005f40| 20 46 52 41 43 54 49 4f | 4e 20 41 43 54 2e 43 4f | FRACTIO|N ACT.CO|
|00005f50| 45 46 2e 0a 43 20 20 20 | 20 20 20 20 20 20 20 20 |EF..C | |
|00005f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 58 46 28 31 | | XF(1|
|00005f70| 29 20 2d 20 58 46 28 32 | 2b 4e 53 4f 29 20 20 20 |) - XF(2|+NSO) |
|00005f80| 20 20 20 20 4d 4f 4c 45 | 20 46 52 41 43 54 49 4f | MOLE| FRACTIO|
|00005f90| 4e 0a 43 0a 43 0a 20 20 | 20 20 20 20 53 55 42 52 |N.C.C. | SUBR|
|00005fa0| 4f 55 54 49 4e 45 20 41 | 52 52 41 59 53 28 53 2c |OUTINE A|RRAYS(S,|
|00005fb0| 4e 29 0a 20 20 20 20 20 | 20 49 4d 50 4c 49 43 49 |N). | IMPLICI|
|00005fc0| 54 20 52 45 41 4c 2a 38 | 28 41 2d 48 2c 4f 2d 5a |T REAL*8|(A-H,O-Z|
|00005fd0| 29 0a 20 20 20 20 20 20 | 53 41 56 45 0a 20 20 20 |). |SAVE. |
|00005fe0| 20 20 20 43 48 41 52 41 | 43 54 45 52 20 2a 36 30 | CHARA|CTER *60|
|00005ff0| 20 4c 54 49 54 4c 45 0a | 20 20 20 20 20 20 45 58 | LTITLE.| EX|
|00006000| 54 45 52 4e 41 4c 20 4e | 53 49 5a 45 0a 20 20 20 |TERNAL N|SIZE. |
|00006010| 20 20 20 43 4f 4d 4d 4f | 4e 2f 4d 43 48 50 52 53 | COMMO|N/MCHPRS|
|00006020| 2f 45 50 53 0a 20 20 20 | 20 20 20 43 4f 4d 4d 4f |/EPS. | COMMO|
|00006030| 4e 2f 52 53 44 4c 53 2f | 53 4d 49 4e 53 0a 20 20 |N/RSDLS/|SMINS. |
|00006040| 20 20 20 20 43 4f 4d 4d | 4f 4e 2f 43 59 43 4c 45 | COMM|ON/CYCLE|
|00006050| 53 2f 4d 58 48 43 59 2c | 4e 54 52 59 0a 20 20 20 |S/MXHCY,|NTRY. |
|00006060| 20 20 20 43 4f 4d 4d 4f | 4e 2f 4c 47 53 4e 2f 4c | COMMO|N/LGSN/L|
|00006070| 47 53 2c 4c 47 4e 0a 20 | 20 20 20 20 20 43 4f 4d |GS,LGN. | COM|
|00006080| 4d 4f 4e 2f 4c 47 50 2f | 4c 50 0a 20 20 20 20 20 |MON/LGP/|LP. |
|00006090| 20 43 4f 4d 4d 4f 4e 2f | 4d 44 2f 4e 53 4f 2c 4e | COMMON/|MD/NSO,N|
|000060a0| 43 42 4f 2c 49 52 45 46 | 2c 4e 50 48 2c 4e 50 41 |CBO,IREF|,NPH,NPA|
|000060b0| 2c 4e 53 41 2c 4e 49 4f | 2c 4e 49 41 2c 4e 43 41 |,NSA,NIO|,NIA,NCA|
|000060c0| 2c 4e 41 4e 2c 4e 4e 55 | 2c 4e 55 50 2c 4e 55 4d |,NAN,NNU|,NUP,NUM|
|000060d0| 0a 20 20 20 20 20 20 43 | 4f 4d 4d 4f 4e 2f 54 49 |. C|OMMON/TI|
|000060e0| 54 2f 4c 54 49 54 4c 45 | 0a 20 20 20 20 20 20 43 |T/LTITLE|. C|
|000060f0| 4f 4d 4d 4f 4e 2f 44 54 | 2f 54 43 2c 4e 4f 2c 4e |OMMON/DT|/TC,NO,N|
|00006100| 4f 46 2c 49 43 4e 52 20 | 20 20 20 20 20 0a 20 20 |OF,ICNR | . |
|00006110| 20 20 20 20 43 4f 4d 4d | 4f 4e 2f 47 52 50 2f 41 | COMM|ON/GRP/A|
|00006120| 46 54 2c 42 46 54 2c 51 | 46 54 2c 4e 43 52 28 34 |FT,BFT,Q|FT,NCR(4|
|00006130| 29 2c 57 53 2c 56 53 2c | 44 53 2c 47 4f 53 2c 57 |),WS,VS,|DS,GOS,W|
|00006140| 52 2c 56 52 2c 47 4f 52 | 2c 52 54 0a 20 20 20 20 |R,VR,GOR|,RT. |
|00006150| 20 20 43 4f 4d 4d 4f 4e | 2f 46 49 54 2f 53 49 47 | COMMON|/FIT/SIG|
|00006160| 4d 41 2c 4e 43 2c 4e 56 | 50 2c 4c 41 4d 2c 4c 45 |MA,NC,NV|P,LAM,LE|
|00006170| 56 0a 20 20 20 20 20 20 | 43 4f 4d 4d 4f 4e 2f 57 |V. |COMMON/W|
|00006180| 54 52 2f 50 30 2c 44 57 | 2c 44 43 2c 41 50 2c 52 |TR/P0,DW|,DC,AP,R|
|00006190| 4c 4b 57 20 20 20 20 20 | 20 0a 20 20 20 20 20 20 |LKW | . |
|000061a0| 43 4f 4d 4d 4f 4e 2f 45 | 51 2f 44 45 4e 2c 41 57 |COMMON/E|Q/DEN,AW|
|000061b0| 47 2c 41 57 2c 54 57 53 | 41 2c 54 56 53 41 2c 56 |G,AW,TWS|A,TVSA,V|
|000061c0| 57 50 41 2c 56 57 50 4f | 2c 52 4d 42 41 2c 52 4d |WPA,VWPO|,RMBA,RM|
|000061d0| 42 4f 0a 20 20 20 20 20 | 20 43 4f 4d 4d 4f 4e 2f |BO. | COMMON/|
|000061e0| 50 52 50 2f 58 46 53 2c | 47 58 53 2c 41 53 2c 52 |PRP/XFS,|GXS,AS,R|
|000061f0| 4d 43 4f 2c 54 48 53 56 | 2c 54 48 53 2c 54 53 41 |MCO,THSV|,THS,TSA|
|00006200| 49 2c 54 53 4f 49 2c 54 | 57 53 4f 2c 54 56 53 4f |I,TSOI,T|WSO,TVSO|
|00006210| 0a 20 20 20 20 20 20 43 | 4f 4d 4d 4f 4e 2f 45 4e |. C|OMMON/EN|
|00006220| 54 53 2f 4a 45 4e 54 0a | 20 20 20 20 20 20 44 49 |TS/JENT.| DI|
|00006230| 4d 45 4e 53 49 4f 4e 20 | 53 28 4c 47 53 29 2c 4e |MENSION |S(LGS),N|
|00006240| 28 4c 47 4e 29 0a 20 20 | 20 20 20 20 44 41 54 41 |(LGN). | DATA|
|00006250| 20 52 4a 50 43 2c 52 2c | 54 43 30 2c 4c 4d 31 2c | RJPC,R,|TC0,LM1,|
|00006260| 4c 4d 37 2c 4c 4d 38 2f | 0a 20 20 20 20 20 26 34 |LM7,LM8/|. &4|
|00006270| 2e 31 38 34 44 2b 30 30 | 2c 38 2e 33 31 34 35 31 |.184D+00|,8.31451|
|00006280| 44 2b 30 2c 32 37 33 2e | 31 35 44 2b 30 2c 31 2c |D+0,273.|15D+0,1,|
|00006290| 37 2c 38 2f 0a 20 20 20 | 20 20 20 44 41 54 41 20 |7,8/. | DATA |
|000062a0| 41 56 4e 2c 42 4b 2c 45 | 2c 50 49 2f 0a 20 20 20 |AVN,BK,E|,PI/. |
|000062b0| 20 20 26 36 2e 30 32 32 | 30 34 35 44 2b 32 33 2c | &6.022|045D+23,|
|000062c0| 31 2e 33 38 30 36 36 32 | 44 2d 31 36 2c 34 2e 38 |1.380662|D-16,4.8|
|000062d0| 30 33 32 34 32 44 2d 31 | 30 2c 33 2e 31 34 31 35 |03242D-1|0,3.1415|
|000062e0| 39 32 36 44 2b 30 2f 0a | 20 20 20 20 20 20 44 41 |926D+0/.| DA|
|000062f0| 54 41 20 5a 45 52 4f 2c | 4f 4e 45 2c 54 57 4f 2c |TA ZERO,|ONE,TWO,|
|00006300| 54 48 52 45 45 2c 46 4f | 55 52 2c 46 49 56 45 2c |THREE,FO|UR,FIVE,|
|00006310| 45 49 47 48 54 2c 54 45 | 4e 2c 54 48 4f 55 2f 0a |EIGHT,TE|N,THOU/.|
|00006320| 20 20 20 20 20 26 30 2e | 30 44 2b 30 2c 31 2e 30 | &0.|0D+0,1.0|
|00006330| 44 2b 30 2c 32 2e 30 44 | 2b 30 2c 33 2e 30 44 2b |D+0,2.0D|+0,3.0D+|
|00006340| 30 2c 34 2e 30 44 2b 30 | 2c 35 2e 30 44 2b 30 2c |0,4.0D+0|,5.0D+0,|
|00006350| 38 2e 30 44 2b 30 2c 31 | 2e 30 44 2b 31 2c 31 2e |8.0D+0,1|.0D+1,1.|
|00006360| 30 44 2b 33 2f 0a 43 0a | 43 20 45 53 54 41 42 4c |0D+3/.C.|C ESTABL|
|00006370| 49 53 48 20 54 48 45 20 | 52 45 4c 41 54 49 56 45 |ISH THE |RELATIVE|
|00006380| 20 4d 41 43 48 49 4e 45 | 20 50 52 45 43 49 53 49 | MACHINE| PRECISI|
|00006390| 4f 4e 0a 43 0a 20 20 20 | 20 20 20 45 50 54 53 54 |ON.C. | EPTST|
|000063a0| 3d 4f 4e 45 0a 31 20 20 | 20 20 20 45 50 53 56 3d |=ONE.1 | EPSV=|
|000063b0| 45 50 54 53 54 0a 20 20 | 20 20 20 20 45 50 54 53 |EPTST. | EPTS|
|000063c0| 54 3d 45 50 54 53 54 2f | 54 57 4f 0a 20 20 20 20 |T=EPTST/|TWO. |
|000063d0| 20 20 49 46 28 45 50 54 | 53 54 2e 47 54 2e 5a 45 | IF(EPT|ST.GT.ZE|
|000063e0| 52 4f 29 20 47 4f 54 4f | 20 31 0a 20 20 20 20 20 |RO) GOTO| 1. |
|000063f0| 20 45 50 53 3d 44 53 51 | 52 54 28 45 50 53 56 29 | EPS=DSQ|RT(EPSV)|
|00006400| 0a 43 0a 20 20 20 20 20 | 20 57 52 49 54 45 28 39 |.C. | WRITE(9|
|00006410| 2c 31 31 30 29 20 45 50 | 53 0a 31 31 30 20 20 20 |,110) EP|S.110 |
|00006420| 46 4f 52 4d 41 54 28 2f | 31 58 2c 27 54 48 45 20 |FORMAT(/|1X,'THE |
|00006430| 4e 41 43 48 49 4e 45 20 | 50 52 45 43 49 53 49 4f |NACHINE |PRECISIO|
|00006440| 4e 20 49 53 3a 27 2c 31 | 50 45 31 32 2e 33 2f 29 |N IS:',1|PE12.3/)|
|00006450| 0a 43 0a 20 20 20 20 20 | 20 4f 50 45 4e 20 28 55 |.C. | OPEN (U|
|00006460| 4e 49 54 20 3d 20 31 30 | 2c 20 46 49 4c 45 20 3d |NIT = 10|, FILE =|
|00006470| 20 27 53 58 4c 53 51 49 | 2e 50 41 52 27 2c 53 54 | 'SXLSQI|.PAR',ST|
|00006480| 41 54 55 53 3d 27 4f 4c | 44 27 29 0a 20 20 20 20 |ATUS='OL|D'). |
|00006490| 20 20 4f 50 45 4e 20 28 | 55 4e 49 54 20 3d 20 31 | OPEN (|UNIT = 1|
|000064a0| 31 2c 20 46 49 4c 45 20 | 3d 20 27 53 58 4c 53 51 |1, FILE |= 'SXLSQ|
|000064b0| 49 2e 44 41 54 27 2c 53 | 54 41 54 55 53 3d 27 4f |I.DAT',S|TATUS='O|
|000064c0| 4c 44 27 29 0a 43 0a 43 | 20 20 52 45 41 44 20 54 |LD').C.C| READ T|
|000064d0| 49 54 4c 45 2c 20 54 45 | 4d 50 45 52 41 54 55 52 |ITLE, TE|MPERATUR|
|000064e0| 45 2c 20 41 4e 44 20 4e | 55 4d 42 45 52 20 4f 46 |E, AND N|UMBER OF|
|000064f0| 20 44 41 54 41 20 50 4f | 49 4e 54 53 0a 20 20 20 | DATA PO|INTS. |
|00006500| 20 20 20 52 45 41 44 28 | 31 31 2c 2a 29 20 4c 54 | READ(|11,*) LT|
|00006510| 49 54 4c 45 2c 54 43 2c | 4e 4f 0a 20 20 20 20 20 |ITLE,TC,|NO. |
|00006520| 20 4f 50 45 4e 20 28 55 | 4e 49 54 20 3d 20 31 32 | OPEN (U|NIT = 12|
|00006530| 2c 20 46 49 4c 45 20 3d | 20 27 53 58 4c 53 51 49 |, FILE =| 'SXLSQI|
|00006540| 2e 4c 53 51 27 2c 53 54 | 41 54 55 53 3d 27 55 4e |.LSQ',ST|ATUS='UN|
|00006550| 4b 4e 4f 57 4e 27 29 0a | 20 20 20 20 20 20 4f 50 |KNOWN').| OP|
|00006560| 45 4e 20 28 55 4e 49 54 | 20 3d 20 31 33 2c 20 46 |EN (UNIT| = 13, F|
|00006570| 49 4c 45 20 3d 20 27 53 | 58 4c 53 51 49 2e 46 49 |ILE = 'S|XLSQI.FI|
|00006580| 54 27 2c 53 54 41 54 55 | 53 3d 27 55 4e 4b 4e 4f |T',STATU|S='UNKNO|
|00006590| 57 4e 27 29 0a 20 20 20 | 20 20 20 57 52 49 54 45 |WN'). | WRITE|
|000065a0| 28 31 33 2c 31 30 31 33 | 29 20 4c 54 49 54 4c 45 |(13,1013|) LTITLE|
|000065b0| 0a 31 30 31 33 20 20 46 | 4f 52 4d 41 54 28 31 58 |.1013 F|ORMAT(1X|
|000065c0| 2c 41 36 30 2f 2f 0a 20 | 20 20 20 20 26 31 58 2c |,A60//. | &1X,|
|000065d0| 27 20 50 54 20 20 20 20 | 20 20 20 20 20 59 4f 20 |' PT | YO |
|000065e0| 20 20 20 20 20 20 20 20 | 59 43 20 20 20 20 20 20 | |YC |
|000065f0| 59 4f 2d 59 43 27 2c 0a | 20 20 20 20 20 26 27 20 |YO-YC',.| &' |
|00006600| 20 20 20 20 20 53 69 67 | 6d 61 20 28 59 4f 2d 59 | Sig|ma (YO-Y|
|00006610| 43 29 2f 53 67 20 20 20 | 20 20 20 20 58 28 31 29 |C)/Sg | X(1)|
|00006620| 20 20 20 20 20 20 20 58 | 28 32 29 27 2f 0a 20 20 | X|(2)'/. |
|00006630| 20 20 20 26 31 58 2c 27 | 09 20 20 20 20 20 20 20 | &1X,'|. |
|00006640| 20 20 20 20 20 20 20 58 | 28 33 29 20 20 20 20 20 | X|(3) |
|00006650| 20 20 58 28 34 29 27 2c | 0a 20 20 20 20 20 26 27 | X(4)',|. &'|
|00006660| 20 20 20 20 20 20 20 58 | 28 35 29 20 20 20 20 20 | X|(5) |
|00006670| 20 20 58 28 36 29 20 20 | 20 20 20 20 20 58 28 37 | X(6) | X(7|
|00006680| 29 20 20 20 20 20 20 20 | 58 28 38 29 27 2f 29 0a |) |X(8)'/).|
|00006690| 20 20 20 20 20 20 4f 50 | 45 4e 20 28 55 4e 49 54 | OP|EN (UNIT|
|000066a0| 20 3d 20 31 34 2c 20 46 | 49 4c 45 20 3d 20 27 53 | = 14, F|ILE = 'S|
|000066b0| 58 4c 53 51 49 2e 53 50 | 43 27 2c 53 54 41 54 55 |XLSQI.SP|C',STATU|
|000066c0| 53 3d 27 55 4e 4b 4e 4f | 57 4e 27 29 0a 20 20 20 |S='UNKNO|WN'). |
|000066d0| 20 20 20 57 52 49 54 45 | 28 31 34 2c 31 30 31 34 | WRITE|(14,1014|
|000066e0| 29 20 4c 54 49 54 4c 45 | 0a 31 30 31 34 20 20 46 |) LTITLE|.1014 F|
|000066f0| 4f 52 4d 41 54 28 31 58 | 2c 41 36 30 2f 2f 0a 20 |ORMAT(1X|,A60//. |
|00006700| 20 20 20 20 26 31 58 2c | 27 50 74 2e 20 20 20 20 | &1X,|'Pt. |
|00006710| 20 20 43 28 48 41 2f 4e | 41 29 20 20 20 20 20 20 | C(HA/N|A) |
|00006720| 20 43 28 42 2f 4e 42 29 | 20 20 20 20 20 20 20 20 | C(B/NB)| |
|00006730| 20 20 43 28 4d 29 27 2c | 0a 20 20 20 20 20 26 27 | C(M)',|. &'|
|00006740| 20 20 20 20 20 20 20 20 | 20 20 43 28 4e 29 20 20 | | C(N) |
|00006750| 20 20 20 20 20 20 20 20 | 43 28 78 29 27 2f 0a 20 | |C(x)'/. |
|00006760| 20 20 20 20 26 31 58 2c | 27 20 20 20 20 20 20 20 | &1X,|' |
|00006770| 20 20 20 20 20 20 43 28 | 59 29 20 20 20 20 20 20 | C(|Y) |
|00006780| 20 20 20 20 43 28 48 29 | 20 20 20 20 20 20 20 20 | C(H)| |
|00006790| 20 43 28 4f 48 29 27 2f | 0a 20 20 20 20 20 26 31 | C(OH)'/|. &1|
|000067a0| 58 2c 27 20 20 20 20 20 | 20 20 20 43 28 6e 61 71 |X,' | C(naq|
|000067b0| 2e 73 70 29 20 2e 2e 2e | 20 20 43 28 61 71 2e 73 |.sp) ...| C(aq.s|
|000067c0| 70 29 2e 2e 2e 2e 27 2f | 29 0a 20 20 20 20 20 20 |p)....'/|). |
|000067d0| 4f 50 45 4e 20 28 55 4e | 49 54 20 3d 20 31 35 2c |OPEN (UN|IT = 15,|
|000067e0| 20 46 49 4c 45 20 3d 20 | 27 53 58 4c 53 51 49 2e | FILE = |'SXLSQI.|
|000067f0| 47 4d 41 27 2c 53 54 41 | 54 55 53 3d 27 55 4e 4b |GMA',STA|TUS='UNK|
|00006800| 4e 4f 57 4e 27 29 0a 20 | 20 20 20 20 20 57 52 49 |NOWN'). | WRI|
|00006810| 54 45 28 31 35 2c 31 30 | 31 35 29 20 4c 54 49 54 |TE(15,10|15) LTIT|
|00006820| 4c 45 0a 31 30 31 35 20 | 20 46 4f 52 4d 41 54 28 |LE.1015 | FORMAT(|
|00006830| 31 58 2c 41 36 30 2f 2f | 0a 20 20 20 20 20 26 31 |1X,A60//|. &1|
|00006840| 58 2c 27 50 74 2e 20 67 | 28 48 41 2f 4e 41 29 20 |X,'Pt. g|(HA/NA) |
|00006850| 20 67 28 42 2f 4e 42 29 | 20 20 20 20 20 67 28 4d | g(B/NB)| g(M|
|00006860| 29 20 20 20 20 20 67 28 | 4e 29 27 2c 0a 20 20 20 |) g(|N)',. |
|00006870| 20 20 26 27 20 20 20 20 | 20 67 28 58 29 20 20 20 | &' | g(X) |
|00006880| 20 20 67 28 59 29 20 20 | 20 20 20 67 28 48 29 20 | g(Y) | g(H) |
|00006890| 20 20 20 67 28 4f 48 29 | 27 2f 0a 20 20 20 20 20 | g(OH)|'/. |
|000068a0| 26 31 58 2c 27 20 20 20 | 20 20 67 28 6d 61 73 70 |&1X,' | g(masp|
|000068b0| 29 2e 2e 2e 67 28 61 73 | 70 29 2e 2e 2e 2e 67 28 |)...g(as|p)....g(|
|000068c0| 65 6c 29 27 2f 0a 20 20 | 20 20 20 26 31 58 2c 27 |el)'/. | &1X,'|
|000068d0| 20 20 20 20 61 28 48 41 | 2f 4e 41 29 20 20 61 28 | a(HA|/NA) a(|
|000068e0| 42 2f 4e 42 29 20 20 61 | 28 6e 61 73 70 29 2e 2e |B/NB) a|(nasp)..|
|000068f0| 2e 20 27 2c 0a 20 20 20 | 20 20 26 27 20 20 20 20 |. ',. | &' |
|00006900| 20 28 54 68 65 73 65 20 | 61 63 74 69 76 69 74 69 | (These |activiti|
|00006910| 65 73 20 72 65 66 65 72 | 20 74 6f 20 74 68 65 20 |es refer| to the |
|00006920| 70 75 72 65 27 2f 20 20 | 20 0a 20 20 20 20 20 26 |pure'/ | . &|
|00006930| 31 58 2c 27 20 20 20 20 | 20 20 61 28 48 32 4f 29 |1X,' | a(H2O)|
|00006940| 20 20 20 61 28 73 6c 76 | 29 20 20 20 61 28 73 6c | a(slv|) a(sl|
|00006950| 76 2c 65 6c 29 20 27 2c | 0a 20 20 20 20 20 26 27 |v,el) ',|. &'|
|00006960| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00006970| 20 20 6c 69 71 75 69 64 | 20 73 74 61 6e 64 61 72 | liquid| standar|
|00006980| 64 20 73 74 61 74 65 29 | 27 2f 29 0a 20 20 20 20 |d state)|'/). |
|00006990| 20 20 4f 50 45 4e 20 28 | 55 4e 49 54 20 3d 20 31 | OPEN (|UNIT = 1|
|000069a0| 36 2c 20 46 49 4c 45 20 | 3d 20 27 53 58 4c 53 51 |6, FILE |= 'SXLSQ|
|000069b0| 49 2e 4d 42 4c 27 2c 53 | 54 41 54 55 53 3d 27 55 |I.MBL',S|TATUS='U|
|000069c0| 4e 4b 4e 4f 57 4e 27 29 | 0a 20 20 20 20 20 20 57 |NKNOWN')|. W|
|000069d0| 52 49 54 45 28 31 36 2c | 31 30 31 36 29 20 4c 54 |RITE(16,|1016) LT|
|000069e0| 49 54 4c 45 0a 31 30 31 | 36 20 20 46 4f 52 4d 41 |ITLE.101|6 FORMA|
|000069f0| 54 28 31 58 2c 41 36 30 | 2f 2f 0a 20 20 20 20 20 |T(1X,A60|//. |
|00006a00| 26 31 58 2c 27 49 50 54 | 20 49 43 4e 20 20 20 20 |&1X,'IPT| ICN |
|00006a10| 20 44 65 6e 20 28 61 71 | 29 20 20 20 20 20 20 20 | Den (aq|) |
|00006a20| 54 53 41 49 20 20 20 20 | 20 20 54 56 57 53 41 27 |TSAI | TVWSA'|
|00006a30| 2c 0a 20 20 20 20 20 26 | 27 20 20 20 20 20 20 20 |,. &|' |
|00006a40| 56 57 50 41 20 20 20 20 | 20 20 20 20 20 52 4d 42 |VWPA | RMB|
|00006a50| 41 27 2f 0a 20 20 20 20 | 20 26 31 58 2c 27 20 20 |A'/. | &1X,' |
|00006a60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00006a70| 20 20 20 20 20 20 20 20 | 20 54 53 4f 49 20 20 20 | | TSOI |
|00006a80| 20 20 20 54 56 57 53 4f | 20 20 20 20 20 20 20 56 | TVWSO| V|
|00006a90| 57 50 4f 27 2c 0a 20 20 | 20 20 20 26 27 20 20 20 |WPO',. | &' |
|00006aa0| 20 20 20 20 20 20 52 4d | 42 4f 27 2f 29 0a 20 20 | RM|BO'/). |
|00006ab0| 20 20 20 20 4f 50 45 4e | 20 28 55 4e 49 54 20 3d | OPEN| (UNIT =|
|00006ac0| 20 31 37 2c 20 46 49 4c | 45 20 3d 20 27 53 58 4c | 17, FIL|E = 'SXL|
|00006ad0| 53 51 49 2e 49 54 52 27 | 2c 53 54 41 54 55 53 3d |SQI.ITR'|,STATUS=|
|00006ae0| 27 55 4e 4b 4e 4f 57 4e | 27 29 0a 20 20 20 20 20 |'UNKNOWN|'). |
|00006af0| 20 4f 50 45 4e 20 28 55 | 4e 49 54 20 3d 20 31 38 | OPEN (U|NIT = 18|
|00006b00| 2c 20 46 49 4c 45 20 3d | 20 27 53 58 4c 53 51 49 |, FILE =| 'SXLSQI|
|00006b10| 2e 52 45 46 27 2c 53 54 | 41 54 55 53 3d 27 55 4e |.REF',ST|ATUS='UN|
|00006b20| 4b 4e 4f 57 4e 27 29 0a | 20 20 20 20 20 20 4f 50 |KNOWN').| OP|
|00006b30| 45 4e 20 28 55 4e 49 54 | 20 3d 20 31 39 2c 20 46 |EN (UNIT| = 19, F|
|00006b40| 49 4c 45 20 3d 20 27 53 | 58 4c 53 51 49 2e 41 55 |ILE = 'S|XLSQI.AU|
|00006b50| 58 27 2c 53 54 41 54 55 | 53 3d 27 55 4e 4b 4e 4f |X',STATU|S='UNKNO|
|00006b60| 57 4e 27 29 0a 43 20 20 | 52 45 41 44 20 4d 4f 44 |WN').C |READ MOD|
|00006b70| 45 4c 20 50 41 52 41 4d | 45 54 45 52 53 20 54 48 |EL PARAM|ETERS TH|
|00006b80| 41 54 20 44 45 54 45 52 | 4d 49 4e 45 20 41 52 52 |AT DETER|MINE ARR|
|00006b90| 41 59 20 53 49 5a 45 53 | 2c 20 43 4f 4e 56 45 52 |AY SIZES|, CONVER|
|00006ba0| 47 45 4e 43 45 20 43 52 | 49 54 45 52 49 41 2c 0a |GENCE CR|ITERIA,.|
|00006bb0| 43 20 20 20 4e 4f 2e 20 | 4f 46 20 43 59 43 4c 45 |C NO. |OF CYCLE|
|00006bc0| 53 0a 20 20 20 20 20 20 | 52 45 41 44 28 31 30 2c |S. |READ(10,|
|00006bd0| 2a 29 20 4e 53 4f 2c 4e | 50 48 2c 4e 50 41 2c 4e |*) NSO,N|PH,NPA,N|
|00006be0| 53 41 2c 4e 49 4f 2c 4e | 49 41 2c 4e 55 4d 2c 4e |SA,NIO,N|IA,NUM,N|
|00006bf0| 43 41 2c 4e 41 4e 2c 4e | 4e 55 2c 4e 55 50 2c 0a |CA,NAN,N|NU,NUP,.|
|00006c00| 20 20 20 20 20 26 53 4d | 49 4e 53 2c 4d 58 48 43 | &SM|INS,MXHC|
|00006c10| 59 2c 4e 54 52 59 2c 4e | 43 0a 43 20 20 45 56 41 |Y,NTRY,N|C.C EVA|
|00006c20| 4c 55 41 54 45 20 54 48 | 45 20 50 52 4f 44 55 43 |LUATE TH|E PRODUC|
|00006c30| 54 20 52 2a 54 20 28 43 | 41 4c 2f 4d 4f 4c 29 0a |T R*T (C|AL/MOL).|
|00006c40| 20 20 20 20 20 20 54 3d | 54 43 30 2b 54 43 0a 20 | T=|TC0+TC. |
|00006c50| 20 20 20 20 20 52 54 3d | 52 2a 54 2f 52 4a 50 43 | RT=|R*T/RJPC|
|00006c60| 0a 43 20 20 43 41 4c 43 | 55 4c 41 54 45 20 4e 45 |.C CALC|ULATE NE|
|00006c70| 45 44 45 44 20 50 52 4f | 50 45 52 54 49 45 53 20 |EDED PRO|PERTIES |
|00006c80| 4f 46 20 57 41 54 45 52 | 0a 20 20 20 20 20 20 43 |OF WATER|. C|
|00006c90| 41 4c 4c 20 57 41 54 45 | 52 28 54 43 2c 50 30 2c |ALL WATE|R(TC,P0,|
|00006ca0| 44 57 2c 44 43 2c 52 4c | 4b 57 29 0a 43 0a 43 20 |DW,DC,RL|KW).C.C |
|00006cb0| 20 20 20 20 20 57 52 49 | 54 45 28 2a 2c 2a 29 20 | WRI|TE(*,*) |
|00006cc0| 52 4c 4b 57 0a 43 20 20 | 20 20 20 20 50 41 55 53 |RLKW.C | PAUS|
|00006cd0| 45 0a 43 0a 43 20 20 43 | 41 4c 43 55 4c 41 54 45 |E.C.C C|ALCULATE|
|00006ce0| 20 54 48 45 20 44 45 42 | 59 45 2d 48 55 43 4b 45 | THE DEB|YE-HUCKE|
|00006cf0| 4c 20 43 4f 4e 53 54 41 | 4e 54 0a 20 20 20 20 20 |L CONSTA|NT. |
|00006d00| 20 41 50 3d 28 4f 4e 45 | 2f 54 48 52 45 45 29 2a | AP=(ONE|/THREE)*|
|00006d10| 0a 20 20 20 20 20 26 44 | 53 51 52 54 28 54 57 4f |. &D|SQRT(TWO|
|00006d20| 2a 50 49 2a 41 56 4e 2a | 44 57 2f 54 48 4f 55 29 |*PI*AVN*|DW/THOU)|
|00006d30| 2a 28 45 2a 2a 32 2f 28 | 44 43 2a 42 4b 2a 54 29 |*(E**2/(|DC*BK*T)|
|00006d40| 29 2a 2a 28 54 48 52 45 | 45 2f 54 57 4f 29 0a 20 |)**(THRE|E/TWO). |
|00006d50| 20 20 20 20 20 41 46 54 | 3d 44 53 51 52 54 28 54 | AFT|=DSQRT(T|
|00006d60| 57 4f 2a 50 49 2a 41 56 | 4e 2f 54 48 4f 55 29 2a |WO*PI*AV|N/THOU)*|
|00006d70| 28 45 2a 2a 32 2f 42 4b | 29 2a 2a 28 54 48 52 45 |(E**2/BK|)**(THRE|
|00006d80| 45 2f 54 57 4f 29 0a 20 | 20 20 20 20 20 42 46 54 |E/TWO). | BFT|
|00006d90| 3d 44 53 51 52 54 28 45 | 49 47 48 54 2a 50 49 2a |=DSQRT(E|IGHT*PI*|
|00006da0| 41 56 4e 2a 45 2a 2a 32 | 2f 28 54 48 4f 55 2a 42 |AVN*E**2|/(THOU*B|
|00006db0| 4b 29 29 0a 20 20 20 20 | 20 20 51 46 54 3d 45 2a |K)). | QFT=E*|
|00006dc0| 2a 32 2f 28 54 57 4f 2a | 42 4b 29 0a 43 0a 43 20 |*2/(TWO*|BK).C.C |
|00006dd0| 20 20 20 20 20 57 52 49 | 54 45 28 39 2c 32 31 30 | WRI|TE(9,210|
|00006de0| 29 20 41 46 54 2c 42 46 | 54 2c 51 46 54 0a 43 32 |) AFT,BF|T,QFT.C2|
|00006df0| 31 30 20 20 46 4f 52 4d | 41 54 28 31 58 2c 27 20 |10 FORM|AT(1X,' |
|00006e00| 20 20 20 20 20 20 20 20 | 20 20 20 41 46 54 20 20 | | AFT |
|00006e10| 20 20 20 20 20 20 20 20 | 20 20 42 46 54 20 20 20 | | BFT |
|00006e20| 20 20 20 20 20 20 20 20 | 20 51 46 54 27 2f 0a 43 | | QFT'/.C|
|00006e30| 20 20 20 20 20 26 31 58 | 2c 31 50 33 45 31 35 2e | &1X|,1P3E15.|
|00006e40| 38 29 0a 43 0a 43 20 20 | 53 45 54 20 4c 45 4e 47 |8).C.C |SET LENG|
|00006e50| 54 48 20 4f 46 20 54 48 | 45 20 50 2c 20 44 50 2c |TH OF TH|E P, DP,|
|00006e60| 20 41 4e 44 20 4b 49 20 | 41 52 52 41 59 53 20 46 | AND KI |ARRAYS F|
|00006e70| 4f 52 20 41 44 4a 55 53 | 54 41 42 4c 45 20 50 41 |OR ADJUS|TABLE PA|
|00006e80| 52 41 4d 45 54 45 52 53 | 0a 20 20 20 20 20 20 4c |RAMETERS|. L|
|00006e90| 50 3d 4e 53 4f 2a 28 31 | 2b 4e 50 48 2b 4e 50 41 |P=NSO*(1|+NPH+NPA|
|00006ea0| 29 2b 32 2a 28 4e 50 48 | 2b 4e 50 41 29 2b 4e 53 |)+2*(NPH|+NPA)+NS|
|00006eb0| 41 2b 32 2b 4e 53 4f 2b | 34 2a 4e 43 41 2a 4e 41 |A+2+NSO+|4*NCA*NA|
|00006ec0| 4e 2b 0a 20 20 20 20 20 | 26 28 31 2b 4e 41 4e 29 |N+. |&(1+NAN)|
|00006ed0| 2a 28 4e 43 41 2a 28 4e | 43 41 2d 31 29 29 2f 32 |*(NCA*(N|CA-1))/2|
|00006ee0| 2b 28 31 2b 4e 43 41 29 | 2a 28 4e 41 4e 2a 28 4e |+(1+NCA)|*(NAN*(N|
|00006ef0| 41 4e 2d 31 29 29 2f 32 | 2b 4e 4e 55 2b 4e 4e 55 |AN-1))/2|+NNU+NNU|
|00006f00| 2a 4e 43 41 2b 0a 20 20 | 20 20 20 26 4e 4e 55 2a |*NCA+. | &NNU*|
|00006f10| 4e 41 4e 2b 28 4e 4e 55 | 2a 28 4e 4e 55 2b 31 29 |NAN+(NNU|*(NNU+1)|
|00006f20| 29 2f 32 2b 4e 55 50 0a | 43 0a 43 20 20 20 20 20 |)/2+NUP.|C.C |
|00006f30| 20 57 52 49 54 45 28 39 | 2c 32 32 30 29 20 4c 50 | WRITE(9|,220) LP|
|00006f40| 0a 43 32 32 30 20 20 20 | 46 4f 52 4d 41 54 28 31 |.C220 |FORMAT(1|
|00006f50| 58 2c 27 4c 45 4e 47 54 | 48 20 4f 46 20 50 20 41 |X,'LENGT|H OF P A|
|00006f60| 52 52 41 59 20 49 53 27 | 2c 49 34 29 0a 43 0a 43 |RRAY IS'|,I4).C.C|
|00006f70| 20 20 53 45 54 20 4c 45 | 4e 47 54 48 20 4f 46 20 | SET LE|NGTH OF |
|00006f80| 41 52 52 41 59 53 20 46 | 4f 52 20 44 45 46 49 4e |ARRAYS F|OR DEFIN|
|00006f90| 49 4e 47 20 53 50 45 43 | 49 45 53 0a 20 20 20 20 |ING SPEC|IES. |
|00006fa0| 20 20 4c 5a 41 3d 36 2b | 4e 53 41 0a 20 20 20 20 | LZA=6+|NSA. |
|00006fb0| 20 20 4c 43 4f 3d 38 2a | 4e 53 4f 0a 20 20 20 20 | LCO=8*|NSO. |
|00006fc0| 20 20 4c 43 41 3d 37 2a | 4e 53 41 0a 20 20 20 20 | LCA=7*|NSA. |
|00006fd0| 20 20 4c 52 4f 3d 38 2a | 4e 53 4f 0a 20 20 20 20 | LRO=8*|NSO. |
|00006fe0| 20 20 4c 52 41 3d 38 2a | 4e 53 41 0a 43 20 20 53 | LRA=8*|NSA.C S|
|00006ff0| 45 54 20 4c 45 4e 47 54 | 48 20 4f 46 20 41 52 52 |ET LENGT|H OF ARR|
|00007000| 41 59 53 20 44 45 46 49 | 4e 49 4e 47 20 43 4f 4d |AYS DEFI|NING COM|
|00007010| 42 49 4e 41 54 49 4f 4e | 20 52 45 41 43 54 49 4f |BINATION| REACTIO|
|00007020| 4e 53 0a 20 20 20 20 20 | 20 4c 43 4d 3d 4e 53 4f |NS. | LCM=NSO|
|00007030| 2a 28 4e 53 4f 2d 31 29 | 2f 32 0a 20 20 20 20 20 |*(NSO-1)|/2. |
|00007040| 20 4c 41 43 4d 3d 35 2a | 4c 43 4d 0a 20 20 20 20 | LACM=5*|LCM. |
|00007050| 20 20 4c 53 43 4d 3d 28 | 38 2b 4e 53 4f 29 2a 4c | LSCM=(|8+NSO)*L|
|00007060| 43 4d 0a 20 20 20 20 20 | 20 4c 41 53 43 4d 3d 35 |CM. | LASCM=5|
|00007070| 2a 4c 53 43 4d 0a 43 20 | 20 53 45 54 20 4c 45 4e |*LSCM.C | SET LEN|
|00007080| 47 54 48 20 4f 46 20 41 | 52 52 41 59 53 20 49 4e |GTH OF A|RRAYS IN|
|00007090| 56 4f 4c 56 49 4e 47 20 | 41 51 55 45 4f 55 53 20 |VOLVING |AQUEOUS |
|000070a0| 53 50 45 43 49 45 53 0a | 20 20 20 20 20 20 4c 49 |SPECIES.| LI|
|000070b0| 43 41 3d 4e 43 41 2a 4e | 41 4e 0a 20 20 20 20 20 |CA=NCA*N|AN. |
|000070c0| 20 4c 49 43 41 32 3d 32 | 2a 4c 49 43 41 0a 20 20 | LICA2=2|*LICA. |
|000070d0| 20 20 20 20 4c 49 43 43 | 3d 4e 43 41 2a 4e 43 41 | LICC|=NCA*NCA|
|000070e0| 0a 20 20 20 20 20 20 4c | 49 45 43 3d 4e 55 4d 2a |. L|IEC=NUM*|
|000070f0| 4c 49 43 43 0a 20 20 20 | 20 20 20 4c 49 41 41 3d |LICC. | LIAA=|
|00007100| 4e 41 4e 2a 4e 41 4e 0a | 20 20 20 20 20 20 4c 49 |NAN*NAN.| LI|
|00007110| 45 41 3d 4e 55 4d 2a 4c | 49 41 41 0a 20 20 20 20 |EA=NUM*L|IAA. |
|00007120| 20 20 4c 49 4e 43 3d 4e | 4e 55 2a 4e 43 41 0a 20 | LINC=N|NU*NCA. |
|00007130| 20 20 20 20 20 4c 49 4e | 41 3d 4e 4e 55 2a 4e 41 | LIN|A=NNU*NA|
|00007140| 4e 0a 20 20 20 20 20 20 | 4c 49 4e 4e 3d 4e 4e 55 |N. |LINN=NNU|
|00007150| 2a 4e 4e 55 0a 20 20 20 | 20 20 20 4c 49 43 43 41 |*NNU. | LICCA|
|00007160| 3d 4e 43 41 2a 4e 43 41 | 2a 4e 41 4e 0a 20 20 20 |=NCA*NCA|*NAN. |
|00007170| 20 20 20 4c 49 43 41 41 | 3d 4e 43 41 2a 4e 41 4e | LICAA|=NCA*NAN|
|00007180| 2a 4e 41 4e 0a 43 20 20 | 53 45 54 20 4c 45 4e 47 |*NAN.C |SET LENG|
|00007190| 54 48 20 4f 46 20 53 54 | 4f 52 41 47 45 20 46 4f |TH OF ST|ORAGE FO|
|000071a0| 52 20 44 41 54 41 20 52 | 45 4c 41 54 45 44 20 41 |R DATA R|ELATED A|
|000071b0| 52 52 41 59 53 0a 20 20 | 20 20 20 20 4c 58 3d 31 |RRAYS. | LX=1|
|000071c0| 30 2a 4e 4f 0a 20 20 20 | 20 20 20 4c 58 53 3d 31 |0*NO. | LXS=1|
|000071d0| 31 2a 4e 4f 0a 43 20 20 | 53 45 54 20 4c 45 4e 47 |1*NO.C |SET LENG|
|000071e0| 54 48 20 4f 46 20 56 41 | 52 49 4f 55 53 20 4f 54 |TH OF VA|RIOUS OT|
|000071f0| 48 45 52 20 41 52 52 41 | 59 53 0a 20 20 20 20 20 |HER ARRA|YS. |
|00007200| 20 4c 58 56 3d 38 2b 4e | 53 4f 0a 20 20 20 20 20 | LXV=8+N|SO. |
|00007210| 20 4c 58 43 3d 38 2b 4e | 53 4f 2b 4e 53 41 0a 20 | LXC=8+N|SO+NSA. |
|00007220| 20 20 20 20 20 4c 58 43 | 58 3d 4c 58 43 2b 33 0a | LXC|X=LXC+3.|
|00007230| 20 20 20 20 20 20 4c 58 | 58 3d 4c 58 43 2a 4c 58 | LX|X=LXC*LX|
|00007240| 43 58 0a 20 20 20 20 20 | 20 4c 58 43 53 3d 4c 58 |CX. | LXCS=LX|
|00007250| 43 2a 4e 4f 0a 20 20 20 | 20 20 20 4c 58 43 4f 53 |C*NO. | LXCOS|
|00007260| 3d 4c 58 43 2a 4e 4f 0a | 20 20 20 20 20 20 4c 58 |=LXC*NO.| LX|
|00007270| 43 41 53 3d 4c 5a 41 2a | 4e 4f 0a 20 20 20 20 20 |CAS=LZA*|NO. |
|00007280| 20 4c 47 4f 3d 32 2b 4e | 53 4f 0a 20 20 20 20 20 | LGO=2+N|SO. |
|00007290| 20 4c 57 41 3d 4c 58 43 | 2a 28 33 2a 4c 58 43 2b | LWA=LXC|*(3*LXC+|
|000072a0| 37 29 2f 32 0a 43 20 20 | 45 53 54 41 42 4c 49 53 |7)/2.C |ESTABLIS|
|000072b0| 48 20 4c 4f 43 41 54 49 | 4f 4e 53 20 49 4e 20 49 |H LOCATI|ONS IN I|
|000072c0| 4e 54 45 47 45 52 20 41 | 52 52 41 59 20 4e 0a 20 |NTEGER A|RRAY N. |
|000072d0| 20 20 20 20 20 49 53 49 | 5a 45 3d 31 0a 43 20 20 | ISI|ZE=1.C |
|000072e0| 20 54 48 45 20 49 4e 54 | 45 47 45 52 20 41 52 52 | THE INT|EGER ARR|
|000072f0| 41 59 53 20 44 45 46 49 | 4e 49 4e 47 20 53 50 45 |AYS DEFI|NING SPE|
|00007300| 43 49 45 53 0a 20 20 20 | 20 20 20 49 5a 41 3d 4e |CIES. | IZA=N|
|00007310| 53 49 5a 45 28 49 53 49 | 5a 45 2c 4c 5a 41 2c 4c |SIZE(ISI|ZE,LZA,L|
|00007320| 4d 37 29 0a 20 20 20 20 | 20 20 49 5a 4f 3d 4e 53 |M7). | IZO=NS|
|00007330| 49 5a 45 28 49 53 49 5a | 45 2c 4e 53 4f 2c 4c 4d |IZE(ISIZ|E,NSO,LM|
|00007340| 31 29 0a 20 20 20 20 20 | 20 49 43 4f 3d 4e 53 49 |1). | ICO=NSI|
|00007350| 5a 45 28 49 53 49 5a 45 | 2c 4c 43 4f 2c 4c 4d 38 |ZE(ISIZE|,LCO,LM8|
|00007360| 29 0a 20 20 20 20 20 20 | 49 43 41 3d 4e 53 49 5a |). |ICA=NSIZ|
|00007370| 45 28 49 53 49 5a 45 2c | 4c 43 41 2c 4c 4d 37 29 |E(ISIZE,|LCA,LM7)|
|00007380| 20 20 20 20 20 20 0a 43 | 20 20 20 54 48 45 20 49 | .C| THE I|
|00007390| 4e 54 45 47 45 52 20 41 | 52 52 41 59 20 44 45 53 |NTEGER A|RRAY DES|
|000073a0| 49 47 4e 41 54 49 4e 47 | 20 41 44 4a 55 53 54 41 |IGNATING| ADJUSTA|
|000073b0| 42 4c 45 20 50 41 52 41 | 4d 45 54 45 52 53 0a 20 |BLE PARA|METERS. |
|000073c0| 20 20 20 20 20 49 4b 49 | 3d 4e 53 49 5a 45 28 49 | IKI|=NSIZE(I|
|000073d0| 53 49 5a 45 2c 4c 50 2c | 4c 4d 31 29 0a 43 20 20 |SIZE,LP,|LM1).C |
|000073e0| 20 54 48 45 20 49 4e 54 | 45 47 45 52 20 41 52 52 | THE INT|EGER ARR|
|000073f0| 41 59 20 44 45 46 49 4e | 49 4e 47 20 44 41 54 41 |AY DEFIN|ING DATA|
|00007400| 20 54 59 50 45 0a 20 20 | 20 20 20 20 49 44 54 3d | TYPE. | IDT=|
|00007410| 4e 53 49 5a 45 28 49 53 | 49 5a 45 2c 4e 4f 2c 4c |NSIZE(IS|IZE,NO,L|
|00007420| 4d 31 29 0a 43 20 20 20 | 54 48 45 20 49 4e 54 45 |M1).C |THE INTE|
|00007430| 47 45 52 20 41 52 52 41 | 59 53 20 53 54 4f 52 49 |GER ARRA|YS STORI|
|00007440| 4e 47 20 54 48 45 20 49 | 4e 44 45 58 45 53 20 4f |NG THE I|NDEXES O|
|00007450| 46 20 53 50 45 43 49 45 | 20 43 4f 4e 43 4e 53 2e |F SPECIE| CONCNS.|
|00007460| 54 4f 20 42 45 20 43 41 | 4c 43 44 2e 0a 20 20 20 |TO BE CA|LCD.. |
|00007470| 20 20 20 49 4e 46 3d 4e | 53 49 5a 45 28 49 53 49 | INF=N|SIZE(ISI|
|00007480| 5a 45 2c 4c 58 43 2c 4c | 4d 31 29 0a 20 20 20 20 |ZE,LXC,L|M1). |
|00007490| 20 20 49 49 43 41 3d 4e | 53 49 5a 45 28 49 53 49 | IICA=N|SIZE(ISI|
|000074a0| 5a 45 2c 4e 43 41 2c 4c | 4d 31 29 0a 20 20 20 20 |ZE,NCA,L|M1). |
|000074b0| 20 20 49 49 41 4e 3d 4e | 53 49 5a 45 28 49 53 49 | IIAN=N|SIZE(ISI|
|000074c0| 5a 45 2c 4e 41 4e 2c 4c | 4d 31 29 0a 20 20 20 20 |ZE,NAN,L|M1). |
|000074d0| 20 20 49 49 4e 55 3d 4e | 53 49 5a 45 28 49 53 49 | IINU=N|SIZE(ISI|
|000074e0| 5a 45 2c 4e 4e 55 2c 4c | 4d 31 29 0a 43 20 20 20 |ZE,NNU,L|M1).C |
|000074f0| 54 48 45 20 49 4e 54 45 | 47 45 52 20 41 52 52 41 |THE INTE|GER ARRA|
|00007500| 59 20 49 4e 20 53 4d 50 | 4c 58 0a 20 20 20 20 20 |Y IN SMP|LX. |
|00007510| 20 49 4b 58 3d 4e 53 49 | 5a 45 28 49 53 49 5a 45 | IKX=NSI|ZE(ISIZE|
|00007520| 2c 4c 58 43 58 2c 4c 4d | 31 29 0a 43 20 20 20 41 |,LXCX,LM|1).C A|
|00007530| 4e 59 20 4f 54 48 45 52 | 20 49 4e 54 45 47 45 52 |NY OTHER| INTEGER|
|00007540| 20 41 52 52 41 59 53 0a | 20 20 20 20 20 20 49 4e | ARRAYS.| IN|
|00007550| 50 53 3d 4e 53 49 5a 45 | 28 49 53 49 5a 45 2c 4e |PS=NSIZE|(ISIZE,N|
|00007560| 53 4f 2c 4c 4d 31 29 0a | 20 20 20 20 20 20 4c 47 |SO,LM1).| LG|
|00007570| 4e 41 3d 49 53 49 5a 45 | 2d 31 0a 20 20 20 20 20 |NA=ISIZE|-1. |
|00007580| 20 57 52 49 54 45 28 39 | 2c 31 32 30 29 20 4c 47 | WRITE(9|,120) LG|
|00007590| 4e 2c 4c 47 4e 41 0a 31 | 32 30 20 20 20 46 4f 52 |N,LGNA.1|20 FOR|
|000075a0| 4d 41 54 28 2f 2f 31 58 | 2c 27 54 48 45 20 47 49 |MAT(//1X|,'THE GI|
|000075b0| 56 45 4e 20 4c 45 4e 47 | 54 48 20 4f 46 20 49 4e |VEN LENG|TH OF IN|
|000075c0| 54 45 47 45 52 20 41 52 | 52 41 59 20 4e 20 49 53 |TEGER AR|RAY N IS|
|000075d0| 27 2c 49 36 2f 0a 20 20 | 20 20 20 26 31 58 2c 27 |',I6/. | &1X,'|
|000075e0| 54 48 45 20 52 45 51 55 | 49 52 45 44 20 4c 45 4e |THE REQU|IRED LEN|
|000075f0| 47 54 48 20 49 53 20 4e | 4f 57 27 2c 49 31 30 2f |GTH IS N|OW',I10/|
|00007600| 2f 29 0a 20 20 20 20 20 | 20 49 46 28 4c 47 4e 41 |/). | IF(LGNA|
|00007610| 2e 47 54 2e 4c 47 4e 29 | 20 54 48 45 4e 0a 20 20 |.GT.LGN)| THEN. |
|00007620| 20 20 20 20 20 20 50 41 | 55 53 45 0a 20 20 20 20 | PA|USE. |
|00007630| 20 20 20 20 53 54 4f 50 | 0a 20 20 20 20 20 20 45 | STOP|. E|
|00007640| 4e 44 20 49 46 0a 43 20 | 20 45 53 54 41 42 4c 49 |ND IF.C | ESTABLI|
|00007650| 53 48 20 4c 4f 43 41 54 | 49 4f 4e 53 20 49 4e 20 |SH LOCAT|IONS IN |
|00007660| 4c 49 4e 45 41 52 20 41 | 52 52 41 59 20 53 0a 20 |LINEAR A|RRAY S. |
|00007670| 20 20 20 20 20 4a 53 49 | 5a 45 3d 31 0a 43 20 20 | JSI|ZE=1.C |
|00007680| 20 54 48 45 20 41 44 4a | 55 53 54 41 42 4c 45 20 | THE ADJ|USTABLE |
|00007690| 50 41 52 41 4d 45 54 45 | 52 20 41 52 52 41 59 20 |PARAMETE|R ARRAY |
|000076a0| 50 0a 20 20 20 20 20 20 | 4a 4c 50 3d 4e 53 49 5a |P. |JLP=NSIZ|
|000076b0| 45 28 4a 53 49 5a 45 2c | 4c 50 2c 4c 4d 31 29 0a |E(JSIZE,|LP,LM1).|
|000076c0| 43 20 20 20 50 41 52 41 | 4d 45 54 45 52 20 49 4e |C PARA|METER IN|
|000076d0| 43 52 45 4d 45 4e 54 53 | 20 54 48 41 54 20 57 49 |CREMENTS| THAT WI|
|000076e0| 4c 4c 20 46 4f 52 4d 20 | 41 52 52 41 59 20 44 50 |LL FORM |ARRAY DP|
|000076f0| 0a 20 20 20 20 20 20 4a | 44 50 3d 4e 53 49 5a 45 |. J|DP=NSIZE|
|00007700| 28 4a 53 49 5a 45 2c 4c | 50 2c 4c 4d 31 29 0a 43 |(JSIZE,L|P,LM1).C|
|00007710| 20 20 20 4d 4f 4c 45 43 | 55 4c 41 52 20 57 45 49 | MOLEC|ULAR WEI|
|00007720| 47 48 54 53 20 41 4e 44 | 20 4d 4f 4c 41 52 20 56 |GHTS AND| MOLAR V|
|00007730| 4f 4c 55 4d 45 53 20 4f | 46 20 53 50 45 43 49 45 |OLUMES O|F SPECIE|
|00007740| 53 0a 20 20 20 20 20 20 | 4a 4c 4d 57 3d 4e 53 49 |S. |JLMW=NSI|
|00007750| 5a 45 28 4a 53 49 5a 45 | 2c 4c 58 43 2c 4c 4d 31 |ZE(JSIZE|,LXC,LM1|
|00007760| 29 0a 20 20 20 20 20 20 | 4a 4c 4d 56 3d 4e 53 49 |). |JLMV=NSI|
|00007770| 5a 45 28 4a 53 49 5a 45 | 2c 4c 58 56 2c 4c 4d 31 |ZE(JSIZE|,LXV,LM1|
|00007780| 29 0a 43 20 20 20 54 48 | 45 20 4d 41 53 53 4f 4e |).C TH|E MASSON|
|00007790| 20 50 41 52 41 4d 45 54 | 45 52 53 20 46 4f 52 20 | PARAMET|ERS FOR |
|000077a0| 41 51 55 45 4f 55 53 20 | 53 50 45 43 49 45 53 0a |AQUEOUS |SPECIES.|
|000077b0| 20 20 20 20 20 20 4a 56 | 30 3d 4e 53 49 5a 45 28 | JV|0=NSIZE(|
|000077c0| 4a 53 49 5a 45 2c 4c 5a | 41 2c 4c 4d 31 29 0a 20 |JSIZE,LZ|A,LM1). |
|000077d0| 20 20 20 20 20 4a 53 56 | 3d 4e 53 49 5a 45 28 4a | JSV|=NSIZE(J|
|000077e0| 53 49 5a 45 2c 4c 5a 41 | 2c 4c 4d 31 29 0a 43 20 |SIZE,LZA|,LM1).C |
|000077f0| 20 20 43 4f 45 46 46 49 | 43 49 45 4e 54 53 20 52 | COEFFI|CIENTS R|
|00007800| 45 4c 41 54 45 44 20 54 | 4f 20 50 52 4f 44 55 43 |ELATED T|O PRODUC|
|00007810| 54 20 53 50 45 43 49 45 | 53 0a 20 20 20 20 20 20 |T SPECIE|S. |
|00007820| 4a 52 4f 43 3d 4e 53 49 | 5a 45 28 4a 53 49 5a 45 |JROC=NSI|ZE(JSIZE|
|00007830| 2c 4c 52 4f 2c 4c 4d 38 | 29 0a 20 20 20 20 20 20 |,LRO,LM8|). |
|00007840| 4a 52 41 43 3d 4e 53 49 | 5a 45 28 4a 53 49 5a 45 |JRAC=NSI|ZE(JSIZE|
|00007850| 2c 4c 52 41 2c 4c 4d 38 | 29 0a 20 20 20 20 20 20 |,LRA,LM8|). |
|00007860| 4a 45 4f 43 3d 4e 53 49 | 5a 45 28 4a 53 49 5a 45 |JEOC=NSI|ZE(JSIZE|
|00007870| 2c 4c 52 4f 2c 4c 4d 38 | 29 0a 20 20 20 20 20 20 |,LRO,LM8|). |
|00007880| 4a 45 41 43 3d 4e 53 49 | 5a 45 28 4a 53 49 5a 45 |JEAC=NSI|ZE(JSIZE|
|00007890| 2c 4c 52 41 2c 4c 4d 38 | 29 0a 20 20 20 20 20 20 |,LRA,LM8|). |
|000078a0| 4a 46 4f 43 3d 4e 53 49 | 5a 45 28 4a 53 49 5a 45 |JFOC=NSI|ZE(JSIZE|
|000078b0| 2c 4c 52 4f 2c 4c 4d 38 | 29 0a 20 20 20 20 20 20 |,LRO,LM8|). |
|000078c0| 4a 46 41 43 3d 4e 53 49 | 5a 45 28 4a 53 49 5a 45 |JFAC=NSI|ZE(JSIZE|
|000078d0| 2c 4c 52 41 2c 4c 4d 38 | 29 0a 20 20 20 20 20 20 |,LRA,LM8|). |
|000078e0| 4a 46 4f 4b 3d 4e 53 49 | 5a 45 28 4a 53 49 5a 45 |JFOK=NSI|ZE(JSIZE|
|000078f0| 2c 4e 53 4f 2c 4c 4d 31 | 29 0a 20 20 20 20 20 20 |,NSO,LM1|). |
|00007900| 4a 46 41 4b 3d 4e 53 49 | 5a 45 28 4a 53 49 5a 45 |JFAK=NSI|ZE(JSIZE|
|00007910| 2c 4e 53 41 2c 4c 4d 31 | 29 0a 43 20 20 20 43 4f |,NSA,LM1|).C CO|
|00007920| 4e 43 45 4e 54 52 41 54 | 49 4f 4e 53 2c 20 41 43 |NCENTRAT|IONS, AC|
|00007930| 54 49 56 49 54 59 20 43 | 4f 45 46 46 49 43 49 45 |TIVITY C|OEFFICIE|
|00007940| 4e 54 53 2c 20 53 4f 4c | 55 42 49 4c 49 54 59 20 |NTS, SOL|UBILITY |
|00007950| 50 41 52 41 4d 45 54 45 | 52 53 0a 20 20 20 20 20 |PARAMETE|RS. |
|00007960| 20 4a 43 41 3d 4e 53 49 | 5a 45 28 4a 53 49 5a 45 | JCA=NSI|ZE(JSIZE|
|00007970| 2c 4e 53 41 2c 4c 4d 31 | 29 0a 20 20 20 20 20 20 |,NSA,LM1|). |
|00007980| 4a 43 4f 3d 4e 53 49 5a | 45 28 4a 53 49 5a 45 2c |JCO=NSIZ|E(JSIZE,|
|00007990| 4e 53 4f 2c 4c 4d 31 29 | 0a 20 20 20 20 20 20 4a |NSO,LM1)|. J|
|000079a0| 41 4d 3d 4e 53 49 5a 45 | 28 4a 53 49 5a 45 2c 4e |AM=NSIZE|(JSIZE,N|
|000079b0| 41 4e 2c 4c 4d 31 29 0a | 20 20 20 20 20 20 4a 42 |AN,LM1).| JB|
|000079c0| 4d 3d 4e 53 49 5a 45 28 | 4a 53 49 5a 45 2c 4e 4e |M=NSIZE(|JSIZE,NN|
|000079d0| 55 2c 4c 4d 31 29 0a 20 | 20 20 20 20 20 4a 43 4d |U,LM1). | JCM|
|000079e0| 3d 4e 53 49 5a 45 28 4a | 53 49 5a 45 2c 4e 43 41 |=NSIZE(J|SIZE,NCA|
|000079f0| 2c 4c 4d 31 29 0a 20 20 | 20 20 20 20 4a 4c 47 3d |,LM1). | JLG=|
|00007a00| 4e 53 49 5a 45 28 4a 53 | 49 5a 45 2c 4c 58 43 2c |NSIZE(JS|IZE,LXC,|
|00007a10| 4c 4d 31 29 0a 20 20 20 | 20 20 20 4a 4c 47 4f 3d |LM1). | JLGO=|
|00007a20| 4e 53 49 5a 45 28 4a 53 | 49 5a 45 2c 4c 47 4f 2c |NSIZE(JS|IZE,LGO,|
|00007a30| 4c 4d 31 29 0a 20 20 20 | 20 20 20 4a 47 58 30 3d |LM1). | JGX0=|
|00007a40| 4e 53 49 5a 45 28 4a 53 | 49 5a 45 2c 4c 47 4f 2c |NSIZE(JS|IZE,LGO,|
|00007a50| 4c 4d 31 29 0a 20 20 20 | 20 20 20 4a 56 52 54 3d |LM1). | JVRT=|
|00007a60| 4e 53 49 5a 45 28 4a 53 | 49 5a 45 2c 4c 47 4f 2c |NSIZE(JS|IZE,LGO,|
|00007a70| 4c 4d 31 29 0a 20 20 20 | 20 20 20 4a 50 48 3d 4e |LM1). | JPH=N|
|00007a80| 53 49 5a 45 28 4a 53 49 | 5a 45 2c 4c 47 4f 2c 4c |SIZE(JSI|ZE,LGO,L|
|00007a90| 4d 31 29 0a 20 20 20 20 | 20 20 4a 50 48 56 3d 4e |M1). | JPHV=N|
|00007aa0| 53 49 5a 45 28 4a 53 49 | 5a 45 2c 4c 47 4f 2c 4c |SIZE(JSI|ZE,LGO,L|
|00007ab0| 4d 31 29 0a 20 20 20 20 | 20 20 4a 58 46 3d 4e 53 |M1). | JXF=NS|
|00007ac0| 49 5a 45 28 4a 53 49 5a | 45 2c 4c 47 4f 2c 4c 4d |IZE(JSIZ|E,LGO,LM|
|00007ad0| 31 29 0a 20 20 20 20 20 | 20 4a 47 58 53 3d 4e 53 |1). | JGXS=NS|
|00007ae0| 49 5a 45 28 4a 53 49 5a | 45 2c 4c 47 4f 2c 4c 4d |IZE(JSIZ|E,LGO,LM|
|00007af0| 31 29 0a 20 20 20 20 20 | 20 4a 41 43 53 3d 4e 53 |1). | JACS=NS|
|00007b00| 49 5a 45 28 4a 53 49 5a | 45 2c 4c 47 4f 2c 4c 4d |IZE(JSIZ|E,LGO,LM|
|00007b10| 31 29 0a 43 20 20 20 43 | 4f 4e 53 54 41 4e 54 53 |1).C C|ONSTANTS|
|00007b20| 20 41 4e 44 20 45 58 50 | 4f 4e 45 4e 54 53 20 52 | AND EXP|ONENTS R|
|00007b30| 45 4c 41 54 45 44 20 54 | 4f 20 43 4f 4d 42 49 4e |ELATED T|O COMBIN|
|00007b40| 41 54 49 4f 4e 20 52 45 | 41 43 54 49 4f 4e 53 0a |ATION RE|ACTIONS.|
|00007b50| 20 20 20 20 20 20 4a 43 | 45 4f 3d 4e 53 49 5a 45 | JC|EO=NSIZE|
|00007b60| 28 4a 53 49 5a 45 2c 4c | 52 4f 2c 4c 4d 31 29 0a |(JSIZE,L|RO,LM1).|
|00007b70| 20 20 20 20 20 20 4a 53 | 45 4f 3d 4e 53 49 5a 45 | JS|EO=NSIZE|
|00007b80| 28 4a 53 49 5a 45 2c 4c | 53 43 4d 2c 4c 4d 31 29 |(JSIZE,L|SCM,LM1)|
|00007b90| 0a 20 20 20 20 20 20 4a | 53 46 4f 3d 4e 53 49 5a |. J|SFO=NSIZ|
|00007ba0| 45 28 4a 53 49 5a 45 2c | 4c 43 4d 2c 4c 4d 31 29 |E(JSIZE,|LCM,LM1)|
|00007bb0| 0a 20 20 20 20 20 20 4a | 52 46 4f 3d 4e 53 49 5a |. J|RFO=NSIZ|
|00007bc0| 45 28 4a 53 49 5a 45 2c | 4c 41 43 4d 2c 4c 4d 31 |E(JSIZE,|LACM,LM1|
|00007bd0| 29 0a 20 20 20 20 20 20 | 4a 52 45 4f 3d 4e 53 49 |). |JREO=NSI|
|00007be0| 5a 45 28 4a 53 49 5a 45 | 2c 4c 41 53 43 4d 2c 4c |ZE(JSIZE|,LASCM,L|
|00007bf0| 4d 31 29 0a 43 20 20 20 | 50 49 54 5a 45 52 20 49 |M1).C |PITZER I|
|00007c00| 4e 54 45 52 41 43 54 49 | 4f 4e 20 43 4f 45 46 53 |NTERACTI|ON COEFS|
|00007c10| 2e 20 41 4e 44 20 52 45 | 41 43 54 41 4e 54 20 41 |. AND RE|ACTANT A|
|00007c20| 52 52 41 59 53 0a 20 20 | 20 20 20 20 4a 42 30 3d |RRAYS. | JB0=|
|00007c30| 4e 53 49 5a 45 28 4a 53 | 49 5a 45 2c 4c 49 43 41 |NSIZE(JS|IZE,LICA|
|00007c40| 2c 4c 4d 31 29 0a 20 20 | 20 20 20 20 4a 42 31 3d |,LM1). | JB1=|
|00007c50| 4e 53 49 5a 45 28 4a 53 | 49 5a 45 2c 4c 49 43 41 |NSIZE(JS|IZE,LICA|
|00007c60| 2c 4c 4d 31 29 0a 20 20 | 20 20 20 20 4a 42 32 3d |,LM1). | JB2=|
|00007c70| 4e 53 49 5a 45 28 4a 53 | 49 5a 45 2c 4c 49 43 41 |NSIZE(JS|IZE,LICA|
|00007c80| 2c 4c 4d 31 29 0a 20 20 | 20 20 20 20 4a 42 50 3d |,LM1). | JBP=|
|00007c90| 4e 53 49 5a 45 28 4a 53 | 49 5a 45 2c 4c 49 43 41 |NSIZE(JS|IZE,LICA|
|00007ca0| 2c 4c 4d 31 29 0a 20 20 | 20 20 20 20 4a 42 47 3d |,LM1). | JBG=|
|00007cb0| 4e 53 49 5a 45 28 4a 53 | 49 5a 45 2c 4c 49 43 41 |NSIZE(JS|IZE,LICA|
|00007cc0| 2c 4c 4d 31 29 0a 20 20 | 20 20 20 20 4a 42 47 50 |,LM1). | JBGP|
|00007cd0| 3d 4e 53 49 5a 45 28 4a | 53 49 5a 45 2c 4c 49 43 |=NSIZE(J|SIZE,LIC|
|00007ce0| 41 2c 4c 4d 31 29 0a 20 | 20 20 20 20 20 4a 41 4c |A,LM1). | JAL|
|00007cf0| 50 3d 4e 53 49 5a 45 28 | 4a 53 49 5a 45 2c 4c 49 |P=NSIZE(|JSIZE,LI|
|00007d00| 43 41 32 2c 4c 4d 31 29 | 0a 20 20 20 20 20 20 4a |CA2,LM1)|. J|
|00007d10| 43 41 4d 3d 4e 53 49 5a | 45 28 4a 53 49 5a 45 2c |CAM=NSIZ|E(JSIZE,|
|00007d20| 4e 41 4e 2c 4c 4d 31 29 | 0a 20 20 20 20 20 20 4a |NAN,LM1)|. J|
|00007d30| 43 42 4d 3d 4e 53 49 5a | 45 28 4a 53 49 5a 45 2c |CBM=NSIZ|E(JSIZE,|
|00007d40| 4e 4e 55 2c 4c 4d 31 29 | 0a 20 20 20 20 20 20 4a |NNU,LM1)|. J|
|00007d50| 43 43 4d 3d 4e 53 49 5a | 45 28 4a 53 49 5a 45 2c |CCM=NSIZ|E(JSIZE,|
|00007d60| 4e 43 41 2c 4c 4d 31 29 | 0a 20 20 20 20 20 20 4a |NCA,LM1)|. J|
|00007d70| 43 41 4d 3d 4e 53 49 5a | 45 28 4a 53 49 5a 45 2c |CAM=NSIZ|E(JSIZE,|
|00007d80| 4e 41 4e 2c 4c 4d 31 29 | 0a 20 20 20 20 20 20 4a |NAN,LM1)|. J|
|00007d90| 43 47 3d 4e 53 49 5a 45 | 28 4a 53 49 5a 45 2c 4c |CG=NSIZE|(JSIZE,L|
|00007da0| 49 43 41 2c 4c 4d 31 29 | 0a 20 20 20 20 20 20 4a |ICA,LM1)|. J|
|00007db0| 43 50 3d 4e 53 49 5a 45 | 28 4a 53 49 5a 45 2c 4c |CP=NSIZE|(JSIZE,L|
|00007dc0| 49 43 41 2c 4c 4d 31 29 | 0a 20 20 20 20 20 20 4a |ICA,LM1)|. J|
|00007dd0| 50 43 43 3d 4e 53 49 5a | 45 28 4a 53 49 5a 45 2c |PCC=NSIZ|E(JSIZE,|
|00007de0| 4c 49 43 43 2c 4c 4d 31 | 29 0a 20 20 20 20 20 20 |LICC,LM1|). |
|00007df0| 4a 45 43 3d 4e 53 49 5a | 45 28 4a 53 49 5a 45 2c |JEC=NSIZ|E(JSIZE,|
|00007e00| 4c 49 45 43 2c 4c 4d 31 | 29 0a 20 20 20 20 20 20 |LIEC,LM1|). |
|00007e10| 4a 45 43 50 3d 4e 53 49 | 5a 45 28 4a 53 49 5a 45 |JECP=NSI|ZE(JSIZE|
|00007e20| 2c 4c 49 45 43 2c 4c 4d | 31 29 0a 20 20 20 20 20 |,LIEC,LM|1). |
|00007e30| 20 4a 44 43 41 3d 4e 53 | 49 5a 45 28 4a 53 49 5a | JDCA=NS|IZE(JSIZ|
|00007e40| 45 2c 4e 4e 55 2c 4c 4d | 31 29 0a 20 20 20 20 20 |E,NNU,LM|1). |
|00007e50| 20 4a 50 41 41 3d 4e 53 | 49 5a 45 28 4a 53 49 5a | JPAA=NS|IZE(JSIZ|
|00007e60| 45 2c 4c 49 41 41 2c 4c | 4d 31 29 0a 20 20 20 20 |E,LIAA,L|M1). |
|00007e70| 20 20 4a 45 41 3d 4e 53 | 49 5a 45 28 4a 53 49 5a | JEA=NS|IZE(JSIZ|
|00007e80| 45 2c 4c 49 45 41 2c 4c | 4d 31 29 0a 20 20 20 20 |E,LIEA,L|M1). |
|00007e90| 20 20 4a 45 41 50 3d 4e | 53 49 5a 45 28 4a 53 49 | JEAP=N|SIZE(JSI|
|00007ea0| 5a 45 2c 4c 49 45 41 2c | 4c 4d 31 29 0a 20 20 20 |ZE,LIEA,|LM1). |
|00007eb0| 20 20 20 4a 50 43 41 41 | 3d 4e 53 49 5a 45 28 4a | JPCAA|=NSIZE(J|
|00007ec0| 53 49 5a 45 2c 4c 49 43 | 41 41 2c 4c 4d 31 29 0a |SIZE,LIC|AA,LM1).|
|00007ed0| 20 20 20 20 20 20 4a 50 | 43 43 41 3d 4e 53 49 5a | JP|CCA=NSIZ|
|00007ee0| 45 28 4a 53 49 5a 45 2c | 4c 49 43 43 41 2c 4c 4d |E(JSIZE,|LICCA,LM|
|00007ef0| 31 29 0a 20 20 20 20 20 | 20 4a 50 4e 41 3d 4e 53 |1). | JPNA=NS|
|00007f00| 49 5a 45 28 4a 53 49 5a | 45 2c 4c 49 4e 41 2c 4c |IZE(JSIZ|E,LINA,L|
|00007f10| 4d 31 29 0a 20 20 20 20 | 20 20 4a 50 4e 43 3d 4e |M1). | JPNC=N|
|00007f20| 53 49 5a 45 28 4a 53 49 | 5a 45 2c 4c 49 4e 43 2c |SIZE(JSI|ZE,LINC,|
|00007f30| 4c 4d 31 29 0a 20 20 20 | 20 20 20 4a 50 4e 4e 3d |LM1). | JPNN=|
|00007f40| 4e 53 49 5a 45 28 4a 53 | 49 5a 45 2c 4c 49 4e 4e |NSIZE(JS|IZE,LINN|
|00007f50| 2c 4c 4d 31 29 0a 20 20 | 20 20 20 20 4a 5a 41 3d |,LM1). | JZA=|
|00007f60| 4e 53 49 5a 45 28 4a 53 | 49 5a 45 2c 4e 41 4e 2c |NSIZE(JS|IZE,NAN,|
|00007f70| 4c 4d 31 29 0a 20 20 20 | 20 20 20 4a 5a 43 3d 4e |LM1). | JZC=N|
|00007f80| 53 49 5a 45 28 4a 53 49 | 5a 45 2c 4e 43 41 2c 4c |SIZE(JSI|ZE,NCA,L|
|00007f90| 4d 31 29 0a 20 20 20 20 | 20 20 4a 5a 46 41 3d 4e |M1). | JZFA=N|
|00007fa0| 53 49 5a 45 28 4a 53 49 | 5a 45 2c 4e 41 4e 2c 4c |SIZE(JSI|ZE,NAN,L|
|00007fb0| 4d 31 29 0a 20 20 20 20 | 20 20 4a 5a 46 43 3d 4e |M1). | JZFC=N|
|00007fc0| 53 49 5a 45 28 4a 53 49 | 5a 45 2c 4e 43 41 2c 4c |SIZE(JSI|ZE,NCA,L|
|00007fd0| 4d 31 29 0a 43 20 20 20 | 44 41 54 41 2d 52 45 4c |M1).C |DATA-REL|
|00007fe0| 41 54 45 44 20 56 41 4c | 55 45 53 0a 20 20 20 20 |ATED VAL|UES. |
|00007ff0| 20 20 4a 4c 59 3d 4e 53 | 49 5a 45 28 4a 53 49 5a | JLY=NS|IZE(JSIZ|
|00008000| 45 2c 4e 4f 2c 4c 4d 31 | 29 20 20 20 20 20 20 0a |E,NO,LM1|) .|
|00008010| 20 20 20 20 20 20 4a 4c | 53 3d 4e 53 49 5a 45 28 | JL|S=NSIZE(|
|00008020| 4a 53 49 5a 45 2c 4e 4f | 2c 4c 4d 31 29 20 20 20 |JSIZE,NO|,LM1) |
|00008030| 20 20 20 0a 20 20 20 20 | 20 20 4a 4c 58 3d 4e 53 | . | JLX=NS|
|00008040| 49 5a 45 28 4a 53 49 5a | 45 2c 4c 58 2c 4c 4d 31 |IZE(JSIZ|E,LX,LM1|
|00008050| 29 0a 20 20 20 20 20 20 | 4a 4c 58 53 3d 4e 53 49 |). |JLXS=NSI|
|00008060| 5a 45 28 4a 53 49 5a 45 | 2c 4c 58 53 2c 4c 4d 31 |ZE(JSIZE|,LXS,LM1|
|00008070| 29 20 20 20 20 20 20 0a | 43 20 20 20 53 54 4f 52 |) .|C STOR|
|00008080| 41 47 45 20 41 52 52 41 | 59 20 46 4f 52 20 45 51 |AGE ARRA|Y FOR EQ|
|00008090| 55 49 4c 49 42 52 49 55 | 4d 20 43 4f 4e 43 45 4e |UILIBRIU|M CONCEN|
|000080a0| 54 52 41 54 49 4f 4e 53 | 20 20 20 20 20 20 0a 20 |TRATIONS| . |
|000080b0| 20 20 20 20 20 4a 4c 58 | 43 3d 4e 53 49 5a 45 28 | JLX|C=NSIZE(|
|000080c0| 4a 53 49 5a 45 2c 4c 58 | 43 2c 4c 4d 31 29 0a 20 |JSIZE,LX|C,LM1). |
|000080d0| 20 20 20 20 20 4a 4c 43 | 53 3d 4e 53 49 5a 45 28 | JLC|S=NSIZE(|
|000080e0| 4a 53 49 5a 45 2c 4c 58 | 43 2c 4c 4d 31 29 20 20 |JSIZE,LX|C,LM1) |
|000080f0| 20 20 20 20 0a 20 20 20 | 20 20 20 4a 4c 58 43 53 | . | JLXCS|
|00008100| 3d 4e 53 49 5a 45 28 4a | 53 49 5a 45 2c 4c 58 43 |=NSIZE(J|SIZE,LXC|
|00008110| 53 2c 4c 4d 31 29 20 20 | 20 20 20 20 0a 20 20 20 |S,LM1) | . |
|00008120| 20 20 20 4a 4c 58 43 41 | 53 3d 4e 53 49 5a 45 28 | JLXCA|S=NSIZE(|
|00008130| 4a 53 49 5a 45 2c 4c 58 | 43 41 53 2c 4c 4d 31 29 |JSIZE,LX|CAS,LM1)|
|00008140| 20 20 20 20 20 20 0a 20 | 20 20 20 20 20 4a 4c 58 | . | JLX|
|00008150| 43 4f 53 3d 4e 53 49 5a | 45 28 4a 53 49 5a 45 2c |COS=NSIZ|E(JSIZE,|
|00008160| 4c 58 43 4f 53 2c 4c 4d | 31 29 20 20 20 20 20 20 |LXCOS,LM|1) |
|00008170| 0a 20 20 20 20 20 20 4a | 4c 58 43 4c 3d 4e 53 49 |. J|LXCL=NSI|
|00008180| 5a 45 28 4a 53 49 5a 45 | 2c 4c 58 43 2c 4c 4d 31 |ZE(JSIZE|,LXC,LM1|
|00008190| 29 20 20 20 20 20 20 0a | 20 20 20 20 20 20 4a 4c |) .| JL|
|000081a0| 46 43 4c 3d 4e 53 49 5a | 45 28 4a 53 49 5a 45 2c |FCL=NSIZ|E(JSIZE,|
|000081b0| 4c 58 43 2c 4c 4d 31 29 | 0a 43 20 20 20 41 52 52 |LXC,LM1)|.C ARR|
|000081c0| 41 59 53 20 55 53 45 44 | 20 49 4e 20 43 41 4c 43 |AYS USED| IN CALC|
|000081d0| 55 4c 41 54 49 4f 4e 20 | 4f 46 20 43 4f 4e 43 45 |ULATION |OF CONCE|
|000081e0| 4e 54 52 41 54 49 4f 4e | 53 0a 20 20 20 20 20 20 |NTRATION|S. |
|000081f0| 4a 4c 45 58 3d 4e 53 49 | 5a 45 28 4a 53 49 5a 45 |JLEX=NSI|ZE(JSIZE|
|00008200| 2c 4c 58 43 2c 4c 4d 38 | 29 0a 20 20 20 20 20 20 |,LXC,LM8|). |
|00008210| 4a 4c 57 41 3d 4e 53 49 | 5a 45 28 4a 53 49 5a 45 |JLWA=NSI|ZE(JSIZE|
|00008220| 2c 4c 57 41 2c 4c 4d 31 | 29 0a 20 20 20 20 20 20 |,LWA,LM1|). |
|00008230| 4a 4c 45 50 3d 4e 53 49 | 5a 45 28 4a 53 49 5a 45 |JLEP=NSI|ZE(JSIZE|
|00008240| 2c 4c 58 43 2c 4c 4d 31 | 29 0a 20 20 20 20 20 20 |,LXC,LM1|). |
|00008250| 4a 4c 46 58 3d 4e 53 49 | 5a 45 28 4a 53 49 5a 45 |JLFX=NSI|ZE(JSIZE|
|00008260| 2c 4c 58 43 58 2c 4c 4d | 31 29 0a 20 20 20 20 20 |,LXCX,LM|1). |
|00008270| 20 4a 4c 50 42 3d 4e 53 | 49 5a 45 28 4a 53 49 5a | JLPB=NS|IZE(JSIZ|
|00008280| 45 2c 4c 58 43 2c 4c 4d | 31 29 0a 20 20 20 20 20 |E,LXC,LM|1). |
|00008290| 20 4a 4c 50 54 3d 4e 53 | 49 5a 45 28 4a 53 49 5a | JLPT=NS|IZE(JSIZ|
|000082a0| 45 2c 4c 58 58 2c 4c 4d | 31 29 0a 20 20 20 20 20 |E,LXX,LM|1). |
|000082b0| 20 4a 52 5a 49 3d 4e 53 | 49 5a 45 28 4a 53 49 5a | JRZI=NS|IZE(JSIZ|
|000082c0| 45 2c 4e 53 4f 2c 4c 4d | 31 29 0a 20 20 20 20 20 |E,NSO,LM|1). |
|000082d0| 20 4a 53 43 50 3d 4e 53 | 49 5a 45 28 4a 53 49 5a | JSCP=NS|IZE(JSIZ|
|000082e0| 45 2c 4e 53 4f 2c 4c 4d | 31 29 0a 20 20 20 20 20 |E,NSO,LM|1). |
|000082f0| 20 4c 47 53 41 3d 4a 53 | 49 5a 45 2d 31 0a 20 20 | LGSA=JS|IZE-1. |
|00008300| 20 20 20 20 57 52 49 54 | 45 28 39 2c 31 33 30 29 | WRIT|E(9,130)|
|00008310| 20 4c 47 53 2c 4c 47 53 | 41 0a 31 33 30 20 20 20 | LGS,LGS|A.130 |
|00008320| 46 4f 52 4d 41 54 28 2f | 2f 31 58 2c 27 54 48 45 |FORMAT(/|/1X,'THE|
|00008330| 20 47 49 56 45 4e 20 4c | 45 4e 47 54 48 20 4f 46 | GIVEN L|ENGTH OF|
|00008340| 20 50 41 52 41 4d 45 54 | 45 52 20 41 52 52 41 59 | PARAMET|ER ARRAY|
|00008350| 20 53 20 49 53 27 2c 49 | 36 2f 0a 20 20 20 20 20 | S IS',I|6/. |
|00008360| 26 31 58 2c 27 54 48 45 | 20 52 45 51 55 49 52 45 |&1X,'THE| REQUIRE|
|00008370| 44 20 4c 45 4e 47 54 48 | 20 49 53 20 4e 4f 57 27 |D LENGTH| IS NOW'|
|00008380| 2c 49 36 2f 2f 29 0a 20 | 20 20 20 20 20 49 46 28 |,I6//). | IF(|
|00008390| 4c 47 53 41 2e 47 54 2e | 4c 47 53 29 20 54 48 45 |LGSA.GT.|LGS) THE|
|000083a0| 4e 0a 20 20 20 20 20 20 | 20 20 50 41 55 53 45 0a |N. | PAUSE.|
|000083b0| 20 20 20 20 20 20 20 20 | 53 54 4f 50 0a 20 20 20 | |STOP. |
|000083c0| 20 20 20 45 4e 44 20 49 | 46 0a 43 20 20 52 45 41 | END I|F.C REA|
|000083d0| 44 20 4d 4f 44 45 4c 20 | 50 41 52 41 4d 45 54 45 |D MODEL |PARAMETE|
|000083e0| 52 53 0a 20 20 20 20 20 | 20 43 41 4c 4c 20 52 45 |RS. | CALL RE|
|000083f0| 41 44 50 52 0a 20 20 20 | 20 20 26 28 53 28 4a 4c |ADPR. | &(S(JL|
|00008400| 50 29 2c 53 28 4a 44 50 | 29 2c 53 28 4a 41 4c 50 |P),S(JDP|),S(JALP|
|00008410| 29 2c 53 28 4a 4c 4d 57 | 29 2c 53 28 4a 4c 4d 56 |),S(JLMW|),S(JLMV|
|00008420| 29 2c 53 28 4a 56 30 29 | 2c 53 28 4a 53 56 29 2c |),S(JV0)|,S(JSV),|
|00008430| 20 20 20 20 20 20 0a 20 | 20 20 20 20 26 4e 28 49 | . | &N(I|
|00008440| 5a 41 29 2c 4e 28 49 5a | 4f 29 2c 4e 28 49 43 4f |ZA),N(IZ|O),N(ICO|
|00008450| 29 2c 4e 28 49 43 41 29 | 2c 4e 28 49 4b 49 29 29 |),N(ICA)|,N(IKI))|
|00008460| 0a 43 20 20 52 45 41 44 | 20 44 41 54 41 0a 20 20 |.C READ| DATA. |
|00008470| 20 20 20 20 43 41 4c 4c | 20 52 45 41 44 41 54 0a | CALL| READAT.|
|00008480| 20 20 20 20 20 26 28 53 | 28 4a 4c 4d 57 29 2c 53 | &(S|(JLMW),S|
|00008490| 28 4a 4c 4d 56 29 2c 53 | 28 4a 56 30 29 2c 53 28 |(JLMV),S|(JV0),S(|
|000084a0| 4a 53 56 29 2c 53 28 4a | 4c 59 29 2c 53 28 4a 4c |JSV),S(J|LY),S(JL|
|000084b0| 53 29 2c 53 28 4a 4c 58 | 29 2c 0a 20 20 20 20 20 |S),S(JLX|),. |
|000084c0| 26 4e 28 49 44 54 29 2c | 4e 28 49 5a 41 29 2c 4e |&N(IDT),|N(IZA),N|
|000084d0| 28 49 43 41 29 29 0a 43 | 20 20 20 43 41 4c 43 55 |(ICA)).C| CALCU|
|000084e0| 4c 41 54 45 20 4d 2e 57 | 2e 20 41 4e 44 20 4d 2e |LATE M.W|. AND M.|
|000084f0| 56 2e 20 4f 46 20 53 50 | 45 43 49 45 53 0a 20 20 |V. OF SP|ECIES. |
|00008500| 20 20 20 20 43 41 4c 4c | 20 43 41 4d 57 56 4c 0a | CALL| CAMWVL.|
|00008510| 20 20 20 20 20 26 28 53 | 28 4a 4c 4d 57 29 2c 53 | &(S|(JLMW),S|
|00008520| 28 4a 4c 4d 56 29 2c 4e | 28 49 5a 41 29 2c 4e 28 |(JLMV),N|(IZA),N(|
|00008530| 49 43 4f 29 2c 4e 28 49 | 43 41 29 29 0a 43 20 20 |ICO),N(I|CA)).C |
|00008540| 20 43 4f 55 4e 54 20 50 | 41 52 41 4d 45 54 45 52 | COUNT P|ARAMETER|
|00008550| 53 20 54 4f 20 42 45 20 | 56 41 52 49 45 44 0a 20 |S TO BE |VARIED. |
|00008560| 20 20 20 20 20 4e 56 50 | 3d 30 0a 20 20 20 20 20 | NVP|=0. |
|00008570| 20 4b 4d 58 3d 30 0a 20 | 20 20 20 20 20 4a 3d 49 | KMX=0. | J=I|
|00008580| 4b 49 2d 31 0a 20 20 20 | 20 20 20 44 4f 20 31 30 |KI-1. | DO 10|
|00008590| 20 49 3d 31 2c 4c 50 0a | 20 20 20 20 20 20 4a 3d | I=1,LP.| J=|
|000085a0| 4a 2b 31 0a 20 20 20 20 | 20 20 49 46 28 4e 28 4a |J+1. | IF(N(J|
|000085b0| 29 2e 45 51 2e 30 29 20 | 47 4f 54 4f 20 31 30 0a |).EQ.0) |GOTO 10.|
|000085c0| 20 20 20 20 20 20 49 46 | 28 4e 28 4a 29 2e 47 54 | IF|(N(J).GT|
|000085d0| 2e 4b 4d 58 29 20 4b 4d | 58 3d 4e 28 4a 29 0a 20 |.KMX) KM|X=N(J). |
|000085e0| 20 20 20 20 20 4e 56 50 | 3d 4e 56 50 2b 31 0a 31 | NVP|=NVP+1.1|
|000085f0| 30 20 20 20 20 43 4f 4e | 54 49 4e 55 45 0a 43 20 |0 CON|TINUE.C |
|00008600| 20 20 53 45 54 20 41 4c | 4c 20 4e 4f 4e 2d 5a 45 | SET AL|L NON-ZE|
|00008610| 52 4f 20 4b 49 20 56 41 | 4c 55 45 53 20 54 4f 20 |RO KI VA|LUES TO |
|00008620| 54 48 45 20 4d 41 58 49 | 4d 55 4d 20 4b 49 20 56 |THE MAXI|MUM KI V|
|00008630| 41 4c 55 45 0a 20 20 20 | 20 20 20 4a 3d 49 4b 49 |ALUE. | J=IKI|
|00008640| 2d 31 0a 20 20 20 20 20 | 20 44 4f 20 32 30 20 49 |-1. | DO 20 I|
|00008650| 3d 31 2c 4c 50 0a 20 20 | 20 20 20 20 4a 3d 4a 2b |=1,LP. | J=J+|
|00008660| 31 0a 20 20 20 20 20 20 | 49 46 20 28 4e 28 4a 29 |1. |IF (N(J)|
|00008670| 2e 45 51 2e 30 29 20 47 | 4f 54 4f 20 32 30 0a 20 |.EQ.0) G|OTO 20. |
|00008680| 20 20 20 20 20 4e 28 4a | 29 3d 4b 4d 58 0a 32 30 | N(J|)=KMX.20|
|00008690| 20 20 20 20 43 4f 4e 54 | 49 4e 55 45 0a 43 20 20 | CONT|INUE.C |
|000086a0| 53 45 54 20 4c 45 4e 47 | 54 48 20 4f 46 20 41 52 |SET LENG|TH OF AR|
|000086b0| 52 41 59 53 20 54 48 41 | 54 20 41 52 45 20 55 53 |RAYS THA|T ARE US|
|000086c0| 45 44 20 42 59 20 4f 52 | 47 4c 53 0a 20 20 20 20 |ED BY OR|GLS. |
|000086d0| 20 20 4c 41 4d 3d 4e 56 | 50 2a 28 4e 56 50 2b 33 | LAM=NV|P*(NVP+3|
|000086e0| 29 2f 32 0a 20 20 20 20 | 20 20 4c 45 56 3d 4e 56 |)/2. | LEV=NV|
|000086f0| 50 2a 4e 56 50 0a 43 20 | 20 4c 4f 43 41 54 45 20 |P*NVP.C | LOCATE |
|00008700| 4f 52 47 4c 53 20 41 52 | 52 41 59 53 20 54 4f 20 |ORGLS AR|RAYS TO |
|00008710| 42 45 20 53 54 4f 52 45 | 44 20 49 4e 20 41 52 52 |BE STORE|D IN ARR|
|00008720| 41 59 20 53 0a 20 20 20 | 20 20 20 4e 4c 41 4d 3d |AY S. | NLAM=|
|00008730| 4e 53 49 5a 45 28 4a 53 | 49 5a 45 2c 4c 41 4d 2c |NSIZE(JS|IZE,LAM,|
|00008740| 4c 4d 31 29 0a 20 20 20 | 20 20 20 4e 4c 56 3d 4e |LM1). | NLV=N|
|00008750| 53 49 5a 45 28 4a 53 49 | 5a 45 2c 4e 56 50 2c 4c |SIZE(JSI|ZE,NVP,L|
|00008760| 4d 31 29 0a 20 20 20 20 | 20 20 4e 4c 44 56 3d 4e |M1). | NLDV=N|
|00008770| 53 49 5a 45 28 4a 53 49 | 5a 45 2c 4e 56 50 2c 4c |SIZE(JSI|ZE,NVP,L|
|00008780| 4d 31 29 0a 20 20 20 20 | 20 20 4e 4c 44 47 3d 4e |M1). | NLDG=N|
|00008790| 53 49 5a 45 28 4a 53 49 | 5a 45 2c 4e 56 50 2c 4c |SIZE(JSI|ZE,NVP,L|
|000087a0| 4d 31 29 0a 20 20 20 20 | 20 20 4e 4c 50 44 3d 4e |M1). | NLPD=N|
|000087b0| 53 49 5a 45 28 4a 53 49 | 5a 45 2c 4e 56 50 2c 4c |SIZE(JSI|ZE,NVP,L|
|000087c0| 4d 31 29 0a 20 20 20 20 | 20 20 4e 4c 52 57 3d 4e |M1). | NLRW=N|
|000087d0| 53 49 5a 45 28 4a 53 49 | 5a 45 2c 4e 56 50 2c 4c |SIZE(JSI|ZE,NVP,L|
|000087e0| 4d 31 29 0a 20 20 20 20 | 20 20 4e 4c 45 56 41 3d |M1). | NLEVA=|
|000087f0| 4e 53 49 5a 45 28 4a 53 | 49 5a 45 2c 4e 56 50 2c |NSIZE(JS|IZE,NVP,|
|00008800| 4c 4d 31 29 0a 20 20 20 | 20 20 20 4e 4c 45 56 43 |LM1). | NLEVC|
|00008810| 3d 4e 53 49 5a 45 28 4a | 53 49 5a 45 2c 4c 45 56 |=NSIZE(J|SIZE,LEV|
|00008820| 2c 4c 4d 31 29 0a 20 20 | 20 20 20 20 4e 4c 41 4d |,LM1). | NLAM|
|00008830| 56 3d 4e 53 49 5a 45 28 | 4a 53 49 5a 45 2c 4c 41 |V=NSIZE(|JSIZE,LA|
|00008840| 4d 2c 4c 4d 31 29 0a 20 | 20 20 20 20 20 4e 4c 53 |M,LM1). | NLS|
|00008850| 4d 3d 4e 53 49 5a 45 28 | 4a 53 49 5a 45 2c 4e 56 |M=NSIZE(|JSIZE,NV|
|00008860| 50 2c 4c 4d 31 29 0a 20 | 20 20 20 20 20 4a 53 49 |P,LM1). | JSI|
|00008870| 5a 45 3d 4a 53 49 5a 45 | 2d 31 20 20 20 20 20 0a |ZE=JSIZE|-1 .|
|00008880| 20 20 20 20 20 20 49 4f | 55 3d 4e 53 49 5a 45 28 | IO|U=NSIZE(|
|00008890| 49 53 49 5a 45 2c 4e 56 | 50 2c 4c 4d 31 29 0a 20 |ISIZE,NV|P,LM1). |
|000088a0| 20 20 20 20 20 49 53 49 | 5a 45 3d 49 53 49 5a 45 | ISI|ZE=ISIZE|
|000088b0| 2d 31 0a 20 20 20 20 20 | 20 57 52 49 54 45 28 39 |-1. | WRITE(9|
|000088c0| 2c 31 32 30 29 20 4c 47 | 4e 2c 49 53 49 5a 45 0a |,120) LG|N,ISIZE.|
|000088d0| 20 20 20 20 20 20 49 46 | 28 49 53 49 5a 45 2e 47 | IF|(ISIZE.G|
|000088e0| 54 2e 4c 47 4e 29 20 54 | 48 45 4e 0a 20 20 20 20 |T.LGN) T|HEN. |
|000088f0| 20 20 20 20 50 41 55 53 | 45 0a 20 20 20 20 20 20 | PAUS|E. |
|00008900| 20 20 53 54 4f 50 0a 20 | 20 20 20 20 20 45 4e 44 | STOP. | END|
|00008910| 20 49 46 0a 20 20 20 20 | 20 20 57 52 49 54 45 28 | IF. | WRITE(|
|00008920| 39 2c 31 33 30 29 20 4c | 47 53 2c 4a 53 49 5a 45 |9,130) L|GS,JSIZE|
|00008930| 0a 20 20 20 20 20 20 49 | 46 28 4a 53 49 5a 45 2e |. I|F(JSIZE.|
|00008940| 47 54 2e 4c 47 53 29 20 | 54 48 45 4e 0a 20 20 20 |GT.LGS) |THEN. |
|00008950| 20 20 20 20 20 50 41 55 | 53 45 0a 20 20 20 20 20 | PAU|SE. |
|00008960| 20 20 20 53 54 4f 50 0a | 20 20 20 20 20 20 45 4e | STOP.| EN|
|00008970| 44 20 49 46 0a 43 0a 43 | 20 20 4d 41 4b 45 20 41 |D IF.C.C| MAKE A|
|00008980| 4e 59 20 4e 45 45 44 45 | 44 20 49 4e 49 54 49 41 |NY NEEDE|D INITIA|
|00008990| 4c 20 43 41 4c 4c 53 20 | 54 4f 20 4f 54 48 45 52 |L CALLS |TO OTHER|
|000089a0| 20 53 55 42 52 4f 55 54 | 49 4e 45 53 0a 43 0a 20 | SUBROUT|INES.C. |
|000089b0| 20 20 20 20 20 4a 45 4e | 54 3d 30 0a 20 20 20 20 | JEN|T=0. |
|000089c0| 20 20 43 41 4c 4c 20 45 | 53 54 0a 20 20 20 20 20 | CALL E|ST. |
|000089d0| 26 28 53 28 4a 4c 58 29 | 2c 53 28 4a 4c 58 53 29 |&(S(JLX)|,S(JLXS)|
|000089e0| 2c 53 28 4a 4c 58 43 53 | 29 2c 53 28 4a 4c 58 43 |,S(JLXCS|),S(JLXC|
|000089f0| 4f 53 29 2c 53 28 4a 4c | 58 43 41 53 29 2c 53 28 |OS),S(JL|XCAS),S(|
|00008a00| 4a 4c 58 43 29 2c 49 50 | 54 58 2c 0a 20 20 20 20 |JLXC),IP|TX,. |
|00008a10| 20 26 49 44 43 58 2c 49 | 43 4f 4e 56 58 2c 4e 43 | &IDCX,I|CONVX,NC|
|00008a20| 41 4c 58 2c 49 53 54 58 | 2c 49 45 51 58 2c 49 45 |ALX,ISTX|,IEQX,IE|
|00008a30| 48 58 29 20 20 20 20 20 | 20 0a 20 20 20 20 20 20 |HX) | . |
|00008a40| 4a 45 4e 54 3d 31 0a 43 | 0a 43 20 20 42 45 47 49 |JENT=1.C|.C BEGI|
|00008a50| 4e 20 43 41 4c 43 55 4c | 41 54 49 4f 4e 53 0a 43 |N CALCUL|ATIONS.C|
|00008a60| 0a 20 20 20 20 20 20 43 | 41 4c 4c 20 4f 52 47 4c |. C|ALL ORGL|
|00008a70| 53 0a 20 20 20 20 20 26 | 28 53 28 4a 4c 50 29 2c |S. &|(S(JLP),|
|00008a80| 53 28 4a 44 50 29 2c 53 | 28 4e 4c 56 29 2c 53 28 |S(JDP),S|(NLV),S(|
|00008a90| 4e 4c 44 56 29 2c 53 28 | 4e 4c 44 47 29 2c 53 28 |NLDV),S(|NLDG),S(|
|00008aa0| 4e 4c 50 44 29 2c 53 28 | 4e 4c 52 57 29 2c 0a 20 |NLPD),S(|NLRW),. |
|00008ab0| 20 20 20 20 26 53 28 4e | 4c 45 56 41 29 2c 53 28 | &S(N|LEVA),S(|
|00008ac0| 4e 4c 45 56 43 29 2c 53 | 28 4e 4c 41 4d 56 29 2c |NLEVC),S|(NLAMV),|
|00008ad0| 53 28 4e 4c 53 4d 29 2c | 53 28 4a 4c 4d 57 29 2c |S(NLSM),|S(JLMW),|
|00008ae0| 53 28 4a 4c 4d 56 29 2c | 53 28 4a 56 30 29 2c 0a |S(JLMV),|S(JV0),.|
|00008af0| 20 20 20 20 20 26 53 28 | 4a 53 56 29 2c 53 28 4a | &S(|JSV),S(J|
|00008b00| 4c 43 53 29 2c 53 28 4a | 4c 47 29 2c 53 28 4a 4c |LCS),S(J|LG),S(JL|
|00008b10| 47 4f 29 2c 53 28 4a 47 | 58 30 29 2c 53 28 4a 56 |GO),S(JG|X0),S(JV|
|00008b20| 52 54 29 2c 53 28 4a 50 | 48 29 2c 0a 20 20 20 20 |RT),S(JP|H),. |
|00008b30| 20 26 53 28 4a 50 48 56 | 29 2c 53 28 4a 58 46 29 | &S(JPHV|),S(JXF)|
|00008b40| 2c 53 28 4a 47 58 53 29 | 2c 53 28 4a 41 43 53 29 |,S(JGXS)|,S(JACS)|
|00008b50| 2c 53 28 4a 4c 59 29 2c | 53 28 4a 4c 53 29 2c 53 |,S(JLY),|S(JLS),S|
|00008b60| 28 4a 4c 58 29 2c 0a 20 | 20 20 20 20 26 53 28 4a |(JLX),. | &S(J|
|00008b70| 4c 58 53 29 2c 53 28 4a | 4c 58 43 53 29 2c 53 28 |LXS),S(J|LXCS),S(|
|00008b80| 4a 4c 58 43 4f 53 29 2c | 53 28 4a 4c 58 43 41 53 |JLXCOS),|S(JLXCAS|
|00008b90| 29 2c 53 28 4a 4c 58 43 | 29 2c 53 28 4a 52 4f 43 |),S(JLXC|),S(JROC|
|00008ba0| 29 2c 53 28 4a 52 41 43 | 29 2c 0a 20 20 20 20 20 |),S(JRAC|),. |
|00008bb0| 26 53 28 4a 45 4f 43 29 | 2c 53 28 4a 43 45 4f 29 |&S(JEOC)|,S(JCEO)|
|00008bc0| 2c 53 28 4a 52 45 4f 29 | 2c 53 28 4a 53 45 4f 29 |,S(JREO)|,S(JSEO)|
|00008bd0| 2c 53 28 4a 45 41 43 29 | 2c 53 28 4a 46 4f 43 29 |,S(JEAC)|,S(JFOC)|
|00008be0| 2c 53 28 4a 46 41 43 29 | 2c 0a 20 20 20 20 20 26 |,S(JFAC)|,. &|
|00008bf0| 53 28 4a 46 4f 4b 29 2c | 53 28 4a 52 46 4f 29 2c |S(JFOK),|S(JRFO),|
|00008c00| 53 28 4a 53 46 4f 29 2c | 53 28 4a 46 41 4b 29 2c |S(JSFO),|S(JFAK),|
|00008c10| 53 28 4a 4c 58 43 4c 29 | 2c 53 28 4a 4c 46 43 4c |S(JLXCL)|,S(JLFCL|
|00008c20| 29 2c 53 28 4a 4c 45 58 | 29 2c 20 20 20 20 20 0a |),S(JLEX|), .|
|00008c30| 20 20 20 20 20 26 53 28 | 4a 4c 57 41 29 2c 53 28 | &S(|JLWA),S(|
|00008c40| 4e 4c 41 4d 29 2c 53 28 | 4a 42 30 29 2c 53 28 4a |NLAM),S(|JB0),S(J|
|00008c50| 42 31 29 2c 53 28 4a 42 | 32 29 2c 53 28 4a 43 50 |B1),S(JB|2),S(JCP|
|00008c60| 29 2c 53 28 4a 41 4c 50 | 29 2c 20 20 20 20 20 0a |),S(JALP|), .|
|00008c70| 20 20 20 20 20 26 53 28 | 4a 42 50 29 2c 53 28 4a | &S(|JBP),S(J|
|00008c80| 42 47 29 2c 53 28 4a 42 | 47 50 29 2c 53 28 4a 43 |BG),S(JB|GP),S(JC|
|00008c90| 47 29 2c 53 28 4a 50 43 | 43 29 2c 53 28 4a 45 43 |G),S(JPC|C),S(JEC|
|00008ca0| 29 2c 53 28 4a 45 43 50 | 29 2c 20 20 20 20 20 0a |),S(JECP|), .|
|00008cb0| 20 20 20 20 20 26 53 28 | 4a 50 41 41 29 2c 53 28 | &S(|JPAA),S(|
|00008cc0| 4a 45 41 29 2c 53 28 4a | 45 41 50 29 2c 53 28 4a |JEA),S(J|EAP),S(J|
|00008cd0| 50 43 43 41 29 2c 53 28 | 4a 50 43 41 41 29 2c 53 |PCCA),S(|JPCAA),S|
|00008ce0| 28 4a 44 43 41 29 2c 53 | 28 4a 50 4e 43 29 2c 20 |(JDCA),S|(JPNC), |
|00008cf0| 20 20 20 20 0a 20 20 20 | 20 20 26 53 28 4a 50 4e | . | &S(JPN|
|00008d00| 41 29 2c 53 28 4a 50 4e | 4e 29 2c 53 28 4a 43 41 |A),S(JPN|N),S(JCA|
|00008d10| 4d 29 2c 53 28 4a 43 42 | 4d 29 2c 53 28 4a 43 43 |M),S(JCB|M),S(JCC|
|00008d20| 4d 29 2c 53 28 4a 5a 41 | 29 2c 53 28 4a 5a 46 41 |M),S(JZA|),S(JZFA|
|00008d30| 29 2c 20 20 20 20 20 0a | 20 20 20 20 20 26 53 28 |), .| &S(|
|00008d40| 4a 5a 43 29 2c 53 28 4a | 5a 46 43 29 2c 53 28 4a |JZC),S(J|ZFC),S(J|
|00008d50| 43 41 29 2c 53 28 4a 43 | 4f 29 2c 53 28 4a 4c 45 |CA),S(JC|O),S(JLE|
|00008d60| 50 29 2c 53 28 4a 4c 50 | 54 29 2c 53 28 4a 4c 46 |P),S(JLP|T),S(JLF|
|00008d70| 58 29 2c 20 20 20 20 20 | 0a 20 20 20 20 20 26 53 |X), |. &S|
|00008d80| 28 4a 4c 50 42 29 2c 53 | 28 4a 52 5a 49 29 2c 53 |(JLPB),S|(JRZI),S|
|00008d90| 28 4a 53 43 50 29 2c 4e | 28 49 4b 58 29 2c 4e 28 |(JSCP),N|(IKX),N(|
|00008da0| 49 5a 41 29 2c 4e 28 49 | 5a 4f 29 2c 4e 28 49 43 |IZA),N(I|ZO),N(IC|
|00008db0| 4f 29 2c 20 20 20 20 20 | 0a 20 20 20 20 20 26 4e |O), |. &N|
|00008dc0| 28 49 43 41 29 2c 4e 28 | 49 44 54 29 2c 4e 28 49 |(ICA),N(|IDT),N(I|
|00008dd0| 4e 46 29 2c 4e 28 49 49 | 43 41 29 2c 4e 28 49 49 |NF),N(II|CA),N(II|
|00008de0| 41 4e 29 2c 4e 28 49 49 | 4e 55 29 2c 4e 28 49 4b |AN),N(II|NU),N(IK|
|00008df0| 49 29 2c 0a 20 20 20 20 | 20 26 4e 28 49 4f 55 29 |I),. | &N(IOU)|
|00008e00| 2c 4e 28 49 4e 50 53 29 | 29 0a 20 20 20 20 20 20 |,N(INPS)|). |
|00008e10| 43 4c 4f 53 45 20 28 55 | 4e 49 54 3d 31 30 29 0a |CLOSE (U|NIT=10).|
|00008e20| 20 20 20 20 20 20 43 4c | 4f 53 45 20 28 55 4e 49 | CL|OSE (UNI|
|00008e30| 54 3d 31 31 29 0a 20 20 | 20 20 20 20 43 4c 4f 53 |T=11). | CLOS|
|00008e40| 45 20 28 55 4e 49 54 3d | 31 32 29 0a 20 20 20 20 |E (UNIT=|12). |
|00008e50| 20 20 43 4c 4f 53 45 20 | 28 55 4e 49 54 3d 31 33 | CLOSE |(UNIT=13|
|00008e60| 29 0a 20 20 20 20 20 20 | 43 4c 4f 53 45 20 28 55 |). |CLOSE (U|
|00008e70| 4e 49 54 3d 31 34 29 0a | 20 20 20 20 20 20 43 4c |NIT=14).| CL|
|00008e80| 4f 53 45 20 28 55 4e 49 | 54 3d 31 35 29 0a 20 20 |OSE (UNI|T=15). |
|00008e90| 20 20 20 20 43 4c 4f 53 | 45 20 28 55 4e 49 54 3d | CLOS|E (UNIT=|
|00008ea0| 31 36 29 0a 20 20 20 20 | 20 20 43 4c 4f 53 45 20 |16). | CLOSE |
|00008eb0| 28 55 4e 49 54 3d 31 37 | 29 0a 20 20 20 20 20 20 |(UNIT=17|). |
|00008ec0| 43 4c 4f 53 45 20 28 55 | 4e 49 54 3d 31 38 29 0a |CLOSE (U|NIT=18).|
|00008ed0| 20 20 20 20 20 20 43 4c | 4f 53 45 20 28 55 4e 49 | CL|OSE (UNI|
|00008ee0| 54 3d 31 39 29 0a 20 20 | 20 20 20 20 52 45 54 55 |T=19). | RETU|
|00008ef0| 52 4e 0a 20 20 20 20 20 | 20 45 4e 44 0a 43 0a 43 |RN. | END.C.C|
|00008f00| 0a 43 0a 43 20 20 46 55 | 4e 43 54 49 4f 4e 20 54 |.C.C FU|NCTION T|
|00008f10| 4f 20 43 41 4c 43 55 4c | 41 54 45 20 53 54 41 52 |O CALCUL|ATE STAR|
|00008f20| 54 49 4e 47 20 4c 4f 43 | 41 54 49 4f 4e 20 4f 46 |TING LOC|ATION OF|
|00008f30| 20 45 41 43 48 20 41 52 | 52 41 59 0a 43 0a 20 20 | EACH AR|RAY.C. |
|00008f40| 20 20 20 20 46 55 4e 43 | 54 49 4f 4e 20 4e 53 49 | FUNC|TION NSI|
|00008f50| 5a 45 28 49 53 49 5a 45 | 2c 4c 45 4e 47 54 48 2c |ZE(ISIZE|,LENGTH,|
|00008f60| 4c 4d 49 4e 29 0a 20 20 | 20 20 20 20 49 4d 50 4c |LMIN). | IMPL|
|00008f70| 49 43 49 54 20 52 45 41 | 4c 2a 38 28 41 2d 48 2c |ICIT REA|L*8(A-H,|
|00008f80| 4f 2d 5a 29 0a 20 20 20 | 20 20 20 53 41 56 45 0a |O-Z). | SAVE.|
|00008f90| 20 20 20 20 20 20 4e 53 | 49 5a 45 3d 49 53 49 5a | NS|IZE=ISIZ|
|00008fa0| 45 0a 20 20 20 20 20 20 | 49 46 28 4c 45 4e 47 54 |E. |IF(LENGT|
|00008fb0| 48 2e 47 54 2e 30 29 20 | 49 53 49 5a 45 3d 49 53 |H.GT.0) |ISIZE=IS|
|00008fc0| 49 5a 45 2b 4c 45 4e 47 | 54 48 0a 20 20 20 20 20 |IZE+LENG|TH. |
|00008fd0| 20 49 46 28 4c 45 4e 47 | 54 48 2e 4c 45 2e 30 29 | IF(LENG|TH.LE.0)|
|00008fe0| 20 49 53 49 5a 45 3d 49 | 53 49 5a 45 2b 4c 4d 49 | ISIZE=I|SIZE+LMI|
|00008ff0| 4e 0a 20 20 20 20 20 20 | 52 45 54 55 52 4e 0a 20 |N. |RETURN. |
|00009000| 20 20 20 20 20 45 4e 44 | 0a 43 0a 43 0a 43 0a 43 | END|.C.C.C.C|
|00009010| 20 20 52 45 41 44 20 4d | 4f 44 45 4c 20 50 41 52 | READ M|ODEL PAR|
|00009020| 41 4d 45 54 45 52 53 20 | 41 4e 44 20 52 45 46 49 |AMETERS |AND REFI|
|00009030| 4e 45 4d 45 4e 54 20 49 | 4e 54 45 47 45 52 53 20 |NEMENT I|NTEGERS |
|00009040| 41 4e 44 20 53 45 54 20 | 49 4e 43 52 45 4d 45 4e |AND SET |INCREMEN|
|00009050| 54 53 0a 43 0a 43 0a 43 | 20 20 20 20 20 20 20 20 |TS.C.C.C| |
|00009060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00009070| 20 20 20 20 20 20 47 4c | 4f 53 53 41 52 59 0a 43 | GL|OSSARY.C|
|00009080| 0a 43 20 20 20 20 20 49 | 52 45 46 20 3d 20 49 4e |.C I|REF = IN|
|00009090| 44 45 58 20 4f 46 20 43 | 48 41 52 47 45 44 20 4e |DEX OF C|HARGED N|
|000090a0| 4f 4e 41 51 55 45 4f 55 | 53 20 50 52 4f 44 55 43 |ONAQUEOU|S PRODUC|
|000090b0| 54 20 53 50 45 43 49 45 | 53 20 55 53 45 44 20 54 |T SPECIE|S USED T|
|000090c0| 4f 20 44 45 46 49 4e 45 | 0a 43 20 20 20 20 20 20 |O DEFINE|.C |
|000090d0| 20 20 20 20 20 20 20 46 | 4f 52 4d 41 54 49 4f 4e | F|ORMATION|
|000090e0| 20 52 45 41 43 54 49 4f | 4e 20 46 4f 52 20 4f 54 | REACTIO|N FOR OT|
|000090f0| 48 45 52 20 43 48 41 52 | 47 45 44 20 53 50 45 43 |HER CHAR|GED SPEC|
|00009100| 49 45 53 0a 43 20 20 20 | 20 20 20 20 20 20 20 20 |IES.C | |
|00009110| 20 20 49 52 45 46 20 49 | 53 20 49 4e 20 54 48 45 | IREF I|S IN THE|
|00009120| 20 52 41 4e 47 45 20 30 | 20 54 4f 20 4e 53 4f 0a | RANGE 0| TO NSO.|
|00009130| 43 20 20 20 20 20 4e 43 | 42 4f 20 3d 20 46 4c 41 |C NC|BO = FLA|
|00009140| 47 20 44 45 4e 4f 54 49 | 4e 47 20 4e 4f 2e 20 41 |G DENOTI|NG NO. A|
|00009150| 4e 44 20 4b 49 4e 44 20 | 4f 46 20 4e 4f 4e 41 51 |ND KIND |OF NONAQ|
|00009160| 2e 43 48 41 52 47 45 44 | 20 53 50 45 43 49 45 53 |.CHARGED| SPECIES|
|00009170| 3a 0a 43 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:.C | |
|00009180| 20 30 20 3d 20 4e 4f 4e | 45 0a 43 20 20 20 20 20 | 0 = NON|E.C |
|00009190| 20 20 20 20 20 20 20 20 | 2d 31 20 3d 20 41 54 20 | |-1 = AT |
|000091a0| 4c 45 41 53 54 20 4f 4e | 45 20 41 4e 49 4f 4e 20 |LEAST ON|E ANION |
|000091b0| 28 4e 4f 54 20 41 43 43 | 45 50 54 41 42 4c 45 29 |(NOT ACC|EPTABLE)|
|000091c0| 0a 43 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.C | |
|000091d0| 31 20 3d 20 41 54 20 4c | 45 41 53 54 20 4f 4e 45 |1 = AT L|EAST ONE|
|000091e0| 20 43 41 54 49 4f 4e 20 | 28 4e 4f 54 20 41 43 43 | CATION |(NOT ACC|
|000091f0| 45 50 54 41 42 4c 45 29 | 0a 43 20 20 20 20 20 20 |EPTABLE)|.C |
|00009200| 20 20 20 20 20 20 20 20 | 32 20 3d 20 41 54 20 4c | |2 = AT L|
|00009210| 45 41 53 54 20 4f 4e 45 | 20 43 41 54 49 4f 4e 20 |EAST ONE| CATION |
|00009220| 41 4e 44 20 4f 4e 45 20 | 41 4e 49 4f 4e 0a 43 0a |AND ONE |ANION.C.|
|00009230| 43 0a 20 20 20 20 20 20 | 53 55 42 52 4f 55 54 49 |C. |SUBROUTI|
|00009240| 4e 45 20 52 45 41 44 50 | 52 28 50 2c 44 50 2c 41 |NE READP|R(P,DP,A|
|00009250| 4c 50 2c 57 2c 56 2c 56 | 30 2c 53 56 2c 4e 5a 41 |LP,W,V,V|0,SV,NZA|
|00009260| 2c 4e 5a 50 4f 2c 4e 43 | 4f 50 2c 4e 43 41 50 2c |,NZPO,NC|OP,NCAP,|
|00009270| 4b 49 29 0a 20 20 20 20 | 20 20 49 4d 50 4c 49 43 |KI). | IMPLIC|
|00009280| 49 54 20 52 45 41 4c 2a | 38 28 41 2d 48 2c 4f 2d |IT REAL*|8(A-H,O-|
|00009290| 5a 29 0a 20 20 20 20 20 | 20 53 41 56 45 0a 20 20 |Z). | SAVE. |
|000092a0| 20 20 20 20 43 4f 4d 4d | 4f 4e 2f 4d 44 2f 4e 53 | COMM|ON/MD/NS|
|000092b0| 4f 2c 4e 43 42 4f 2c 49 | 52 45 46 2c 4e 50 48 2c |O,NCBO,I|REF,NPH,|
|000092c0| 4e 50 41 2c 4e 53 41 2c | 4e 49 4f 2c 4e 49 41 2c |NPA,NSA,|NIO,NIA,|
|000092d0| 4e 43 41 2c 4e 41 4e 2c | 4e 4e 55 2c 4e 55 50 2c |NCA,NAN,|NNU,NUP,|
|000092e0| 4e 55 4d 0a 20 20 20 20 | 20 20 43 4f 4d 4d 4f 4e |NUM. | COMMON|
|000092f0| 2f 47 52 50 2f 41 46 54 | 2c 42 46 54 2c 51 46 54 |/GRP/AFT|,BFT,QFT|
|00009300| 2c 4e 43 52 28 34 29 2c | 57 53 2c 56 53 2c 44 53 |,NCR(4),|WS,VS,DS|
|00009310| 2c 47 4f 53 2c 57 52 2c | 56 52 2c 47 4f 52 2c 52 |,GOS,WR,|VR,GOR,R|
|00009320| 54 0a 20 20 20 20 20 20 | 43 4f 4d 4d 4f 4e 2f 4c |T. |COMMON/L|
|00009330| 47 50 2f 4c 50 0a 20 20 | 20 20 20 20 44 49 4d 45 |GP/LP. | DIME|
|00009340| 4e 53 49 4f 4e 20 50 28 | 2a 29 2c 44 50 28 2a 29 |NSION P(|*),DP(*)|
|00009350| 2c 41 4c 50 28 32 2c 2a | 29 2c 57 28 2a 29 2c 56 |,ALP(2,*|),W(*),V|
|00009360| 28 2a 29 2c 56 30 28 2a | 29 2c 53 56 28 2a 29 2c |(*),V0(*|),SV(*),|
|00009370| 4b 49 28 2a 29 2c 0a 20 | 20 20 20 20 26 4e 5a 41 |KI(*),. | &NZA|
|00009380| 28 2a 29 2c 4e 5a 50 4f | 28 2a 29 2c 4e 43 4f 50 |(*),NZPO|(*),NCOP|
|00009390| 28 38 2c 2a 29 2c 4e 43 | 41 50 28 37 2c 2a 29 0a |(8,*),NC|AP(7,*).|
|000093a0| 20 20 20 20 20 20 44 41 | 54 41 20 44 4c 4b 2c 44 | DA|TA DLK,D|
|000093b0| 50 48 2c 44 50 41 2c 44 | 50 56 2c 44 4c 47 2c 44 |PH,DPA,D|PV,DLG,D|
|000093c0| 4c 50 32 2c 44 4c 50 33 | 2f 0a 20 20 20 20 20 26 |LP2,DLP3|/. &|
|000093d0| 30 2e 30 30 31 44 2b 30 | 2c 30 2e 30 31 44 2b 30 |0.001D+0|,0.01D+0|
|000093e0| 2c 30 2e 30 31 44 2b 30 | 2c 30 2e 30 31 44 2b 30 |,0.01D+0|,0.01D+0|
|000093f0| 2c 30 2e 30 30 31 44 2b | 30 2c 30 2e 30 30 31 44 |,0.001D+|0,0.001D|
|00009400| 2b 30 2c 30 2e 30 30 30 | 31 44 2b 30 2f 0a 20 20 |+0,0.000|1D+0/. |
|00009410| 20 20 20 20 44 41 54 41 | 20 4f 4e 45 2c 5a 45 52 | DATA| ONE,ZER|
|00009420| 4f 2c 54 48 4f 55 2f 31 | 2e 30 44 2b 30 2c 30 2e |O,THOU/1|.0D+0,0.|
|00009430| 30 44 2b 30 2c 31 2e 30 | 44 2b 33 2f 0a 20 20 20 |0D+0,1.0|D+3/. |
|00009440| 20 20 20 57 52 49 54 45 | 28 2a 2c 39 39 39 29 0a | WRITE|(*,999).|
|00009450| 39 39 39 20 20 20 46 4f | 52 4d 41 54 28 2f 31 58 |999 FO|RMAT(/1X|
|00009460| 2c 27 52 45 41 44 49 4e | 47 20 54 48 45 20 50 41 |,'READIN|G THE PA|
|00009470| 52 41 4d 45 54 45 52 20 | 46 49 4c 45 27 29 0a 20 |RAMETER |FILE'). |
|00009480| 20 20 20 20 20 52 45 41 | 44 28 31 30 2c 2a 29 20 | REA|D(10,*) |
|00009490| 28 4e 43 52 28 49 29 2c | 49 3d 31 2c 34 29 0a 20 |(NCR(I),|I=1,4). |
|000094a0| 20 20 20 20 20 52 45 41 | 44 28 31 30 2c 2a 29 20 | REA|D(10,*) |
|000094b0| 28 4e 5a 41 28 49 29 2c | 49 3d 31 2c 28 36 2b 4e |(NZA(I),|I=1,(6+N|
|000094c0| 53 41 29 29 0a 43 0a 20 | 20 20 20 20 20 4b 3d 30 |SA)).C. | K=0|
|000094d0| 0a 20 20 20 20 20 20 49 | 46 28 4e 53 4f 2e 45 51 |. I|F(NSO.EQ|
|000094e0| 2e 30 29 20 47 4f 54 4f | 20 33 35 0a 20 20 20 20 |.0) GOTO| 35. |
|000094f0| 20 20 4e 41 50 3d 31 2b | 4e 50 48 2b 4e 50 41 0a | NAP=1+|NPH+NPA.|
|00009500| 43 0a 43 20 20 52 45 41 | 44 20 4f 52 47 41 4e 49 |C.C REA|D ORGANI|
|00009510| 43 20 53 50 45 43 49 45 | 20 50 41 52 41 4d 45 54 |C SPECIE| PARAMET|
|00009520| 45 52 53 0a 20 20 20 20 | 20 20 4e 43 42 4f 46 3d |ERS. | NCBOF=|
|00009530| 30 0a 20 20 20 20 20 20 | 49 52 45 46 3d 30 0a 20 |0. |IREF=0. |
|00009540| 20 20 20 20 20 44 4f 20 | 31 35 20 49 3d 31 2c 4e | DO |15 I=1,N|
|00009550| 53 4f 0a 43 20 20 20 52 | 45 41 44 20 50 41 52 41 |SO.C R|EAD PARA|
|00009560| 4d 45 54 45 52 53 20 41 | 4e 44 20 52 45 46 49 4e |METERS A|ND REFIN|
|00009570| 45 4d 45 4e 54 20 49 4e | 54 45 47 45 52 53 0a 20 |EMENT IN|TEGERS. |
|00009580| 20 20 20 20 20 52 45 41 | 44 28 31 30 2c 2a 29 20 | REA|D(10,*) |
|00009590| 28 4e 43 4f 50 28 4a 2c | 49 29 2c 4a 3d 31 2c 38 |(NCOP(J,|I),J=1,8|
|000095a0| 29 2c 4e 5a 50 4f 28 49 | 29 2c 0a 20 20 20 20 20 |),NZPO(I|),. |
|000095b0| 26 28 50 28 4c 29 2c 4b | 49 28 4c 29 2c 4c 3d 28 |&(P(L),K|I(L),L=(|
|000095c0| 4b 2b 31 29 2c 28 4b 2b | 4e 41 50 29 29 0a 43 0a |K+1),(K+|NAP)).C.|
|000095d0| 43 20 20 20 56 45 52 49 | 46 59 20 43 48 41 52 47 |C VERI|FY CHARG|
|000095e0| 45 20 41 53 53 49 47 4e | 45 44 20 54 4f 20 4e 4f |E ASSIGN|ED TO NO|
|000095f0| 4e 41 51 55 45 4f 55 53 | 20 50 52 4f 44 55 43 54 |NAQUEOUS| PRODUCT|
|00009600| 20 53 50 45 43 49 45 53 | 0a 20 20 20 20 20 20 4e | SPECIES|. N|
|00009610| 5a 50 4f 43 3d 4e 43 4f | 50 28 31 2c 49 29 2a 4e |ZPOC=NCO|P(1,I)*N|
|00009620| 5a 41 28 31 29 2b 4e 43 | 4f 50 28 32 2c 49 29 2a |ZA(1)+NC|OP(2,I)*|
|00009630| 4e 5a 41 28 32 29 2d 4e | 43 4f 50 28 33 2c 49 29 |NZA(2)-N|COP(3,I)|
|00009640| 2d 0a 20 20 20 20 20 26 | 4e 43 4f 50 28 35 2c 49 |-. &|NCOP(5,I|
|00009650| 29 2a 4e 5a 41 28 34 29 | 2d 4e 43 4f 50 28 36 2c |)*NZA(4)|-NCOP(6,|
|00009660| 49 29 2a 4e 5a 41 28 35 | 29 2b 4e 43 4f 50 28 37 |I)*NZA(5|)+NCOP(7|
|00009670| 2c 49 29 0a 20 20 20 20 | 20 20 49 46 28 4e 5a 50 |,I). | IF(NZP|
|00009680| 4f 43 2e 4e 45 2e 4e 5a | 50 4f 28 49 29 29 20 54 |OC.NE.NZ|PO(I)) T|
|00009690| 48 45 4e 0a 20 20 20 20 | 20 20 20 20 57 52 49 54 |HEN. | WRIT|
|000096a0| 45 28 39 2c 31 30 30 31 | 29 20 49 0a 31 30 30 31 |E(9,1001|) I.1001|
|000096b0| 20 20 20 20 46 4f 52 4d | 41 54 28 2f 31 58 2c 27 | FORM|AT(/1X,'|
|000096c0| 46 4f 52 20 4e 4f 4e 41 | 51 55 45 4f 55 53 20 50 |FOR NONA|QUEOUS P|
|000096d0| 52 4f 44 55 43 54 20 53 | 50 45 43 49 45 53 20 27 |RODUCT S|PECIES '|
|000096e0| 2c 49 33 2c 27 3a 27 2f | 0a 20 20 20 20 20 26 20 |,I3,':'/|. & |
|000096f0| 20 33 58 2c 27 43 48 41 | 52 47 45 20 41 53 53 49 | 3X,'CHA|RGE ASSI|
|00009700| 47 4e 45 44 20 49 53 20 | 4e 4f 54 20 43 4f 4d 50 |GNED IS |NOT COMP|
|00009710| 41 54 49 42 4c 45 20 57 | 49 54 48 20 46 4f 52 4d |ATIBLE W|ITH FORM|
|00009720| 55 4c 41 27 2f 29 0a 20 | 20 20 20 20 20 20 20 50 |ULA'/). | P|
|00009730| 41 55 53 45 0a 09 53 54 | 4f 50 0a 20 20 20 20 20 |AUSE..ST|OP. |
|00009740| 20 45 4e 44 20 49 46 0a | 43 0a 20 20 20 20 20 20 | END IF.|C. |
|00009750| 49 46 28 4e 5a 50 4f 28 | 49 29 2e 4e 45 2e 30 29 |IF(NZPO(|I).NE.0)|
|00009760| 20 54 48 45 4e 0a 43 20 | 20 20 20 20 20 54 48 49 | THEN.C | THI|
|00009770| 53 20 49 53 20 41 20 43 | 48 41 52 47 45 44 20 53 |S IS A C|HARGED S|
|00009780| 50 45 43 49 45 53 0a 20 | 20 20 20 20 20 20 20 49 |PECIES. | I|
|00009790| 46 28 4e 43 42 4f 2e 45 | 51 2e 30 29 54 48 45 4e |F(NCBO.E|Q.0)THEN|
|000097a0| 0a 43 20 20 20 20 20 20 | 20 20 54 48 49 53 20 49 |.C | THIS I|
|000097b0| 53 20 54 48 45 20 46 49 | 52 53 54 20 43 48 41 52 |S THE FI|RST CHAR|
|000097c0| 47 45 44 20 53 50 45 43 | 49 45 53 0a 20 20 20 20 |GED SPEC|IES. |
|000097d0| 20 20 20 20 20 20 49 46 | 28 4e 5a 50 4f 28 49 29 | IF|(NZPO(I)|
|000097e0| 2e 47 54 2e 30 29 20 4e | 43 42 4f 3d 31 0a 09 20 |.GT.0) N|CBO=1.. |
|000097f0| 20 49 46 28 4e 5a 50 4f | 28 49 29 2e 4c 54 2e 30 | IF(NZPO|(I).LT.0|
|00009800| 29 20 4e 43 42 4f 3d 2d | 31 0a 20 20 20 20 20 20 |) NCBO=-|1. |
|00009810| 20 20 45 4e 44 20 49 46 | 0a 20 20 20 20 20 20 20 | END IF|. |
|00009820| 20 49 46 28 4e 43 42 4f | 2e 45 51 2e 31 29 20 54 | IF(NCBO|.EQ.1) T|
|00009830| 48 45 4e 0a 43 20 20 20 | 20 20 20 20 20 41 20 43 |HEN.C | A C|
|00009840| 41 54 49 4f 4e 20 57 41 | 53 20 53 50 45 43 49 46 |ATION WA|S SPECIF|
|00009850| 49 45 44 20 50 52 45 56 | 49 4f 55 53 4c 59 0a 20 |IED PREV|IOUSLY. |
|00009860| 20 20 20 20 20 20 20 20 | 20 49 46 28 4e 5a 50 4f | | IF(NZPO|
|00009870| 28 49 29 2e 4c 54 2e 30 | 29 20 4e 43 42 4f 3d 32 |(I).LT.0|) NCBO=2|
|00009880| 0a 20 20 20 20 20 20 20 | 20 45 4e 44 20 49 46 0a |. | END IF.|
|00009890| 20 20 20 20 20 20 20 20 | 49 46 28 4e 43 42 4f 2e | |IF(NCBO.|
|000098a0| 45 51 2e 2d 31 29 20 54 | 48 45 4e 0a 43 20 20 20 |EQ.-1) T|HEN.C |
|000098b0| 20 20 20 20 20 41 4e 20 | 41 4e 49 4f 4e 20 57 41 | AN |ANION WA|
|000098c0| 53 20 53 50 45 43 49 46 | 49 45 44 20 50 52 45 56 |S SPECIF|IED PREV|
|000098d0| 49 4f 55 53 4c 59 0a 20 | 20 20 20 20 20 20 20 20 |IOUSLY. | |
|000098e0| 20 49 46 28 4e 5a 50 4f | 28 49 29 2e 47 54 2e 30 | IF(NZPO|(I).GT.0|
|000098f0| 29 20 4e 43 42 4f 3d 32 | 0a 20 20 20 20 20 20 20 |) NCBO=2|. |
|00009900| 20 45 4e 44 20 49 46 0a | 20 20 20 20 20 20 20 20 | END IF.| |
|00009910| 49 46 28 50 28 4b 2b 31 | 29 2e 45 51 2e 5a 45 52 |IF(P(K+1|).EQ.ZER|
|00009920| 4f 2e 41 4e 44 2e 4b 49 | 28 4b 2b 31 29 2e 45 51 |O.AND.KI|(K+1).EQ|
|00009930| 2e 30 2e 41 4e 44 2e 49 | 52 45 46 2e 45 51 2e 30 |.0.AND.I|REF.EQ.0|
|00009940| 29 20 54 48 45 4e 0a 43 | 20 20 20 20 20 20 20 20 |) THEN.C| |
|00009950| 54 48 49 53 20 49 53 20 | 54 48 45 20 52 45 46 45 |THIS IS |THE REFE|
|00009960| 52 45 4e 43 45 20 49 4f | 4e 0a 20 20 20 20 20 20 |RENCE IO|N. |
|00009970| 20 20 20 20 49 52 45 46 | 3d 49 0a 43 0a 43 20 20 | IREF|=I.C.C |
|00009980| 20 20 20 20 20 20 20 20 | 57 52 49 54 45 28 39 2c | |WRITE(9,|
|00009990| 34 33 32 31 29 20 49 52 | 45 46 0a 43 34 33 32 31 |4321) IR|EF.C4321|
|000099a0| 20 20 20 20 20 20 46 4f | 52 4d 41 54 28 2f 31 58 | FO|RMAT(/1X|
|000099b0| 2c 27 49 52 45 46 20 3d | 27 2c 49 33 29 0a 43 20 |,'IREF =|',I3).C |
|000099c0| 20 20 20 20 20 20 20 20 | 20 50 41 55 53 45 0a 43 | | PAUSE.C|
|000099d0| 0a 20 20 20 20 20 20 20 | 20 45 4e 44 20 49 46 0a |. | END IF.|
|000099e0| 20 20 20 20 20 20 45 4e | 44 20 49 46 0a 43 0a 43 | EN|D IF.C.C|
|000099f0| 20 20 20 53 45 54 20 50 | 41 52 41 4d 45 54 45 52 | SET P|ARAMETER|
|00009a00| 20 49 4e 43 52 45 4d 45 | 4e 54 53 0a 20 20 20 20 | INCREME|NTS. |
|00009a10| 20 20 4b 54 3d 4b 0a 20 | 20 20 20 20 20 4b 3d 4b | KT=K. | K=K|
|00009a20| 2b 31 0a 20 20 20 20 20 | 20 44 50 28 4b 29 3d 44 |+1. | DP(K)=D|
|00009a30| 4c 4b 0a 20 20 20 20 20 | 20 49 46 28 4e 50 48 2e |LK. | IF(NPH.|
|00009a40| 45 51 2e 30 29 20 47 4f | 20 54 4f 20 35 0a 20 20 |EQ.0) GO| TO 5. |
|00009a50| 20 20 20 20 4b 3d 4b 2b | 31 0a 20 20 20 20 20 20 | K=K+|1. |
|00009a60| 44 50 28 4b 29 3d 44 50 | 48 0a 35 20 20 20 20 20 |DP(K)=DP|H.5 |
|00009a70| 49 46 28 4e 50 41 2e 45 | 51 2e 30 29 20 47 4f 20 |IF(NPA.E|Q.0) GO |
|00009a80| 54 4f 20 31 35 0a 20 20 | 20 20 20 20 44 4f 20 31 |TO 15. | DO 1|
|00009a90| 30 20 4a 3d 31 2c 4e 50 | 41 0a 20 20 20 20 20 20 |0 J=1,NP|A. |
|00009aa0| 4b 3d 4b 2b 31 0a 20 20 | 20 20 20 20 44 50 28 4b |K=K+1. | DP(K|
|00009ab0| 29 3d 44 50 41 0a 31 30 | 20 20 20 20 43 4f 4e 54 |)=DPA.10| CONT|
|00009ac0| 49 4e 55 45 0a 31 35 20 | 20 20 20 43 4f 4e 54 49 |INUE.15 | CONTI|
|00009ad0| 4e 55 45 0a 43 0a 43 20 | 20 20 43 48 45 43 4b 20 |NUE.C.C | CHECK |
|00009ae0| 46 4f 52 20 52 45 51 55 | 49 52 45 44 20 43 4f 4e |FOR REQU|IRED CON|
|00009af0| 44 49 54 49 4f 4e 53 20 | 49 46 20 4e 4f 4e 41 51 |DITIONS |IF NONAQ|
|00009b00| 2e 20 49 4f 4e 53 20 50 | 52 45 53 45 4e 54 0a 20 |. IONS P|RESENT. |
|00009b10| 20 20 20 20 20 49 46 28 | 4e 43 42 4f 2e 45 51 2e | IF(|NCBO.EQ.|
|00009b20| 31 29 20 54 48 45 4e 0a | 20 20 20 20 20 20 20 20 |1) THEN.| |
|00009b30| 57 52 49 54 45 28 39 2c | 31 30 30 32 29 20 0a 31 |WRITE(9,|1002) .1|
|00009b40| 30 30 32 20 20 20 20 46 | 4f 52 4d 41 54 28 2f 31 |002 F|ORMAT(/1|
|00009b50| 58 2c 27 49 4e 20 54 48 | 45 20 4e 4f 4e 41 51 55 |X,'IN TH|E NONAQU|
|00009b60| 45 4f 55 53 20 50 48 41 | 53 45 3a 27 2f 0a 20 20 |EOUS PHA|SE:'/. |
|00009b70| 20 20 20 26 20 20 33 58 | 2c 27 53 50 45 43 49 45 | & 3X|,'SPECIE|
|00009b80| 53 20 48 41 56 45 20 42 | 45 45 4e 20 53 50 45 43 |S HAVE B|EEN SPEC|
|00009b90| 49 46 49 45 44 20 57 49 | 54 48 20 50 4f 53 49 54 |IFIED WI|TH POSIT|
|00009ba0| 49 56 45 20 43 48 41 52 | 47 45 27 2f 0a 20 20 20 |IVE CHAR|GE'/. |
|00009bb0| 20 20 26 20 20 33 58 2c | 27 42 55 54 20 4e 4f 4e | & 3X,|'BUT NON|
|00009bc0| 45 20 48 41 56 45 20 42 | 45 45 4e 20 53 50 45 43 |E HAVE B|EEN SPEC|
|00009bd0| 49 46 49 45 44 20 57 49 | 54 48 20 4e 45 47 41 54 |IFIED WI|TH NEGAT|
|00009be0| 49 56 45 20 43 48 41 52 | 47 45 27 2f 29 0a 20 20 |IVE CHAR|GE'/). |
|00009bf0| 20 20 20 20 20 20 50 41 | 55 53 45 0a 09 53 54 4f | PA|USE..STO|
|00009c00| 50 0a 20 20 20 20 20 20 | 45 4e 44 20 49 46 0a 20 |P. |END IF. |
|00009c10| 20 20 20 20 20 49 46 28 | 4e 43 42 4f 2e 45 51 2e | IF(|NCBO.EQ.|
|00009c20| 2d 31 29 20 54 48 45 4e | 0a 20 20 20 20 20 20 20 |-1) THEN|. |
|00009c30| 20 57 52 49 54 45 28 39 | 2c 31 30 30 33 29 20 0a | WRITE(9|,1003) .|
|00009c40| 31 30 30 33 20 20 20 20 | 46 4f 52 4d 41 54 28 2f |1003 |FORMAT(/|
|00009c50| 31 58 2c 27 49 4e 20 54 | 48 45 20 4e 4f 4e 41 51 |1X,'IN T|HE NONAQ|
|00009c60| 55 45 4f 55 53 20 50 48 | 41 53 45 3a 27 2f 0a 20 |UEOUS PH|ASE:'/. |
|00009c70| 20 20 20 20 26 20 20 33 | 58 2c 27 53 50 45 43 49 | & 3|X,'SPECI|
|00009c80| 45 53 20 48 41 56 45 20 | 42 45 45 4e 20 53 50 45 |ES HAVE |BEEN SPE|
|00009c90| 43 49 46 49 45 44 20 57 | 49 54 48 20 4e 45 47 41 |CIFIED W|ITH NEGA|
|00009ca0| 54 49 56 45 20 43 48 41 | 52 47 45 27 2f 0a 20 20 |TIVE CHA|RGE'/. |
|00009cb0| 20 20 20 26 20 20 33 58 | 2c 27 42 55 54 20 4e 4f | & 3X|,'BUT NO|
|00009cc0| 4e 45 20 48 41 56 45 20 | 42 45 45 4e 20 53 50 45 |NE HAVE |BEEN SPE|
|00009cd0| 43 49 46 49 45 44 20 57 | 49 54 48 20 50 4f 53 49 |CIFIED W|ITH POSI|
|00009ce0| 54 49 56 45 20 43 48 41 | 52 47 45 27 2f 29 0a 20 |TIVE CHA|RGE'/). |
|00009cf0| 20 20 20 20 20 20 20 50 | 41 55 53 45 0a 09 53 54 | P|AUSE..ST|
|00009d00| 4f 50 0a 20 20 20 20 20 | 20 45 4e 44 20 49 46 0a |OP. | END IF.|
|00009d10| 20 20 20 20 20 20 49 46 | 28 4e 43 42 4f 2e 45 51 | IF|(NCBO.EQ|
|00009d20| 2e 32 29 20 54 48 45 4e | 0a 43 20 20 20 20 20 20 |.2) THEN|.C |
|00009d30| 43 48 45 43 4b 20 46 4f | 52 20 52 46 45 52 45 4e |CHECK FO|R RFEREN|
|00009d40| 43 45 20 49 4f 4e 0a 20 | 20 20 20 20 20 20 20 49 |CE ION. | I|
|00009d50| 46 28 49 52 45 46 2e 45 | 51 2e 30 29 20 54 48 45 |F(IREF.E|Q.0) THE|
|00009d60| 4e 0a 20 20 20 20 20 20 | 20 20 20 20 57 52 49 54 |N. | WRIT|
|00009d70| 45 28 39 2c 31 30 30 34 | 29 20 0a 31 30 30 34 20 |E(9,1004|) .1004 |
|00009d80| 20 20 20 20 20 46 4f 52 | 4d 41 54 28 2f 31 58 2c | FOR|MAT(/1X,|
|00009d90| 27 49 4e 20 54 48 45 20 | 4e 4f 4e 41 51 55 45 4f |'IN THE |NONAQUEO|
|00009da0| 55 53 20 50 48 41 53 45 | 2c 27 2c 0a 20 20 20 20 |US PHASE|,',. |
|00009db0| 20 26 20 20 20 20 27 20 | 43 48 41 52 47 45 44 20 | & ' |CHARGED |
|00009dc0| 53 50 45 43 49 45 53 20 | 48 41 56 45 20 42 45 45 |SPECIES |HAVE BEE|
|00009dd0| 4e 20 53 50 45 43 49 46 | 49 45 44 2c 20 27 2f 0a |N SPECIF|IED, '/.|
|00009de0| 20 20 20 20 20 26 20 20 | 20 20 33 58 2c 27 42 55 | & | 3X,'BU|
|00009df0| 54 20 4e 4f 4e 45 20 48 | 41 56 45 20 42 45 45 4e |T NONE H|AVE BEEN|
|00009e00| 20 53 45 4c 45 43 54 45 | 44 20 41 53 20 41 20 52 | SELECTE|D AS A R|
|00009e10| 45 46 45 52 45 4e 43 45 | 20 49 4f 4e 27 2c 0a 20 |EFERENCE| ION',. |
|00009e20| 20 20 20 20 26 20 20 20 | 20 27 20 42 59 20 46 49 | & | ' BY FI|
|00009e30| 58 49 4e 47 20 49 54 53 | 20 4c 4f 4b 20 4b 20 41 |XING ITS| LOK K A|
|00009e40| 54 20 5a 45 52 4f 27 2f | 29 0a 20 20 20 20 20 20 |T ZERO'/|). |
|00009e50| 20 20 50 41 55 53 45 0a | 09 53 54 4f 50 0a 09 45 | PAUSE.|.STOP..E|
|00009e60| 4e 44 20 49 46 0a 20 20 | 20 20 20 20 45 4e 44 20 |ND IF. | END |
|00009e70| 49 46 0a 43 0a 20 20 20 | 20 20 20 49 46 28 4e 41 |IF.C. | IF(NA|
|00009e80| 50 2e 45 51 2e 31 29 20 | 47 4f 20 54 4f 20 33 35 |P.EQ.1) |GO TO 35|
|00009e90| 0a 43 20 20 20 52 45 41 | 44 20 50 41 52 41 4d 45 |.C REA|D PARAME|
|00009ea0| 54 45 52 53 20 46 4f 52 | 20 52 45 41 43 54 41 4e |TERS FOR| REACTAN|
|00009eb0| 54 53 20 48 41 20 41 4e | 44 20 42 0a 20 20 20 20 |TS HA AN|D B. |
|00009ec0| 20 20 44 4f 20 33 30 20 | 49 3d 31 2c 32 0a 20 20 | DO 30 |I=1,2. |
|00009ed0| 20 20 20 20 52 45 41 44 | 28 31 30 2c 2a 29 20 28 | READ|(10,*) (|
|00009ee0| 50 28 4c 29 2c 4b 49 28 | 4c 29 2c 4c 3d 28 4b 2b |P(L),KI(|L),L=(K+|
|00009ef0| 31 29 2c 28 4b 2b 4e 41 | 50 2d 31 29 29 0a 20 20 |1),(K+NA|P-1)). |
|00009f00| 20 20 20 20 49 46 28 4e | 50 48 2e 45 51 2e 30 29 | IF(N|PH.EQ.0)|
|00009f10| 20 47 4f 20 54 4f 20 32 | 30 0a 20 20 20 20 20 20 | GO TO 2|0. |
|00009f20| 4b 54 3d 4b 0a 20 20 20 | 20 20 20 4b 3d 4b 2b 31 |KT=K. | K=K+1|
|00009f30| 0a 20 20 20 20 20 20 44 | 50 28 4b 29 3d 44 50 48 |. D|P(K)=DPH|
|00009f40| 0a 32 30 20 20 20 20 49 | 46 28 4e 50 41 2e 45 51 |.20 I|F(NPA.EQ|
|00009f50| 2e 30 29 20 47 4f 20 54 | 4f 20 33 30 0a 20 20 20 |.0) GO T|O 30. |
|00009f60| 20 20 20 44 4f 20 32 35 | 20 4a 3d 31 2c 4e 50 41 | DO 25| J=1,NPA|
|00009f70| 0a 20 20 20 20 20 20 4b | 3d 4b 2b 31 0a 20 20 20 |. K|=K+1. |
|00009f80| 20 20 20 44 50 28 4b 29 | 3d 44 50 41 0a 32 35 20 | DP(K)|=DPA.25 |
|00009f90| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 33 30 20 20 | CONTI|NUE.30 |
|00009fa0| 20 20 43 4f 4e 54 49 4e | 55 45 0a 43 0a 33 35 20 | CONTIN|UE.C.35 |
|00009fb0| 20 20 20 49 46 28 4e 53 | 41 2e 45 51 2e 30 29 20 | IF(NS|A.EQ.0) |
|00009fc0| 47 4f 54 4f 20 35 30 0a | 43 20 20 52 45 41 44 20 |GOTO 50.|C READ |
|00009fd0| 41 51 55 45 4f 55 53 20 | 53 50 45 43 49 45 20 50 |AQUEOUS |SPECIE P|
|00009fe0| 41 52 41 4d 45 54 45 52 | 53 0a 20 20 20 20 20 20 |ARAMETER|S. |
|00009ff0| 44 4f 20 34 30 20 49 3d | 31 2c 4e 53 41 0a 43 20 |DO 40 I=|1,NSA.C |
|0000a000| 20 20 52 45 41 44 20 50 | 41 52 41 4d 45 54 45 52 | READ P|ARAMETER|
|0000a010| 53 20 41 4e 44 20 52 45 | 46 49 4e 45 4d 45 4e 54 |S AND RE|FINEMENT|
|0000a020| 20 49 4e 54 45 47 45 52 | 53 0a 20 20 20 20 20 20 | INTEGER|S. |
|0000a030| 4b 3d 4b 2b 31 0a 20 20 | 20 20 20 20 52 45 41 44 |K=K+1. | READ|
|0000a040| 28 31 30 2c 2a 29 20 28 | 4e 43 41 50 28 4a 2c 49 |(10,*) (|NCAP(J,I|
|0000a050| 29 2c 4a 3d 31 2c 37 29 | 2c 44 4d 59 2c 50 28 4b |),J=1,7)|,DMY,P(K|
|0000a060| 29 2c 4b 49 28 4b 29 2c | 56 30 28 36 2b 49 29 2c |),KI(K),|V0(6+I),|
|0000a070| 53 56 28 36 2b 49 29 0a | 43 0a 43 20 20 20 20 56 |SV(6+I).|C.C V|
|0000a080| 45 52 49 46 59 20 43 48 | 41 52 47 45 20 41 53 53 |ERIFY CH|ARGE ASS|
|0000a090| 49 47 4e 45 44 20 54 4f | 20 41 51 55 45 4f 55 53 |IGNED TO| AQUEOUS|
|0000a0a0| 20 50 52 4f 44 55 43 54 | 20 53 50 45 43 49 45 53 | PRODUCT| SPECIES|
|0000a0b0| 0a 20 20 20 20 20 20 4e | 5a 50 41 3d 4e 43 41 50 |. N|ZPA=NCAP|
|0000a0c0| 28 31 2c 49 29 2a 4e 5a | 41 28 31 29 2b 4e 43 41 |(1,I)*NZ|A(1)+NCA|
|0000a0d0| 50 28 32 2c 49 29 2a 4e | 5a 41 28 32 29 2d 4e 43 |P(2,I)*N|ZA(2)-NC|
|0000a0e0| 41 50 28 33 2c 49 29 0a | 20 20 20 20 20 26 2d 4e |AP(3,I).| &-N|
|0000a0f0| 43 41 50 28 35 2c 49 29 | 2a 4e 5a 41 28 34 29 2d |CAP(5,I)|*NZA(4)-|
|0000a100| 4e 43 41 50 28 36 2c 49 | 29 2a 4e 5a 41 28 35 29 |NCAP(6,I|)*NZA(5)|
|0000a110| 2b 4e 43 41 50 28 37 2c | 49 29 0a 20 20 20 20 20 |+NCAP(7,|I). |
|0000a120| 20 49 46 28 4e 5a 50 41 | 2e 4e 45 2e 4e 5a 41 28 | IF(NZPA|.NE.NZA(|
|0000a130| 36 2b 49 29 29 20 54 48 | 45 4e 0a 20 20 20 20 20 |6+I)) TH|EN. |
|0000a140| 20 20 20 57 52 49 54 45 | 28 39 2c 31 30 30 35 29 | WRITE|(9,1005)|
|0000a150| 20 49 0a 31 30 30 35 20 | 20 20 20 46 4f 52 4d 41 | I.1005 | FORMA|
|0000a160| 54 28 2f 31 58 2c 27 46 | 4f 52 20 41 51 55 45 4f |T(/1X,'F|OR AQUEO|
|0000a170| 55 53 20 50 52 4f 44 55 | 43 54 20 53 50 45 43 49 |US PRODU|CT SPECI|
|0000a180| 45 53 20 27 2c 49 33 2c | 27 3a 27 2f 0a 20 20 20 |ES ',I3,|':'/. |
|0000a190| 20 20 26 20 20 33 58 2c | 27 43 48 41 52 47 45 20 | & 3X,|'CHARGE |
|0000a1a0| 41 53 53 49 47 4e 45 44 | 20 49 53 20 4e 4f 54 20 |ASSIGNED| IS NOT |
|0000a1b0| 43 4f 4d 50 41 54 49 42 | 4c 45 20 57 49 54 48 20 |COMPATIB|LE WITH |
|0000a1c0| 46 4f 52 4d 55 4c 41 27 | 2f 29 0a 20 20 20 20 20 |FORMULA'|/). |
|0000a1d0| 20 20 20 50 41 55 53 45 | 0a 09 53 54 4f 50 0a 20 | PAUSE|..STOP. |
|0000a1e0| 20 20 20 20 20 45 4e 44 | 20 49 46 20 0a 43 0a 43 | END| IF .C.C|
|0000a1f0| 20 20 20 53 45 54 20 50 | 41 52 41 4d 45 54 45 52 | SET P|ARAMETER|
|0000a200| 20 49 4e 43 52 45 4d 45 | 4e 54 53 0a 20 20 20 20 | INCREME|NTS. |
|0000a210| 20 20 44 50 28 4b 29 3d | 44 4c 4b 0a 34 30 20 20 | DP(K)=|DLK.40 |
|0000a220| 20 20 43 4f 4e 54 49 4e | 55 45 0a 43 20 20 52 45 | CONTIN|UE.C RE|
|0000a230| 41 44 20 4e 4f 4e 41 51 | 55 45 4f 55 53 20 53 4f |AD NONAQ|UEOUS SO|
|0000a240| 4c 55 42 49 4c 49 54 59 | 20 50 41 52 41 4d 45 54 |LUBILITY| PARAMET|
|0000a250| 45 52 53 0a 35 30 20 20 | 20 20 52 45 41 44 28 31 |ERS.50 | READ(1|
|0000a260| 30 2c 2a 29 20 47 4f 53 | 20 0a 20 20 20 20 20 20 |0,*) GOS| . |
|0000a270| 44 4f 20 35 35 20 49 3d | 31 2c 28 4e 53 4f 2b 32 |DO 55 I=|1,(NSO+2|
|0000a280| 29 0a 20 20 20 20 20 20 | 4b 3d 4b 2b 31 0a 20 20 |). |K=K+1. |
|0000a290| 20 20 20 20 52 45 41 44 | 28 31 30 2c 2a 29 20 50 | READ|(10,*) P|
|0000a2a0| 28 4b 29 2c 4b 49 28 4b | 29 20 0a 20 20 20 20 20 |(K),KI(K|) . |
|0000a2b0| 20 44 50 28 4b 29 3d 44 | 4c 47 0a 35 35 20 20 20 | DP(K)=D|LG.55 |
|0000a2c0| 20 43 4f 4e 54 49 4e 55 | 45 0a 20 20 20 20 20 20 | CONTINU|E. |
|0000a2d0| 4d 3d 30 0a 43 20 20 52 | 45 41 44 20 41 51 55 45 |M=0.C R|EAD AQUE|
|0000a2e0| 4f 55 53 20 50 49 54 5a | 45 52 20 50 41 52 41 4d |OUS PITZ|ER PARAM|
|0000a2f0| 45 54 45 52 53 0a 43 20 | 20 20 52 45 41 44 20 42 |ETERS.C | READ B|
|0000a300| 30 2c 20 42 31 2c 20 42 | 32 2c 20 43 50 2c 20 41 |0, B1, B|2, CP, A|
|0000a310| 31 2c 20 41 4e 44 20 41 | 32 0a 20 20 20 20 20 20 |1, AND A|2. |
|0000a320| 44 4f 20 37 30 20 49 3d | 31 2c 4e 43 41 0a 20 20 |DO 70 I=|1,NCA. |
|0000a330| 20 20 20 20 44 4f 20 36 | 35 20 4a 3d 31 2c 4e 41 | DO 6|5 J=1,NA|
|0000a340| 4e 0a 20 20 20 20 20 20 | 4d 3d 4d 2b 31 0a 20 20 |N. |M=M+1. |
|0000a350| 20 20 20 20 52 45 41 44 | 28 31 30 2c 2a 29 20 28 | READ|(10,*) (|
|0000a360| 50 28 4c 29 2c 4b 49 28 | 4c 29 2c 4c 3d 28 4b 2b |P(L),KI(|L),L=(K+|
|0000a370| 31 29 2c 28 4b 2b 34 29 | 29 2c 41 4c 50 28 31 2c |1),(K+4)|),ALP(1,|
|0000a380| 4d 29 2c 41 4c 50 28 32 | 2c 4d 29 0a 20 20 20 20 |M),ALP(2|,M). |
|0000a390| 20 20 4b 54 3d 4b 0a 20 | 20 20 20 20 20 44 4f 20 | KT=K. | DO |
|0000a3a0| 36 30 20 4c 3d 31 2c 34 | 0a 20 20 20 20 20 20 4b |60 L=1,4|. K|
|0000a3b0| 3d 4b 2b 31 0a 20 20 20 | 20 20 20 44 50 28 4b 29 |=K+1. | DP(K)|
|0000a3c0| 3d 44 4c 50 32 0a 36 30 | 20 20 20 20 43 4f 4e 54 |=DLP2.60| CONT|
|0000a3d0| 49 4e 55 45 0a 36 35 20 | 20 20 20 43 4f 4e 54 49 |INUE.65 | CONTI|
|0000a3e0| 4e 55 45 0a 37 30 20 20 | 20 20 43 4f 4e 54 49 4e |NUE.70 | CONTIN|
|0000a3f0| 55 45 0a 43 20 20 20 52 | 45 41 44 20 54 48 45 54 |UE.C R|EAD THET|
|0000a400| 41 20 41 4e 44 20 50 53 | 49 0a 20 20 20 20 20 20 |A AND PS|I. |
|0000a410| 49 46 28 4e 43 41 2e 4c | 54 2e 32 29 20 47 4f 54 |IF(NCA.L|T.2) GOT|
|0000a420| 4f 20 39 30 0a 20 20 20 | 20 20 20 44 4f 20 38 35 |O 90. | DO 85|
|0000a430| 20 49 3d 31 2c 28 4e 43 | 41 2d 31 29 0a 20 20 20 | I=1,(NC|A-1). |
|0000a440| 20 20 20 44 4f 20 38 30 | 20 4a 3d 28 49 2b 31 29 | DO 80| J=(I+1)|
|0000a450| 2c 4e 43 41 0a 20 20 20 | 20 20 20 52 45 41 44 28 |,NCA. | READ(|
|0000a460| 31 30 2c 2a 29 20 28 50 | 28 4c 29 2c 4b 49 28 4c |10,*) (P|(L),KI(L|
|0000a470| 29 2c 4c 3d 28 4b 2b 31 | 29 2c 28 4b 2b 32 29 29 |),L=(K+1|),(K+2))|
|0000a480| 0a 20 20 20 20 20 20 4b | 54 3d 4b 0a 20 20 20 20 |. K|T=K. |
|0000a490| 20 20 4b 3d 4b 2b 31 0a | 20 20 20 20 20 20 44 50 | K=K+1.| DP|
|0000a4a0| 28 4b 29 3d 44 4c 50 33 | 0a 20 20 20 20 20 20 4b |(K)=DLP3|. K|
|0000a4b0| 3d 4b 2b 31 0a 20 20 20 | 20 20 20 44 50 28 4b 29 |=K+1. | DP(K)|
|0000a4c0| 3d 44 4c 50 33 0a 20 20 | 20 20 20 20 49 46 28 4e |=DLP3. | IF(N|
|0000a4d0| 41 4e 2e 45 51 2e 31 29 | 20 47 4f 54 4f 20 38 30 |AN.EQ.1)| GOTO 80|
|0000a4e0| 0a 20 20 20 20 20 20 44 | 4f 20 37 35 20 4c 3d 31 |. D|O 75 L=1|
|0000a4f0| 2c 28 4e 41 4e 2d 31 29 | 0a 20 20 20 20 20 20 4b |,(NAN-1)|. K|
|0000a500| 3d 4b 2b 31 0a 20 20 20 | 20 20 20 52 45 41 44 28 |=K+1. | READ(|
|0000a510| 31 30 2c 2a 29 20 50 28 | 4b 29 2c 4b 49 28 4b 29 |10,*) P(|K),KI(K)|
|0000a520| 0a 20 20 20 20 20 20 44 | 50 28 4b 29 3d 44 4c 50 |. D|P(K)=DLP|
|0000a530| 33 0a 37 35 20 20 20 20 | 43 4f 4e 54 49 4e 55 45 |3.75 |CONTINUE|
|0000a540| 0a 38 30 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a |.80 C|ONTINUE.|
|0000a550| 38 35 20 20 20 20 43 4f | 4e 54 49 4e 55 45 0a 39 |85 CO|NTINUE.9|
|0000a560| 30 20 20 20 20 49 46 28 | 4e 41 4e 2e 4c 54 2e 32 |0 IF(|NAN.LT.2|
|0000a570| 29 20 47 4f 54 4f 20 31 | 31 30 0a 20 20 20 20 20 |) GOTO 1|10. |
|0000a580| 20 44 4f 20 31 30 35 20 | 49 3d 31 2c 28 4e 41 4e | DO 105 |I=1,(NAN|
|0000a590| 2d 31 29 0a 20 20 20 20 | 20 20 44 4f 20 31 30 30 |-1). | DO 100|
|0000a5a0| 20 4a 3d 28 49 2b 31 29 | 2c 4e 41 4e 0a 20 20 20 | J=(I+1)|,NAN. |
|0000a5b0| 20 20 20 52 45 41 44 28 | 31 30 2c 2a 29 20 28 50 | READ(|10,*) (P|
|0000a5c0| 28 4c 29 2c 4b 49 28 4c | 29 2c 4c 3d 28 4b 2b 31 |(L),KI(L|),L=(K+1|
|0000a5d0| 29 2c 28 4b 2b 32 29 29 | 0a 20 20 20 20 20 20 4b |),(K+2))|. K|
|0000a5e0| 54 3d 4b 0a 20 20 20 20 | 20 20 4b 3d 4b 2b 31 0a |T=K. | K=K+1.|
|0000a5f0| 20 20 20 20 20 20 44 50 | 28 4b 29 3d 44 4c 50 33 | DP|(K)=DLP3|
|0000a600| 0a 20 20 20 20 20 20 4b | 3d 4b 2b 31 0a 20 20 20 |. K|=K+1. |
|0000a610| 20 20 20 44 50 28 4b 29 | 3d 44 4c 50 33 0a 20 20 | DP(K)|=DLP3. |
|0000a620| 20 20 20 20 49 46 28 4e | 43 41 2e 45 51 2e 31 29 | IF(N|CA.EQ.1)|
|0000a630| 20 47 4f 54 4f 20 31 30 | 30 0a 20 20 20 20 20 20 | GOTO 10|0. |
|0000a640| 44 4f 20 39 35 20 4c 3d | 31 2c 28 4e 43 41 2d 31 |DO 95 L=|1,(NCA-1|
|0000a650| 29 0a 20 20 20 20 20 20 | 4b 3d 4b 2b 31 0a 20 20 |). |K=K+1. |
|0000a660| 20 20 20 20 52 45 41 44 | 28 31 30 2c 2a 29 20 50 | READ|(10,*) P|
|0000a670| 28 4b 29 2c 4b 49 28 4b | 29 0a 20 20 20 20 20 20 |(K),KI(K|). |
|0000a680| 44 50 28 4b 29 3d 44 4c | 50 33 0a 39 35 20 20 20 |DP(K)=DL|P3.95 |
|0000a690| 20 43 4f 4e 54 49 4e 55 | 45 0a 31 30 30 20 20 20 | CONTINU|E.100 |
|0000a6a0| 43 4f 4e 54 49 4e 55 45 | 0a 31 30 35 20 20 20 43 |CONTINUE|.105 C|
|0000a6b0| 4f 4e 54 49 4e 55 45 0a | 31 31 30 20 20 20 49 46 |ONTINUE.|110 IF|
|0000a6c0| 28 4e 4e 55 2e 45 51 2e | 30 29 20 47 4f 54 4f 20 |(NNU.EQ.|0) GOTO |
|0000a6d0| 31 34 30 0a 43 20 20 20 | 52 45 41 44 20 44 20 41 |140.C |READ D A|
|0000a6e0| 4e 44 20 52 48 4f 0a 20 | 20 20 20 20 20 44 4f 20 |ND RHO. | DO |
|0000a6f0| 31 33 30 20 49 3d 31 2c | 4e 4e 55 0a 20 20 20 20 |130 I=1,|NNU. |
|0000a700| 20 20 52 45 41 44 28 31 | 30 2c 2a 29 20 28 50 28 | READ(1|0,*) (P(|
|0000a710| 4c 29 2c 4b 49 28 4c 29 | 2c 4c 3d 28 4b 2b 31 29 |L),KI(L)|,L=(K+1)|
|0000a720| 2c 28 4b 2b 32 29 29 0a | 20 20 20 20 20 20 4b 54 |,(K+2)).| KT|
|0000a730| 3d 4b 0a 20 20 20 20 20 | 20 4b 3d 4b 2b 31 0a 20 |=K. | K=K+1. |
|0000a740| 20 20 20 20 20 44 50 28 | 4b 29 3d 44 4c 50 32 0a | DP(|K)=DLP2.|
|0000a750| 20 20 20 20 20 20 4b 3d | 4b 2b 31 0a 20 20 20 20 | K=|K+1. |
|0000a760| 20 20 44 50 28 4b 29 3d | 44 4c 50 32 0a 20 20 20 | DP(K)=|DLP2. |
|0000a770| 20 20 20 49 46 28 4e 43 | 41 2e 4c 54 2e 32 29 20 | IF(NC|A.LT.2) |
|0000a780| 47 4f 54 4f 20 31 32 30 | 0a 20 20 20 20 20 20 44 |GOTO 120|. D|
|0000a790| 4f 20 31 31 35 20 4a 3d | 32 2c 4e 43 41 0a 20 20 |O 115 J=|2,NCA. |
|0000a7a0| 20 20 20 20 4b 3d 4b 2b | 31 0a 20 20 20 20 20 20 | K=K+|1. |
|0000a7b0| 52 45 41 44 28 31 30 2c | 2a 29 20 50 28 4b 29 2c |READ(10,|*) P(K),|
|0000a7c0| 4b 49 28 4b 29 0a 20 20 | 20 20 20 20 44 50 28 4b |KI(K). | DP(K|
|0000a7d0| 29 3d 44 4c 50 32 0a 31 | 31 35 20 20 20 43 4f 4e |)=DLP2.1|15 CON|
|0000a7e0| 54 49 4e 55 45 0a 31 32 | 30 20 20 20 44 4f 20 31 |TINUE.12|0 DO 1|
|0000a7f0| 32 35 20 4a 3d 31 2c 4e | 41 4e 0a 20 20 20 20 20 |25 J=1,N|AN. |
|0000a800| 20 4b 3d 4b 2b 31 0a 20 | 20 20 20 20 20 52 45 41 | K=K+1. | REA|
|0000a810| 44 28 31 30 2c 2a 29 20 | 50 28 4b 29 2c 4b 49 28 |D(10,*) |P(K),KI(|
|0000a820| 4b 29 0a 20 20 20 20 20 | 20 44 50 28 4b 29 3d 44 |K). | DP(K)=D|
|0000a830| 4c 50 32 0a 31 32 35 20 | 20 20 43 4f 4e 54 49 4e |LP2.125 | CONTIN|
|0000a840| 55 45 0a 31 33 30 20 20 | 20 43 4f 4e 54 49 4e 55 |UE.130 | CONTINU|
|0000a850| 45 0a 43 20 20 20 52 45 | 41 44 20 4c 41 4d 42 44 |E.C RE|AD LAMBD|
|0000a860| 41 20 56 41 4c 55 45 53 | 0a 20 20 20 20 20 20 44 |A VALUES|. D|
|0000a870| 4f 20 31 33 35 20 49 3d | 31 2c 28 4e 4e 55 2a 28 |O 135 I=|1,(NNU*(|
|0000a880| 4e 4e 55 2b 31 29 2f 32 | 29 0a 20 20 20 20 20 20 |NNU+1)/2|). |
|0000a890| 4b 3d 4b 2b 31 0a 20 20 | 20 20 20 20 52 45 41 44 |K=K+1. | READ|
|0000a8a0| 28 31 30 2c 2a 29 20 50 | 28 4b 29 2c 4b 49 28 4b |(10,*) P|(K),KI(K|
|0000a8b0| 29 0a 20 20 20 20 20 20 | 44 50 28 4b 29 3d 44 4c |). |DP(K)=DL|
|0000a8c0| 50 32 20 20 20 20 20 20 | 0a 31 33 35 20 20 20 43 |P2 |.135 C|
|0000a8d0| 4f 4e 54 49 4e 55 45 0a | 31 34 30 20 20 20 49 46 |ONTINUE.|140 IF|
|0000a8e0| 28 4e 55 50 2e 45 51 2e | 30 29 20 47 4f 54 4f 20 |(NUP.EQ.|0) GOTO |
|0000a8f0| 31 35 30 0a 43 20 20 52 | 45 41 44 20 55 53 45 52 |150.C R|EAD USER|
|0000a900| 2d 44 45 46 49 4e 45 44 | 20 50 41 52 41 4d 45 54 |-DEFINED| PARAMET|
|0000a910| 45 52 53 0a 20 20 20 20 | 20 20 44 4f 20 31 34 35 |ERS. | DO 145|
|0000a920| 20 49 3d 31 2c 4e 55 50 | 0a 20 20 20 20 20 20 4b | I=1,NUP|. K|
|0000a930| 3d 4b 2b 31 0a 20 20 20 | 20 20 20 52 45 41 44 28 |=K+1. | READ(|
|0000a940| 31 30 2c 2a 29 20 50 28 | 4b 29 2c 4b 49 28 4b 29 |10,*) P(|K),KI(K)|
|0000a950| 2c 44 50 28 4b 29 0a 31 | 34 35 20 20 20 43 4f 4e |,DP(K).1|45 CON|
|0000a960| 54 49 4e 55 45 0a 31 35 | 30 20 20 20 43 4f 4e 54 |TINUE.15|0 CONT|
|0000a970| 49 4e 55 45 0a 43 0a 20 | 20 20 20 20 20 57 52 49 |INUE.C. | WRI|
|0000a980| 54 45 28 39 2c 31 30 30 | 36 29 20 4b 2c 4c 50 0a |TE(9,100|6) K,LP.|
|0000a990| 31 30 30 36 20 20 46 4f | 52 4d 41 54 28 2f 31 58 |1006 FO|RMAT(/1X|
|0000a9a0| 2c 27 41 54 20 54 48 45 | 20 45 4e 44 20 4f 46 20 |,'AT THE| END OF |
|0000a9b0| 53 2e 20 52 45 41 44 50 | 52 2c 27 2f 0a 20 20 20 |S. READP|R,'/. |
|0000a9c0| 20 20 26 33 58 2c 27 54 | 48 45 20 4e 55 4d 42 45 | &3X,'T|HE NUMBE|
|0000a9d0| 52 20 4f 46 20 41 44 4a | 55 53 54 41 42 4c 45 20 |R OF ADJ|USTABLE |
|0000a9e0| 50 41 52 41 4d 45 54 45 | 52 53 20 52 45 41 44 20 |PARAMETE|RS READ |
|0000a9f0| 49 53 27 2c 49 33 2f 0a | 20 20 20 20 20 26 33 58 |IS',I3/.| &3X|
|0000aa00| 2c 27 54 48 45 20 4d 41 | 58 49 4d 55 4d 20 4e 55 |,'THE MA|XIMUM NU|
|0000aa10| 4d 42 45 52 20 50 45 52 | 4d 49 54 54 45 44 20 49 |MBER PER|MITTED I|
|0000aa20| 53 27 2c 20 49 33 29 0a | 20 20 20 20 20 20 49 46 |S', I3).| IF|
|0000aa30| 28 4b 2e 47 54 2e 4c 50 | 29 20 54 48 45 4e 0a 20 |(K.GT.LP|) THEN. |
|0000aa40| 20 20 20 20 20 20 20 50 | 41 55 53 45 0a 09 53 54 | P|AUSE..ST|
|0000aa50| 4f 50 0a 20 20 20 20 20 | 20 45 4e 44 20 49 46 20 |OP. | END IF |
|0000aa60| 0a 43 0a 20 20 20 20 20 | 20 52 45 54 55 52 4e 0a |.C. | RETURN.|
|0000aa70| 20 20 20 20 20 20 45 4e | 44 0a 43 0a 43 0a 43 0a | EN|D.C.C.C.|
|0000aa80| 43 20 20 52 45 41 44 20 | 54 48 45 20 44 41 54 41 |C READ |THE DATA|
|0000aa90| 0a 43 0a 43 0a 20 20 20 | 20 20 20 53 55 42 52 4f |.C.C. | SUBRO|
|0000aaa0| 55 54 49 4e 45 20 52 45 | 41 44 41 54 28 57 2c 56 |UTINE RE|ADAT(W,V|
|0000aab0| 2c 56 30 2c 53 56 2c 59 | 4f 2c 53 49 47 59 4f 2c |,V0,SV,Y|O,SIGYO,|
|0000aac0| 58 2c 4e 49 44 54 2c 4e | 5a 41 2c 4e 43 41 50 29 |X,NIDT,N|ZA,NCAP)|
|0000aad0| 0a 20 20 20 20 20 20 49 | 4d 50 4c 49 43 49 54 20 |. I|MPLICIT |
|0000aae0| 52 45 41 4c 2a 38 28 41 | 2d 48 2c 4f 2d 5a 29 0a |REAL*8(A|-H,O-Z).|
|0000aaf0| 20 20 20 20 20 20 53 41 | 56 45 0a 20 20 20 20 20 | SA|VE. |
|0000ab00| 20 44 49 4d 45 4e 53 49 | 4f 4e 20 57 28 2a 29 2c | DIMENSI|ON W(*),|
|0000ab10| 56 28 2a 29 2c 56 30 28 | 2a 29 2c 53 56 28 2a 29 |V(*),V0(|*),SV(*)|
|0000ab20| 2c 59 4f 28 2a 29 2c 53 | 49 47 59 4f 28 2a 29 2c |,YO(*),S|IGYO(*),|
|0000ab30| 58 28 31 30 2c 2a 29 2c | 0a 20 20 20 20 20 26 4e |X(10,*),|. &N|
|0000ab40| 49 44 54 28 2a 29 2c 4e | 5a 41 28 2a 29 2c 4e 43 |IDT(*),N|ZA(*),NC|
|0000ab50| 41 50 28 37 2c 2a 29 0a | 20 20 20 20 20 20 43 4f |AP(7,*).| CO|
|0000ab60| 4d 4d 4f 4e 2f 4d 44 2f | 4e 53 4f 2c 4e 43 42 4f |MMON/MD/|NSO,NCBO|
|0000ab70| 2c 49 52 45 46 2c 4e 50 | 48 2c 4e 50 41 2c 4e 53 |,IREF,NP|H,NPA,NS|
|0000ab80| 41 2c 4e 49 4f 2c 4e 49 | 41 2c 4e 43 41 2c 4e 41 |A,NIO,NI|A,NCA,NA|
|0000ab90| 4e 2c 4e 4e 55 2c 4e 55 | 50 2c 4e 55 4d 0a 20 20 |N,NNU,NU|P,NUM. |
|0000aba0| 20 20 20 20 43 4f 4d 4d | 4f 4e 2f 44 54 2f 54 43 | COMM|ON/DT/TC|
|0000abb0| 2c 4e 4f 2c 4e 4f 46 2c | 49 43 4e 52 20 20 20 20 |,NO,NOF,|ICNR |
|0000abc0| 20 20 0a 20 20 20 20 20 | 20 43 4f 4d 4d 4f 4e 2f | . | COMMON/|
|0000abd0| 47 52 50 2f 41 46 54 2c | 42 46 54 2c 51 46 54 2c |GRP/AFT,|BFT,QFT,|
|0000abe0| 4e 43 52 28 34 29 2c 57 | 53 2c 56 53 2c 44 53 2c |NCR(4),W|S,VS,DS,|
|0000abf0| 47 4f 53 2c 57 52 2c 56 | 52 2c 47 4f 52 2c 52 54 |GOS,WR,V|R,GOR,RT|
|0000ac00| 0a 20 20 20 20 20 20 44 | 41 54 41 20 49 54 31 2c |. D|ATA IT1,|
|0000ac10| 49 54 32 2c 49 54 33 2c | 49 54 34 2f 31 30 2c 31 |IT2,IT3,|IT4/10,1|
|0000ac20| 30 30 2c 31 30 30 30 2c | 31 30 30 30 30 2f 0a 20 |00,1000,|10000/. |
|0000ac30| 20 20 20 20 20 44 41 54 | 41 20 4f 4e 45 2c 5a 45 | DAT|A ONE,ZE|
|0000ac40| 52 4f 2f 31 2e 30 44 2b | 30 2c 30 2e 30 44 2b 30 |RO/1.0D+|0,0.0D+0|
|0000ac50| 2f 0a 20 20 20 20 20 20 | 44 41 54 41 20 46 4d 49 |/. |DATA FMI|
|0000ac60| 4e 2f 31 2e 30 44 2d 31 | 33 2f 0a 20 20 20 20 20 |N/1.0D-1|3/. |
|0000ac70| 20 57 52 49 54 45 28 2a | 2c 39 31 30 29 0a 39 31 | WRITE(*|,910).91|
|0000ac80| 30 20 20 20 46 4f 52 4d | 41 54 28 2f 31 58 2c 27 |0 FORM|AT(/1X,'|
|0000ac90| 52 45 41 44 49 4e 47 20 | 54 48 45 20 44 41 54 41 |READING |THE DATA|
|0000aca0| 20 46 49 4c 45 27 29 0a | 20 20 20 20 20 20 4e 4f | FILE').| NO|
|0000acb0| 46 3d 4e 4f 20 20 20 20 | 20 20 20 20 20 20 20 20 |F=NO | |
|0000acc0| 0a 43 20 20 52 45 41 44 | 20 4d 2e 57 2e 2c 20 4d |.C READ| M.W., M|
|0000acd0| 4f 4c 41 52 20 56 4f 4c | 2e 2c 20 41 4e 44 20 44 |OLAR VOL|., AND D|
|0000ace0| 49 45 4c 45 43 54 52 49 | 43 20 43 4f 4e 53 54 41 |IELECTRI|C CONSTA|
|0000acf0| 4e 54 20 4f 46 20 4e 4f | 4e 41 51 2e 53 4f 4c 56 |NT OF NO|NAQ.SOLV|
|0000ad00| 45 4e 54 3b 0a 43 20 20 | 20 4d 2e 57 2e 2c 20 4d |ENT;.C | M.W., M|
|0000ad10| 4f 4c 41 52 20 56 4f 4c | 2e 2c 20 41 4e 44 20 53 |OLAR VOL|., AND S|
|0000ad20| 4f 4c 55 42 49 4c 49 54 | 59 20 50 41 52 41 4d 45 |OLUBILIT|Y PARAME|
|0000ad30| 54 45 52 20 4f 46 20 52 | 45 46 45 52 45 4e 43 45 |TER OF R|EFERENCE|
|0000ad40| 20 53 4f 4c 55 54 45 3b | 0a 20 20 20 20 20 20 52 | SOLUTE;|. R|
|0000ad50| 45 41 44 28 31 31 2c 2a | 29 20 57 53 2c 56 53 2c |EAD(11,*|) WS,VS,|
|0000ad60| 44 53 0a 20 20 20 20 20 | 20 52 45 41 44 28 31 31 |DS. | READ(11|
|0000ad70| 2c 2a 29 20 57 52 2c 56 | 52 2c 47 4f 52 0a 43 20 |,*) WR,V|R,GOR.C |
|0000ad80| 20 52 45 41 44 20 4d 2e | 57 2e 20 41 4e 44 20 4e | READ M.|W. AND N|
|0000ad90| 4f 4e 41 51 55 45 4f 55 | 53 20 4d 4f 4c 41 52 20 |ONAQUEOU|S MOLAR |
|0000ada0| 56 4f 4c 53 2e 4f 46 20 | 48 41 20 41 4e 44 20 42 |VOLS.OF |HA AND B|
|0000adb0| 0a 20 20 20 20 20 20 52 | 45 41 44 28 31 31 2c 2a |. R|EAD(11,*|
|0000adc0| 29 20 57 28 31 29 2c 56 | 28 31 29 0a 20 20 20 20 |) W(1),V|(1). |
|0000add0| 20 20 52 45 41 44 28 31 | 31 2c 2a 29 20 57 28 32 | READ(1|1,*) W(2|
|0000ade0| 29 2c 56 28 32 29 0a 43 | 20 20 52 45 41 44 20 4d |),V(2).C| READ M|
|0000adf0| 2e 57 2e 2c 20 41 50 50 | 2e 4d 4f 4c 2e 56 4f 4c |.W., APP|.MOL.VOL|
|0000ae00| 53 2e 2c 20 41 4e 44 20 | 4d 41 53 53 4f 4e 20 43 |S., AND |MASSON C|
|0000ae10| 4f 4e 53 54 53 2e 20 4f | 46 20 41 51 2e 49 4f 4e |ONSTS. O|F AQ.ION|
|0000ae20| 53 0a 20 20 20 20 20 20 | 44 4f 20 35 20 4a 3d 31 |S. |DO 5 J=1|
|0000ae30| 2c 36 0a 20 20 20 20 20 | 20 52 45 41 44 28 31 31 |,6. | READ(11|
|0000ae40| 2c 2a 29 20 57 28 4a 2b | 32 29 2c 56 28 4a 2b 32 |,*) W(J+|2),V(J+2|
|0000ae50| 29 2c 56 30 28 4a 29 2c | 53 56 28 4a 29 0a 35 20 |),V0(J),|SV(J).5 |
|0000ae60| 20 20 20 20 43 4f 4e 54 | 49 4e 55 45 0a 43 0a 43 | CONT|INUE.C.C|
|0000ae70| 20 20 42 45 47 49 4e 20 | 52 45 41 44 49 4e 47 20 | BEGIN |READING |
|0000ae80| 54 48 45 20 44 41 54 41 | 0a 43 0a 20 20 20 20 20 |THE DATA|.C. |
|0000ae90| 20 44 4f 20 32 35 20 4a | 3d 31 2c 4e 4f 0a 20 20 | DO 25 J|=1,NO. |
|0000aea0| 20 20 20 20 52 45 41 44 | 28 31 31 2c 2a 29 20 4e | READ|(11,*) N|
|0000aeb0| 49 44 54 28 4a 29 2c 59 | 4f 28 4a 29 2c 53 49 47 |IDT(J),Y|O(J),SIG|
|0000aec0| 59 4f 28 4a 29 2c 28 58 | 28 49 2c 4a 29 2c 49 3d |YO(J),(X|(I,J),I=|
|0000aed0| 31 2c 31 30 29 0a 43 20 | 20 20 56 45 52 49 46 59 |1,10).C | VERIFY|
|0000aee0| 20 54 48 41 54 20 46 49 | 52 53 54 20 53 49 58 20 | THAT FI|RST SIX |
|0000aef0| 56 41 4c 55 45 53 20 4f | 46 20 58 28 49 2c 4a 29 |VALUES O|F X(I,J)|
|0000af00| 20 41 52 45 20 5a 45 52 | 4f 20 4f 52 20 50 4f 53 | ARE ZER|O OR POS|
|0000af10| 49 54 49 56 45 0a 20 20 | 20 20 20 20 44 4f 20 31 |ITIVE. | DO 1|
|0000af20| 30 20 49 3d 31 2c 36 0a | 20 20 20 20 20 20 49 46 |0 I=1,6.| IF|
|0000af30| 28 58 28 49 2c 4a 29 2e | 4c 54 2e 5a 45 52 4f 29 |(X(I,J).|LT.ZERO)|
|0000af40| 20 54 48 45 4e 0a 20 20 | 20 20 20 20 20 20 57 52 | THEN. | WR|
|0000af50| 49 54 45 28 39 2c 31 30 | 30 30 29 20 4a 2c 49 20 |ITE(9,10|00) J,I |
|0000af60| 0a 31 30 30 30 20 20 46 | 4f 52 4d 41 54 28 2f 0a |.1000 F|ORMAT(/.|
|0000af70| 20 20 20 20 20 26 31 58 | 2c 27 46 4f 52 20 44 41 | &1X|,'FOR DA|
|0000af80| 54 41 20 50 4f 49 4e 54 | 27 2c 49 33 2c 27 3a 27 |TA POINT|',I3,':'|
|0000af90| 2f 0a 20 20 20 20 20 26 | 33 58 2c 27 52 45 41 43 |/. &|3X,'REAC|
|0000afa0| 54 41 4e 54 20 43 4f 4e | 43 45 4e 54 52 41 54 49 |TANT CON|CENTRATI|
|0000afb0| 4f 4e 20 27 2c 49 31 2c | 27 20 49 53 20 4c 45 53 |ON ',I1,|' IS LES|
|0000afc0| 53 20 54 48 41 4e 20 5a | 45 52 4f 2e 27 2f 29 0a |S THAN Z|ERO.'/).|
|0000afd0| 20 20 20 20 20 20 20 20 | 50 41 55 53 45 0a 09 53 | |PAUSE..S|
|0000afe0| 54 4f 50 0a 20 20 20 20 | 20 20 45 4e 44 20 49 46 |TOP. | END IF|
|0000aff0| 0a 31 30 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a |.10 C|ONTINUE.|
|0000b000| 43 0a 43 0a 43 0a 43 20 | 20 20 43 48 45 43 4b 20 |C.C.C.C | CHECK |
|0000b010| 54 48 45 20 50 52 4f 50 | 45 52 54 49 45 53 20 4f |THE PROP|ERTIES O|
|0000b020| 46 20 44 41 54 41 20 50 | 4f 49 4e 54 20 44 45 46 |F DATA P|OINT DEF|
|0000b030| 49 4e 45 44 20 42 59 20 | 46 49 52 53 54 20 45 4e |INED BY |FIRST EN|
|0000b040| 54 52 59 0a 43 0a 43 0a | 43 20 20 20 20 20 20 20 |TRY.C.C.|C |
|0000b050| 20 20 20 20 20 20 20 20 | 20 49 41 4f 20 20 46 4c | | IAO FL|
|0000b060| 41 47 20 49 4e 44 49 43 | 41 54 49 4e 47 3a 20 28 |AG INDIC|ATING: (|
|0000b070| 30 29 20 54 48 45 20 50 | 52 45 53 45 4e 43 45 20 |0) THE P|RESENCE |
|0000b080| 4f 46 20 4f 4e 4c 59 20 | 54 48 45 0a 43 20 20 20 |OF ONLY |THE.C |
|0000b090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|0000b0a0| 20 20 4e 4f 4e 41 51 55 | 45 4f 55 53 20 50 48 41 | NONAQU|EOUS PHA|
|0000b0b0| 53 45 3b 20 28 31 29 20 | 54 48 45 20 50 52 45 53 |SE; (1) |THE PRES|
|0000b0c0| 45 4e 43 45 20 4f 46 20 | 42 4f 54 48 20 50 48 41 |ENCE OF |BOTH PHA|
|0000b0d0| 53 45 53 3b 20 4f 52 0a | 43 20 20 20 20 20 20 20 |SES; OR.|C |
|0000b0e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 32 | | (2|
|0000b0f0| 29 20 54 48 45 20 50 52 | 45 53 45 4e 43 45 20 4f |) THE PR|ESENCE O|
|0000b100| 46 20 4f 4e 4c 59 20 54 | 48 45 20 41 51 55 45 4f |F ONLY T|HE AQUEO|
|0000b110| 55 53 20 50 48 41 53 45 | 2e 0a 43 0a 43 20 20 20 |US PHASE|..C.C |
|0000b120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 49 45 51 | | IEQ|
|0000b130| 20 20 46 4c 41 47 20 49 | 4e 44 49 43 41 54 49 4e | FLAG I|NDICATIN|
|0000b140| 47 3a 20 28 30 29 20 49 | 4e 49 54 49 41 4c 20 54 |G: (0) I|NITIAL T|
|0000b150| 4f 54 41 4c 20 43 4f 4e | 43 4e 53 2e 20 48 41 56 |OTAL CON|CNS. HAV|
|0000b160| 45 0a 43 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |E.C | |
|0000b170| 20 20 20 20 20 20 20 20 | 42 45 45 4e 20 53 55 50 | |BEEN SUP|
|0000b180| 50 4c 49 45 44 20 46 4f | 52 20 41 4c 4c 20 52 45 |PLIED FO|R ALL RE|
|0000b190| 41 43 54 41 4e 54 53 20 | 4f 54 48 45 52 20 54 48 |ACTANTS |OTHER TH|
|0000b1a0| 41 4e 20 48 2b 3b 20 4f | 52 0a 43 09 09 20 20 20 |AN H+; O|R.C.. |
|0000b1b0| 20 20 20 28 31 29 20 45 | 51 55 49 4c 49 42 52 49 | (1) E|QUILIBRI|
|0000b1c0| 55 4d 20 43 4f 4e 43 4e | 53 2e 20 48 41 56 45 20 |UM CONCN|S. HAVE |
|0000b1d0| 42 45 45 4e 20 53 55 50 | 50 4c 49 45 44 20 46 4f |BEEN SUP|PLIED FO|
|0000b1e0| 52 20 41 4c 4c 0a 43 20 | 20 20 20 20 20 20 20 20 |R ALL.C | |
|0000b1f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 52 45 41 43 | | REAC|
|0000b200| 54 41 4e 54 53 20 4f 54 | 48 45 52 20 54 48 41 4e |TANTS OT|HER THAN|
|0000b210| 20 48 2b 2e 0a 43 0a 43 | 20 20 20 20 20 20 20 20 | H+..C.C| |
|0000b220| 20 20 20 20 20 20 20 20 | 49 45 48 20 20 46 4c 41 | |IEH FLA|
|0000b230| 47 20 49 4e 44 49 43 41 | 54 49 4e 47 3a 20 28 30 |G INDICA|TING: (0|
|0000b240| 29 20 49 4e 49 54 49 41 | 4c 20 54 4f 54 41 4c 20 |) INITIA|L TOTAL |
|0000b250| 41 43 49 44 20 43 4f 4e | 43 4e 2e 20 48 41 53 0a |ACID CON|CN. HAS.|
|0000b260| 43 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |C | |
|0000b270| 20 20 20 20 20 20 42 45 | 45 4e 20 53 55 50 50 4c | BE|EN SUPPL|
|0000b280| 49 45 44 3b 20 28 31 29 | 20 54 48 45 20 45 51 55 |IED; (1)| THE EQU|
|0000b290| 49 4c 2e 20 41 43 49 44 | 20 43 4f 4e 43 4e 2e 20 |IL. ACID| CONCN. |
|0000b2a0| 48 41 53 20 42 45 45 4e | 0a 43 20 20 20 20 20 20 |HAS BEEN|.C |
|0000b2b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 53 | | S|
|0000b2c0| 55 50 50 4c 49 45 44 3b | 20 4f 52 20 28 3e 31 29 |UPPLIED;| OR (>1)|
|0000b2d0| 20 54 48 45 20 45 51 55 | 49 4c 49 42 52 49 55 4d | THE EQU|ILIBRIUM|
|0000b2e0| 20 43 4f 4e 43 45 4e 54 | 52 41 54 49 4f 4e 20 4f | CONCENT|RATION O|
|0000b2f0| 46 0a 43 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |F.C | |
|0000b300| 20 20 20 20 20 20 20 20 | 48 2b 20 48 41 53 20 42 | |H+ HAS B|
|0000b310| 45 45 4e 20 53 55 50 50 | 4c 49 45 44 2e 0a 43 0a |EEN SUPP|LIED..C.|
|0000b320| 43 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |C | |
|0000b330| 20 49 43 4e 20 20 46 4c | 41 47 20 49 4e 44 49 43 | ICN FL|AG INDIC|
|0000b340| 41 54 49 4e 47 20 43 4f | 4e 43 45 4e 54 52 41 54 |ATING CO|NCENTRAT|
|0000b350| 49 4f 4e 20 53 43 41 4c | 45 3a 20 28 31 29 20 4d |ION SCAL|E: (1) M|
|0000b360| 4f 4c 41 52 49 54 59 2c | 0a 43 20 20 20 20 20 20 |OLARITY,|.C |
|0000b370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 | | (|
|0000b380| 32 29 20 4d 4f 4c 41 4c | 49 54 59 2c 20 4f 52 20 |2) MOLAL|ITY, OR |
|0000b390| 28 33 29 20 4d 4f 4c 2f | 4b 47 20 53 4f 4c 4e 2e |(3) MOL/|KG SOLN.|
|0000b3a0| 0a 43 0a 43 0a 43 20 20 | 20 20 56 45 52 49 46 59 |.C.C.C | VERIFY|
|0000b3b0| 20 54 48 45 20 4d 41 47 | 4e 49 54 55 44 45 20 54 | THE MAG|NITUDE T|
|0000b3c0| 48 45 53 45 20 51 55 41 | 4e 54 49 54 49 45 53 0a |HESE QUA|NTITIES.|
|0000b3d0| 43 03 0a 20 20 20 20 20 | 20 4e 53 56 45 3d 4e 49 |C.. | NSVE=NI|
|0000b3e0| 44 54 28 4a 29 0a 20 20 | 20 20 20 20 49 52 45 53 |DT(J). | IRES|
|0000b3f0| 3d 4e 49 44 54 28 4a 29 | 0a 20 20 20 20 20 20 49 |=NIDT(J)|. I|
|0000b400| 59 3d 49 52 45 53 2f 49 | 54 34 0a 20 20 20 20 20 |Y=IRES/I|T4. |
|0000b410| 20 49 52 45 53 3d 49 52 | 45 53 2d 49 54 34 2a 49 | IRES=IR|ES-IT4*I|
|0000b420| 59 0a 20 20 20 20 20 20 | 49 41 4f 3d 49 52 45 53 |Y. |IAO=IRES|
|0000b430| 2f 49 54 33 0a 20 20 20 | 20 20 20 49 46 28 49 41 |/IT3. | IF(IA|
|0000b440| 4f 2e 4c 54 2e 30 2e 4f | 52 2e 49 41 4f 2e 47 54 |O.LT.0.O|R.IAO.GT|
|0000b450| 2e 32 29 20 54 48 45 4e | 0a 20 20 20 20 20 20 20 |.2) THEN|. |
|0000b460| 20 57 52 49 54 45 28 39 | 2c 31 30 30 31 29 20 4a | WRITE(9|,1001) J|
|0000b470| 20 0a 31 30 30 31 20 20 | 46 4f 52 4d 41 54 28 2f | .1001 |FORMAT(/|
|0000b480| 0a 20 20 20 20 20 26 31 | 58 2c 27 46 4f 52 20 44 |. &1|X,'FOR D|
|0000b490| 41 54 41 20 50 4f 49 4e | 54 27 2c 49 33 2c 27 3a |ATA POIN|T',I3,':|
|0000b4a0| 27 2f 0a 20 20 20 20 20 | 26 33 58 2c 27 49 4e 54 |'/. |&3X,'INT|
|0000b4b0| 45 47 45 52 20 33 20 4f | 46 20 46 49 52 53 54 20 |EGER 3 O|F FIRST |
|0000b4c0| 45 4e 54 52 59 20 53 48 | 4f 55 4c 44 20 42 45 20 |ENTRY SH|OULD BE |
|0000b4d0| 30 2c 20 31 2c 20 4f 52 | 2c 20 32 2e 27 2f 29 0a |0, 1, OR|, 2.'/).|
|0000b4e0| 20 20 20 20 20 20 20 20 | 50 41 55 53 45 0a 09 53 | |PAUSE..S|
|0000b4f0| 54 4f 50 0a 20 20 20 20 | 20 20 45 4e 44 20 49 46 |TOP. | END IF|
|0000b500| 0a 20 20 20 20 20 20 49 | 52 45 53 3d 49 52 45 53 |. I|RES=IRES|
|0000b510| 2d 49 54 33 2a 49 41 4f | 0a 20 20 20 20 20 20 49 |-IT3*IAO|. I|
|0000b520| 45 51 3d 49 52 45 53 2f | 49 54 32 0a 20 20 20 20 |EQ=IRES/|IT2. |
|0000b530| 20 20 49 46 28 49 45 51 | 2e 4c 54 2e 30 2e 4f 52 | IF(IEQ|.LT.0.OR|
|0000b540| 2e 49 45 51 2e 47 54 2e | 31 29 20 54 48 45 4e 0a |.IEQ.GT.|1) THEN.|
|0000b550| 20 20 20 20 20 20 20 20 | 57 52 49 54 45 28 39 2c | |WRITE(9,|
|0000b560| 31 30 30 32 29 20 4a 20 | 0a 31 30 30 32 20 20 46 |1002) J |.1002 F|
|0000b570| 4f 52 4d 41 54 28 2f 0a | 20 20 20 20 20 26 31 58 |ORMAT(/.| &1X|
|0000b580| 2c 27 46 4f 52 20 44 41 | 54 41 20 50 4f 49 4e 54 |,'FOR DA|TA POINT|
|0000b590| 27 2c 49 33 2c 27 3a 27 | 2f 0a 20 20 20 20 20 26 |',I3,':'|/. &|
|0000b5a0| 33 58 2c 27 49 4e 54 45 | 47 45 52 20 34 20 4f 46 |3X,'INTE|GER 4 OF|
|0000b5b0| 20 46 49 52 53 54 20 45 | 4e 54 52 59 20 53 48 4f | FIRST E|NTRY SHO|
|0000b5c0| 55 4c 44 20 42 45 20 30 | 20 4f 52 20 31 2e 27 2f |ULD BE 0| OR 1.'/|
|0000b5d0| 29 0a 20 20 20 20 20 20 | 20 20 50 41 55 53 45 0a |). | PAUSE.|
|0000b5e0| 09 53 54 4f 50 0a 20 20 | 20 20 20 20 45 4e 44 20 |.STOP. | END |
|0000b5f0| 49 46 0a 20 20 20 20 20 | 20 49 52 45 53 3d 49 52 |IF. | IRES=IR|
|0000b600| 45 53 2d 49 54 32 2a 49 | 45 51 0a 20 20 20 20 20 |ES-IT2*I|EQ. |
|0000b610| 20 49 45 48 3d 49 52 45 | 53 2f 49 54 31 0a 20 20 | IEH=IRE|S/IT1. |
|0000b620| 20 20 20 20 49 46 28 49 | 45 48 2e 4c 54 2e 30 2e | IF(I|EH.LT.0.|
|0000b630| 4f 52 2e 49 45 48 2e 47 | 54 2e 35 29 20 54 48 45 |OR.IEH.G|T.5) THE|
|0000b640| 4e 0a 20 20 20 20 20 20 | 20 20 57 52 49 54 45 28 |N. | WRITE(|
|0000b650| 39 2c 31 30 30 33 29 20 | 4a 20 0a 31 30 30 33 20 |9,1003) |J .1003 |
|0000b660| 20 46 4f 52 4d 41 54 28 | 2f 0a 20 20 20 20 20 26 | FORMAT(|/. &|
|0000b670| 31 58 2c 27 46 4f 52 20 | 44 41 54 41 20 50 4f 49 |1X,'FOR |DATA POI|
|0000b680| 4e 54 27 2c 49 33 2c 27 | 3a 27 2f 0a 20 20 20 20 |NT',I3,'|:'/. |
|0000b690| 20 26 33 58 2c 27 49 4e | 54 45 47 45 52 20 35 20 | &3X,'IN|TEGER 5 |
|0000b6a0| 4f 46 20 46 49 52 53 54 | 20 45 4e 54 52 59 20 53 |OF FIRST| ENTRY S|
|0000b6b0| 48 4f 55 4c 44 20 42 45 | 20 30 2c 20 31 2c 20 32 |HOULD BE| 0, 1, 2|
|0000b6c0| 2c 20 33 2c 20 34 2c 20 | 4f 52 20 35 2e 27 2f 29 |, 3, 4, |OR 5.'/)|
|0000b6d0| 0a 20 20 20 20 20 20 20 | 20 50 41 55 53 45 0a 20 |. | PAUSE. |
|0000b6e0| 20 20 20 20 09 53 54 4f | 50 0a 20 20 20 20 20 20 | .STO|P. |
|0000b6f0| 45 4e 44 20 49 46 0a 20 | 20 20 20 20 20 49 43 4e |END IF. | ICN|
|0000b700| 3d 49 52 45 53 2d 49 54 | 31 2a 49 45 48 0a 43 20 |=IRES-IT|1*IEH.C |
|0000b710| 20 20 20 53 41 56 45 20 | 54 48 45 20 49 4e 49 54 | SAVE |THE INIT|
|0000b720| 49 41 4c 20 56 41 4c 55 | 45 20 4f 46 20 49 43 4e |IAL VALU|E OF ICN|
|0000b730| 20 54 4f 20 45 53 54 41 | 42 4c 49 53 48 20 54 48 | TO ESTA|BLISH TH|
|0000b740| 45 20 43 4f 4e 43 45 4e | 54 52 41 54 49 4f 4e 20 |E CONCEN|TRATION |
|0000b750| 53 43 41 4c 45 0a 43 20 | 20 20 20 20 4f 46 20 4d |SCALE.C | OF M|
|0000b760| 4f 44 45 4c 53 0a 20 20 | 20 20 20 20 49 46 28 4a |ODELS. | IF(J|
|0000b770| 2e 45 51 2e 31 29 20 49 | 43 4e 52 3d 49 43 4e 0a |.EQ.1) I|CNR=ICN.|
|0000b780| 20 20 20 20 20 20 49 46 | 28 49 43 4e 2e 4c 54 2e | IF|(ICN.LT.|
|0000b790| 31 2e 4f 52 2e 49 43 4e | 2e 47 54 2e 33 29 20 54 |1.OR.ICN|.GT.3) T|
|0000b7a0| 48 45 4e 0a 20 20 20 20 | 20 20 20 20 57 52 49 54 |HEN. | WRIT|
|0000b7b0| 45 28 39 2c 31 30 30 34 | 29 20 4a 20 0a 31 30 30 |E(9,1004|) J .100|
|0000b7c0| 34 20 20 46 4f 52 4d 41 | 54 28 2f 0a 20 20 20 20 |4 FORMA|T(/. |
|0000b7d0| 20 26 31 58 2c 27 46 4f | 52 20 44 41 54 41 20 50 | &1X,'FO|R DATA P|
|0000b7e0| 4f 49 4e 54 27 2c 49 33 | 2c 27 3a 27 2f 0a 20 20 |OINT',I3|,':'/. |
|0000b7f0| 20 20 20 26 33 58 2c 27 | 49 4e 54 45 47 45 52 20 | &3X,'|INTEGER |
|0000b800| 36 20 4f 46 20 46 49 52 | 53 54 20 45 4e 54 52 59 |6 OF FIR|ST ENTRY|
|0000b810| 20 53 48 4f 55 4c 44 20 | 42 45 20 31 2c 20 32 2c | SHOULD |BE 1, 2,|
|0000b820| 20 4f 52 20 33 2e 27 2f | 29 0a 20 20 20 20 20 20 | OR 3.'/|). |
|0000b830| 20 20 50 41 55 53 45 0a | 09 53 54 4f 50 0a 20 20 | PAUSE.|.STOP. |
|0000b840| 20 20 20 20 45 4e 44 20 | 49 46 0a 43 0a 43 20 20 | END |IF.C.C |
|0000b850| 20 20 56 41 4c 49 44 41 | 54 45 20 56 41 4c 55 45 | VALIDA|TE VALUE|
|0000b860| 53 20 41 53 53 49 47 4e | 45 44 20 54 4f 20 49 41 |S ASSIGN|ED TO IA|
|0000b870| 4f 2c 20 49 45 51 2c 20 | 41 4e 44 20 49 45 48 3a |O, IEQ, |AND IEH:|
|0000b880| 0a 43 0a 43 20 20 20 20 | 20 57 48 45 4e 20 56 41 |.C.C | WHEN VA|
|0000b890| 4c 55 45 53 20 41 52 45 | 20 41 53 53 49 47 4e 45 |LUES ARE| ASSIGNE|
|0000b8a0| 44 20 54 4f 20 4f 4e 45 | 20 4f 52 20 54 57 4f 20 |D TO ONE| OR TWO |
|0000b8b0| 4f 46 20 54 48 45 53 45 | 2c 20 54 48 45 20 56 41 |OF THESE|, THE VA|
|0000b8c0| 4c 55 45 28 53 29 0a 43 | 20 20 20 20 20 20 41 53 |LUE(S).C| AS|
|0000b8d0| 53 49 47 4e 45 44 20 54 | 4f 20 54 48 45 20 52 45 |SIGNED T|O THE RE|
|0000b8e0| 4d 41 49 4e 49 4e 47 20 | 4f 4e 45 28 53 29 20 49 |MAINING |ONE(S) I|
|0000b8f0| 53 20 53 4f 4d 45 54 49 | 4d 45 53 20 53 50 45 43 |S SOMETI|MES SPEC|
|0000b900| 49 46 49 45 44 2e 0a 43 | 20 20 20 20 20 20 52 45 |IFIED..C| RE|
|0000b910| 51 55 49 52 45 44 20 56 | 41 4c 55 45 53 20 41 52 |QUIRED V|ALUES AR|
|0000b920| 45 20 53 48 4f 57 4e 20 | 49 4e 20 50 41 52 45 4e |E SHOWN |IN PAREN|
|0000b930| 54 48 45 53 45 53 20 49 | 4e 20 54 48 45 20 46 4f |THESES I|N THE FO|
|0000b940| 4c 4c 4f 57 49 4e 47 20 | 54 41 42 4c 45 2e 0a 43 |LLOWING |TABLE..C|
|0000b950| 0a 43 0a 43 09 20 20 20 | 20 20 20 20 20 20 20 20 |.C.C. | |
|0000b960| 20 20 20 20 49 41 4f 20 | 20 20 20 20 49 45 51 20 | IAO | IEQ |
|0000b970| 20 20 20 20 49 45 48 0a | 43 09 20 20 20 20 20 20 | IEH.|C. |
|0000b980| 20 20 20 20 20 20 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -|--------|
|0000b990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0a |--------|-------.|
|0000b9a0| 43 09 09 09 30 20 20 20 | 20 20 20 28 30 29 20 20 |C...0 | (0) |
|0000b9b0| 20 20 20 28 30 29 0a 43 | 09 09 09 31 09 31 20 20 | (0).C|...1.1 |
|0000b9c0| 20 20 20 20 28 84 31 29 | 0a 43 09 09 09 32 20 20 | (.1)|.C...2 |
|0000b9d0| 20 20 20 20 28 30 29 20 | 20 20 20 20 28 30 20 4f | (0) | (0 O|
|0000b9e0| 52 20 3e 31 29 0a 43 09 | 20 20 20 20 20 20 20 20 |R >1).C.| |
|0000b9f0| 20 20 20 20 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | ---|--------|
|0000ba00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0a 43 0a |--------|-----.C.|
|0000ba10| 43 20 20 20 20 20 49 46 | 20 55 4e 41 43 43 45 50 |C IF| UNACCEP|
|0000ba20| 54 41 42 4c 45 20 56 41 | 4c 55 45 53 20 41 52 45 |TABLE VA|LUES ARE|
|0000ba30| 20 46 4f 55 4e 44 2c 20 | 45 49 54 48 45 52 20 54 | FOUND, |EITHER T|
|0000ba40| 48 45 59 20 57 49 4c 4c | 20 42 45 20 43 4f 52 52 |HEY WILL| BE CORR|
|0000ba50| 45 43 54 45 44 0a 43 20 | 20 20 20 20 20 4f 52 20 |ECTED.C | OR |
|0000ba60| 45 58 45 43 55 54 49 4f | 4e 20 4f 46 20 54 48 45 |EXECUTIO|N OF THE|
|0000ba70| 20 50 52 4f 47 52 41 4d | 20 57 49 4c 4c 20 42 45 | PROGRAM| WILL BE|
|0000ba80| 20 54 45 52 4d 49 4e 41 | 54 45 44 0a 43 0a 20 20 | TERMINA|TED.C. |
|0000ba90| 20 20 20 20 49 46 28 49 | 41 4f 2e 45 51 2e 30 29 | IF(I|AO.EQ.0)|
|0000baa0| 20 54 48 45 4e 0a 20 20 | 20 20 20 20 20 20 49 46 | THEN. | IF|
|0000bab0| 28 58 28 33 2c 4a 29 2e | 47 54 2e 5a 45 52 4f 2e |(X(3,J).|GT.ZERO.|
|0000bac0| 4f 52 2e 58 28 34 2c 4a | 29 2e 47 54 2e 5a 45 52 |OR.X(4,J|).GT.ZER|
|0000bad0| 4f 2e 4f 52 2e 58 28 35 | 2c 4a 29 2e 47 54 2e 5a |O.OR.X(5|,J).GT.Z|
|0000bae0| 45 52 4f 2e 4f 52 2e 0a | 20 20 20 20 20 26 20 20 |ERO.OR..| & |
|0000baf0| 58 28 36 2c 4a 29 2e 47 | 54 2e 5a 45 52 4f 2e 4f |X(6,J).G|T.ZERO.O|
|0000bb00| 52 2e 58 28 37 2c 4a 29 | 2e 4e 45 2e 5a 45 52 4f |R.X(7,J)|.NE.ZERO|
|0000bb10| 29 20 54 48 45 4e 0a 20 | 20 20 20 20 20 20 20 20 |) THEN. | |
|0000bb20| 20 49 46 28 58 28 38 2c | 4a 29 2e 4c 54 2e 4f 4e | IF(X(8,|J).LT.ON|
|0000bb30| 45 29 20 54 48 45 4e 0a | 09 20 20 20 20 57 52 49 |E) THEN.|. WRI|
|0000bb40| 54 45 28 39 2c 31 30 31 | 30 29 20 4a 20 0a 31 30 |TE(9,101|0) J .10|
|0000bb50| 31 30 20 20 46 4f 52 4d | 41 54 28 0a 20 20 20 20 |10 FORM|AT(. |
|0000bb60| 20 26 31 58 2c 27 46 4f | 52 20 44 41 54 41 20 50 | &1X,'FO|R DATA P|
|0000bb70| 4f 49 4e 54 27 2c 49 33 | 2c 27 3a 27 2f 0a 20 20 |OINT',I3|,':'/. |
|0000bb80| 20 20 20 26 33 58 2c 27 | 54 48 45 20 41 51 2e 50 | &3X,'|THE AQ.P|
|0000bb90| 48 41 53 45 20 49 53 20 | 41 42 53 45 4e 54 20 41 |HASE IS |ABSENT A|
|0000bba0| 4e 44 20 41 51 55 45 4f | 55 53 20 52 45 41 43 54 |ND AQUEO|US REACT|
|0000bbb0| 41 4e 54 53 27 2c 0a 20 | 20 20 20 20 26 27 20 41 |ANTS',. | &' A|
|0000bbc0| 52 45 20 50 52 45 53 45 | 4e 54 3b 27 2f 0a 20 20 |RE PRESE|NT;'/. |
|0000bbd0| 20 20 20 26 33 58 2c 27 | 48 45 4e 43 45 2c 20 41 | &3X,'|HENCE, A|
|0000bbe0| 20 57 41 54 45 52 20 41 | 43 54 49 56 49 54 59 20 | WATER A|CTIVITY |
|0000bbf0| 4f 46 20 55 4e 49 54 59 | 20 53 48 4f 55 4c 44 20 |OF UNITY| SHOULD |
|0000bc00| 42 45 20 41 53 53 49 47 | 4e 45 44 27 29 0a 20 20 |BE ASSIG|NED'). |
|0000bc10| 20 20 20 20 20 20 20 20 | 20 20 50 41 55 53 45 0a | | PAUSE.|
|0000bc20| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 54 4f 50 | | STOP|
|0000bc30| 0a 20 20 20 20 20 20 20 | 20 20 20 45 4e 44 20 49 |. | END I|
|0000bc40| 46 0a 20 20 20 20 20 20 | 20 20 45 4e 44 20 49 46 |F. | END IF|
|0000bc50| 0a 20 20 20 20 20 20 45 | 4e 44 20 49 46 0a 20 20 |. E|ND IF. |
|0000bc60| 20 20 20 20 49 46 28 49 | 59 2e 45 51 2e 34 30 2e | IF(I|Y.EQ.40.|
|0000bc70| 41 4e 44 2e 49 41 4f 2e | 4e 45 2e 30 29 20 54 48 |AND.IAO.|NE.0) TH|
|0000bc80| 45 4e 0a 20 20 20 20 20 | 20 20 20 57 52 49 54 45 |EN. | WRITE|
|0000bc90| 28 39 2c 31 30 31 31 29 | 20 4a 20 0a 31 30 31 31 |(9,1011)| J .1011|
|0000bca0| 20 20 46 4f 52 4d 41 54 | 28 2f 0a 20 20 20 20 20 | FORMAT|(/. |
|0000bcb0| 26 31 58 2c 27 46 4f 52 | 20 44 41 54 41 20 50 4f |&1X,'FOR| DATA PO|
|0000bcc0| 49 4e 54 27 2c 49 33 2c | 27 3a 27 2f 0a 20 20 20 |INT',I3,|':'/. |
|0000bcd0| 20 20 26 33 58 2c 27 54 | 48 45 20 41 51 2e 50 48 | &3X,'T|HE AQ.PH|
|0000bce0| 41 53 45 20 49 53 20 41 | 53 53 55 4d 45 44 20 41 |ASE IS A|SSUMED A|
|0000bcf0| 42 53 45 4e 54 27 2f 29 | 0a 09 50 41 55 53 45 0a |BSENT'/)|..PAUSE.|
|0000bd00| 20 20 20 20 20 20 20 20 | 49 41 4f 3d 30 0a 20 20 | |IAO=0. |
|0000bd10| 20 20 20 20 45 4e 44 20 | 49 46 0a 20 20 20 20 20 | END |IF. |
|0000bd20| 20 49 46 28 49 59 2e 45 | 51 2e 34 31 2e 41 4e 44 | IF(IY.E|Q.41.AND|
|0000bd30| 2e 49 41 4f 2e 4e 45 2e | 31 29 20 54 48 45 4e 0a |.IAO.NE.|1) THEN.|
|0000bd40| 20 20 20 20 20 20 20 20 | 57 52 49 54 45 28 39 2c | |WRITE(9,|
|0000bd50| 31 30 31 32 29 20 4a 0a | 31 30 31 32 20 20 46 4f |1012) J.|1012 FO|
|0000bd60| 52 4d 41 54 28 2f 0a 20 | 20 20 20 20 26 31 58 2c |RMAT(/. | &1X,|
|0000bd70| 27 46 4f 52 20 44 41 54 | 41 20 50 4f 49 4e 54 27 |'FOR DAT|A POINT'|
|0000bd80| 2c 49 33 2c 27 3a 27 2f | 0a 20 20 20 20 20 26 33 |,I3,':'/|. &3|
|0000bd90| 58 2c 27 42 4f 54 48 20 | 50 48 41 53 45 53 20 41 |X,'BOTH |PHASES A|
|0000bda0| 52 45 20 41 53 53 55 4d | 45 44 20 50 52 45 53 45 |RE ASSUM|ED PRESE|
|0000bdb0| 4e 54 27 2f 29 0a 09 50 | 41 55 53 45 0a 20 20 20 |NT'/)..P|AUSE. |
|0000bdc0| 20 20 20 20 20 49 41 4f | 3d 31 0a 20 20 20 20 20 | IAO|=1. |
|0000bdd0| 20 45 4e 44 20 49 46 0a | 20 20 20 20 20 20 49 46 | END IF.| IF|
|0000bde0| 28 49 41 4f 2e 45 51 2e | 30 29 20 54 48 45 4e 0a |(IAO.EQ.|0) THEN.|
|0000bdf0| 43 20 20 20 20 20 20 4e | 4f 20 41 51 55 45 4f 55 |C N|O AQUEOU|
|0000be00| 53 20 50 48 41 53 45 20 | 49 53 20 50 52 45 53 45 |S PHASE |IS PRESE|
|0000be10| 4e 54 2e 20 41 4e 20 49 | 4e 46 49 4e 49 54 45 53 |NT. AN I|NFINITES|
|0000be20| 49 4d 41 4c 20 41 4d 4f | 55 4e 54 0a 43 20 20 20 |IMAL AMO|UNT.C |
|0000be30| 20 20 20 20 4f 46 20 50 | 55 52 45 20 57 41 54 45 | OF P|URE WATE|
|0000be40| 52 20 57 49 4c 4c 20 42 | 45 20 41 53 53 55 4d 45 |R WILL B|E ASSUME|
|0000be50| 44 20 54 4f 20 42 45 20 | 45 51 55 49 4c 49 42 52 |D TO BE |EQUILIBR|
|0000be60| 41 54 45 44 20 57 49 54 | 48 20 54 48 45 2e 20 0a |ATED WIT|H THE. .|
|0000be70| 43 20 20 20 20 20 20 20 | 4e 4f 4e 41 51 55 45 4f |C |NONAQUEO|
|0000be80| 55 53 20 50 48 41 53 45 | 0a 20 20 20 20 20 20 20 |US PHASE|. |
|0000be90| 20 49 45 51 3d 30 20 0a | 09 49 45 48 3d 30 0a 09 | IEQ=0 .|.IEH=0..|
|0000bea0| 58 28 37 2c 4a 29 3d 5a | 45 52 4f 0a 20 20 20 20 |X(7,J)=Z|ERO. |
|0000beb0| 20 20 45 4e 44 20 49 46 | 0a 20 20 20 20 20 20 49 | END IF|. I|
|0000bec0| 46 28 49 41 4f 2e 45 51 | 2e 31 29 20 54 48 45 4e |F(IAO.EQ|.1) THEN|
|0000bed0| 0a 43 20 20 20 20 20 20 | 42 4f 54 48 20 50 48 41 |.C |BOTH PHA|
|0000bee0| 53 45 53 20 41 52 45 20 | 50 52 45 53 45 4e 54 0a |SES ARE |PRESENT.|
|0000bef0| 20 20 20 20 20 20 20 20 | 49 46 28 49 45 51 2e 45 | |IF(IEQ.E|
|0000bf00| 51 2e 31 2e 41 4e 44 2e | 49 45 48 2e 45 51 2e 30 |Q.1.AND.|IEH.EQ.0|
|0000bf10| 29 20 54 48 45 4e 0a 20 | 20 20 20 20 20 20 20 20 |) THEN. | |
|0000bf20| 20 57 52 49 54 45 28 39 | 2c 31 30 31 34 29 20 4a | WRITE(9|,1014) J|
|0000bf30| 0a 31 30 31 34 20 20 46 | 4f 52 4d 41 54 28 2f 0a |.1014 F|ORMAT(/.|
|0000bf40| 20 20 20 20 20 26 31 58 | 2c 27 46 4f 52 20 50 4f | &1X|,'FOR PO|
|0000bf50| 49 4e 54 20 4e 4f 2e 27 | 2c 49 33 2c 27 3a 27 2f |INT NO.'|,I3,':'/|
|0000bf60| 0a 20 20 20 20 20 26 33 | 58 2c 27 57 49 54 48 20 |. &3|X,'WITH |
|0000bf70| 42 4f 54 48 20 50 48 41 | 53 45 53 20 50 52 45 53 |BOTH PHA|SES PRES|
|0000bf80| 45 4e 54 2c 20 49 46 20 | 54 48 45 20 45 51 55 49 |ENT, IF |THE EQUI|
|0000bf90| 4c 49 42 52 49 55 4d 20 | 43 4f 4e 43 4e 53 2e 20 |LIBRIUM |CONCNS. |
|0000bfa0| 4f 46 20 27 2f 0a 20 20 | 20 20 20 26 31 58 2c 27 |OF '/. | &1X,'|
|0000bfb0| 54 48 45 20 4f 54 48 45 | 52 20 41 51 2e 43 4f 4d |THE OTHE|R AQ.COM|
|0000bfc0| 50 4f 4e 45 4e 54 53 20 | 41 52 45 20 53 50 45 43 |PONENTS |ARE SPEC|
|0000bfd0| 49 46 49 45 44 2c 20 54 | 48 45 4e 20 45 49 54 48 |IFIED, T|HEN EITH|
|0000bfe0| 45 52 20 54 48 45 20 27 | 2f 0a 20 20 20 20 20 26 |ER THE '|/. &|
|0000bff0| 31 58 2c 27 45 51 55 49 | 4c 2e 20 43 4f 4e 43 4e |1X,'EQUI|L. CONCN|
|0000c000| 2e 20 4f 46 20 54 4f 54 | 41 4c 20 41 43 49 44 20 |. OF TOT|AL ACID |
|0000c010| 4f 52 20 42 41 53 45 2c | 20 4f 52 20 54 48 45 20 |OR BASE,| OR THE |
|0000c020| 45 51 55 49 4c 2e 20 43 | 4f 4e 43 4e 2e 20 27 2f |EQUIL. C|ONCN. '/|
|0000c030| 0a 20 20 20 20 20 26 31 | 58 2c 27 4f 46 20 48 2b |. &1|X,'OF H+|
|0000c040| 20 4d 55 53 54 20 42 45 | 20 53 50 45 43 49 46 49 | MUST BE| SPECIFI|
|0000c050| 45 44 2e 27 29 0a 20 20 | 20 20 20 20 20 20 20 20 |ED.'). | |
|0000c060| 50 41 55 53 45 0a 20 20 | 20 20 20 20 20 20 20 20 |PAUSE. | |
|0000c070| 53 54 4f 50 0a 20 20 20 | 20 20 20 20 20 45 4e 44 |STOP. | END|
|0000c080| 20 49 46 0a 20 20 20 20 | 20 20 45 4e 44 20 49 46 | IF. | END IF|
|0000c090| 0a 20 20 20 20 20 20 49 | 46 28 49 41 4f 2e 45 51 |. I|F(IAO.EQ|
|0000c0a0| 2e 32 29 20 54 48 45 4e | 0a 43 20 20 20 20 20 20 |.2) THEN|.C |
|0000c0b0| 4e 4f 20 4e 4f 4e 41 51 | 55 45 4f 55 53 20 50 48 |NO NONAQ|UEOUS PH|
|0000c0c0| 41 53 45 20 49 53 20 50 | 52 45 53 45 4e 54 2e 0a |ASE IS P|RESENT..|
|0000c0d0| 20 20 20 20 20 20 20 20 | 49 45 51 3d 30 20 0a 20 | |IEQ=0 . |
|0000c0e0| 20 20 20 20 20 20 20 49 | 46 28 49 45 48 2e 45 51 | I|F(IEH.EQ|
|0000c0f0| 2e 31 29 20 54 48 45 4e | 0a 20 20 20 20 20 20 20 |.1) THEN|. |
|0000c100| 20 20 20 57 52 49 54 45 | 28 39 2c 31 30 31 35 29 | WRITE|(9,1015)|
|0000c110| 20 4a 0a 31 30 31 35 20 | 20 46 4f 52 4d 41 54 28 | J.1015 | FORMAT(|
|0000c120| 2f 0a 20 20 20 20 20 26 | 31 58 2c 27 46 4f 52 20 |/. &|1X,'FOR |
|0000c130| 50 4f 49 4e 54 20 4e 4f | 2e 27 2c 49 33 2c 27 3a |POINT NO|.',I3,':|
|0000c140| 27 2f 0a 20 20 20 20 20 | 26 33 58 2c 27 57 49 54 |'/. |&3X,'WIT|
|0000c150| 48 20 4f 4e 4c 59 20 54 | 48 45 20 41 51 2e 20 50 |H ONLY T|HE AQ. P|
|0000c160| 48 41 53 45 20 50 52 45 | 53 45 4e 54 2c 20 54 48 |HASE PRE|SENT, TH|
|0000c170| 45 20 49 4e 49 54 49 41 | 4c 20 43 4f 4e 43 4e 53 |E INITIA|L CONCNS|
|0000c180| 2e 20 4f 46 20 27 2f 20 | 20 20 20 20 09 09 09 09 |. OF '/ | ....|
|0000c190| 09 09 09 09 09 0a 20 20 | 20 20 20 26 31 58 2c 27 |...... | &1X,'|
|0000c1a0| 54 48 45 20 4f 54 48 45 | 52 20 41 51 2e 43 4f 4d |THE OTHE|R AQ.COM|
|0000c1b0| 50 4f 4e 45 4e 54 53 20 | 4d 55 53 54 20 42 45 20 |PONENTS |MUST BE |
|0000c1c0| 53 50 45 43 49 46 49 45 | 44 2c 20 41 4e 44 20 45 |SPECIFIE|D, AND E|
|0000c1d0| 49 54 48 45 52 20 54 48 | 45 20 27 2f 0a 20 20 20 |ITHER TH|E '/. |
|0000c1e0| 20 20 26 31 58 2c 27 49 | 4e 49 54 49 41 4c 20 43 | &1X,'I|NITIAL C|
|0000c1f0| 4f 4e 43 4e 2e 20 4f 46 | 20 54 4f 54 41 4c 20 41 |ONCN. OF| TOTAL A|
|0000c200| 43 49 44 20 4f 52 20 42 | 41 53 45 2c 20 4f 52 20 |CID OR B|ASE, OR |
|0000c210| 54 48 45 20 45 51 55 49 | 4c 2e 20 43 4f 4e 43 4e |THE EQUI|L. CONCN|
|0000c220| 2e 20 27 2f 0a 20 20 20 | 20 20 26 31 58 2c 27 4f |. '/. | &1X,'O|
|0000c230| 46 20 48 2b 20 4d 55 53 | 54 20 42 45 20 53 50 45 |F H+ MUS|T BE SPE|
|0000c240| 43 49 46 49 45 44 2e 27 | 29 0a 20 20 20 20 20 20 |CIFIED.'|). |
|0000c250| 20 20 20 20 50 41 55 53 | 45 0a 20 20 20 20 20 20 | PAUS|E. |
|0000c260| 20 20 20 20 53 54 4f 50 | 0a 20 20 20 20 20 20 20 | STOP|. |
|0000c270| 20 45 4e 44 20 49 46 0a | 20 20 20 20 20 20 45 4e | END IF.| EN|
|0000c280| 44 20 49 46 0a 43 20 20 | 49 46 20 45 51 55 49 4c |D IF.C |IF EQUIL|
|0000c290| 49 42 52 49 55 4d 20 41 | 51 2e 20 43 4f 4d 50 4e |IBRIUM A|Q. COMPN|
|0000c2a0| 2e 20 49 53 20 53 50 45 | 43 49 46 49 45 44 2c 20 |. IS SPE|CIFIED, |
|0000c2b0| 41 51 2e 20 50 52 4f 44 | 2e 20 53 50 45 43 49 45 |AQ. PROD|. SPECIE|
|0000c2c0| 53 20 49 4e 56 4f 4c 56 | 49 4e 47 0a 43 20 20 20 |S INVOLV|ING.C |
|0000c2d0| 41 20 4f 52 20 42 20 41 | 52 45 20 4e 4f 54 20 50 |A OR B A|RE NOT P|
|0000c2e0| 45 52 4d 49 54 54 45 44 | 0a 20 20 20 20 20 20 49 |ERMITTED|. I|
|0000c2f0| 46 28 49 45 51 2e 45 51 | 2e 31 2e 41 4e 44 2e 4e |F(IEQ.EQ|.1.AND.N|
|0000c300| 53 41 2e 47 54 2e 30 29 | 20 54 48 45 4e 0a 20 20 |SA.GT.0)| THEN. |
|0000c310| 20 20 20 20 20 20 44 4f | 20 31 35 20 49 3d 31 2c | DO| 15 I=1,|
|0000c320| 4e 53 41 0a 20 20 20 20 | 20 20 20 20 49 46 28 4e |NSA. | IF(N|
|0000c330| 43 41 50 28 33 2c 49 29 | 2e 47 54 2e 30 2e 4f 52 |CAP(3,I)|.GT.0.OR|
|0000c340| 2e 4e 43 41 50 28 34 2c | 49 29 2e 47 54 2e 30 29 |.NCAP(4,|I).GT.0)|
|0000c350| 20 54 48 45 4e 0a 09 20 | 20 57 52 49 54 45 28 39 | THEN.. | WRITE(9|
|0000c360| 2c 31 30 31 36 29 20 4a | 0a 31 30 31 36 20 20 46 |,1016) J|.1016 F|
|0000c370| 4f 52 4d 41 54 28 2f 0a | 20 20 20 20 20 26 31 58 |ORMAT(/.| &1X|
|0000c380| 2c 27 46 4f 52 20 50 4f | 49 4e 54 20 4e 4f 2e 27 |,'FOR PO|INT NO.'|
|0000c390| 2c 49 33 2c 27 3a 27 2f | 0a 20 20 20 20 20 26 33 |,I3,':'/|. &3|
|0000c3a0| 58 2c 27 49 46 20 54 48 | 45 20 45 51 55 49 4c 49 |X,'IF TH|E EQUILI|
|0000c3b0| 42 52 49 55 4d 20 41 51 | 55 45 4f 55 53 20 43 4f |BRIUM AQ|UEOUS CO|
|0000c3c0| 4d 50 4f 53 49 54 49 4f | 4e 20 49 53 20 53 50 45 |MPOSITIO|N IS SPE|
|0000c3d0| 43 49 46 49 45 44 2c 20 | 54 48 45 4e 20 27 2f 0a |CIFIED, |THEN '/.|
|0000c3e0| 20 20 20 20 20 26 31 58 | 2c 27 4e 4f 20 41 51 2e | &1X|,'NO AQ.|
|0000c3f0| 20 50 52 4f 44 55 43 54 | 20 53 50 45 43 49 45 53 | PRODUCT| SPECIES|
|0000c400| 20 49 4e 56 4f 4c 56 49 | 4e 47 20 41 20 4f 52 20 | INVOLVI|NG A OR |
|0000c410| 42 20 49 53 20 50 45 52 | 4d 49 54 54 45 44 27 29 |B IS PER|MITTED')|
|0000c420| 0a 20 20 20 20 20 20 20 | 20 20 20 50 41 55 53 45 |. | PAUSE|
|0000c430| 0a 20 20 20 20 20 20 20 | 20 20 20 53 54 4f 50 0a |. | STOP.|
|0000c440| 20 20 20 20 20 20 20 20 | 45 4e 44 20 49 46 0a 31 | |END IF.1|
|0000c450| 35 20 20 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a |5 C|ONTINUE.|
|0000c460| 20 20 20 20 20 20 45 4e | 44 20 49 46 0a 20 20 20 | EN|D IF. |
|0000c470| 20 20 20 4e 49 44 54 28 | 4a 29 3d 49 43 4e 2b 49 | NIDT(|J)=ICN+I|
|0000c480| 54 31 2a 49 45 48 2b 49 | 54 32 2a 49 45 51 2b 49 |T1*IEH+I|T2*IEQ+I|
|0000c490| 41 4f 2a 49 54 33 2b 49 | 54 34 2a 49 59 0a 20 20 |AO*IT3+I|T4*IY. |
|0000c4a0| 20 20 20 20 49 46 28 4e | 49 44 54 28 4a 29 2e 4e | IF(N|IDT(J).N|
|0000c4b0| 45 2e 4e 53 56 45 29 20 | 54 48 45 4e 0a 20 20 20 |E.NSVE) |THEN. |
|0000c4c0| 20 20 20 20 20 49 46 28 | 4e 53 56 45 2e 4c 54 2e | IF(|NSVE.LT.|
|0000c4d0| 31 30 30 30 30 30 29 20 | 57 52 49 54 45 28 39 2c |100000) |WRITE(9,|
|0000c4e0| 31 30 31 37 29 20 4a 2c | 4e 53 56 45 2c 4e 49 44 |1017) J,|NSVE,NID|
|0000c4f0| 54 28 4a 29 0a 31 30 31 | 37 20 20 46 4f 52 4d 41 |T(J).101|7 FORMA|
|0000c500| 54 28 2f 0a 20 20 20 20 | 20 26 31 58 2c 27 46 4f |T(/. | &1X,'FO|
|0000c510| 52 20 44 41 54 41 20 50 | 4f 49 4e 54 27 2c 49 33 |R DATA P|OINT',I3|
|0000c520| 2c 27 3a 27 2f 0a 20 20 | 20 20 20 26 33 58 2c 27 |,':'/. | &3X,'|
|0000c530| 54 48 45 20 49 4e 49 54 | 49 41 4c 20 45 4e 54 52 |THE INIT|IAL ENTR|
|0000c540| 59 20 48 41 53 20 42 45 | 45 4e 20 43 48 41 4e 47 |Y HAS BE|EN CHANG|
|0000c550| 45 44 20 46 52 4f 4d 20 | 30 27 2c 49 35 2c 27 20 |ED FROM |0',I5,' |
|0000c560| 54 4f 20 30 27 2c 49 35 | 2f 29 0a 20 20 20 20 20 |TO 0',I5|/). |
|0000c570| 20 20 20 49 46 28 4e 53 | 56 45 2e 47 45 2e 31 30 | IF(NS|VE.GE.10|
|0000c580| 30 30 30 30 29 20 57 52 | 49 54 45 28 39 2c 31 30 |0000) WR|ITE(9,10|
|0000c590| 31 38 29 20 4a 2c 4e 53 | 56 45 2c 4e 49 44 54 28 |18) J,NS|VE,NIDT(|
|0000c5a0| 4a 29 0a 31 30 31 38 20 | 20 46 4f 52 4d 41 54 28 |J).1018 | FORMAT(|
|0000c5b0| 2f 0a 20 20 20 20 20 26 | 31 58 2c 27 46 4f 52 20 |/. &|1X,'FOR |
|0000c5c0| 44 41 54 41 20 50 4f 49 | 4e 54 27 2c 49 33 2c 27 |DATA POI|NT',I3,'|
|0000c5d0| 3a 27 2f 0a 20 20 20 20 | 20 26 33 58 2c 27 54 48 |:'/. | &3X,'TH|
|0000c5e0| 45 20 49 4e 49 54 49 41 | 4c 20 45 4e 54 52 59 20 |E INITIA|L ENTRY |
|0000c5f0| 48 41 53 20 42 45 45 4e | 20 43 48 41 4e 47 45 44 |HAS BEEN| CHANGED|
|0000c600| 20 46 52 4f 4d 20 27 2c | 49 36 2c 27 20 54 4f 20 | FROM ',|I6,' TO |
|0000c610| 27 2c 49 36 2f 29 0a 20 | 20 20 20 20 20 20 20 50 |',I6/). | P|
|0000c620| 41 55 53 45 0a 20 20 20 | 20 20 20 45 4e 44 20 49 |AUSE. | END I|
|0000c630| 46 0a 43 0a 20 20 20 20 | 20 20 49 46 28 49 45 48 |F.C. | IF(IEH|
|0000c640| 2e 4c 45 2e 31 2e 41 4e | 44 2e 49 41 4f 2e 4e 45 |.LE.1.AN|D.IAO.NE|
|0000c650| 2e 30 29 20 54 48 45 4e | 0a 43 20 20 20 20 20 20 |.0) THEN|.C |
|0000c660| 45 53 54 41 42 4c 49 53 | 48 20 43 48 41 52 47 45 |ESTABLIS|H CHARGE|
|0000c670| 20 42 41 4c 41 4e 43 45 | 20 49 4e 20 54 48 45 20 | BALANCE| IN THE |
|0000c680| 41 51 55 45 4f 55 53 20 | 50 48 41 53 45 20 42 59 |AQUEOUS |PHASE BY|
|0000c690| 20 41 44 4a 55 53 54 49 | 4e 47 20 41 4e 49 4f 4e | ADJUSTI|NG ANION|
|0000c6a0| 0a 43 20 20 20 20 20 20 | 20 43 4f 4e 43 45 4e 54 |.C | CONCENT|
|0000c6b0| 52 41 54 49 4f 4e 53 0a | 20 20 20 20 20 20 20 20 |RATIONS.| |
|0000c6c0| 49 46 28 4e 5a 41 28 34 | 29 2e 45 51 2e 30 29 20 |IF(NZA(4|).EQ.0) |
|0000c6d0| 58 28 35 2c 4a 29 3d 5a | 45 52 4f 0a 20 20 20 20 |X(5,J)=Z|ERO. |
|0000c6e0| 20 20 20 20 49 46 28 4e | 5a 41 28 35 29 2e 45 51 | IF(N|ZA(5).EQ|
|0000c6f0| 2e 30 29 20 58 28 36 2c | 4a 29 3d 5a 45 52 4f 0a |.0) X(6,|J)=ZERO.|
|0000c700| 20 20 20 20 20 20 20 20 | 49 46 28 4e 5a 41 28 36 | |IF(NZA(6|
|0000c710| 29 2e 45 51 2e 30 2e 41 | 4e 44 2e 58 28 37 2c 4a |).EQ.0.A|ND.X(7,J|
|0000c720| 29 2e 4c 54 2e 5a 45 52 | 4f 29 20 58 28 37 2c 4a |).LT.ZER|O) X(7,J|
|0000c730| 29 3d 5a 45 52 4f 0a 09 | 58 41 44 4a 3d 4f 4e 45 |)=ZERO..|XADJ=ONE|
|0000c740| 0a 32 30 20 20 20 20 20 | 20 46 43 42 3d 58 28 33 |.20 | FCB=X(3|
|0000c750| 2c 4a 29 2a 4e 5a 41 28 | 31 29 2b 58 28 34 2c 4a |,J)*NZA(|1)+X(4,J|
|0000c760| 29 2a 4e 5a 41 28 32 29 | 2d 58 28 35 2c 4a 29 2a |)*NZA(2)|-X(5,J)*|
|0000c770| 4e 5a 41 28 34 29 2d 0a | 20 20 20 20 20 26 20 20 |NZA(4)-.| & |
|0000c780| 58 28 36 2c 4a 29 2a 4e | 5a 41 28 35 29 2b 58 28 |X(6,J)*N|ZA(5)+X(|
|0000c790| 37 2c 4a 29 0a 20 20 20 | 20 20 20 20 20 49 46 28 |7,J). | IF(|
|0000c7a0| 44 41 42 53 28 46 43 42 | 29 2e 47 45 2e 46 4d 49 |DABS(FCB|).GE.FMI|
|0000c7b0| 4e 29 20 54 48 45 4e 0a | 20 20 20 20 20 20 20 20 |N) THEN.| |
|0000c7c0| 20 20 57 52 49 54 45 28 | 39 2c 31 30 31 39 29 20 | WRITE(|9,1019) |
|0000c7d0| 4a 2c 4e 5a 41 28 35 29 | 2c 58 28 36 2c 4a 29 2c |J,NZA(5)|,X(6,J),|
|0000c7e0| 4e 5a 41 28 34 29 2c 58 | 28 35 2c 4a 29 2c 4e 5a |NZA(4),X|(5,J),NZ|
|0000c7f0| 41 28 36 29 2c 0a 20 20 | 20 20 20 26 20 20 20 20 |A(6),. | & |
|0000c800| 58 28 37 2c 4a 29 2c 46 | 43 42 0a 31 30 31 39 20 |X(7,J),F|CB.1019 |
|0000c810| 20 46 4f 52 4d 41 54 28 | 2f 0a 20 20 20 20 20 26 | FORMAT(|/. &|
|0000c820| 31 58 2c 27 46 4f 52 20 | 44 41 54 41 20 50 4f 49 |1X,'FOR |DATA POI|
|0000c830| 4e 54 27 2c 49 33 2c 27 | 3a 27 2f 0a 20 20 20 20 |NT',I3,'|:'/. |
|0000c840| 20 26 33 58 2c 27 49 4f | 4e 20 43 48 41 52 47 45 | &3X,'IO|N CHARGE|
|0000c850| 53 20 44 4f 20 4e 4f 54 | 20 42 41 4c 41 4e 43 45 |S DO NOT| BALANCE|
|0000c860| 2e 27 2f 0a 20 20 20 20 | 20 26 31 58 2c 27 20 20 |.'/. | &1X,' |
|0000c870| 5a 28 59 29 20 20 20 43 | 28 59 29 20 20 20 20 20 |Z(Y) C|(Y) |
|0000c880| 5a 28 58 29 20 20 20 43 | 28 58 29 20 20 20 20 5a |Z(X) C|(X) Z|
|0000c890| 28 4f 48 29 20 20 20 43 | 28 48 2f 4f 48 29 20 20 |(OH) C|(H/OH) |
|0000c8a0| 20 20 27 2c 0a 20 20 20 | 20 20 26 27 43 48 47 2e | ',. | &'CHG.|
|0000c8b0| 20 52 45 53 2e 27 2f 0a | 20 20 20 20 20 26 31 58 | RES.'/.| &1X|
|0000c8c0| 2c 32 28 49 34 2c 46 31 | 31 2e 37 2c 31 58 29 2c |,2(I4,F1|1.7,1X),|
|0000c8d0| 49 34 2c 46 31 32 2e 37 | 2c 33 58 2c 31 50 31 45 |I4,F12.7|,3X,1P1E|
|0000c8e0| 31 30 2e 32 2f 0a 20 20 | 20 20 20 26 31 58 2c 27 |10.2/. | &1X,'|
|0000c8f0| 5b 52 54 4e 5d 20 54 4f | 20 43 4f 4e 54 49 4e 55 |[RTN] TO| CONTINU|
|0000c900| 45 27 2f 29 0a 20 20 20 | 20 20 20 20 20 20 20 50 |E'/). | P|
|0000c910| 41 55 53 45 0a 20 20 20 | 20 20 20 20 20 20 20 49 |AUSE. | I|
|0000c920| 46 28 4e 5a 41 28 35 29 | 2e 4e 45 2e 5a 45 52 4f |F(NZA(5)|.NE.ZERO|
|0000c930| 2e 41 4e 44 2e 58 41 44 | 4a 2e 4e 45 2e 5a 45 52 |.AND.XAD|J.NE.ZER|
|0000c940| 4f 29 20 54 48 45 4e 0a | 43 20 20 20 20 20 20 20 |O) THEN.|C |
|0000c950| 20 20 20 59 20 49 53 20 | 50 52 45 53 45 4e 54 3a | Y IS |PRESENT:|
|0000c960| 20 41 44 4a 55 53 54 20 | 49 54 53 20 54 4f 54 41 | ADJUST |ITS TOTA|
|0000c970| 4c 20 43 4f 4e 43 2e 0a | 20 20 20 20 20 20 20 20 |L CONC..| |
|0000c980| 20 20 20 20 58 41 44 4a | 3d 58 28 36 2c 4a 29 2b | XADJ|=X(6,J)+|
|0000c990| 46 43 42 2f 4e 5a 41 28 | 35 29 0a 20 20 20 20 20 |FCB/NZA(|5). |
|0000c9a0| 20 20 20 20 20 20 20 49 | 46 28 58 41 44 4a 2e 4c | I|F(XADJ.L|
|0000c9b0| 45 2e 5a 45 52 4f 29 20 | 58 41 44 4a 3d 5a 45 52 |E.ZERO) |XADJ=ZER|
|0000c9c0| 4f 20 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 57 |O . | W|
|0000c9d0| 52 49 54 45 28 39 2c 31 | 30 32 30 29 20 58 28 36 |RITE(9,1|020) X(6|
|0000c9e0| 2c 4a 29 2c 58 41 44 4a | 0a 31 30 32 30 20 20 46 |,J),XADJ|.1020 F|
|0000c9f0| 4f 52 4d 41 54 28 2f 31 | 58 2c 27 41 44 4a 55 53 |ORMAT(/1|X,'ADJUS|
|0000ca00| 54 49 4e 47 20 43 28 59 | 29 20 46 52 4f 4d 27 2c |TING C(Y|) FROM',|
|0000ca10| 46 31 31 2e 37 2c 27 20 | 54 4f 27 2c 46 31 31 2e |F11.7,' |TO',F11.|
|0000ca20| 37 2f 0a 20 20 20 20 20 | 26 31 58 2c 27 5b 52 54 |7/. |&1X,'[RT|
|0000ca30| 4e 5d 20 54 4f 20 43 4f | 4e 54 49 4e 55 45 27 2f |N] TO CO|NTINUE'/|
|0000ca40| 29 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 50 41 |). | PA|
|0000ca50| 55 53 45 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |USE. | |
|0000ca60| 58 28 36 2c 4a 29 3d 58 | 41 44 4a 0a 20 20 20 20 |X(6,J)=X|ADJ. |
|0000ca70| 20 20 20 20 20 20 20 20 | 47 4f 54 4f 20 32 30 0a | |GOTO 20.|
|0000ca80| 20 20 20 20 20 20 20 20 | 20 20 45 4e 44 20 49 46 | | END IF|
|0000ca90| 0a 20 20 20 20 20 20 20 | 20 20 20 49 46 28 4e 5a |. | IF(NZ|
|0000caa0| 41 28 34 29 2e 4e 45 2e | 5a 45 52 4f 2e 41 4e 44 |A(4).NE.|ZERO.AND|
|0000cab0| 2e 58 41 44 4a 2e 4e 45 | 2e 5a 45 52 4f 29 20 54 |.XADJ.NE|.ZERO) T|
|0000cac0| 48 45 4e 0a 43 20 20 20 | 20 20 20 20 20 20 20 58 |HEN.C | X|
|0000cad0| 20 49 53 20 50 52 45 53 | 45 4e 54 3a 20 41 44 4a | IS PRES|ENT: ADJ|
|0000cae0| 55 53 54 20 49 54 53 20 | 54 4f 54 41 4c 20 43 4f |UST ITS |TOTAL CO|
|0000caf0| 4e 43 2e 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |NC.. | |
|0000cb00| 58 41 44 4a 3d 58 28 35 | 2c 4a 29 2b 46 43 42 2f |XADJ=X(5|,J)+FCB/|
|0000cb10| 4e 5a 41 28 34 29 0a 20 | 20 20 20 20 20 20 20 20 |NZA(4). | |
|0000cb20| 20 20 20 49 46 28 58 41 | 44 4a 2e 4c 45 2e 5a 45 | IF(XA|DJ.LE.ZE|
|0000cb30| 52 4f 29 20 58 41 44 4a | 3d 5a 45 52 4f 20 0a 20 |RO) XADJ|=ZERO . |
|0000cb40| 20 20 20 20 20 57 52 49 | 54 45 28 39 2c 31 30 32 | WRI|TE(9,102|
|0000cb50| 31 29 20 58 28 35 2c 4a | 29 2c 58 41 44 4a 0a 31 |1) X(5,J|),XADJ.1|
|0000cb60| 30 32 31 20 20 46 4f 52 | 4d 41 54 28 2f 31 58 2c |021 FOR|MAT(/1X,|
|0000cb70| 27 41 44 4a 55 53 54 49 | 4e 47 20 43 28 58 29 20 |'ADJUSTI|NG C(X) |
|0000cb80| 46 52 4f 4d 27 2c 46 31 | 31 2e 37 2c 27 20 54 4f |FROM',F1|1.7,' TO|
|0000cb90| 27 2c 46 31 31 2e 37 2f | 0a 20 20 20 20 20 26 31 |',F11.7/|. &1|
|0000cba0| 58 2c 27 5b 52 54 4e 5d | 20 54 4f 20 43 4f 4e 54 |X,'[RTN]| TO CONT|
|0000cbb0| 49 4e 55 45 27 2f 29 0a | 20 20 20 20 20 20 20 20 |INUE'/).| |
|0000cbc0| 20 20 20 20 50 41 55 53 | 45 0a 20 20 20 20 20 20 | PAUS|E. |
|0000cbd0| 20 20 20 20 20 20 58 28 | 35 2c 4a 29 3d 58 41 44 | X(|5,J)=XAD|
|0000cbe0| 4a 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 47 4f |J. | GO|
|0000cbf0| 54 4f 20 32 30 0a 20 20 | 20 20 20 20 20 20 20 20 |TO 20. | |
|0000cc00| 45 4e 44 20 49 46 0a 20 | 20 20 20 20 20 20 20 20 |END IF. | |
|0000cc10| 20 49 46 28 58 28 37 2c | 4a 29 2e 4c 54 2e 5a 45 | IF(X(7,|J).LT.ZE|
|0000cc20| 52 4f 2e 41 4e 44 2e 58 | 41 44 4a 2e 4e 45 2e 5a |RO.AND.X|ADJ.NE.Z|
|0000cc30| 45 52 4f 29 20 54 48 45 | 4e 0a 43 20 20 20 20 20 |ERO) THE|N.C |
|0000cc40| 20 20 20 20 20 41 44 4a | 55 53 54 20 54 4f 54 41 | ADJ|UST TOTA|
|0000cc50| 4c 20 43 4f 4e 43 2e 20 | 4f 46 20 4f 48 2d 0a 20 |L CONC. |OF OH-. |
|0000cc60| 20 20 20 20 20 20 20 20 | 20 20 20 58 41 44 4a 3d | | XADJ=|
|0000cc70| 58 28 37 2c 4a 29 2d 46 | 43 42 0a 20 20 20 20 20 |X(7,J)-F|CB. |
|0000cc80| 20 20 20 20 20 20 20 49 | 46 28 58 41 44 4a 2e 47 | I|F(XADJ.G|
|0000cc90| 45 2e 5a 45 52 4f 29 20 | 58 41 44 4a 3d 5a 45 52 |E.ZERO) |XADJ=ZER|
|0000cca0| 4f 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 43 4e |O. | CN|
|0000ccb0| 4f 48 3d 2d 58 28 37 2c | 4a 29 0a 20 20 20 20 20 |OH=-X(7,|J). |
|0000ccc0| 20 20 20 20 20 20 20 43 | 4e 4f 48 52 3d 2d 58 41 | C|NOHR=-XA|
|0000ccd0| 44 4a 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 57 |DJ. | W|
|0000cce0| 52 49 54 45 28 39 2c 31 | 30 32 32 29 20 43 4e 4f |RITE(9,1|022) CNO|
|0000ccf0| 48 2c 43 4e 4f 48 52 0a | 31 30 32 32 20 20 46 4f |H,CNOHR.|1022 FO|
|0000cd00| 52 4d 41 54 28 2f 31 58 | 2c 27 41 44 4a 55 53 54 |RMAT(/1X|,'ADJUST|
|0000cd10| 49 4e 47 20 43 28 4f 48 | 29 20 46 52 4f 4d 27 2c |ING C(OH|) FROM',|
|0000cd20| 46 31 31 2e 37 2c 27 20 | 54 4f 27 2c 46 31 31 2e |F11.7,' |TO',F11.|
|0000cd30| 37 2f 0a 20 20 20 20 20 | 26 31 58 2c 27 5b 52 54 |7/. |&1X,'[RT|
|0000cd40| 4e 5d 20 54 4f 20 43 4f | 4e 54 49 4e 55 45 27 2f |N] TO CO|NTINUE'/|
|0000cd50| 29 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 50 41 |). | PA|
|0000cd60| 55 53 45 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |USE. | |
|0000cd70| 58 28 37 2c 4a 29 3d 58 | 41 44 4a 0a 20 20 20 20 |X(7,J)=X|ADJ. |
|0000cd80| 20 20 20 20 20 20 20 20 | 47 4f 54 4f 20 32 30 0a | |GOTO 20.|
|0000cd90| 20 20 20 20 20 20 20 20 | 20 20 45 4e 44 20 49 46 | | END IF|
|0000cda0| 0a 20 20 20 20 20 20 20 | 20 20 20 57 52 49 54 45 |. | WRITE|
|0000cdb0| 28 39 2c 31 30 32 33 29 | 20 4a 0a 31 30 32 33 20 |(9,1023)| J.1023 |
|0000cdc0| 20 46 4f 52 4d 41 54 28 | 2f 31 58 2c 27 41 51 2e | FORMAT(|/1X,'AQ.|
|0000cdd0| 49 4f 4e 20 43 48 41 52 | 47 45 20 43 41 4e 20 4e |ION CHAR|GE CAN N|
|0000cde0| 4f 54 20 42 45 20 42 41 | 4c 41 4e 43 45 44 20 46 |OT BE BA|LANCED F|
|0000cdf0| 4f 52 20 50 4f 49 4e 54 | 27 2c 0a 20 20 20 20 20 |OR POINT|',. |
|0000ce00| 26 49 34 2f 31 58 2c 27 | 5b 52 54 4e 5d 20 54 4f |&I4/1X,'|[RTN] TO|
|0000ce10| 20 43 4f 4e 54 49 4e 55 | 45 27 2f 29 0a 20 20 20 | CONTINU|E'/). |
|0000ce20| 20 20 20 20 20 20 20 50 | 41 55 53 45 0a 20 20 20 | P|AUSE. |
|0000ce30| 20 20 20 20 20 20 20 53 | 54 4f 50 0a 20 20 20 20 | S|TOP. |
|0000ce40| 20 20 20 20 45 4e 44 20 | 49 46 0a 20 20 20 20 20 | END |IF. |
|0000ce50| 20 45 4e 44 20 49 46 0a | 32 35 20 20 20 20 43 4f | END IF.|25 CO|
|0000ce60| 4e 54 49 4e 55 45 0a 43 | 0a 43 20 20 45 4e 44 20 |NTINUE.C|.C END |
|0000ce70| 52 45 41 44 49 4e 47 20 | 54 48 45 20 44 41 54 41 |READING |THE DATA|
|0000ce80| 0a 43 0a 43 20 20 43 41 | 4c 43 55 4c 41 54 45 20 |.C.C CA|LCULATE |
|0000ce90| 53 4f 4c 55 54 49 4f 4e | 20 43 4f 4d 50 4f 53 49 |SOLUTION| COMPOSI|
|0000cea0| 54 49 4f 4e 53 20 46 4f | 52 20 54 49 54 52 41 54 |TIONS FO|R TITRAT|
|0000ceb0| 49 4f 4e 20 44 41 54 41 | 0a 20 20 20 20 20 20 44 |ION DATA|. D|
|0000cec0| 4f 20 33 35 20 4a 3d 31 | 2c 4e 4f 0a 20 20 20 20 |O 35 J=1|,NO. |
|0000ced0| 20 20 4e 44 54 59 3d 4e | 49 44 54 28 4a 29 2f 49 | NDTY=N|IDT(J)/I|
|0000cee0| 54 34 0a 20 20 20 20 20 | 20 49 46 28 4e 44 54 59 |T4. | IF(NDTY|
|0000cef0| 2e 4e 45 2e 33 30 29 20 | 47 4f 54 4f 20 33 35 0a |.NE.30) |GOTO 35.|
|0000cf00| 20 20 20 20 20 20 49 46 | 28 58 28 39 2c 4a 29 2e | IF|(X(9,J).|
|0000cf10| 45 51 2e 5a 45 52 4f 29 | 20 54 48 45 4e 0a 20 20 |EQ.ZERO)| THEN. |
|0000cf20| 20 20 20 20 20 20 4a 54 | 3d 4a 0a 09 4e 4f 46 3d | JT|=J..NOF=|
|0000cf30| 4e 4f 46 2d 31 0a 20 20 | 20 20 20 20 45 4e 44 20 |NOF-1. | END |
|0000cf40| 49 46 0a 20 20 20 20 20 | 20 49 46 28 58 28 31 30 |IF. | IF(X(10|
|0000cf50| 2c 4a 29 2e 45 51 2e 5a | 45 52 4f 29 20 54 48 45 |,J).EQ.Z|ERO) THE|
|0000cf60| 4e 0a 20 20 20 20 20 20 | 20 20 4a 30 3d 4a 0a 09 |N. | J0=J..|
|0000cf70| 4e 4f 46 3d 4e 4f 46 2d | 31 0a 20 20 20 20 20 20 |NOF=NOF-|1. |
|0000cf80| 45 4e 44 20 49 46 0a 20 | 20 20 20 20 20 49 46 28 |END IF. | IF(|
|0000cf90| 4a 2e 47 54 2e 4a 30 2e | 41 4e 44 2e 4a 2e 47 54 |J.GT.J0.|AND.J.GT|
|0000cfa0| 2e 4a 54 29 20 54 48 45 | 4e 0a 20 20 20 20 20 20 |.JT) THE|N. |
|0000cfb0| 20 20 44 4f 20 33 30 20 | 49 3d 31 2c 36 0a 20 20 | DO 30 |I=1,6. |
|0000cfc0| 20 20 20 20 20 20 58 28 | 49 2c 4a 29 3d 28 58 28 | X(|I,J)=(X(|
|0000cfd0| 49 2c 4a 30 29 2a 58 28 | 39 2c 4a 29 2b 58 28 49 |I,J0)*X(|9,J)+X(I|
|0000cfe0| 2c 4a 54 29 2a 58 28 31 | 30 2c 4a 29 29 2f 28 58 |,JT)*X(1|0,J))/(X|
|0000cff0| 28 39 2c 4a 29 2b 58 28 | 31 30 2c 4a 29 29 20 20 |(9,J)+X(|10,J)) |
|0000d000| 20 20 0a 33 30 20 20 20 | 20 20 20 43 4f 4e 54 49 | .30 | CONTI|
|0000d010| 4e 55 45 0a 20 20 20 20 | 20 20 45 4e 44 20 49 46 |NUE. | END IF|
|0000d020| 0a 33 35 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a |.35 C|ONTINUE.|
|0000d030| 20 20 20 20 20 20 52 45 | 54 55 52 4e 0a 20 20 20 | RE|TURN. |
|0000d040| 20 20 20 45 4e 44 0a 43 | 0a 43 0a 43 0a 43 20 43 | END.C|.C.C.C C|
|0000d050| 41 4c 43 55 4c 41 54 45 | 20 4d 2e 57 2e 20 41 4e |ALCULATE| M.W. AN|
|0000d060| 44 20 4d 4f 4c 41 52 20 | 56 4f 4c 55 4d 45 53 20 |D MOLAR |VOLUMES |
|0000d070| 4f 46 20 50 52 4f 44 55 | 43 54 20 53 50 45 43 49 |OF PRODU|CT SPECI|
|0000d080| 45 53 0a 43 0a 20 20 20 | 20 20 20 53 55 42 52 4f |ES.C. | SUBRO|
|0000d090| 55 54 49 4e 45 20 43 41 | 4d 57 56 4c 28 57 2c 56 |UTINE CA|MWVL(W,V|
|0000d0a0| 2c 4e 5a 41 2c 4e 43 4f | 50 2c 4e 43 41 50 29 0a |,NZA,NCO|P,NCAP).|
|0000d0b0| 20 20 20 20 20 20 49 4d | 50 4c 49 43 49 54 20 52 | IM|PLICIT R|
|0000d0c0| 45 41 4c 2a 38 28 41 2d | 48 2c 4f 2d 5a 29 0a 20 |EAL*8(A-|H,O-Z). |
|0000d0d0| 20 20 20 20 20 53 41 56 | 45 0a 20 20 20 20 20 20 | SAV|E. |
|0000d0e0| 43 4f 4d 4d 4f 4e 2f 4d | 44 2f 4e 53 4f 2c 4e 43 |COMMON/M|D/NSO,NC|
|0000d0f0| 42 4f 2c 49 52 45 46 2c | 4e 50 48 2c 4e 50 41 2c |BO,IREF,|NPH,NPA,|
|0000d100| 4e 53 41 2c 4e 49 4f 2c | 4e 49 41 2c 4e 43 41 2c |NSA,NIO,|NIA,NCA,|
|0000d110| 4e 41 4e 2c 4e 4e 55 2c | 4e 55 50 2c 4e 55 4d 0a |NAN,NNU,|NUP,NUM.|
|0000d120| 20 20 20 20 20 20 43 4f | 4d 4d 4f 4e 2f 47 52 50 | CO|MMON/GRP|
|0000d130| 2f 41 46 54 2c 42 46 54 | 2c 51 46 54 2c 4e 43 52 |/AFT,BFT|,QFT,NCR|
|0000d140| 28 34 29 2c 57 53 2c 56 | 53 2c 44 53 2c 47 4f 53 |(4),WS,V|S,DS,GOS|
|0000d150| 2c 57 52 2c 56 52 2c 47 | 4f 52 2c 52 54 0a 20 20 |,WR,VR,G|OR,RT. |
|0000d160| 20 20 20 20 44 49 4d 45 | 4e 53 49 4f 4e 20 57 28 | DIME|NSION W(|
|0000d170| 2a 29 2c 56 28 2a 29 2c | 4e 5a 41 28 2a 29 2c 4e |*),V(*),|NZA(*),N|
|0000d180| 43 4f 50 28 38 2c 2a 29 | 2c 4e 43 41 50 28 37 2c |COP(8,*)|,NCAP(7,|
|0000d190| 2a 29 0a 20 20 20 20 20 | 20 44 41 54 41 20 4f 4e |*). | DATA ON|
|0000d1a0| 45 2c 5a 45 52 4f 2f 31 | 2e 30 44 2b 30 2c 30 2e |E,ZERO/1|.0D+0,0.|
|0000d1b0| 30 44 2b 30 2f 0a 20 20 | 20 20 20 20 49 46 28 4e |0D+0/. | IF(N|
|0000d1c0| 53 4f 2e 45 51 2e 30 29 | 20 47 4f 54 4f 20 32 30 |SO.EQ.0)| GOTO 20|
|0000d1d0| 0a 43 20 20 4e 4f 4e 41 | 51 55 45 4f 55 53 20 50 |.C NONA|QUEOUS P|
|0000d1e0| 52 4f 44 55 43 54 20 53 | 50 45 43 49 45 53 0a 20 |RODUCT S|PECIES. |
|0000d1f0| 20 20 20 20 20 44 4f 20 | 31 30 20 49 3d 31 2c 4e | DO |10 I=1,N|
|0000d200| 53 4f 0a 20 20 20 20 20 | 20 4b 3d 38 2b 49 0a 20 |SO. | K=8+I. |
|0000d210| 20 20 20 20 20 49 46 28 | 4e 43 4f 50 28 37 2c 49 | IF(|NCOP(7,I|
|0000d220| 29 2e 47 45 2e 30 29 20 | 56 54 4d 3d 28 56 28 37 |).GE.0) |VTM=(V(7|
|0000d230| 29 2b 56 28 38 29 29 2a | 4e 43 4f 50 28 38 2c 49 |)+V(8))*|NCOP(8,I|
|0000d240| 29 2b 56 28 37 29 2a 4e | 43 4f 50 28 37 2c 49 29 |)+V(7)*N|COP(7,I)|
|0000d250| 0a 20 20 20 20 20 20 49 | 46 28 4e 43 4f 50 28 37 |. I|F(NCOP(7|
|0000d260| 2c 49 29 2e 4c 54 2e 30 | 29 20 56 54 4d 3d 28 56 |,I).LT.0|) VTM=(V|
|0000d270| 28 37 29 2b 56 28 38 29 | 29 2a 4e 43 4f 50 28 38 |(7)+V(8)|)*NCOP(8|
|0000d280| 2c 49 29 2d 56 28 38 29 | 2a 4e 43 4f 50 28 37 2c |,I)-V(8)|*NCOP(7,|
|0000d290| 49 29 20 0a 20 20 20 20 | 20 20 56 28 4b 29 3d 56 |I) . | V(K)=V|
|0000d2a0| 28 33 29 2a 4e 43 4f 50 | 28 31 2c 49 29 2b 56 28 |(3)*NCOP|(1,I)+V(|
|0000d2b0| 34 29 2a 4e 43 4f 50 28 | 32 2c 49 29 2b 28 56 28 |4)*NCOP(|2,I)+(V(|
|0000d2c0| 31 29 2d 56 28 37 29 29 | 2a 4e 43 4f 50 28 33 2c |1)-V(7))|*NCOP(3,|
|0000d2d0| 49 29 2b 0a 20 20 20 20 | 20 26 56 28 32 29 2a 4e |I)+. | &V(2)*N|
|0000d2e0| 43 4f 50 28 34 2c 49 29 | 2b 56 28 35 29 2a 4e 43 |COP(4,I)|+V(5)*NC|
|0000d2f0| 4f 50 28 35 2c 49 29 2b | 56 28 36 29 2a 4e 43 4f |OP(5,I)+|V(6)*NCO|
|0000d300| 50 28 36 2c 49 29 2b 56 | 54 4d 0a 20 20 20 20 20 |P(6,I)+V|TM. |
|0000d310| 20 49 46 28 4e 43 4f 50 | 28 37 2c 49 29 2e 47 45 | IF(NCOP|(7,I).GE|
|0000d320| 2e 30 29 20 57 54 4d 3d | 28 57 28 37 29 2b 57 28 |.0) WTM=|(W(7)+W(|
|0000d330| 38 29 29 2a 4e 43 4f 50 | 28 38 2c 49 29 2b 57 28 |8))*NCOP|(8,I)+W(|
|0000d340| 37 29 2a 4e 43 4f 50 28 | 37 2c 49 29 0a 20 20 20 |7)*NCOP(|7,I). |
|0000d350| 20 20 20 49 46 28 4e 43 | 4f 50 28 37 2c 49 29 2e | IF(NC|OP(7,I).|
|0000d360| 4c 54 2e 30 29 20 57 54 | 4d 3d 28 57 28 37 29 2b |LT.0) WT|M=(W(7)+|
|0000d370| 57 28 38 29 29 2a 4e 43 | 4f 50 28 38 2c 49 29 2d |W(8))*NC|OP(8,I)-|
|0000d380| 57 28 38 29 2a 4e 43 4f | 50 28 37 2c 49 29 20 0a |W(8)*NCO|P(7,I) .|
|0000d390| 20 20 20 20 20 20 57 28 | 4b 29 3d 57 28 33 29 2a | W(|K)=W(3)*|
|0000d3a0| 4e 43 4f 50 28 31 2c 49 | 29 2b 57 28 34 29 2a 4e |NCOP(1,I|)+W(4)*N|
|0000d3b0| 43 4f 50 28 32 2c 49 29 | 2b 28 57 28 31 29 2d 57 |COP(2,I)|+(W(1)-W|
|0000d3c0| 28 37 29 29 2a 4e 43 4f | 50 28 33 2c 49 29 2b 0a |(7))*NCO|P(3,I)+.|
|0000d3d0| 20 20 20 20 20 26 57 28 | 32 29 2a 4e 43 4f 50 28 | &W(|2)*NCOP(|
|0000d3e0| 34 2c 49 29 2b 57 28 35 | 29 2a 4e 43 4f 50 28 35 |4,I)+W(5|)*NCOP(5|
|0000d3f0| 2c 49 29 2b 57 28 36 29 | 2a 4e 43 4f 50 28 36 2c |,I)+W(6)|*NCOP(6,|
|0000d400| 49 29 2b 57 54 4d 0a 31 | 30 20 20 20 20 43 4f 4e |I)+WTM.1|0 CON|
|0000d410| 54 49 4e 55 45 0a 43 20 | 20 41 51 55 45 4f 55 53 |TINUE.C | AQUEOUS|
|0000d420| 20 50 52 4f 44 55 43 54 | 20 53 50 45 43 49 45 53 | PRODUCT| SPECIES|
|0000d430| 0a 32 30 20 20 20 20 49 | 46 28 4e 53 41 2e 45 51 |.20 I|F(NSA.EQ|
|0000d440| 2e 30 29 20 47 4f 54 4f | 20 34 30 0a 20 20 20 20 |.0) GOTO| 40. |
|0000d450| 20 20 44 4f 20 33 30 20 | 49 3d 31 2c 4e 53 41 0a | DO 30 |I=1,NSA.|
|0000d460| 20 20 20 20 20 20 4b 3d | 38 2b 4e 53 4f 2b 49 0a | K=|8+NSO+I.|
|0000d470| 20 20 20 20 20 20 49 46 | 28 4e 43 41 50 28 37 2c | IF|(NCAP(7,|
|0000d480| 49 29 2e 47 45 2e 30 29 | 20 57 54 4d 3d 57 28 37 |I).GE.0)| WTM=W(7|
|0000d490| 29 2a 4e 43 41 50 28 37 | 2c 49 29 0a 20 20 20 20 |)*NCAP(7|,I). |
|0000d4a0| 20 20 49 46 28 4e 43 41 | 50 28 37 2c 49 29 2e 4c | IF(NCA|P(7,I).L|
|0000d4b0| 54 2e 30 29 20 57 54 4d | 3d 2d 57 28 38 29 2a 4e |T.0) WTM|=-W(8)*N|
|0000d4c0| 43 41 50 28 37 2c 49 29 | 0a 20 20 20 20 20 20 57 |CAP(7,I)|. W|
|0000d4d0| 28 4b 29 3d 57 28 33 29 | 2a 4e 43 41 50 28 31 2c |(K)=W(3)|*NCAP(1,|
|0000d4e0| 49 29 2b 57 28 34 29 2a | 4e 43 41 50 28 32 2c 49 |I)+W(4)*|NCAP(2,I|
|0000d4f0| 29 2b 28 57 28 31 29 2d | 57 28 37 29 29 2a 4e 43 |)+(W(1)-|W(7))*NC|
|0000d500| 41 50 28 33 2c 49 29 2b | 0a 20 20 20 20 20 26 57 |AP(3,I)+|. &W|
|0000d510| 28 32 29 2a 4e 43 41 50 | 28 34 2c 49 29 2b 57 28 |(2)*NCAP|(4,I)+W(|
|0000d520| 35 29 2a 4e 43 41 50 28 | 35 2c 49 29 2b 57 28 36 |5)*NCAP(|5,I)+W(6|
|0000d530| 29 2a 4e 43 41 50 28 36 | 2c 49 29 2b 57 54 4d 0a |)*NCAP(6|,I)+WTM.|
|0000d540| 33 30 20 20 20 20 43 4f | 4e 54 49 4e 55 45 0a 43 |30 CO|NTINUE.C|
|0000d550| 20 20 4e 4f 4e 41 51 55 | 45 4f 55 53 20 45 58 54 | NONAQU|EOUS EXT|
|0000d560| 52 41 43 54 41 4e 54 20 | 53 50 45 43 49 45 53 0a |RACTANT |SPECIES.|
|0000d570| 34 30 20 20 20 20 56 28 | 31 29 3d 56 28 31 29 2a |40 V(|1)=V(1)*|
|0000d580| 4e 43 52 28 31 29 2b 28 | 56 28 37 29 2b 56 28 38 |NCR(1)+(|V(7)+V(8|
|0000d590| 29 29 2a 4e 43 52 28 33 | 29 0a 20 20 20 20 20 20 |))*NCR(3|). |
|0000d5a0| 57 28 31 29 3d 57 28 31 | 29 2a 4e 43 52 28 31 29 |W(1)=W(1|)*NCR(1)|
|0000d5b0| 2b 28 57 28 37 29 2b 57 | 28 38 29 29 2a 4e 43 52 |+(W(7)+W|(8))*NCR|
|0000d5c0| 28 33 29 0a 20 20 20 20 | 20 20 56 28 32 29 3d 56 |(3). | V(2)=V|
|0000d5d0| 28 32 29 2a 4e 43 52 28 | 32 29 2b 28 56 28 37 29 |(2)*NCR(|2)+(V(7)|
|0000d5e0| 2b 56 28 38 29 29 2a 4e | 43 52 28 34 29 0a 20 20 |+V(8))*N|CR(4). |
|0000d5f0| 20 20 20 20 57 28 32 29 | 3d 57 28 32 29 2a 4e 43 | W(2)|=W(2)*NC|
|0000d600| 52 28 32 29 2b 28 57 28 | 37 29 2b 57 28 38 29 29 |R(2)+(W(|7)+W(8))|
|0000d610| 2a 4e 43 52 28 34 29 0a | 20 20 20 20 20 20 52 45 |*NCR(4).| RE|
|0000d620| 54 55 52 4e 0a 20 20 20 | 20 20 20 45 4e 44 0a 43 |TURN. | END.C|
|0000d630| 0a 43 0a 43 0a 43 20 20 | 54 48 49 53 20 53 55 42 |.C.C.C |THIS SUB|
|0000d640| 52 4f 55 54 49 4e 45 20 | 49 53 20 41 20 53 4c 49 |ROUTINE |IS A SLI|
|0000d650| 47 48 54 4c 59 20 4d 4f | 44 49 46 49 45 44 20 56 |GHTLY MO|DIFIED V|
|0000d660| 45 52 53 49 4f 4e 20 4f | 46 20 54 48 45 20 47 45 |ERSION O|F THE GE|
|0000d670| 4e 45 52 41 4c 0a 43 20 | 20 4c 45 41 53 54 2d 53 |NERAL.C | LEAST-S|
|0000d680| 51 55 41 52 45 53 20 50 | 52 4f 47 52 41 4d 20 4f |QUARES P|ROGRAM O|
|0000d690| 52 47 4c 53 20 42 59 20 | 57 2e 20 52 2e 20 42 55 |RGLS BY |W. R. BU|
|0000d6a0| 53 49 4e 47 20 41 4e 44 | 20 41 4e 44 20 48 2e 20 |SING AND| AND H. |
|0000d6b0| 41 2e 20 4c 45 56 59 0a | 43 0a 43 0a 20 20 20 20 |A. LEVY.|C.C. |
|0000d6c0| 20 20 53 55 42 52 4f 55 | 54 49 4e 45 20 4f 52 47 | SUBROU|TINE ORG|
|0000d6d0| 4c 53 28 50 2c 44 50 2c | 56 43 2c 44 56 2c 44 49 |LS(P,DP,|VC,DV,DI|
|0000d6e0| 41 47 2c 50 44 2c 52 4f | 57 2c 0a 20 20 20 20 20 |AG,PD,RO|W,. |
|0000d6f0| 26 45 56 41 4c 2c 45 56 | 45 43 2c 41 4d 45 56 2c |&EVAL,EV|EC,AMEV,|
|0000d700| 53 41 4d 2c 57 2c 56 2c | 56 30 2c 53 56 2c 43 53 |SAM,W,V,|V0,SV,CS|
|0000d710| 2c 47 2c 47 4f 2c 47 58 | 30 2c 56 52 54 2c 50 48 |,G,GO,GX|0,VRT,PH|
|0000d720| 2c 0a 20 20 20 20 20 26 | 50 48 56 2c 58 46 2c 47 |,. &|PHV,XF,G|
|0000d730| 58 2c 41 43 2c 59 4f 2c | 53 49 47 59 4f 2c 58 2c |X,AC,YO,|SIGYO,X,|
|0000d740| 58 53 2c 58 43 53 2c 58 | 43 4f 53 2c 58 43 41 53 |XS,XCS,X|COS,XCAS|
|0000d750| 2c 58 43 2c 52 4f 43 2c | 52 41 43 2c 0a 20 20 20 |,XC,ROC,|RAC,. |
|0000d760| 20 20 26 45 4f 43 2c 43 | 45 4f 43 2c 52 45 4f 43 | &EOC,C|EOC,REOC|
|0000d770| 2c 53 45 4f 43 2c 45 41 | 43 2c 46 4f 43 2c 46 41 |,SEOC,EA|C,FOC,FA|
|0000d780| 43 2c 46 4f 4b 2c 52 46 | 4f 4b 2c 53 46 4f 4b 2c |C,FOK,RF|OK,SFOK,|
|0000d790| 46 41 4b 2c 58 43 4c 2c | 46 43 4c 2c 45 58 43 2c |FAK,XCL,|FCL,EXC,|
|0000d7a0| 0a 20 20 20 20 20 26 57 | 41 2c 41 4d 2c 42 30 2c |. &W|A,AM,B0,|
|0000d7b0| 42 31 2c 42 32 2c 43 50 | 2c 41 4c 50 2c 42 50 2c |B1,B2,CP|,ALP,BP,|
|0000d7c0| 42 47 2c 42 47 50 2c 43 | 47 2c 50 43 43 2c 45 54 |BG,BGP,C|G,PCC,ET|
|0000d7d0| 48 43 2c 45 54 48 43 50 | 2c 0a 20 20 20 20 20 26 |HC,ETHCP|,. &|
|0000d7e0| 50 41 41 2c 45 54 48 41 | 2c 45 54 48 41 50 2c 50 |PAA,ETHA|,ETHAP,P|
|0000d7f0| 43 43 41 2c 50 43 41 41 | 2c 44 43 41 2c 50 4e 43 |CCA,PCAA|,DCA,PNC|
|0000d800| 2c 50 4e 41 2c 50 4e 4e | 2c 43 41 4d 2c 43 42 4d |,PNA,PNN|,CAM,CBM|
|0000d810| 2c 43 43 4d 2c 5a 41 2c | 5a 46 41 2c 0a 20 20 20 |,CCM,ZA,|ZFA,. |
|0000d820| 20 20 26 5a 43 2c 5a 46 | 43 2c 43 41 50 2c 43 4f | &ZC,ZF|C,CAP,CO|
|0000d830| 50 2c 45 50 2c 50 54 2c | 46 58 2c 50 42 2c 52 5a |P,EP,PT,|FX,PB,RZ|
|0000d840| 49 52 2c 53 43 50 53 49 | 2c 4b 58 2c 4e 5a 41 2c |IR,SCPSI|,KX,NZA,|
|0000d850| 4e 5a 50 4f 2c 4e 43 4f | 50 2c 0a 20 20 20 20 20 |NZPO,NCO|P,. |
|0000d860| 26 4e 43 41 50 2c 4e 49 | 44 54 2c 4e 46 2c 49 43 |&NCAP,NI|DT,NF,IC|
|0000d870| 41 2c 49 41 4e 2c 49 4e | 55 2c 4b 49 2c 49 4f 55 |A,IAN,IN|U,KI,IOU|
|0000d880| 54 2c 4e 50 53 49 29 0a | 20 20 20 20 20 20 49 4d |T,NPSI).| IM|
|0000d890| 50 4c 49 43 49 54 20 52 | 45 41 4c 2a 38 28 41 2d |PLICIT R|EAL*8(A-|
|0000d8a0| 48 2c 4f 2d 5a 29 0a 20 | 20 20 20 20 20 53 41 56 |H,O-Z). | SAV|
|0000d8b0| 45 20 20 20 20 20 0a 20 | 20 20 20 20 20 43 48 41 |E . | CHA|
|0000d8c0| 52 41 43 54 45 52 2a 31 | 30 20 49 53 54 4f 50 0a |RACTER*1|0 ISTOP.|
|0000d8d0| 20 20 20 20 20 20 43 4f | 4d 4d 4f 4e 2f 4c 47 50 | CO|MMON/LGP|
|0000d8e0| 2f 4e 50 0a 20 20 20 20 | 20 20 43 4f 4d 4d 4f 4e |/NP. | COMMON|
|0000d8f0| 2f 4d 44 2f 4e 53 4f 2c | 4e 43 42 4f 2c 49 52 45 |/MD/NSO,|NCBO,IRE|
|0000d900| 46 2c 4e 50 48 2c 4e 50 | 41 2c 4e 53 41 2c 4e 49 |F,NPH,NP|A,NSA,NI|
|0000d910| 4f 2c 4e 49 41 2c 4e 43 | 41 2c 4e 41 4e 2c 4e 4e |O,NIA,NC|A,NAN,NN|
|0000d920| 55 2c 4e 55 50 2c 4e 55 | 4d 0a 20 20 20 20 20 20 |U,NUP,NU|M. |
|0000d930| 43 4f 4d 4d 4f 4e 2f 54 | 49 54 2f 4c 54 49 54 4c |COMMON/T|IT/LTITL|
|0000d940| 45 0a 20 20 20 20 20 20 | 43 4f 4d 4d 4f 4e 2f 44 |E. |COMMON/D|
|0000d950| 54 2f 54 43 2c 4e 4f 2c | 4e 4f 46 2c 49 43 4e 52 |T/TC,NO,|NOF,ICNR|
|0000d960| 20 20 20 20 20 20 0a 20 | 20 20 20 20 20 43 4f 4d | . | COM|
|0000d970| 4d 4f 4e 2f 47 52 50 2f | 41 46 54 2c 42 46 54 2c |MON/GRP/|AFT,BFT,|
|0000d980| 51 46 54 2c 4e 43 52 28 | 34 29 2c 57 53 2c 56 53 |QFT,NCR(|4),WS,VS|
|0000d990| 2c 44 53 2c 47 4f 53 2c | 57 52 2c 56 52 2c 47 4f |,DS,GOS,|WR,VR,GO|
|0000d9a0| 52 2c 52 54 0a 20 20 20 | 20 20 20 43 4f 4d 4d 4f |R,RT. | COMMO|
|0000d9b0| 4e 2f 46 49 54 2f 53 49 | 47 4d 41 2c 4e 43 2c 4e |N/FIT/SI|GMA,NC,N|
|0000d9c0| 56 2c 4c 41 4d 2c 4c 45 | 56 0a 20 20 20 20 20 20 |V,LAM,LE|V. |
|0000d9d0| 44 49 4d 45 4e 53 49 4f | 4e 20 44 50 28 2a 29 2c |DIMENSIO|N DP(*),|
|0000d9e0| 56 43 28 2a 29 2c 44 56 | 28 2a 29 2c 44 49 41 47 |VC(*),DV|(*),DIAG|
|0000d9f0| 28 2a 29 2c 50 44 28 2a | 29 2c 52 4f 57 28 2a 29 |(*),PD(*|),ROW(*)|
|0000da00| 2c 45 56 41 4c 28 2a 29 | 2c 0a 20 20 20 20 20 26 |,EVAL(*)|,. &|
|0000da10| 45 56 45 43 28 2a 29 2c | 41 4d 45 56 28 2a 29 2c |EVEC(*),|AMEV(*),|
|0000da20| 53 41 4d 28 2a 29 2c 59 | 4f 28 2a 29 2c 53 49 47 |SAM(*),Y|O(*),SIG|
|0000da30| 59 4f 28 2a 29 2c 41 4d | 28 2a 29 2c 4b 49 28 2a |YO(*),AM|(*),KI(*|
|0000da40| 29 2c 49 4f 55 54 28 2a | 29 2c 0a 20 20 20 20 20 |),IOUT(*|),. |
|0000da50| 26 53 51 53 49 47 28 32 | 29 2c 44 41 4d 50 28 39 |&SQSIG(2|),DAMP(9|
|0000da60| 29 0a 20 20 20 20 20 20 | 44 49 4d 45 4e 53 49 4f |). |DIMENSIO|
|0000da70| 4e 20 58 43 4c 28 2a 29 | 2c 46 43 4c 28 2a 29 2c |N XCL(*)|,FCL(*),|
|0000da80| 50 28 2a 29 2c 57 28 2a | 29 2c 56 28 2a 29 2c 56 |P(*),W(*|),V(*),V|
|0000da90| 30 28 2a 29 2c 53 56 28 | 2a 29 2c 43 53 28 2a 29 |0(*),SV(|*),CS(*)|
|0000daa0| 2c 0a 20 20 20 20 20 26 | 46 4f 4b 28 2a 29 2c 52 |,. &|FOK(*),R|
|0000dab0| 46 4f 4b 28 35 2c 2a 29 | 2c 53 46 4f 4b 28 2a 29 |FOK(5,*)|,SFOK(*)|
|0000dac0| 2c 46 41 4b 28 2a 29 2c | 43 41 4d 28 2a 29 2c 43 |,FAK(*),|CAM(*),C|
|0000dad0| 42 4d 28 2a 29 2c 43 43 | 4d 28 2a 29 2c 42 30 28 |BM(*),CC|M(*),B0(|
|0000dae0| 2a 29 2c 0a 20 20 20 20 | 20 26 42 31 28 2a 29 2c |*),. | &B1(*),|
|0000daf0| 42 32 28 2a 29 2c 43 50 | 28 2a 29 2c 41 4c 50 28 |B2(*),CP|(*),ALP(|
|0000db00| 32 2c 2a 29 2c 42 50 28 | 2a 29 2c 42 47 28 2a 29 |2,*),BP(|*),BG(*)|
|0000db10| 2c 42 47 50 28 2a 29 2c | 43 47 28 2a 29 2c 50 43 |,BGP(*),|CG(*),PC|
|0000db20| 43 28 2a 29 2c 0a 20 20 | 20 20 20 26 45 54 48 43 |C(*),. | ÐC|
|0000db30| 28 2a 29 2c 45 54 48 43 | 50 28 2a 29 2c 50 41 41 |(*),ETHC|P(*),PAA|
|0000db40| 28 2a 29 2c 45 54 48 41 | 28 2a 29 2c 45 54 48 41 |(*),ETHA|(*),ETHA|
|0000db50| 50 28 2a 29 2c 50 43 43 | 41 28 2a 29 2c 50 43 41 |P(*),PCC|A(*),PCA|
|0000db60| 41 28 2a 29 2c 0a 20 20 | 20 20 20 26 44 43 41 28 |A(*),. | &DCA(|
|0000db70| 2a 29 2c 50 4e 43 28 2a | 29 2c 50 4e 41 28 2a 29 |*),PNC(*|),PNA(*)|
|0000db80| 2c 50 4e 4e 28 2a 29 2c | 5a 41 28 2a 29 2c 5a 46 |,PNN(*),|ZA(*),ZF|
|0000db90| 41 28 2a 29 2c 5a 43 28 | 2a 29 2c 5a 46 43 28 2a |A(*),ZC(|*),ZFC(*|
|0000dba0| 29 2c 47 28 2a 29 2c 0a | 20 20 20 20 20 26 47 4f |),G(*),.| &GO|
|0000dbb0| 28 2a 29 2c 47 58 30 28 | 2a 29 2c 56 52 54 28 2a |(*),GX0(|*),VRT(*|
|0000dbc0| 29 2c 50 48 28 2a 29 2c | 50 48 56 28 2a 29 2c 58 |),PH(*),|PHV(*),X|
|0000dbd0| 46 28 2a 29 2c 47 58 28 | 2a 29 2c 41 43 28 2a 29 |F(*),GX(|*),AC(*)|
|0000dbe0| 2c 58 28 31 30 2c 2a 29 | 2c 0a 20 20 20 20 20 26 |,X(10,*)|,. &|
|0000dbf0| 58 43 28 2a 29 2c 43 41 | 50 28 2a 29 2c 43 4f 50 |XC(*),CA|P(*),COP|
|0000dc00| 28 2a 29 2c 58 53 28 31 | 31 2c 2a 29 2c 58 43 53 |(*),XS(1|1,*),XCS|
|0000dc10| 28 2a 29 2c 58 43 4f 53 | 28 2a 29 2c 58 43 41 53 |(*),XCOS|(*),XCAS|
|0000dc20| 28 2a 29 2c 45 58 43 28 | 2a 29 2c 0a 20 20 20 20 |(*),EXC(|*),. |
|0000dc30| 20 26 57 41 28 2a 29 2c | 52 4f 43 28 38 2c 2a 29 | &WA(*),|ROC(8,*)|
|0000dc40| 2c 52 41 43 28 38 2c 2a | 29 2c 45 4f 43 28 38 2c |,RAC(8,*|),EOC(8,|
|0000dc50| 2a 29 2c 43 45 4f 43 28 | 2a 29 2c 52 45 4f 43 28 |*),CEOC(|*),REOC(|
|0000dc60| 35 2c 38 2b 4e 53 4f 2c | 2a 29 2c 0a 20 20 20 20 |5,8+NSO,|*),. |
|0000dc70| 20 26 53 45 4f 43 28 38 | 2b 4e 53 4f 2c 2a 29 2c | &SEOC(8|+NSO,*),|
|0000dc80| 45 41 43 28 38 2c 2a 29 | 2c 46 4f 43 28 38 2c 2a |EAC(8,*)|,FOC(8,*|
|0000dc90| 29 2c 46 41 43 28 38 2c | 2a 29 2c 45 50 28 2a 29 |),FAC(8,|*),EP(*)|
|0000dca0| 2c 0a 20 20 20 20 20 26 | 50 54 28 38 2b 4e 53 4f |,. &|PT(8+NSO|
|0000dcb0| 2b 4e 53 41 2c 2a 29 2c | 46 58 28 2a 29 2c 50 42 |+NSA,*),|FX(*),PB|
|0000dcc0| 28 2a 29 2c 52 5a 49 52 | 28 2a 29 2c 53 43 50 53 |(*),RZIR|(*),SCPS|
|0000dcd0| 49 28 2a 29 0a 20 20 20 | 20 20 20 44 49 4d 45 4e |I(*). | DIMEN|
|0000dce0| 53 49 4f 4e 20 4b 58 28 | 2a 29 2c 4e 46 28 2a 29 |SION KX(|*),NF(*)|
|0000dcf0| 2c 49 43 41 28 2a 29 2c | 49 41 4e 28 2a 29 2c 49 |,ICA(*),|IAN(*),I|
|0000dd00| 4e 55 28 2a 29 2c 0a 20 | 20 20 20 20 26 4e 5a 41 |NU(*),. | &NZA|
|0000dd10| 28 2a 29 2c 4e 5a 50 4f | 28 2a 29 2c 4e 49 44 54 |(*),NZPO|(*),NIDT|
|0000dd20| 28 2a 29 2c 4e 43 4f 50 | 28 38 2c 2a 29 2c 4e 43 |(*),NCOP|(8,*),NC|
|0000dd30| 41 50 28 37 2c 2a 29 2c | 4e 50 53 49 28 2a 29 0a |AP(7,*),|NPSI(*).|
|0000dd40| 20 20 20 20 20 20 43 48 | 41 52 41 43 54 45 52 2a | CH|ARACTER*|
|0000dd50| 36 30 20 4c 54 49 54 4c | 45 0a 43 43 0a 20 20 20 |60 LTITL|E.CC. |
|0000dd60| 20 20 20 44 41 54 41 20 | 4f 4e 45 2c 5a 45 52 4f | DATA |ONE,ZERO|
|0000dd70| 2f 31 2e 30 44 2b 30 2c | 30 2e 30 44 2b 30 2f 0a |/1.0D+0,|0.0D+0/.|
|0000dd80| 20 20 20 20 20 20 44 41 | 54 41 20 44 41 4d 50 2f | DA|TA DAMP/|
|0000dd90| 31 2e 30 44 30 2c 30 2e | 36 33 44 30 2c 30 2e 34 |1.0D0,0.|63D0,0.4|
|0000dda0| 30 44 30 2c 30 2e 32 35 | 44 30 2c 30 2e 31 36 44 |0D0,0.25|D0,0.16D|
|0000ddb0| 30 0a 20 20 20 20 20 26 | 20 20 2c 30 2e 31 30 44 |0. &| ,0.10D|
|0000ddc0| 30 2c 30 2e 30 36 33 44 | 30 2c 30 2e 30 34 30 44 |0,0.063D|0,0.040D|
|0000ddd0| 30 2c 30 2e 30 32 35 44 | 30 2f 0a 43 43 0a 20 20 |0,0.025D|0/.CC. |
|0000dde0| 20 20 20 20 57 52 49 54 | 45 20 28 31 32 2c 35 30 | WRIT|E (12,50|
|0000ddf0| 30 29 20 4c 54 49 54 4c | 45 0a 20 20 20 20 20 20 |0) LTITL|E. |
|0000de00| 57 52 49 54 45 20 28 39 | 2c 35 30 30 29 20 4c 54 |WRITE (9|,500) LT|
|0000de10| 49 54 4c 45 0a 20 20 20 | 20 20 20 4e 58 50 3d 38 |ITLE. | NXP=8|
|0000de20| 20 0a 20 20 20 20 20 20 | 49 50 43 41 3d 30 0a 20 | . |IPCA=0. |
|0000de30| 20 20 20 20 20 57 52 49 | 54 45 20 28 31 32 2c 35 | WRI|TE (12,5|
|0000de40| 32 35 29 0a 20 20 20 20 | 20 20 57 52 49 54 45 20 |25). | WRITE |
|0000de50| 28 39 2c 35 32 35 29 0a | 20 20 20 20 20 20 57 52 |(9,525).| WR|
|0000de60| 49 54 45 20 28 31 32 2c | 35 37 35 29 20 4e 4f 46 |ITE (12,|575) NOF|
|0000de70| 0a 20 20 20 20 20 20 57 | 52 49 54 45 20 28 39 2c |. W|RITE (9,|
|0000de80| 35 37 35 29 20 4e 4f 46 | 0a 20 20 20 20 20 20 49 |575) NOF|. I|
|0000de90| 46 20 28 4e 43 2e 45 51 | 2e 30 29 20 47 4f 54 4f |F (NC.EQ|.0) GOTO|
|0000dea0| 20 31 35 30 0a 43 43 20 | 20 20 20 43 4f 55 4e 54 | 150.CC | COUNT|
|0000deb0| 20 56 41 52 49 41 42 4c | 45 53 0a 43 43 0a 31 33 | VARIABL|ES.CC.13|
|0000dec0| 30 20 20 20 4e 3d 30 0a | 20 20 20 20 20 20 44 4f |0 N=0.| DO|
|0000ded0| 20 31 34 30 20 49 3d 31 | 2c 4e 50 0a 20 20 20 20 | 140 I=1|,NP. |
|0000dee0| 20 20 49 46 20 28 4b 49 | 28 49 29 29 20 31 33 35 | IF (KI|(I)) 135|
|0000def0| 2c 31 34 30 2c 31 33 35 | 0a 31 33 35 20 20 20 4e |,140,135|.135 N|
|0000df00| 3d 4e 2b 31 0a 20 20 20 | 20 20 20 49 4f 55 54 28 |=N+1. | IOUT(|
|0000df10| 4e 29 3d 49 0a 31 34 30 | 20 20 20 43 4f 4e 54 49 |N)=I.140| CONTI|
|0000df20| 4e 55 45 0a 20 20 20 20 | 20 20 4e 56 3d 4e 0a 20 |NUE. | NV=N. |
|0000df30| 20 20 20 20 20 57 52 49 | 54 45 20 28 31 32 2c 35 | WRI|TE (12,5|
|0000df40| 31 35 29 20 4e 56 0a 20 | 20 20 20 20 20 57 52 49 |15) NV. | WRI|
|0000df50| 54 45 20 28 39 2c 35 31 | 35 29 20 4e 56 0a 20 20 |TE (9,51|5) NV. |
|0000df60| 20 20 20 20 49 46 28 4e | 56 2e 45 51 2e 30 29 20 | IF(N|V.EQ.0) |
|0000df70| 57 52 49 54 45 28 39 2c | 34 38 35 29 0a 34 38 35 |WRITE(9,|485).485|
|0000df80| 20 20 20 46 4f 52 4d 41 | 54 28 31 58 2c 27 54 48 | FORMA|T(1X,'TH|
|0000df90| 45 52 45 20 41 52 45 20 | 4e 4f 20 50 41 52 41 4d |ERE ARE |NO PARAM|
|0000dfa0| 45 54 45 52 53 20 54 4f | 20 42 45 20 52 45 46 49 |ETERS TO| BE REFI|
|0000dfb0| 4e 45 44 27 2f 29 0a 20 | 20 20 20 20 20 49 46 28 |NED'/). | IF(|
|0000dfc0| 4e 56 2e 45 51 2e 30 29 | 20 54 48 45 4e 0a 20 20 |NV.EQ.0)| THEN. |
|0000dfd0| 20 20 20 20 20 20 50 41 | 55 53 45 0a 20 20 20 20 | PA|USE. |
|0000dfe0| 20 20 20 20 53 54 4f 50 | 0a 20 20 20 20 20 20 45 | STOP|. E|
|0000dff0| 4e 44 20 49 46 0a 20 20 | 20 20 20 20 47 4f 54 4f |ND IF. | GOTO|
|0000e000| 20 31 37 30 0a 31 35 30 | 20 20 20 44 4f 20 31 35 | 170.150| DO 15|
|0000e010| 35 20 49 3d 31 2c 4e 50 | 0a 20 20 20 20 20 20 4b |5 I=1,NP|. K|
|0000e020| 49 28 49 29 3d 30 0a 20 | 20 20 20 20 20 44 50 28 |I(I)=0. | DP(|
|0000e030| 49 29 3d 30 0a 31 35 35 | 20 20 20 43 4f 4e 54 49 |I)=0.155| CONTI|
|0000e040| 4e 55 45 0a 20 20 20 20 | 20 20 4e 56 3d 30 0a 43 |NUE. | NV=0.C|
|0000e050| 43 20 20 20 20 49 4e 49 | 54 49 41 4c 49 5a 45 20 |C INI|TIALIZE |
|0000e060| 50 52 4f 42 4c 45 4d 0a | 43 43 0a 43 43 0a 31 37 |PROBLEM.|CC.CC.17|
|0000e070| 30 20 20 20 4e 4d 3d 28 | 4e 56 2a 28 4e 56 2b 31 |0 NM=(|NV*(NV+1|
|0000e080| 29 29 2f 32 0a 20 20 20 | 20 20 20 53 51 53 49 47 |))/2. | SQSIG|
|0000e090| 28 31 29 3d 5a 45 52 4f | 0a 43 43 20 20 20 20 50 |(1)=ZERO|.CC P|
|0000e0a0| 55 54 20 4f 55 54 20 54 | 52 49 41 4c 20 50 41 52 |UT OUT T|RIAL PAR|
|0000e0b0| 41 4d 45 54 45 52 53 2c | 20 4b 45 59 20 49 4e 54 |AMETERS,| KEY INT|
|0000e0c0| 45 47 45 52 53 2c 20 41 | 4e 44 0a 43 43 0a 43 43 |EGERS, A|ND.CC.CC|
|0000e0d0| 20 20 20 20 50 41 52 41 | 4d 45 54 45 52 20 49 4e | PARA|METER IN|
|0000e0e0| 43 52 45 4d 45 4e 54 53 | 0a 43 43 0a 20 20 20 20 |CREMENTS|.CC. |
|0000e0f0| 20 20 49 46 28 4e 43 2e | 45 51 2e 30 2e 4f 52 2e | IF(NC.|EQ.0.OR.|
|0000e100| 4e 56 2e 45 51 2e 30 29 | 20 47 4f 54 4f 20 31 37 |NV.EQ.0)| GOTO 17|
|0000e110| 37 20 0a 20 20 20 20 20 | 20 57 52 49 54 45 20 28 |7 . | WRITE (|
|0000e120| 31 32 2c 36 37 35 29 0a | 20 20 20 20 20 20 57 52 |12,675).| WR|
|0000e130| 49 54 45 20 28 39 2c 36 | 37 35 29 0a 20 20 20 20 |ITE (9,6|75). |
|0000e140| 20 20 44 4f 20 31 37 35 | 20 49 3d 31 2c 4e 50 0a | DO 175| I=1,NP.|
|0000e150| 20 20 20 20 20 20 49 46 | 28 4b 49 28 49 29 2e 4e | IF|(KI(I).N|
|0000e160| 45 2e 30 29 20 57 52 49 | 54 45 20 28 31 32 2c 36 |E.0) WRI|TE (12,6|
|0000e170| 38 30 29 20 49 2c 50 28 | 49 29 2c 4b 49 28 49 29 |80) I,P(|I),KI(I)|
|0000e180| 2c 44 50 28 49 29 0a 20 | 20 20 20 20 20 49 46 28 |,DP(I). | IF(|
|0000e190| 4b 49 28 49 29 2e 4e 45 | 2e 30 29 20 57 52 49 54 |KI(I).NE|.0) WRIT|
|0000e1a0| 45 20 28 39 2c 36 38 30 | 29 20 49 2c 50 28 49 29 |E (9,680|) I,P(I)|
|0000e1b0| 2c 4b 49 28 49 29 2c 44 | 50 28 49 29 0a 31 37 35 |,KI(I),D|P(I).175|
|0000e1c0| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 20 20 20 20 | CONTI|NUE. |
|0000e1d0| 20 20 57 52 49 54 45 28 | 31 32 2c 37 31 30 29 0a | WRITE(|12,710).|
|0000e1e0| 43 43 20 20 20 20 53 54 | 41 52 54 20 4c 4f 4f 50 |CC ST|ART LOOP|
|0000e1f0| 20 54 4f 20 50 45 52 46 | 4f 52 4d 20 4e 43 20 43 | TO PERF|ORM NC C|
|0000e200| 59 43 4c 45 53 20 41 4e | 44 20 4f 4e 45 20 46 49 |YCLES AN|D ONE FI|
|0000e210| 4e 41 4c 0a 43 43 0a 43 | 43 20 20 20 20 43 41 4c |NAL.CC.C|C CAL|
|0000e220| 43 55 4c 41 54 49 4f 4e | 20 4f 46 20 59 0a 43 43 |CULATION| OF Y.CC|
|0000e230| 0a 31 37 37 20 20 20 49 | 43 4f 4e 56 3d 30 0a 20 |.177 I|CONV=0. |
|0000e240| 20 20 20 20 20 4e 43 59 | 3d 4e 43 2b 31 0a 20 20 | NCY|=NC+1. |
|0000e250| 20 20 20 20 44 4f 20 34 | 34 30 20 49 43 3d 31 2c | DO 4|40 IC=1,|
|0000e260| 4e 43 59 0a 43 43 20 20 | 20 20 43 4c 45 41 52 20 |NCY.CC | CLEAR |
|0000e270| 41 52 52 41 59 53 20 41 | 4d 20 41 4e 44 20 56 43 |ARRAYS A|M AND VC|
|0000e280| 20 45 58 43 45 50 54 20 | 4f 4e 20 4c 41 53 54 20 | EXCEPT |ON LAST |
|0000e290| 43 59 43 4c 45 0a 43 43 | 0a 20 20 20 20 20 20 49 |CYCLE.CC|. I|
|0000e2a0| 46 20 28 49 43 2d 4e 43 | 59 29 20 31 38 30 2c 31 |F (IC-NC|Y) 180,1|
|0000e2b0| 39 35 2c 31 39 35 0a 31 | 38 30 20 20 20 44 4f 20 |95,195.1|80 DO |
|0000e2c0| 31 38 35 20 49 3d 31 2c | 4e 4d 0a 31 38 35 20 20 |185 I=1,|NM.185 |
|0000e2d0| 20 41 4d 28 49 29 3d 5a | 45 52 4f 0a 20 20 20 20 | AM(I)=Z|ERO. |
|0000e2e0| 20 20 44 4f 20 31 39 30 | 20 49 3d 31 2c 4e 56 0a | DO 190| I=1,NV.|
|0000e2f0| 31 39 30 20 20 20 56 43 | 28 49 29 3d 5a 45 52 4f |190 VC|(I)=ZERO|
|0000e300| 0a 43 43 20 20 20 20 49 | 4e 49 54 49 41 4c 49 5a |.CC I|NITIALIZ|
|0000e310| 45 20 46 4f 52 20 43 59 | 43 4c 45 20 49 43 20 41 |E FOR CY|CLE IC A|
|0000e320| 4e 44 20 50 55 54 20 4f | 55 54 20 43 41 50 54 49 |ND PUT O|UT CAPTI|
|0000e330| 4f 4e 0a 43 43 0a 43 43 | 20 20 20 20 46 4f 52 20 |ON.CC.CC| FOR |
|0000e340| 4c 49 53 54 20 4f 46 20 | 59 28 43 41 4c 43 29 0a |LIST OF |Y(CALC).|
|0000e350| 43 43 0a 31 39 35 20 20 | 20 53 51 53 49 47 28 32 |CC.195 | SQSIG(2|
|0000e360| 29 3d 53 51 53 49 47 28 | 31 29 0a 20 20 20 20 20 |)=SQSIG(|1). |
|0000e370| 20 53 49 47 3d 5a 45 52 | 4f 0a 20 20 20 20 20 20 | SIG=ZER|O. |
|0000e380| 49 46 28 4e 43 59 2e 47 | 54 2e 49 43 29 20 47 4f |IF(NCY.G|T.IC) GO|
|0000e390| 20 54 4f 20 31 39 38 0a | 20 20 20 20 20 20 49 43 | TO 198.| IC|
|0000e3a0| 50 3d 49 43 2d 31 0a 20 | 20 20 20 20 20 4a 3d 31 |P=IC-1. | J=1|
|0000e3b0| 0a 20 20 20 20 20 20 44 | 4f 20 31 39 33 20 49 3d |. D|O 193 I=|
|0000e3c0| 31 2c 4e 50 0a 20 20 20 | 20 20 20 49 46 28 4b 49 |1,NP. | IF(KI|
|0000e3d0| 28 49 29 2e 45 51 2e 30 | 29 20 47 4f 20 54 4f 20 |(I).EQ.0|) GO TO |
|0000e3e0| 31 39 33 0a 20 20 20 20 | 20 20 50 4f 4c 44 3d 50 |193. | POLD=P|
|0000e3f0| 28 49 29 2d 50 44 28 4a | 29 0a 20 20 20 20 20 20 |(I)-PD(J|). |
|0000e400| 53 49 47 50 3d 44 53 51 | 52 54 28 44 49 41 47 28 |SIGP=DSQ|RT(DIAG(|
|0000e410| 4a 29 29 2a 53 51 53 49 | 47 28 31 29 0a 20 20 20 |J))*SQSI|G(1). |
|0000e420| 20 20 20 4a 3d 4a 2b 31 | 0a 31 39 33 20 20 20 43 | J=J+1|.193 C|
|0000e430| 4f 4e 54 49 4e 55 45 0a | 20 20 20 20 20 20 20 57 |ONTINUE.| W|
|0000e440| 52 49 54 45 28 39 2c 35 | 39 35 29 0a 31 39 38 20 |RITE(9,5|95).198 |
|0000e450| 20 20 43 4f 4e 54 49 4e | 55 45 0a 43 43 20 20 20 | CONTIN|UE.CC |
|0000e460| 20 53 54 41 52 54 20 4c | 4f 4f 50 20 54 48 52 4f | START L|OOP THRO|
|0000e470| 55 47 48 20 4e 4f 20 4f | 42 53 45 52 56 41 54 49 |UGH NO O|BSERVATI|
|0000e480| 4f 4e 53 0a 43 43 0a 20 | 20 20 20 20 20 44 4f 20 |ONS.CC. | DO |
|0000e490| 32 38 30 20 49 3d 31 2c | 4e 4f 0a 43 43 20 20 20 |280 I=1,|NO.CC |
|0000e4a0| 20 45 4e 54 45 52 20 55 | 53 45 52 53 20 53 55 42 | ENTER U|SERS SUB|
|0000e4b0| 52 4f 55 54 49 4e 45 20 | 54 4f 20 43 4f 4d 50 55 |ROUTINE |TO COMPU|
|0000e4c0| 54 45 20 59 28 43 41 4c | 43 29 0a 43 43 0a 43 43 |TE Y(CAL|C).CC.CC|
|0000e4d0| 20 20 20 20 41 4e 44 20 | 44 45 52 49 56 41 54 49 | AND |DERIVATI|
|0000e4e0| 56 45 53 0a 43 43 0a 20 | 20 20 20 20 20 49 44 43 |VES.CC. | IDC|
|0000e4f0| 3d 30 0a 20 20 20 20 20 | 20 43 41 4c 4c 20 43 41 |=0. | CALL CA|
|0000e500| 4c 43 28 50 2c 57 2c 56 | 2c 56 30 2c 53 56 2c 43 |LC(P,W,V|,V0,SV,C|
|0000e510| 53 2c 47 2c 0a 20 20 20 | 20 20 26 47 4f 2c 47 58 |S,G,. | &GO,GX|
|0000e520| 30 2c 56 52 54 2c 50 48 | 2c 50 48 56 2c 58 46 2c |0,VRT,PH|,PHV,XF,|
|0000e530| 47 58 2c 41 43 2c 58 2c | 58 53 2c 58 43 53 2c 58 |GX,AC,X,|XS,XCS,X|
|0000e540| 43 4f 53 2c 58 43 41 53 | 2c 58 43 2c 20 20 20 20 |COS,XCAS|,XC, |
|0000e550| 20 20 0a 20 20 20 20 20 | 26 52 4f 43 2c 52 41 43 | . |&ROC,RAC|
|0000e560| 2c 45 4f 43 2c 43 45 4f | 43 2c 52 45 4f 43 2c 53 |,EOC,CEO|C,REOC,S|
|0000e570| 45 4f 43 2c 45 41 43 2c | 46 4f 43 2c 46 41 43 2c |EOC,EAC,|FOC,FAC,|
|0000e580| 46 4f 4b 2c 52 46 4f 4b | 2c 53 46 4f 4b 2c 46 41 |FOK,RFOK|,SFOK,FA|
|0000e590| 4b 2c 58 43 4c 2c 0a 20 | 20 20 20 20 26 46 43 4c |K,XCL,. | &FCL|
|0000e5a0| 2c 45 58 43 2c 57 41 2c | 59 43 2c 42 30 2c 42 31 |,EXC,WA,|YC,B0,B1|
|0000e5b0| 2c 42 32 2c 43 50 2c 41 | 4c 50 2c 42 50 2c 42 47 |,B2,CP,A|LP,BP,BG|
|0000e5c0| 2c 42 47 50 2c 43 47 2c | 50 43 43 2c 0a 20 20 20 |,BGP,CG,|PCC,. |
|0000e5d0| 20 20 26 45 54 48 43 2c | 45 54 48 43 50 2c 50 41 | ÐC,|ETHCP,PA|
|0000e5e0| 41 2c 45 54 48 41 2c 45 | 54 48 41 50 2c 50 43 43 |A,ETHA,E|THAP,PCC|
|0000e5f0| 41 2c 50 43 41 41 2c 44 | 43 41 2c 50 4e 43 2c 50 |A,PCAA,D|CA,PNC,P|
|0000e600| 4e 41 2c 50 4e 4e 2c 43 | 41 4d 2c 43 42 4d 2c 43 |NA,PNN,C|AM,CBM,C|
|0000e610| 43 4d 2c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |CM, | |
|0000e620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|0000e630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|0000e640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|0000e650| 20 20 20 20 20 20 20 20 | 20 20 20 0a 20 20 20 20 | | . |
|0000e660| 20 26 5a 41 2c 5a 46 41 | 2c 5a 43 2c 5a 46 43 2c | &ZA,ZFA|,ZC,ZFC,|
|0000e670| 43 41 50 2c 43 4f 50 2c | 45 50 2c 50 54 2c 46 58 |CAP,COP,|EP,PT,FX|
|0000e680| 2c 50 42 2c 52 5a 49 52 | 2c 53 43 50 53 49 2c 4b |,PB,RZIR|,SCPSI,K|
|0000e690| 58 2c 4e 5a 41 2c 0a 20 | 20 20 20 20 26 4e 5a 50 |X,NZA,. | &NZP|
|0000e6a0| 4f 2c 4e 43 4f 50 2c 4e | 43 41 50 2c 4e 49 44 54 |O,NCOP,N|CAP,NIDT|
|0000e6b0| 2c 4e 46 2c 49 43 41 2c | 49 41 4e 2c 49 4e 55 2c |,NF,ICA,|IAN,INU,|
|0000e6c0| 49 2c 49 43 2c 49 44 43 | 2c 49 43 4f 4e 56 2c 49 |I,IC,IDC|,ICONV,I|
|0000e6d0| 45 52 52 4f 52 2c 4e 50 | 53 49 29 0a 43 43 20 20 |ERROR,NP|SI).CC |
|0000e6e0| 20 20 4f 42 54 41 49 4e | 20 57 45 49 47 48 54 20 | OBTAIN| WEIGHT |
|0000e6f0| 41 4e 44 20 43 41 4c 43 | 55 4c 41 54 45 20 51 55 |AND CALC|ULATE QU|
|0000e700| 41 4e 54 49 54 49 45 53 | 0a 43 43 0a 43 43 20 20 |ANTITIES|.CC.CC |
|0000e710| 20 20 46 52 4f 4d 20 59 | 28 4f 42 53 29 2d 59 28 | FROM Y|(OBS)-Y(|
|0000e720| 43 41 4c 43 29 0a 43 43 | 0a 20 20 20 20 20 20 53 |CALC).CC|. S|
|0000e730| 51 52 54 57 3d 4f 4e 45 | 2f 53 49 47 59 4f 28 49 |QRTW=ONE|/SIGYO(I|
|0000e740| 29 0a 20 20 20 20 20 20 | 44 59 3d 59 4f 28 49 29 |). |DY=YO(I)|
|0000e750| 2d 59 43 0a 20 20 20 20 | 20 20 57 44 59 3d 53 51 |-YC. | WDY=SQ|
|0000e760| 52 54 57 2a 44 59 0a 20 | 20 20 20 20 20 53 49 47 |RTW*DY. | SIG|
|0000e770| 3d 53 49 47 2b 57 44 59 | 2a 57 44 59 0a 43 43 20 |=SIG+WDY|*WDY.CC |
|0000e780| 20 20 20 50 55 54 20 4f | 55 54 20 59 28 43 41 4c | PUT O|UT Y(CAL|
|0000e790| 43 29 20 41 4e 44 20 4f | 54 48 45 52 20 49 4e 46 |C) AND O|THER INF|
|0000e7a0| 4f 52 4d 41 54 49 4f 4e | 0a 43 43 0a 43 43 20 20 |ORMATION|.CC.CC |
|0000e7b0| 20 20 46 4f 52 20 4f 4e | 45 20 4f 42 53 45 52 56 | FOR ON|E OBSERV|
|0000e7c0| 41 54 49 4f 4e 0a 43 43 | 0a 20 20 20 20 20 20 49 |ATION.CC|. I|
|0000e7d0| 46 28 49 43 2e 4c 54 2e | 4e 43 59 29 20 47 4f 20 |F(IC.LT.|NCY) GO |
|0000e7e0| 54 4f 20 32 31 38 0a 20 | 20 20 20 20 20 57 52 49 |TO 218. | WRI|
|0000e7f0| 54 45 20 28 39 2c 36 32 | 35 29 20 49 2c 59 4f 28 |TE (9,62|5) I,YO(|
|0000e800| 49 29 2c 59 43 2c 44 59 | 2c 53 49 47 59 4f 28 49 |I),YC,DY|,SIGYO(I|
|0000e810| 29 2c 57 44 59 2c 28 58 | 28 4a 2c 49 29 2c 4a 3d |),WDY,(X|(J,I),J=|
|0000e820| 31 2c 4e 58 50 29 0a 20 | 20 20 20 20 20 57 52 49 |1,NXP). | WRI|
|0000e830| 54 45 20 28 31 33 2c 36 | 32 35 29 20 49 2c 59 4f |TE (13,6|25) I,YO|
|0000e840| 28 49 29 2c 59 43 2c 44 | 59 2c 53 49 47 59 4f 28 |(I),YC,D|Y,SIGYO(|
|0000e850| 49 29 2c 57 44 59 2c 28 | 58 28 4a 2c 49 29 2c 4a |I),WDY,(|X(J,I),J|
|0000e860| 3d 31 2c 4e 58 50 29 0a | 32 31 38 20 20 20 43 4f |=1,NXP).|218 CO|
|0000e870| 4e 54 49 4e 55 45 0a 43 | 43 20 20 20 20 42 59 2d |NTINUE.C|C BY-|
|0000e880| 50 41 53 53 20 44 45 52 | 49 56 41 54 49 56 45 20 |PASS DER|IVATIVE |
|0000e890| 41 4e 44 20 4d 41 54 52 | 49 58 20 53 45 54 2d 55 |AND MATR|IX SET-U|
|0000e8a0| 50 20 4f 4e 0a 43 43 0a | 43 43 20 20 20 20 46 49 |P ON.CC.|CC FI|
|0000e8b0| 4e 41 4c 20 43 41 4c 43 | 20 4f 46 20 59 0a 43 43 |NAL CALC| OF Y.CC|
|0000e8c0| 0a 20 20 20 20 20 20 49 | 46 20 28 49 43 2d 4e 43 |. I|F (IC-NC|
|0000e8d0| 59 29 20 32 32 30 2c 32 | 38 30 2c 32 38 30 0a 43 |Y) 220,2|80,280.C|
|0000e8e0| 43 20 20 20 20 53 54 41 | 52 54 20 4c 4f 4f 50 20 |C STA|RT LOOP |
|0000e8f0| 54 4f 20 53 54 4f 52 45 | 20 41 4e 20 41 52 52 41 |TO STORE| AN ARRA|
|0000e900| 59 20 4f 46 20 4e 56 0a | 43 43 0a 43 43 20 20 20 |Y OF NV.|CC.CC |
|0000e910| 20 44 45 52 49 56 41 54 | 49 56 45 53 0a 43 43 0a | DERIVAT|IVES.CC.|
|0000e920| 32 32 30 20 20 20 4a 3d | 31 0a 20 20 20 20 20 20 |220 J=|1. |
|0000e930| 44 4f 20 32 35 30 20 4b | 3d 31 2c 4e 50 0a 20 20 |DO 250 K|=1,NP. |
|0000e940| 20 20 20 20 49 46 20 28 | 4b 49 28 4b 29 29 20 32 | IF (|KI(K)) 2|
|0000e950| 35 30 2c 32 35 30 2c 32 | 33 35 0a 43 43 20 20 20 |50,250,2|35.CC |
|0000e960| 20 4f 42 54 41 49 4e 20 | 44 45 52 49 56 41 54 49 | OBTAIN |DERIVATI|
|0000e970| 56 45 20 4e 55 4d 45 52 | 49 43 41 4c 4c 59 0a 43 |VE NUMER|ICALLY.C|
|0000e980| 43 0a 32 33 35 20 20 20 | 44 50 4b 3d 44 50 28 4b |C.235 |DPK=DP(K|
|0000e990| 29 0a 20 20 20 20 20 20 | 49 46 20 28 44 50 4b 2e |). |IF (DPK.|
|0000e9a0| 4e 45 2e 30 29 20 47 4f | 54 4f 20 32 34 30 0a 20 |NE.0) GO|TO 240. |
|0000e9b0| 20 20 20 20 20 57 52 49 | 54 45 28 39 2c 34 39 30 | WRI|TE(9,490|
|0000e9c0| 29 20 4b 0a 34 39 30 20 | 20 20 46 4f 52 4d 41 54 |) K.490 | FORMAT|
|0000e9d0| 28 31 58 2c 27 50 41 52 | 41 4d 45 54 45 52 20 27 |(1X,'PAR|AMETER '|
|0000e9e0| 2c 49 32 2c 27 20 49 4e | 43 52 45 4d 45 4e 54 20 |,I2,' IN|CREMENT |
|0000e9f0| 49 53 20 5a 45 52 4f 27 | 29 0a 20 20 20 20 20 20 |IS ZERO'|). |
|0000ea00| 50 41 55 53 45 0a 20 20 | 20 20 20 20 53 54 4f 50 |PAUSE. | STOP|
|0000ea10| 0a 32 34 30 20 20 20 50 | 53 41 56 45 3d 50 28 4b |.240 P|SAVE=P(K|
|0000ea20| 29 0a 20 20 20 20 20 20 | 50 28 4b 29 3d 50 53 41 |). |P(K)=PSA|
|0000ea30| 56 45 2b 44 50 4b 0a 20 | 20 20 20 20 20 43 41 4c |VE+DPK. | CAL|
|0000ea40| 4c 20 43 41 4c 43 28 50 | 2c 57 2c 56 2c 56 30 2c |L CALC(P|,W,V,V0,|
|0000ea50| 53 56 2c 43 53 2c 47 2c | 0a 20 20 20 20 20 26 47 |SV,CS,G,|. &G|
|0000ea60| 4f 2c 47 58 30 2c 56 52 | 54 2c 50 48 2c 50 48 56 |O,GX0,VR|T,PH,PHV|
|0000ea70| 2c 58 46 2c 47 58 2c 41 | 43 2c 58 2c 58 53 2c 58 |,XF,GX,A|C,X,XS,X|
|0000ea80| 43 53 2c 58 43 4f 53 2c | 58 43 41 53 2c 58 43 2c |CS,XCOS,|XCAS,XC,|
|0000ea90| 0a 20 20 20 20 20 26 52 | 4f 43 2c 52 41 43 2c 45 |. &R|OC,RAC,E|
|0000eaa0| 4f 43 2c 43 45 4f 43 2c | 52 45 4f 43 2c 53 45 4f |OC,CEOC,|REOC,SEO|
|0000eab0| 43 2c 45 41 43 2c 46 4f | 43 2c 46 41 43 2c 46 4f |C,EAC,FO|C,FAC,FO|
|0000eac0| 4b 2c 52 46 4f 4b 2c 53 | 46 4f 4b 2c 46 41 4b 2c |K,RFOK,S|FOK,FAK,|
|0000ead0| 58 43 4c 2c 0a 20 20 20 | 20 20 26 46 43 4c 2c 45 |XCL,. | &FCL,E|
|0000eae0| 58 43 2c 57 41 2c 59 44 | 2c 42 30 2c 42 31 2c 42 |XC,WA,YD|,B0,B1,B|
|0000eaf0| 32 2c 43 50 2c 41 4c 50 | 2c 42 50 2c 42 47 2c 42 |2,CP,ALP|,BP,BG,B|
|0000eb00| 47 50 2c 43 47 2c 50 43 | 43 2c 0a 20 20 20 20 20 |GP,CG,PC|C,. |
|0000eb10| 26 45 54 48 43 2c 45 54 | 48 43 50 2c 50 41 41 2c |ÐC,ET|HCP,PAA,|
|0000eb20| 45 54 48 41 2c 45 54 48 | 41 50 2c 50 43 43 41 2c |ETHA,ETH|AP,PCCA,|
|0000eb30| 50 43 41 41 2c 44 43 41 | 2c 50 4e 43 2c 50 4e 41 |PCAA,DCA|,PNC,PNA|
|0000eb40| 2c 50 4e 4e 2c 43 41 4d | 2c 43 42 4d 2c 43 43 4d |,PNN,CAM|,CBM,CCM|
|0000eb50| 2c 0a 20 20 20 20 20 26 | 5a 41 2c 5a 46 41 2c 5a |,. &|ZA,ZFA,Z|
|0000eb60| 43 2c 5a 46 43 2c 43 41 | 50 2c 43 4f 50 2c 45 50 |C,ZFC,CA|P,COP,EP|
|0000eb70| 2c 50 54 2c 46 58 2c 50 | 42 2c 52 5a 49 52 2c 53 |,PT,FX,P|B,RZIR,S|
|0000eb80| 43 50 53 49 2c 4b 58 2c | 4e 5a 41 2c 0a 20 20 20 |CPSI,KX,|NZA,. |
|0000eb90| 20 20 26 4e 5a 50 4f 2c | 4e 43 4f 50 2c 4e 43 41 | &NZPO,|NCOP,NCA|
|0000eba0| 50 2c 4e 49 44 54 2c 4e | 46 2c 49 43 41 2c 49 41 |P,NIDT,N|F,ICA,IA|
|0000ebb0| 4e 2c 49 4e 55 2c 49 2c | 49 43 2c 4a 2c 49 43 4f |N,INU,I,|IC,J,ICO|
|0000ebc0| 4e 56 2c 49 45 52 52 4f | 52 2c 4e 50 53 49 29 0a |NV,IERRO|R,NPSI).|
|0000ebd0| 20 20 20 20 20 20 44 56 | 28 4a 29 3d 53 51 52 54 | DV|(J)=SQRT|
|0000ebe0| 57 2a 28 59 44 2d 59 43 | 29 2f 44 50 4b 0a 20 20 |W*(YD-YC|)/DPK. |
|0000ebf0| 20 20 20 20 50 28 4b 29 | 3d 50 53 41 56 45 0a 32 | P(K)|=PSAVE.2|
|0000ec00| 34 35 20 20 20 4a 3d 4a | 2b 31 0a 32 35 30 20 20 |45 J=J|+1.250 |
|0000ec10| 20 43 4f 4e 54 49 4e 55 | 45 0a 43 43 20 20 20 20 | CONTINU|E.CC |
|0000ec20| 45 4e 44 20 4c 4f 4f 50 | 20 54 4f 20 4f 42 54 41 |END LOOP| TO OBTA|
|0000ec30| 49 4e 20 44 45 52 49 56 | 41 54 49 56 45 53 0a 43 |IN DERIV|ATIVES.C|
|0000ec40| 43 0a 43 43 20 20 20 20 | 53 54 41 52 54 20 4c 4f |C.CC |START LO|
|0000ec50| 4f 50 20 54 4f 20 53 54 | 4f 52 45 20 4d 41 54 52 |OP TO ST|ORE MATR|
|0000ec60| 49 58 20 41 4e 44 20 56 | 45 43 54 4f 52 2e 0a 43 |IX AND V|ECTOR..C|
|0000ec70| 43 0a 43 20 20 20 20 20 | 31 36 30 34 20 4f 52 20 |C.C |1604 OR |
|0000ec80| 47 4c 53 20 53 54 4f 52 | 41 47 45 20 53 43 48 45 |GLS STOR|AGE SCHE|
|0000ec90| 4d 45 20 49 53 20 52 45 | 56 45 52 53 45 0a 43 0a |ME IS RE|VERSE.C.|
|0000eca0| 43 20 20 20 20 20 4f 46 | 20 37 30 39 30 20 4f 52 |C OF| 7090 OR|
|0000ecb0| 20 47 4c 53 0a 43 0a 20 | 20 20 20 20 20 4a 4b 3d | GLS.C. | JK=|
|0000ecc0| 31 0a 20 20 20 20 20 20 | 44 4f 20 32 37 35 20 4a |1. |DO 275 J|
|0000ecd0| 3d 31 2c 4e 56 0a 43 43 | 0a 32 35 35 20 20 20 54 |=1,NV.CC|.255 T|
|0000ece0| 45 4d 50 3d 44 56 28 4a | 29 0a 20 20 20 20 20 20 |EMP=DV(J|). |
|0000ecf0| 49 46 20 28 54 45 4d 50 | 29 20 32 36 35 2c 32 36 |IF (TEMP|) 265,26|
|0000ed00| 30 2c 32 36 35 0a 43 43 | 20 20 20 20 42 59 2d 50 |0,265.CC| BY-P|
|0000ed10| 41 53 53 20 49 46 20 44 | 45 52 49 56 41 54 49 56 |ASS IF D|ERIVATIV|
|0000ed20| 45 20 49 53 20 5a 45 52 | 4f 0a 43 43 0a 32 36 30 |E IS ZER|O.CC.260|
|0000ed30| 20 20 20 4a 4b 3d 4a 4b | 2b 4e 56 2b 31 2d 4a 0a | JK=JK|+NV+1-J.|
|0000ed40| 20 20 20 20 20 20 47 4f | 20 54 4f 20 32 37 35 0a | GO| TO 275.|
|0000ed50| 32 36 35 20 20 20 44 4f | 20 32 37 30 20 4b 3d 4a |265 DO| 270 K=J|
|0000ed60| 2c 4e 56 0a 20 20 20 20 | 20 20 41 4d 28 4a 4b 29 |,NV. | AM(JK)|
|0000ed70| 3d 41 4d 28 4a 4b 29 2b | 54 45 4d 50 2a 44 56 28 |=AM(JK)+|TEMP*DV(|
|0000ed80| 4b 29 0a 20 20 20 20 20 | 20 4a 4b 3d 4a 4b 2b 31 |K). | JK=JK+1|
|0000ed90| 0a 32 37 30 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a |.270 C|ONTINUE.|
|0000eda0| 20 20 20 20 20 20 56 43 | 28 4a 29 3d 56 43 28 4a | VC|(J)=VC(J|
|0000edb0| 29 2b 54 45 4d 50 2a 57 | 44 59 0a 32 37 35 20 20 |)+TEMP*W|DY.275 |
|0000edc0| 20 43 4f 4e 54 49 4e 55 | 45 0a 43 43 20 20 20 20 | CONTINU|E.CC |
|0000edd0| 45 4e 44 20 4c 4f 4f 50 | 20 54 4f 20 53 54 4f 52 |END LOOP| TO STOR|
|0000ede0| 45 20 4d 41 54 52 49 58 | 20 41 4e 44 0a 43 43 0a |E MATRIX| AND.CC.|
|0000edf0| 43 43 20 20 20 20 56 45 | 43 54 4f 52 0a 43 43 0a |CC VE|CTOR.CC.|
|0000ee00| 32 38 30 20 20 20 43 4f | 4e 54 49 4e 55 45 0a 43 |280 CO|NTINUE.C|
|0000ee10| 43 20 20 20 20 45 4e 44 | 20 4c 4f 4f 50 20 54 48 |C END| LOOP TH|
|0000ee20| 52 4f 55 47 48 20 4e 4f | 20 4f 42 53 45 52 56 41 |ROUGH NO| OBSERVA|
|0000ee30| 54 49 4f 4e 53 0a 43 43 | 0a 43 43 20 20 20 20 43 |TIONS.CC|.CC C|
|0000ee40| 4f 4d 50 55 54 45 20 41 | 4e 44 20 50 55 54 20 4f |OMPUTE A|ND PUT O|
|0000ee50| 55 54 20 41 47 52 45 45 | 4d 45 4e 54 20 46 41 43 |UT AGREE|MENT FAC|
|0000ee60| 54 4f 52 53 0a 43 43 0a | 20 20 20 20 20 20 53 51 |TORS.CC.| SQ|
|0000ee70| 53 49 47 28 31 29 3d 44 | 53 51 52 54 28 53 49 47 |SIG(1)=D|SQRT(SIG|
|0000ee80| 2f 44 42 4c 45 28 46 4c | 4f 41 54 28 4d 41 58 30 |/DBLE(FL|OAT(MAX0|
|0000ee90| 28 4e 4f 46 2d 4e 56 2c | 31 29 29 29 29 0a 20 20 |(NOF-NV,|1)))). |
|0000eea0| 20 20 20 20 53 49 47 53 | 56 3d 53 49 47 0a 20 20 | SIGS|V=SIG. |
|0000eeb0| 20 20 20 20 53 51 53 47 | 53 56 3d 53 51 53 49 47 | SQSG|SV=SQSIG|
|0000eec0| 28 31 29 0a 20 20 20 20 | 20 20 53 49 47 4d 41 3d |(1). | SIGMA=|
|0000eed0| 53 51 53 49 47 28 31 29 | 0a 20 20 20 20 20 20 57 |SQSIG(1)|. W|
|0000eee0| 52 49 54 45 20 28 31 32 | 2c 36 33 30 29 20 49 43 |RITE (12|,630) IC|
|0000eef0| 2c 53 49 47 2c 53 51 53 | 49 47 28 31 29 0a 20 20 |,SIG,SQS|IG(1). |
|0000ef00| 20 20 20 20 57 52 49 54 | 45 20 28 39 2c 36 33 30 | WRIT|E (9,630|
|0000ef10| 29 20 49 43 2c 53 49 47 | 2c 53 51 53 49 47 28 31 |) IC,SIG|,SQSIG(1|
|0000ef20| 29 0a 43 43 20 20 20 20 | 42 59 2d 50 41 53 53 20 |).CC |BY-PASS |
|0000ef30| 4d 41 54 52 49 58 20 49 | 4e 56 45 52 53 49 4f 4e |MATRIX I|NVERSION|
|0000ef40| 20 41 4e 44 20 50 41 52 | 41 4d 45 54 45 52 20 4f | AND PAR|AMETER O|
|0000ef50| 55 54 50 55 54 0a 43 43 | 0a 43 43 20 20 20 20 4f |UTPUT.CC|.CC O|
|0000ef60| 4e 20 46 49 4e 41 4c 20 | 43 59 43 4c 45 0a 43 43 |N FINAL |CYCLE.CC|
|0000ef70| 0a 20 20 20 20 20 20 49 | 46 20 28 49 43 2d 4e 43 |. I|F (IC-NC|
|0000ef80| 59 29 20 32 38 35 2c 34 | 34 35 2c 34 34 35 0a 43 |Y) 285,4|45,445.C|
|0000ef90| 43 20 20 20 20 53 41 56 | 45 20 4d 41 54 52 49 58 |C SAV|E MATRIX|
|0000efa0| 20 46 4f 52 20 50 4f 53 | 53 49 42 4c 45 20 50 52 | FOR POS|SIBLE PR|
|0000efb0| 49 4e 43 49 50 41 4c 20 | 43 4f 4d 50 4f 4e 45 4e |INCIPAL |COMPONEN|
|0000efc0| 54 0a 43 43 0a 43 43 20 | 20 20 20 41 4e 41 4c 59 |T.CC.CC | ANALY|
|0000efd0| 53 49 53 0a 43 43 0a 32 | 38 35 20 20 20 4a 4b 3d |SIS.CC.2|85 JK=|
|0000efe0| 30 0a 20 20 20 20 20 20 | 44 4f 20 32 39 35 20 4a |0. |DO 295 J|
|0000eff0| 3d 31 2c 4e 56 0a 20 20 | 20 20 20 20 44 4f 20 32 |=1,NV. | DO 2|
|0000f000| 39 30 20 4b 3d 4a 2c 4e | 56 0a 20 20 20 20 20 20 |90 K=J,N|V. |
|0000f010| 4a 4b 3d 4a 4b 2b 31 0a | 20 20 20 20 20 20 4a 4b |JK=JK+1.| JK|
|0000f020| 55 3d 4a 2b 28 4b 2d 31 | 29 2a 4e 56 0a 20 20 20 |U=J+(K-1|)*NV. |
|0000f030| 20 20 20 4a 4b 4c 3d 4b | 2b 28 4a 2d 31 29 2a 4e | JKL=K|+(J-1)*N|
|0000f040| 56 0a 20 20 20 20 20 20 | 45 56 45 43 28 4a 4b 55 |V. |EVEC(JKU|
|0000f050| 29 3d 41 4d 28 4a 4b 29 | 0a 20 20 20 20 20 20 45 |)=AM(JK)|. E|
|0000f060| 56 45 43 28 4a 4b 4c 29 | 3d 41 4d 28 4a 4b 29 0a |VEC(JKL)|=AM(JK).|
|0000f070| 32 39 30 20 20 20 43 4f | 4e 54 49 4e 55 45 0a 32 |290 CO|NTINUE.2|
|0000f080| 39 35 20 20 20 43 4f 4e | 54 49 4e 55 45 0a 43 43 |95 CON|TINUE.CC|
|0000f090| 20 20 20 20 53 54 41 52 | 54 20 4c 4f 4f 50 20 54 | STAR|T LOOP T|
|0000f0a0| 4f 20 54 45 53 54 20 46 | 4f 52 20 5a 45 52 4f 20 |O TEST F|OR ZERO |
|0000f0b0| 44 49 41 47 4f 4e 41 4c | 20 45 4c 45 4d 45 4e 54 |DIAGONAL| ELEMENT|
|0000f0c0| 0a 43 43 0a 20 20 20 20 | 20 20 49 53 49 4e 47 3d |.CC. | ISING=|
|0000f0d0| 30 0a 20 20 20 20 20 20 | 49 49 3d 31 0a 20 20 20 |0. |II=1. |
|0000f0e0| 20 20 20 49 49 44 3d 4e | 56 0a 20 20 20 20 20 20 | IID=N|V. |
|0000f0f0| 44 4f 20 33 31 30 20 49 | 3d 31 2c 4e 56 0a 20 20 |DO 310 I|=1,NV. |
|0000f100| 20 20 20 20 49 46 20 28 | 41 4d 28 49 49 29 29 20 | IF (|AM(II)) |
|0000f110| 33 30 35 2c 33 30 30 2c | 33 30 35 0a 33 30 30 20 |305,300,|305.300 |
|0000f120| 20 20 49 53 49 4e 47 3d | 31 0a 20 20 20 20 20 20 | ISING=|1. |
|0000f130| 57 52 49 54 45 20 28 31 | 32 2c 36 34 30 29 20 49 |WRITE (1|2,640) I|
|0000f140| 4f 55 54 28 49 29 0a 20 | 20 20 20 20 20 57 52 49 |OUT(I). | WRI|
|0000f150| 54 45 20 28 39 2c 36 34 | 30 29 20 49 4f 55 54 28 |TE (9,64|0) IOUT(|
|0000f160| 49 29 0a 33 30 35 20 20 | 20 49 49 3d 49 49 2b 49 |I).305 | II=II+I|
|0000f170| 49 44 0a 20 20 20 20 20 | 20 49 49 44 3d 49 49 44 |ID. | IID=IID|
|0000f180| 2d 31 0a 33 31 30 20 20 | 20 43 4f 4e 54 49 4e 55 |-1.310 | CONTINU|
|0000f190| 45 0a 43 43 20 20 20 20 | 45 4e 44 20 4c 4f 4f 50 |E.CC |END LOOP|
|0000f1a0| 20 54 4f 20 54 45 53 54 | 20 46 4f 52 20 5a 45 52 | TO TEST| FOR ZER|
|0000f1b0| 4f 20 44 49 41 47 4f 4e | 41 4c 0a 43 43 0a 43 43 |O DIAGON|AL.CC.CC|
|0000f1c0| 20 20 20 20 45 4c 45 4d | 45 4e 54 0a 43 43 0a 43 | ELEM|ENT.CC.C|
|0000f1d0| 43 20 20 20 20 50 52 49 | 4e 43 49 50 41 4c 20 43 |C PRI|NCIPAL C|
|0000f1e0| 4f 4d 50 4f 4e 45 4e 54 | 20 41 4e 41 4c 59 53 49 |OMPONENT| ANALYSI|
|0000f1f0| 53 20 49 46 20 5a 45 52 | 4f 20 44 49 41 47 4f 4e |S IF ZER|O DIAGON|
|0000f200| 41 4c 0a 43 43 0a 43 43 | 20 20 20 20 46 4f 55 4e |AL.CC.CC| FOUN|
|0000f210| 44 0a 43 43 0a 20 20 20 | 20 20 20 49 46 20 28 49 |D.CC. | IF (I|
|0000f220| 53 49 4e 47 29 20 33 33 | 30 2c 33 31 35 2c 33 33 |SING) 33|0,315,33|
|0000f230| 30 0a 43 43 20 20 20 20 | 45 4e 54 45 52 20 53 55 |0.CC |ENTER SU|
|0000f240| 42 52 4f 55 54 49 4e 45 | 20 54 4f 20 52 45 50 4c |BROUTINE| TO REPL|
|0000f250| 41 43 45 20 4d 41 54 52 | 49 58 0a 43 43 0a 43 43 |ACE MATR|IX.CC.CC|
|0000f260| 20 20 20 20 57 49 54 48 | 20 49 4e 56 45 52 53 45 | WITH| INVERSE|
|0000f270| 0a 43 43 0a 33 31 35 20 | 20 20 43 41 4c 4c 20 4d |.CC.315 | CALL M|
|0000f280| 41 54 49 4e 56 28 41 4d | 2c 4e 56 2c 49 53 49 4e |ATINV(AM|,NV,ISIN|
|0000f290| 47 29 0a 20 20 20 20 20 | 20 49 46 20 28 49 53 49 |G). | IF (ISI|
|0000f2a0| 4e 47 29 20 33 32 35 2c | 33 32 30 2c 33 32 35 0a |NG) 325,|320,325.|
|0000f2b0| 33 32 30 20 20 20 49 46 | 20 28 49 50 43 41 29 20 |320 IF| (IPCA) |
|0000f2c0| 33 33 30 2c 33 36 35 2c | 33 33 30 0a 43 43 20 20 |330,365,|330.CC |
|0000f2d0| 20 20 53 49 4e 47 55 4c | 41 52 20 4d 41 54 52 49 | SINGUL|AR MATRI|
|0000f2e0| 58 20 46 4f 55 4e 44 0a | 43 43 0a 33 32 35 20 20 |X FOUND.|CC.325 |
|0000f2f0| 20 57 52 49 54 45 20 28 | 31 32 2c 36 35 30 29 0a | WRITE (|12,650).|
|0000f300| 20 20 20 20 20 20 57 52 | 49 54 45 20 28 39 2c 36 | WR|ITE (9,6|
|0000f310| 35 30 29 0a 43 43 20 20 | 20 20 50 52 49 4e 54 20 |50).CC | PRINT |
|0000f320| 4d 41 54 52 49 58 0a 43 | 43 0a 33 33 30 20 20 20 |MATRIX.C|C.330 |
|0000f330| 57 52 49 54 45 20 28 31 | 32 2c 36 30 30 29 20 49 |WRITE (1|2,600) I|
|0000f340| 43 2c 28 49 4f 55 54 28 | 49 29 2c 49 3d 31 2c 4e |C,(IOUT(|I),I=1,N|
|0000f350| 56 29 0a 20 20 20 20 20 | 20 57 52 49 54 45 20 28 |V). | WRITE (|
|0000f360| 39 2c 36 30 30 29 20 49 | 43 2c 28 49 4f 55 54 28 |9,600) I|C,(IOUT(|
|0000f370| 49 29 2c 49 3d 31 2c 4e | 56 29 0a 20 20 20 20 20 |I),I=1,N|V). |
|0000f380| 20 4b 32 3d 30 0a 20 20 | 20 20 20 20 44 4f 20 33 | K2=0. | DO 3|
|0000f390| 33 35 20 49 3d 31 2c 4e | 56 0a 20 20 20 20 20 20 |35 I=1,N|V. |
|0000f3a0| 4b 31 3d 4b 32 2b 31 0a | 20 20 20 20 20 20 4b 32 |K1=K2+1.| K2|
|0000f3b0| 3d 4b 32 2b 4e 56 0a 20 | 20 20 20 20 20 57 52 49 |=K2+NV. | WRI|
|0000f3c0| 54 45 20 28 31 32 2c 36 | 30 35 29 20 49 4f 55 54 |TE (12,6|05) IOUT|
|0000f3d0| 28 49 29 2c 28 45 56 45 | 43 28 4b 29 2c 4b 3d 4b |(I),(EVE|C(K),K=K|
|0000f3e0| 31 2c 4b 32 29 0a 20 20 | 20 20 20 20 57 52 49 54 |1,K2). | WRIT|
|0000f3f0| 45 20 28 39 2c 36 30 35 | 29 20 49 4f 55 54 28 49 |E (9,605|) IOUT(I|
|0000f400| 29 2c 28 45 56 45 43 28 | 4b 29 2c 4b 3d 4b 31 2c |),(EVEC(|K),K=K1,|
|0000f410| 4b 32 29 0a 33 33 35 20 | 20 20 43 4f 4e 54 49 4e |K2).335 | CONTIN|
|0000f420| 55 45 0a 43 43 20 20 20 | 20 43 4f 4d 50 55 54 45 |UE.CC | COMPUTE|
|0000f430| 20 41 4e 44 20 50 52 49 | 4e 54 20 53 43 41 4c 45 | AND PRI|NT SCALE|
|0000f440| 20 46 41 43 54 4f 52 53 | 0a 43 43 0a 20 20 20 20 | FACTORS|.CC. |
|0000f450| 20 20 43 41 4c 4c 20 4d | 53 54 52 28 45 56 45 43 | CALL M|STR(EVEC|
|0000f460| 2c 53 41 4d 2c 4e 56 2c | 30 2c 32 29 0a 20 20 20 |,SAM,NV,|0,2). |
|0000f470| 20 20 20 44 4f 20 33 34 | 35 20 49 3d 31 2c 4e 56 | DO 34|5 I=1,NV|
|0000f480| 0a 20 20 20 20 20 20 49 | 46 20 28 53 41 4d 28 49 |. I|F (SAM(I|
|0000f490| 29 29 20 33 34 35 2c 33 | 34 35 2c 33 34 30 0a 33 |)) 345,3|45,340.3|
|0000f4a0| 34 30 20 20 20 53 41 4d | 28 49 29 3d 4f 4e 45 2f |40 SAM|(I)=ONE/|
|0000f4b0| 44 53 51 52 54 28 53 41 | 4d 28 49 29 29 0a 33 34 |DSQRT(SA|M(I)).34|
|0000f4c0| 35 20 20 20 43 4f 4e 54 | 49 4e 55 45 0a 20 20 20 |5 CONT|INUE. |
|0000f4d0| 20 20 20 57 52 49 54 45 | 20 28 31 32 2c 36 32 30 | WRITE| (12,620|
|0000f4e0| 29 20 28 49 4f 55 54 28 | 49 29 2c 49 3d 31 2c 4e |) (IOUT(|I),I=1,N|
|0000f4f0| 56 29 0a 20 20 20 20 20 | 20 57 52 49 54 45 20 28 |V). | WRITE (|
|0000f500| 39 2c 36 32 30 29 20 28 | 49 4f 55 54 28 49 29 2c |9,620) (|IOUT(I),|
|0000f510| 49 3d 31 2c 4e 56 29 0a | 20 20 20 20 20 20 57 52 |I=1,NV).| WR|
|0000f520| 49 54 45 20 28 31 32 2c | 36 34 35 29 20 28 53 41 |ITE (12,|645) (SA|
|0000f530| 4d 28 49 29 2c 49 3d 31 | 2c 4e 56 29 0a 20 20 20 |M(I),I=1|,NV). |
|0000f540| 20 20 20 57 52 49 54 45 | 20 28 39 2c 36 34 35 29 | WRITE| (9,645)|
|0000f550| 20 28 53 41 4d 28 49 29 | 2c 49 3d 31 2c 4e 56 29 | (SAM(I)|,I=1,NV)|
|0000f560| 0a 43 43 20 20 20 20 53 | 43 41 4c 45 20 4d 41 54 |.CC S|CALE MAT|
|0000f570| 52 49 58 0a 43 43 0a 20 | 20 20 20 20 20 49 4a 3d |RIX.CC. | IJ=|
|0000f580| 30 0a 20 20 20 20 20 20 | 44 4f 20 33 35 35 20 4a |0. |DO 355 J|
|0000f590| 3d 31 2c 4e 56 0a 20 20 | 20 20 20 20 44 4f 20 33 |=1,NV. | DO 3|
|0000f5a0| 35 30 20 49 3d 31 2c 4e | 56 0a 20 20 20 20 20 20 |50 I=1,N|V. |
|0000f5b0| 49 4a 3d 49 4a 2b 31 0a | 20 20 20 20 20 20 45 56 |IJ=IJ+1.| EV|
|0000f5c0| 45 43 28 49 4a 29 3d 45 | 56 45 43 28 49 4a 29 2a |EC(IJ)=E|VEC(IJ)*|
|0000f5d0| 53 41 4d 28 49 29 2a 53 | 41 4d 28 4a 29 0a 33 35 |SAM(I)*S|AM(J).35|
|0000f5e0| 30 20 20 20 43 4f 4e 54 | 49 4e 55 45 0a 33 35 35 |0 CONT|INUE.355|
|0000f5f0| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 43 43 20 20 | CONTI|NUE.CC |
|0000f600| 20 20 50 52 49 4e 43 49 | 50 41 4c 20 43 4f 4d 50 | PRINCI|PAL COMP|
|0000f610| 4f 4e 45 4e 54 20 41 4e | 41 4c 59 53 49 53 0a 43 |ONENT AN|ALYSIS.C|
|0000f620| 43 0a 20 20 20 20 20 20 | 43 41 4c 4c 20 4d 53 54 |C. |CALL MST|
|0000f630| 52 28 45 56 45 43 2c 41 | 4d 45 56 2c 4e 56 2c 30 |R(EVEC,A|MEV,NV,0|
|0000f640| 2c 31 29 0a 20 20 20 20 | 20 20 43 41 4c 4c 20 45 |,1). | CALL E|
|0000f650| 49 47 45 4e 28 41 4d 45 | 56 2c 45 56 45 43 2c 4e |IGEN(AME|V,EVEC,N|
|0000f660| 56 2c 30 29 0a 20 20 20 | 20 20 20 43 41 4c 4c 20 |V,0). | CALL |
|0000f670| 4d 53 54 52 28 41 4d 45 | 56 2c 45 56 41 4c 2c 4e |MSTR(AME|V,EVAL,N|
|0000f680| 56 2c 31 2c 32 29 0a 43 | 43 20 20 20 20 50 52 49 |V,1,2).C|C PRI|
|0000f690| 4e 54 20 45 49 47 45 4e | 56 41 4c 55 45 53 20 41 |NT EIGEN|VALUES A|
|0000f6a0| 4e 44 20 45 49 47 45 4e | 56 45 43 54 4f 52 53 0a |ND EIGEN|VECTORS.|
|0000f6b0| 43 43 0a 20 20 20 20 20 | 20 57 52 49 54 45 20 28 |CC. | WRITE (|
|0000f6c0| 31 32 2c 36 31 30 29 20 | 49 43 2c 28 49 4f 55 54 |12,610) |IC,(IOUT|
|0000f6d0| 28 49 29 2c 49 3d 31 2c | 4e 56 29 0a 20 20 20 20 |(I),I=1,|NV). |
|0000f6e0| 20 20 57 52 49 54 45 20 | 28 39 2c 36 31 30 29 20 | WRITE |(9,610) |
|0000f6f0| 49 43 2c 28 49 4f 55 54 | 28 49 29 2c 49 3d 31 2c |IC,(IOUT|(I),I=1,|
|0000f700| 4e 56 29 0a 20 20 20 20 | 20 20 4b 32 3d 30 0a 20 |NV). | K2=0. |
|0000f710| 20 20 20 20 20 44 4f 20 | 33 36 30 20 49 3d 31 2c | DO |360 I=1,|
|0000f720| 4e 56 0a 20 20 20 20 20 | 20 4b 31 3d 4b 32 2b 31 |NV. | K1=K2+1|
|0000f730| 0a 20 20 20 20 20 20 4b | 32 3d 4b 32 2b 4e 56 0a |. K|2=K2+NV.|
|0000f740| 20 20 20 20 20 20 57 52 | 49 54 45 20 28 31 32 2c | WR|ITE (12,|
|0000f750| 36 31 35 29 20 49 2c 45 | 56 41 4c 28 49 29 2c 28 |615) I,E|VAL(I),(|
|0000f760| 45 56 45 43 28 4b 29 2c | 4b 3d 4b 31 2c 4b 32 29 |EVEC(K),|K=K1,K2)|
|0000f770| 0a 20 20 20 20 20 20 57 | 52 49 54 45 20 28 39 2c |. W|RITE (9,|
|0000f780| 36 31 35 29 20 49 2c 45 | 56 41 4c 28 49 29 2c 28 |615) I,E|VAL(I),(|
|0000f790| 45 56 45 43 28 4b 29 2c | 4b 3d 4b 31 2c 4b 32 29 |EVEC(K),|K=K1,K2)|
|0000f7a0| 0a 33 36 30 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a |.360 C|ONTINUE.|
|0000f7b0| 43 43 20 20 20 20 54 45 | 52 4d 49 4e 41 54 45 20 |CC TE|RMINATE |
|0000f7c0| 49 46 20 4d 41 54 52 49 | 58 20 49 53 20 53 49 4e |IF MATRI|X IS SIN|
|0000f7d0| 47 55 4c 41 52 0a 43 43 | 0a 20 20 20 20 20 20 49 |GULAR.CC|. I|
|0000f7e0| 46 20 28 49 53 49 4e 47 | 2e 4e 45 2e 30 29 20 57 |F (ISING|.NE.0) W|
|0000f7f0| 52 49 54 45 28 31 32 2c | 31 31 31 31 29 0a 31 31 |RITE(12,|1111).11|
|0000f800| 31 31 20 20 46 4f 52 4d | 41 54 28 31 58 2c 27 40 |11 FORM|AT(1X,'@|
|0000f810| 27 29 0a 20 20 20 20 20 | 20 49 46 20 28 49 53 49 |'). | IF (ISI|
|0000f820| 4e 47 2e 4e 45 2e 30 29 | 20 52 45 54 55 52 4e 0a |NG.NE.0)| RETURN.|
|0000f830| 43 43 20 20 20 20 53 54 | 41 52 54 20 4c 4f 4f 50 |CC ST|ART LOOP|
|0000f840| 20 46 4f 52 20 4d 41 54 | 52 49 58 20 56 45 43 54 | FOR MAT|RIX VECT|
|0000f850| 4f 52 20 4d 55 4c 54 49 | 50 4c 49 43 41 54 49 4f |OR MULTI|PLICATIO|
|0000f860| 4e 0a 43 43 20 20 20 20 | 46 4f 52 0a 43 43 20 20 |N.CC |FOR.CC |
|0000f870| 20 20 50 41 52 41 4d 45 | 54 45 52 0a 43 43 0a 43 | PARAME|TER.CC.C|
|0000f880| 43 20 20 20 20 43 48 41 | 4e 47 45 53 0a 43 43 0a |C CHA|NGES.CC.|
|0000f890| 33 36 35 20 20 20 44 4f | 20 33 39 30 20 49 3d 31 |365 DO| 390 I=1|
|0000f8a0| 2c 4e 56 0a 20 20 20 20 | 20 20 50 44 49 3d 5a 45 |,NV. | PDI=ZE|
|0000f8b0| 52 4f 0a 20 20 20 20 20 | 20 49 4a 3d 49 0a 20 20 |RO. | IJ=I. |
|0000f8c0| 20 20 20 20 49 4a 44 3d | 4e 56 2d 31 0a 20 20 20 | IJD=|NV-1. |
|0000f8d0| 20 20 20 44 4f 20 33 38 | 35 20 4a 3d 31 2c 4e 56 | DO 38|5 J=1,NV|
|0000f8e0| 0a 20 20 20 20 20 20 50 | 44 49 3d 50 44 49 2b 41 |. P|DI=PDI+A|
|0000f8f0| 4d 28 49 4a 29 2a 56 43 | 28 4a 29 0a 20 20 20 20 |M(IJ)*VC|(J). |
|0000f900| 20 20 49 46 20 28 4a 2d | 49 29 20 33 37 30 2c 33 | IF (J-|I) 370,3|
|0000f910| 37 35 2c 33 38 30 0a 33 | 37 30 20 20 20 49 4a 3d |75,380.3|70 IJ=|
|0000f920| 49 4a 2b 49 4a 44 0a 20 | 20 20 20 20 20 49 4a 44 |IJ+IJD. | IJD|
|0000f930| 3d 49 4a 44 2d 31 0a 20 | 20 20 20 20 20 47 4f 20 |=IJD-1. | GO |
|0000f940| 54 4f 20 33 38 35 0a 43 | 43 20 20 20 20 53 41 56 |TO 385.C|C SAV|
|0000f950| 45 20 44 49 41 47 4f 4e | 41 4c 20 45 4c 45 4d 45 |E DIAGON|AL ELEME|
|0000f960| 4e 54 53 0a 43 43 0a 43 | 43 20 20 20 20 4f 46 20 |NTS.CC.C|C OF |
|0000f970| 49 4e 56 45 52 53 45 20 | 4d 41 54 52 49 58 0a 43 |INVERSE |MATRIX.C|
|0000f980| 43 0a 33 37 35 20 20 20 | 44 49 41 47 28 49 29 3d |C.375 |DIAG(I)=|
|0000f990| 41 4d 28 49 4a 29 0a 33 | 38 30 20 20 20 49 4a 3d |AM(IJ).3|80 IJ=|
|0000f9a0| 49 4a 2b 31 0a 33 38 35 | 20 20 20 43 4f 4e 54 49 |IJ+1.385| CONTI|
|0000f9b0| 4e 55 45 0a 20 20 20 20 | 20 20 50 44 28 49 29 3d |NUE. | PD(I)=|
|0000f9c0| 50 44 49 0a 20 20 20 20 | 20 20 53 49 47 3d 53 49 |PDI. | SIG=SI|
|0000f9d0| 47 2d 50 44 49 2a 56 43 | 28 49 29 0a 33 39 30 20 |G-PDI*VC|(I).390 |
|0000f9e0| 20 20 43 4f 4e 54 49 4e | 55 45 0a 43 43 20 20 20 | CONTIN|UE.CC |
|0000f9f0| 20 45 4e 44 20 4c 4f 4f | 50 20 46 4f 52 20 4d 41 | END LOO|P FOR MA|
|0000fa00| 54 52 49 58 20 56 45 43 | 54 4f 52 20 4d 55 4c 54 |TRIX VEC|TOR MULT|
|0000fa10| 49 50 4c 49 43 41 54 49 | 4f 4e 0a 43 43 0a 43 43 |IPLICATI|ON.CC.CC|
|0000fa20| 20 20 20 20 52 45 43 4f | 4d 50 55 54 45 20 41 47 | RECO|MPUTE AG|
|0000fa30| 52 45 45 4d 45 4e 54 20 | 46 41 43 54 4f 52 20 55 |REEMENT |FACTOR U|
|0000fa40| 53 49 4e 47 0a 43 43 0a | 43 43 20 20 20 20 4d 4f |SING.CC.|CC MO|
|0000fa50| 44 49 46 49 45 44 20 53 | 49 47 0a 43 43 0a 20 20 |DIFIED S|IG.CC. |
|0000fa60| 20 20 20 20 53 51 53 49 | 47 28 31 29 3d 44 53 51 | SQSI|G(1)=DSQ|
|0000fa70| 52 54 28 44 4d 41 58 31 | 28 53 49 47 2f 20 46 4c |RT(DMAX1|(SIG/ FL|
|0000fa80| 4f 41 54 28 4d 41 58 30 | 28 4e 4f 46 2d 4e 56 2c |OAT(MAX0|(NOF-NV,|
|0000fa90| 31 29 29 2c 5a 45 52 4f | 29 29 0a 43 43 20 20 20 |1)),ZERO|)).CC |
|0000faa0| 20 50 55 54 20 4f 55 54 | 20 43 41 50 54 49 4f 4e | PUT OUT| CAPTION|
|0000fab0| 20 46 4f 52 20 4c 49 53 | 54 20 4f 46 20 43 4f 52 | FOR LIS|T OF COR|
|0000fac0| 52 45 43 54 45 44 0a 43 | 43 0a 43 43 20 20 20 20 |RECTED.C|C.CC |
|0000fad0| 50 41 52 41 4d 45 54 45 | 52 53 0a 43 43 0a 20 20 |PARAMETE|RS.CC. |
|0000fae0| 20 20 20 20 57 52 49 54 | 45 20 28 31 32 2c 36 35 | WRIT|E (12,65|
|0000faf0| 35 29 20 49 43 0a 20 20 | 20 20 20 20 57 52 49 54 |5) IC. | WRIT|
|0000fb00| 45 20 28 39 2c 36 35 35 | 29 20 49 43 0a 43 43 20 |E (9,655|) IC.CC |
|0000fb10| 20 20 20 53 54 41 52 54 | 20 4c 4f 4f 50 20 54 4f | START| LOOP TO|
|0000fb20| 20 43 4f 52 52 45 43 54 | 20 41 4e 44 20 50 55 54 | CORRECT| AND PUT|
|0000fb30| 20 4f 55 54 0a 43 43 0a | 43 43 20 20 20 20 50 41 | OUT.CC.|CC PA|
|0000fb40| 52 41 4d 45 54 45 52 53 | 0a 43 43 0a 20 20 20 20 |RAMETERS|.CC. |
|0000fb50| 20 20 4a 3d 31 0a 20 20 | 20 20 20 20 44 4f 20 34 | J=1. | DO 4|
|0000fb60| 30 35 20 49 3d 31 2c 4e | 50 0a 20 20 20 20 20 20 |05 I=1,N|P. |
|0000fb70| 49 46 28 4b 49 28 49 29 | 2e 45 51 2e 30 29 20 47 |IF(KI(I)|.EQ.0) G|
|0000fb80| 4f 20 54 4f 20 34 30 35 | 0a 20 20 20 20 20 20 50 |O TO 405|. P|
|0000fb90| 4f 4c 44 3d 50 28 49 29 | 0a 20 20 20 20 20 20 4b |OLD=P(I)|. K|
|0000fba0| 49 49 3d 4b 49 28 49 29 | 0a 20 20 20 20 20 20 50 |II=KI(I)|. P|
|0000fbb0| 44 28 4a 29 3d 50 44 28 | 4a 29 2a 44 41 4d 50 28 |D(J)=PD(|J)*DAMP(|
|0000fbc0| 4b 49 49 29 0a 20 20 20 | 20 20 20 50 28 49 29 3d |KII). | P(I)=|
|0000fbd0| 50 4f 4c 44 2b 50 44 28 | 4a 29 0a 20 20 20 20 20 |POLD+PD(|J). |
|0000fbe0| 20 53 49 47 50 3d 44 53 | 51 52 54 28 44 49 41 47 | SIGP=DS|QRT(DIAG|
|0000fbf0| 28 4a 29 29 2a 53 51 53 | 49 47 28 31 29 0a 20 20 |(J))*SQS|IG(1). |
|0000fc00| 20 20 20 20 57 52 49 54 | 45 20 28 31 32 2c 36 36 | WRIT|E (12,66|
|0000fc10| 35 29 20 49 2c 50 4f 4c | 44 2c 50 44 28 4a 29 2c |5) I,POL|D,PD(J),|
|0000fc20| 50 28 49 29 2c 53 49 47 | 50 0a 20 20 20 20 20 20 |P(I),SIG|P. |
|0000fc30| 57 52 49 54 45 20 28 39 | 2c 36 36 35 29 20 49 2c |WRITE (9|,665) I,|
|0000fc40| 50 4f 4c 44 2c 50 44 28 | 4a 29 2c 50 28 49 29 2c |POLD,PD(|J),P(I),|
|0000fc50| 53 49 47 50 0a 20 20 20 | 20 20 20 4a 3d 4a 2b 31 |SIGP. | J=J+1|
|0000fc60| 0a 34 30 35 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a |.405 C|ONTINUE.|
|0000fc70| 43 43 20 20 20 20 45 4e | 44 20 4c 4f 4f 50 20 54 |CC EN|D LOOP T|
|0000fc80| 4f 20 43 4f 52 52 45 43 | 54 20 41 4e 44 20 50 55 |O CORREC|T AND PU|
|0000fc90| 54 20 4f 55 54 0a 43 43 | 0a 43 43 20 20 20 20 50 |T OUT.CC|.CC P|
|0000fca0| 41 52 41 4d 45 54 45 52 | 53 0a 43 43 0a 43 43 20 |ARAMETER|S.CC.CC |
|0000fcb0| 20 20 20 50 55 54 20 4f | 55 54 20 45 53 54 49 4d | PUT O|UT ESTIM|
|0000fcc0| 41 54 45 44 20 41 47 52 | 45 45 4d 45 4e 54 20 46 |ATED AGR|EEMENT F|
|0000fcd0| 41 43 54 4f 52 53 0a 43 | 43 0a 20 20 20 20 20 20 |ACTORS.C|C. |
|0000fce0| 57 52 49 54 45 20 28 39 | 2c 36 33 35 29 20 49 43 |WRITE (9|,635) IC|
|0000fcf0| 2c 53 49 47 2c 53 51 53 | 49 47 28 31 29 0a 20 20 |,SIG,SQS|IG(1). |
|0000fd00| 20 20 20 20 57 52 49 54 | 45 20 28 31 32 2c 36 33 | WRIT|E (12,63|
|0000fd10| 35 29 20 49 43 2c 53 49 | 47 2c 53 51 53 49 47 28 |5) IC,SI|G,SQSIG(|
|0000fd20| 31 29 0a 43 43 20 20 20 | 20 45 4e 54 45 52 20 55 |1).CC | ENTER U|
|0000fd30| 53 45 52 53 20 53 55 42 | 52 4f 55 54 49 4e 45 20 |SERS SUB|ROUTINE |
|0000fd40| 54 4f 20 54 45 53 54 20 | 41 4e 44 0a 43 43 0a 43 |TO TEST |AND.CC.C|
|0000fd50| 43 20 20 20 20 4d 4f 44 | 49 46 59 20 50 41 52 41 |C MOD|IFY PARA|
|0000fd60| 4d 45 54 45 52 53 0a 43 | 43 0a 43 43 20 20 20 20 |METERS.C|C.CC |
|0000fd70| 4f 52 20 45 4e 44 20 4a | 4f 42 0a 43 43 0a 20 20 |OR END J|OB.CC. |
|0000fd80| 20 20 20 20 49 53 54 4f | 50 3d 27 43 4f 4e 54 49 | ISTO|P='CONTI|
|0000fd90| 4e 55 45 27 0a 20 20 20 | 20 20 20 43 41 4c 4c 20 |NUE'. | CALL |
|0000fda0| 54 45 53 54 28 50 2c 50 | 44 2c 4b 49 2c 49 43 4f |TEST(P,P|D,KI,ICO|
|0000fdb0| 4e 56 2c 49 53 54 4f 50 | 29 0a 43 43 0a 43 43 20 |NV,ISTOP|).CC.CC |
|0000fdc0| 20 20 20 54 45 52 4d 49 | 4e 41 54 45 20 52 45 46 | TERMI|NATE REF|
|0000fdd0| 49 4e 45 4d 45 4e 54 20 | 49 46 20 49 4e 44 49 43 |INEMENT |IF INDIC|
|0000fde0| 41 54 45 44 20 42 59 20 | 55 53 45 52 53 0a 43 43 |ATED BY |USERS.CC|
|0000fdf0| 0a 43 43 20 20 20 20 53 | 55 42 52 4f 55 54 49 4e |.CC S|UBROUTIN|
|0000fe00| 45 20 54 45 53 54 0a 43 | 43 0a 20 20 20 20 20 20 |E TEST.C|C. |
|0000fe10| 49 46 20 28 49 53 54 4f | 50 2e 45 51 2e 27 43 4f |IF (ISTO|P.EQ.'CO|
|0000fe20| 4e 54 49 4e 55 45 27 29 | 20 47 4f 20 54 4f 20 34 |NTINUE')| GO TO 4|
|0000fe30| 34 30 0a 20 20 20 20 20 | 20 57 52 49 54 45 20 28 |40. | WRITE (|
|0000fe40| 31 32 2c 36 37 30 29 20 | 49 53 54 4f 50 0a 20 20 |12,670) |ISTOP. |
|0000fe50| 20 20 20 20 57 52 49 54 | 45 20 28 39 2c 36 37 30 | WRIT|E (9,670|
|0000fe60| 29 20 49 53 54 4f 50 0a | 20 20 20 20 20 20 4e 43 |) ISTOP.| NC|
|0000fe70| 59 3d 49 43 2b 31 0a 20 | 20 20 20 20 20 4e 43 3d |Y=IC+1. | NC=|
|0000fe80| 49 43 0a 34 34 30 20 20 | 20 43 4f 4e 54 49 4e 55 |IC.440 | CONTINU|
|0000fe90| 45 0a 43 43 20 20 20 20 | 45 4e 44 20 4c 4f 4f 50 |E.CC |END LOOP|
|0000fea0| 20 54 48 52 4f 55 47 48 | 20 4e 43 20 43 59 43 4c | THROUGH| NC CYCL|
|0000feb0| 45 53 20 41 4e 44 0a 43 | 43 0a 43 43 20 20 20 20 |ES AND.C|C.CC |
|0000fec0| 46 49 4e 41 4c 20 43 41 | 4c 43 20 4f 46 20 59 0a |FINAL CA|LC OF Y.|
|0000fed0| 43 43 0a 43 43 20 20 20 | 20 54 45 52 4d 49 4e 41 |CC.CC | TERMINA|
|0000fee0| 54 45 20 4a 4f 42 0a 43 | 43 0a 34 34 35 20 20 20 |TE JOB.C|C.445 |
|0000fef0| 49 46 20 28 4e 43 2e 4c | 45 2e 30 29 20 57 52 49 |IF (NC.L|E.0) WRI|
|0000ff00| 54 45 28 31 32 2c 31 31 | 31 31 29 0a 20 20 20 20 |TE(12,11|11). |
|0000ff10| 20 20 49 46 20 28 4e 43 | 2e 4c 45 2e 30 29 20 52 | IF (NC|.LE.0) R|
|0000ff20| 45 54 55 52 4e 0a 43 43 | 20 20 20 20 43 41 4c 43 |ETURN.CC| CALC|
|0000ff30| 55 4c 41 54 45 20 41 4e | 44 20 50 55 54 20 4f 55 |ULATE AN|D PUT OU|
|0000ff40| 54 20 43 4f 52 52 45 4c | 41 54 49 4f 4e 20 4d 41 |T CORREL|ATION MA|
|0000ff50| 54 52 49 58 0a 43 43 0a | 34 35 30 20 20 20 57 52 |TRIX.CC.|450 WR|
|0000ff60| 49 54 45 20 28 39 2c 37 | 30 30 29 0a 20 20 20 20 |ITE (9,7|00). |
|0000ff70| 20 20 57 52 49 54 45 20 | 28 31 32 2c 37 30 30 29 | WRITE |(12,700)|
|0000ff80| 0a 20 20 20 20 20 20 44 | 4f 20 34 35 35 20 49 3d |. D|O 455 I=|
|0000ff90| 31 2c 4e 56 0a 20 20 20 | 20 20 20 44 49 41 47 28 |1,NV. | DIAG(|
|0000ffa0| 49 29 3d 4f 4e 45 2f 44 | 53 51 52 54 28 44 49 41 |I)=ONE/D|SQRT(DIA|
|0000ffb0| 47 28 49 29 29 0a 34 35 | 35 20 20 20 43 4f 4e 54 |G(I)).45|5 CONT|
|0000ffc0| 49 4e 55 45 0a 20 20 20 | 20 20 20 49 4a 3d 31 0a |INUE. | IJ=1.|
|0000ffd0| 20 20 20 20 20 20 44 4f | 20 34 37 30 20 49 3d 31 | DO| 470 I=1|
|0000ffe0| 2c 4e 56 0a 20 20 20 20 | 20 20 44 4f 20 34 36 30 |,NV. | DO 460|
|0000fff0| 20 4a 3d 31 2c 4e 56 0a | 20 20 20 20 20 20 52 4f | J=1,NV.| RO|
|00010000| 57 28 4a 29 3d 5a 45 52 | 4f 0a 34 36 30 20 20 20 |W(J)=ZER|O.460 |
|00010010| 43 4f 4e 54 49 4e 55 45 | 0a 20 20 20 20 20 20 44 |CONTINUE|. D|
|00010020| 4f 20 34 36 35 20 4a 3d | 49 2c 4e 56 0a 20 20 20 |O 465 J=|I,NV. |
|00010030| 20 20 20 52 4f 57 28 4a | 29 3d 41 4d 28 49 4a 29 | ROW(J|)=AM(IJ)|
|00010040| 2a 44 49 41 47 28 49 29 | 2a 44 49 41 47 28 4a 29 |*DIAG(I)|*DIAG(J)|
|00010050| 0a 20 20 20 20 20 20 49 | 4a 3d 49 4a 2b 31 0a 34 |. I|J=IJ+1.4|
|00010060| 36 35 20 20 20 43 4f 4e | 54 49 4e 55 45 0a 20 20 |65 CON|TINUE. |
|00010070| 20 20 20 20 57 52 49 54 | 45 20 28 31 32 2c 37 30 | WRIT|E (12,70|
|00010080| 35 29 20 49 4f 55 54 28 | 49 29 2c 28 52 4f 57 28 |5) IOUT(|I),(ROW(|
|00010090| 4a 29 2c 4a 3d 31 2c 4e | 56 29 0a 20 20 20 20 20 |J),J=1,N|V). |
|000100a0| 20 57 52 49 54 45 20 28 | 39 2c 37 30 35 29 20 49 | WRITE (|9,705) I|
|000100b0| 4f 55 54 28 49 29 2c 28 | 52 4f 57 28 4a 29 2c 4a |OUT(I),(|ROW(J),J|
|000100c0| 3d 31 2c 4e 56 29 0a 34 | 37 30 20 20 20 43 4f 4e |=1,NV).4|70 CON|
|000100d0| 54 49 4e 55 45 0a 20 20 | 20 20 20 20 53 49 47 4d |TINUE. | SIGM|
|000100e0| 41 3d 53 51 53 49 47 28 | 31 29 0a 20 20 20 20 20 |A=SQSIG(|1). |
|000100f0| 20 57 52 49 54 45 28 31 | 32 2c 31 31 31 31 29 0a | WRITE(1|2,1111).|
|00010100| 20 20 20 20 20 20 44 4f | 20 34 37 35 20 49 3d 31 | DO| 475 I=1|
|00010110| 2c 4e 50 0a 20 20 20 20 | 20 20 49 46 28 4b 49 28 |,NP. | IF(KI(|
|00010120| 49 29 2e 4e 45 2e 30 29 | 20 57 52 49 54 45 28 31 |I).NE.0)| WRITE(1|
|00010130| 38 2c 31 31 31 32 29 20 | 49 2c 50 28 49 29 0a 31 |8,1112) |I,P(I).1|
|00010140| 31 31 32 20 20 46 4f 52 | 4d 41 54 28 31 58 2c 49 |112 FOR|MAT(1X,I|
|00010150| 33 2c 31 50 45 31 32 2e | 34 29 0a 34 37 35 20 20 |3,1PE12.|4).475 |
|00010160| 20 43 4f 4e 54 49 4e 55 | 45 0a 20 20 20 20 20 20 | CONTINU|E. |
|00010170| 52 45 54 55 52 4e 0a 43 | 43 20 20 20 20 46 4f 52 |RETURN.C|C FOR|
|00010180| 4d 41 54 20 53 54 41 54 | 45 4d 45 4e 54 53 0a 35 |MAT STAT|EMENTS.5|
|00010190| 30 30 20 20 20 46 4f 52 | 4d 41 54 28 2f 2f 31 58 |00 FOR|MAT(//1X|
|000101a0| 2c 41 36 30 2f 29 0a 35 | 31 35 20 20 20 46 4f 52 |,A60/).5|15 FOR|
|000101b0| 4d 41 54 28 31 58 2c 27 | 4e 55 4d 42 45 52 20 4f |MAT(1X,'|NUMBER O|
|000101c0| 46 20 50 41 52 41 4d 45 | 54 45 52 53 20 54 4f 20 |F PARAME|TERS TO |
|000101d0| 42 45 20 56 41 52 49 45 | 44 20 49 53 27 2c 49 33 |BE VARIE|D IS',I3|
|000101e0| 29 0a 35 32 35 20 20 20 | 46 4f 52 4d 41 54 28 31 |).525 |FORMAT(1|
|000101f0| 58 2c 27 50 52 49 4e 43 | 49 50 41 4c 20 43 4f 4d |X,'PRINC|IPAL COM|
|00010200| 50 4f 4e 45 4e 54 20 41 | 4e 41 4c 59 53 49 53 20 |PONENT A|NALYSIS |
|00010210| 49 4e 20 43 41 53 45 20 | 4f 46 20 45 52 52 4f 52 |IN CASE |OF ERROR|
|00010220| 27 2f 29 0a 35 37 35 20 | 20 20 46 4f 52 4d 41 54 |'/).575 | FORMAT|
|00010230| 28 31 58 2c 27 4e 55 4d | 42 45 52 20 4f 46 20 4f |(1X,'NUM|BER OF O|
|00010240| 42 53 45 52 56 41 54 49 | 4f 4e 53 20 52 45 41 44 |BSERVATI|ONS READ|
|00010250| 20 49 53 27 2c 49 34 2f | 29 0a 35 39 30 20 20 20 | IS',I4/|).590 |
|00010260| 46 4f 52 4d 41 54 28 31 | 58 2c 27 43 41 4c 43 55 |FORMAT(1|X,'CALCU|
|00010270| 4c 41 54 45 44 20 59 20 | 42 41 53 45 44 20 4f 4e |LATED Y |BASED ON|
|00010280| 20 50 41 52 41 4d 45 54 | 45 52 53 20 42 45 46 4f | PARAMET|ERS BEFO|
|00010290| 52 45 20 43 59 43 4c 45 | 27 2c 49 32 29 0a 35 39 |RE CYCLE|',I2).59|
|000102a0| 35 20 20 20 46 4f 52 4d | 41 54 28 31 58 2c 27 20 |5 FORM|AT(1X,' |
|000102b0| 50 54 20 20 20 20 20 59 | 28 4f 42 53 29 20 20 20 |PT Y|(OBS) |
|000102c0| 20 59 28 43 41 4c 43 29 | 20 20 20 4f 42 53 2d 43 | Y(CALC)| OBS-C|
|000102d0| 41 4c 43 20 20 20 20 20 | 53 49 47 28 4f 29 27 2c |ALC |SIG(O)',|
|000102e0| 0a 20 20 20 20 20 26 27 | 20 20 28 4f 2d 43 29 2f |. &'| (O-C)/|
|000102f0| 53 49 47 20 20 20 20 20 | 20 20 58 28 49 29 27 2f |SIG | X(I)'/|
|00010300| 31 48 20 29 0a 36 30 30 | 20 20 20 46 4f 52 4d 41 |1H ).600| FORMA|
|00010310| 54 28 31 58 2c 27 4d 41 | 54 52 49 58 20 46 4f 52 |T(1X,'MA|TRIX FOR|
|00010320| 20 43 59 43 4c 45 27 2c | 49 33 2f 27 30 27 2c 33 | CYCLE',|I3/'0',3|
|00010330| 58 2c 31 30 49 31 31 2f | 28 34 58 2c 31 30 49 31 |X,10I11/|(4X,10I1|
|00010340| 31 29 29 0a 36 30 35 20 | 20 20 46 4f 52 4d 41 54 |1)).605 | FORMAT|
|00010350| 28 31 58 2c 49 33 2c 31 | 30 45 31 31 2e 33 2f 28 |(1X,I3,1|0E11.3/(|
|00010360| 34 58 2c 31 30 45 31 31 | 2e 33 29 29 0a 36 31 30 |4X,10E11|.3)).610|
|00010370| 20 20 20 46 4f 52 4d 41 | 54 28 31 58 2c 27 50 52 | FORMA|T(1X,'PR|
|00010380| 49 4e 43 49 50 41 4c 20 | 43 4f 4d 50 4f 4e 45 4e |INCIPAL |COMPONEN|
|00010390| 54 53 20 46 4f 52 20 43 | 59 43 4c 45 27 2c 49 33 |TS FOR C|YCLE',I3|
|000103a0| 2f 31 58 2c 27 20 20 49 | 20 20 45 49 47 56 41 4c |/1X,' I| EIGVAL|
|000103b0| 28 49 29 27 2c 0a 20 20 | 20 20 20 26 35 58 2c 31 |(I)',. | &5X,1|
|000103c0| 30 49 31 30 2f 28 32 30 | 58 2c 31 30 49 31 30 29 |0I10/(20|X,10I10)|
|000103d0| 29 0a 36 31 35 20 20 20 | 46 4f 52 4d 41 54 28 31 |).615 |FORMAT(1|
|000103e0| 58 2c 49 33 2c 45 31 31 | 2e 33 2c 35 58 2c 31 30 |X,I3,E11|.3,5X,10|
|000103f0| 46 31 30 2e 36 2f 28 32 | 30 58 2c 31 30 46 31 30 |F10.6/(2|0X,10F10|
|00010400| 2e 36 29 29 0a 36 32 30 | 20 20 20 46 4f 52 4d 41 |.6)).620| FORMA|
|00010410| 54 28 31 58 2c 27 53 43 | 41 4c 45 20 46 41 43 54 |T(1X,'SC|ALE FACT|
|00010420| 4f 52 53 20 41 50 50 4c | 49 45 44 20 54 4f 20 4d |ORS APPL|IED TO M|
|00010430| 41 54 52 49 58 27 2f 27 | 30 27 2c 31 30 49 31 31 |ATRIX'/'|0',10I11|
|00010440| 2f 28 31 58 2c 31 30 49 | 31 31 29 29 0a 36 32 35 |/(1X,10I|11)).625|
|00010450| 20 20 20 46 4f 52 4d 41 | 54 28 31 58 2c 49 33 2c | FORMA|T(1X,I3,|
|00010460| 31 50 37 45 31 31 2e 33 | 2f 28 31 34 58 2c 36 45 |1P7E11.3|/(14X,6E|
|00010470| 31 31 2e 33 29 29 0a 36 | 33 30 20 20 20 46 4f 52 |11.3)).6|30 FOR|
|00010480| 4d 41 54 28 2f 31 58 2c | 27 41 47 52 45 45 4d 45 |MAT(/1X,|'AGREEME|
|00010490| 4e 54 20 46 41 43 54 4f | 52 53 20 42 41 53 45 44 |NT FACTO|RS BASED|
|000104a0| 20 4f 4e 20 50 41 52 41 | 4d 45 54 45 52 53 20 42 | ON PARA|METERS B|
|000104b0| 45 46 4f 52 45 20 43 59 | 43 4c 45 27 2c 0a 20 20 |EFORE CY|CLE',. |
|000104c0| 20 20 20 26 49 32 2f 31 | 58 2c 27 53 55 4d 28 57 | &I2/1|X,'SUM(W|
|000104d0| 2a 28 4f 2d 43 29 2a 2a | 32 29 20 49 53 20 27 2c |*(O-C)**|2) IS ',|
|000104e0| 31 50 45 31 31 2e 33 2f | 31 58 2c 0a 20 20 20 20 |1PE11.3/|1X,. |
|000104f0| 20 26 27 53 51 52 54 46 | 28 53 55 4d 28 57 2a 28 | &'SQRTF|(SUM(W*(|
|00010500| 4f 2d 43 29 2a 2a 32 29 | 2f 28 4e 4f 2d 4e 56 29 |O-C)**2)|/(NO-NV)|
|00010510| 29 20 49 53 20 27 2c 45 | 31 32 2e 34 29 0a 36 33 |) IS ',E|12.4).63|
|00010520| 35 20 20 20 46 4f 52 4d | 41 54 28 2f 31 58 2c 27 |5 FORM|AT(/1X,'|
|00010530| 45 53 54 49 4d 41 54 45 | 44 20 41 47 52 45 45 4d |ESTIMATE|D AGREEM|
|00010540| 45 4e 54 20 46 41 43 54 | 4f 52 53 20 42 41 53 45 |ENT FACT|ORS BASE|
|00010550| 44 20 4f 4e 20 50 41 52 | 41 4d 45 54 45 52 53 27 |D ON PAR|AMETERS'|
|00010560| 2c 0a 20 20 20 20 20 26 | 27 20 43 59 43 4c 45 27 |,. &|' CYCLE'|
|00010570| 2c 49 32 2f 31 58 2c 27 | 53 55 4d 28 57 2a 28 4f |,I2/1X,'|SUM(W*(O|
|00010580| 2d 43 29 2a 2a 32 29 20 | 49 53 20 27 2c 31 50 45 |-C)**2) |IS ',1PE|
|00010590| 31 31 2e 33 2f 0a 20 20 | 20 20 20 26 31 58 2c 27 |11.3/. | &1X,'|
|000105a0| 53 51 52 54 46 28 53 55 | 4d 28 57 2a 28 4f 2d 43 |SQRTF(SU|M(W*(O-C|
|000105b0| 29 2a 2a 32 29 2f 28 4e | 4f 2d 4e 56 29 29 20 49 |)**2)/(N|O-NV)) I|
|000105c0| 53 20 27 2c 45 31 32 2e | 34 29 0a 36 34 30 20 20 |S ',E12.|4).640 |
|000105d0| 20 46 4f 52 4d 41 54 28 | 31 58 2c 27 20 4d 41 54 | FORMAT(|1X,' MAT|
|000105e0| 52 49 58 20 48 41 53 20 | 41 20 5a 45 52 4f 20 44 |RIX HAS |A ZERO D|
|000105f0| 49 41 47 4f 4e 41 4c 20 | 45 4c 45 4d 45 4e 54 20 |IAGONAL |ELEMENT |
|00010600| 43 4f 52 52 45 53 50 4f | 4e 44 49 4e 47 20 54 4f |CORRESPO|NDING TO|
|00010610| 20 50 41 52 0a 20 20 20 | 20 20 26 41 4d 45 54 45 | PAR. | &AMETE|
|00010620| 52 27 2c 49 33 29 0a 36 | 34 35 20 20 20 46 4f 52 |R',I3).6|45 FOR|
|00010630| 4d 41 54 28 31 58 2c 31 | 30 45 31 31 2e 33 2f 28 |MAT(1X,1|0E11.3/(|
|00010640| 31 58 2c 31 30 45 31 31 | 2e 33 29 29 0a 36 35 30 |1X,10E11|.3)).650|
|00010650| 20 20 20 46 4f 52 4d 41 | 54 28 31 58 2c 27 20 53 | FORMA|T(1X,' S|
|00010660| 49 4e 47 55 4c 41 52 49 | 54 59 20 52 45 54 55 52 |INGULARI|TY RETUR|
|00010670| 4e 20 46 52 4f 4d 20 4d | 41 54 52 49 58 20 49 4e |N FROM M|ATRIX IN|
|00010680| 56 45 52 54 45 52 27 29 | 0a 36 35 35 20 20 20 46 |VERTER')|.655 F|
|00010690| 4f 52 4d 41 54 28 2f 31 | 58 2c 27 50 41 52 41 4d |ORMAT(/1|X,'PARAM|
|000106a0| 45 54 45 52 53 20 41 46 | 54 45 52 20 4c 45 41 53 |ETERS AF|TER LEAS|
|000106b0| 54 20 53 51 55 41 52 45 | 53 20 43 59 43 4c 45 27 |T SQUARE|S CYCLE'|
|000106c0| 2c 49 32 2c 2f 2f 31 58 | 2c 0a 20 20 20 20 20 26 |,I2,//1X|,. &|
|000106d0| 27 20 20 20 20 20 20 20 | 20 20 20 20 4f 4c 44 20 |' | OLD |
|000106e0| 20 20 20 20 20 20 20 20 | 43 48 41 4e 47 45 20 20 | |CHANGE |
|000106f0| 20 20 20 20 20 20 4e 45 | 57 20 20 20 20 20 20 20 | NE|W |
|00010700| 20 20 20 45 52 52 4f 52 | 27 2c 2f 29 0a 36 36 35 | ERROR|',/).665|
|00010710| 20 20 20 46 4f 52 4d 41 | 54 28 27 20 27 2c 49 33 | FORMA|T(' ',I3|
|00010720| 2c 31 50 34 45 31 34 2e | 35 29 0a 36 37 30 20 20 |,1P4E14.|5).670 |
|00010730| 20 46 4f 52 4d 41 54 28 | 31 58 2c 27 53 55 42 52 | FORMAT(|1X,'SUBR|
|00010740| 4f 55 54 49 4e 45 20 54 | 45 53 54 20 49 4e 44 49 |OUTINE T|EST INDI|
|00010750| 43 41 54 45 53 20 54 48 | 41 54 20 4a 4f 42 20 49 |CATES TH|AT JOB I|
|00010760| 53 20 54 4f 20 42 45 20 | 54 45 52 4d 49 4e 41 54 |S TO BE |TERMINAT|
|00010770| 45 44 0a 20 20 20 20 20 | 26 20 46 4f 52 20 52 45 |ED. |& FOR RE|
|00010780| 41 53 4f 4e 3a 20 27 2c | 41 31 30 29 0a 36 37 35 |ASON: ',|A10).675|
|00010790| 20 20 20 46 4f 52 4d 41 | 54 28 31 58 2c 27 53 54 | FORMA|T(1X,'ST|
|000107a0| 41 52 54 49 4e 47 20 56 | 41 4c 55 45 53 27 2f 0a |ARTING V|ALUES'/.|
|000107b0| 20 20 20 20 20 26 2f 31 | 58 2c 27 20 20 49 20 20 | &/1|X,' I |
|000107c0| 20 20 20 20 50 28 49 29 | 20 20 20 20 20 20 4b 49 | P(I)| KI|
|000107d0| 28 49 29 20 20 20 20 20 | 20 44 50 28 49 29 27 2f |(I) | DP(I)'/|
|000107e0| 31 58 2c 27 20 27 29 0a | 36 38 30 20 20 20 46 4f |1X,' ').|680 FO|
|000107f0| 52 4d 41 54 28 31 58 2c | 49 33 2c 33 58 2c 31 50 |RMAT(1X,|I3,3X,1P|
|00010800| 45 31 32 2e 35 2c 33 58 | 2c 49 34 2c 33 58 2c 45 |E12.5,3X|,I4,3X,E|
|00010810| 31 31 2e 33 29 0a 37 30 | 30 20 20 20 46 4f 52 4d |11.3).70|0 FORM|
|00010820| 41 54 28 2f 31 58 2c 27 | 43 4f 52 52 45 4c 41 54 |AT(/1X,'|CORRELAT|
|00010830| 49 4f 4e 20 4d 41 54 52 | 49 58 27 29 0a 37 30 35 |ION MATR|IX').705|
|00010840| 20 20 20 46 4f 52 4d 41 | 54 28 31 58 2c 49 33 2c | FORMA|T(1X,I3,|
|00010850| 31 30 46 39 2e 34 2f 28 | 31 58 2c 33 58 2c 31 30 |10F9.4/(|1X,3X,10|
|00010860| 46 39 2e 34 29 29 0a 37 | 31 30 20 20 20 46 4f 52 |F9.4)).7|10 FOR|
|00010870| 4d 41 54 28 2f 29 0a 20 | 20 20 20 20 20 45 4e 44 |MAT(/). | END|
|00010880| 0a 43 0a 43 0a 43 0a 20 | 20 20 20 20 20 53 55 42 |.C.C.C. | SUB|
|00010890| 52 4f 55 54 49 4e 45 20 | 45 49 47 45 4e 28 41 2c |ROUTINE |EIGEN(A,|
|000108a0| 52 2c 4e 2c 4d 56 29 0a | 20 20 20 20 20 20 49 4d |R,N,MV).| IM|
|000108b0| 50 4c 49 43 49 54 20 52 | 45 41 4c 2a 38 28 41 2d |PLICIT R|EAL*8(A-|
|000108c0| 48 2c 4f 2d 5a 29 0a 20 | 20 20 20 20 20 44 49 4d |H,O-Z). | DIM|
|000108d0| 45 4e 53 49 4f 4e 20 41 | 28 2a 29 2c 52 28 2a 29 |ENSION A|(*),R(*)|
|000108e0| 0a 20 20 20 20 20 20 52 | 45 54 55 52 4e 0a 20 20 |. R|ETURN. |
|000108f0| 20 20 20 20 45 4e 44 0a | 43 0a 43 0a 20 20 20 20 | END.|C.C. |
|00010900| 20 20 53 55 42 52 4f 55 | 54 49 4e 45 20 4d 41 54 | SUBROU|TINE MAT|
|00010910| 49 4e 56 28 41 4d 2c 4e | 2c 4e 46 41 49 4c 29 0a |INV(AM,N|,NFAIL).|
|00010920| 20 20 20 20 20 20 49 4d | 50 4c 49 43 49 54 20 52 | IM|PLICIT R|
|00010930| 45 41 4c 2a 38 28 41 2d | 48 2c 4f 2d 5a 29 0a 20 |EAL*8(A-|H,O-Z). |
|00010940| 20 20 20 20 20 53 41 56 | 45 0a 20 20 20 20 20 20 | SAV|E. |
|00010950| 44 49 4d 45 4e 53 49 4f | 4e 20 41 4d 28 2a 29 0a |DIMENSIO|N AM(*).|
|00010960| 43 20 20 20 20 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |C **|********|
|00010970| 20 53 45 47 4d 45 4e 54 | 20 31 20 4f 46 20 43 48 | SEGMENT| 1 OF CH|
|00010980| 4f 4c 45 53 4b 49 20 49 | 4e 56 45 52 53 49 4f 4e |OLESKI I|NVERSION|
|00010990| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0a 43 0a 43 43 | *******|***.C.CC|
|000109a0| 20 20 20 20 2a 2a 2a 2a | 2a 20 46 41 43 54 4f 52 | ****|* FACTOR|
|000109b0| 20 4d 41 54 52 49 58 20 | 49 4e 54 4f 20 4c 4f 57 | MATRIX |INTO LOW|
|000109c0| 45 52 20 54 52 49 41 4e | 47 4c 45 20 58 20 54 52 |ER TRIAN|GLE X TR|
|000109d0| 41 4e 53 50 4f 53 45 0a | 43 43 0a 43 43 20 20 20 |ANSPOSE.|CC.CC |
|000109e0| 20 2a 2a 2a 2a 2a 0a 43 | 43 0a 20 20 20 20 20 20 | *****.C|C. |
|000109f0| 44 41 54 41 20 4f 4e 45 | 2c 5a 45 52 4f 2f 31 2e |DATA ONE|,ZERO/1.|
|00010a00| 30 44 2b 30 2c 30 2e 30 | 44 2b 30 2f 0a 20 20 20 |0D+0,0.0|D+0/. |
|00010a10| 20 20 20 4b 3d 31 0a 20 | 20 20 20 20 20 49 46 20 | K=1. | IF |
|00010a20| 28 4e 2d 31 29 20 32 2c | 35 2c 31 30 0a 32 20 20 |(N-1) 2,|5,10.2 |
|00010a30| 20 20 20 4e 46 41 49 4c | 3d 4b 0a 20 20 20 20 20 | NFAIL|=K. |
|00010a40| 20 47 4f 54 4f 20 31 30 | 35 0a 35 20 20 20 20 20 | GOTO 10|5.5 |
|00010a50| 41 4d 28 31 29 3d 4f 4e | 45 2f 41 4d 28 31 29 0a |AM(1)=ON|E/AM(1).|
|00010a60| 20 20 20 20 20 20 47 4f | 20 54 4f 20 31 30 30 0a | GO| TO 100.|
|00010a70| 43 43 20 20 20 20 2a 2a | 2a 2a 2a 20 4c 4f 4f 50 |CC **|*** LOOP|
|00010a80| 20 4d 20 4f 46 20 41 28 | 4c 2c 4d 29 20 2a 2a 2a | M OF A(|L,M) ***|
|00010a90| 2a 2a 0a 43 43 0a 31 30 | 20 20 20 20 44 4f 20 35 |**.CC.10| DO 5|
|00010aa0| 35 20 4d 3d 31 2c 4e 0a | 20 20 20 20 20 20 49 4d |5 M=1,N.| IM|
|00010ab0| 41 58 3d 4d 2d 31 0a 43 | 43 20 20 20 20 2a 2a 2a |AX=M-1.C|C ***|
|00010ac0| 2a 2a 20 4c 4f 4f 50 20 | 4c 20 4f 46 20 41 28 4c |** LOOP |L OF A(L|
|00010ad0| 2c 4d 29 20 2a 2a 2a 2a | 2a 0a 43 43 0a 20 20 20 |,M) ****|*.CC. |
|00010ae0| 20 20 20 44 4f 20 35 30 | 20 4c 3d 4d 2c 4e 0a 20 | DO 50| L=M,N. |
|00010af0| 20 20 20 20 20 53 55 4d | 41 3d 5a 45 52 4f 0a 20 | SUM|A=ZERO. |
|00010b00| 20 20 20 20 20 4b 4c 49 | 3d 4c 0a 20 20 20 20 20 | KLI|=L. |
|00010b10| 20 4b 4d 49 3d 4d 0a 20 | 20 20 20 20 20 49 46 20 | KMI=M. | IF |
|00010b20| 28 49 4d 41 58 29 20 32 | 35 2c 32 35 2c 31 35 0a |(IMAX) 2|5,25,15.|
|00010b30| 43 20 20 20 20 20 2a 2a | 2a 2a 2a 53 55 4d 20 4f |C **|***SUM O|
|00010b40| 56 45 52 20 49 3d 31 2c | 4d 2d 31 20 41 28 4c 2c |VER I=1,|M-1 A(L,|
|00010b50| 49 29 2a 41 28 4d 2c 49 | 29 20 2a 2a 2a 2a 2a 0a |I)*A(M,I|) *****.|
|00010b60| 43 0a 31 35 20 20 20 20 | 44 4f 20 32 30 20 49 3d |C.15 |DO 20 I=|
|00010b70| 31 2c 49 4d 41 58 0a 20 | 20 20 20 20 20 53 55 4d |1,IMAX. | SUM|
|00010b80| 41 3d 53 55 4d 41 2b 41 | 4d 28 4b 4c 49 29 2a 41 |A=SUMA+A|M(KLI)*A|
|00010b90| 4d 28 4b 4d 49 29 0a 20 | 20 20 20 20 20 4a 3d 4e |M(KMI). | J=N|
|00010ba0| 2d 49 0a 20 20 20 20 20 | 20 4b 4c 49 3d 4b 4c 49 |-I. | KLI=KLI|
|00010bb0| 2b 4a 0a 32 30 20 20 20 | 20 4b 4d 49 3d 4b 4d 49 |+J.20 | KMI=KMI|
|00010bc0| 2b 4a 0a 43 43 20 20 20 | 20 2a 2a 2a 2a 2a 54 45 |+J.CC | *****TE|
|00010bd0| 52 4d 3d 43 28 4c 2c 4d | 29 2d 53 55 4d 20 2a 2a |RM=C(L,M|)-SUM **|
|00010be0| 2a 2a 2a 0a 43 43 0a 32 | 35 20 20 20 20 54 45 52 |***.CC.2|5 TER|
|00010bf0| 4d 3d 41 4d 28 4b 29 2d | 53 55 4d 41 0a 20 20 20 |M=AM(K)-|SUMA. |
|00010c00| 20 20 20 49 46 20 28 4c | 2d 4d 29 20 33 30 2c 33 | IF (L|-M) 30,3|
|00010c10| 30 2c 34 35 0a 33 30 20 | 20 20 20 49 46 20 28 54 |0,45.30 | IF (T|
|00010c20| 45 52 4d 29 20 34 30 2c | 34 30 2c 33 35 0a 43 43 |ERM) 40,|40,35.CC|
|00010c30| 20 20 20 20 2a 2a 2a 2a | 2a 20 41 28 4d 2c 4d 29 | ****|* A(M,M)|
|00010c40| 3d 53 51 52 54 28 54 45 | 52 4d 29 20 2a 2a 2a 2a |=SQRT(TE|RM) ****|
|00010c50| 2a 0a 43 43 0a 33 35 20 | 20 20 20 44 45 4e 4f 4d |*.CC.35 | DENOM|
|00010c60| 3d 44 53 51 52 54 28 54 | 45 52 4d 29 0a 20 20 20 |=DSQRT(T|ERM). |
|00010c70| 20 20 20 41 4d 28 4b 29 | 3d 44 45 4e 4f 4d 0a 20 | AM(K)|=DENOM. |
|00010c80| 20 20 20 20 20 47 4f 20 | 54 4f 20 35 30 0a 34 30 | GO |TO 50.40|
|00010c90| 20 20 20 20 4e 46 41 49 | 4c 3d 20 4b 0a 20 20 20 | NFAI|L= K. |
|00010ca0| 20 20 20 47 4f 20 54 4f | 20 31 30 35 0a 43 43 20 | GO TO| 105.CC |
|00010cb0| 20 20 20 2a 2a 2a 2a 2a | 20 41 28 4c 2c 4d 29 3d | *****| A(L,M)=|
|00010cc0| 54 45 52 4d 2f 41 28 4d | 2c 4d 29 20 2a 2a 2a 2a |TERM/A(M|,M) ****|
|00010cd0| 2a 0a 43 43 0a 34 35 20 | 20 20 20 41 4d 28 4b 29 |*.CC.45 | AM(K)|
|00010ce0| 3d 54 45 52 4d 2f 44 45 | 4e 4f 4d 0a 35 30 20 20 |=TERM/DE|NOM.50 |
|00010cf0| 20 20 4b 3d 4b 2b 31 0a | 35 35 20 20 20 20 43 4f | K=K+1.|55 CO|
|00010d00| 4e 54 49 4e 55 45 0a 43 | 20 20 20 20 20 2a 2a 2a |NTINUE.C| ***|
|00010d10| 2a 2a 2a 2a 2a 2a 2a 20 | 53 45 47 4d 45 4e 54 20 |******* |SEGMENT |
|00010d20| 32 20 4f 46 20 43 48 4f | 4c 45 53 4b 49 20 49 4e |2 OF CHO|LESKI IN|
|00010d30| 56 45 52 53 49 4f 4e 20 | 2a 2a 2a 2a 2a 2a 2a 2a |VERSION |********|
|00010d40| 2a 2a 0a 43 0a 43 43 20 | 20 20 20 2a 2a 2a 2a 2a |**.C.CC | *****|
|00010d50| 49 4e 56 45 52 53 49 4f | 4e 20 4f 46 20 54 52 49 |INVERSIO|N OF TRI|
|00010d60| 41 4e 47 55 4c 41 52 20 | 4d 41 54 52 49 58 2a 2a |ANGULAR |MATRIX**|
|00010d70| 2a 2a 2a 0a 43 43 0a 36 | 30 20 20 20 20 41 4d 28 |***.CC.6|0 AM(|
|00010d80| 31 29 3d 4f 4e 45 2f 41 | 4d 28 31 29 0a 20 20 20 |1)=ONE/A|M(1). |
|00010d90| 20 20 20 4b 44 4d 3d 31 | 0a 43 43 20 20 20 20 2a | KDM=1|.CC *|
|00010da0| 2a 2a 2a 2a 20 53 54 45 | 50 20 4c 20 4f 46 20 42 |**** STE|P L OF B|
|00010db0| 28 4c 2c 4d 29 20 2a 2a | 2a 2a 2a 0a 43 43 0a 20 |(L,M) **|***.CC. |
|00010dc0| 20 20 20 20 20 44 4f 20 | 37 35 20 4c 3d 32 2c 4e | DO |75 L=2,N|
|00010dd0| 0a 20 20 20 20 20 20 4b | 44 4d 3d 4b 44 4d 2b 4e |. K|DM=KDM+N|
|00010de0| 2d 4c 2b 32 0a 43 43 20 | 20 20 20 2a 2a 2a 2a 2a |-L+2.CC | *****|
|00010df0| 20 52 45 43 49 50 52 4f | 43 41 4c 20 4f 46 20 44 | RECIPRO|CAL OF D|
|00010e00| 49 41 47 4f 4e 41 4c 20 | 54 45 52 4d 20 2a 2a 2a |IAGONAL |TERM ***|
|00010e10| 2a 2a 0a 43 43 0a 20 20 | 20 20 20 20 54 45 52 4d |**.CC. | TERM|
|00010e20| 20 3d 20 4f 4e 45 2f 41 | 4d 28 4b 44 4d 29 0a 20 | = ONE/A|M(KDM). |
|00010e30| 20 20 20 20 20 41 4d 28 | 4b 44 4d 29 3d 54 45 52 | AM(|KDM)=TER|
|00010e40| 4d 0a 20 20 20 20 20 20 | 4b 4d 49 3d 30 0a 20 20 |M. |KMI=0. |
|00010e50| 20 20 20 20 4b 4c 49 3d | 4c 0a 20 20 20 20 20 20 | KLI=|L. |
|00010e60| 49 4d 41 58 3d 4c 2d 31 | 0a 43 43 20 20 20 20 2a |IMAX=L-1|.CC *|
|00010e70| 2a 2a 2a 2a 20 53 54 45 | 50 20 4d 20 4f 46 20 42 |**** STE|P M OF B|
|00010e80| 28 4c 2c 4d 29 20 2a 2a | 2a 2a 2a 0a 43 43 0a 20 |(L,M) **|***.CC. |
|00010e90| 20 20 20 20 20 44 4f 20 | 37 30 20 4d 3d 31 2c 49 | DO |70 M=1,I|
|00010ea0| 4d 41 58 0a 20 20 20 20 | 20 20 4b 3d 4b 4c 49 0a |MAX. | K=KLI.|
|00010eb0| 43 43 20 20 20 20 2a 2a | 2a 2a 2a 20 53 55 4d 20 |CC **|*** SUM |
|00010ec0| 54 45 52 4d 53 20 2a 2a | 2a 2a 2a 0a 43 43 0a 20 |TERMS **|***.CC. |
|00010ed0| 20 20 20 20 20 53 55 4d | 41 3d 5a 45 52 4f 0a 20 | SUM|A=ZERO. |
|00010ee0| 20 20 20 20 20 44 4f 20 | 36 35 20 49 3d 4d 2c 49 | DO |65 I=M,I|
|00010ef0| 4d 41 58 0a 20 20 20 20 | 20 20 49 49 3d 4b 4d 49 |MAX. | II=KMI|
|00010f00| 2b 49 0a 20 20 20 20 20 | 20 53 55 4d 41 3d 53 55 |+I. | SUMA=SU|
|00010f10| 4d 41 2d 41 4d 28 4b 4c | 49 29 2a 41 4d 28 49 49 |MA-AM(KL|I)*AM(II|
|00010f20| 29 0a 36 35 20 20 20 20 | 4b 4c 49 3d 4b 4c 49 2b |).65 |KLI=KLI+|
|00010f30| 4e 2d 49 0a 43 43 20 20 | 20 20 2a 2a 2a 2a 2a 20 |N-I.CC | ***** |
|00010f40| 4d 55 4c 54 20 53 55 4d | 20 2a 20 52 45 43 49 50 |MULT SUM| * RECIP|
|00010f50| 20 4f 46 20 44 49 41 47 | 4f 4e 41 4c 20 2a 2a 2a | OF DIAG|ONAL ***|
|00010f60| 2a 2a 0a 43 43 0a 20 20 | 20 20 20 20 41 4d 28 4b |**.CC. | AM(K|
|00010f70| 29 3d 53 55 4d 41 2a 54 | 45 52 4d 0a 20 20 20 20 |)=SUMA*T|ERM. |
|00010f80| 20 20 4a 3d 4e 2d 4d 0a | 20 20 20 20 20 20 4b 4c | J=N-M.| KL|
|00010f90| 49 3d 4b 2b 4a 0a 37 30 | 20 20 20 20 4b 4d 49 3d |I=K+J.70| KMI=|
|00010fa0| 4b 4d 49 2b 4a 0a 37 35 | 20 20 20 20 43 4f 4e 54 |KMI+J.75| CONT|
|00010fb0| 49 4e 55 45 0a 43 20 20 | 20 20 20 2a 2a 2a 2a 2a |INUE.C | *****|
|00010fc0| 2a 2a 2a 2a 2a 20 53 45 | 47 4d 45 4e 54 20 33 20 |***** SE|GMENT 3 |
|00010fd0| 4f 46 20 43 48 4f 4c 45 | 53 4b 49 20 49 4e 56 45 |OF CHOLE|SKI INVE|
|00010fe0| 52 53 49 4f 4e 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |RSION **|********|
|00010ff0| 0a 43 0a 43 43 20 20 20 | 20 2a 2a 2a 2a 2a 50 52 |.C.CC | *****PR|
|00011000| 45 4d 55 4c 54 49 50 4c | 59 20 4c 4f 57 45 52 20 |EMULTIPL|Y LOWER |
|00011010| 54 52 49 41 4e 47 4c 45 | 20 42 59 20 54 52 41 4e |TRIANGLE| BY TRAN|
|00011020| 53 50 4f 53 45 2a 2a 2a | 2a 2a 0a 43 43 0a 38 30 |SPOSE***|**.CC.80|
|00011030| 20 20 20 20 4b 3d 31 0a | 20 20 20 20 20 20 44 4f | K=1.| DO|
|00011040| 20 39 35 20 4d 3d 31 2c | 4e 0a 20 20 20 20 20 20 | 95 M=1,|N. |
|00011050| 4b 4c 49 3d 4b 0a 20 20 | 20 20 20 20 44 4f 20 39 |KLI=K. | DO 9|
|00011060| 30 20 4c 3d 4d 2c 4e 0a | 20 20 20 20 20 20 4b 4d |0 L=M,N.| KM|
|00011070| 49 3d 4b 0a 20 20 20 20 | 20 20 49 4d 41 58 3d 4e |I=K. | IMAX=N|
|00011080| 2d 4c 2b 31 0a 20 20 20 | 20 20 20 53 55 4d 41 3d |-L+1. | SUMA=|
|00011090| 5a 45 52 4f 0a 20 20 20 | 20 20 20 44 4f 20 38 35 |ZERO. | DO 85|
|000110a0| 20 49 3d 31 2c 49 4d 41 | 58 0a 20 20 20 20 20 20 | I=1,IMA|X. |
|000110b0| 53 55 4d 41 3d 53 55 4d | 41 2b 41 4d 28 4b 4c 49 |SUMA=SUM|A+AM(KLI|
|000110c0| 29 2a 41 4d 28 4b 4d 49 | 29 0a 20 20 20 20 20 20 |)*AM(KMI|). |
|000110d0| 4b 4c 49 3d 4b 4c 49 2b | 31 0a 38 35 20 20 20 20 |KLI=KLI+|1.85 |
|000110e0| 4b 4d 49 3d 4b 4d 49 2b | 31 0a 20 20 20 20 20 20 |KMI=KMI+|1. |
|000110f0| 41 4d 28 4b 29 3d 53 55 | 4d 41 0a 39 30 20 20 20 |AM(K)=SU|MA.90 |
|00011100| 20 4b 3d 4b 2b 31 0a 39 | 35 20 20 20 20 43 4f 4e | K=K+1.9|5 CON|
|00011110| 54 49 4e 55 45 0a 31 30 | 30 20 20 20 4e 46 41 49 |TINUE.10|0 NFAI|
|00011120| 4c 3d 30 0a 31 30 35 20 | 20 20 52 45 54 55 52 4e |L=0.105 | RETURN|
|00011130| 0a 20 20 20 20 20 20 45 | 4e 44 0a 43 0a 43 0a 43 |. E|ND.C.C.C|
|00011140| 0a 20 20 20 20 20 20 53 | 55 42 52 4f 55 54 49 4e |. S|UBROUTIN|
|00011150| 45 20 4d 53 54 52 28 41 | 2c 52 2c 4e 2c 4d 53 41 |E MSTR(A|,R,N,MSA|
|00011160| 2c 4d 53 52 29 0a 20 20 | 20 20 20 20 49 4d 50 4c |,MSR). | IMPL|
|00011170| 49 43 49 54 20 52 45 41 | 4c 2a 38 28 41 2d 48 2c |ICIT REA|L*8(A-H,|
|00011180| 4f 2d 5a 29 0a 20 20 20 | 20 20 20 53 41 56 45 0a |O-Z). | SAVE.|
|00011190| 43 20 20 20 20 20 54 48 | 49 53 20 49 53 20 4f 52 |C TH|IS IS OR|
|000111a0| 4e 4c 20 46 30 31 30 34 | 32 20 4f 46 20 31 31 36 |NL F0104|2 OF 116|
|000111b0| 37 0a 43 0a 43 43 20 20 | 20 20 2e 2e 2e 2e 2e 2e |7.C.CC | ......|
|000111c0| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|000111d0| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|000111e0| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|000111f0| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 0a 43 43 0a |........|.....CC.|
|00011200| 43 43 20 20 20 20 53 55 | 42 52 4f 55 54 49 4e 45 |CC SU|BROUTINE|
|00011210| 20 4d 53 54 52 0a 43 43 | 0a 43 43 20 20 20 20 50 | MSTR.CC|.CC P|
|00011220| 55 52 50 4f 53 45 0a 43 | 43 0a 43 43 20 20 20 20 |URPOSE.C|C.CC |
|00011230| 43 48 41 4e 47 45 20 53 | 54 4f 52 41 47 45 20 4d |CHANGE S|TORAGE M|
|00011240| 4f 44 45 20 4f 46 20 41 | 20 4d 41 54 52 49 58 0a |ODE OF A| MATRIX.|
|00011250| 43 43 0a 43 43 20 20 20 | 20 55 53 41 47 45 0a 43 |CC.CC | USAGE.C|
|00011260| 43 0a 43 43 20 20 20 20 | 43 41 4c 4c 20 4d 53 54 |C.CC |CALL MST|
|00011270| 52 28 41 2c 52 2c 4e 2c | 4d 53 41 2c 4d 53 52 29 |R(A,R,N,|MSA,MSR)|
|00011280| 0a 43 43 0a 43 43 20 20 | 20 20 44 45 53 43 52 49 |.CC.CC | DESCRI|
|00011290| 50 54 49 4f 4e 20 4f 46 | 20 50 41 52 41 4d 45 54 |PTION OF| PARAMET|
|000112a0| 45 52 53 0a 43 43 0a 43 | 43 20 20 20 20 41 20 2d |ERS.CC.C|C A -|
|000112b0| 20 4e 41 4d 45 20 4f 46 | 20 49 4e 50 55 54 20 4d | NAME OF| INPUT M|
|000112c0| 41 54 52 49 58 0a 43 43 | 0a 43 43 20 20 20 20 52 |ATRIX.CC|.CC R|
|000112d0| 20 2d 20 4e 41 4d 45 20 | 4f 46 20 4f 55 54 50 55 | - NAME |OF OUTPU|
|000112e0| 54 20 4d 41 54 52 49 58 | 0a 43 43 0a 43 43 20 20 |T MATRIX|.CC.CC |
|000112f0| 20 20 4e 20 2d 20 4e 55 | 4d 42 45 52 20 4f 46 20 | N - NU|MBER OF |
|00011300| 52 4f 57 53 20 41 4e 44 | 20 43 4f 4c 55 4d 4e 53 |ROWS AND| COLUMNS|
|00011310| 20 49 4e 20 41 20 41 4e | 44 0a 43 43 0a 43 43 20 | IN A AN|D.CC.CC |
|00011320| 20 20 20 52 0a 43 43 0a | 43 43 20 20 20 20 4d 53 | R.CC.|CC MS|
|00011330| 41 20 2d 20 4f 4e 45 20 | 44 49 47 49 54 20 4e 55 |A - ONE |DIGIT NU|
|00011340| 4d 42 45 52 20 46 4f 52 | 20 53 54 4f 52 41 47 45 |MBER FOR| STORAGE|
|00011350| 20 4d 4f 44 45 0a 43 43 | 0a 43 43 20 20 20 20 4f | MODE.CC|.CC O|
|00011360| 46 20 4d 41 54 52 49 58 | 20 41 0a 43 43 0a 43 43 |F MATRIX| A.CC.CC|
|00011370| 20 20 20 20 30 20 2d 20 | 47 45 4e 45 52 41 4c 0a | 0 - |GENERAL.|
|00011380| 43 43 0a 43 20 20 20 20 | 20 31 20 2d 20 53 59 4d |CC.C | 1 - SYM|
|00011390| 4d 45 54 52 49 43 0a 43 | 20 20 20 20 20 32 20 2d |METRIC.C| 2 -|
|000113a0| 20 44 49 41 47 4f 4e 41 | 4c 0a 43 0a 43 43 20 20 | DIAGONA|L.C.CC |
|000113b0| 20 20 4d 53 52 20 2d 20 | 53 41 4d 45 20 41 53 20 | MSR - |SAME AS |
|000113c0| 4d 53 41 20 45 58 43 45 | 50 54 20 46 4f 52 20 4d |MSA EXCE|PT FOR M|
|000113d0| 41 54 52 49 58 20 52 0a | 43 43 0a 43 43 20 20 20 |ATRIX R.|CC.CC |
|000113e0| 20 52 45 4d 41 52 4b 53 | 0a 43 43 0a 43 43 20 20 | REMARKS|.CC.CC |
|000113f0| 20 20 4d 41 54 52 49 58 | 20 52 20 43 41 4e 4e 4f | MATRIX| R CANNO|
|00011400| 54 20 42 45 20 49 4e 20 | 54 48 45 20 53 41 4d 45 |T BE IN |THE SAME|
|00011410| 20 4c 4f 43 41 54 49 4f | 4e 0a 43 43 0a 43 43 20 | LOCATIO|N.CC.CC |
|00011420| 20 20 20 41 53 20 4d 41 | 54 52 49 58 20 41 0a 43 | AS MA|TRIX A.C|
|00011430| 43 0a 43 43 20 20 20 20 | 4d 41 54 52 49 58 20 41 |C.CC |MATRIX A|
|00011440| 20 4d 55 53 54 20 42 45 | 20 41 20 53 51 55 41 52 | MUST BE| A SQUAR|
|00011450| 45 20 4d 41 54 52 49 58 | 0a 43 43 0a 43 43 20 20 |E MATRIX|.CC.CC |
|00011460| 20 20 53 55 42 52 4f 55 | 54 49 4e 45 53 20 41 4e | SUBROU|TINES AN|
|00011470| 44 20 46 55 4e 43 54 49 | 4f 4e 20 53 55 42 50 52 |D FUNCTI|ON SUBPR|
|00011480| 4f 47 52 41 4d 53 20 52 | 45 51 55 49 52 45 44 0a |OGRAMS R|EQUIRED.|
|00011490| 43 43 0a 43 43 20 20 20 | 20 4c 4f 4b 20 28 46 4f |CC.CC | LOK (FO|
|000114a0| 52 4d 45 52 4c 59 20 4c | 4f 43 29 0a 43 43 0a 43 |RMERLY L|OC).CC.C|
|000114b0| 43 20 20 20 20 4d 45 54 | 48 4f 44 0a 43 43 0a 43 |C MET|HOD.CC.C|
|000114c0| 43 20 20 20 20 4d 41 54 | 52 49 58 20 41 20 49 53 |C MAT|RIX A IS|
|000114d0| 20 52 45 53 54 52 55 43 | 54 55 52 45 44 20 54 4f | RESTRUC|TURED TO|
|000114e0| 20 46 4f 52 4d 20 4d 41 | 54 52 49 58 0a 43 43 0a | FORM MA|TRIX.CC.|
|000114f0| 43 43 20 20 20 20 52 2e | 0a 43 43 0a 43 43 20 20 |CC R.|.CC.CC |
|00011500| 20 20 4d 53 41 20 4d 53 | 52 0a 43 43 0a 43 43 20 | MSA MS|R.CC.CC |
|00011510| 20 20 20 30 20 30 20 4d | 41 54 52 49 58 20 41 20 | 0 0 M|ATRIX A |
|00011520| 49 53 20 4d 4f 56 45 44 | 20 54 4f 20 4d 41 54 52 |IS MOVED| TO MATR|
|00011530| 49 58 20 52 0a 43 43 0a | 43 20 20 20 20 20 30 20 |IX R.CC.|C 0 |
|00011540| 31 20 54 48 45 20 55 50 | 50 45 52 20 54 52 49 41 |1 THE UP|PER TRIA|
|00011550| 4e 47 4c 45 20 45 4c 45 | 4d 45 4e 54 53 20 4f 46 |NGLE ELE|MENTS OF|
|00011560| 0a 43 0a 43 20 20 20 20 | 20 41 20 47 45 4e 45 52 |.C.C | A GENER|
|00011570| 41 4c 20 4d 41 54 52 49 | 58 0a 43 0a 43 43 20 20 |AL MATRI|X.C.CC |
|00011580| 20 20 41 52 45 20 55 53 | 45 44 20 54 4f 20 46 4f | ARE US|ED TO FO|
|00011590| 52 4d 20 41 20 53 59 4d | 4d 45 54 52 49 43 0a 43 |RM A SYM|METRIC.C|
|000115a0| 43 0a 43 43 20 20 20 20 | 4d 41 54 52 49 58 0a 43 |C.CC |MATRIX.C|
|000115b0| 43 0a 43 20 20 20 20 20 | 30 20 32 20 54 48 45 20 |C.C |0 2 THE |
|000115c0| 44 49 41 47 4f 4e 41 4c | 20 45 4c 45 4d 45 4e 54 |DIAGONAL| ELEMENT|
|000115d0| 53 20 4f 46 20 41 20 47 | 45 4e 45 52 41 4c 0a 43 |S OF A G|ENERAL.C|
|000115e0| 0a 43 20 20 20 20 20 4d | 41 54 52 49 58 20 41 52 |.C M|ATRIX AR|
|000115f0| 45 20 55 53 45 44 0a 43 | 0a 43 43 20 20 20 20 54 |E USED.C|.CC T|
|00011600| 4f 20 46 4f 52 4d 20 41 | 20 44 49 41 47 4f 4e 41 |O FORM A| DIAGONA|
|00011610| 4c 20 4d 41 54 52 49 58 | 0a 43 43 0a 43 20 20 20 |L MATRIX|.CC.C |
|00011620| 20 20 31 20 30 20 41 20 | 53 59 4d 4d 45 54 52 49 | 1 0 A |SYMMETRI|
|00011630| 43 20 4d 41 54 52 49 58 | 20 49 53 20 45 58 50 41 |C MATRIX| IS EXPA|
|00011640| 4e 44 45 44 0a 43 0a 43 | 20 20 20 20 20 54 4f 20 |NDED.C.C| TO |
|00011650| 46 4f 52 4d 20 41 20 47 | 45 4e 45 52 41 4c 0a 43 |FORM A G|ENERAL.C|
|00011660| 0a 43 43 20 20 20 20 4d | 41 54 52 49 58 0a 43 43 |.CC M|ATRIX.CC|
|00011670| 0a 43 20 20 20 20 20 31 | 20 31 20 4d 41 54 52 49 |.C 1| 1 MATRI|
|00011680| 58 20 41 20 49 53 20 4d | 4f 56 45 44 20 54 4f 20 |X A IS M|OVED TO |
|00011690| 4d 41 54 52 49 58 20 52 | 0a 43 0a 43 20 20 20 20 |MATRIX R|.C.C |
|000116a0| 20 31 20 32 20 54 48 45 | 20 44 49 41 47 4f 4e 41 | 1 2 THE| DIAGONA|
|000116b0| 4c 20 45 4c 45 4d 45 4e | 54 53 20 4f 46 20 41 20 |L ELEMEN|TS OF A |
|000116c0| 53 59 4d 4d 45 54 52 49 | 43 0a 43 20 20 20 20 20 |SYMMETRI|C.C |
|000116d0| 4d 41 54 52 49 58 20 41 | 52 45 0a 43 0a 43 43 20 |MATRIX A|RE.C.CC |
|000116e0| 20 20 20 55 53 45 44 20 | 54 4f 20 46 4f 52 4d 20 | USED |TO FORM |
|000116f0| 41 20 44 49 41 47 4f 4e | 41 4c 20 4d 41 54 52 49 |A DIAGON|AL MATRI|
|00011700| 58 0a 43 43 0a 43 20 20 | 20 20 20 32 20 30 20 41 |X.CC.C | 2 0 A|
|00011710| 20 44 49 41 47 4f 4e 41 | 4c 20 4d 41 54 52 49 58 | DIAGONA|L MATRIX|
|00011720| 20 49 53 20 45 58 50 41 | 4e 44 45 44 0a 43 0a 43 | IS EXPA|NDED.C.C|
|00011730| 20 20 20 20 20 42 59 20 | 49 4e 53 45 52 54 49 4e | BY |INSERTIN|
|00011740| 47 20 4d 49 53 53 49 4e | 47 0a 43 0a 43 43 20 20 |G MISSIN|G.C.CC |
|00011750| 20 20 5a 45 52 4f 20 45 | 4c 45 4d 45 4e 54 53 20 | ZERO E|LEMENTS |
|00011760| 54 4f 20 46 4f 52 4d 20 | 41 20 47 45 4e 45 52 41 |TO FORM |A GENERA|
|00011770| 4c 0a 43 43 0a 43 43 20 | 20 20 20 4d 41 54 52 49 |L.CC.CC | MATRI|
|00011780| 58 0a 43 43 0a 43 20 20 | 20 20 20 32 20 31 20 41 |X.CC.C | 2 1 A|
|00011790| 20 44 49 41 47 4f 4e 41 | 4c 20 4d 41 54 52 49 58 | DIAGONA|L MATRIX|
|000117a0| 20 49 53 20 45 58 50 41 | 4e 44 45 44 0a 43 0a 43 | IS EXPA|NDED.C.C|
|000117b0| 20 20 20 20 20 42 59 20 | 49 4e 53 45 52 54 49 4e | BY |INSERTIN|
|000117c0| 47 20 4d 49 53 53 49 4e | 47 0a 43 0a 43 43 20 20 |G MISSIN|G.C.CC |
|000117d0| 20 20 5a 45 52 4f 20 45 | 4c 45 4d 45 4e 54 53 20 | ZERO E|LEMENTS |
|000117e0| 54 4f 20 46 4f 52 4d 20 | 41 20 53 59 4d 4d 45 54 |TO FORM |A SYMMET|
|000117f0| 52 49 43 0a 43 43 0a 43 | 43 20 20 20 20 4d 41 54 |RIC.CC.C|C MAT|
|00011800| 52 49 58 0a 43 43 0a 43 | 20 20 20 20 20 32 20 32 |RIX.CC.C| 2 2|
|00011810| 20 4d 41 54 52 49 58 20 | 41 20 49 53 20 4d 4f 56 | MATRIX |A IS MOV|
|00011820| 45 44 20 54 4f 20 4d 41 | 54 52 49 58 20 52 0a 43 |ED TO MA|TRIX R.C|
|00011830| 0a 43 43 0a 43 43 20 20 | 20 20 2e 2e 2e 2e 2e 2e |.CC.CC | ......|
|00011840| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|00011850| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|00011860| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|00011870| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 0a 43 43 0a |........|.....CC.|
|00011880| 20 20 20 20 20 20 44 49 | 4d 45 4e 53 49 4f 4e 20 | DI|MENSION |
|00011890| 41 28 2a 29 2c 52 28 2a | 29 0a 20 20 20 20 20 20 |A(*),R(*|). |
|000118a0| 44 41 54 41 20 4f 4e 45 | 2c 5a 45 52 4f 2f 31 2e |DATA ONE|,ZERO/1.|
|000118b0| 30 44 2b 30 2c 30 2e 30 | 44 2b 30 2f 0a 20 20 20 |0D+0,0.0|D+0/. |
|000118c0| 20 20 20 44 4f 20 32 35 | 20 49 3d 31 2c 4e 0a 20 | DO 25| I=1,N. |
|000118d0| 20 20 20 20 20 44 4f 20 | 32 35 20 4a 3d 31 2c 4e | DO |25 J=1,N|
|000118e0| 0a 43 43 20 20 20 20 49 | 46 20 52 20 49 53 20 47 |.CC I|F R IS G|
|000118f0| 45 4e 45 52 41 4c 2c 20 | 46 4f 52 4d 20 45 4c 45 |ENERAL, |FORM ELE|
|00011900| 4d 45 4e 54 0a 43 43 0a | 20 20 20 20 20 20 49 46 |MENT.CC.| IF|
|00011910| 20 28 4d 53 52 29 20 35 | 2c 31 30 2c 35 0a 43 43 | (MSR) 5|,10,5.CC|
|00011920| 20 20 20 20 49 46 20 49 | 4e 20 4c 4f 57 45 52 20 | IF I|N LOWER |
|00011930| 54 52 49 41 4e 47 4c 45 | 20 4f 46 20 53 59 4d 4d |TRIANGLE| OF SYMM|
|00011940| 45 54 52 49 43 20 4f 52 | 20 44 49 41 47 4f 4e 41 |ETRIC OR| DIAGONA|
|00011950| 4c 0a 43 43 0a 43 43 20 | 20 20 20 52 2c 20 42 59 |L.CC.CC | R, BY|
|00011960| 50 41 53 53 0a 43 43 0a | 35 20 20 20 20 20 49 46 |PASS.CC.|5 IF|
|00011970| 20 28 49 2d 4a 29 20 31 | 30 2c 31 30 2c 32 35 0a | (I-J) 1|0,10,25.|
|00011980| 31 30 20 20 20 20 43 41 | 4c 4c 20 4c 4f 4b 28 49 |10 CA|LL LOK(I|
|00011990| 2c 4a 2c 49 52 2c 4e 2c | 4e 2c 4d 53 52 29 0a 43 |,J,IR,N,|N,MSR).C|
|000119a0| 43 20 20 20 20 49 46 20 | 49 4e 20 55 50 50 45 52 |C IF |IN UPPER|
|000119b0| 20 41 4e 44 20 4f 46 46 | 20 44 49 41 47 4f 4e 41 | AND OFF| DIAGONA|
|000119c0| 4c 20 4f 46 20 44 49 41 | 47 4f 4e 41 4c 0a 43 43 |L OF DIA|GONAL.CC|
|000119d0| 0a 43 43 20 20 20 20 52 | 2c 20 42 59 50 41 53 53 |.CC R|, BYPASS|
|000119e0| 0a 43 43 0a 20 20 20 20 | 20 20 49 46 20 28 49 52 |.CC. | IF (IR|
|000119f0| 29 20 32 35 2c 32 35 2c | 31 35 0a 43 43 20 20 20 |) 25,25,|15.CC |
|00011a00| 20 4f 54 48 45 52 57 49 | 53 45 2c 20 46 4f 52 4d | OTHERWI|SE, FORM|
|00011a10| 20 52 28 49 2c 4a 29 0a | 43 43 0a 31 35 20 20 20 | R(I,J).|CC.15 |
|00011a20| 20 52 28 49 52 29 3d 5a | 45 52 4f 0a 20 20 20 20 | R(IR)=Z|ERO. |
|00011a30| 20 20 43 41 4c 4c 20 4c | 4f 4b 28 49 2c 4a 2c 49 | CALL L|OK(I,J,I|
|00011a40| 41 2c 4e 2c 4e 2c 4d 53 | 41 29 0a 43 43 20 20 20 |A,N,N,MS|A).CC |
|00011a50| 20 49 46 20 54 48 45 52 | 45 20 49 53 20 4e 4f 20 | IF THER|E IS NO |
|00011a60| 41 28 49 2c 4a 29 2c 20 | 4c 45 41 56 45 20 52 28 |A(I,J), |LEAVE R(|
|00011a70| 49 2c 4a 29 20 41 54 20 | 5a 45 52 4f 0a 43 43 0a |I,J) AT |ZERO.CC.|
|00011a80| 20 20 20 20 20 20 49 46 | 20 28 49 41 29 20 32 35 | IF| (IA) 25|
|00011a90| 2c 32 35 2c 32 30 0a 32 | 30 20 20 20 20 52 28 49 |,25,20.2|0 R(I|
|00011aa0| 52 29 3d 41 28 49 41 29 | 0a 32 35 20 20 20 20 43 |R)=A(IA)|.25 C|
|00011ab0| 4f 4e 54 49 4e 55 45 0a | 20 20 20 20 20 20 52 45 |ONTINUE.| RE|
|00011ac0| 54 55 52 4e 0a 20 20 20 | 20 20 20 45 4e 44 0a 43 |TURN. | END.C|
|00011ad0| 0a 43 0a 43 0a 20 20 20 | 20 20 20 53 55 42 52 4f |.C.C. | SUBRO|
|00011ae0| 55 54 49 4e 45 20 4c 4f | 4b 28 49 2c 4a 2c 49 52 |UTINE LO|K(I,J,IR|
|00011af0| 2c 4e 2c 4d 2c 4d 53 29 | 0a 20 20 20 20 20 20 49 |,N,M,MS)|. I|
|00011b00| 4d 50 4c 49 43 49 54 20 | 52 45 41 4c 2a 38 28 41 |MPLICIT |REAL*8(A|
|00011b10| 2d 48 2c 4f 2d 5a 29 0a | 20 20 20 20 20 20 53 41 |-H,O-Z).| SA|
|00011b20| 56 45 0a 43 43 20 20 20 | 20 2e 2e 2e 2e 2e 2e 2e |VE.CC | .......|
|00011b30| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|00011b40| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|00011b50| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|00011b60| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 0a 43 43 0a 43 |........|....CC.C|
|00011b70| 43 20 20 20 20 53 55 42 | 52 4f 55 54 49 4e 45 20 |C SUB|ROUTINE |
|00011b80| 4c 4f 4b 20 28 46 4f 52 | 4d 45 52 4c 59 20 4c 4f |LOK (FOR|MERLY LO|
|00011b90| 43 29 0a 43 43 0a 43 43 | 20 20 20 20 50 55 52 50 |C).CC.CC| PURP|
|00011ba0| 4f 53 45 0a 43 43 0a 43 | 43 20 20 20 20 43 4f 4d |OSE.CC.C|C COM|
|00011bb0| 50 55 54 45 20 41 20 56 | 45 43 54 4f 52 20 53 55 |PUTE A V|ECTOR SU|
|00011bc0| 42 53 43 52 49 50 54 20 | 46 4f 52 20 41 4e 20 45 |BSCRIPT |FOR AN E|
|00011bd0| 4c 45 4d 45 4e 54 0a 43 | 43 0a 43 43 20 20 20 20 |LEMENT.C|C.CC |
|00011be0| 49 4e 20 41 20 4d 41 54 | 52 49 58 20 4f 46 0a 43 |IN A MAT|RIX OF.C|
|00011bf0| 43 0a 43 43 20 20 20 20 | 53 50 45 43 49 46 49 45 |C.CC |SPECIFIE|
|00011c00| 44 20 53 54 4f 52 41 47 | 45 20 4d 4f 44 45 0a 43 |D STORAG|E MODE.C|
|00011c10| 43 0a 43 43 20 20 20 20 | 55 53 41 47 45 0a 43 43 |C.CC |USAGE.CC|
|00011c20| 0a 43 43 20 20 20 20 43 | 41 4c 4c 20 4c 4f 4b 20 |.CC C|ALL LOK |
|00011c30| 28 49 2c 4a 2c 49 52 2c | 4e 2c 4d 2c 4d 53 29 0a |(I,J,IR,|N,M,MS).|
|00011c40| 43 43 0a 43 43 20 20 20 | 20 44 45 53 43 52 49 50 |CC.CC | DESCRIP|
|00011c50| 54 49 4f 4e 20 4f 46 20 | 50 41 52 41 4d 45 54 45 |TION OF |PARAMETE|
|00011c60| 52 53 0a 43 43 0a 43 43 | 20 20 20 20 49 20 2d 20 |RS.CC.CC| I - |
|00011c70| 52 4f 57 20 4e 55 4d 42 | 45 52 20 4f 46 20 45 4c |ROW NUMB|ER OF EL|
|00011c80| 45 4d 45 4e 54 0a 43 43 | 0a 43 43 20 20 20 20 4a |EMENT.CC|.CC J|
|00011c90| 20 2d 20 43 4f 4c 55 4d | 4e 20 4e 55 4d 42 45 52 | - COLUM|N NUMBER|
|00011ca0| 20 4f 46 20 45 4c 45 4d | 45 4e 54 0a 43 43 0a 43 | OF ELEM|ENT.CC.C|
|00011cb0| 43 20 20 20 20 49 52 20 | 2d 20 52 45 53 55 4c 54 |C IR |- RESULT|
|00011cc0| 41 4e 54 20 56 45 43 54 | 4f 52 20 53 55 42 53 43 |ANT VECT|OR SUBSC|
|00011cd0| 52 49 50 54 0a 43 43 0a | 43 43 20 20 20 20 4e 20 |RIPT.CC.|CC N |
|00011ce0| 2d 20 4e 55 4d 42 45 52 | 20 4f 46 20 52 4f 57 53 |- NUMBER| OF ROWS|
|00011cf0| 20 49 4e 20 4d 41 54 52 | 49 58 0a 43 43 0a 43 43 | IN MATR|IX.CC.CC|
|00011d00| 20 20 20 20 4d 20 2d 20 | 4e 55 4d 42 45 52 20 4f | M - |NUMBER O|
|00011d10| 46 20 43 4f 4c 55 4d 4e | 53 20 49 4e 20 4d 41 54 |F COLUMN|S IN MAT|
|00011d20| 52 49 58 0a 43 43 0a 43 | 43 20 20 20 20 4d 53 20 |RIX.CC.C|C MS |
|00011d30| 2d 20 4f 4e 45 20 44 49 | 47 49 54 20 4e 55 4d 42 |- ONE DI|GIT NUMB|
|00011d40| 45 52 20 46 4f 52 20 53 | 54 4f 52 41 47 45 20 4d |ER FOR S|TORAGE M|
|00011d50| 4f 44 45 0a 43 43 0a 43 | 43 20 20 20 20 4f 46 20 |ODE.CC.C|C OF |
|00011d60| 4d 41 54 52 49 58 0a 43 | 43 0a 43 43 20 20 20 20 |MATRIX.C|C.CC |
|00011d70| 30 20 2d 20 47 45 4e 45 | 52 41 4c 0a 43 43 0a 43 |0 - GENE|RAL.CC.C|
|00011d80| 20 20 20 20 20 31 20 2d | 20 53 59 4d 4d 45 54 52 | 1 -| SYMMETR|
|00011d90| 49 43 0a 43 20 20 20 20 | 20 32 20 2d 20 44 49 41 |IC.C | 2 - DIA|
|00011da0| 47 4f 4e 41 4c 0a 43 0a | 43 43 0a 43 43 20 20 20 |GONAL.C.|CC.CC |
|00011db0| 20 52 45 4d 41 52 4b 53 | 0a 43 43 0a 43 43 20 20 | REMARKS|.CC.CC |
|00011dc0| 20 20 4e 4f 4e 45 0a 43 | 43 0a 43 43 20 20 20 20 | NONE.C|C.CC |
|00011dd0| 53 55 42 52 4f 55 54 49 | 4e 45 53 20 41 4e 44 20 |SUBROUTI|NES AND |
|00011de0| 46 55 4e 43 54 49 4f 4e | 20 53 55 42 50 52 4f 47 |FUNCTION| SUBPROG|
|00011df0| 52 41 4d 53 20 52 45 51 | 55 49 52 45 44 0a 43 43 |RAMS REQ|UIRED.CC|
|00011e00| 0a 43 43 20 20 20 20 4e | 4f 4e 45 0a 43 43 0a 43 |.CC N|ONE.CC.C|
|00011e10| 43 20 20 20 20 4d 45 54 | 48 4f 44 0a 43 43 0a 43 |C MET|HOD.CC.C|
|00011e20| 43 20 20 20 20 4d 53 3d | 30 20 53 55 42 53 43 52 |C MS=|0 SUBSCR|
|00011e30| 49 50 54 20 49 53 20 43 | 4f 4d 50 55 54 45 44 20 |IPT IS C|OMPUTED |
|00011e40| 46 4f 52 20 41 20 4d 41 | 54 52 49 58 0a 43 43 0a |FOR A MA|TRIX.CC.|
|00011e50| 43 43 20 20 20 20 57 49 | 54 48 20 4e 2a 4d 20 45 |CC WI|TH N*M E|
|00011e60| 4c 45 4d 45 4e 54 53 0a | 43 43 0a 43 43 20 20 20 |LEMENTS.|CC.CC |
|00011e70| 20 49 4e 20 53 54 4f 52 | 41 47 45 20 28 47 45 4e | IN STOR|AGE (GEN|
|00011e80| 45 52 41 4c 20 4d 41 54 | 52 49 58 29 0a 43 43 0a |ERAL MAT|RIX).CC.|
|00011e90| 43 20 20 20 20 20 4d 53 | 3d 31 20 53 55 42 53 43 |C MS|=1 SUBSC|
|00011ea0| 52 49 50 54 20 49 53 20 | 43 4f 4d 50 55 54 45 44 |RIPT IS |COMPUTED|
|00011eb0| 20 46 4f 52 20 41 20 4d | 41 54 52 49 58 0a 43 0a | FOR A M|ATRIX.C.|
|00011ec0| 43 20 20 20 20 20 57 49 | 54 48 20 4e 2a 28 4e 2b |C WI|TH N*(N+|
|00011ed0| 31 29 2f 32 20 49 4e 0a | 43 0a 43 43 20 20 20 20 |1)/2 IN.|C.CC |
|00011ee0| 53 54 4f 52 41 47 45 20 | 28 55 50 50 45 52 20 54 |STORAGE |(UPPER T|
|00011ef0| 52 49 41 4e 47 4c 45 20 | 4f 46 20 53 59 4d 4d 45 |RIANGLE |OF SYMME|
|00011f00| 54 52 49 43 0a 43 43 0a | 43 43 20 20 20 20 4d 41 |TRIC.CC.|CC MA|
|00011f10| 54 52 49 58 29 2e 20 49 | 46 0a 43 43 0a 43 43 20 |TRIX). I|F.CC.CC |
|00011f20| 20 20 20 45 4c 45 4d 45 | 4e 54 20 49 53 20 49 4e | ELEME|NT IS IN|
|00011f30| 20 4c 4f 57 45 52 20 54 | 52 49 41 4e 47 55 4c 41 | LOWER T|RIANGULA|
|00011f40| 52 0a 43 43 0a 43 43 20 | 20 20 20 50 4f 52 54 49 |R.CC.CC | PORTI|
|00011f50| 4f 4e 2c 20 53 55 42 53 | 43 52 49 50 54 20 49 53 |ON, SUBS|CRIPT IS|
|00011f60| 0a 43 43 0a 43 43 20 20 | 20 20 43 4f 52 52 45 53 |.CC.CC | CORRES|
|00011f70| 50 4f 4e 44 49 4e 47 20 | 45 4c 45 4d 45 4e 54 20 |PONDING |ELEMENT |
|00011f80| 49 4e 20 55 50 50 45 52 | 0a 43 43 0a 43 43 20 20 |IN UPPER|.CC.CC |
|00011f90| 20 20 54 52 49 41 4e 47 | 4c 45 2e 0a 43 43 0a 43 | TRIANG|LE..CC.C|
|00011fa0| 20 20 20 20 20 4d 53 3d | 32 20 53 55 42 53 43 52 | MS=|2 SUBSCR|
|00011fb0| 49 50 54 20 49 53 20 43 | 4f 4d 50 55 54 45 44 20 |IPT IS C|OMPUTED |
|00011fc0| 46 4f 52 20 41 20 4d 41 | 54 52 49 58 0a 43 0a 43 |FOR A MA|TRIX.C.C|
|00011fd0| 20 20 20 20 20 57 49 54 | 48 20 4e 20 45 4c 45 4d | WIT|H N ELEM|
|00011fe0| 45 4e 54 53 0a 43 0a 43 | 43 20 20 20 20 49 4e 20 |ENTS.C.C|C IN |
|00011ff0| 53 54 4f 52 41 47 45 20 | 28 44 49 41 47 4f 4e 41 |STORAGE |(DIAGONA|
|00012000| 4c 20 45 4c 45 4d 45 4e | 54 53 20 4f 46 0a 43 43 |L ELEMEN|TS OF.CC|
|00012010| 0a 43 43 20 20 20 20 44 | 49 41 47 4f 4e 41 4c 20 |.CC D|IAGONAL |
|00012020| 4d 41 54 52 49 58 29 2e | 0a 43 43 0a 43 43 20 20 |MATRIX).|.CC.CC |
|00012030| 20 20 49 46 20 45 4c 45 | 4d 45 4e 54 20 49 53 20 | IF ELE|MENT IS |
|00012040| 4e 4f 54 20 4f 4e 20 44 | 49 41 47 4f 4e 41 4c 20 |NOT ON D|IAGONAL |
|00012050| 28 41 4e 44 0a 43 43 0a | 43 43 20 20 20 20 54 48 |(AND.CC.|CC TH|
|00012060| 45 52 45 46 4f 52 45 20 | 4e 4f 54 20 49 4e 0a 43 |EREFORE |NOT IN.C|
|00012070| 43 0a 43 43 20 20 20 20 | 53 54 4f 52 41 47 45 29 |C.CC |STORAGE)|
|00012080| 2c 20 49 52 20 49 53 20 | 53 45 54 20 54 4f 20 5a |, IR IS |SET TO Z|
|00012090| 45 52 4f 2e 0a 43 43 0a | 43 43 20 20 20 20 2e 2e |ERO..CC.|CC ..|
|000120a0| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|000120b0| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|000120c0| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|000120d0| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|000120e0| 0a 43 43 0a 20 20 20 20 | 20 20 49 58 3d 49 0a 20 |.CC. | IX=I. |
|000120f0| 20 20 20 20 20 4a 58 3d | 4a 0a 20 20 20 20 20 20 | JX=|J. |
|00012100| 49 46 20 28 4d 53 2d 31 | 29 20 35 2c 31 30 2c 32 |IF (MS-1|) 5,10,2|
|00012110| 35 0a 35 20 20 20 20 20 | 49 52 58 3d 4e 2a 28 4a |5.5 |IRX=N*(J|
|00012120| 58 2d 31 29 2b 49 58 0a | 20 20 20 20 20 20 47 4f |X-1)+IX.| GO|
|00012130| 20 54 4f 20 33 35 0a 31 | 30 20 20 20 20 49 46 20 | TO 35.1|0 IF |
|00012140| 28 49 58 2d 4a 58 29 20 | 31 35 2c 32 30 2c 32 30 |(IX-JX) |15,20,20|
|00012150| 0a 31 35 20 20 20 20 49 | 52 58 3d 49 58 2b 28 4a |.15 I|RX=IX+(J|
|00012160| 58 2a 4a 58 2d 4a 58 29 | 2f 32 0a 20 20 20 20 20 |X*JX-JX)|/2. |
|00012170| 20 47 4f 20 54 4f 20 33 | 35 0a 32 30 20 20 20 20 | GO TO 3|5.20 |
|00012180| 49 52 58 3d 4a 58 2b 28 | 49 58 2a 49 58 2d 49 58 |IRX=JX+(|IX*IX-IX|
|00012190| 29 2f 32 0a 20 20 20 20 | 20 20 47 4f 20 54 4f 20 |)/2. | GO TO |
|000121a0| 33 35 0a 32 35 20 20 20 | 20 49 52 58 3d 30 0a 20 |35.25 | IRX=0. |
|000121b0| 20 20 20 20 20 49 46 20 | 28 49 58 2d 4a 58 29 20 | IF |(IX-JX) |
|000121c0| 33 35 2c 33 30 2c 33 35 | 0a 33 30 20 20 20 20 49 |35,30,35|.30 I|
|000121d0| 52 58 3d 49 58 0a 33 35 | 20 20 20 20 49 52 3d 49 |RX=IX.35| IR=I|
|000121e0| 52 58 0a 20 20 20 20 20 | 20 52 45 54 55 52 4e 0a |RX. | RETURN.|
|000121f0| 20 20 20 20 20 20 45 4e | 44 0a 43 0a 43 0a 43 0a | EN|D.C.C.C.|
|00012200| 20 20 20 20 20 20 53 55 | 42 52 4f 55 54 49 4e 45 | SU|BROUTINE|
|00012210| 20 54 45 53 54 28 50 2c | 50 44 2c 4b 49 2c 49 43 | TEST(P,|PD,KI,IC|
|00012220| 4f 4e 56 2c 49 53 54 4f | 50 29 0a 20 20 20 20 20 |ONV,ISTO|P). |
|00012230| 20 49 4d 50 4c 49 43 49 | 54 20 52 45 41 4c 2a 38 | IMPLICI|T REAL*8|
|00012240| 28 41 2d 48 2c 4f 2d 5a | 29 0a 20 20 20 20 20 20 |(A-H,O-Z|). |
|00012250| 53 41 56 45 0a 20 20 20 | 20 20 20 43 48 41 52 41 |SAVE. | CHARA|
|00012260| 43 54 45 52 2a 31 30 20 | 49 53 54 4f 50 0a 20 20 |CTER*10 |ISTOP. |
|00012270| 20 20 20 20 43 4f 4d 4d | 4f 4e 2f 4c 47 50 2f 4e | COMM|ON/LGP/N|
|00012280| 50 0a 20 20 20 20 20 20 | 43 4f 4d 4d 4f 4e 2f 4d |P. |COMMON/M|
|00012290| 44 2f 4e 53 4f 2c 4e 43 | 42 4f 2c 49 52 45 46 2c |D/NSO,NC|BO,IREF,|
|000122a0| 4e 50 48 2c 4e 50 41 2c | 4e 53 41 2c 4e 49 4f 2c |NPH,NPA,|NSA,NIO,|
|000122b0| 4e 49 41 2c 4e 43 41 2c | 4e 41 4e 2c 4e 4e 55 2c |NIA,NCA,|NAN,NNU,|
|000122c0| 4e 55 50 2c 4e 55 4d 0a | 20 20 20 20 20 20 43 4f |NUP,NUM.| CO|
|000122d0| 4d 4d 4f 4e 2f 46 49 54 | 2f 53 49 47 4d 41 2c 4e |MMON/FIT|/SIGMA,N|
|000122e0| 43 2c 4e 56 2c 4c 41 4d | 2c 4c 45 56 20 20 20 20 |C,NV,LAM|,LEV |
|000122f0| 20 0a 20 20 20 20 20 20 | 44 49 4d 45 4e 53 49 4f | . |DIMENSIO|
|00012300| 4e 20 50 28 2a 29 2c 50 | 44 28 2a 29 2c 4b 49 28 |N P(*),P|D(*),KI(|
|00012310| 2a 29 0a 20 20 20 20 20 | 20 44 41 54 41 20 4f 4e |*). | DATA ON|
|00012320| 45 2c 5a 45 52 4f 2f 31 | 2e 30 44 2b 30 2c 30 2e |E,ZERO/1|.0D+0,0.|
|00012330| 30 44 2b 30 2f 0a 20 20 | 20 20 20 20 50 44 53 56 |0D+0/. | PDSV|
|00012340| 3d 5a 45 52 4f 0a 20 20 | 20 20 20 20 4e 41 50 3d |=ZERO. | NAP=|
|00012350| 31 2b 4e 50 48 2b 4e 50 | 41 0a 20 20 20 20 20 20 |1+NPH+NP|A. |
|00012360| 4a 3d 30 0a 20 20 20 20 | 20 20 44 4f 20 31 30 20 |J=0. | DO 10 |
|00012370| 49 3d 31 2c 4e 50 0a 20 | 20 20 20 20 20 49 46 28 |I=1,NP. | IF(|
|00012380| 4b 49 28 49 29 2e 45 51 | 2e 30 29 20 47 4f 20 54 |KI(I).EQ|.0) GO T|
|00012390| 4f 20 31 30 0a 20 20 20 | 20 20 20 4a 3d 4a 2b 31 |O 10. | J=J+1|
|000123a0| 0a 20 20 20 20 20 20 49 | 46 28 4e 53 4f 2e 45 51 |. I|F(NSO.EQ|
|000123b0| 2e 30 29 20 47 4f 54 4f | 20 31 34 0a 20 20 20 20 |.0) GOTO| 14. |
|000123c0| 20 20 44 4f 20 31 32 20 | 4b 3d 31 2c 4e 53 4f 0a | DO 12 |K=1,NSO.|
|000123d0| 20 20 20 20 20 20 4c 3d | 4e 41 50 2a 28 4b 2d 31 | L=|NAP*(K-1|
|000123e0| 29 2b 31 0a 20 20 20 20 | 20 20 49 46 28 49 2e 45 |)+1. | IF(I.E|
|000123f0| 51 2e 4c 29 20 47 4f 54 | 4f 20 32 32 0a 31 32 20 |Q.L) GOT|O 22.12 |
|00012400| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 31 34 20 20 | CONTI|NUE.14 |
|00012410| 20 20 49 46 28 4e 53 41 | 2e 45 51 2e 30 29 20 47 | IF(NSA|.EQ.0) G|
|00012420| 4f 54 4f 20 31 38 0a 20 | 20 20 20 20 20 44 4f 20 |OTO 18. | DO |
|00012430| 31 36 20 4b 3d 31 2c 4e | 53 41 0a 20 20 20 20 20 |16 K=1,N|SA. |
|00012440| 20 4c 3d 4e 41 50 2a 4e | 53 4f 2b 32 2a 28 4e 50 | L=NAP*N|SO+2*(NP|
|00012450| 48 2b 4e 50 41 29 0a 20 | 20 20 20 20 20 49 46 28 |H+NPA). | IF(|
|00012460| 49 2e 47 54 2e 4c 2e 41 | 4e 44 2e 49 2e 4c 45 2e |I.GT.L.A|ND.I.LE.|
|00012470| 28 4c 2b 4e 53 41 29 29 | 20 47 4f 54 4f 20 32 32 |(L+NSA))| GOTO 22|
|00012480| 0a 31 36 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a |.16 C|ONTINUE.|
|00012490| 43 20 20 50 41 52 41 4d | 45 54 45 52 20 49 53 20 |C PARAM|ETER IS |
|000124a0| 4e 4f 54 20 4c 4f 47 41 | 52 49 54 48 4d 49 43 0a |NOT LOGA|RITHMIC.|
|000124b0| 31 38 20 20 20 20 49 46 | 28 44 41 42 53 28 50 28 |18 IF|(DABS(P(|
|000124c0| 49 29 2d 50 44 28 4a 29 | 29 2e 4c 54 2e 31 29 20 |I)-PD(J)|).LT.1) |
|000124d0| 44 50 46 3d 50 44 28 4a | 29 0a 20 20 20 20 20 20 |DPF=PD(J|). |
|000124e0| 49 46 28 44 41 42 53 28 | 50 28 49 29 2d 50 44 28 |IF(DABS(|P(I)-PD(|
|000124f0| 4a 29 29 2e 47 45 2e 31 | 29 20 44 50 46 3d 50 44 |J)).GE.1|) DPF=PD|
|00012500| 28 4a 29 2f 28 50 28 49 | 29 2d 50 44 28 4a 29 29 |(J)/(P(I|)-PD(J))|
|00012510| 0a 20 20 20 20 20 20 41 | 42 53 50 44 3d 44 41 42 |. A|BSPD=DAB|
|00012520| 53 28 44 50 46 29 0a 20 | 20 20 20 20 20 49 46 28 |S(DPF). | IF(|
|00012530| 41 42 53 50 44 2e 47 54 | 2e 50 44 53 56 29 20 50 |ABSPD.GT|.PDSV) P|
|00012540| 44 53 56 3d 41 42 53 50 | 44 0a 20 20 20 20 20 20 |DSV=ABSP|D. |
|00012550| 47 4f 54 4f 20 31 30 0a | 43 20 20 50 41 52 41 4d |GOTO 10.|C PARAM|
|00012560| 45 54 45 52 20 49 53 20 | 4c 4f 47 41 52 49 54 48 |ETER IS |LOGARITH|
|00012570| 4d 49 43 0a 32 32 20 20 | 20 20 44 50 46 3d 50 44 |MIC.22 | DPF=PD|
|00012580| 28 4a 29 0a 20 20 20 20 | 20 20 41 42 53 50 44 3d |(J). | ABSPD=|
|00012590| 44 41 42 53 28 44 50 46 | 29 0a 20 20 20 20 20 20 |DABS(DPF|). |
|000125a0| 49 46 28 41 42 53 50 44 | 2e 47 54 2e 50 44 53 56 |IF(ABSPD|.GT.PDSV|
|000125b0| 29 20 50 44 53 56 3d 41 | 42 53 50 44 0a 31 30 20 |) PDSV=A|BSPD.10 |
|000125c0| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 20 20 20 20 | CONTI|NUE. |
|000125d0| 20 20 49 46 28 50 44 53 | 56 2e 47 54 2e 30 2e 31 | IF(PDS|V.GT.0.1|
|000125e0| 44 2b 30 29 20 49 43 4f | 4e 56 3d 30 0a 20 20 20 |D+0) ICO|NV=0. |
|000125f0| 20 20 20 49 46 28 50 44 | 53 56 2e 4c 45 2e 30 2e | IF(PD|SV.LE.0.|
|00012600| 31 44 2b 30 29 20 49 43 | 4f 4e 56 3d 31 0a 20 20 |1D+0) IC|ONV=1. |
|00012610| 20 20 20 20 49 46 28 50 | 44 53 56 2e 4c 45 2e 4f | IF(P|DSV.LE.O|
|00012620| 4e 45 29 20 47 4f 20 54 | 4f 20 34 30 0a 20 20 20 |NE) GO T|O 40. |
|00012630| 20 20 20 57 52 49 54 45 | 28 39 2c 31 30 30 29 20 | WRITE|(9,100) |
|00012640| 50 44 53 56 0a 20 20 20 | 20 20 20 57 52 49 54 45 |PDSV. | WRITE|
|00012650| 28 31 32 2c 31 30 30 29 | 20 50 44 53 56 0a 31 30 |(12,100)| PDSV.10|
|00012660| 30 20 20 20 46 4f 52 4d | 41 54 28 2f 2f 31 58 2c |0 FORM|AT(//1X,|
|00012670| 27 52 45 44 55 43 49 4e | 47 20 50 41 52 41 4d 45 |'REDUCIN|G PARAME|
|00012680| 54 45 52 20 43 48 41 4e | 47 45 53 20 42 59 20 41 |TER CHAN|GES BY A|
|00012690| 20 46 41 43 54 4f 52 20 | 4f 46 20 27 31 50 45 39 | FACTOR |OF '1PE9|
|000126a0| 2e 32 2f 29 0a 20 20 20 | 20 20 20 4a 3d 30 0a 20 |.2/). | J=0. |
|000126b0| 20 20 20 20 20 44 4f 20 | 35 30 20 49 3d 31 2c 4e | DO |50 I=1,N|
|000126c0| 50 0a 20 20 20 20 20 20 | 49 46 28 4b 49 28 49 29 |P. |IF(KI(I)|
|000126d0| 2e 45 51 2e 30 29 20 47 | 4f 20 54 4f 20 35 30 0a |.EQ.0) G|O TO 50.|
|000126e0| 20 20 20 20 20 20 4a 3d | 4a 2b 31 0a 20 20 20 20 | J=|J+1. |
|000126f0| 20 20 50 28 49 29 3d 50 | 28 49 29 2d 50 44 28 4a | P(I)=P|(I)-PD(J|
|00012700| 29 2b 50 44 28 4a 29 2f | 50 44 53 56 0a 35 30 20 |)+PD(J)/|PDSV.50 |
|00012710| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 20 20 20 20 | CONTI|NUE. |
|00012720| 20 20 52 45 54 55 52 4e | 0a 34 30 20 20 20 20 49 | RETURN|.40 I|
|00012730| 46 28 50 44 53 56 2e 4c | 45 2e 31 2e 30 44 2d 37 |F(PDSV.L|E.1.0D-7|
|00012740| 29 20 49 53 54 4f 50 3d | 27 43 4f 4e 56 45 52 47 |) ISTOP=|'CONVERG|
|00012750| 45 44 27 0a 43 0a 43 20 | 20 20 20 20 20 57 52 49 |ED'.C.C | WRI|
|00012760| 54 45 28 39 2c 31 30 30 | 30 29 20 49 43 4f 4e 56 |TE(9,100|0) ICONV|
|00012770| 0a 43 20 20 20 20 20 20 | 57 52 49 54 45 28 31 32 |.C |WRITE(12|
|00012780| 2c 31 30 30 30 29 20 49 | 43 4f 4e 56 0a 43 31 30 |,1000) I|CONV.C10|
|00012790| 30 30 20 20 46 4f 52 4d | 41 54 28 31 58 2c 27 49 |00 FORM|AT(1X,'I|
|000127a0| 43 4f 4e 56 20 3d 27 2c | 49 33 29 0a 43 0a 20 20 |CONV =',|I3).C. |
|000127b0| 20 20 20 20 52 45 54 55 | 52 4e 0a 20 20 20 20 20 | RETU|RN. |
|000127c0| 20 45 4e 44 0a 43 0a 43 | 0a 43 0a 43 20 20 53 55 | END.C.C|.C.C SU|
|000127d0| 42 52 4f 55 54 49 4e 45 | 20 54 48 41 54 20 43 4f |BROUTINE| THAT CO|
|000127e0| 4e 54 52 4f 4c 53 20 54 | 48 45 20 43 41 4c 43 55 |NTROLS T|HE CALCU|
|000127f0| 4c 41 54 49 4f 4e 20 4f | 46 20 54 48 45 20 4f 42 |LATION O|F THE OB|
|00012800| 53 45 52 56 45 44 20 51 | 55 41 4e 54 49 54 59 0a |SERVED Q|UANTITY.|
|00012810| 43 0a 43 20 20 0a 43 20 | 20 20 20 20 20 20 20 20 |C.C .C | |
|00012820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00012830| 20 20 20 20 20 47 4c 4f | 53 53 41 52 59 0a 43 0a | GLO|SSARY.C.|
|00012840| 43 20 20 20 20 20 43 53 | 28 49 29 20 3d 20 45 51 |C CS|(I) = EQ|
|00012850| 55 49 4c 49 42 52 49 55 | 4d 20 43 4f 4e 43 45 4e |UILIBRIU|M CONCEN|
|00012860| 54 52 41 54 49 4f 4e 20 | 4f 46 20 53 50 45 43 49 |TRATION |OF SPECI|
|00012870| 45 53 20 49 20 42 45 49 | 4e 47 20 43 41 4c 43 44 |ES I BEI|NG CALCD|
|00012880| 2e 0a 43 20 20 20 20 20 | 20 20 44 45 4e 20 3d 20 |..C | DEN = |
|00012890| 44 45 4e 53 49 54 59 20 | 4f 46 20 54 48 45 20 41 |DENSITY |OF THE A|
|000128a0| 51 55 45 4f 55 53 20 50 | 48 41 53 45 20 28 47 2f |QUEOUS P|HASE (G/|
|000128b0| 43 4d 33 29 2e 20 0a 43 | 20 20 20 20 20 20 44 45 |CM3). .C| DE|
|000128c0| 58 43 20 3d 20 49 4e 49 | 54 49 41 4c 20 56 41 4c |XC = INI|TIAL VAL|
|000128d0| 55 45 20 4f 46 20 49 4e | 43 52 45 4d 45 4e 54 53 |UE OF IN|CREMENTS|
|000128e0| 20 55 53 45 44 20 49 4e | 20 53 49 4d 50 4c 45 58 | USED IN| SIMPLEX|
|000128f0| 20 43 41 4c 43 4e 2e 20 | 0a 43 20 20 20 20 20 20 | CALCN. |.C |
|00012900| 20 20 45 50 20 3d 20 41 | 52 52 41 59 20 55 53 45 | EP = A|RRAY USE|
|00012910| 44 20 42 59 20 53 4d 50 | 4c 58 0a 43 20 20 20 20 |D BY SMP|LX.C |
|00012920| 20 20 20 45 58 43 20 3d | 20 41 52 52 41 59 20 55 | EXC =| ARRAY U|
|00012930| 53 45 44 20 42 59 20 53 | 4d 50 4c 58 0a 43 20 20 |SED BY S|MPLX.C |
|00012940| 20 20 46 43 4c 28 49 29 | 20 3d 20 52 45 53 49 44 | FCL(I)| = RESID|
|00012950| 55 41 4c 20 49 4e 20 45 | 51 55 41 54 49 4f 4e 20 |UAL IN E|QUATION |
|00012960| 49 2c 20 54 4f 20 42 45 | 20 54 41 4b 45 4e 20 54 |I, TO BE| TAKEN T|
|00012970| 4f 20 5a 45 52 4f 2e 20 | 0a 43 20 20 20 20 20 20 |O ZERO. |.C |
|00012980| 46 54 4f 4c 20 3d 20 45 | 52 52 4f 52 20 4c 49 4d |FTOL = E|RROR LIM|
|00012990| 49 54 20 55 53 45 44 20 | 49 4e 20 48 59 42 52 44 |IT USED |IN HYBRD|
|000129a0| 32 2e 0a 43 20 20 20 20 | 20 20 20 20 46 58 20 3d |2..C | FX =|
|000129b0| 20 41 52 52 41 59 20 55 | 53 45 44 20 42 59 20 53 | ARRAY U|SED BY S|
|000129c0| 4d 50 4c 58 0a 43 20 20 | 20 20 20 20 47 28 49 29 |MPLX.C | G(I)|
|000129d0| 20 3d 20 41 43 54 49 56 | 49 54 59 20 43 4f 45 46 | = ACTIV|ITY COEF|
|000129e0| 46 49 43 49 45 4e 54 20 | 4f 46 20 53 50 45 43 49 |FICIENT |OF SPECI|
|000129f0| 45 53 20 49 0a 43 20 20 | 20 20 20 20 20 49 41 4f |ES I.C | IAO|
|00012a00| 20 3d 20 49 4e 44 49 43 | 41 54 45 53 20 50 52 45 | = INDIC|ATES PRE|
|00012a10| 53 45 4e 43 45 20 4f 46 | 20 28 30 29 20 4e 4f 4e |SENCE OF| (0) NON|
|00012a20| 41 51 55 45 4f 55 53 20 | 50 48 41 53 45 20 4f 4e |AQUEOUS |PHASE ON|
|00012a30| 4c 59 2c 20 28 31 29 20 | 42 4f 54 48 0a 43 20 20 |LY, (1) |BOTH.C |
|00012a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 41 51 55 45 | | AQUE|
|00012a50| 4f 55 53 20 41 4e 44 20 | 4e 4f 4e 41 51 55 45 4f |OUS AND |NONAQUEO|
|00012a60| 55 53 20 50 48 41 53 45 | 53 2c 20 4f 52 20 28 32 |US PHASE|S, OR (2|
|00012a70| 29 20 41 51 2e 20 50 48 | 41 53 45 20 4f 4e 4c 59 |) AQ. PH|ASE ONLY|
|00012a80| 2e 0a 43 20 20 20 20 20 | 20 20 20 49 43 20 3d 20 |..C | IC = |
|00012a90| 52 45 46 49 4e 45 4d 45 | 4e 54 20 43 59 43 4c 45 |REFINEME|NT CYCLE|
|00012aa0| 20 4e 55 4d 42 45 52 2e | 0a 43 20 20 20 20 20 20 | NUMBER.|.C |
|00012ab0| 20 49 43 4e 20 3d 20 49 | 4e 44 49 43 41 54 4f 52 | ICN = I|NDICATOR|
|00012ac0| 20 4f 46 20 43 4f 4e 43 | 2e 20 53 43 41 4c 45 3b | OF CONC|. SCALE;|
|00012ad0| 20 4d 4f 4c 41 52 49 54 | 59 20 28 31 29 2c 20 4d | MOLARIT|Y (1), M|
|00012ae0| 4f 4c 41 4c 49 54 59 20 | 28 32 29 2c 0a 43 20 20 |OLALITY |(2),.C |
|00012af0| 20 20 20 20 20 20 20 20 | 20 20 20 20 4f 52 20 4d | | OR M|
|00012b00| 4f 4c 45 53 2f 4b 47 20 | 53 4f 4c 4e 2e 0a 43 20 |OLES/KG |SOLN..C |
|00012b10| 20 20 20 20 20 20 49 44 | 43 20 3d 20 49 46 20 3e | ID|C = IF >|
|00012b20| 20 30 2c 20 49 4e 44 49 | 43 41 54 45 53 20 43 41 | 0, INDI|CATES CA|
|00012b30| 4c 43 55 4c 41 54 49 4f | 4e 20 4f 46 20 41 20 50 |LCULATIO|N OF A P|
|00012b40| 41 52 54 49 41 4c 20 44 | 45 52 49 56 41 54 49 56 |ARTIAL D|ERIVATIV|
|00012b50| 45 2e 0a 43 20 20 20 20 | 20 20 49 44 45 4e 20 3d |E..C | IDEN =|
|00012b60| 20 49 4e 44 49 43 41 54 | 4f 52 20 4f 46 20 41 51 | INDICAT|OR OF AQ|
|00012b70| 2e 50 52 4f 44 2e 53 50 | 45 43 49 45 53 20 46 4f |.PROD.SP|ECIES FO|
|00012b80| 52 4d 41 54 49 4f 4e 20 | 49 4e 20 54 48 45 20 41 |RMATION |IN THE A|
|00012b90| 42 53 45 4e 43 45 20 0a | 43 20 20 20 20 20 20 20 |BSENCE .|C |
|00012ba0| 20 20 20 20 20 20 20 4f | 46 20 48 41 20 4f 52 20 | O|F HA OR |
|00012bb0| 42 2e 0a 43 20 20 20 20 | 20 20 20 49 45 48 20 3d |B..C | IEH =|
|00012bc0| 20 49 4e 44 49 43 41 54 | 4f 52 20 4f 46 20 47 49 | INDICAT|OR OF GI|
|00012bd0| 56 45 4e 20 49 4e 49 54 | 49 41 4c 20 28 30 29 20 |VEN INIT|IAL (0) |
|00012be0| 4f 52 20 45 51 55 49 4c | 2e 41 51 2e 41 43 49 44 |OR EQUIL|.AQ.ACID|
|00012bf0| 49 54 59 20 28 31 29 2c | 0a 43 20 20 20 20 20 20 |ITY (1),|.C |
|00012c00| 20 20 20 20 20 20 20 20 | 4f 52 20 47 49 56 45 4e | |OR GIVEN|
|00012c10| 20 45 51 55 49 4c 2e 20 | 41 51 2e 20 48 2b 20 43 | EQUIL. |AQ. H+ C|
|00012c20| 4f 4e 43 2e 20 28 3e 31 | 29 2e 20 0a 43 20 20 20 |ONC. (>1|). .C |
|00012c30| 20 20 20 20 49 45 51 20 | 3d 20 49 4e 44 49 43 41 | IEQ |= INDICA|
|00012c40| 54 4f 52 20 4f 46 20 47 | 49 56 45 4e 20 49 4e 49 |TOR OF G|IVEN INI|
|00012c50| 54 49 41 4c 20 28 30 29 | 20 4f 52 20 45 51 55 49 |TIAL (0)| OR EQUI|
|00012c60| 4c 2e 20 28 31 29 20 41 | 51 2e 43 4f 4d 50 4e 2e |L. (1) A|Q.COMPN.|
|00012c70| 0a 43 20 20 20 20 20 20 | 20 49 45 52 20 3d 20 45 |.C | IER = E|
|00012c80| 52 52 4f 52 20 43 4f 4e | 44 49 54 49 4f 4e 20 4f |RROR CON|DITION O|
|00012c90| 4e 20 52 45 54 55 52 4e | 20 46 52 4f 4d 20 48 59 |N RETURN| FROM HY|
|00012ca0| 42 52 44 32 2e 0a 43 20 | 20 20 20 49 45 52 52 4f |BRD2..C | IERRO|
|00012cb0| 52 20 3d 20 45 52 52 4f | 52 20 43 4f 4e 44 49 54 |R = ERRO|R CONDIT|
|00012cc0| 49 4f 4e 20 4f 4e 20 52 | 45 54 55 52 4e 20 54 4f |ION ON R|ETURN TO|
|00012cd0| 20 4f 52 47 4c 53 2e 0a | 43 20 20 20 20 20 20 20 | ORGLS..|C |
|00012ce0| 49 50 54 20 3d 20 54 48 | 45 20 4e 4f 2e 20 4f 46 |IPT = TH|E NO. OF|
|00012cf0| 20 54 48 45 20 43 55 52 | 52 45 4e 54 20 44 41 54 | THE CUR|RENT DAT|
|00012d00| 41 20 50 4f 49 4e 54 2e | 0a 43 20 20 20 20 20 20 |A POINT.|.C |
|00012d10| 20 20 49 59 20 3d 20 49 | 4e 44 49 43 41 54 4f 52 | IY = I|NDICATOR|
|00012d20| 20 4f 46 20 4b 49 4e 44 | 20 4f 46 20 4f 42 53 45 | OF KIND| OF OBSE|
|00012d30| 52 56 41 54 49 4f 4e 20 | 54 4f 20 42 45 20 43 41 |RVATION |TO BE CA|
|00012d40| 4c 43 55 4c 41 54 45 44 | 2e 2e 0a 43 20 20 20 20 |LCULATED|...C |
|00012d50| 20 20 20 20 4b 58 20 3d | 20 41 52 52 41 59 20 55 | KX =| ARRAY U|
|00012d60| 53 45 44 20 42 59 20 53 | 4d 50 4c 58 0a 43 20 20 |SED BY S|MPLX.C |
|00012d70| 20 20 20 20 20 4c 57 41 | 20 3d 20 4c 45 4e 47 54 | LWA| = LENGT|
|00012d80| 48 20 4f 46 20 41 52 52 | 41 59 20 57 41 20 0a 43 |H OF ARR|AY WA .C|
|00012d90| 20 20 20 20 4d 41 58 46 | 45 56 20 3d 20 4e 55 4d | MAXF|EV = NUM|
|00012da0| 42 45 52 20 4f 46 20 43 | 41 4c 4c 53 20 54 4f 20 |BER OF C|ALLS TO |
|00012db0| 45 4e 54 46 43 4e 20 46 | 52 4f 4d 20 48 59 42 52 |ENTFCN F|ROM HYBR|
|00012dc0| 44 32 20 28 4d 41 58 2e | 4f 4e 20 45 4e 54 52 59 |D2 (MAX.|ON ENTRY|
|00012dd0| 0a 43 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.C | |
|00012de0| 41 4e 44 20 41 43 54 55 | 41 4c 20 4f 4e 20 52 45 |AND ACTU|AL ON RE|
|00012df0| 54 55 52 4e 20 46 52 4f | 4d 20 48 59 42 52 44 32 |TURN FRO|M HYBRD2|
|00012e00| 29 2e 0a 43 20 20 20 20 | 20 20 4e 41 53 50 20 3d |)..C | NASP =|
|00012e10| 20 4e 55 4d 42 45 52 20 | 4f 46 20 50 4f 53 53 49 | NUMBER |OF POSSI|
|00012e20| 42 4c 45 20 41 51 2e 50 | 52 4f 44 2e 53 50 45 43 |BLE AQ.P|ROD.SPEC|
|00012e30| 49 45 53 20 4e 4f 54 20 | 49 4e 56 4f 4c 56 49 4e |IES NOT |INVOLVIN|
|00012e40| 47 20 48 41 20 41 4e 44 | 2f 4f 52 20 42 0a 43 20 |G HA AND|/OR B.C |
|00012e50| 20 20 20 20 20 4e 43 41 | 4c 20 3d 20 46 4c 41 47 | NCA|L = FLAG|
|00012e60| 20 49 4e 44 49 43 41 54 | 49 4e 47 20 54 48 45 20 | INDICAT|ING THE |
|00012e70| 4b 49 4e 44 20 4f 46 20 | 45 51 55 49 4c 49 42 52 |KIND OF |EQUILIBR|
|00012e80| 49 55 4d 20 43 41 4c 43 | 55 4c 41 54 49 4f 4e 3a |IUM CALC|ULATION:|
|00012e90| 0a 43 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.C | |
|00012ea0| 30 2c 20 4e 4f 4e 45 20 | 4e 45 45 44 45 44 3b 20 |0, NONE |NEEDED; |
|00012eb0| 31 2c 20 42 4f 54 48 20 | 41 51 2e 41 4e 44 20 4e |1, BOTH |AQ.AND N|
|00012ec0| 4f 4e 41 51 2e 50 48 41 | 53 45 53 20 50 52 45 53 |ONAQ.PHA|SES PRES|
|00012ed0| 45 4e 54 3b 0a 43 20 20 | 20 20 20 20 20 20 20 20 |ENT;.C | |
|00012ee0| 20 20 20 20 32 2c 20 4f | 4e 4c 59 20 4e 4f 4e 41 | 2, O|NLY NONA|
|00012ef0| 51 2e 50 48 41 53 45 20 | 50 52 45 53 45 4e 54 3b |Q.PHASE |PRESENT;|
|00012f00| 20 33 2c 20 4f 4e 4c 59 | 20 41 51 2e 50 48 41 53 | 3, ONLY| AQ.PHAS|
|00012f10| 45 20 50 52 45 53 45 4e | 54 0a 43 20 4e 43 41 50 |E PRESEN|T.C NCAP|
|00012f20| 28 49 2c 4a 29 20 3d 20 | 53 54 4f 49 43 48 49 4f |(I,J) = |STOICHIO|
|00012f30| 4d 45 54 52 59 20 43 4f | 45 46 46 2e 4f 46 20 52 |METRY CO|EFF.OF R|
|00012f40| 45 41 43 54 41 4e 54 20 | 49 20 49 4e 20 41 51 2e |EACTANT |I IN AQ.|
|00012f50| 20 50 52 4f 44 2e 53 50 | 45 43 2e 4a 2e 20 0a 43 | PROD.SP|EC.J. .C|
|00012f60| 20 20 20 20 4e 43 52 28 | 49 29 20 3d 20 54 48 45 | NCR(|I) = THE|
|00012f70| 20 44 45 47 52 45 45 20 | 4f 46 20 41 53 53 4f 43 | DEGREE |OF ASSOC|
|00012f80| 49 41 54 49 4f 4e 20 4f | 46 20 48 41 20 28 31 29 |IATION O|F HA (1)|
|00012f90| 20 4f 52 20 42 20 28 32 | 29 20 0a 43 20 20 20 20 | OR B (2|) .C |
|00012fa0| 20 20 4e 43 53 4d 20 3d | 20 4d 41 58 49 4d 55 4d | NCSM =| MAXIMUM|
|00012fb0| 20 4e 55 4d 42 45 52 20 | 4f 46 20 43 59 43 4c 45 | NUMBER |OF CYCLE|
|00012fc0| 53 20 55 53 45 44 20 49 | 4e 20 53 49 4d 50 4c 45 |S USED I|N SIMPLE|
|00012fd0| 58 20 43 41 4c 43 55 4c | 41 54 49 4f 4e 2e 20 0a |X CALCUL|ATION. .|
|00012fe0| 43 20 20 20 20 20 20 20 | 4e 45 51 20 3d 20 54 48 |C |NEQ = TH|
|00012ff0| 45 20 4e 55 4d 42 45 52 | 20 4f 46 20 53 50 45 43 |E NUMBER| OF SPEC|
|00013000| 2e 43 4f 4e 43 4e 53 2e | 54 4f 20 42 45 20 43 41 |.CONCNS.|TO BE CA|
|00013010| 4c 43 55 4c 41 54 45 44 | 20 0a 43 20 20 20 20 20 |LCULATED| .C |
|00013020| 20 20 20 4e 46 20 3d 20 | 41 20 4c 41 42 45 4c 20 | NF = |A LABEL |
|00013030| 44 45 53 49 47 4e 41 54 | 49 4e 47 20 45 41 43 48 |DESIGNAT|ING EACH|
|00013040| 20 43 4f 4e 43 45 4e 54 | 52 41 54 49 4f 4e 20 54 | CONCENT|RATION T|
|00013050| 4f 20 42 45 20 44 45 54 | 4d 44 2e 0a 43 20 20 20 |O BE DET|MD..C |
|00013060| 20 20 20 20 4e 49 41 20 | 3d 20 49 4e 44 49 43 41 | NIA |= INDICA|
|00013070| 54 4f 52 20 4f 46 20 41 | 53 53 55 4d 45 44 20 55 |TOR OF A|SSUMED U|
|00013080| 4e 49 54 20 56 41 4c 55 | 45 53 20 46 4f 52 20 41 |NIT VALU|ES FOR A|
|00013090| 51 2e 41 43 54 2e 43 4f | 45 46 53 2e 0a 43 20 20 |Q.ACT.CO|EFS..C |
|000130a0| 20 4e 49 44 54 28 49 29 | 20 3d 20 53 49 58 20 44 | NIDT(I)| = SIX D|
|000130b0| 49 47 49 54 20 49 4e 54 | 45 47 45 52 20 53 50 45 |IGIT INT|EGER SPE|
|000130c0| 43 49 46 59 49 4e 47 20 | 44 41 54 41 20 54 59 50 |CIFYING |DATA TYP|
|000130d0| 45 0a 43 20 20 20 20 20 | 20 20 20 4e 4f 20 3d 20 |E.C | NO = |
|000130e0| 4e 55 4d 42 45 52 20 4f | 46 20 44 41 54 41 20 50 |NUMBER O|F DATA P|
|000130f0| 4f 49 4e 54 53 0a 43 20 | 20 20 20 20 20 20 4e 53 |OINTS.C | NS|
|00013100| 41 20 3d 20 4e 55 4d 42 | 45 52 20 4f 46 20 50 4f |A = NUMB|ER OF PO|
|00013110| 53 53 49 42 4c 45 20 41 | 51 2e 50 52 4f 44 2e 53 |SSIBLE A|Q.PROD.S|
|00013120| 50 45 43 49 45 53 20 0a | 43 20 20 20 20 20 20 20 |PECIES .|C |
|00013130| 4e 53 4f 20 3d 20 4e 55 | 4d 42 45 52 20 4f 46 20 |NSO = NU|MBER OF |
|00013140| 50 4f 53 53 49 42 4c 45 | 20 4e 4f 4e 41 51 2e 50 |POSSIBLE| NONAQ.P|
|00013150| 52 4f 44 2e 53 50 45 43 | 49 45 53 20 0a 43 20 20 |ROD.SPEC|IES .C |
|00013160| 20 20 20 20 20 4e 53 58 | 20 3d 20 4e 55 4d 42 45 | NSX| = NUMBE|
|00013170| 52 20 4f 46 20 43 59 43 | 4c 45 53 20 55 53 45 44 |R OF CYC|LES USED|
|00013180| 20 49 4e 20 53 49 4d 50 | 4c 45 58 20 43 41 4c 43 | IN SIMP|LEX CALC|
|00013190| 55 4c 41 54 49 4f 4e 2e | 0a 43 20 20 20 20 20 20 |ULATION.|.C |
|000131a0| 20 20 50 42 20 3d 20 41 | 52 52 41 59 20 55 53 45 | PB = A|RRAY USE|
|000131b0| 44 20 42 59 20 53 4d 50 | 4c 58 0a 43 20 20 20 20 |D BY SMP|LX.C |
|000131c0| 20 20 20 20 50 54 20 3d | 20 41 52 52 41 59 20 55 | PT =| ARRAY U|
|000131d0| 53 45 44 20 42 59 20 53 | 4d 50 4c 58 0a 43 20 20 |SED BY S|MPLX.C |
|000131e0| 20 20 20 20 52 4d 42 41 | 20 3d 20 4d 41 54 45 52 | RMBA| = MATER|
|000131f0| 49 41 4c 20 42 41 4c 41 | 4e 43 45 20 43 4f 52 52 |IAL BALA|NCE CORR|
|00013200| 45 43 54 49 4f 4e 20 46 | 41 43 54 4f 52 20 46 4f |ECTION F|ACTOR FO|
|00013210| 52 20 54 48 45 20 41 51 | 55 45 4f 55 53 20 50 48 |R THE AQ|UEOUS PH|
|00013220| 41 53 45 0a 43 20 20 20 | 20 20 20 52 4d 42 4f 20 |ASE.C | RMBO |
|00013230| 3d 20 4d 41 54 45 52 49 | 41 4c 20 42 41 4c 41 4e |= MATERI|AL BALAN|
|00013240| 43 45 20 43 4f 52 52 45 | 43 54 49 4f 4e 20 46 41 |CE CORRE|CTION FA|
|00013250| 43 54 4f 52 20 46 4f 52 | 20 54 48 45 20 4e 4f 4e |CTOR FOR| THE NON|
|00013260| 41 51 55 45 4f 55 53 20 | 50 48 41 53 45 0a 43 20 |AQUEOUS |PHASE.C |
|00013270| 20 20 20 20 20 53 4d 49 | 4e 20 3d 20 56 41 4c 55 | SMI|N = VALU|
|00013280| 45 20 4f 46 20 54 46 43 | 4c 20 41 42 4f 56 45 20 |E OF TFC|L ABOVE |
|00013290| 57 48 49 43 48 20 53 49 | 4d 50 4c 45 58 20 43 41 |WHICH SI|MPLEX CA|
|000132a0| 4c 43 4e 2e 49 53 20 52 | 45 51 55 49 52 45 44 2e |LCN.IS R|EQUIRED.|
|000132b0| 0a 43 20 20 20 20 20 20 | 53 4d 54 4c 20 3d 20 43 |.C |SMTL = C|
|000132c0| 4f 4e 56 45 52 47 45 4e | 43 45 20 4c 49 4d 49 54 |ONVERGEN|CE LIMIT|
|000132d0| 20 55 53 45 44 20 49 4e | 20 53 49 4d 50 4c 45 58 | USED IN| SIMPLEX|
|000132e0| 20 0a 43 20 20 20 20 20 | 20 20 54 46 43 20 3d 20 | .C | TFC = |
|000132f0| 53 55 4d 20 4f 46 20 53 | 51 55 41 52 45 53 20 4f |SUM OF S|QUARES O|
|00013300| 46 20 52 45 53 49 44 55 | 41 4c 53 20 46 43 4c 20 |F RESIDU|ALS FCL |
|00013310| 0a 43 20 20 20 20 20 20 | 54 46 43 4c 20 3d 20 53 |.C |TFCL = S|
|00013320| 51 55 41 52 45 20 52 4f | 4f 54 20 4f 46 20 54 46 |QUARE RO|OT OF TF|
|00013330| 43 20 20 0a 43 20 20 20 | 20 20 20 54 46 43 53 20 |C .C | TFCS |
|00013340| 3d 20 43 55 52 52 45 4e | 54 20 4c 4f 57 45 53 54 |= CURREN|T LOWEST|
|00013350| 20 56 41 4c 55 45 20 4f | 46 20 54 46 43 20 0a 43 | VALUE O|F TFC .C|
|00013360| 20 20 20 20 20 20 54 53 | 41 49 20 3d 20 49 4e 49 | TS|AI = INI|
|00013370| 54 49 41 4c 20 41 4d 4f | 55 4e 54 20 4f 46 20 41 |TIAL AMO|UNT OF A|
|00013380| 51 55 45 4f 55 53 20 53 | 4f 4c 55 54 45 20 28 43 |QUEOUS S|OLUTE (C|
|00013390| 4d 33 2f 4c 2c 47 2f 4b | 47 2c 20 4f 52 20 47 2f |M3/L,G/K|G, OR G/|
|000133a0| 4b 47 20 53 4c 4e 2e 29 | 0a 43 20 20 20 20 20 20 |KG SLN.)|.C |
|000133b0| 54 53 4f 49 20 3d 20 49 | 4e 49 54 49 41 4c 20 41 |TSOI = I|NITIAL A|
|000133c0| 4d 4f 55 4e 54 20 4f 46 | 20 4e 4f 4e 41 51 55 45 |MOUNT OF| NONAQUE|
|000133d0| 4f 55 53 20 53 4f 4c 55 | 54 45 20 28 43 4d 33 2f |OUS SOLU|TE (CM3/|
|000133e0| 4c 2c 47 2f 4b 47 2c 20 | 4f 52 20 47 2f 4b 47 20 |L,G/KG, |OR G/KG |
|000133f0| 53 4c 4e 2e 29 0a 43 20 | 20 20 20 20 20 54 56 53 |SLN.).C | TVS|
|00013400| 41 20 3d 20 41 50 50 41 | 52 45 4e 54 20 56 4f 4c |A = APPA|RENT VOL|
|00013410| 55 4d 45 20 4f 46 20 53 | 4f 4c 55 54 45 20 28 43 |UME OF S|OLUTE (C|
|00013420| 4d 33 2f 4c 2e 53 4c 4e | 2e 2c 43 4d 33 2f 4b 47 |M3/L.SLN|.,CM3/KG|
|00013430| 20 53 4c 56 2e 2c 43 4d | 33 2f 4b 47 20 53 4c 4e | SLV.,CM|3/KG SLN|
|00013440| 2e 29 0a 43 20 20 20 20 | 20 20 56 28 49 29 20 3d |.).C | V(I) =|
|00013450| 20 4d 4f 4c 41 52 20 56 | 4f 4c 55 4d 45 20 4f 46 | MOLAR V|OLUME OF|
|00013460| 20 53 50 45 43 49 45 53 | 20 28 43 4d 33 2f 4d 4f | SPECIES| (CM3/MO|
|00013470| 4c 29 20 0a 43 20 20 20 | 20 20 20 56 57 50 41 20 |L) .C | VWPA |
|00013480| 3d 20 41 4d 4f 55 4e 54 | 20 4f 46 20 57 41 54 45 |= AMOUNT| OF WATE|
|00013490| 52 20 52 45 4c 45 41 53 | 45 44 20 42 59 20 50 52 |R RELEAS|ED BY PR|
|000134a0| 4f 44 55 43 54 20 53 50 | 45 43 49 45 53 20 46 4f |ODUCT SP|ECIES FO|
|000134b0| 52 4d 41 54 49 4f 4e 20 | 49 4e 20 54 48 45 0a 43 |RMATION |IN THE.C|
|000134c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 41 51 | | AQ|
|000134d0| 55 45 4f 55 53 20 50 48 | 41 53 45 20 28 43 4d 33 |UEOUS PH|ASE (CM3|
|000134e0| 2f 4c 2c 47 2f 4b 47 2c | 20 4f 52 20 47 2f 4b 47 |/L,G/KG,| OR G/KG|
|000134f0| 20 53 4c 4e 2e 29 0a 43 | 20 20 20 20 20 20 56 57 | SLN.).C| VW|
|00013500| 50 4f 20 3d 20 41 4d 4f | 55 4e 54 20 4f 46 20 57 |PO = AMO|UNT OF W|
|00013510| 41 54 45 52 20 52 45 4c | 45 41 53 45 44 20 42 59 |ATER REL|EASED BY|
|00013520| 20 50 52 4f 44 55 43 54 | 20 53 50 45 43 49 45 53 | PRODUCT| SPECIES|
|00013530| 20 46 4f 52 4d 41 54 49 | 4f 4e 20 49 4e 20 54 48 | FORMATI|ON IN TH|
|00013540| 45 0a 43 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |E.C | |
|00013550| 20 4e 4f 4e 41 51 55 45 | 4f 55 53 20 50 48 41 53 | NONAQUE|OUS PHAS|
|00013560| 45 20 28 43 4d 33 2f 4c | 20 41 51 2e 53 4c 4e 2e |E (CM3/L| AQ.SLN.|
|00013570| 2c 47 2f 4b 47 20 48 32 | 4f 2c 20 4f 52 20 47 2f |,G/KG H2|O, OR G/|
|00013580| 4b 47 20 41 51 2e 53 4c | 4e 2e 29 0a 43 20 20 20 |KG AQ.SL|N.).C |
|00013590| 20 20 20 57 28 49 29 20 | 3d 20 4d 4f 4c 45 43 55 | W(I) |= MOLECU|
|000135a0| 4c 41 52 20 57 45 49 47 | 48 54 20 4f 46 20 53 50 |LAR WEIG|HT OF SP|
|000135b0| 45 43 49 45 53 20 28 47 | 2f 4d 4f 4c 29 0a 43 20 |ECIES (G|/MOL).C |
|000135c0| 20 20 20 20 20 20 20 57 | 41 20 3d 20 53 43 52 41 | W|A = SCRA|
|000135d0| 54 43 48 20 41 52 52 41 | 59 20 55 53 45 44 20 49 |TCH ARRA|Y USED I|
|000135e0| 4e 20 48 59 42 52 44 32 | 0a 43 20 20 20 20 58 28 |N HYBRD2|.C X(|
|000135f0| 49 2c 4a 29 20 3d 20 54 | 48 45 20 47 49 56 45 4e |I,J) = T|HE GIVEN|
|00013600| 20 43 4f 4e 43 2e 20 4f | 46 20 52 45 41 43 54 41 | CONC. O|F REACTA|
|00013610| 4e 54 20 49 20 46 4f 52 | 20 50 4f 49 4e 54 20 4a |NT I FOR| POINT J|
|00013620| 2e 20 0a 43 20 20 20 20 | 20 58 43 28 49 29 20 3d |. .C | XC(I) =|
|00013630| 20 54 48 45 20 45 53 54 | 2e 4c 4f 47 2e 45 51 55 | THE EST|.LOG.EQU|
|00013640| 49 4c 49 42 52 49 55 4d | 20 43 4f 4e 43 45 4e 54 |ILIBRIUM| CONCENT|
|00013650| 52 41 54 49 4f 4e 20 4f | 46 20 53 50 45 43 49 45 |RATION O|F SPECIE|
|00013660| 53 20 49 2e 20 0a 43 20 | 20 20 20 20 20 58 43 41 |S I. .C | XCA|
|00013670| 53 20 3d 20 41 20 4c 49 | 4e 45 41 52 20 41 52 52 |S = A LI|NEAR ARR|
|00013680| 41 59 20 57 48 49 43 48 | 20 53 54 4f 52 45 53 20 |AY WHICH| STORES |
|00013690| 54 48 45 20 58 43 20 56 | 41 4c 55 45 53 20 4f 46 |THE XC V|ALUES OF|
|000136a0| 20 41 4c 4c 20 53 50 45 | 43 49 45 53 0a 43 20 20 | ALL SPE|CIES.C |
|000136b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 43 41 4c 43 | | CALC|
|000136c0| 55 4c 41 54 45 44 20 50 | 52 45 56 49 4f 55 53 4c |ULATED P|REVIOUSL|
|000136d0| 59 20 57 48 45 4e 20 4f | 4e 4c 59 20 54 48 45 20 |Y WHEN O|NLY THE |
|000136e0| 41 51 55 45 4f 55 53 20 | 50 48 41 53 45 20 49 53 |AQUEOUS |PHASE IS|
|000136f0| 0a 43 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.C | |
|00013700| 43 4f 4e 53 49 44 45 52 | 45 44 2e 0a 43 20 20 20 |CONSIDER|ED..C |
|00013710| 20 20 20 58 43 4f 53 20 | 3d 20 41 20 4c 49 4e 45 | XCOS |= A LINE|
|00013720| 41 52 20 41 52 52 41 59 | 20 57 48 49 43 48 20 53 |AR ARRAY| WHICH S|
|00013730| 54 4f 52 45 53 20 54 48 | 45 20 58 43 20 56 41 4c |TORES TH|E XC VAL|
|00013740| 55 45 53 20 4f 46 20 41 | 4c 4c 20 53 50 45 43 49 |UES OF A|LL SPECI|
|00013750| 45 53 0a 43 20 20 20 20 | 20 20 20 20 20 20 20 20 |ES.C | |
|00013760| 20 20 43 41 4c 43 55 4c | 41 54 45 44 20 50 52 45 | CALCUL|ATED PRE|
|00013770| 56 49 4f 55 53 4c 59 20 | 57 48 45 4e 20 4f 4e 4c |VIOUSLY |WHEN ONL|
|00013780| 59 20 54 48 45 20 4e 4f | 4e 41 51 55 45 4f 55 53 |Y THE NO|NAQUEOUS|
|00013790| 20 50 48 41 53 45 20 49 | 53 0a 43 20 20 20 20 20 | PHASE I|S.C |
|000137a0| 20 20 20 20 20 20 20 20 | 20 50 52 45 53 45 4e 54 | | PRESENT|
|000137b0| 2e 0a 43 20 20 20 20 20 | 20 20 58 43 53 20 3d 20 |..C | XCS = |
|000137c0| 41 20 4c 49 4e 45 41 52 | 20 41 52 52 41 59 20 57 |A LINEAR| ARRAY W|
|000137d0| 48 49 43 48 20 53 54 4f | 52 45 53 20 54 48 45 20 |HICH STO|RES THE |
|000137e0| 58 43 20 56 41 4c 55 45 | 53 20 4f 46 0a 43 20 20 |XC VALUE|S OF.C |
|000137f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 41 4c 4c 20 | | ALL |
|00013800| 53 50 45 43 49 45 53 20 | 43 41 4c 43 55 4c 41 54 |SPECIES |CALCULAT|
|00013810| 45 44 20 50 52 45 56 49 | 4f 55 53 4c 59 20 57 48 |ED PREVI|OUSLY WH|
|00013820| 45 4e 20 42 4f 54 48 20 | 50 48 41 53 45 53 20 41 |EN BOTH |PHASES A|
|00013830| 52 45 0a 43 20 20 20 20 | 20 20 20 20 20 20 20 20 |RE.C | |
|00013840| 20 20 50 52 45 53 45 4e | 54 2e 0a 43 20 20 20 20 | PRESEN|T..C |
|00013850| 20 20 58 54 4f 4c 20 3d | 20 45 52 52 4f 52 20 4c | XTOL =| ERROR L|
|00013860| 49 4d 49 54 20 55 53 45 | 44 20 49 4e 20 48 59 42 |IMIT USE|D IN HYB|
|00013870| 52 44 32 20 0a 43 0a 43 | 0a 43 20 20 20 20 20 20 |RD2 .C.C|.C |
|00013880| 20 20 20 20 20 20 43 41 | 4c 43 55 4c 41 54 49 4f | CA|LCULATIO|
|00013890| 4e 20 4f 46 20 53 50 45 | 43 49 45 20 43 4f 4e 43 |N OF SPE|CIE CONC|
|000138a0| 45 4e 54 52 41 54 49 4f | 4e 53 20 41 54 20 45 51 |ENTRATIO|NS AT EQ|
|000138b0| 55 49 4c 49 42 52 49 55 | 4d 0a 43 0a 43 20 20 54 |UILIBRIU|M.C.C T|
|000138c0| 48 45 20 53 50 45 43 49 | 45 20 43 4f 4e 43 45 4e |HE SPECI|E CONCEN|
|000138d0| 54 52 41 54 49 4f 4e 53 | 20 45 56 41 4c 55 41 54 |TRATIONS| EVALUAT|
|000138e0| 45 44 20 46 4f 52 20 41 | 20 44 41 54 41 20 50 4f |ED FOR A| DATA PO|
|000138f0| 49 4e 54 20 41 52 45 20 | 53 54 4f 52 45 44 20 49 |INT ARE |STORED I|
|00013900| 4e 20 41 52 52 41 59 0a | 43 20 20 20 58 43 20 49 |N ARRAY.|C XC I|
|00013910| 4e 20 54 48 45 20 46 4f | 4c 4c 4f 57 49 4e 47 20 |N THE FO|LLOWING |
|00013920| 4f 52 44 45 52 3a 0a 43 | 0a 43 20 20 20 20 20 20 |ORDER:.C|.C |
|00013930| 20 20 20 20 20 20 20 20 | 58 43 28 31 29 20 3d 20 | |XC(1) = |
|00013940| 4c 4f 47 2e 20 45 51 2e | 20 4e 4f 4e 41 51 2e 20 |LOG. EQ.| NONAQ. |
|00013950| 43 4f 4e 43 2e 20 4f 46 | 20 48 41 20 52 45 41 43 |CONC. OF| HA REAC|
|00013960| 54 41 4e 54 20 53 50 45 | 43 49 45 53 0a 43 20 20 |TANT SPE|CIES.C |
|00013970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00013980| 20 20 20 20 41 53 20 4d | 4f 4e 4f 4d 45 52 0a 43 | AS M|ONOMER.C|
|00013990| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 58 43 | | XC|
|000139a0| 28 32 29 20 3d 20 4c 4f | 47 2e 20 45 51 2e 20 4e |(2) = LO|G. EQ. N|
|000139b0| 4f 4e 41 51 2e 20 43 4f | 4e 43 2e 20 4f 46 20 42 |ONAQ. CO|NC. OF B|
|000139c0| 20 52 45 41 43 54 41 4e | 54 20 53 50 45 43 49 45 | REACTAN|T SPECIE|
|000139d0| 53 0a 43 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |S.C | |
|000139e0| 20 20 20 20 20 20 20 20 | 20 41 53 20 4d 4f 4e 4f | | AS MONO|
|000139f0| 4d 45 52 0a 43 20 20 20 | 20 20 20 20 20 20 20 20 |MER.C | |
|00013a00| 20 20 20 58 43 28 33 29 | 20 3d 20 4c 4f 47 2e 20 | XC(3)| = LOG. |
|00013a10| 45 51 2e 20 41 51 2e 20 | 43 4f 4e 43 2e 20 4f 46 |EQ. AQ. |CONC. OF|
|00013a20| 20 4d 5c 5a 4d 2b 0a 43 | 20 20 20 20 20 20 20 20 | M\ZM+.C| |
|00013a30| 20 20 20 20 20 20 58 43 | 28 34 29 20 3d 20 4c 4f | XC|(4) = LO|
|00013a40| 47 2e 20 45 51 2e 20 41 | 51 2e 20 43 4f 4e 43 2e |G. EQ. A|Q. CONC.|
|00013a50| 20 4f 46 20 4e 5c 5a 4e | 2b 0a 43 20 20 20 20 20 | OF N\ZN|+.C |
|00013a60| 20 20 20 20 20 20 20 20 | 20 58 43 28 35 29 20 3d | | XC(5) =|
|00013a70| 20 4c 4f 47 2e 20 45 51 | 2e 20 41 51 2e 20 43 4f | LOG. EQ|. AQ. CO|
|00013a80| 4e 43 2e 20 4f 46 20 58 | 5c 5a 58 2b 0a 43 20 20 |NC. OF X|\ZX+.C |
|00013a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 58 43 28 36 | | XC(6|
|00013aa0| 29 20 3d 20 4c 4f 47 2e | 20 45 51 2e 20 41 51 2e |) = LOG.| EQ. AQ.|
|00013ab0| 20 43 4f 4e 43 2e 20 4f | 46 20 59 5c 5a 59 2d 0a | CONC. O|F Y\ZY-.|
|00013ac0| 43 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 58 |C | X|
|00013ad0| 43 28 37 29 20 3d 20 4c | 4f 47 2e 20 45 51 2e 20 |C(7) = L|OG. EQ. |
|00013ae0| 41 51 2e 20 43 4f 4e 43 | 2e 20 4f 46 20 48 5c 2b |AQ. CONC|. OF H\+|
|00013af0| 0a 43 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.C | |
|00013b00| 58 43 28 38 29 20 3d 20 | 4c 4f 47 2e 20 45 51 2e |XC(8) = |LOG. EQ.|
|00013b10| 20 41 51 2e 20 43 4f 4e | 43 2e 20 4f 46 20 4f 48 | AQ. CON|C. OF OH|
|00013b20| 5c 2d 0a 43 20 20 20 20 | 20 20 20 20 20 20 20 20 |\-.C | |
|00013b30| 20 20 58 43 28 39 29 20 | 3d 20 4c 4f 47 2e 20 45 | XC(9) |= LOG. E|
|00013b40| 51 2e 20 43 4f 4e 43 2e | 20 4f 46 20 4e 4f 4e 41 |Q. CONC.| OF NONA|
|00013b50| 51 2e 20 50 52 4f 44 2e | 20 53 50 2e 20 4e 4f 2e |Q. PROD.| SP. NO.|
|00013b60| 20 31 0a 43 20 20 20 20 | 20 20 20 20 20 20 58 43 | 1.C | XC|
|00013b70| 28 38 2b 4e 53 4f 29 20 | 3d 20 4c 4f 47 2e 20 45 |(8+NSO) |= LOG. E|
|00013b80| 51 2e 20 43 4f 4e 43 2e | 20 4f 46 20 4e 4f 4e 41 |Q. CONC.| OF NONA|
|00013b90| 51 2e 20 50 52 4f 44 2e | 20 53 50 2e 20 4e 4f 2e |Q. PROD.| SP. NO.|
|00013ba0| 20 4e 53 4f 0a 43 20 20 | 20 20 20 20 20 20 20 20 | NSO.C | |
|00013bb0| 58 43 28 39 2b 4e 53 4f | 29 20 3d 20 4c 4f 47 2e |XC(9+NSO|) = LOG.|
|00013bc0| 20 45 51 2e 20 43 4f 4e | 43 2e 20 4f 46 20 41 51 | EQ. CON|C. OF AQ|
|00013bd0| 55 2e 20 50 52 4f 44 2e | 20 53 50 2e 20 4e 4f 2e |U. PROD.| SP. NO.|
|00013be0| 20 31 0a 43 20 20 20 20 | 20 20 58 43 28 38 2b 4e | 1.C | XC(8+N|
|00013bf0| 53 4f 2b 4e 53 41 29 20 | 3d 20 4c 4f 47 2e 20 45 |SO+NSA) |= LOG. E|
|00013c00| 51 2e 20 43 4f 4e 43 2e | 20 4f 46 20 41 51 55 2e |Q. CONC.| OF AQU.|
|00013c10| 20 50 52 4f 44 2e 20 53 | 50 2e 20 4e 4f 2e 20 4e | PROD. S|P. NO. N|
|00013c20| 53 41 0a 43 0a 43 20 20 | 4e 4f 54 20 41 4c 4c 20 |SA.C.C |NOT ALL |
|00013c30| 54 48 45 53 45 20 51 55 | 41 4e 54 49 54 49 45 53 |THESE QU|ANTITIES|
|00013c40| 20 4e 45 45 44 20 42 45 | 20 43 41 4c 43 55 4c 41 | NEED BE| CALCULA|
|00013c50| 54 45 44 20 46 4f 52 20 | 41 4c 4c 20 50 4f 49 4e |TED FOR |ALL POIN|
|00013c60| 54 53 3a 20 20 46 4f 52 | 20 53 4f 4d 45 0a 43 20 |TS: FOR| SOME.C |
|00013c70| 20 20 44 41 54 41 20 50 | 4f 49 4e 54 53 2c 20 53 | DATA P|OINTS, S|
|00013c80| 4f 4d 45 20 52 45 41 43 | 54 41 4e 54 53 20 4d 41 |OME REAC|TANTS MA|
|00013c90| 59 20 4e 4f 54 20 42 45 | 20 50 52 45 53 45 4e 54 |Y NOT BE| PRESENT|
|00013ca0| 3b 20 53 4f 4d 45 20 52 | 45 41 43 54 41 4e 54 53 |; SOME R|EACTANTS|
|00013cb0| 20 4d 41 59 20 4e 4f 54 | 0a 43 20 20 20 42 45 20 | MAY NOT|.C BE |
|00013cc0| 4e 45 45 44 45 44 20 54 | 4f 20 50 52 4f 44 55 43 |NEEDED T|O PRODUC|
|00013cd0| 45 20 54 48 45 20 50 52 | 4f 44 55 43 54 20 53 50 |E THE PR|ODUCT SP|
|00013ce0| 45 43 49 45 53 20 41 53 | 53 55 4d 45 44 3b 20 4f |ECIES AS|SUMED; O|
|00013cf0| 4e 45 20 50 48 41 53 45 | 20 4d 41 59 20 42 45 20 |NE PHASE| MAY BE |
|00013d00| 0a 43 20 20 20 41 42 53 | 45 4e 54 20 41 4e 44 20 |.C ABS|ENT AND |
|00013d10| 48 45 4e 43 45 20 53 4f | 4d 45 20 52 45 41 43 54 |HENCE SO|ME REACT|
|00013d20| 41 4e 54 53 20 57 49 4c | 4c 20 4e 4f 54 20 42 45 |ANTS WIL|L NOT BE|
|00013d30| 20 50 52 45 53 45 4e 54 | 20 41 4e 44 20 53 4f 4d | PRESENT| AND SOM|
|00013d40| 45 20 50 52 4f 44 55 43 | 54 0a 43 20 20 20 53 50 |E PRODUC|T.C SP|
|00013d50| 45 43 49 45 53 20 4d 41 | 59 20 4e 4f 54 20 46 4f |ECIES MA|Y NOT FO|
|00013d60| 52 4d 2e 0a 43 0a 43 20 | 20 46 4f 52 20 41 20 47 |RM..C.C | FOR A G|
|00013d70| 49 56 45 4e 20 43 41 53 | 45 2c 20 54 48 45 20 4e |IVEN CAS|E, THE N|
|00013d80| 45 51 20 51 55 41 4e 54 | 49 54 49 45 53 20 49 4e |EQ QUANT|ITIES IN|
|00013d90| 20 54 48 49 53 20 4c 49 | 53 54 20 54 4f 20 42 45 | THIS LI|ST TO BE|
|00013da0| 20 43 41 4c 43 55 4c 41 | 54 45 44 0a 43 20 20 20 | CALCULA|TED.C |
|00013db0| 41 52 45 20 45 4e 54 45 | 52 45 44 20 49 4e 54 4f |ARE ENTE|RED INTO|
|00013dc0| 20 41 4e 20 41 52 52 41 | 59 20 58 43 4c 20 53 45 | AN ARRA|Y XCL SE|
|00013dd0| 51 55 45 4e 54 49 41 4c | 4c 59 2c 20 41 53 43 45 |QUENTIAL|LY, ASCE|
|00013de0| 4e 44 49 4e 47 20 49 4e | 20 54 48 45 20 4f 52 44 |NDING IN| THE ORD|
|00013df0| 45 52 0a 43 20 20 20 53 | 48 4f 57 4e 20 41 42 4f |ER.C S|HOWN ABO|
|00013e00| 56 45 2e 20 20 54 48 45 | 49 52 20 50 4f 53 49 54 |VE. THE|IR POSIT|
|00013e10| 49 4f 4e 20 49 4e 20 54 | 48 49 53 20 41 52 52 41 |ION IN T|HIS ARRA|
|00013e20| 59 20 49 53 20 53 54 4f | 52 45 44 20 49 4e 20 41 |Y IS STO|RED IN A|
|00013e30| 4e 20 49 4e 54 45 47 45 | 52 0a 43 20 20 20 41 52 |N INTEGE|R.C AR|
|00013e40| 52 41 59 20 4e 46 2e 20 | 20 54 48 45 20 41 52 52 |RAY NF. | THE ARR|
|00013e50| 41 59 20 46 43 4c 20 43 | 4f 4e 54 41 49 4e 53 20 |AY FCL C|ONTAINS |
|00013e60| 54 48 45 20 52 45 53 49 | 44 55 41 4c 53 20 4f 46 |THE RESI|DUALS OF|
|00013e70| 20 54 48 45 20 4e 45 51 | 20 45 51 55 41 54 49 4f | THE NEQ| EQUATIO|
|00013e80| 4e 53 0a 43 20 20 20 54 | 4f 20 42 45 20 53 41 54 |NS.C T|O BE SAT|
|00013e90| 49 53 46 49 45 44 20 49 | 4e 20 53 4f 4c 56 49 4e |ISFIED I|N SOLVIN|
|00013ea0| 47 20 46 4f 52 20 54 48 | 45 20 45 51 55 49 4c 49 |G FOR TH|E EQUILI|
|00013eb0| 42 52 49 55 4d 20 43 4f | 4e 43 45 4e 54 52 41 54 |BRIUM CO|NCENTRAT|
|00013ec0| 49 4f 4e 53 20 49 4e 20 | 58 43 4c 2e 0a 43 0a 43 |IONS IN |XCL..C.C|
|00013ed0| 20 20 54 48 45 52 45 20 | 41 52 45 20 54 48 52 45 | THERE |ARE THRE|
|00013ee0| 45 20 4b 49 4e 44 53 20 | 4f 46 20 45 51 55 49 4c |E KINDS |OF EQUIL|
|00013ef0| 49 42 52 49 55 4d 20 43 | 41 4c 43 55 4c 41 54 49 |IBRIUM C|ALCULATI|
|00013f00| 4f 4e 53 2c 20 44 45 46 | 49 4e 45 44 20 41 53 20 |ONS, DEF|INED AS |
|00013f10| 46 4f 4c 4c 4f 57 53 3a | 0a 43 0a 43 20 20 20 20 |FOLLOWS:|.C.C |
|00013f20| 4e 43 41 4c 3d 31 20 28 | 46 4c 41 47 20 49 41 4f |NCAL=1 (|FLAG IAO|
|00013f30| 43 3d 31 29 0a 43 0a 43 | 20 20 20 20 20 20 20 20 |C=1).C.C| |
|00013f40| 41 20 43 41 4c 43 55 4c | 41 54 49 4f 4e 20 45 4d |A CALCUL|ATION EM|
|00013f50| 50 4c 4f 59 45 44 20 57 | 48 45 4e 20 42 4f 54 48 |PLOYED W|HEN BOTH|
|00013f60| 20 54 48 45 20 4e 4f 4e | 41 51 55 45 4f 55 53 20 | THE NON|AQUEOUS |
|00013f70| 50 48 41 53 45 20 41 4e | 44 20 54 48 45 20 41 51 |PHASE AN|D THE AQ|
|00013f80| 55 45 4f 55 53 0a 43 20 | 20 20 20 20 20 20 20 50 |UEOUS.C | P|
|00013f90| 48 41 53 45 53 20 41 52 | 45 20 50 52 45 53 45 4e |HASES AR|E PRESEN|
|00013fa0| 54 2e 20 54 48 45 20 52 | 45 53 55 4c 54 49 4e 47 |T. THE R|ESULTING|
|00013fb0| 20 53 50 45 43 49 45 20 | 43 4f 4e 43 45 4e 54 52 | SPECIE |CONCENTR|
|00013fc0| 41 54 49 4f 4e 53 20 46 | 4f 52 20 45 41 43 48 0a |ATIONS F|OR EACH.|
|00013fd0| 43 20 20 20 20 20 20 20 | 20 50 4f 49 4e 54 20 41 |C | POINT A|
|00013fe0| 52 45 20 53 54 4f 52 45 | 44 20 49 4e 20 54 48 45 |RE STORE|D IN THE|
|00013ff0| 20 41 52 52 41 59 20 58 | 43 53 20 49 4e 20 54 48 | ARRAY X|CS IN TH|
|00014000| 45 20 53 41 4d 45 20 4f | 52 44 45 52 20 54 48 45 |E SAME O|RDER THE|
|00014010| 59 20 41 52 45 0a 43 20 | 20 20 20 20 20 20 20 53 |Y ARE.C | S|
|00014020| 54 4f 52 45 44 20 49 4e | 20 41 52 52 41 59 20 58 |TORED IN| ARRAY X|
|00014030| 43 2e 20 20 54 48 49 53 | 20 41 52 52 41 59 20 49 |C. THIS| ARRAY I|
|00014040| 53 20 44 49 4d 45 4e 53 | 49 4f 4e 45 44 20 58 43 |S DIMENS|IONED XC|
|00014050| 53 28 4e 4f 2a 28 38 2b | 4e 53 4f 2b 4e 53 41 29 |S(NO*(8+|NSO+NSA)|
|00014060| 29 2e 0a 43 0a 43 20 20 | 20 20 4e 43 41 4c 3d 32 |)..C.C | NCAL=2|
|00014070| 20 28 46 4c 41 47 20 49 | 4f 43 3d 31 29 0a 43 0a | (FLAG I|OC=1).C.|
|00014080| 43 20 20 20 20 20 20 20 | 20 41 20 43 41 4c 43 55 |C | A CALCU|
|00014090| 4c 41 54 49 4f 4e 20 45 | 4d 50 4c 4f 59 45 44 20 |LATION E|MPLOYED |
|000140a0| 57 48 45 4e 20 4f 4e 4c | 59 20 54 48 45 20 4e 4f |WHEN ONL|Y THE NO|
|000140b0| 4e 41 51 55 45 4f 55 53 | 20 50 48 41 53 45 20 49 |NAQUEOUS| PHASE I|
|000140c0| 53 20 50 52 45 53 45 4e | 54 2e 20 49 4e 0a 43 20 |S PRESEN|T. IN.C |
|000140d0| 20 20 20 20 20 20 20 54 | 48 49 53 20 43 41 53 45 | T|HIS CASE|
|000140e0| 20 49 54 20 49 53 20 4e | 45 43 45 53 53 41 52 59 | IT IS N|ECESSARY|
|000140f0| 20 54 4f 20 41 53 53 55 | 4d 45 20 54 48 41 54 20 | TO ASSU|ME THAT |
|00014100| 41 4e 20 49 4e 46 49 4e | 49 54 45 53 49 4d 41 4c |AN INFIN|ITESIMAL|
|00014110| 4c 59 20 53 4d 41 4c 4c | 0a 43 20 20 20 20 20 20 |LY SMALL|.C |
|00014120| 20 20 41 4d 4f 55 4e 54 | 20 4f 46 20 41 4e 20 41 | AMOUNT| OF AN A|
|00014130| 51 55 45 4f 55 53 20 50 | 48 41 53 45 20 49 53 20 |QUEOUS P|HASE IS |
|00014140| 41 4c 53 4f 20 50 52 45 | 53 45 4e 54 20 42 45 43 |ALSO PRE|SENT BEC|
|00014150| 41 55 53 45 20 4f 46 20 | 54 48 45 20 57 41 59 0a |AUSE OF |THE WAY.|
|00014160| 43 20 20 20 20 20 20 20 | 20 46 4f 52 4d 41 54 49 |C | FORMATI|
|00014170| 4f 4e 20 43 4f 4e 53 54 | 41 4e 54 53 20 4f 46 20 |ON CONST|ANTS OF |
|00014180| 50 52 4f 44 55 43 54 20 | 53 50 45 43 49 45 53 20 |PRODUCT |SPECIES |
|00014190| 41 52 45 20 44 45 46 49 | 4e 45 44 2e 20 46 4f 52 |ARE DEFI|NED. FOR|
|000141a0| 20 45 41 43 48 20 50 4f | 49 4e 54 2c 0a 43 20 20 | EACH PO|INT,.C |
|000141b0| 20 20 20 20 20 20 54 48 | 45 20 52 45 53 55 4c 54 | TH|E RESULT|
|000141c0| 49 4e 47 20 53 50 45 43 | 49 45 20 43 4f 4e 43 45 |ING SPEC|IE CONCE|
|000141d0| 4e 54 52 41 54 49 4f 4e | 53 2c 20 49 4e 43 4c 55 |NTRATION|S, INCLU|
|000141e0| 44 49 4e 47 20 54 48 4f | 53 45 20 49 4e 20 54 48 |DING THO|SE IN TH|
|000141f0| 45 20 54 52 41 43 45 0a | 43 20 20 20 20 20 20 20 |E TRACE.|C |
|00014200| 20 41 4d 4f 55 4e 54 20 | 4f 46 20 41 51 55 45 4f | AMOUNT |OF AQUEO|
|00014210| 55 53 20 50 48 41 53 45 | 2c 20 41 52 45 20 53 54 |US PHASE|, ARE ST|
|00014220| 4f 52 45 44 20 49 4e 20 | 54 48 45 20 41 52 52 41 |ORED IN |THE ARRA|
|00014230| 59 20 58 43 4f 53 20 49 | 4e 20 54 48 45 20 53 41 |Y XCOS I|N THE SA|
|00014240| 4d 45 0a 43 20 20 20 20 | 20 20 20 20 4f 52 44 45 |ME.C | ORDE|
|00014250| 52 20 54 48 45 59 20 41 | 52 45 20 53 54 4f 52 45 |R THEY A|RE STORE|
|00014260| 44 20 49 4e 20 41 52 52 | 41 59 20 58 43 2e 20 20 |D IN ARR|AY XC. |
|00014270| 54 48 49 53 20 41 52 52 | 41 59 20 49 53 20 44 49 |THIS ARR|AY IS DI|
|00014280| 4d 45 4e 53 49 4f 4e 45 | 44 0a 43 20 20 20 20 20 |MENSIONE|D.C |
|00014290| 20 20 20 58 43 4f 53 28 | 4e 4f 2a 28 38 2b 4e 53 | XCOS(|NO*(8+NS|
|000142a0| 4f 2b 4e 53 41 29 29 2e | 0a 43 0a 43 20 20 20 20 |O+NSA)).|.C.C |
|000142b0| 4e 43 41 4c 3d 33 20 28 | 46 4c 41 47 20 49 41 43 |NCAL=3 (|FLAG IAC|
|000142c0| 3d 31 29 0a 43 0a 43 20 | 20 20 20 20 20 20 20 41 |=1).C.C | A|
|000142d0| 20 43 41 4c 43 55 4c 41 | 54 49 4f 4e 20 45 4d 50 | CALCULA|TION EMP|
|000142e0| 4c 4f 59 45 44 20 57 48 | 45 4e 20 4f 4e 4c 59 20 |LOYED WH|EN ONLY |
|000142f0| 54 48 45 20 41 51 55 45 | 4f 55 53 20 50 48 41 53 |THE AQUE|OUS PHAS|
|00014300| 45 20 49 53 20 50 52 45 | 53 45 4e 54 2c 20 4f 52 |E IS PRE|SENT, OR|
|00014310| 0a 43 20 20 20 20 20 20 | 20 20 57 48 45 4e 20 41 |.C | WHEN A|
|00014320| 4e 20 49 4e 49 54 49 41 | 4c 20 43 41 4c 43 55 4c |N INITIA|L CALCUL|
|00014330| 41 54 49 4f 4e 20 4f 46 | 20 45 51 55 49 4c 2e 43 |ATION OF| EQUIL.C|
|00014340| 4f 4e 44 49 54 49 4f 4e | 53 20 49 4e 20 54 48 45 |ONDITION|S IN THE|
|00014350| 20 41 51 55 45 4f 55 53 | 0a 43 20 20 20 20 20 20 | AQUEOUS|.C |
|00014360| 20 20 50 48 41 53 45 20 | 42 45 46 4f 52 45 20 43 | PHASE |BEFORE C|
|00014370| 4f 4e 54 41 43 54 20 57 | 49 54 48 20 54 48 45 20 |ONTACT W|ITH THE |
|00014380| 4e 4f 4e 41 51 55 45 4f | 55 53 20 50 48 41 53 45 |NONAQUEO|US PHASE|
|00014390| 20 50 48 41 53 45 20 49 | 53 20 4e 45 45 44 45 44 | PHASE I|S NEEDED|
|000143a0| 20 46 4f 52 0a 43 20 20 | 20 20 20 20 20 20 43 41 | FOR.C | CA|
|000143b0| 4c 43 55 4c 41 54 49 4e | 47 20 4d 41 54 45 52 49 |LCULATIN|G MATERI|
|000143c0| 41 4c 20 42 41 4c 41 4e | 43 45 53 2e 20 20 54 48 |AL BALAN|CES. TH|
|000143d0| 45 20 52 45 53 55 4c 54 | 49 4e 47 20 53 50 45 43 |E RESULT|ING SPEC|
|000143e0| 49 45 20 43 4f 4e 43 45 | 4e 54 52 41 54 49 4f 4e |IE CONCE|NTRATION|
|000143f0| 53 0a 43 20 20 20 20 20 | 20 20 20 41 52 45 20 53 |S.C | ARE S|
|00014400| 54 4f 52 45 44 20 49 4e | 20 54 48 45 20 41 52 52 |TORED IN| THE ARR|
|00014410| 41 59 20 58 43 41 53 20 | 49 4e 20 54 48 45 20 53 |AY XCAS |IN THE S|
|00014420| 41 4d 45 20 4f 52 44 45 | 52 20 54 48 45 59 20 41 |AME ORDE|R THEY A|
|00014430| 52 45 20 53 54 4f 52 45 | 44 20 49 4e 0a 43 20 20 |RE STORE|D IN.C |
|00014440| 20 20 20 20 20 20 41 52 | 52 41 59 20 58 43 2c 20 | AR|RAY XC, |
|00014450| 45 58 43 45 50 54 20 54 | 48 41 54 20 54 48 45 20 |EXCEPT T|HAT THE |
|00014460| 52 45 41 43 54 41 4e 54 | 53 20 48 41 20 41 4e 44 |REACTANT|S HA AND|
|00014470| 20 42 2c 20 41 4e 44 20 | 41 4e 59 20 50 52 4f 44 | B, AND |ANY PROD|
|00014480| 55 43 54 0a 43 20 20 20 | 20 20 20 20 20 53 50 45 |UCT.C | SPE|
|00014490| 43 49 45 53 20 49 4e 20 | 54 48 45 20 4e 4f 4e 41 |CIES IN |THE NONA|
|000144a0| 51 55 45 4f 55 53 20 50 | 48 41 53 45 20 41 52 45 |QUEOUS P|HASE ARE|
|000144b0| 20 45 58 43 4c 55 44 45 | 44 2e 20 20 54 48 49 53 | EXCLUDE|D. THIS|
|000144c0| 20 41 52 52 41 59 20 49 | 53 20 54 48 45 52 45 2d | ARRAY I|S THERE-|
|000144d0| 0a 43 20 20 20 20 20 20 | 20 20 46 4f 52 45 20 44 |.C | FORE D|
|000144e0| 49 4d 45 4e 53 49 4f 4e | 45 44 20 58 43 41 53 28 |IMENSION|ED XCAS(|
|000144f0| 4e 4f 2a 28 36 2b 4e 53 | 41 29 29 2e 0a 43 0a 43 |NO*(6+NS|A))..C.C|
|00014500| 0a 43 20 20 54 48 45 20 | 51 55 41 4e 54 49 54 49 |.C THE |QUANTITI|
|00014510| 45 53 20 54 48 41 54 20 | 44 45 54 45 52 4d 49 4e |ES THAT |DETERMIN|
|00014520| 45 20 57 48 49 43 48 20 | 43 41 4c 43 55 4c 41 54 |E WHICH |CALCULAT|
|00014530| 49 4f 4e 53 20 4d 55 53 | 54 20 42 45 20 50 45 52 |IONS MUS|T BE PER|
|00014540| 46 4f 52 4d 45 44 20 46 | 4f 52 0a 43 20 20 20 41 |FORMED F|OR.C A|
|00014550| 20 44 41 54 41 20 50 4f | 49 4e 54 20 41 52 45 3a | DATA PO|INT ARE:|
|00014560| 0a 43 0a 43 20 20 20 20 | 20 20 20 49 41 4f 20 3d |.C.C | IAO =|
|00014570| 20 49 4e 44 49 43 41 54 | 45 53 20 50 52 45 53 45 | INDICAT|ES PRESE|
|00014580| 4e 43 45 20 4f 46 20 28 | 30 29 20 4e 4f 4e 41 51 |NCE OF (|0) NONAQ|
|00014590| 55 45 4f 55 53 20 50 48 | 41 53 45 20 4f 4e 4c 59 |UEOUS PH|ASE ONLY|
|000145a0| 2c 20 28 31 29 20 42 4f | 54 48 0a 43 20 20 20 20 |, (1) BO|TH.C |
|000145b0| 20 20 20 20 20 20 20 20 | 20 20 41 51 55 45 4f 55 | | AQUEOU|
|000145c0| 53 20 41 4e 44 20 4e 4f | 4e 41 51 55 45 4f 55 53 |S AND NO|NAQUEOUS|
|000145d0| 20 50 48 41 53 45 53 2c | 20 4f 52 20 28 32 29 20 | PHASES,| OR (2) |
|000145e0| 41 51 2e 20 50 48 41 53 | 45 20 4f 4e 4c 59 2e 0a |AQ. PHAS|E ONLY..|
|000145f0| 43 20 20 20 20 20 20 4e | 41 53 50 20 3d 20 4e 55 |C N|ASP = NU|
|00014600| 4d 42 45 52 20 4f 46 20 | 50 4f 53 53 49 42 4c 45 |MBER OF |POSSIBLE|
|00014610| 20 41 51 2e 50 52 4f 44 | 2e 53 50 45 43 49 45 53 | AQ.PROD|.SPECIES|
|00014620| 20 4e 4f 54 20 49 4e 56 | 4f 4c 56 49 4e 47 20 48 | NOT INV|OLVING H|
|00014630| 41 20 41 4e 44 2f 4f 52 | 20 42 0a 43 20 20 20 20 |A AND/OR| B.C |
|00014640| 20 20 20 49 45 51 20 3d | 20 49 4e 44 49 43 41 54 | IEQ =| INDICAT|
|00014650| 4f 52 20 4f 46 20 47 49 | 56 45 4e 20 49 4e 49 54 |OR OF GI|VEN INIT|
|00014660| 49 41 4c 20 28 30 29 20 | 4f 52 20 45 51 55 49 4c |IAL (0) |OR EQUIL|
|00014670| 2e 20 28 31 29 20 41 51 | 2e 43 4f 4d 50 4e 2e 0a |. (1) AQ|.COMPN..|
|00014680| 43 20 20 20 20 20 20 20 | 49 43 4e 20 3d 20 49 4e |C |ICN = IN|
|00014690| 44 49 43 41 54 4f 52 20 | 4f 46 20 43 4f 4e 43 2e |DICATOR |OF CONC.|
|000146a0| 20 53 43 41 4c 45 3b 20 | 4d 4f 4c 41 52 49 54 59 | SCALE; |MOLARITY|
|000146b0| 20 28 31 29 2c 20 4d 4f | 4c 41 4c 49 54 59 20 28 | (1), MO|LALITY (|
|000146c0| 32 29 2c 0a 43 0a 43 20 | 20 54 48 45 20 46 4f 4c |2),.C.C | THE FOL|
|000146d0| 4c 4f 57 49 4e 47 20 54 | 41 42 4c 45 20 43 4f 4e |LOWING T|ABLE CON|
|000146e0| 54 41 49 4e 53 20 54 48 | 45 20 41 4c 4c 4f 57 41 |TAINS TH|E ALLOWA|
|000146f0| 42 4c 45 20 43 4f 4d 42 | 49 4e 41 54 49 4f 4e 53 |BLE COMB|INATIONS|
|00014700| 20 4f 46 20 54 48 45 53 | 45 20 46 4f 55 52 0a 43 | OF THES|E FOUR.C|
|00014710| 20 20 20 51 55 41 4e 54 | 49 54 49 45 53 2e 20 20 | QUANT|ITIES. |
|00014720| 41 20 22 2d 22 20 49 4e | 44 49 43 41 54 45 53 20 |A "-" IN|DICATES |
|00014730| 54 48 41 54 20 54 48 45 | 20 56 41 4c 55 45 20 49 |THAT THE| VALUE I|
|00014740| 53 20 49 52 52 45 4c 45 | 56 41 4e 54 2e 20 20 46 |S IRRELE|VANT. F|
|00014750| 4f 52 20 4e 41 53 50 2c | 0a 43 20 20 20 54 48 45 |OR NASP,|.C THE|
|00014760| 20 56 41 4c 55 45 20 22 | 31 22 20 44 45 4e 4f 54 | VALUE "|1" DENOT|
|00014770| 45 53 20 4f 4e 45 20 4f | 52 20 4d 4f 52 45 20 53 |ES ONE O|R MORE S|
|00014780| 50 45 43 49 45 53 2e 0a | 43 0a 43 2d 2d 2d 2d 2d |PECIES..|C.C-----|
|00014790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000147a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000147b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000147c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000147d0| 2d 2d 2d 0a 43 20 20 20 | 20 20 20 20 20 20 20 20 |---.C | |
|000147e0| 20 20 43 4f 4e 44 49 54 | 49 4f 4e 53 20 20 20 20 | CONDIT|IONS |
|000147f0| 20 20 20 20 20 20 20 20 | 43 41 4c 43 4e 28 53 29 | |CALCN(S)|
|00014800| 2e 52 45 51 44 2e 20 20 | 20 20 20 20 20 46 4c 41 |.REQD. | FLA|
|00014810| 47 53 0a 43 0a 43 20 20 | 20 20 20 20 20 49 41 4f |GS.C.C | IAO|
|00014820| 20 20 20 4e 41 53 50 20 | 20 49 45 51 20 20 20 49 | NASP | IEQ I|
|00014830| 43 4e 20 20 20 20 20 20 | 20 20 20 20 20 20 4e 43 |CN | NC|
|00014840| 41 4c 20 20 20 20 20 20 | 20 20 49 41 4f 43 20 49 |AL | IAOC I|
|00014850| 4f 43 20 20 49 41 43 0a | 43 2d 2d 2d 2d 2d 2d 2d |OC IAC.|C-------|
|00014860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000148a0| 2d 20 20 20 20 20 0a 43 | 20 20 20 20 20 20 20 20 |- .C| |
|000148b0| 30 20 20 20 20 20 2d 20 | 20 20 20 20 30 20 20 20 |0 - | 0 |
|000148c0| 20 20 2d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | - | |
|000148d0| 20 32 20 20 20 20 20 20 | 20 20 20 20 20 30 20 20 | 2 | 0 |
|000148e0| 20 20 31 20 20 20 20 30 | 0a 43 20 20 20 20 20 20 | 1 0|.C |
|000148f0| 20 20 31 20 20 20 20 20 | 2d 20 20 20 20 20 2d 20 | 1 |- - |
|00014900| 20 20 20 20 2d 20 20 20 | 20 20 20 20 20 20 20 20 | - | |
|00014910| 20 20 20 31 20 20 20 20 | 20 20 20 20 20 20 20 31 | 1 | 1|
|00014920| 20 20 20 20 30 20 20 20 | 20 30 20 20 20 0a 43 20 | 0 | 0 .C |
|00014930| 20 20 20 20 20 20 20 31 | 20 20 20 20 20 31 20 20 | 1| 1 |
|00014940| 20 20 20 30 20 20 20 20 | 20 31 20 20 20 20 20 20 | 0 | 1 |
|00014950| 20 20 20 20 20 20 20 20 | 33 2c 20 54 48 45 4e 20 | |3, THEN |
|00014960| 31 20 20 20 31 20 20 20 | 20 30 20 20 20 20 31 0a |1 1 | 0 1.|
|00014970| 43 20 20 20 20 20 20 20 | 20 31 20 20 20 20 20 31 |C | 1 1|
|00014980| 20 20 20 20 20 30 20 20 | 20 20 20 32 20 20 20 20 | 0 | 2 |
|00014990| 20 20 20 20 20 20 20 20 | 20 20 31 20 20 20 20 20 | | 1 |
|000149a0| 20 20 20 20 20 20 31 20 | 20 20 20 30 20 20 20 20 | 1 | 0 |
|000149b0| 30 0a 43 20 20 20 20 20 | 20 20 20 31 20 20 20 20 |0.C | 1 |
|000149c0| 20 31 20 20 20 20 20 30 | 20 20 20 20 20 33 20 20 | 1 0| 3 |
|000149d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 31 20 20 20 | | 1 |
|000149e0| 20 20 20 20 20 20 20 20 | 31 20 20 20 20 30 20 20 | |1 0 |
|000149f0| 20 20 30 0a 43 20 20 20 | 20 20 20 20 20 32 20 20 | 0.C | 2 |
|00014a00| 20 20 20 2d 20 20 20 20 | 20 30 20 20 20 20 20 2d | - | 0 -|
|00014a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 33 20 | | 3 |
|00014a20| 20 20 20 20 20 20 20 20 | 20 20 30 20 20 20 20 30 | | 0 0|
|00014a30| 20 20 20 20 31 0a 43 2d | 2d 2d 2d 2d 2d 2d 2d 2d | 1.C-|--------|
|00014a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014a50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0a |--------|-------.|
|00014a80| 43 0a 43 20 20 28 49 4e | 20 54 48 45 20 43 41 53 |C.C (IN| THE CAS|
|00014a90| 45 20 43 41 4c 4c 49 4e | 47 20 46 4f 52 20 54 57 |E CALLIN|G FOR TW|
|00014aa0| 4f 20 43 41 4c 43 55 4c | 41 54 49 4f 4e 53 2c 20 |O CALCUL|ATIONS, |
|00014ab0| 54 48 45 20 46 49 52 53 | 54 20 49 53 20 4e 45 45 |THE FIRS|T IS NEE|
|00014ac0| 44 45 44 20 46 4f 52 0a | 43 20 20 20 4d 41 54 45 |DED FOR.|C MATE|
|00014ad0| 52 49 41 4c 20 42 41 4c | 41 4e 43 45 20 43 41 4c |RIAL BAL|ANCE CAL|
|00014ae0| 43 55 4c 41 54 49 4f 4e | 53 20 57 48 45 4e 20 54 |CULATION|S WHEN T|
|00014af0| 48 45 20 4d 4f 4c 41 52 | 49 54 59 20 53 43 41 4c |HE MOLAR|ITY SCAL|
|00014b00| 45 20 49 53 20 55 53 45 | 44 2e 29 0a 43 0a 43 0a |E IS USE|D.).C.C.|
|00014b10| 43 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |C | |
|00014b20| 20 20 20 20 20 20 20 20 | 20 4d 41 54 45 52 49 41 | | MATERIA|
|00014b30| 4c 20 42 41 4c 41 4e 43 | 45 20 43 4f 52 52 45 43 |L BALANC|E CORREC|
|00014b40| 54 49 4f 4e 0a 43 0a 43 | 20 20 41 20 43 4f 52 52 |TION.C.C| A CORR|
|00014b50| 45 43 54 49 4f 4e 20 49 | 53 20 52 45 51 55 49 52 |ECTION I|S REQUIR|
|00014b60| 45 44 20 46 4f 52 20 54 | 48 45 20 43 48 41 4e 47 |ED FOR T|HE CHANG|
|00014b70| 45 20 49 4e 20 54 48 45 | 20 56 4f 4c 55 4d 45 20 |E IN THE| VOLUME |
|00014b80| 4f 52 20 54 48 45 20 57 | 45 49 47 48 54 20 4f 46 |OR THE W|EIGHT OF|
|00014b90| 0a 43 20 20 20 45 41 43 | 48 20 50 48 41 53 45 20 |.C EAC|H PHASE |
|00014ba0| 54 48 41 54 20 52 45 53 | 55 4c 54 53 20 57 48 45 |THAT RES|ULTS WHE|
|00014bb0| 4e 20 4d 41 54 45 52 49 | 41 4c 20 49 53 20 54 52 |N MATERI|AL IS TR|
|00014bc0| 41 4e 53 46 45 52 52 45 | 44 20 46 52 4f 4d 20 4f |ANSFERRE|D FROM O|
|00014bd0| 4e 45 20 50 48 41 53 45 | 20 54 4f 0a 43 20 20 20 |NE PHASE| TO.C |
|00014be0| 54 48 45 20 4f 54 48 45 | 52 20 49 4e 20 4f 52 44 |THE OTHE|R IN ORD|
|00014bf0| 45 52 20 54 4f 20 53 41 | 54 49 53 46 59 20 4d 41 |ER TO SA|TISFY MA|
|00014c00| 54 45 52 49 41 4c 20 42 | 41 4c 41 4e 43 45 20 52 |TERIAL B|ALANCE R|
|00014c10| 45 51 55 49 52 45 4d 45 | 4e 54 53 2e 20 0a 43 0a |EQUIREME|NTS. .C.|
|00014c20| 43 20 20 54 48 45 20 43 | 4f 52 52 45 43 54 49 4f |C THE C|ORRECTIO|
|00014c30| 4e 20 46 41 43 54 4f 52 | 53 20 55 53 45 44 20 46 |N FACTOR|S USED F|
|00014c40| 4f 52 20 54 48 49 53 20 | 50 55 52 50 4f 53 45 2c |OR THIS |PURPOSE,|
|00014c50| 20 52 4d 42 4f 20 46 4f | 52 20 54 48 45 20 4e 4f | RMBO FO|R THE NO|
|00014c60| 4e 41 51 55 45 4f 55 53 | 20 50 48 41 53 45 0a 43 |NAQUEOUS| PHASE.C|
|00014c70| 20 20 20 41 4e 44 20 52 | 4d 42 41 20 46 4f 52 20 | AND R|MBA FOR |
|00014c80| 54 48 45 20 41 51 55 45 | 4f 55 53 20 50 48 41 53 |THE AQUE|OUS PHAS|
|00014c90| 45 2c 20 41 52 45 20 45 | 41 43 48 20 41 20 52 41 |E, ARE E|ACH A RA|
|00014ca0| 54 49 4f 20 4f 46 20 54 | 48 45 20 41 4d 4f 55 4e |TIO OF T|HE AMOUN|
|00014cb0| 54 20 28 56 30 4c 55 4d | 45 2c 0a 43 20 20 20 57 |T (V0LUM|E,.C W|
|00014cc0| 45 49 47 48 54 2c 20 4f | 52 20 57 45 49 47 48 54 |EIGHT, O|R WEIGHT|
|00014cd0| 20 4f 46 20 43 4f 4e 54 | 41 49 4e 45 44 20 53 4f | OF CONT|AINED SO|
|00014ce0| 4c 56 45 4e 54 29 20 4f | 46 20 41 20 50 48 41 53 |LVENT) O|F A PHAS|
|00014cf0| 45 20 41 46 54 45 52 20 | 45 58 54 52 41 43 54 49 |E AFTER |EXTRACTI|
|00014d00| 4f 4e 20 54 4f 0a 43 20 | 20 20 54 48 41 54 20 42 |ON TO.C | THAT B|
|00014d10| 45 46 4f 52 45 20 45 58 | 54 52 41 43 54 49 4f 4e |EFORE EX|TRACTION|
|00014d20| 2e 0a 43 0a 43 0a 43 0a | 20 20 20 20 20 20 53 55 |..C.C.C.| SU|
|00014d30| 42 52 4f 55 54 49 4e 45 | 20 43 41 4c 43 28 50 2c |BROUTINE| CALC(P,|
|00014d40| 57 2c 56 2c 56 30 2c 53 | 56 2c 43 53 2c 47 2c 0a |W,V,V0,S|V,CS,G,.|
|00014d50| 20 20 20 20 20 26 47 4f | 2c 47 58 30 2c 56 52 54 | &GO|,GX0,VRT|
|00014d60| 2c 50 48 2c 50 48 56 2c | 58 46 2c 47 58 2c 41 43 |,PH,PHV,|XF,GX,AC|
|00014d70| 2c 58 2c 58 53 2c 58 43 | 53 2c 58 43 4f 53 2c 58 |,X,XS,XC|S,XCOS,X|
|00014d80| 43 41 53 2c 58 43 2c 09 | 20 0a 20 20 20 20 20 26 |CAS,XC,.| . &|
|00014d90| 52 4f 43 2c 52 41 43 2c | 45 4f 43 2c 43 45 4f 43 |ROC,RAC,|EOC,CEOC|
|00014da0| 2c 52 45 4f 43 2c 53 45 | 4f 43 2c 45 41 43 2c 46 |,REOC,SE|OC,EAC,F|
|00014db0| 4f 43 2c 46 41 43 2c 46 | 4f 4b 2c 52 46 4f 4b 2c |OC,FAC,F|OK,RFOK,|
|00014dc0| 53 46 4f 4b 2c 46 41 4b | 2c 58 43 4c 2c 0a 20 20 |SFOK,FAK|,XCL,. |
|00014dd0| 20 20 20 26 46 43 4c 2c | 45 58 43 2c 57 41 2c 59 | &FCL,|EXC,WA,Y|
|00014de0| 2c 42 30 2c 42 31 2c 42 | 32 2c 43 50 2c 41 4c 50 |,B0,B1,B|2,CP,ALP|
|00014df0| 2c 42 50 2c 42 47 2c 42 | 47 50 2c 43 47 2c 50 43 |,BP,BG,B|GP,CG,PC|
|00014e00| 43 2c 0a 20 20 20 20 20 | 26 45 54 48 43 2c 45 54 |C,. |ÐC,ET|
|00014e10| 48 43 50 2c 50 41 41 2c | 45 54 48 41 2c 45 54 48 |HCP,PAA,|ETHA,ETH|
|00014e20| 41 50 2c 50 43 43 41 2c | 50 43 41 41 2c 44 43 41 |AP,PCCA,|PCAA,DCA|
|00014e30| 2c 50 4e 43 2c 50 4e 41 | 2c 50 4e 4e 2c 41 4d 2c |,PNC,PNA|,PNN,AM,|
|00014e40| 42 4d 2c 43 4d 2c 0a 20 | 20 20 20 20 26 5a 41 2c |BM,CM,. | &ZA,|
|00014e50| 5a 46 41 2c 5a 43 2c 5a | 46 43 2c 43 41 50 2c 43 |ZFA,ZC,Z|FC,CAP,C|
|00014e60| 4f 50 2c 45 50 2c 50 54 | 2c 46 58 2c 50 42 2c 52 |OP,EP,PT|,FX,PB,R|
|00014e70| 5a 49 52 2c 53 43 50 53 | 49 2c 4b 58 2c 4e 5a 41 |ZIR,SCPS|I,KX,NZA|
|00014e80| 2c 0a 20 20 20 20 20 26 | 4e 5a 50 4f 2c 4e 43 4f |,. &|NZPO,NCO|
|00014e90| 50 2c 4e 43 41 50 2c 4e | 49 44 54 2c 4e 46 2c 49 |P,NCAP,N|IDT,NF,I|
|00014ea0| 43 41 2c 49 41 4e 2c 49 | 4e 55 2c 49 50 54 2c 49 |CA,IAN,I|NU,IPT,I|
|00014eb0| 43 2c 49 44 43 2c 49 43 | 4f 4e 56 2c 49 45 52 52 |C,IDC,IC|ONV,IERR|
|00014ec0| 4f 52 2c 4e 50 53 49 29 | 0a 20 20 20 20 20 20 49 |OR,NPSI)|. I|
|00014ed0| 4d 50 4c 49 43 49 54 20 | 52 45 41 4c 2a 38 28 41 |MPLICIT |REAL*8(A|
|00014ee0| 2d 48 2c 4f 2d 5a 29 0a | 20 20 20 20 20 20 53 41 |-H,O-Z).| SA|
|00014ef0| 56 45 0a 20 20 20 20 20 | 20 45 58 54 45 52 4e 41 |VE. | EXTERNA|
|00014f00| 4c 20 45 4e 54 46 43 4e | 0a 20 20 20 20 20 20 44 |L ENTFCN|. D|
|00014f10| 49 4d 45 4e 53 49 4f 4e | 20 58 43 4c 28 2a 29 2c |IMENSION| XCL(*),|
|00014f20| 46 43 4c 28 2a 29 2c 50 | 28 2a 29 2c 57 28 2a 29 |FCL(*),P|(*),W(*)|
|00014f30| 2c 56 28 2a 29 2c 56 30 | 28 2a 29 2c 53 56 28 2a |,V(*),V0|(*),SV(*|
|00014f40| 29 2c 43 53 28 2a 29 2c | 0a 20 20 20 20 20 26 46 |),CS(*),|. &F|
|00014f50| 4f 4b 28 2a 29 2c 52 46 | 4f 4b 28 35 2c 2a 29 2c |OK(*),RF|OK(5,*),|
|00014f60| 53 46 4f 4b 28 2a 29 2c | 46 41 4b 28 2a 29 2c 41 |SFOK(*),|FAK(*),A|
|00014f70| 4d 28 2a 29 2c 42 4d 28 | 2a 29 2c 43 4d 28 2a 29 |M(*),BM(|*),CM(*)|
|00014f80| 2c 42 30 28 2a 29 2c 0a | 20 20 20 20 20 26 42 31 |,B0(*),.| &B1|
|00014f90| 28 2a 29 2c 42 32 28 2a | 29 2c 43 50 28 2a 29 2c |(*),B2(*|),CP(*),|
|00014fa0| 41 4c 50 28 32 2c 2a 29 | 2c 42 50 28 2a 29 2c 42 |ALP(2,*)|,BP(*),B|
|00014fb0| 47 28 2a 29 2c 42 47 50 | 28 2a 29 2c 43 47 28 2a |G(*),BGP|(*),CG(*|
|00014fc0| 29 2c 0a 20 20 20 20 20 | 26 50 43 43 28 2a 29 2c |),. |&PCC(*),|
|00014fd0| 45 54 48 43 28 2a 29 2c | 45 54 48 43 50 28 2a 29 |ETHC(*),|ETHCP(*)|
|00014fe0| 2c 50 41 41 28 2a 29 2c | 45 54 48 41 28 2a 29 2c |,PAA(*),|ETHA(*),|
|00014ff0| 45 54 48 41 50 28 2a 29 | 2c 50 43 43 41 28 2a 29 |ETHAP(*)|,PCCA(*)|
|00015000| 2c 0a 20 20 20 20 20 26 | 50 43 41 41 28 2a 29 2c |,. &|PCAA(*),|
|00015010| 44 43 41 28 2a 29 2c 50 | 4e 43 28 2a 29 2c 50 4e |DCA(*),P|NC(*),PN|
|00015020| 41 28 2a 29 2c 50 4e 4e | 28 2a 29 2c 5a 41 28 2a |A(*),PNN|(*),ZA(*|
|00015030| 29 2c 5a 46 41 28 2a 29 | 2c 5a 43 28 2a 29 2c 0a |),ZFA(*)|,ZC(*),.|
|00015040| 20 20 20 20 20 26 5a 46 | 43 28 2a 29 2c 47 28 2a | &ZF|C(*),G(*|
|00015050| 29 2c 47 4f 28 2a 29 2c | 47 58 30 28 2a 29 2c 56 |),GO(*),|GX0(*),V|
|00015060| 52 54 28 2a 29 2c 50 48 | 28 2a 29 2c 50 48 56 28 |RT(*),PH|(*),PHV(|
|00015070| 2a 29 2c 58 46 28 2a 29 | 2c 0a 20 20 20 20 20 26 |*),XF(*)|,. &|
|00015080| 47 58 28 2a 29 2c 41 43 | 28 2a 29 2c 58 28 31 30 |GX(*),AC|(*),X(10|
|00015090| 2c 2a 29 2c 58 43 28 2a | 29 2c 43 41 50 28 2a 29 |,*),XC(*|),CAP(*)|
|000150a0| 2c 43 4f 50 28 2a 29 2c | 58 53 28 31 31 2c 2a 29 |,COP(*),|XS(11,*)|
|000150b0| 2c 58 43 53 28 2a 29 2c | 0a 20 20 20 20 20 26 58 |,XCS(*),|. &X|
|000150c0| 43 4f 53 28 2a 29 2c 58 | 43 41 53 28 2a 29 2c 45 |COS(*),X|CAS(*),E|
|000150d0| 58 43 28 2a 29 2c 57 41 | 28 2a 29 2c 52 4f 43 28 |XC(*),WA|(*),ROC(|
|000150e0| 38 2c 2a 29 2c 52 41 43 | 28 38 2c 2a 29 2c 45 4f |8,*),RAC|(8,*),EO|
|000150f0| 43 28 38 2c 2a 29 2c 0a | 20 20 20 20 20 26 43 45 |C(8,*),.| &CE|
|00015100| 4f 43 28 2a 29 2c 52 45 | 4f 43 28 35 2c 38 2b 4e |OC(*),RE|OC(5,8+N|
|00015110| 53 4f 2c 2a 29 2c 53 45 | 4f 43 28 38 2b 4e 53 4f |SO,*),SE|OC(8+NSO|
|00015120| 2c 2a 29 2c 45 41 43 28 | 38 2c 2a 29 2c 46 4f 43 |,*),EAC(|8,*),FOC|
|00015130| 28 38 2c 2a 29 2c 0a 20 | 20 20 20 20 26 46 41 43 |(8,*),. | &FAC|
|00015140| 28 38 2c 2a 29 2c 45 50 | 28 2a 29 2c 50 54 28 38 |(8,*),EP|(*),PT(8|
|00015150| 2b 4e 53 4f 2b 4e 53 41 | 2c 2a 29 2c 46 58 28 2a |+NSO+NSA|,*),FX(*|
|00015160| 29 2c 50 42 28 2a 29 2c | 52 5a 49 52 28 2a 29 2c |),PB(*),|RZIR(*),|
|00015170| 53 43 50 53 49 28 2a 29 | 0a 20 20 20 20 20 20 44 |SCPSI(*)|. D|
|00015180| 49 4d 45 4e 53 49 4f 4e | 20 4b 58 28 2a 29 2c 4e |IMENSION| KX(*),N|
|00015190| 46 28 2a 29 2c 49 43 41 | 28 2a 29 2c 49 41 4e 28 |F(*),ICA|(*),IAN(|
|000151a0| 2a 29 2c 49 4e 55 28 2a | 29 2c 4e 5a 41 28 2a 29 |*),INU(*|),NZA(*)|
|000151b0| 2c 4e 5a 50 4f 28 2a 29 | 2c 0a 20 20 20 20 20 26 |,NZPO(*)|,. &|
|000151c0| 4e 49 44 54 28 2a 29 2c | 4e 43 4f 50 28 38 2c 2a |NIDT(*),|NCOP(8,*|
|000151d0| 29 2c 4e 43 41 50 28 37 | 2c 2a 29 2c 4e 50 53 49 |),NCAP(7|,*),NPSI|
|000151e0| 28 2a 29 0a 20 20 20 20 | 20 20 43 4f 4d 4d 4f 4e |(*). | COMMON|
|000151f0| 2f 4c 47 50 2f 4c 50 0a | 20 20 20 20 20 20 43 4f |/LGP/LP.| CO|
|00015200| 4d 4d 4f 4e 2f 4d 44 2f | 4e 53 4f 2c 4e 43 42 4f |MMON/MD/|NSO,NCBO|
|00015210| 2c 49 52 45 46 2c 4e 50 | 48 2c 4e 50 41 2c 4e 53 |,IREF,NP|H,NPA,NS|
|00015220| 41 2c 4e 49 4f 2c 4e 49 | 41 2c 4e 43 41 2c 4e 41 |A,NIO,NI|A,NCA,NA|
|00015230| 4e 2c 4e 4e 55 2c 4e 55 | 50 2c 4e 55 4d 0a 20 20 |N,NNU,NU|P,NUM. |
|00015240| 20 20 20 20 43 4f 4d 4d | 4f 4e 2f 44 54 2f 54 43 | COMM|ON/DT/TC|
|00015250| 2c 4e 4f 2c 4e 4f 46 2c | 49 43 4e 52 20 20 20 20 |,NO,NOF,|ICNR |
|00015260| 20 20 0a 20 20 20 20 20 | 20 43 4f 4d 4d 4f 4e 2f | . | COMMON/|
|00015270| 47 52 50 2f 41 46 54 2c | 42 46 54 2c 51 46 54 2c |GRP/AFT,|BFT,QFT,|
|00015280| 4e 43 52 28 34 29 2c 57 | 53 2c 56 53 2c 44 53 2c |NCR(4),W|S,VS,DS,|
|00015290| 47 4f 53 2c 57 52 2c 56 | 52 2c 47 4f 52 2c 52 54 |GOS,WR,V|R,GOR,RT|
|000152a0| 0a 20 20 20 20 20 20 43 | 4f 4d 4d 4f 4e 2f 46 49 |. C|OMMON/FI|
|000152b0| 54 2f 53 49 47 4d 41 2c | 4e 43 2c 4e 56 50 2c 4c |T/SIGMA,|NC,NVP,L|
|000152c0| 41 4d 2c 4c 45 56 0a 20 | 20 20 20 20 20 43 4f 4d |AM,LEV. | COM|
|000152d0| 4d 4f 4e 2f 57 54 52 2f | 50 30 2c 44 57 2c 44 43 |MON/WTR/|P0,DW,DC|
|000152e0| 2c 41 50 2c 52 4c 4b 57 | 20 20 20 20 20 20 0a 20 |,AP,RLKW| . |
|000152f0| 20 20 20 20 20 43 4f 4d | 4d 4f 4e 2f 45 51 2f 44 | COM|MON/EQ/D|
|00015300| 45 4e 2c 41 57 47 2c 41 | 57 2c 54 57 53 41 2c 54 |EN,AWG,A|W,TWSA,T|
|00015310| 56 53 41 2c 56 57 50 41 | 2c 56 57 50 4f 2c 52 4d |VSA,VWPA|,VWPO,RM|
|00015320| 42 41 2c 52 4d 42 4f 0a | 20 20 20 20 20 20 43 4f |BA,RMBO.| CO|
|00015330| 4d 4d 4f 4e 2f 50 52 50 | 2f 58 46 53 2c 47 58 53 |MMON/PRP|/XFS,GXS|
|00015340| 2c 41 53 2c 52 4d 43 4f | 2c 54 48 53 56 2c 54 48 |,AS,RMCO|,THSV,TH|
|00015350| 53 2c 54 53 41 49 2c 54 | 53 4f 49 2c 54 57 53 4f |S,TSAI,T|SOI,TWSO|
|00015360| 2c 54 56 53 4f 0a 20 20 | 20 20 20 20 43 4f 4d 4d |,TVSO. | COMM|
|00015370| 4f 4e 2f 52 53 44 4c 53 | 2f 53 4d 49 4e 53 0a 20 |ON/RSDLS|/SMINS. |
|00015380| 20 20 20 20 20 43 4f 4d | 4d 4f 4e 2f 43 59 43 4c | COM|MON/CYCL|
|00015390| 45 53 2f 4d 58 48 43 59 | 2c 4e 54 52 59 0a 20 20 |ES/MXHCY|,NTRY. |
|000153a0| 20 20 20 20 43 4f 4d 4d | 4f 4e 2f 45 4c 50 2f 45 | COMM|ON/ELP/E|
|000153b0| 46 54 31 2c 45 46 54 32 | 2c 41 54 4d 2c 53 51 49 |FT1,EFT2|,ATM,SQI|
|000153c0| 0a 20 20 20 20 20 20 44 | 41 54 41 20 46 54 4f 4c |. D|ATA FTOL|
|000153d0| 2c 58 54 4f 4c 2c 54 45 | 4e 2c 43 4e 54 2c 54 48 |,XTOL,TE|N,CNT,TH|
|000153e0| 4f 55 2c 44 45 58 43 2c | 53 4d 54 4c 2c 54 46 43 |OU,DEXC,|SMTL,TFC|
|000153f0| 53 4d 2c 4e 43 53 4d 2f | 0a 20 20 20 20 20 26 31 |SM,NCSM/|. &1|
|00015400| 2e 30 44 2d 31 31 2c 31 | 2e 30 44 2d 31 31 2c 31 |.0D-11,1|.0D-11,1|
|00015410| 30 2e 30 44 2b 30 2c 31 | 30 30 2e 30 44 2b 30 2c |0.0D+0,1|00.0D+0,|
|00015420| 31 2e 30 44 2b 33 2c 30 | 2e 31 44 2b 30 2c 31 2e |1.0D+3,0|.1D+0,1.|
|00015430| 30 44 2d 39 2c 0a 20 20 | 20 20 20 26 31 2e 30 44 |0D-9,. | &1.0D|
|00015440| 2b 31 30 2c 31 30 30 30 | 2f 0a 20 20 20 20 20 20 |+10,1000|/. |
|00015450| 44 41 54 41 20 49 54 31 | 2c 49 54 32 2c 49 54 33 |DATA IT1|,IT2,IT3|
|00015460| 2c 49 54 34 2f 31 30 2c | 31 30 30 2c 31 30 30 30 |,IT4/10,|100,1000|
|00015470| 2c 31 30 30 30 30 2f 0a | 20 20 20 20 20 20 44 41 |,10000/.| DA|
|00015480| 54 41 20 5a 45 52 4f 2c | 4f 4e 45 2c 54 57 4f 2f |TA ZERO,|ONE,TWO/|
|00015490| 30 2e 30 44 2b 30 2c 31 | 2e 30 44 2b 30 2c 32 2e |0.0D+0,1|.0D+0,2.|
|000154a0| 30 44 2b 30 2f 0a 43 0a | 43 20 20 49 4e 49 54 49 |0D+0/.C.|C INITI|
|000154b0| 41 4c 49 5a 45 20 46 41 | 43 54 4f 52 20 46 4f 52 |ALIZE FA|CTOR FOR|
|000154c0| 20 45 4c 45 43 54 52 4f | 53 54 41 54 49 43 20 43 | ELECTRO|STATIC C|
|000154d0| 4f 4e 54 52 49 42 55 54 | 49 4f 4e 20 54 4f 20 41 |ONTRIBUT|ION TO A|
|000154e0| 43 54 49 56 49 54 59 0a | 43 20 20 20 43 4f 45 46 |CTIVITY.|C COEF|
|000154f0| 46 49 43 49 45 4e 54 53 | 20 41 4e 44 20 53 4f 4c |FICIENTS| AND SOL|
|00015500| 56 45 4e 54 20 41 43 54 | 49 56 49 54 59 20 49 4e |VENT ACT|IVITY IN|
|00015510| 20 54 48 45 20 4e 4f 4e | 41 51 55 45 4f 55 53 20 | THE NON|AQUEOUS |
|00015520| 50 48 41 53 45 0a 20 20 | 20 20 20 20 45 46 54 31 |PHASE. | EFT1|
|00015530| 3d 4f 4e 45 0a 20 20 20 | 20 20 20 45 46 54 32 3d |=ONE. | EFT2=|
|00015540| 4f 4e 45 0a 43 0a 43 20 | 20 49 4e 49 54 49 41 4c |ONE.C.C | INITIAL|
|00015550| 49 5a 45 20 43 53 20 41 | 52 52 41 59 0a 20 20 20 |IZE CS A|RRAY. |
|00015560| 20 20 20 44 4f 20 33 20 | 49 3d 31 2c 28 38 2b 4e | DO 3 |I=1,(8+N|
|00015570| 53 4f 2b 4e 53 41 29 0a | 20 20 20 20 20 20 43 53 |SO+NSA).| CS|
|00015580| 28 49 29 3d 5a 45 52 4f | 0a 33 20 20 20 20 20 43 |(I)=ZERO|.3 C|
|00015590| 4f 4e 54 49 4e 55 45 0a | 43 0a 20 20 20 20 20 20 |ONTINUE.|C. |
|000155a0| 49 46 28 49 44 43 2e 47 | 54 2e 30 29 20 47 4f 54 |IF(IDC.G|T.0) GOT|
|000155b0| 4f 20 31 30 0a 20 20 20 | 20 20 20 49 52 45 53 3d |O 10. | IRES=|
|000155c0| 4e 49 44 54 28 49 50 54 | 29 0a 43 20 20 44 45 54 |NIDT(IPT|).C DET|
|000155d0| 45 52 4d 49 4e 45 20 54 | 59 50 45 20 4f 46 20 44 |ERMINE T|YPE OF D|
|000155e0| 41 54 41 20 50 4f 49 4e | 54 0a 20 20 20 20 20 20 |ATA POIN|T. |
|000155f0| 49 59 3d 49 52 45 53 2f | 49 54 34 0a 20 20 20 20 |IY=IRES/|IT4. |
|00015600| 20 20 49 52 45 53 3d 49 | 52 45 53 2d 49 54 34 2a | IRES=I|RES-IT4*|
|00015610| 49 59 0a 43 20 20 44 45 | 54 45 52 4d 49 4e 45 20 |IY.C DE|TERMINE |
|00015620| 49 46 20 41 51 55 45 4f | 55 53 20 50 48 41 53 45 |IF AQUEO|US PHASE|
|00015630| 20 49 53 20 50 52 45 53 | 45 4e 54 0a 20 20 20 20 | IS PRES|ENT. |
|00015640| 20 20 49 41 4f 3d 49 52 | 45 53 2f 49 54 33 0a 20 | IAO=IR|ES/IT3. |
|00015650| 20 20 20 20 20 49 52 45 | 53 3d 49 52 45 53 2d 49 | IRE|S=IRES-I|
|00015660| 54 33 2a 49 41 4f 0a 43 | 20 20 44 45 54 45 52 4d |T3*IAO.C| DETERM|
|00015670| 49 4e 45 20 49 46 20 49 | 4e 49 54 49 41 4c 20 4f |INE IF I|NITIAL O|
|00015680| 52 20 45 51 55 49 4c 49 | 42 52 49 55 4d 20 41 51 |R EQUILI|BRIUM AQ|
|00015690| 2e 43 4f 4d 50 4f 53 49 | 54 49 4f 4e 20 49 53 20 |.COMPOSI|TION IS |
|000156a0| 53 50 45 43 49 46 49 45 | 44 0a 20 20 20 20 20 20 |SPECIFIE|D. |
|000156b0| 49 45 51 3d 49 52 45 53 | 2f 49 54 32 0a 20 20 20 |IEQ=IRES|/IT2. |
|000156c0| 20 20 20 49 52 45 53 3d | 49 52 45 53 2d 49 54 32 | IRES=|IRES-IT2|
|000156d0| 2a 49 45 51 0a 43 20 20 | 44 45 54 45 52 4d 49 4e |*IEQ.C |DETERMIN|
|000156e0| 45 20 49 46 20 49 4e 49 | 54 49 41 4c 20 54 4f 54 |E IF INI|TIAL TOT|
|000156f0| 41 4c 20 41 43 49 44 49 | 54 59 2c 20 45 51 55 49 |AL ACIDI|TY, EQUI|
|00015700| 4c 2e 54 4f 54 41 4c 20 | 41 43 49 44 49 54 59 2c |L.TOTAL |ACIDITY,|
|00015710| 20 4f 52 0a 43 20 20 20 | 41 43 54 55 41 4c 20 48 | OR.C |ACTUAL H|
|00015720| 2b 20 43 4f 4e 43 2e 49 | 53 20 53 50 45 43 49 46 |+ CONC.I|S SPECIF|
|00015730| 49 45 44 0a 20 20 20 20 | 20 20 49 45 48 3d 49 52 |IED. | IEH=IR|
|00015740| 45 53 2f 49 54 31 0a 43 | 20 20 44 45 54 45 52 4d |ES/IT1.C| DETERM|
|00015750| 49 4e 45 20 43 4f 4e 43 | 45 4e 54 52 41 54 49 4f |INE CONC|ENTRATIO|
|00015760| 4e 20 53 43 41 4c 45 0a | 20 20 20 20 20 20 49 43 |N SCALE.| IC|
|00015770| 4e 3d 49 52 45 53 2d 49 | 54 31 2a 49 45 48 0a 43 |N=IRES-I|T1*IEH.C|
|00015780| 20 20 44 45 54 45 52 4d | 49 4e 45 20 54 48 45 20 | DETERM|INE THE |
|00015790| 4e 55 4d 42 45 52 20 4f | 46 20 41 51 2e 50 52 4f |NUMBER O|F AQ.PRO|
|000157a0| 44 2e 53 50 45 43 2e 4e | 4f 54 20 49 4e 56 4f 4c |D.SPEC.N|OT INVOL|
|000157b0| 56 49 4e 47 20 48 41 20 | 41 4e 44 2f 4f 52 20 42 |VING HA |AND/OR B|
|000157c0| 20 28 4e 41 53 50 29 0a | 20 20 20 20 20 20 4e 41 | (NASP).| NA|
|000157d0| 53 50 3d 30 0a 20 20 20 | 20 20 20 49 46 28 4e 53 |SP=0. | IF(NS|
|000157e0| 41 2e 47 54 2e 30 29 20 | 54 48 45 4e 0a 20 20 20 |A.GT.0) |THEN. |
|000157f0| 20 20 20 20 20 44 4f 20 | 35 20 49 3d 31 2c 4e 53 | DO |5 I=1,NS|
|00015800| 41 0a 20 20 20 20 20 20 | 20 20 49 46 28 4e 43 41 |A. | IF(NCA|
|00015810| 50 28 33 2c 49 29 2e 45 | 51 2e 30 2e 41 4e 44 2e |P(3,I).E|Q.0.AND.|
|00015820| 4e 43 41 50 28 34 2c 49 | 29 2e 45 51 2e 30 29 20 |NCAP(4,I|).EQ.0) |
|00015830| 54 48 45 4e 0a 43 20 20 | 20 20 20 20 20 20 54 48 |THEN.C | TH|
|00015840| 49 53 20 53 50 45 43 49 | 45 53 20 44 4f 45 53 20 |IS SPECI|ES DOES |
|00015850| 4e 4f 54 20 43 4f 4e 54 | 41 49 4e 20 4e 4f 4e 41 |NOT CONT|AIN NONA|
|00015860| 51 2e 52 45 41 43 54 41 | 4e 54 53 20 41 20 4f 52 |Q.REACTA|NTS A OR|
|00015870| 20 42 0a 09 20 20 4e 41 | 53 50 3d 4e 41 53 50 2b | B.. NA|SP=NASP+|
|00015880| 31 0a 09 45 4e 44 20 49 | 46 0a 35 20 20 20 20 20 |1..END I|F.5 |
|00015890| 20 20 43 4f 4e 54 49 4e | 55 45 0a 20 20 20 20 20 | CONTIN|UE. |
|000158a0| 20 45 4e 44 20 49 46 0a | 43 0a 43 20 20 44 45 54 | END IF.|C.C DET|
|000158b0| 45 52 4d 49 4e 45 20 54 | 48 45 20 45 51 55 49 4c |ERMINE T|HE EQUIL|
|000158c0| 49 42 52 49 55 4d 20 43 | 41 4c 43 55 4c 41 54 49 |IBRIUM C|ALCULATI|
|000158d0| 4f 4e 28 53 29 20 52 45 | 51 55 49 52 45 44 0a 20 |ON(S) RE|QUIRED. |
|000158e0| 20 20 20 20 20 49 41 4f | 43 3d 30 0a 20 20 20 20 | IAO|C=0. |
|000158f0| 20 20 49 4f 43 3d 30 0a | 20 20 20 20 20 20 49 41 | IOC=0.| IA|
|00015900| 43 3d 30 0a 43 20 20 20 | 41 52 45 20 42 4f 54 48 |C=0.C |ARE BOTH|
|00015910| 20 50 48 41 53 45 53 20 | 50 52 45 53 45 4e 54 3f | PHASES |PRESENT?|
|00015920| 0a 20 20 20 20 20 20 49 | 46 28 49 41 4f 2e 45 51 |. I|F(IAO.EQ|
|00015930| 2e 31 29 20 49 41 4f 43 | 3d 31 0a 43 20 20 20 49 |.1) IAOC|=1.C I|
|00015940| 53 20 4f 4e 4c 59 20 54 | 48 45 20 4e 4f 4e 41 51 |S ONLY T|HE NONAQ|
|00015950| 2e 50 48 41 53 45 20 50 | 52 45 53 45 4e 54 3f 0a |.PHASE P|RESENT?.|
|00015960| 20 20 20 20 20 20 49 46 | 28 49 41 4f 2e 45 51 2e | IF|(IAO.EQ.|
|00015970| 30 29 20 49 4f 43 3d 31 | 0a 43 20 20 20 49 53 20 |0) IOC=1|.C IS |
|00015980| 4f 4e 4c 59 20 54 48 45 | 20 41 51 2e 50 48 41 53 |ONLY THE| AQ.PHAS|
|00015990| 45 20 50 52 45 53 45 4e | 54 3f 20 20 20 20 20 0a |E PRESEN|T? .|
|000159a0| 20 20 20 20 20 20 49 46 | 28 49 41 4f 2e 45 51 2e | IF|(IAO.EQ.|
|000159b0| 32 29 20 49 41 43 3d 31 | 0a 43 20 20 20 41 52 45 |2) IAC=1|.C ARE|
|000159c0| 20 42 4f 54 48 20 50 48 | 41 53 45 53 20 50 52 45 | BOTH PH|ASES PRE|
|000159d0| 53 45 4e 54 2c 20 57 49 | 54 48 20 41 51 2e 50 52 |SENT, WI|TH AQ.PR|
|000159e0| 4f 44 2e 53 50 45 43 2e | 4e 4f 54 20 49 4e 56 4f |OD.SPEC.|NOT INVO|
|000159f0| 4c 56 49 4e 47 20 48 41 | 20 4f 52 20 42 2c 0a 43 |LVING HA| OR B,.C|
|00015a00| 20 20 20 20 57 49 54 48 | 20 49 4e 49 54 49 41 4c | WITH| INITIAL|
|00015a10| 20 43 4f 4e 43 2e 4f 46 | 20 41 51 2e 52 45 41 43 | CONC.OF| AQ.REAC|
|00015a20| 54 41 4e 54 53 20 47 49 | 56 45 4e 2c 20 41 4e 44 |TANTS GI|VEN, AND|
|00015a30| 20 54 48 45 20 4d 4f 4c | 41 52 49 54 59 20 43 4f | THE MOL|ARITY CO|
|00015a40| 4e 43 2e 0a 43 20 20 20 | 20 53 43 41 4c 45 20 53 |NC..C | SCALE S|
|00015a50| 50 45 43 49 46 49 45 44 | 3f 20 20 20 20 20 0a 20 |PECIFIED|? . |
|00015a60| 20 20 20 20 20 49 46 28 | 49 41 4f 2e 45 51 2e 31 | IF(|IAO.EQ.1|
|00015a70| 2e 41 4e 44 2e 4e 41 53 | 50 2e 47 54 2e 30 2e 41 |.AND.NAS|P.GT.0.A|
|00015a80| 4e 44 2e 49 45 51 2e 45 | 51 2e 30 2e 41 4e 44 2e |ND.IEQ.E|Q.0.AND.|
|00015a90| 49 43 4e 2e 45 51 2e 31 | 29 20 49 41 43 3d 31 0a |ICN.EQ.1|) IAC=1.|
|00015aa0| 43 20 20 49 46 20 4e 45 | 45 44 45 44 2c 20 43 41 |C IF NE|EDED, CA|
|00015ab0| 4c 4c 20 53 55 42 52 4f | 55 54 49 4e 45 20 54 4f |LL SUBRO|UTINE TO|
|00015ac0| 20 50 52 45 50 41 52 45 | 20 46 4f 52 20 4e 4f 4e | PREPARE| FOR NON|
|00015ad0| 41 51 2e 41 43 54 2e 43 | 4f 45 46 2e 43 41 4c 43 |AQ.ACT.C|OEF.CALC|
|00015ae0| 4e 53 2e 0a 31 30 20 20 | 20 20 49 46 28 49 41 4f |NS..10 | IF(IAO|
|00015af0| 43 2e 45 51 2e 31 2e 4f | 52 2e 49 4f 43 2e 45 51 |C.EQ.1.O|R.IOC.EQ|
|00015b00| 2e 31 29 20 43 41 4c 4c | 20 4f 52 47 41 43 28 50 |.1) CALL| ORGAC(P|
|00015b10| 2c 57 2c 56 2c 58 46 2c | 47 58 2c 43 53 2c 47 2c |,W,V,XF,|GX,CS,G,|
|00015b20| 0a 20 20 20 20 20 26 41 | 43 2c 47 4f 2c 47 58 30 |. &A|C,GO,GX0|
|00015b30| 2c 56 52 54 2c 50 48 2c | 50 48 56 2c 4e 5a 50 4f |,VRT,PH,|PHV,NZPO|
|00015b40| 2c 49 43 4e 29 0a 43 20 | 20 49 46 20 4e 45 45 44 |,ICN).C | IF NEED|
|00015b50| 45 44 2c 20 43 41 4c 4c | 20 53 55 42 52 4f 55 54 |ED, CALL| SUBROUT|
|00015b60| 49 4e 45 20 54 4f 20 50 | 52 45 50 41 52 45 20 46 |INE TO P|REPARE F|
|00015b70| 4f 52 20 41 51 55 2e 41 | 43 54 2e 43 4f 45 46 2e |OR AQU.A|CT.COEF.|
|00015b80| 43 41 4c 43 55 4c 41 54 | 49 4f 4e 53 0a 20 20 20 |CALCULAT|IONS. |
|00015b90| 20 20 20 49 46 28 49 41 | 4f 43 2e 45 51 2e 31 2e | IF(IA|OC.EQ.1.|
|00015ba0| 4f 52 2e 49 41 43 2e 45 | 51 2e 31 29 20 43 41 4c |OR.IAC.E|Q.1) CAL|
|00015bb0| 4c 20 41 51 55 41 43 28 | 50 2c 57 2c 56 2c 56 30 |L AQUAC(|P,W,V,V0|
|00015bc0| 2c 53 56 2c 43 53 2c 41 | 4d 2c 0a 20 20 20 20 20 |,SV,CS,A|M,. |
|00015bd0| 26 42 4d 2c 43 4d 2c 42 | 30 2c 42 31 2c 42 32 2c |&BM,CM,B|0,B1,B2,|
|00015be0| 43 50 2c 41 4c 50 2c 42 | 50 2c 42 47 2c 42 47 50 |CP,ALP,B|P,BG,BGP|
|00015bf0| 2c 43 47 2c 50 43 43 2c | 45 54 48 43 2c 45 54 48 |,CG,PCC,|ETHC,ETH|
|00015c00| 43 50 2c 0a 20 20 20 20 | 20 26 50 41 41 2c 45 54 |CP,. | &PAA,ET|
|00015c10| 48 41 2c 45 54 48 41 50 | 2c 50 43 43 41 2c 50 43 |HA,ETHAP|,PCCA,PC|
|00015c20| 41 41 2c 44 43 41 2c 50 | 4e 43 2c 50 4e 41 2c 50 |AA,DCA,P|NC,PNA,P|
|00015c30| 4e 4e 2c 5a 41 2c 5a 46 | 41 2c 5a 43 2c 5a 46 43 |NN,ZA,ZF|A,ZC,ZFC|
|00015c40| 2c 47 2c 0a 20 20 20 20 | 20 26 49 43 41 2c 49 41 |,G,. | &ICA,IA|
|00015c50| 4e 2c 49 4e 55 2c 4e 5a | 41 2c 49 43 4e 2c 4e 43 |N,INU,NZ|A,ICN,NC|
|00015c60| 41 4c 29 0a 43 0a 43 20 | 20 42 45 47 49 4e 20 45 |AL).C.C | BEGIN E|
|00015c70| 51 55 49 4c 49 42 52 49 | 55 4d 20 43 41 4c 43 55 |QUILIBRI|UM CALCU|
|00015c80| 4c 41 54 49 4f 4e 0a 20 | 20 20 20 20 20 4e 43 41 |LATION. | NCA|
|00015c90| 4c 3d 30 0a 20 20 20 20 | 20 20 49 46 28 49 41 4f |L=0. | IF(IAO|
|00015ca0| 43 2e 45 51 2e 31 2e 41 | 4e 44 2e 49 41 43 2e 45 |C.EQ.1.A|ND.IAC.E|
|00015cb0| 51 2e 30 29 20 54 48 45 | 4e 0a 43 20 20 20 20 20 |Q.0) THE|N.C |
|00015cc0| 20 41 20 43 41 4c 43 55 | 4c 41 54 49 4f 4e 20 49 | A CALCU|LATION I|
|00015cd0| 4e 56 4f 4c 56 49 4e 47 | 20 42 4f 54 48 20 50 48 |NVOLVING| BOTH PH|
|00015ce0| 41 53 45 53 20 49 53 20 | 4e 45 45 44 45 44 0a 20 |ASES IS |NEEDED. |
|00015cf0| 20 20 20 20 20 20 20 4e | 43 41 4c 3d 31 0a 09 47 | N|CAL=1..G|
|00015d00| 4f 54 4f 20 31 35 0a 20 | 20 20 20 20 20 45 4e 44 |OTO 15. | END|
|00015d10| 20 49 46 0a 20 20 20 20 | 20 20 49 46 28 49 4f 43 | IF. | IF(IOC|
|00015d20| 2e 45 51 2e 31 29 20 54 | 48 45 4e 0a 43 20 20 20 |.EQ.1) T|HEN.C |
|00015d30| 20 20 20 41 20 43 41 4c | 43 55 4c 41 54 49 4f 4e | A CAL|CULATION|
|00015d40| 20 49 4e 56 4f 4c 56 49 | 4e 47 20 4f 4e 4c 59 20 | INVOLVI|NG ONLY |
|00015d50| 54 48 45 20 4e 4f 4e 41 | 51 55 45 4f 55 53 20 50 |THE NONA|QUEOUS P|
|00015d60| 48 41 53 45 20 49 53 20 | 4e 45 45 44 45 44 0a 20 |HASE IS |NEEDED. |
|00015d70| 20 20 20 20 20 20 20 4e | 43 41 4c 3d 32 0a 09 47 | N|CAL=2..G|
|00015d80| 4f 54 4f 20 31 35 0a 20 | 20 20 20 20 20 45 4e 44 |OTO 15. | END|
|00015d90| 20 49 46 0a 20 20 20 20 | 20 20 49 46 28 49 41 43 | IF. | IF(IAC|
|00015da0| 2e 45 51 2e 31 29 20 54 | 48 45 4e 0a 43 20 20 20 |.EQ.1) T|HEN.C |
|00015db0| 20 20 20 41 20 43 41 4c | 43 55 4c 41 54 49 4f 4e | A CAL|CULATION|
|00015dc0| 20 49 4e 56 4f 4c 56 49 | 4e 47 20 54 48 45 20 49 | INVOLVI|NG THE I|
|00015dd0| 4e 49 54 49 41 4c 20 41 | 51 2e 50 48 41 53 45 20 |NITIAL A|Q.PHASE |
|00015de0| 49 53 20 4e 45 45 44 45 | 44 0a 20 20 20 20 20 20 |IS NEEDE|D. |
|00015df0| 20 20 4e 43 41 4c 3d 33 | 0a 09 47 4f 54 4f 20 31 | NCAL=3|..GOTO 1|
|00015e00| 35 0a 20 20 20 20 20 20 | 45 4e 44 20 49 46 0a 20 |5. |END IF. |
|00015e10| 20 20 20 20 20 49 46 28 | 4e 43 41 4c 2e 45 51 2e | IF(|NCAL.EQ.|
|00015e20| 30 29 20 54 48 45 4e 0a | 20 20 20 20 20 20 20 20 |0) THEN.| |
|00015e30| 57 52 49 54 45 28 39 2c | 31 30 30 30 29 20 49 50 |WRITE(9,|1000) IP|
|00015e40| 54 2c 4e 43 41 4c 0a 09 | 57 52 49 54 45 28 31 32 |T,NCAL..|WRITE(12|
|00015e50| 2c 31 30 30 30 29 20 49 | 50 54 2c 4e 43 41 4c 0a |,1000) I|PT,NCAL.|
|00015e60| 31 30 30 30 20 20 46 4f | 52 4d 41 54 28 32 58 2c |1000 FO|RMAT(2X,|
|00015e70| 27 50 54 2e 27 2c 49 33 | 2c 27 3a 20 4e 43 41 4c |'PT.',I3|,': NCAL|
|00015e80| 20 20 3d 27 2c 49 32 2c | 27 3a 20 52 45 51 44 2e | =',I2,|': REQD.|
|00015e90| 43 41 4c 43 4e 53 2e 20 | 4e 4f 54 20 27 2c 0a 20 |CALCNS. |NOT ',. |
|00015ea0| 20 20 20 20 26 27 44 45 | 46 49 4e 45 44 20 49 4e | &'DE|FINED IN|
|00015eb0| 20 43 41 4c 43 27 2f 29 | 09 09 09 09 09 09 09 09 | CALC'/)|........|
|00015ec0| 09 0a 20 20 20 20 20 20 | 20 20 50 41 55 53 45 0a |.. | PAUSE.|
|00015ed0| 09 53 54 4f 50 0a 20 20 | 20 20 20 20 45 4e 44 20 |.STOP. | END |
|00015ee0| 49 46 0a 43 0a 31 35 20 | 20 20 20 43 4f 4e 54 49 |IF.C.15 | CONTI|
|00015ef0| 4e 55 45 0a 43 0a 20 20 | 20 20 20 20 49 46 28 49 |NUE.C. | IF(I|
|00015f00| 41 4f 43 2e 45 51 2e 31 | 2e 41 4e 44 2e 49 44 43 |AOC.EQ.1|.AND.IDC|
|00015f10| 2e 45 51 2e 30 29 20 54 | 48 45 4e 0a 43 20 20 20 |.EQ.0) T|HEN.C |
|00015f20| 20 20 20 54 48 49 53 20 | 49 53 20 54 48 45 20 46 | THIS |IS THE F|
|00015f30| 49 52 53 54 20 45 4e 54 | 52 59 20 4f 46 20 54 48 |IRST ENT|RY OF TH|
|00015f40| 49 53 20 43 59 43 4c 45 | 20 46 4f 52 20 41 20 50 |IS CYCLE| FOR A P|
|00015f50| 4f 49 4e 54 20 57 49 54 | 48 20 42 4f 54 48 0a 43 |OINT WIT|H BOTH.C|
|00015f60| 20 20 20 20 20 20 20 50 | 48 41 53 45 53 20 50 52 | P|HASES PR|
|00015f70| 45 53 45 4e 54 3a 20 41 | 53 53 49 47 4e 20 49 4e |ESENT: A|SSIGN IN|
|00015f80| 49 54 49 41 4c 20 54 4f | 54 41 4c 20 53 4f 4c 55 |ITIAL TO|TAL SOLU|
|00015f90| 54 45 20 43 4f 4e 54 45 | 4e 54 53 0a 43 20 20 20 |TE CONTE|NTS.C |
|00015fa0| 20 20 20 20 41 53 53 49 | 47 4e 20 49 4e 49 54 49 | ASSI|GN INITI|
|00015fb0| 41 4c 20 49 4f 4e 20 43 | 4f 4e 43 45 4e 54 52 41 |AL ION C|ONCENTRA|
|00015fc0| 54 49 4f 4e 53 20 49 4e | 20 54 48 45 20 41 51 55 |TIONS IN| THE AQU|
|00015fd0| 45 4f 55 53 20 50 48 41 | 53 45 0a 20 20 20 20 20 |EOUS PHA|SE. |
|00015fe0| 20 20 20 44 4f 20 32 30 | 20 49 3d 33 2c 36 0a 20 | DO 20| I=3,6. |
|00015ff0| 20 20 20 20 20 20 20 43 | 53 28 49 29 3d 58 28 49 | C|S(I)=X(I|
|00016000| 2c 49 50 54 29 0a 32 30 | 20 20 20 20 20 20 43 4f |,IPT).20| CO|
|00016010| 4e 54 49 4e 55 45 0a 20 | 20 20 20 20 20 20 20 43 |NTINUE. | C|
|00016020| 48 49 3d 4e 5a 41 28 34 | 29 2a 43 53 28 35 29 2b |HI=NZA(4|)*CS(5)+|
|00016030| 4e 5a 41 28 35 29 2a 43 | 53 28 36 29 2d 4e 5a 41 |NZA(5)*C|S(6)-NZA|
|00016040| 28 31 29 2a 43 53 28 33 | 29 2b 4e 5a 41 28 32 29 |(1)*CS(3|)+NZA(2)|
|00016050| 2a 43 53 28 34 29 0a 09 | 49 46 28 43 48 49 2e 47 |*CS(4)..|IF(CHI.G|
|00016060| 45 2e 5a 45 52 4f 29 20 | 54 48 45 4e 0a 09 20 20 |E.ZERO) |THEN.. |
|00016070| 43 53 28 37 29 3d 43 48 | 49 0a 09 20 20 43 53 28 |CS(7)=CH|I.. CS(|
|00016080| 38 29 3d 5a 45 52 4f 0a | 09 45 4c 53 45 0a 09 20 |8)=ZERO.|.ELSE.. |
|00016090| 20 43 53 28 37 29 3d 5a | 45 52 4f 0a 09 20 20 43 | CS(7)=Z|ERO.. C|
|000160a0| 53 28 38 29 3d 2d 43 48 | 49 0a 09 45 4e 44 20 49 |S(8)=-CH|I..END I|
|000160b0| 46 0a 20 20 20 20 20 20 | 20 20 49 46 28 4e 53 41 |F. | IF(NSA|
|000160c0| 2e 47 54 2e 30 29 20 54 | 48 45 4e 0a 09 20 20 44 |.GT.0) T|HEN.. D|
|000160d0| 4f 20 32 35 20 49 3d 31 | 2c 4e 53 41 0a 09 20 20 |O 25 I=1|,NSA.. |
|000160e0| 43 53 28 38 2b 4e 53 4f | 2b 49 29 3d 5a 45 52 4f |CS(8+NSO|+I)=ZERO|
|000160f0| 0a 32 35 20 20 20 20 20 | 20 20 20 43 4f 4e 54 49 |.25 | CONTI|
|00016100| 4e 55 45 0a 20 20 20 20 | 20 20 20 20 45 4e 44 20 |NUE. | END |
|00016110| 49 46 0a 43 20 20 20 20 | 20 20 20 43 41 4c 43 55 |IF.C | CALCU|
|00016120| 4c 41 54 45 20 53 4f 4c | 55 54 45 20 43 4f 4e 54 |LATE SOL|UTE CONT|
|00016130| 45 4e 54 53 0a 20 20 20 | 20 20 20 20 20 49 46 28 |ENTS. | IF(|
|00016140| 49 43 4e 2e 45 51 2e 31 | 29 20 54 48 45 4e 0a 43 |ICN.EQ.1|) THEN.C|
|00016150| 20 20 20 20 20 20 20 20 | 43 41 4c 43 55 4c 41 54 | |CALCULAT|
|00016160| 45 20 49 4e 49 54 49 41 | 4c 20 53 4f 4c 55 54 45 |E INITIA|L SOLUTE|
|00016170| 20 56 4f 4c 55 4d 45 53 | 20 49 4e 20 4e 4f 4e 41 | VOLUMES| IN NONA|
|00016180| 51 55 45 4f 55 53 20 50 | 48 41 53 45 0a 09 20 20 |QUEOUS P|HASE.. |
|00016190| 54 53 4f 49 3d 56 28 31 | 29 2a 58 28 31 2c 49 50 |TSOI=V(1|)*X(1,IP|
|000161a0| 54 29 2f 4e 43 52 28 31 | 29 2b 56 28 32 29 2a 58 |T)/NCR(1|)+V(2)*X|
|000161b0| 28 32 2c 49 50 54 29 2f | 4e 43 52 28 32 29 0a 43 |(2,IPT)/|NCR(2).C|
|000161c0| 20 20 20 20 20 20 20 20 | 53 48 4f 55 4c 44 20 49 | |SHOULD I|
|000161d0| 4e 49 54 49 41 4c 20 41 | 50 50 41 52 45 4e 54 20 |NITIAL A|PPARENT |
|000161e0| 4d 4f 4c 41 52 20 56 4f | 4c 55 4d 45 53 20 42 45 |MOLAR VO|LUMES BE|
|000161f0| 20 43 41 4c 43 55 4c 41 | 54 45 44 20 48 45 52 45 | CALCULA|TED HERE|
|00016200| 3f 20 0a 20 20 20 20 20 | 20 20 20 20 20 49 46 28 |? . | IF(|
|00016210| 49 41 43 2e 45 51 2e 30 | 29 20 54 48 45 4e 0a 43 |IAC.EQ.0|) THEN.C|
|00016220| 20 20 20 20 20 20 20 20 | 20 20 43 41 4c 43 55 4c | | CALCUL|
|00016230| 41 54 49 4f 4e 20 57 49 | 4c 4c 20 4e 4f 54 20 42 |ATION WI|LL NOT B|
|00016240| 45 20 4d 41 44 45 20 4c | 41 54 45 52 2e 20 43 41 |E MADE L|ATER. CA|
|00016250| 4c 43 55 4c 41 54 45 20 | 54 48 45 4d 20 48 45 52 |LCULATE |THEM HER|
|00016260| 45 0a 09 20 20 20 20 43 | 41 4c 4c 20 45 4e 54 41 |E.. C|ALL ENTA|
|00016270| 41 43 28 50 2c 57 2c 56 | 2c 56 30 2c 53 56 2c 43 |AC(P,W,V|,V0,SV,C|
|00016280| 53 2c 41 4d 2c 0a 20 20 | 20 20 20 26 20 20 20 20 |S,AM,. | & |
|00016290| 20 20 42 4d 2c 43 4d 2c | 42 30 2c 42 31 2c 42 32 | BM,CM,|B0,B1,B2|
|000162a0| 2c 43 50 2c 41 4c 50 2c | 42 50 2c 42 47 2c 42 47 |,CP,ALP,|BP,BG,BG|
|000162b0| 50 2c 43 47 2c 50 43 43 | 2c 45 54 48 43 2c 45 54 |P,CG,PCC|,ETHC,ET|
|000162c0| 48 43 50 2c 0a 20 20 20 | 20 20 26 20 20 20 20 20 |HCP,. | & |
|000162d0| 20 50 41 41 2c 45 54 48 | 41 2c 45 54 48 41 50 2c | PAA,ETH|A,ETHAP,|
|000162e0| 50 43 43 41 2c 50 43 41 | 41 2c 44 43 41 2c 50 4e |PCCA,PCA|A,DCA,PN|
|000162f0| 43 2c 0a 20 20 20 20 20 | 26 20 20 20 20 20 20 50 |C,. |& P|
|00016300| 4e 41 2c 50 4e 4e 2c 5a | 41 2c 5a 46 41 2c 5a 43 |NA,PNN,Z|A,ZFA,ZC|
|00016310| 2c 5a 46 43 2c 47 2c 49 | 43 41 2c 49 41 4e 2c 49 |,ZFC,G,I|CA,IAN,I|
|00016320| 4e 55 2c 4e 5a 41 2c 49 | 43 4e 2c 4e 43 41 4c 29 |NU,NZA,I|CN,NCAL)|
|00016330| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 54 53 41 |. | TSA|
|00016340| 49 3d 54 56 53 41 0a 09 | 20 20 45 4e 44 20 49 46 |I=TVSA..| END IF|
|00016350| 0a 20 20 20 20 20 20 20 | 20 45 4c 53 45 0a 43 20 |. | ELSE.C |
|00016360| 20 20 20 20 20 20 20 43 | 41 4c 43 55 4c 41 54 45 | C|ALCULATE|
|00016370| 20 49 4e 49 54 49 41 4c | 20 53 4f 4c 55 54 45 20 | INITIAL| SOLUTE |
|00016380| 57 45 49 47 48 54 53 20 | 49 4e 20 4e 4f 4e 41 51 |WEIGHTS |IN NONAQ|
|00016390| 55 45 4f 55 53 20 50 48 | 41 53 45 0a 20 20 20 20 |UEOUS PH|ASE. |
|000163a0| 20 20 20 20 20 20 54 53 | 4f 49 3d 57 28 31 29 2a | TS|OI=W(1)*|
|000163b0| 58 28 31 2c 49 50 54 29 | 2f 4e 43 52 28 31 29 2b |X(1,IPT)|/NCR(1)+|
|000163c0| 57 28 32 29 2a 58 28 32 | 2c 49 50 54 29 2f 4e 43 |W(2)*X(2|,IPT)/NC|
|000163d0| 52 28 32 29 0a 43 20 20 | 20 20 20 20 20 20 43 41 |R(2).C | CA|
|000163e0| 4c 43 55 4c 41 54 45 20 | 49 4e 49 54 49 41 4c 20 |LCULATE |INITIAL |
|000163f0| 53 4f 4c 55 54 45 20 57 | 45 49 47 48 54 53 20 49 |SOLUTE W|EIGHTS I|
|00016400| 4e 20 41 51 55 45 4f 55 | 53 20 50 48 41 53 45 0a |N AQUEOU|S PHASE.|
|00016410| 20 20 20 20 20 20 20 20 | 20 20 54 53 41 49 3d 5a | | TSAI=Z|
|00016420| 45 52 4f 0a 20 20 20 20 | 20 20 20 20 20 20 44 4f |ERO. | DO|
|00016430| 20 33 30 20 49 3d 33 2c | 38 0a 20 20 20 20 20 20 | 30 I=3,|8. |
|00016440| 20 20 20 20 54 53 41 49 | 3d 54 53 41 49 2b 57 28 | TSAI|=TSAI+W(|
|00016450| 49 29 2a 43 53 28 49 29 | 0a 33 30 20 20 20 20 20 |I)*CS(I)|.30 |
|00016460| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 20 20 20 20 | CONTI|NUE. |
|00016470| 20 20 20 20 45 4e 44 20 | 49 46 0a 20 20 20 20 20 | END |IF. |
|00016480| 20 45 4e 44 20 49 46 0a | 43 0a 33 35 20 20 20 20 | END IF.|C.35 |
|00016490| 43 41 4c 4c 20 45 53 54 | 28 58 2c 58 53 2c 58 43 |CALL EST|(X,XS,XC|
|000164a0| 53 2c 58 43 4f 53 2c 58 | 43 41 53 2c 58 43 2c 49 |S,XCOS,X|CAS,XC,I|
|000164b0| 50 54 2c 20 49 44 43 2c | 49 43 4f 4e 56 2c 4e 43 |PT, IDC,|ICONV,NC|
|000164c0| 41 4c 2c 49 53 54 2c 49 | 45 51 2c 49 45 48 29 0a |AL,IST,I|EQ,IEH).|
|000164d0| 43 0a 43 20 20 43 41 4c | 4c 20 46 43 4e 20 54 4f |C.C CAL|L FCN TO|
|000164e0| 20 44 45 54 45 52 4d 49 | 4e 45 20 4e 4f 2e 20 4f | DETERMI|NE NO. O|
|000164f0| 46 20 45 51 4e 53 2e 54 | 4f 20 42 45 20 53 4f 4c |F EQNS.T|O BE SOL|
|00016500| 56 45 44 2c 20 41 4e 44 | 20 54 4f 20 4d 41 4b 45 |VED, AND| TO MAKE|
|00016510| 0a 43 20 20 20 49 4e 49 | 54 49 41 4c 20 45 53 54 |.C INI|TIAL EST|
|00016520| 49 4d 41 54 45 20 4f 46 | 20 50 52 4f 44 55 43 54 |IMATE OF| PRODUCT|
|00016530| 20 53 50 45 43 49 45 20 | 43 4f 4e 43 4e 53 2e 0a | SPECIE |CONCNS..|
|00016540| 20 20 20 20 20 20 43 41 | 4c 4c 20 46 43 4e 28 4e | CA|LL FCN(N|
|00016550| 45 51 2c 58 43 4c 2c 46 | 43 4c 2c 49 45 52 2c 50 |EQ,XCL,F|CL,IER,P|
|00016560| 2c 57 2c 56 2c 0a 20 20 | 20 20 20 26 56 30 2c 53 |,W,V,. | &V0,S|
|00016570| 56 2c 43 53 2c 52 4f 43 | 2c 52 41 43 2c 45 4f 43 |V,CS,ROC|,RAC,EOC|
|00016580| 2c 43 45 4f 43 2c 52 45 | 4f 43 2c 53 45 4f 43 2c |,CEOC,RE|OC,SEOC,|
|00016590| 45 41 43 2c 46 4f 43 2c | 46 41 43 2c 46 4f 4b 2c |EAC,FOC,|FAC,FOK,|
|000165a0| 52 46 4f 4b 2c 0a 20 20 | 20 20 20 26 53 46 4f 4b |RFOK,. | &SFOK|
|000165b0| 2c 46 41 4b 2c 41 4d 2c | 42 4d 2c 43 4d 2c 42 30 |,FAK,AM,|BM,CM,B0|
|000165c0| 2c 42 31 2c 42 32 2c 43 | 50 2c 41 4c 50 2c 42 50 |,B1,B2,C|P,ALP,BP|
|000165d0| 2c 42 47 2c 42 47 50 2c | 43 47 2c 0a 20 20 20 20 |,BG,BGP,|CG,. |
|000165e0| 20 26 50 43 43 2c 45 54 | 48 43 2c 45 54 48 43 50 | &PCC,ET|HC,ETHCP|
|000165f0| 2c 50 41 41 2c 45 54 48 | 41 2c 45 54 48 41 50 2c |,PAA,ETH|A,ETHAP,|
|00016600| 50 43 43 41 2c 50 43 41 | 41 2c 44 43 41 2c 50 4e |PCCA,PCA|A,DCA,PN|
|00016610| 43 2c 50 4e 41 2c 50 4e | 4e 2c 5a 41 2c 5a 46 41 |C,PNA,PN|N,ZA,ZFA|
|00016620| 2c 0a 20 20 20 20 20 26 | 5a 43 2c 5a 46 43 2c 47 |,. &|ZC,ZFC,G|
|00016630| 2c 47 4f 2c 47 58 30 2c | 56 52 54 2c 50 48 2c 50 |,GO,GX0,|VRT,PH,P|
|00016640| 48 56 2c 58 46 2c 47 58 | 2c 41 43 2c 58 2c 58 43 |HV,XF,GX|,AC,X,XC|
|00016650| 2c 43 41 50 2c 0a 20 20 | 20 20 20 26 43 4f 50 2c |,CAP,. | &COP,|
|00016660| 52 5a 49 52 2c 53 43 50 | 53 49 2c 4e 43 4f 50 2c |RZIR,SCP|SI,NCOP,|
|00016670| 4e 43 41 50 2c 4e 46 2c | 49 43 41 2c 49 41 4e 2c |NCAP,NF,|ICA,IAN,|
|00016680| 49 4e 55 2c 49 50 54 2c | 4e 5a 41 2c 4e 5a 50 4f |INU,IPT,|NZA,NZPO|
|00016690| 2c 49 59 2c 4e 43 41 4c | 2c 0a 20 20 20 20 20 26 |,IY,NCAL|,. &|
|000166a0| 49 45 51 2c 49 45 48 2c | 49 43 4e 2c 49 53 54 2c |IEQ,IEH,|ICN,IST,|
|000166b0| 49 44 43 2c 4e 50 53 49 | 29 0a 43 0a 43 20 20 20 |IDC,NPSI|).C.C |
|000166c0| 20 20 57 52 49 54 45 28 | 31 37 2c 34 33 32 31 29 | WRITE(|17,4321)|
|000166d0| 20 49 52 45 46 2c 4e 45 | 51 2c 28 4e 46 28 4b 29 | IREF,NE|Q,(NF(K)|
|000166e0| 2c 4b 3d 31 2c 4e 45 51 | 29 0a 43 34 33 32 31 20 |,K=1,NEQ|).C4321 |
|000166f0| 20 46 4f 52 4d 41 54 28 | 2f 31 58 2c 27 49 52 45 | FORMAT(|/1X,'IRE|
|00016700| 46 2c 4e 45 51 2c 20 4e | 46 3a 27 2c 32 49 35 2c |F,NEQ, N|F:',2I5,|
|00016710| 31 30 49 33 29 0a 43 0a | 20 20 20 20 20 20 49 46 |10I3).C.| IF|
|00016720| 28 4e 45 51 2e 45 51 2e | 30 29 20 54 48 45 4e 0a |(NEQ.EQ.|0) THEN.|
|00016730| 20 20 20 20 20 20 20 20 | 49 46 28 4e 43 41 4c 2e | |IF(NCAL.|
|00016740| 4e 45 2e 33 29 20 0a 20 | 20 20 20 20 26 20 20 20 |NE.3) . | & |
|00016750| 43 41 4c 4c 20 45 4e 54 | 4f 41 43 28 50 2c 57 2c |CALL ENT|OAC(P,W,|
|00016760| 56 2c 58 46 2c 47 58 2c | 43 53 2c 47 2c 41 43 2c |V,XF,GX,|CS,G,AC,|
|00016770| 47 4f 2c 47 58 30 2c 56 | 52 54 2c 50 48 2c 50 48 |GO,GX0,V|RT,PH,PH|
|00016780| 56 2c 4e 5a 50 4f 2c 49 | 43 4e 29 0a 20 20 20 20 |V,NZPO,I|CN). |
|00016790| 20 20 20 20 49 46 28 4e | 43 41 4c 2e 4e 45 2e 32 | IF(N|CAL.NE.2|
|000167a0| 29 0a 20 20 20 20 20 26 | 20 20 20 43 41 4c 4c 20 |). &| CALL |
|000167b0| 45 4e 54 41 41 43 28 50 | 2c 57 2c 56 2c 56 30 2c |ENTAAC(P|,W,V,V0,|
|000167c0| 53 56 2c 43 53 2c 41 4d | 2c 42 4d 2c 43 4d 2c 42 |SV,CS,AM|,BM,CM,B|
|000167d0| 30 2c 42 31 2c 42 32 2c | 43 50 2c 41 4c 50 2c 42 |0,B1,B2,|CP,ALP,B|
|000167e0| 50 2c 0a 20 20 20 20 20 | 26 20 20 42 47 2c 42 47 |P,. |& BG,BG|
|000167f0| 50 2c 43 47 2c 50 43 43 | 2c 45 54 48 43 2c 45 54 |P,CG,PCC|,ETHC,ET|
|00016800| 48 43 50 2c 50 41 41 2c | 45 54 48 41 2c 45 54 48 |HCP,PAA,|ETHA,ETH|
|00016810| 41 50 2c 50 43 43 41 2c | 50 43 41 41 2c 44 43 41 |AP,PCCA,|PCAA,DCA|
|00016820| 2c 50 4e 43 2c 0a 20 20 | 20 20 20 26 20 20 50 4e |,PNC,. | & PN|
|00016830| 41 2c 50 4e 4e 2c 5a 41 | 2c 5a 46 41 2c 5a 43 2c |A,PNN,ZA|,ZFA,ZC,|
|00016840| 5a 46 43 2c 47 2c 49 43 | 41 2c 49 41 4e 2c 49 4e |ZFC,G,IC|A,IAN,IN|
|00016850| 55 2c 4e 5a 41 2c 49 43 | 4e 2c 4e 43 41 4c 29 20 |U,NZA,IC|N,NCAL) |
|00016860| 20 20 20 20 0a 20 20 20 | 20 20 20 20 20 47 4f 54 | . | GOT|
|00016870| 4f 20 39 35 0a 20 20 20 | 20 20 20 45 4e 44 20 49 |O 95. | END I|
|00016880| 46 0a 43 0a 43 20 20 20 | 42 45 47 49 4e 20 52 45 |F.C.C |BEGIN RE|
|00016890| 46 49 4e 45 4d 45 4e 54 | 0a 43 0a 20 20 20 20 20 |FINEMENT|.C. |
|000168a0| 20 4d 41 58 43 59 43 3d | 30 0a 20 20 20 20 20 20 | MAXCYC=|0. |
|000168b0| 53 4d 49 4e 3d 53 4d 49 | 4e 53 2f 44 42 4c 45 28 |SMIN=SMI|NS/DBLE(|
|000168c0| 4e 45 51 29 0a 20 20 20 | 20 20 20 53 4d 4e 53 41 |NEQ). | SMNSA|
|000168d0| 56 3d 53 4d 49 4e 0a 43 | 20 20 20 20 41 53 53 49 |V=SMIN.C| ASSI|
|000168e0| 47 4e 20 56 41 4c 55 45 | 53 20 54 4f 20 42 45 20 |GN VALUE|S TO BE |
|000168f0| 52 45 46 49 4e 45 44 0a | 20 20 20 20 20 20 44 4f |REFINED.| DO|
|00016900| 20 34 30 20 49 3d 31 2c | 4e 45 51 0a 20 20 20 20 | 40 I=1,|NEQ. |
|00016910| 20 20 58 43 4c 28 49 29 | 3d 58 43 28 4e 46 28 49 | XCL(I)|=XC(NF(I|
|00016920| 29 29 0a 34 30 20 20 20 | 20 43 4f 4e 54 49 4e 55 |)).40 | CONTINU|
|00016930| 45 0a 43 0a 43 20 20 20 | 20 20 20 57 52 49 54 45 |E.C.C | WRITE|
|00016940| 28 2a 2c 31 32 30 30 29 | 28 58 43 4c 28 49 29 2c |(*,1200)|(XCL(I),|
|00016950| 49 3d 31 2c 4e 45 51 29 | 0a 43 31 32 30 30 20 20 |I=1,NEQ)|.C1200 |
|00016960| 46 4f 52 4d 41 54 28 31 | 58 2c 27 20 20 20 20 46 |FORMAT(1|X,' F|
|00016970| 52 4f 4d 20 45 53 54 3a | 20 58 43 4c 20 3d 20 27 |ROM EST:| XCL = '|
|00016980| 2f 28 31 58 2c 35 46 31 | 35 2e 31 30 29 29 0a 43 |/(1X,5F1|5.10)).C|
|00016990| 0a 43 20 20 20 20 44 45 | 54 45 52 4d 49 4e 45 20 |.C DE|TERMINE |
|000169a0| 49 46 20 53 49 4d 50 4c | 45 58 20 52 45 46 49 4e |IF SIMPL|EX REFIN|
|000169b0| 45 4d 45 4e 54 20 4f 46 | 20 58 43 4c 20 56 41 4c |EMENT OF| XCL VAL|
|000169c0| 55 45 53 20 49 53 20 4e | 45 45 44 45 44 0a 20 20 |UES IS N|EEDED. |
|000169d0| 20 20 20 20 43 41 4c 4c | 20 45 4e 54 46 43 4e 28 | CALL| ENTFCN(|
|000169e0| 4e 45 51 2c 58 43 4c 2c | 46 43 4c 2c 49 45 52 2c |NEQ,XCL,|FCL,IER,|
|000169f0| 50 2c 57 2c 56 2c 0a 20 | 20 20 20 20 26 56 30 2c |P,W,V,. | &V0,|
|00016a00| 53 56 2c 43 53 2c 52 4f | 43 2c 52 41 43 2c 45 4f |SV,CS,RO|C,RAC,EO|
|00016a10| 43 2c 43 45 4f 43 2c 52 | 45 4f 43 2c 53 45 4f 43 |C,CEOC,R|EOC,SEOC|
|00016a20| 2c 45 41 43 2c 46 4f 43 | 2c 46 41 43 2c 46 4f 4b |,EAC,FOC|,FAC,FOK|
|00016a30| 2c 52 46 4f 4b 2c 0a 20 | 20 20 20 20 26 53 46 4f |,RFOK,. | &SFO|
|00016a40| 4b 2c 46 41 4b 2c 41 4d | 2c 42 4d 2c 43 4d 2c 42 |K,FAK,AM|,BM,CM,B|
|00016a50| 30 2c 42 31 2c 42 32 2c | 43 50 2c 41 4c 50 2c 42 |0,B1,B2,|CP,ALP,B|
|00016a60| 50 2c 42 47 2c 42 47 50 | 2c 43 47 2c 0a 20 20 20 |P,BG,BGP|,CG,. |
|00016a70| 20 20 26 50 43 43 2c 45 | 54 48 43 2c 45 54 48 43 | &PCC,E|THC,ETHC|
|00016a80| 50 2c 50 41 41 2c 45 54 | 48 41 2c 45 54 48 41 50 |P,PAA,ET|HA,ETHAP|
|00016a90| 2c 50 43 43 41 2c 50 43 | 41 41 2c 44 43 41 2c 50 |,PCCA,PC|AA,DCA,P|
|00016aa0| 4e 43 2c 50 4e 41 2c 50 | 4e 4e 2c 5a 41 2c 5a 46 |NC,PNA,P|NN,ZA,ZF|
|00016ab0| 41 2c 0a 20 20 20 20 20 | 26 5a 43 2c 5a 46 43 2c |A,. |&ZC,ZFC,|
|00016ac0| 47 2c 47 4f 2c 47 58 30 | 2c 56 52 54 2c 50 48 2c |G,GO,GX0|,VRT,PH,|
|00016ad0| 50 48 56 2c 58 46 2c 47 | 58 2c 41 43 2c 58 2c 58 |PHV,XF,G|X,AC,X,X|
|00016ae0| 43 2c 43 41 50 2c 0a 20 | 20 20 20 20 26 43 4f 50 |C,CAP,. | &COP|
|00016af0| 2c 52 5a 49 52 2c 53 43 | 50 53 49 2c 4e 43 4f 50 |,RZIR,SC|PSI,NCOP|
|00016b00| 2c 4e 43 41 50 2c 4e 46 | 2c 49 43 41 2c 49 41 4e |,NCAP,NF|,ICA,IAN|
|00016b10| 2c 49 4e 55 2c 49 50 54 | 2c 4e 5a 41 2c 4e 5a 50 |,INU,IPT|,NZA,NZP|
|00016b20| 4f 2c 49 59 2c 4e 43 41 | 4c 2c 0a 20 20 20 20 20 |O,IY,NCA|L,. |
|00016b30| 26 49 45 51 2c 49 45 48 | 2c 49 43 4e 2c 49 53 54 |&IEQ,IEH|,ICN,IST|
|00016b40| 2c 49 44 43 2c 4e 50 53 | 49 29 0a 20 20 20 20 20 |,IDC,NPS|I). |
|00016b50| 20 54 46 43 4c 3d 5a 45 | 52 4f 0a 20 20 20 20 20 | TFCL=ZE|RO. |
|00016b60| 20 44 4f 20 34 35 20 49 | 3d 31 2c 4e 45 51 0a 20 | DO 45 I|=1,NEQ. |
|00016b70| 20 20 20 20 20 54 46 43 | 4c 3d 54 46 43 4c 2b 46 | TFC|L=TFCL+F|
|00016b80| 43 4c 28 49 29 2a 2a 32 | 0a 20 20 20 20 20 20 45 |CL(I)**2|. E|
|00016b90| 58 43 28 49 29 3d 44 45 | 58 43 0a 34 35 20 20 20 |XC(I)=DE|XC.45 |
|00016ba0| 20 43 4f 4e 54 49 4e 55 | 45 0a 20 20 20 20 20 20 | CONTINU|E. |
|00016bb0| 54 46 43 3d 44 53 51 52 | 54 28 54 46 43 4c 29 2f |TFC=DSQR|T(TFCL)/|
|00016bc0| 4e 45 51 0a 43 20 20 20 | 20 20 20 57 52 49 54 45 |NEQ.C | WRITE|
|00016bd0| 28 39 2c 31 30 34 39 29 | 20 4e 45 51 2c 28 4e 46 |(9,1049)| NEQ,(NF|
|00016be0| 28 49 29 2c 49 3d 31 2c | 4e 45 51 29 0a 43 20 20 |(I),I=1,|NEQ).C |
|00016bf0| 20 20 20 20 57 52 49 54 | 45 28 31 37 2c 31 30 34 | WRIT|E(17,104|
|00016c00| 39 29 20 4e 45 51 2c 28 | 4e 46 28 49 29 2c 49 3d |9) NEQ,(|NF(I),I=|
|00016c10| 31 2c 4e 45 51 29 0a 43 | 31 30 34 39 20 20 46 4f |1,NEQ).C|1049 FO|
|00016c20| 52 4d 41 54 28 31 58 2c | 27 4e 45 51 20 3d 27 2c |RMAT(1X,|'NEQ =',|
|00016c30| 49 33 2f 31 58 2c 27 20 | 4e 46 20 3d 20 27 2c 38 |I3/1X,' |NF = ',8|
|00016c40| 49 39 29 20 20 20 20 20 | 20 0a 43 20 20 20 20 20 |I9) | .C |
|00016c50| 20 57 52 49 54 45 28 39 | 2c 31 30 37 30 29 20 28 | WRITE(9|,1070) (|
|00016c60| 58 43 4c 28 49 29 2c 49 | 3d 31 2c 4e 45 51 29 0a |XCL(I),I|=1,NEQ).|
|00016c70| 43 20 20 20 20 20 20 57 | 52 49 54 45 28 31 37 2c |C W|RITE(17,|
|00016c80| 31 30 37 30 29 20 28 58 | 43 4c 28 49 29 2c 49 3d |1070) (X|CL(I),I=|
|00016c90| 31 2c 4e 45 51 29 0a 43 | 31 30 37 30 20 20 46 4f |1,NEQ).C|1070 FO|
|00016ca0| 52 4d 41 54 28 31 58 2c | 27 58 43 4c 20 3d 20 27 |RMAT(1X,|'XCL = '|
|00016cb0| 2c 31 50 38 45 39 2e 31 | 29 0a 43 20 20 20 20 20 |,1P8E9.1|).C |
|00016cc0| 20 57 52 49 54 45 28 39 | 2c 31 30 35 30 29 20 28 | WRITE(9|,1050) (|
|00016cd0| 46 43 4c 28 49 29 2c 49 | 3d 31 2c 4e 45 51 29 0a |FCL(I),I|=1,NEQ).|
|00016ce0| 43 20 20 20 20 20 20 57 | 52 49 54 45 28 31 37 2c |C W|RITE(17,|
|00016cf0| 31 30 35 30 29 20 28 46 | 43 4c 28 49 29 2c 49 3d |1050) (F|CL(I),I=|
|00016d00| 31 2c 4e 45 51 29 0a 43 | 31 30 35 30 20 20 46 4f |1,NEQ).C|1050 FO|
|00016d10| 52 4d 41 54 28 31 58 2c | 27 46 43 4c 20 3d 20 27 |RMAT(1X,|'FCL = '|
|00016d20| 2c 31 50 38 45 39 2e 31 | 29 20 20 20 20 20 20 0a |,1P8E9.1|) .|
|00016d30| 34 38 20 20 20 20 57 52 | 49 54 45 28 31 37 2c 31 |48 WR|ITE(17,1|
|00016d40| 30 30 31 29 20 49 50 54 | 2c 4e 43 41 4c 2c 53 4d |001) IPT|,NCAL,SM|
|00016d50| 49 4e 2c 54 46 43 0a 43 | 20 20 20 20 20 20 57 52 |IN,TFC.C| WR|
|00016d60| 49 54 45 28 39 2c 31 30 | 30 31 29 20 49 50 54 2c |ITE(9,10|01) IPT,|
|00016d70| 4e 43 41 4c 2c 53 4d 49 | 4e 2c 54 46 43 0a 31 30 |NCAL,SMI|N,TFC.10|
|00016d80| 30 31 20 20 46 4f 52 4d | 41 54 28 32 58 2c 27 50 |01 FORM|AT(2X,'P|
|00016d90| 54 2e 27 2c 49 33 2c 27 | 3a 20 4e 43 41 4c 20 20 |T.',I3,'|: NCAL |
|00016da0| 3d 27 2c 49 32 2c 0a 20 | 20 20 20 20 26 27 3a 20 |=',I2,. | &': |
|00016db0| 20 44 45 53 49 52 45 44 | 20 52 45 53 2e 20 3d 27 | DESIRED| RES. ='|
|00016dc0| 2c 46 37 2e 34 2c 27 3a | 20 49 4e 49 54 49 41 4c |,F7.4,':| INITIAL|
|00016dd0| 20 52 45 53 2e 20 3d 27 | 2c 46 39 2e 33 29 0a 43 | RES. ='|,F9.3).C|
|00016de0| 0a 43 20 20 20 20 20 20 | 49 46 28 28 54 46 43 2f |.C |IF((TFC/|
|00016df0| 53 4d 49 4e 29 2e 47 54 | 2e 54 45 4e 29 20 54 48 |SMIN).GT|.TEN) TH|
|00016e00| 45 4e 0a 43 20 20 20 20 | 20 20 20 20 57 52 49 54 |EN.C | WRIT|
|00016e10| 45 28 31 37 2c 32 31 31 | 33 29 28 4e 46 28 49 29 |E(17,211|3)(NF(I)|
|00016e20| 2c 49 3d 31 2c 4e 45 51 | 29 0a 43 32 31 31 33 20 |,I=1,NEQ|).C2113 |
|00016e30| 20 20 20 46 4f 52 4d 41 | 54 28 31 58 2c 27 4e 46 | FORMA|T(1X,'NF|
|00016e40| 20 3d 20 27 2c 28 31 30 | 49 34 29 29 0a 43 20 20 | = ',(10|I4)).C |
|00016e50| 20 20 20 20 20 20 57 52 | 49 54 45 28 31 37 2c 32 | WR|ITE(17,2|
|00016e60| 31 32 30 29 28 58 43 4c | 28 49 29 2c 49 3d 31 2c |120)(XCL|(I),I=1,|
|00016e70| 4e 45 51 29 0a 43 32 31 | 32 30 20 20 20 20 46 4f |NEQ).C21|20 FO|
|00016e80| 52 4d 41 54 28 31 58 2c | 27 58 43 4c 20 3d 20 27 |RMAT(1X,|'XCL = '|
|00016e90| 2f 28 31 58 2c 35 46 31 | 35 2e 31 30 29 29 0a 43 |/(1X,5F1|5.10)).C|
|00016ea0| 20 20 20 20 20 20 20 20 | 57 52 49 54 45 28 31 37 | |WRITE(17|
|00016eb0| 2c 32 31 32 31 29 20 28 | 46 43 4c 28 49 29 2c 49 |,2121) (|FCL(I),I|
|00016ec0| 3d 31 2c 4e 45 51 29 0a | 43 32 31 32 31 20 20 20 |=1,NEQ).|C2121 |
|00016ed0| 20 46 4f 52 4d 41 54 28 | 31 58 2c 27 46 43 4c 20 | FORMAT(|1X,'FCL |
|00016ee0| 3d 20 27 2c 31 50 38 45 | 39 2e 32 29 0a 43 20 20 |= ',1P8E|9.2).C |
|00016ef0| 20 20 20 20 45 4e 44 20 | 49 46 0a 43 20 20 20 20 | END |IF.C |
|00016f00| 20 0a 20 20 20 20 20 20 | 49 46 28 54 46 43 2e 4c | . |IF(TFC.L|
|00016f10| 45 2e 53 4d 49 4e 29 20 | 47 4f 20 54 4f 20 38 30 |E.SMIN) |GO TO 80|
|00016f20| 0a 43 20 20 52 45 46 49 | 4e 45 20 56 41 4c 55 45 |.C REFI|NE VALUE|
|00016f30| 53 20 42 59 20 55 53 45 | 20 4f 46 20 54 48 45 20 |S BY USE| OF THE |
|00016f40| 53 49 4d 50 4c 45 58 20 | 50 52 4f 43 45 44 55 52 |SIMPLEX |PROCEDUR|
|00016f50| 45 0a 20 20 20 20 20 20 | 4e 45 51 55 3d 4e 45 51 |E. |NEQU=NEQ|
|00016f60| 0a 20 20 20 20 20 20 53 | 4d 54 4f 4c 3d 53 4d 54 |. S|MTOL=SMT|
|00016f70| 4c 0a 20 20 20 20 20 20 | 4e 43 59 53 4d 3d 4e 43 |L. |NCYSM=NC|
|00016f80| 53 4d 0a 20 20 20 20 20 | 20 43 41 4c 4c 20 53 4d |SM. | CALL SM|
|00016f90| 50 4c 58 28 4e 45 51 55 | 2c 45 58 43 2c 53 4d 54 |PLX(NEQU|,EXC,SMT|
|00016fa0| 4f 4c 2c 4e 43 59 53 4d | 2c 45 50 2c 50 54 2c 46 |OL,NCYSM|,EP,PT,F|
|00016fb0| 58 2c 4b 58 2c 50 42 29 | 0a 20 20 20 20 20 20 4e |X,KX,PB)|. N|
|00016fc0| 53 58 3d 30 0a 20 20 20 | 20 20 20 54 46 43 53 3d |SX=0. | TFCS=|
|00016fd0| 54 46 43 53 4d 0a 35 30 | 20 20 20 20 44 4f 20 37 |TFCSM.50| DO 7|
|00016fe0| 30 20 4b 4b 3d 31 2c 49 | 54 32 0a 20 20 20 20 20 |0 KK=1,I|T2. |
|00016ff0| 20 49 46 28 4e 53 58 2e | 45 51 2e 30 29 20 47 4f | IF(NSX.|EQ.0) GO|
|00017000| 54 4f 20 36 30 0a 20 20 | 20 20 20 20 43 41 4c 4c |TO 60. | CALL|
|00017010| 20 45 4e 54 46 43 4e 28 | 4e 45 51 2c 58 43 4c 2c | ENTFCN(|NEQ,XCL,|
|00017020| 46 43 4c 2c 49 45 52 2c | 50 2c 57 2c 56 2c 0a 20 |FCL,IER,|P,W,V,. |
|00017030| 20 20 20 20 26 56 30 2c | 53 56 2c 43 53 2c 52 4f | &V0,|SV,CS,RO|
|00017040| 43 2c 52 41 43 2c 45 4f | 43 2c 43 45 4f 43 2c 52 |C,RAC,EO|C,CEOC,R|
|00017050| 45 4f 43 2c 53 45 4f 43 | 2c 45 41 43 2c 46 4f 43 |EOC,SEOC|,EAC,FOC|
|00017060| 2c 46 41 43 2c 46 4f 4b | 2c 52 46 4f 4b 2c 0a 20 |,FAC,FOK|,RFOK,. |
|00017070| 20 20 20 20 26 53 46 4f | 4b 2c 46 41 4b 2c 41 4d | &SFO|K,FAK,AM|
|00017080| 2c 42 4d 2c 43 4d 2c 42 | 30 2c 42 31 2c 42 32 2c |,BM,CM,B|0,B1,B2,|
|00017090| 43 50 2c 41 4c 50 2c 42 | 50 2c 42 47 2c 42 47 50 |CP,ALP,B|P,BG,BGP|
|000170a0| 2c 43 47 2c 0a 20 20 20 | 20 20 26 50 43 43 2c 45 |,CG,. | &PCC,E|
|000170b0| 54 48 43 2c 45 54 48 43 | 50 2c 50 41 41 2c 45 54 |THC,ETHC|P,PAA,ET|
|000170c0| 48 41 2c 45 54 48 41 50 | 2c 50 43 43 41 2c 50 43 |HA,ETHAP|,PCCA,PC|
|000170d0| 41 41 2c 44 43 41 2c 50 | 4e 43 2c 50 4e 41 2c 50 |AA,DCA,P|NC,PNA,P|
|000170e0| 4e 4e 2c 5a 41 2c 5a 46 | 41 2c 0a 20 20 20 20 20 |NN,ZA,ZF|A,. |
|000170f0| 26 5a 43 2c 5a 46 43 2c | 47 2c 47 4f 2c 47 58 30 |&ZC,ZFC,|G,GO,GX0|
|00017100| 2c 56 52 54 2c 50 48 2c | 50 48 56 2c 58 46 2c 47 |,VRT,PH,|PHV,XF,G|
|00017110| 58 2c 41 43 2c 58 2c 58 | 43 2c 43 41 50 2c 0a 20 |X,AC,X,X|C,CAP,. |
|00017120| 20 20 20 20 26 43 4f 50 | 2c 52 5a 49 52 2c 53 43 | &COP|,RZIR,SC|
|00017130| 50 53 49 2c 4e 43 4f 50 | 2c 4e 43 41 50 2c 4e 46 |PSI,NCOP|,NCAP,NF|
|00017140| 2c 49 43 41 2c 49 41 4e | 2c 49 4e 55 2c 49 50 54 |,ICA,IAN|,INU,IPT|
|00017150| 2c 4e 5a 41 2c 4e 5a 50 | 4f 2c 49 59 2c 4e 43 41 |,NZA,NZP|O,IY,NCA|
|00017160| 4c 2c 0a 20 20 20 20 20 | 26 49 45 51 2c 49 45 48 |L,. |&IEQ,IEH|
|00017170| 2c 49 43 4e 2c 49 53 54 | 2c 49 44 43 2c 4e 50 53 |,ICN,IST|,IDC,NPS|
|00017180| 49 29 0a 20 20 20 20 20 | 20 54 46 43 4c 3d 5a 45 |I). | TFCL=ZE|
|00017190| 52 4f 0a 20 20 20 20 20 | 20 44 4f 20 35 35 20 49 |RO. | DO 55 I|
|000171a0| 3d 31 2c 4e 45 51 0a 20 | 20 20 20 20 20 54 46 43 |=1,NEQ. | TFC|
|000171b0| 4c 3d 54 46 43 4c 2b 46 | 43 4c 28 49 29 2a 2a 32 |L=TFCL+F|CL(I)**2|
|000171c0| 0a 35 35 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a |.55 C|ONTINUE.|
|000171d0| 20 20 20 20 20 20 54 46 | 43 3d 44 53 51 52 54 28 | TF|C=DSQRT(|
|000171e0| 54 46 43 4c 29 2f 4e 45 | 51 0a 36 30 20 20 20 20 |TFCL)/NE|Q.60 |
|000171f0| 4e 53 58 3d 4e 53 58 2b | 31 0a 20 20 20 20 20 20 |NSX=NSX+|1. |
|00017200| 49 46 28 54 46 43 2e 47 | 45 2e 54 46 43 53 29 20 |IF(TFC.G|E.TFCS) |
|00017210| 47 4f 54 4f 20 36 35 0a | 20 20 20 20 20 20 54 46 |GOTO 65.| TF|
|00017220| 43 53 3d 54 46 43 0a 36 | 35 20 20 20 20 43 41 4c |CS=TFC.6|5 CAL|
|00017230| 4c 20 53 4d 50 4c 58 28 | 30 2c 58 43 4c 2c 54 46 |L SMPLX(|0,XCL,TF|
|00017240| 43 2c 49 52 58 2c 45 50 | 2c 50 54 2c 46 58 2c 4b |C,IRX,EP|,PT,FX,K|
|00017250| 58 2c 50 42 29 0a 20 20 | 20 20 20 20 49 46 28 49 |X,PB). | IF(I|
|00017260| 52 58 2e 4e 45 2e 30 2e | 4f 52 2e 54 46 43 2e 4c |RX.NE.0.|OR.TFC.L|
|00017270| 45 2e 53 4d 49 4e 29 20 | 47 4f 54 4f 20 37 35 0a |E.SMIN) |GOTO 75.|
|00017280| 37 30 20 20 20 20 43 4f | 4e 54 49 4e 55 45 0a 20 |70 CO|NTINUE. |
|00017290| 20 20 20 20 20 57 52 49 | 54 45 28 39 2c 31 30 30 | WRI|TE(9,100|
|000172a0| 32 29 20 49 50 54 2c 4e | 53 58 2c 54 46 43 0a 20 |2) IPT,N|SX,TFC. |
|000172b0| 20 20 20 20 20 47 4f 54 | 4f 20 35 30 0a 37 35 20 | GOT|O 50.75 |
|000172c0| 20 20 20 57 52 49 54 45 | 28 31 37 2c 31 30 30 32 | WRITE|(17,1002|
|000172d0| 29 20 49 50 54 2c 4e 53 | 58 2c 54 46 43 20 0a 20 |) IPT,NS|X,TFC . |
|000172e0| 20 20 20 20 20 57 52 49 | 54 45 28 39 2c 31 30 30 | WRI|TE(9,100|
|000172f0| 32 29 20 49 50 54 2c 4e | 53 58 2c 54 46 43 20 0a |2) IPT,N|SX,TFC .|
|00017300| 31 30 30 32 20 20 46 4f | 52 4d 41 54 28 33 58 2c |1002 FO|RMAT(3X,|
|00017310| 27 50 4f 49 4e 54 20 4e | 4f 2e 27 2c 49 33 2c 27 |'POINT N|O.',I3,'|
|00017320| 3a 20 53 4d 50 4c 58 20 | 43 59 43 4c 45 53 20 20 |: SMPLX |CYCLES |
|00017330| 3d 20 27 2c 49 34 2c 0a | 20 20 20 20 20 26 27 3a |= ',I4,.| &':|
|00017340| 20 52 45 53 49 44 55 41 | 4c 2e 20 3d 27 2c 46 38 | RESIDUA|L. =',F8|
|00017350| 2e 33 29 0a 43 20 20 20 | 50 45 52 46 4f 52 4d 20 |.3).C |PERFORM |
|00017360| 46 49 4e 41 4c 20 52 45 | 46 49 4e 45 4d 45 4e 54 |FINAL RE|FINEMENT|
|00017370| 20 4f 46 20 43 4f 4e 43 | 45 4e 54 52 41 54 49 4f | OF CONC|ENTRATIO|
|00017380| 4e 53 0a 38 30 20 20 20 | 20 4d 41 58 46 45 56 3d |NS.80 | MAXFEV=|
|00017390| 4d 58 48 43 59 0a 20 20 | 20 20 20 20 4c 57 41 3d |MXHCY. | LWA=|
|000173a0| 4e 45 51 2a 28 33 2a 4e | 45 51 2b 37 29 2f 32 0a |NEQ*(3*N|EQ+7)/2.|
|000173b0| 20 20 20 20 20 20 49 45 | 52 52 4f 52 3d 30 0a 43 | IE|RROR=0.C|
|000173c0| 0a 20 20 20 20 20 20 43 | 41 4c 4c 20 48 59 42 52 |. C|ALL HYBR|
|000173d0| 44 32 28 4e 45 51 2c 45 | 4e 54 46 43 4e 2c 58 43 |D2(NEQ,E|NTFCN,XC|
|000173e0| 4c 2c 46 43 4c 2c 46 54 | 4f 4c 2c 58 54 4f 4c 2c |L,FCL,FT|OL,XTOL,|
|000173f0| 4d 41 58 46 45 56 2c 0a | 20 20 20 20 20 26 49 45 |MAXFEV,.| &IE|
|00017400| 52 2c 4c 57 41 2c 57 41 | 2c 50 2c 57 2c 56 2c 56 |R,LWA,WA|,P,W,V,V|
|00017410| 30 2c 53 56 2c 43 53 2c | 52 4f 43 2c 52 41 43 2c |0,SV,CS,|ROC,RAC,|
|00017420| 45 4f 43 2c 43 45 4f 43 | 2c 52 45 4f 43 2c 0a 20 |EOC,CEOC|,REOC,. |
|00017430| 20 20 20 20 26 53 45 4f | 43 2c 45 41 43 2c 46 4f | &SEO|C,EAC,FO|
|00017440| 43 2c 46 41 43 2c 46 4f | 4b 2c 52 46 4f 4b 2c 53 |C,FAC,FO|K,RFOK,S|
|00017450| 46 4f 4b 2c 46 41 4b 2c | 41 4d 2c 42 4d 2c 43 4d |FOK,FAK,|AM,BM,CM|
|00017460| 2c 42 30 2c 42 31 2c 42 | 32 2c 0a 20 20 20 20 20 |,B0,B1,B|2,. |
|00017470| 26 43 50 2c 41 4c 50 2c | 42 50 2c 42 47 2c 42 47 |&CP,ALP,|BP,BG,BG|
|00017480| 50 2c 43 47 2c 50 43 43 | 2c 45 54 48 43 2c 45 54 |P,CG,PCC|,ETHC,ET|
|00017490| 48 43 50 2c 50 41 41 2c | 45 54 48 41 2c 45 54 48 |HCP,PAA,|ETHA,ETH|
|000174a0| 41 50 2c 50 43 43 41 2c | 50 43 41 41 2c 0a 20 20 |AP,PCCA,|PCAA,. |
|000174b0| 20 20 20 26 44 43 41 2c | 50 4e 43 2c 50 4e 41 2c | &DCA,|PNC,PNA,|
|000174c0| 50 4e 4e 2c 5a 41 2c 5a | 46 41 2c 5a 43 2c 5a 46 |PNN,ZA,Z|FA,ZC,ZF|
|000174d0| 43 2c 47 2c 47 4f 2c 47 | 58 30 2c 56 52 54 2c 50 |C,G,GO,G|X0,VRT,P|
|000174e0| 48 2c 50 48 56 2c 0a 20 | 20 20 20 20 26 58 46 2c |H,PHV,. | &XF,|
|000174f0| 47 58 2c 41 43 2c 58 2c | 58 43 2c 43 41 50 2c 43 |GX,AC,X,|XC,CAP,C|
|00017500| 4f 50 2c 52 5a 49 52 2c | 53 43 50 53 49 2c 4e 43 |OP,RZIR,|SCPSI,NC|
|00017510| 4f 50 2c 4e 43 41 50 2c | 4e 46 2c 49 43 41 2c 49 |OP,NCAP,|NF,ICA,I|
|00017520| 41 4e 2c 0a 20 20 20 20 | 20 26 49 4e 55 2c 49 50 |AN,. | &INU,IP|
|00017530| 54 2c 4e 5a 41 2c 4e 5a | 50 4f 2c 49 59 2c 4e 43 |T,NZA,NZ|PO,IY,NC|
|00017540| 41 4c 2c 49 45 51 2c 49 | 45 48 2c 49 43 4e 2c 49 |AL,IEQ,I|EH,ICN,I|
|00017550| 53 54 2c 49 44 43 2c 4e | 50 53 49 29 0a 20 20 20 |ST,IDC,N|PSI). |
|00017560| 20 20 20 4d 41 58 43 59 | 43 3d 4d 41 58 43 59 43 | MAXCY|C=MAXCYC|
|00017570| 2b 4d 41 58 46 45 56 0a | 20 20 20 20 20 20 49 46 |+MAXFEV.| IF|
|00017580| 28 49 45 52 2e 4c 45 2e | 33 29 20 47 4f 20 54 4f |(IER.LE.|3) GO TO|
|00017590| 20 38 35 0a 20 20 20 20 | 20 20 49 46 28 49 45 52 | 85. | IF(IER|
|000175a0| 2e 45 51 2e 34 2e 4f 52 | 2e 49 45 52 2e 45 51 2e |.EQ.4.OR|.IER.EQ.|
|000175b0| 35 2e 4f 52 2e 49 45 52 | 2e 45 51 2e 36 29 20 54 |5.OR.IER|.EQ.6) T|
|000175c0| 48 45 4e 0a 20 20 20 20 | 20 20 20 20 54 46 43 4c |HEN. | TFCL|
|000175d0| 3d 5a 45 52 4f 0a 20 20 | 20 20 20 20 20 20 44 4f |=ZERO. | DO|
|000175e0| 20 38 33 20 49 3d 31 2c | 4e 45 51 0a 20 20 20 20 | 83 I=1,|NEQ. |
|000175f0| 20 20 20 20 54 46 43 4c | 3d 54 46 43 4c 2b 46 43 | TFCL|=TFCL+FC|
|00017600| 4c 28 49 29 2a 2a 32 0a | 20 20 20 20 20 20 20 20 |L(I)**2.| |
|00017610| 45 58 43 28 49 29 3d 44 | 45 58 43 0a 38 33 20 20 |EXC(I)=D|EXC.83 |
|00017620| 20 20 20 20 43 4f 4e 54 | 49 4e 55 45 0a 20 20 20 | CONT|INUE. |
|00017630| 20 20 20 20 20 54 46 43 | 3d 44 53 51 52 54 28 54 | TFC|=DSQRT(T|
|00017640| 46 43 4c 29 2f 4e 45 51 | 0a 20 20 20 20 20 20 20 |FCL)/NEQ|. |
|00017650| 20 49 46 28 53 4d 49 4e | 2e 47 54 2e 28 53 4d 4e | IF(SMIN|.GT.(SMN|
|00017660| 53 41 56 2f 54 45 4e 29 | 29 20 53 4d 49 4e 3d 53 |SAV/TEN)|) SMIN=S|
|00017670| 4d 49 4e 2f 54 57 4f 0a | 20 20 20 20 20 20 20 20 |MIN/TWO.| |
|00017680| 47 4f 54 4f 20 34 38 0a | 20 20 20 20 20 20 45 4e |GOTO 48.| EN|
|00017690| 44 20 49 46 0a 20 20 20 | 20 20 20 49 46 28 4e 43 |D IF. | IF(NC|
|000176a0| 41 4c 2e 45 51 2e 31 29 | 20 57 52 49 54 45 28 39 |AL.EQ.1)| WRITE(9|
|000176b0| 2c 31 30 30 33 29 20 49 | 50 54 2c 49 45 52 0a 20 |,1003) I|PT,IER. |
|000176c0| 20 20 20 20 20 49 46 28 | 4e 43 41 4c 2e 45 51 2e | IF(|NCAL.EQ.|
|000176d0| 31 29 20 57 52 49 54 45 | 28 31 32 2c 31 30 30 33 |1) WRITE|(12,1003|
|000176e0| 29 20 49 50 54 2c 49 45 | 52 0a 20 20 20 20 20 20 |) IPT,IE|R. |
|000176f0| 49 46 28 4e 43 41 4c 2e | 45 51 2e 32 29 20 57 52 |IF(NCAL.|EQ.2) WR|
|00017700| 49 54 45 28 39 2c 31 30 | 30 34 29 20 49 50 54 2c |ITE(9,10|04) IPT,|
|00017710| 49 45 52 0a 20 20 20 20 | 20 20 49 46 28 4e 43 41 |IER. | IF(NCA|
|00017720| 4c 2e 45 51 2e 32 29 20 | 57 52 49 54 45 28 31 32 |L.EQ.2) |WRITE(12|
|00017730| 2c 31 30 30 34 29 20 49 | 50 54 2c 49 45 52 0a 20 |,1004) I|PT,IER. |
|00017740| 20 20 20 20 20 49 46 28 | 4e 43 41 4c 2e 45 51 2e | IF(|NCAL.EQ.|
|00017750| 33 29 20 57 52 49 54 45 | 28 39 2c 31 30 30 35 29 |3) WRITE|(9,1005)|
|00017760| 20 49 50 54 2c 49 45 52 | 0a 20 20 20 20 20 20 49 | IPT,IER|. I|
|00017770| 46 28 4e 43 41 4c 2e 45 | 51 2e 33 29 20 57 52 49 |F(NCAL.E|Q.3) WRI|
|00017780| 54 45 28 31 32 2c 31 30 | 30 35 29 20 49 50 54 2c |TE(12,10|05) IPT,|
|00017790| 49 45 52 0a 31 30 30 33 | 20 20 46 4f 52 4d 41 54 |IER.1003| FORMAT|
|000177a0| 28 31 58 2c 27 20 42 4f | 54 48 20 50 48 41 53 45 |(1X,' BO|TH PHASE|
|000177b0| 53 20 50 52 45 53 45 4e | 54 3a 20 43 4f 4d 50 55 |S PRESEN|T: COMPU|
|000177c0| 54 41 54 49 4f 4e 20 44 | 49 44 20 4e 4f 54 20 43 |TATION D|ID NOT C|
|000177d0| 4f 4e 56 45 52 47 45 27 | 2c 0a 20 20 20 20 20 26 |ONVERGE'|,. &|
|000177e0| 27 20 46 4f 52 20 50 4f | 49 4e 54 27 2c 49 33 2f |' FOR PO|INT',I3/|
|000177f0| 35 58 2c 27 45 52 52 4f | 52 20 43 4f 44 45 20 3d |5X,'ERRO|R CODE =|
|00017800| 20 27 2c 49 32 2f 29 0a | 31 30 30 34 20 20 46 4f | ',I2/).|1004 FO|
|00017810| 52 4d 41 54 28 31 58 2c | 27 20 4f 52 47 2e 50 48 |RMAT(1X,|' ORG.PH|
|00017820| 41 53 45 20 4f 4e 4c 59 | 3a 20 43 4f 4d 50 55 54 |ASE ONLY|: COMPUT|
|00017830| 41 54 49 4f 4e 20 44 49 | 44 20 4e 4f 54 20 43 4f |ATION DI|D NOT CO|
|00017840| 4e 56 45 52 47 45 27 2c | 0a 20 20 20 20 20 26 27 |NVERGE',|. &'|
|00017850| 20 46 4f 52 20 50 4f 49 | 4e 54 27 2c 49 33 2f 35 | FOR POI|NT',I3/5|
|00017860| 58 2c 27 45 52 52 4f 52 | 20 43 4f 44 45 20 3d 20 |X,'ERROR| CODE = |
|00017870| 27 2c 49 32 2f 29 0a 31 | 30 30 35 20 20 46 4f 52 |',I2/).1|005 FOR|
|00017880| 4d 41 54 28 31 58 2c 27 | 20 41 51 2e 50 48 41 53 |MAT(1X,'| AQ.PHAS|
|00017890| 45 20 4f 4e 4c 59 3a 20 | 43 4f 4d 50 55 54 41 54 |E ONLY: |COMPUTAT|
|000178a0| 49 4f 4e 20 44 49 44 20 | 4e 4f 54 20 43 4f 4e 56 |ION DID |NOT CONV|
|000178b0| 45 52 47 45 27 2c 0a 20 | 20 20 20 20 26 27 20 46 |ERGE',. | &' F|
|000178c0| 4f 52 20 50 4f 49 4e 54 | 27 2c 49 33 2f 35 58 2c |OR POINT|',I3/5X,|
|000178d0| 27 45 52 52 4f 52 20 43 | 4f 44 45 20 3d 20 27 2c |'ERROR C|ODE = ',|
|000178e0| 49 32 2f 29 0a 43 20 20 | 20 20 20 20 57 52 49 54 |I2/).C | WRIT|
|000178f0| 45 28 39 2c 31 30 30 36 | 29 20 49 50 54 2c 20 4e |E(9,1006|) IPT, N|
|00017900| 49 44 54 28 49 50 54 29 | 2c 28 58 28 4b 4b 2c 49 |IDT(IPT)|,(X(KK,I|
|00017910| 50 54 29 2c 4b 4b 3d 31 | 2c 31 30 29 0a 43 31 30 |PT),KK=1|,10).C10|
|00017920| 30 36 20 20 46 4f 52 4d | 41 54 28 2f 31 58 2c 27 |06 FORM|AT(/1X,'|
|00017930| 46 4f 52 20 50 4f 49 4e | 54 27 2c 49 33 2c 27 20 |FOR POIN|T',I3,' |
|00017940| 4e 49 44 54 20 3d 27 2c | 49 37 2f 0a 43 20 20 20 |NIDT =',|I7/.C |
|00017950| 20 20 26 31 58 2c 27 58 | 28 31 29 20 2d 20 58 28 | &1X,'X|(1) - X(|
|00017960| 31 30 29 3a 27 2f 31 58 | 2c 31 50 35 45 31 35 2e |10):'/1X|,1P5E15.|
|00017970| 35 2f 31 58 2c 35 45 31 | 35 2e 35 29 0a 43 20 20 |5/1X,5E1|5.5).C |
|00017980| 20 20 20 20 57 52 49 54 | 45 28 39 2c 31 30 30 37 | WRIT|E(9,1007|
|00017990| 29 20 28 58 43 4c 28 4b | 4b 29 2c 4b 4b 3d 31 2c |) (XCL(K|K),KK=1,|
|000179a0| 4e 45 51 29 0a 43 31 30 | 30 37 20 20 46 4f 52 4d |NEQ).C10|07 FORM|
|000179b0| 41 54 28 31 58 2c 27 58 | 43 4c 28 31 29 20 2d 20 |AT(1X,'X|CL(1) - |
|000179c0| 58 43 4c 28 4e 45 51 29 | 3a 27 2f 0a 43 20 20 20 |XCL(NEQ)|:'/.C |
|000179d0| 20 20 26 31 58 2c 31 50 | 35 45 31 35 2e 35 2f 31 | &1X,1P|5E15.5/1|
|000179e0| 58 2c 35 45 31 35 2e 35 | 2f 31 58 2c 35 45 31 35 |X,5E15.5|/1X,5E15|
|000179f0| 2e 35 29 0a 43 20 20 20 | 20 20 20 57 52 49 54 45 |.5).C | WRITE|
|00017a00| 28 39 2c 31 30 30 38 29 | 20 28 46 43 4c 28 4b 4b |(9,1008)| (FCL(KK|
|00017a10| 29 2c 4b 4b 3d 31 2c 4e | 45 51 29 0a 43 31 30 30 |),KK=1,N|EQ).C100|
|00017a20| 38 20 20 46 4f 52 4d 41 | 54 28 31 58 2c 27 46 43 |8 FORMA|T(1X,'FC|
|00017a30| 4c 28 31 29 20 2d 20 46 | 43 4c 28 4e 45 51 29 3a |L(1) - F|CL(NEQ):|
|00017a40| 27 2f 0a 43 20 20 20 20 | 20 26 31 58 2c 31 50 35 |'/.C | &1X,1P5|
|00017a50| 45 31 35 2e 35 2f 31 58 | 2c 35 45 31 35 2e 35 2f |E15.5/1X|,5E15.5/|
|00017a60| 31 58 2c 35 45 31 35 2e | 35 29 0a 20 20 20 20 20 |1X,5E15.|5). |
|00017a70| 20 49 45 52 52 4f 52 3d | 31 0a 20 20 20 20 20 20 | IERROR=|1. |
|00017a80| 50 41 55 53 45 0a 20 20 | 20 20 20 20 53 54 4f 50 |PAUSE. | STOP|
|00017a90| 0a 43 20 20 43 41 4c 43 | 55 4c 41 54 45 20 45 51 |.C CALC|ULATE EQ|
|00017aa0| 55 49 4c 49 42 52 49 55 | 4d 20 53 50 45 43 49 45 |UILIBRIU|M SPECIE|
|00017ab0| 20 43 4f 4e 43 45 4e 54 | 52 41 54 49 4f 4e 0a 38 | CONCENT|RATION.8|
|00017ac0| 35 20 20 20 20 43 4f 4e | 54 49 4e 55 45 0a 43 0a |5 CON|TINUE.C.|
|00017ad0| 43 20 20 20 20 20 20 57 | 52 49 54 45 28 2a 2c 31 |C W|RITE(*,1|
|00017ae0| 32 31 30 29 28 4e 46 28 | 49 29 2c 49 3d 31 2c 4e |210)(NF(|I),I=1,N|
|00017af0| 45 51 29 0a 43 31 32 31 | 30 20 20 46 4f 52 4d 41 |EQ).C121|0 FORMA|
|00017b00| 54 28 31 58 2c 27 4e 46 | 20 3d 20 27 2c 28 31 30 |T(1X,'NF| = ',(10|
|00017b10| 49 34 29 29 0a 43 20 20 | 20 20 20 20 57 52 49 54 |I4)).C | WRIT|
|00017b20| 45 28 2a 2c 31 32 32 30 | 29 28 58 43 4c 28 49 29 |E(*,1220|)(XCL(I)|
|00017b30| 2c 49 3d 31 2c 4e 45 51 | 29 0a 43 31 32 32 30 20 |,I=1,NEQ|).C1220 |
|00017b40| 20 46 4f 52 4d 41 54 28 | 31 58 2c 27 41 46 54 45 | FORMAT(|1X,'AFTE|
|00017b50| 52 20 48 59 42 52 44 32 | 3a 20 58 43 4c 20 3d 20 |R HYBRD2|: XCL = |
|00017b60| 27 2f 28 31 58 2c 35 46 | 31 35 2e 31 30 29 29 0a |'/(1X,5F|15.10)).|
|00017b70| 43 20 20 20 20 20 20 50 | 41 55 53 45 0a 43 20 20 |C P|AUSE.C |
|00017b80| 20 20 20 20 20 20 20 20 | 20 0a 20 20 20 20 20 20 | | . |
|00017b90| 43 41 4c 4c 20 45 4e 54 | 46 43 4e 28 4e 45 51 2c |CALL ENT|FCN(NEQ,|
|00017ba0| 58 43 4c 2c 46 43 4c 2c | 49 45 52 2c 50 2c 57 2c |XCL,FCL,|IER,P,W,|
|00017bb0| 56 2c 0a 20 20 20 20 20 | 26 56 30 2c 53 56 2c 43 |V,. |&V0,SV,C|
|00017bc0| 53 2c 52 4f 43 2c 52 41 | 43 2c 45 4f 43 2c 43 45 |S,ROC,RA|C,EOC,CE|
|00017bd0| 4f 43 2c 52 45 4f 43 2c | 53 45 4f 43 2c 45 41 43 |OC,REOC,|SEOC,EAC|
|00017be0| 2c 46 4f 43 2c 46 41 43 | 2c 46 4f 4b 2c 52 46 4f |,FOC,FAC|,FOK,RFO|
|00017bf0| 4b 2c 0a 20 20 20 20 20 | 26 53 46 4f 4b 2c 46 41 |K,. |&SFOK,FA|
|00017c00| 4b 2c 41 4d 2c 42 4d 2c | 43 4d 2c 42 30 2c 42 31 |K,AM,BM,|CM,B0,B1|
|00017c10| 2c 42 32 2c 43 50 2c 41 | 4c 50 2c 42 50 2c 42 47 |,B2,CP,A|LP,BP,BG|
|00017c20| 2c 42 47 50 2c 43 47 2c | 0a 20 20 20 20 20 26 50 |,BGP,CG,|. &P|
|00017c30| 43 43 2c 45 54 48 43 2c | 45 54 48 43 50 2c 50 41 |CC,ETHC,|ETHCP,PA|
|00017c40| 41 2c 45 54 48 41 2c 45 | 54 48 41 50 2c 50 43 43 |A,ETHA,E|THAP,PCC|
|00017c50| 41 2c 50 43 41 41 2c 44 | 43 41 2c 50 4e 43 2c 50 |A,PCAA,D|CA,PNC,P|
|00017c60| 4e 41 2c 50 4e 4e 2c 5a | 41 2c 5a 46 41 2c 0a 20 |NA,PNN,Z|A,ZFA,. |
|00017c70| 20 20 20 20 26 5a 43 2c | 5a 46 43 2c 47 2c 47 4f | &ZC,|ZFC,G,GO|
|00017c80| 2c 47 58 30 2c 56 52 54 | 2c 50 48 2c 50 48 56 2c |,GX0,VRT|,PH,PHV,|
|00017c90| 58 46 2c 47 58 2c 41 43 | 2c 58 2c 58 43 2c 43 41 |XF,GX,AC|,X,XC,CA|
|00017ca0| 50 2c 0a 20 20 20 20 20 | 26 43 4f 50 2c 52 5a 49 |P,. |&COP,RZI|
|00017cb0| 52 2c 53 43 50 53 49 2c | 4e 43 4f 50 2c 4e 43 41 |R,SCPSI,|NCOP,NCA|
|00017cc0| 50 2c 4e 46 2c 49 43 41 | 2c 49 41 4e 2c 49 4e 55 |P,NF,ICA|,IAN,INU|
|00017cd0| 2c 49 50 54 2c 4e 5a 41 | 2c 4e 5a 50 4f 2c 49 59 |,IPT,NZA|,NZPO,IY|
|00017ce0| 2c 4e 43 41 4c 2c 0a 20 | 20 20 20 20 26 49 45 51 |,NCAL,. | &IEQ|
|00017cf0| 2c 49 45 48 2c 49 43 4e | 2c 49 53 54 2c 49 44 43 |,IEH,ICN|,IST,IDC|
|00017d00| 2c 4e 50 53 49 29 0a 20 | 20 20 20 20 20 44 4f 20 |,NPSI). | DO |
|00017d10| 39 30 20 49 20 3d 31 2c | 4e 45 51 0a 20 20 20 20 |90 I =1,|NEQ. |
|00017d20| 20 20 58 43 28 4e 46 28 | 49 29 29 3d 58 43 4c 28 | XC(NF(|I))=XCL(|
|00017d30| 49 29 0a 39 30 20 20 20 | 20 43 4f 4e 54 49 4e 55 |I).90 | CONTINU|
|00017d40| 45 0a 39 35 20 20 20 20 | 43 4f 4e 54 49 4e 55 45 |E.95 |CONTINUE|
|00017d50| 0a 43 20 20 53 41 56 45 | 20 53 50 45 43 49 45 20 |.C SAVE| SPECIE |
|00017d60| 43 4f 4e 43 4e 53 2e 0a | 20 20 20 20 20 20 49 46 |CONCNS..| IF|
|00017d70| 28 4e 43 41 4c 2e 45 51 | 2e 31 29 20 54 48 45 4e |(NCAL.EQ|.1) THEN|
|00017d80| 0a 20 20 20 20 20 20 20 | 20 4b 3d 28 38 2b 4e 53 |. | K=(8+NS|
|00017d90| 4f 2b 4e 53 41 29 2a 28 | 49 50 54 2d 31 29 0a 20 |O+NSA)*(|IPT-1). |
|00017da0| 20 20 20 20 20 20 20 44 | 4f 20 31 30 30 20 49 3d | D|O 100 I=|
|00017db0| 31 2c 28 38 2b 4e 53 4f | 2b 4e 53 41 29 0a 09 4b |1,(8+NSO|+NSA)..K|
|00017dc0| 3d 4b 2b 31 0a 20 20 20 | 20 20 20 20 20 58 43 53 |=K+1. | XCS|
|00017dd0| 28 4b 29 3d 58 43 28 49 | 29 0a 31 30 30 20 20 20 |(K)=XC(I|).100 |
|00017de0| 20 20 43 4f 4e 54 49 4e | 55 45 0a 20 20 20 20 20 | CONTIN|UE. |
|00017df0| 20 45 4e 44 20 49 46 0a | 20 20 20 20 20 20 49 46 | END IF.| IF|
|00017e00| 28 4e 43 41 4c 2e 45 51 | 2e 32 29 20 54 48 45 4e |(NCAL.EQ|.2) THEN|
|00017e10| 0a 20 20 20 20 20 20 20 | 20 4b 3d 28 38 2b 4e 53 |. | K=(8+NS|
|00017e20| 4f 2b 4e 53 41 29 2a 28 | 49 50 54 2d 31 29 0a 20 |O+NSA)*(|IPT-1). |
|00017e30| 20 20 20 20 20 20 20 44 | 4f 20 31 30 35 20 49 3d | D|O 105 I=|
|00017e40| 31 2c 28 38 2b 4e 53 4f | 2b 4e 53 41 29 0a 09 4b |1,(8+NSO|+NSA)..K|
|00017e50| 3d 4b 2b 31 0a 20 20 20 | 20 20 20 20 20 58 43 4f |=K+1. | XCO|
|00017e60| 53 28 4b 29 3d 58 43 28 | 49 29 0a 31 30 35 20 20 |S(K)=XC(|I).105 |
|00017e70| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 20 20 20 20 | CONTI|NUE. |
|00017e80| 20 20 45 4e 44 20 49 46 | 0a 20 20 20 20 20 20 49 | END IF|. I|
|00017e90| 46 28 4e 43 41 4c 2e 45 | 51 2e 33 29 20 54 48 45 |F(NCAL.E|Q.3) THE|
|00017ea0| 4e 0a 20 20 20 20 20 20 | 20 20 4b 3d 28 36 2b 4e |N. | K=(6+N|
|00017eb0| 53 41 29 2a 28 49 50 54 | 2d 31 29 0a 20 20 20 20 |SA)*(IPT|-1). |
|00017ec0| 20 20 20 20 44 4f 20 31 | 31 30 20 49 3d 33 2c 38 | DO 1|10 I=3,8|
|00017ed0| 0a 09 4b 3d 4b 2b 31 0a | 20 20 20 20 20 20 20 20 |..K=K+1.| |
|00017ee0| 58 43 41 53 28 4b 29 3d | 58 43 28 49 29 0a 31 31 |XCAS(K)=|XC(I).11|
|00017ef0| 30 20 20 20 20 20 43 4f | 4e 54 49 4e 55 45 0a 20 |0 CO|NTINUE. |
|00017f00| 20 20 20 20 20 20 20 49 | 46 28 4e 53 41 2e 47 54 | I|F(NSA.GT|
|00017f10| 2e 30 29 20 54 48 45 4e | 0a 20 20 20 20 20 20 20 |.0) THEN|. |
|00017f20| 20 20 20 44 4f 20 31 31 | 35 20 49 3d 28 39 2b 4e | DO 11|5 I=(9+N|
|00017f30| 53 4f 29 2c 28 38 2b 4e | 53 4f 2b 4e 53 41 29 0a |SO),(8+N|SO+NSA).|
|00017f40| 20 20 20 20 20 20 20 20 | 20 20 4b 3d 4b 2b 31 0a | | K=K+1.|
|00017f50| 20 20 20 20 20 20 20 20 | 20 20 58 43 41 53 28 4b | | XCAS(K|
|00017f60| 29 3d 58 43 28 49 29 0a | 31 31 35 20 20 20 20 20 |)=XC(I).|115 |
|00017f70| 20 20 43 4f 4e 54 49 4e | 55 45 0a 20 20 20 20 20 | CONTIN|UE. |
|00017f80| 20 20 20 45 4e 44 20 49 | 46 0a 20 20 20 20 20 20 | END I|F. |
|00017f90| 45 4e 44 20 49 46 0a 43 | 20 20 20 20 20 20 57 52 |END IF.C| WR|
|00017fa0| 49 54 45 28 39 2c 31 30 | 31 30 29 20 4d 41 58 46 |ITE(9,10|10) MAXF|
|00017fb0| 45 56 0a 20 20 20 20 20 | 20 57 52 49 54 45 28 31 |EV. | WRITE(1|
|00017fc0| 37 2c 31 30 31 30 29 20 | 4d 41 58 46 45 56 0a 31 |7,1010) |MAXFEV.1|
|00017fd0| 30 31 30 20 20 46 4f 52 | 4d 41 54 28 33 58 2c 27 |010 FOR|MAT(3X,'|
|00017fe0| 48 59 42 52 44 32 20 43 | 59 43 4c 45 53 20 3d 27 |HYBRD2 C|YCLES ='|
|00017ff0| 2c 49 34 29 0a 20 20 20 | 20 20 20 49 46 28 4e 43 |,I4). | IF(NC|
|00018000| 41 4c 2e 45 51 2e 33 2e | 41 4e 44 2e 49 41 4f 43 |AL.EQ.3.|AND.IAOC|
|00018010| 2e 45 51 2e 31 29 20 54 | 48 45 4e 0a 43 20 20 20 |.EQ.1) T|HEN.C |
|00018020| 20 20 20 43 41 4c 43 55 | 4c 41 54 49 4f 4e 20 43 | CALCU|LATION C|
|00018030| 4f 4d 50 4c 45 54 45 20 | 46 4f 52 20 49 4e 49 54 |OMPLETE |FOR INIT|
|00018040| 49 41 4c 20 41 51 2e 50 | 48 41 53 45 2c 0a 43 20 |IAL AQ.P|HASE,.C |
|00018050| 20 20 20 20 20 20 50 45 | 52 46 4f 52 4d 20 45 51 | PE|RFORM EQ|
|00018060| 2e 43 41 4c 43 4e 53 2e | 57 49 54 48 20 42 4f 54 |.CALCNS.|WITH BOT|
|00018070| 48 20 50 48 41 53 45 53 | 20 50 52 45 53 45 4e 54 |H PHASES| PRESENT|
|00018080| 0a 20 20 20 20 20 20 20 | 20 4e 43 41 4c 3d 31 0a |. | NCAL=1.|
|00018090| 09 47 4f 54 4f 20 33 35 | 0a 20 20 20 20 20 20 45 |.GOTO 35|. E|
|000180a0| 4e 44 20 49 46 0a 20 20 | 20 20 20 20 49 46 28 49 |ND IF. | IF(I|
|000180b0| 43 2e 4c 54 2e 28 4e 43 | 2b 31 29 29 20 47 4f 54 |C.LT.(NC|+1)) GOT|
|000180c0| 4f 20 31 32 30 0a 43 0a | 43 20 20 20 20 20 20 57 |O 120.C.|C W|
|000180d0| 52 49 54 45 28 31 36 2c | 31 30 31 35 29 0a 43 31 |RITE(16,|1015).C1|
|000180e0| 30 31 35 20 20 46 4f 52 | 4d 41 54 28 2f 29 0a 43 |015 FOR|MAT(/).C|
|000180f0| 0a 20 20 20 20 20 20 49 | 46 28 49 41 4f 2e 45 51 |. I|F(IAO.EQ|
|00018100| 2e 31 29 20 54 48 45 4e | 0a 43 20 20 20 20 20 20 |.1) THEN|.C |
|00018110| 42 4f 54 48 20 50 48 41 | 53 45 53 20 41 52 45 20 |BOTH PHA|SES ARE |
|00018120| 50 52 45 53 45 4e 54 0a | 20 20 20 20 20 20 20 20 |PRESENT.| |
|00018130| 49 46 28 49 43 4e 2e 45 | 51 2e 31 29 20 54 48 45 |IF(ICN.E|Q.1) THE|
|00018140| 4e 0a 20 20 20 20 20 20 | 20 20 20 20 57 52 49 54 |N. | WRIT|
|00018150| 45 28 31 36 2c 31 30 32 | 30 29 20 49 50 54 2c 49 |E(16,102|0) IPT,I|
|00018160| 43 4e 2c 44 45 4e 2c 54 | 53 41 49 2c 54 56 53 41 |CN,DEN,T|SAI,TVSA|
|00018170| 2c 56 57 50 41 2c 52 4d | 42 41 2c 0a 20 20 20 20 |,VWPA,RM|BA,. |
|00018180| 20 26 20 20 20 20 54 53 | 4f 49 2c 54 56 53 4f 2c | & TS|OI,TVSO,|
|00018190| 56 57 50 4f 2c 52 4d 42 | 4f 0a 31 30 32 30 20 20 |VWPO,RMB|O.1020 |
|000181a0| 20 20 20 20 46 4f 52 4d | 41 54 28 31 58 2c 49 33 | FORM|AT(1X,I3|
|000181b0| 2c 32 58 2c 49 32 2c 32 | 58 2c 46 31 31 2e 36 2c |,2X,I2,2|X,F11.6,|
|000181c0| 33 28 32 58 2c 46 39 2e | 33 29 2c 32 58 2c 46 31 |3(2X,F9.|3),2X,F1|
|000181d0| 31 2e 36 2f 0a 20 20 20 | 20 20 26 20 20 20 20 32 |1.6/. | & 2|
|000181e0| 31 58 2c 33 28 32 58 2c | 46 39 2e 33 29 2c 32 58 |1X,3(2X,|F9.3),2X|
|000181f0| 2c 46 31 31 2e 36 29 0a | 20 20 20 20 20 20 20 20 |,F11.6).| |
|00018200| 45 4c 53 45 0a 20 20 20 | 20 20 20 20 20 20 20 57 |ELSE. | W|
|00018210| 52 49 54 45 28 31 36 2c | 31 30 32 31 29 20 49 50 |RITE(16,|1021) IP|
|00018220| 54 2c 49 43 4e 2c 54 53 | 41 49 2c 54 57 53 41 2c |T,ICN,TS|AI,TWSA,|
|00018230| 56 57 50 41 2c 52 4d 42 | 41 2c 0a 20 20 20 20 20 |VWPA,RMB|A,. |
|00018240| 26 20 20 20 20 54 53 4f | 49 2c 54 57 53 4f 2c 56 |& TSO|I,TWSO,V|
|00018250| 57 50 4f 2c 52 4d 42 4f | 0a 31 30 32 31 20 20 20 |WPO,RMBO|.1021 |
|00018260| 20 20 20 46 4f 52 4d 41 | 54 28 31 58 2c 49 33 2c | FORMA|T(1X,I3,|
|00018270| 32 58 2c 49 32 2c 31 33 | 58 2c 33 28 32 58 2c 46 |2X,I2,13|X,3(2X,F|
|00018280| 39 2e 33 29 2c 32 58 2c | 46 31 31 2e 36 2f 0a 20 |9.3),2X,|F11.6/. |
|00018290| 20 20 20 20 26 20 20 20 | 20 32 31 58 2c 33 28 32 | & | 21X,3(2|
|000182a0| 58 2c 46 39 2e 33 29 2c | 32 58 2c 46 31 31 2e 36 |X,F9.3),|2X,F11.6|
|000182b0| 29 0a 20 20 20 20 20 20 | 20 20 45 4e 44 20 49 46 |). | END IF|
|000182c0| 0a 20 20 20 20 20 20 45 | 4e 44 20 49 46 0a 20 20 |. E|ND IF. |
|000182d0| 20 20 20 20 57 52 49 54 | 45 28 31 34 2c 31 30 32 | WRIT|E(14,102|
|000182e0| 33 29 20 49 50 54 2c 28 | 43 53 28 49 29 2c 49 3d |3) IPT,(|CS(I),I=|
|000182f0| 31 2c 28 38 2b 4e 53 4f | 2b 4e 53 41 29 29 0a 31 |1,(8+NSO|+NSA)).1|
|00018300| 30 32 33 20 20 46 4f 52 | 4d 41 54 28 31 58 2c 49 |023 FOR|MAT(1X,I|
|00018310| 33 2c 31 50 35 45 31 34 | 2e 37 2f 34 58 2c 33 45 |3,1P5E14|.7/4X,3E|
|00018320| 31 34 2e 37 2f 34 58 2c | 35 45 31 34 2e 37 2f 34 |14.7/4X,|5E14.7/4|
|00018330| 58 2c 35 45 31 34 2e 37 | 2f 0a 20 20 20 20 20 26 |X,5E14.7|/. &|
|00018340| 34 58 2c 35 45 31 34 2e | 37 2f 34 58 2c 35 45 31 |4X,5E14.|7/4X,5E1|
|00018350| 34 2e 37 2f 34 58 2c 35 | 45 31 34 2e 37 2f 34 58 |4.7/4X,5|E14.7/4X|
|00018360| 2c 35 45 31 34 2e 37 29 | 0a 20 20 20 20 20 20 49 |,5E14.7)|. I|
|00018370| 46 28 28 4e 53 4f 2b 4e | 53 41 29 2e 45 51 2e 30 |F((NSO+N|SA).EQ.0|
|00018380| 2e 4f 52 2e 28 4e 53 4f | 2b 4e 53 41 29 2e 45 51 |.OR.(NSO|+NSA).EQ|
|00018390| 2e 35 2e 4f 52 2e 28 4e | 53 4f 2b 4e 53 41 29 2e |.5.OR.(N|SO+NSA).|
|000183a0| 45 51 2e 31 30 2e 4f 52 | 2e 0a 20 20 20 20 20 26 |EQ.10.OR|.. &|
|000183b0| 28 4e 53 4f 2b 4e 53 41 | 29 2e 45 51 2e 31 35 2e |(NSO+NSA|).EQ.15.|
|000183c0| 4f 52 2e 28 4e 53 4f 2b | 4e 53 41 29 2e 45 51 2e |OR.(NSO+|NSA).EQ.|
|000183d0| 32 30 29 20 42 41 43 4b | 53 50 41 43 45 20 31 34 |20) BACK|SPACE 14|
|000183e0| 0a 20 20 20 20 20 20 57 | 52 49 54 45 28 31 35 2c |. W|RITE(15,|
|000183f0| 31 30 32 34 29 20 49 50 | 54 2c 28 47 28 49 29 2c |1024) IP|T,(G(I),|
|00018400| 49 3d 31 2c 28 38 2b 4e | 53 4f 2b 4e 53 41 29 29 |I=1,(8+N|SO+NSA))|
|00018410| 2c 45 46 54 31 0a 31 30 | 32 34 20 20 46 4f 52 4d |,EFT1.10|24 FORM|
|00018420| 41 54 28 31 58 2c 49 33 | 2c 30 50 38 46 39 2e 35 |AT(1X,I3|,0P8F9.5|
|00018430| 2f 34 58 2c 38 46 39 2e | 35 2f 34 58 2c 38 46 39 |/4X,8F9.|5/4X,8F9|
|00018440| 2e 35 2f 34 58 2c 38 46 | 39 2e 35 2f 34 58 2c 38 |.5/4X,8F|9.5/4X,8|
|00018450| 46 39 2e 35 29 0a 20 20 | 20 20 20 20 49 46 28 28 |F9.5). | IF((|
|00018460| 4e 53 4f 2b 4e 53 41 29 | 2e 45 51 2e 30 2e 4f 52 |NSO+NSA)|.EQ.0.OR|
|00018470| 2e 28 4e 53 4f 2b 4e 53 | 41 29 2e 45 51 2e 38 2e |.(NSO+NS|A).EQ.8.|
|00018480| 4f 52 2e 28 4e 53 4f 2b | 4e 53 41 29 2e 45 51 2e |OR.(NSO+|NSA).EQ.|
|00018490| 31 36 29 0a 20 20 20 20 | 20 26 42 41 43 4b 53 50 |16). | &BACKSP|
|000184a0| 41 43 45 20 31 35 0a 20 | 20 20 20 20 20 57 52 49 |ACE 15. | WRI|
|000184b0| 54 45 28 31 35 2c 31 30 | 32 35 29 20 28 41 43 28 |TE(15,10|25) (AC(|
|000184c0| 49 29 2c 49 3d 31 2c 28 | 32 2b 4e 53 4f 29 29 0a |I),I=1,(|2+NSO)).|
|000184d0| 31 30 32 35 20 20 46 4f | 52 4d 41 54 28 34 58 2c |1025 FO|RMAT(4X,|
|000184e0| 31 50 38 45 39 2e 32 2f | 34 58 2c 38 45 39 2e 32 |1P8E9.2/|4X,8E9.2|
|000184f0| 2f 34 58 2c 38 45 39 2e | 32 2f 34 58 2c 38 45 39 |/4X,8E9.|2/4X,8E9|
|00018500| 2e 32 2f 34 58 2c 38 45 | 39 2e 32 29 0a 20 20 20 |.2/4X,8E|9.2). |
|00018510| 20 20 20 49 46 28 4e 53 | 4f 2e 45 51 2e 36 2e 4f | IF(NS|O.EQ.6.O|
|00018520| 52 2e 4e 53 4f 2e 45 51 | 2e 31 34 2e 4f 52 2e 4e |R.NSO.EQ|.14.OR.N|
|00018530| 53 4f 2e 45 51 2e 32 32 | 29 20 42 41 43 4b 53 50 |SO.EQ.22|) BACKSP|
|00018540| 41 43 45 20 31 35 0a 20 | 20 20 20 20 20 57 52 49 |ACE 15. | WRI|
|00018550| 54 45 28 31 35 2c 31 30 | 32 36 29 20 41 57 2c 41 |TE(15,10|26) AW,A|
|00018560| 53 2c 45 46 54 32 0a 31 | 30 32 36 20 20 46 4f 52 |S,EFT2.1|026 FOR|
|00018570| 4d 41 54 28 34 58 2c 33 | 46 39 2e 36 29 20 20 0a |MAT(4X,3|F9.6) .|
|00018580| 31 32 30 20 20 20 43 4f | 4e 54 49 4e 55 45 0a 43 |120 CO|NTINUE.C|
|00018590| 20 20 20 20 20 20 57 52 | 49 54 45 28 31 35 2c 31 | WR|ITE(15,1|
|000185a0| 31 30 30 29 20 28 58 46 | 28 49 29 2c 49 3d 31 2c |100) (XF|(I),I=1,|
|000185b0| 28 32 2b 4e 53 4f 29 29 | 0a 43 31 31 30 30 20 20 |(2+NSO))|.C1100 |
|000185c0| 46 4f 52 4d 41 54 28 34 | 58 2c 31 50 35 45 31 33 |FORMAT(4|X,1P5E13|
|000185d0| 2e 35 2f 28 34 58 2c 31 | 50 35 45 31 33 2e 35 29 |.5/(4X,1|P5E13.5)|
|000185e0| 29 0a 43 20 20 20 20 20 | 20 57 52 49 54 45 28 31 |).C | WRITE(1|
|000185f0| 35 2c 31 31 30 31 29 20 | 28 47 58 28 49 29 2c 49 |5,1101) |(GX(I),I|
|00018600| 3d 31 2c 28 32 2b 4e 53 | 4f 29 29 0a 43 31 31 30 |=1,(2+NS|O)).C110|
|00018610| 31 20 20 46 4f 52 4d 41 | 54 28 34 58 2c 30 50 38 |1 FORMA|T(4X,0P8|
|00018620| 46 39 2e 33 2f 28 34 58 | 2c 38 46 39 2e 33 29 29 |F9.3/(4X|,8F9.3))|
|00018630| 0a 43 0a 43 20 20 43 41 | 4c 43 55 41 4c 54 45 20 |.C.C CA|LCUALTE |
|00018640| 41 4e 20 45 58 54 52 41 | 43 54 49 4f 4e 20 43 4f |AN EXTRA|CTION CO|
|00018650| 45 46 46 49 43 49 45 4e | 54 20 4f 46 20 4d 0a 20 |EFFICIEN|T OF M. |
|00018660| 20 20 20 20 20 49 46 28 | 49 59 2e 45 51 2e 31 2e | IF(|IY.EQ.1.|
|00018670| 4f 52 2e 49 59 2e 45 51 | 2e 33 2e 4f 52 2e 49 59 |OR.IY.EQ|.3.OR.IY|
|00018680| 2e 45 51 2e 35 2e 4f 52 | 2e 49 59 2e 45 51 2e 37 |.EQ.5.OR|.IY.EQ.7|
|00018690| 29 0a 20 20 20 20 20 26 | 43 41 4c 4c 20 44 43 41 |). &|CALL DCA|
|000186a0| 4c 43 28 49 59 2c 43 53 | 2c 4e 43 41 50 2c 4e 43 |LC(IY,CS|,NCAP,NC|
|000186b0| 4f 50 2c 59 29 0a 43 20 | 20 43 41 4c 43 55 41 4c |OP,Y).C | CALCUAL|
|000186c0| 54 45 20 41 20 54 4f 54 | 41 4c 20 43 4f 4e 43 2e |TE A TOT|AL CONC.|
|000186d0| 20 49 4e 20 4e 4f 4e 41 | 51 55 45 4f 55 53 20 50 | IN NONA|QUEOUS P|
|000186e0| 48 41 53 45 0a 20 20 20 | 20 20 20 49 46 28 49 59 |HASE. | IF(IY|
|000186f0| 2e 45 51 2e 32 2e 4f 52 | 2e 49 59 2e 45 51 2e 34 |.EQ.2.OR|.IY.EQ.4|
|00018700| 2e 4f 52 2e 49 59 2e 45 | 51 2e 36 2e 4f 52 2e 49 |.OR.IY.E|Q.6.OR.I|
|00018710| 59 2e 45 51 2e 38 29 0a | 20 20 20 20 20 26 43 41 |Y.EQ.8).| &CA|
|00018720| 4c 4c 20 54 43 41 4c 43 | 28 49 59 2c 43 53 2c 4e |LL TCALC|(IY,CS,N|
|00018730| 43 4f 50 2c 59 29 20 20 | 20 20 20 20 0a 43 20 20 |COP,Y) | .C |
|00018740| 43 41 4c 43 55 4c 41 54 | 45 20 54 48 45 20 57 41 |CALCULAT|E THE WA|
|00018750| 54 45 52 20 43 4f 4e 54 | 45 4e 54 20 4f 46 20 54 |TER CONT|ENT OF T|
|00018760| 48 45 20 4e 4f 4e 41 51 | 55 45 4f 55 53 20 50 48 |HE NONAQ|UEOUS PH|
|00018770| 41 53 45 0a 20 20 20 20 | 20 20 49 46 28 49 59 2e |ASE. | IF(IY.|
|00018780| 45 51 2e 31 30 29 20 43 | 41 4c 4c 20 57 43 41 4c |EQ.10) C|ALL WCAL|
|00018790| 43 28 43 53 2c 4e 43 4f | 50 2c 59 29 0a 43 20 20 |C(CS,NCO|P,Y).C |
|000187a0| 43 41 4c 43 55 41 4c 54 | 45 20 4c 4f 47 20 45 58 |CALCUALT|E LOG EX|
|000187b0| 54 52 41 43 54 49 4f 4e | 20 43 4f 45 46 46 49 43 |TRACTION| COEFFIC|
|000187c0| 49 45 4e 54 20 4f 46 20 | 4d 0a 20 20 20 20 20 20 |IENT OF |M. |
|000187d0| 49 46 28 49 59 2e 45 51 | 2e 31 31 2e 4f 52 2e 49 |IF(IY.EQ|.11.OR.I|
|000187e0| 59 2e 45 51 2e 31 33 2e | 4f 52 2e 49 59 2e 45 51 |Y.EQ.13.|OR.IY.EQ|
|000187f0| 2e 31 35 2e 4f 52 2e 49 | 59 2e 45 51 2e 31 37 29 |.15.OR.I|Y.EQ.17)|
|00018800| 0a 20 20 20 20 20 26 43 | 41 4c 4c 20 4c 44 43 41 |. &C|ALL LDCA|
|00018810| 4c 28 49 59 2c 43 53 2c | 4e 43 41 50 2c 4e 43 4f |L(IY,CS,|NCAP,NCO|
|00018820| 50 2c 59 29 0a 43 20 20 | 43 41 4c 43 55 41 4c 54 |P,Y).C |CALCUALT|
|00018830| 45 20 4c 4f 47 20 54 4f | 54 41 4c 20 43 4f 4e 43 |E LOG TO|TAL CONC|
|00018840| 2e 20 49 4e 20 4e 4f 4e | 41 51 55 45 4f 55 53 20 |. IN NON|AQUEOUS |
|00018850| 50 48 41 53 45 0a 20 20 | 20 20 20 20 49 46 28 49 |PHASE. | IF(I|
|00018860| 59 2e 45 51 2e 31 32 2e | 4f 52 2e 49 59 2e 45 51 |Y.EQ.12.|OR.IY.EQ|
|00018870| 2e 31 34 2e 4f 52 2e 49 | 59 2e 45 51 2e 31 36 2e |.14.OR.I|Y.EQ.16.|
|00018880| 4f 52 2e 49 59 2e 45 51 | 2e 31 38 29 0a 20 20 20 |OR.IY.EQ|.18). |
|00018890| 20 20 26 43 41 4c 4c 20 | 4c 54 43 41 4c 28 49 59 | &CALL |LTCAL(IY|
|000188a0| 2c 43 53 2c 4e 43 4f 50 | 2c 59 29 20 20 20 20 20 |,CS,NCOP|,Y) |
|000188b0| 20 0a 43 20 20 43 41 4c | 43 55 4c 41 54 45 20 54 | .C CAL|CULATE T|
|000188c0| 48 45 20 50 41 52 54 49 | 43 4c 45 20 43 4f 4e 43 |HE PARTI|CLE CONC|
|000188d0| 45 4e 54 52 41 54 49 4f | 4e 0a 20 20 20 20 20 20 |ENTRATIO|N. |
|000188e0| 49 46 28 49 59 2e 45 51 | 2e 32 30 29 20 43 41 4c |IF(IY.EQ|.20) CAL|
|000188f0| 4c 20 50 43 41 4c 43 28 | 49 43 4e 2c 59 29 0a 43 |L PCALC(|ICN,Y).C|
|00018900| 20 20 43 41 4c 43 55 4c | 41 54 45 20 54 48 45 20 | CALCUL|ATE THE |
|00018910| 48 45 41 54 20 4f 46 20 | 4d 49 58 49 4e 47 20 4f |HEAT OF |MIXING O|
|00018920| 46 20 54 57 4f 20 4e 4f | 4e 41 51 55 45 4f 55 53 |F TWO NO|NAQUEOUS|
|00018930| 20 53 4f 4c 55 54 49 4f | 4e 53 0a 20 20 20 20 20 | SOLUTIO|NS. |
|00018940| 20 49 46 28 49 59 2e 45 | 51 2e 33 30 29 20 43 41 | IF(IY.E|Q.30) CA|
|00018950| 4c 4c 20 48 43 41 4c 43 | 28 49 50 54 2c 50 2c 58 |LL HCALC|(IPT,P,X|
|00018960| 2c 43 53 2c 47 2c 58 46 | 2c 49 43 4e 2c 59 29 0a |,CS,G,XF|,ICN,Y).|
|00018970| 43 20 20 43 41 4c 43 55 | 4c 41 54 45 20 54 48 45 |C CALCU|LATE THE|
|00018980| 20 53 50 45 43 54 52 41 | 4c 20 41 42 53 4f 52 42 | SPECTRA|L ABSORB|
|00018990| 45 4e 43 45 20 0a 20 20 | 20 20 20 20 49 46 28 49 |ENCE . | IF(I|
|000189a0| 59 2e 45 51 2e 34 30 2e | 4f 52 2e 49 59 2e 45 51 |Y.EQ.40.|OR.IY.EQ|
|000189b0| 2e 34 31 29 20 43 41 4c | 4c 20 45 43 41 4c 43 28 |.41) CAL|L ECALC(|
|000189c0| 49 50 54 2c 50 2c 58 2c | 43 53 2c 59 29 0a 43 20 |IPT,P,X,|CS,Y).C |
|000189d0| 20 43 41 4c 43 55 4c 41 | 54 45 20 54 48 45 20 41 | CALCULA|TE THE A|
|000189e0| 43 54 49 56 49 54 59 20 | 43 4f 45 46 46 49 43 49 |CTIVITY |COEFFICI|
|000189f0| 45 4e 54 20 4f 46 20 41 | 20 43 4f 4d 50 4f 4e 45 |ENT OF A| COMPONE|
|00018a00| 4e 54 2c 20 54 48 45 20 | 4f 53 4d 4f 54 49 43 20 |NT, THE |OSMOTIC |
|00018a10| 0a 43 20 20 20 43 4f 45 | 46 46 49 43 49 45 4e 54 |.C COE|FFICIENT|
|00018a20| 2c 20 4f 52 20 54 48 45 | 20 57 41 54 45 52 20 41 |, OR THE| WATER A|
|00018a30| 43 54 49 56 49 54 59 20 | 4f 46 20 54 48 45 20 41 |CTIVITY |OF THE A|
|00018a40| 51 55 45 4f 55 53 20 50 | 48 41 53 45 0a 20 20 20 |QUEOUS P|HASE. |
|00018a50| 20 20 20 49 46 28 49 59 | 2e 47 45 2e 36 30 2e 41 | IF(IY|.GE.60.A|
|00018a60| 4e 44 2e 49 59 2e 4c 54 | 2e 37 30 29 20 43 41 4c |ND.IY.LT|.70) CAL|
|00018a70| 4c 20 47 43 41 4c 43 28 | 49 59 2c 49 50 54 2c 4e |L GCALC(|IY,IPT,N|
|00018a80| 5a 41 2c 58 2c 43 53 2c | 47 2c 59 29 0a 43 20 20 |ZA,X,CS,|G,Y).C |
|00018a90| 43 41 4c 43 55 4c 41 54 | 45 20 41 20 51 55 41 4e |CALCULAT|E A QUAN|
|00018aa0| 54 49 54 59 20 46 52 4f | 4d 20 41 20 55 53 45 52 |TITY FRO|M A USER|
|00018ab0| 20 53 55 42 52 4f 55 54 | 49 4e 45 0a 20 20 20 20 | SUBROUT|INE. |
|00018ac0| 20 20 49 46 28 49 59 2e | 47 45 2e 37 30 2e 41 4e | IF(IY.|GE.70.AN|
|00018ad0| 44 2e 49 59 2e 4c 54 2e | 38 30 29 0a 20 20 20 20 |D.IY.LT.|80). |
|00018ae0| 20 26 43 41 4c 4c 20 55 | 53 52 43 41 4c 28 49 59 | &CALL U|SRCAL(IY|
|00018af0| 2c 49 50 54 2c 49 43 4e | 2c 50 2c 43 53 2c 58 2c |,IPT,ICN|,P,CS,X,|
|00018b00| 47 2c 58 46 2c 4e 43 41 | 50 2c 4e 43 4f 50 2c 4e |G,XF,NCA|P,NCOP,N|
|00018b10| 5a 41 2c 59 2c 56 30 2c | 53 56 29 0a 20 20 20 20 |ZA,Y,V0,|SV). |
|00018b20| 20 20 52 45 54 55 52 4e | 0a 20 20 20 20 20 20 45 | RETURN|. E|
|00018b30| 4e 44 0a 43 0a 43 0a 43 | 0a 43 20 20 53 55 42 52 |ND.C.C.C|.C SUBR|
|00018b40| 4f 55 54 49 4e 45 20 54 | 4f 20 43 41 4c 43 55 4c |OUTINE T|O CALCUL|
|00018b50| 41 54 45 20 4e 4f 4e 41 | 51 2e 20 41 43 54 49 56 |ATE NONA|Q. ACTIV|
|00018b60| 49 54 59 20 43 4f 45 46 | 46 49 43 49 45 4e 54 53 |ITY COEF|FICIENTS|
|00018b70| 20 41 43 43 4f 52 44 49 | 4e 47 0a 43 20 20 20 54 | ACCORDI|NG.C T|
|00018b80| 4f 20 54 48 45 20 54 52 | 45 41 54 4d 45 4e 54 20 |O THE TR|EATMENT |
|00018b90| 4f 46 20 48 49 4c 44 45 | 42 52 41 4e 44 20 41 4e |OF HILDE|BRAND AN|
|00018ba0| 44 20 53 43 4f 54 54 2c | 20 49 4e 43 4c 55 44 49 |D SCOTT,| INCLUDI|
|00018bb0| 4e 47 20 54 48 45 20 46 | 4c 4f 52 59 2d 0a 43 20 |NG THE F|LORY-.C |
|00018bc0| 20 20 48 55 47 47 49 4e | 53 20 43 4f 52 52 45 43 | HUGGIN|S CORREC|
|00018bd0| 54 49 4f 4e 20 52 45 43 | 4f 4d 4d 45 4e 44 45 44 |TION REC|OMMENDED|
|00018be0| 20 42 59 20 48 45 4e 4c | 45 59 20 41 4e 44 20 53 | BY HENL|EY AND S|
|00018bf0| 45 41 44 45 52 20 28 31 | 39 38 31 29 0a 43 0a 43 |EADER (1|981).C.C|
|00018c00| 20 20 20 56 4f 4c 55 4d | 45 20 41 44 44 49 54 49 | VOLUM|E ADDITI|
|00018c10| 56 49 54 59 20 4f 46 20 | 41 4c 4c 20 53 50 45 43 |VITY OF |ALL SPEC|
|00018c20| 49 45 53 20 49 53 20 41 | 53 53 55 4d 45 44 0a 43 |IES IS A|SSUMED.C|
|00018c30| 0a 43 0a 43 20 20 20 20 | 20 20 20 20 20 20 20 20 |.C.C | |
|00018c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00018c50| 47 4c 4f 53 53 41 52 59 | 0a 43 0a 43 20 20 20 20 |GLOSSARY|.C.C |
|00018c60| 20 20 41 43 20 20 20 3d | 20 20 41 43 54 49 56 49 | AC =| ACTIVI|
|00018c70| 54 59 20 4f 46 20 4e 4f | 4e 41 51 2e 20 53 4f 4c |TY OF NO|NAQ. SOL|
|00018c80| 55 54 45 20 28 58 20 53 | 43 41 4c 45 29 0a 43 20 |UTE (X S|CALE).C |
|00018c90| 20 20 20 20 20 41 53 20 | 20 20 3d 20 20 41 43 54 | AS | = ACT|
|00018ca0| 49 56 49 54 59 20 4f 46 | 20 4e 4f 4e 41 51 2e 20 |IVITY OF| NONAQ. |
|00018cb0| 53 4f 4c 56 45 4e 54 0a | 43 20 20 20 20 20 20 41 |SOLVENT.|C A|
|00018cc0| 54 4d 20 20 3d 20 20 44 | 45 42 45 59 45 2d 48 55 |TM = D|EBEYE-HU|
|00018cd0| 43 4b 45 4c 20 54 45 52 | 4d 20 28 49 4e 20 4e 55 |CKEL TER|M (IN NU|
|00018ce0| 4d 45 52 41 54 4f 52 29 | 0a 43 20 20 20 20 20 20 |MERATOR)|.C |
|00018cf0| 42 54 4d 20 20 3d 20 20 | 44 45 42 45 59 45 2d 48 |BTM = |DEBEYE-H|
|00018d00| 55 43 4b 45 4c 20 54 45 | 52 4d 20 28 49 4e 20 44 |UCKEL TE|RM (IN D|
|00018d10| 45 4e 4f 4d 49 4e 41 54 | 4f 52 29 0a 43 20 20 20 |ENOMINAT|OR).C |
|00018d20| 20 20 20 43 49 20 20 20 | 3d 20 20 49 4f 4e 49 43 | CI |= IONIC|
|00018d30| 20 53 54 52 45 4e 47 54 | 48 20 28 4d 4f 4c 41 52 | STRENGT|H (MOLAR|
|00018d40| 49 54 59 20 53 43 41 4c | 45 29 0a 43 20 20 20 20 |ITY SCAL|E).C |
|00018d50| 20 20 43 53 20 20 20 3d | 20 20 43 55 52 52 45 4e | CS =| CURREN|
|00018d60| 54 20 43 4f 4e 43 45 4e | 54 52 41 54 49 4f 4e 20 |T CONCEN|TRATION |
|00018d70| 4f 46 20 41 20 53 4f 4c | 55 54 45 0a 43 20 20 20 |OF A SOL|UTE.C |
|00018d80| 20 20 20 44 53 20 20 20 | 3d 20 20 44 49 45 4c 45 | DS |= DIELE|
|00018d90| 43 54 52 49 43 20 43 4f | 4e 53 54 41 4e 54 20 4f |CTRIC CO|NSTANT O|
|00018da0| 46 20 54 48 45 20 4e 4f | 4e 41 51 55 45 4f 55 53 |F THE NO|NAQUEOUS|
|00018db0| 20 53 4f 4c 56 45 4e 54 | 0a 43 20 20 20 20 20 20 | SOLVENT|.C |
|00018dc0| 45 46 54 20 20 3d 20 20 | 45 4c 45 43 54 52 4f 53 |EFT = |ELECTROS|
|00018dd0| 54 41 54 49 43 20 54 45 | 52 4d 20 49 4e 20 41 43 |TATIC TE|RM IN AC|
|00018de0| 54 49 56 49 54 59 20 43 | 4f 45 46 46 49 43 49 45 |TIVITY C|OEFFICIE|
|00018df0| 4e 54 20 4f 46 20 41 4e | 20 49 4f 4e 0a 43 20 20 |NT OF AN| ION.C |
|00018e00| 20 20 20 20 45 46 54 31 | 20 3d 20 20 45 4c 45 43 | EFT1| = ELEC|
|00018e10| 54 52 4f 53 54 41 54 49 | 43 20 54 45 52 4d 20 49 |TROSTATI|C TERM I|
|00018e20| 4e 20 41 43 54 49 56 49 | 54 59 20 43 4f 45 46 46 |N ACTIVI|TY COEFF|
|00018e30| 49 43 49 45 4e 54 20 4f | 46 20 41 0a 43 20 20 20 |ICIENT O|F A.C |
|00018e40| 20 20 20 45 46 54 32 20 | 3d 20 20 45 4c 45 43 54 | EFT2 |= ELECT|
|00018e50| 52 4f 53 54 41 54 49 43 | 20 54 45 52 4d 20 49 4e |ROSTATIC| TERM IN|
|00018e60| 20 41 43 54 49 56 49 54 | 59 20 53 4f 4c 56 45 4e | ACTIVIT|Y SOLVEN|
|00018e70| 54 0a 43 20 20 20 20 20 | 20 46 48 52 20 20 3d 20 |T.C | FHR = |
|00018e80| 20 46 4c 4f 52 59 2d 48 | 55 47 47 49 4e 53 20 52 | FLORY-H|UGGINS R|
|00018e90| 41 54 49 4f 20 28 56 2f | 28 53 55 4d 28 58 56 29 |ATIO (V/|(SUM(XV)|
|00018ea0| 29 0a 43 20 20 20 20 20 | 20 47 20 20 20 20 3d 20 |).C | G = |
|00018eb0| 20 41 43 54 49 56 49 54 | 59 20 43 4f 45 46 46 49 | ACTIVIT|Y COEFFI|
|00018ec0| 43 49 45 4e 54 20 4f 46 | 20 41 20 53 4f 4c 55 54 |CIENT OF| A SOLUT|
|00018ed0| 45 20 4f 4e 20 54 48 45 | 20 47 49 56 45 4e 0a 43 |E ON THE| GIVEN.C|
|00018ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 43 | | C|
|00018ef0| 4f 4e 43 45 4e 54 52 41 | 54 49 4f 4e 20 53 43 41 |ONCENTRA|TION SCA|
|00018f00| 4c 45 0a 43 20 20 20 20 | 20 20 47 41 56 20 20 3d |LE.C | GAV =|
|00018f10| 20 20 41 56 45 52 41 47 | 45 20 53 4f 4c 55 42 49 | AVERAG|E SOLUBI|
|00018f20| 4c 49 54 59 20 50 41 52 | 41 4d 45 54 45 52 20 46 |LITY PAR|AMETER F|
|00018f30| 4f 52 20 4d 49 58 54 2e | 2c 20 57 45 49 47 48 54 |OR MIXT.|, WEIGHT|
|00018f40| 45 44 20 42 59 0a 43 20 | 20 20 20 20 20 20 20 20 |ED BY.C | |
|00018f50| 20 20 20 20 20 20 56 4f | 4c 55 4d 45 20 46 52 41 | VO|LUME FRA|
|00018f60| 43 54 49 4f 4e 0a 43 20 | 20 20 20 20 20 47 4f 20 |CTION.C | GO |
|00018f70| 20 20 3d 20 20 53 4f 4c | 55 42 49 4c 49 54 59 20 | = SOL|UBILITY |
|00018f80| 50 41 52 41 4d 45 54 45 | 52 20 4f 46 20 53 4f 4c |PARAMETE|R OF SOL|
|00018f90| 55 54 45 20 28 43 41 4c | 2a 2a 31 2f 32 2f 43 4d |UTE (CAL|**1/2/CM|
|00018fa0| 2a 2a 33 2f 32 29 20 20 | 0a 43 20 20 20 20 20 20 |**3/2) |.C |
|00018fb0| 47 4f 52 20 20 3d 20 20 | 53 4f 4c 55 42 49 4c 49 |GOR = |SOLUBILI|
|00018fc0| 54 59 20 50 41 52 41 4d | 45 54 45 52 20 4f 46 20 |TY PARAM|ETER OF |
|00018fd0| 54 48 45 20 52 45 46 45 | 52 45 4e 43 45 20 53 4f |THE REFE|RENCE SO|
|00018fe0| 4c 55 54 45 0a 43 20 20 | 20 20 20 20 47 4f 53 20 |LUTE.C | GOS |
|00018ff0| 20 3d 20 20 53 4f 4c 55 | 42 49 4c 49 54 59 20 50 | = SOLU|BILITY P|
|00019000| 41 52 41 4d 45 54 45 52 | 20 4f 46 20 53 4f 4c 56 |ARAMETER| OF SOLV|
|00019010| 45 4e 54 0a 43 20 20 20 | 20 20 20 47 54 4d 20 20 |ENT.C | GTM |
|00019020| 3d 20 20 44 49 53 54 41 | 4e 43 45 20 54 45 52 4d |= DISTA|NCE TERM|
|00019030| 20 49 4e 20 42 4a 45 52 | 52 55 4d 20 4d 4f 44 45 | IN BJER|RUM MODE|
|00019040| 4c 0a 43 20 20 20 20 20 | 20 47 58 20 20 20 3d 20 |L.C | GX = |
|00019050| 20 4d 4f 4c 45 20 46 52 | 41 43 54 49 4f 4e 20 41 | MOLE FR|ACTION A|
|00019060| 43 54 2e 43 4f 45 46 2e | 4f 46 20 53 4f 4c 55 54 |CT.COEF.|OF SOLUT|
|00019070| 45 0a 43 20 20 20 20 20 | 20 47 58 53 20 20 3d 20 |E.C | GXS = |
|00019080| 20 4d 4f 4c 45 20 46 52 | 41 43 54 49 4f 4e 20 41 | MOLE FR|ACTION A|
|00019090| 43 54 2e 43 4f 45 46 2e | 4f 46 20 53 4f 4c 56 45 |CT.COEF.|OF SOLVE|
|000190a0| 4e 54 0a 43 20 20 20 20 | 20 20 47 58 30 20 20 3d |NT.C | GX0 =|
|000190b0| 20 20 4d 4f 4c 45 20 46 | 52 41 43 54 49 4f 4e 20 | MOLE F|RACTION |
|000190c0| 41 43 54 2e 43 4f 45 46 | 2e 4f 46 20 53 4f 4c 55 |ACT.COEF|.OF SOLU|
|000190d0| 54 45 20 41 54 20 49 4e | 46 49 4e 49 54 45 20 44 |TE AT IN|FINITE D|
|000190e0| 49 4c 55 54 49 4f 4e 0a | 43 20 20 20 20 20 20 49 |ILUTION.|C I|
|000190f0| 43 4e 20 20 3d 20 20 43 | 4f 4e 43 45 4e 54 52 41 |CN = C|ONCENTRA|
|00019100| 54 49 4f 4e 20 53 43 41 | 4c 45 20 49 4e 44 49 43 |TION SCA|LE INDIC|
|00019110| 41 54 4f 52 3a 20 31 20 | 3d 20 4d 4f 4c 41 52 49 |ATOR: 1 |= MOLARI|
|00019120| 54 59 2c 20 32 20 3d 20 | 0a 43 20 20 20 20 20 20 |TY, 2 = |.C |
|00019130| 20 20 20 20 20 20 20 20 | 20 4d 4f 4c 41 4c 49 54 | | MOLALIT|
|00019140| 59 2c 20 33 20 3d 20 4d | 4f 4c 20 2f 20 4b 47 20 |Y, 3 = M|OL / KG |
|00019150| 53 4f 4c 4e 2e 0a 43 20 | 20 20 20 20 20 49 52 45 |SOLN..C | IRE|
|00019160| 46 20 3d 20 20 53 50 45 | 43 49 45 20 4e 4f 2e 41 |F = SPE|CIE NO.A|
|00019170| 53 53 49 47 4e 45 44 20 | 54 4f 20 49 4f 4e 49 43 |SSIGNED |TO IONIC|
|00019180| 20 4e 4f 4e 41 51 55 45 | 4f 55 53 20 50 52 4f 44 | NONAQUE|OUS PROD|
|00019190| 55 43 54 20 53 50 45 43 | 49 45 53 0a 43 20 20 20 |UCT SPEC|IES.C |
|000191a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 54 48 41 54 | | THAT|
|000191b0| 20 53 45 52 56 45 53 20 | 41 53 20 54 48 45 20 52 | SERVES |AS THE R|
|000191c0| 45 46 45 52 45 4e 43 45 | 20 49 4f 4e 20 49 4e 20 |EFERENCE| ION IN |
|000191d0| 46 4f 52 4d 41 54 49 4f | 4e 20 52 45 41 43 54 49 |FORMATIO|N REACTI|
|000191e0| 4f 4e 53 2e 0a 43 20 20 | 20 20 20 20 20 20 20 20 |ONS..C | |
|000191f0| 20 20 20 20 20 49 46 20 | 49 52 45 46 20 49 53 20 | IF |IREF IS |
|00019200| 5a 45 52 4f 2c 20 54 48 | 45 4e 20 4e 4f 20 4e 4f |ZERO, TH|EN NO NO|
|00019210| 4e 41 51 55 45 4f 55 53 | 20 49 4f 4e 53 20 41 52 |NAQUEOUS| IONS AR|
|00019220| 45 20 50 52 45 53 45 4e | 54 2e 0a 43 20 20 20 20 |E PRESEN|T..C |
|00019230| 20 20 4e 49 4f 20 20 3d | 20 20 49 4e 44 49 43 41 | NIO =| INDICA|
|00019240| 54 4f 52 20 4f 46 20 43 | 41 4c 43 55 4c 41 54 45 |TOR OF C|ALCULATE|
|00019250| 44 20 28 30 29 20 4f 52 | 20 41 53 53 55 4d 45 44 |D (0) OR| ASSUMED|
|00019260| 20 55 4e 49 54 20 28 31 | 29 20 56 41 4c 55 45 53 | UNIT (1|) VALUES|
|00019270| 0a 43 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.C | |
|00019280| 20 46 4f 52 20 4e 4f 4e | 41 51 2e 41 43 54 2e 43 | FOR NON|AQ.ACT.C|
|00019290| 4f 45 46 46 49 43 49 45 | 4e 54 53 2c 20 47 0a 43 |OEFFICIE|NTS, G.C|
|000192a0| 20 20 20 20 20 20 50 48 | 20 20 20 3d 20 20 56 4f | PH| = VO|
|000192b0| 4c 55 4d 45 20 46 52 41 | 43 54 49 4f 4e 20 4f 46 |LUME FRA|CTION OF|
|000192c0| 20 41 20 53 4f 4c 55 54 | 45 20 0a 43 20 20 20 20 | A SOLUT|E .C |
|000192d0| 20 20 50 48 53 20 20 3d | 20 20 56 4f 4c 55 4d 45 | PHS =| VOLUME|
|000192e0| 20 46 52 41 43 54 49 4f | 4e 20 4f 46 20 53 4f 4c | FRACTIO|N OF SOL|
|000192f0| 56 45 4e 54 0a 43 20 20 | 20 20 20 20 52 4d 43 4f |VENT.C | RMCO|
|00019300| 20 3d 20 20 52 41 54 49 | 4f 20 4f 46 20 53 4f 4c | = RATI|O OF SOL|
|00019310| 55 54 45 20 43 4f 4e 43 | 4e 2e 20 49 4e 20 4d 4f |UTE CONC|N. IN MO|
|00019320| 4c 41 4c 49 54 59 20 54 | 4f 20 54 48 45 20 47 49 |LALITY T|O THE GI|
|00019330| 56 45 4e 20 43 4f 4e 43 | 4e 2e 0a 43 20 20 20 20 |VEN CONC|N..C |
|00019340| 20 20 52 58 43 20 20 3d | 20 20 52 41 54 49 4f 20 | RXC =| RATIO |
|00019350| 4f 46 20 4d 4f 4c 45 20 | 46 52 41 43 54 49 4f 4e |OF MOLE |FRACTION|
|00019360| 20 54 4f 20 47 49 56 45 | 4e 20 43 4f 4e 43 45 4e | TO GIVE|N CONCEN|
|00019370| 54 52 41 54 49 4f 4e 0a | 43 20 20 20 20 20 20 52 |TRATION.|C R|
|00019380| 58 43 46 20 3d 20 20 4c | 49 4d 49 54 20 4f 46 20 |XCF = L|IMIT OF |
|00019390| 4d 4f 4c 45 20 46 52 41 | 43 54 49 4f 4e 20 54 4f |MOLE FRA|CTION TO|
|000193a0| 20 47 49 56 45 4e 20 43 | 4f 4e 43 2e 20 41 54 20 | GIVEN C|ONC. AT |
|000193b0| 49 4e 46 49 4e 49 54 45 | 0a 43 20 20 20 20 20 20 |INFINITE|.C |
|000193c0| 20 20 20 20 20 20 20 20 | 20 44 49 4c 55 54 49 4f | | DILUTIO|
|000193d0| 4e 0a 43 20 20 20 20 20 | 20 53 50 56 20 20 3d 20 |N.C | SPV = |
|000193e0| 20 54 4f 54 41 4c 20 4d | 4f 4c 45 53 20 4f 46 20 | TOTAL M|OLES OF |
|000193f0| 53 50 45 43 49 45 53 20 | 28 49 4e 43 4c 55 44 49 |SPECIES |(INCLUDI|
|00019400| 4e 47 20 53 4f 4c 56 45 | 4e 54 29 20 50 45 52 20 |NG SOLVE|NT) PER |
|00019410| 43 4d 33 20 53 4f 4c 4e | 2e 0a 43 20 20 20 20 20 |CM3 SOLN|..C |
|00019420| 20 54 20 20 20 20 3d 20 | 20 54 45 4d 50 45 52 41 | T = | TEMPERA|
|00019430| 54 55 52 45 20 28 4b 29 | 0a 43 20 20 20 20 20 20 |TURE (K)|.C |
|00019440| 54 43 20 20 20 3d 20 20 | 54 45 4d 50 45 52 41 54 |TC = |TEMPERAT|
|00019450| 55 52 45 20 28 43 29 0a | 43 20 20 20 20 20 20 54 |URE (C).|C T|
|00019460| 43 53 20 20 3d 20 20 54 | 4f 54 41 4c 20 43 4f 4e |CS = T|OTAL CON|
|00019470| 43 45 4e 54 52 41 54 49 | 4f 4e 20 4f 46 20 53 4f |CENTRATI|ON OF SO|
|00019480| 4c 55 54 45 53 20 28 4d | 4f 4c 45 53 20 50 45 52 |LUTES (M|OLES PER|
|00019490| 20 4c 49 54 45 52 20 53 | 4f 4c 4e 2c 0a 43 20 20 | LITER S|OLN,.C |
|000194a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 50 45 52 | | PER|
|000194b0| 20 4b 47 20 4f 46 20 53 | 4f 4c 56 45 4e 54 2c 20 | KG OF S|OLVENT, |
|000194c0| 4f 52 20 50 45 52 20 4b | 47 20 4f 46 20 53 4f 4c |OR PER K|G OF SOL|
|000194d0| 55 54 49 4f 4e 29 0a 43 | 20 20 20 20 20 20 54 48 |UTION).C| TH|
|000194e0| 53 20 20 3d 20 20 48 45 | 41 54 20 54 45 52 4d 20 |S = HE|AT TERM |
|000194f0| 44 55 45 20 54 4f 20 4e | 4f 4e 2d 49 44 45 41 4c |DUE TO N|ON-IDEAL|
|00019500| 20 45 46 46 45 43 54 53 | 20 46 52 4f 4d 20 54 48 | EFFECTS| FROM TH|
|00019510| 45 20 53 4f 4c 55 54 45 | 53 0a 43 20 20 20 20 20 |E SOLUTE|S.C |
|00019520| 20 20 20 20 20 20 20 20 | 20 20 28 50 45 52 20 47 | | (PER G|
|00019530| 20 53 4f 4c 56 45 4e 54 | 2c 20 43 41 4c 43 55 4c | SOLVENT|, CALCUL|
|00019540| 41 54 45 44 20 49 4e 20 | 53 55 42 2e 4f 52 47 41 |ATED IN |SUB.ORGA|
|00019550| 43 29 0a 43 20 20 20 20 | 20 20 54 48 53 56 20 3d |C).C | THSV =|
|00019560| 20 20 48 45 41 54 20 54 | 45 52 4d 20 44 55 45 20 | HEAT T|ERM DUE |
|00019570| 54 4f 20 4e 4f 4e 2d 49 | 44 45 41 4c 20 45 46 46 |TO NON-I|DEAL EFF|
|00019580| 45 43 54 53 20 46 52 4f | 4d 20 54 48 45 20 53 4f |ECTS FRO|M THE SO|
|00019590| 4c 56 45 4e 54 0a 43 20 | 20 20 20 20 20 20 20 20 |LVENT.C | |
|000195a0| 20 20 20 20 20 20 28 50 | 45 52 20 47 20 53 4f 4c | (P|ER G SOL|
|000195b0| 56 45 4e 54 2c 20 43 41 | 4c 43 55 4c 41 54 45 44 |VENT, CA|LCULATED|
|000195c0| 20 49 4e 20 53 55 42 2e | 4f 52 47 41 43 29 0a 43 | IN SUB.|ORGAC).C|
|000195d0| 20 20 20 20 20 20 54 56 | 4c 20 20 3d 20 20 56 4f | TV|L = VO|
|000195e0| 4c 55 4d 45 20 4f 46 20 | 53 4f 4c 55 54 49 4f 4e |LUME OF |SOLUTION|
|000195f0| 20 28 43 4d 33 20 50 45 | 52 20 4c 49 54 45 52 20 | (CM3 PE|R LITER |
|00019600| 4f 46 20 53 4f 4c 55 54 | 49 4f 4e 2c 20 50 45 52 |OF SOLUT|ION, PER|
|00019610| 20 4b 47 0a 43 20 20 20 | 20 20 20 20 20 20 20 20 | KG.C | |
|00019620| 20 20 20 20 4f 46 20 53 | 4f 4c 56 45 4e 54 2c 20 | OF S|OLVENT, |
|00019630| 4f 52 20 50 45 52 20 4b | 47 20 4f 46 20 53 4f 4c |OR PER K|G OF SOL|
|00019640| 55 54 49 4f 4e 29 20 0a | 43 20 20 20 20 20 20 54 |UTION) .|C T|
|00019650| 56 53 4f 20 3d 20 20 54 | 4f 54 41 4c 20 56 4f 4c |VSO = T|OTAL VOL|
|00019660| 55 4d 45 20 4f 46 20 53 | 4f 4c 55 54 45 53 20 28 |UME OF S|OLUTES (|
|00019670| 43 4d 33 20 50 45 52 20 | 4c 49 54 45 52 20 53 4f |CM3 PER |LITER SO|
|00019680| 4c 4e 2c 0a 43 20 20 20 | 20 20 20 20 20 20 20 20 |LN,.C | |
|00019690| 20 20 20 20 50 45 52 20 | 4b 47 20 4f 46 20 53 4f | PER |KG OF SO|
|000196a0| 4c 56 45 4e 54 2c 20 4f | 52 20 50 45 52 20 4b 47 |LVENT, O|R PER KG|
|000196b0| 20 4f 46 20 53 4f 4c 55 | 54 49 4f 4e 29 0a 43 20 | OF SOLU|TION).C |
|000196c0| 20 20 20 20 20 54 57 4c | 20 20 3d 20 20 57 45 49 | TWL| = WEI|
|000196d0| 47 48 54 20 4f 46 20 53 | 4f 4c 55 54 49 4f 4e 20 |GHT OF S|OLUTION |
|000196e0| 28 47 20 50 45 52 20 4c | 49 54 45 52 20 4f 46 20 |(G PER L|ITER OF |
|000196f0| 53 4f 4c 55 54 49 4f 4e | 2c 20 50 45 52 20 4b 47 |SOLUTION|, PER KG|
|00019700| 0a 43 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.C | |
|00019710| 20 4f 46 20 53 4f 4c 56 | 45 4e 54 2c 20 4f 52 20 | OF SOLV|ENT, OR |
|00019720| 50 45 52 20 4b 47 20 4f | 46 20 53 4f 4c 55 54 49 |PER KG O|F SOLUTI|
|00019730| 4f 4e 29 20 0a 43 20 20 | 20 20 20 20 54 57 53 4f |ON) .C | TWSO|
|00019740| 20 3d 20 20 54 4f 54 41 | 4c 20 57 45 49 47 48 54 | = TOTA|L WEIGHT|
|00019750| 20 4f 46 20 53 4f 4c 55 | 54 45 53 20 28 47 20 50 | OF SOLU|TES (G P|
|00019760| 45 52 20 4c 49 54 45 52 | 20 53 4c 4e 2e 2c 50 45 |ER LITER| SLN.,PE|
|00019770| 52 20 4b 47 20 4f 46 0a | 43 20 20 20 20 20 20 20 |R KG OF.|C |
|00019780| 20 20 20 20 20 20 20 20 | 53 4f 4c 56 45 4e 54 2c | |SOLVENT,|
|00019790| 20 4f 52 20 50 45 52 20 | 4b 47 20 4f 46 20 53 4f | OR PER |KG OF SO|
|000197a0| 4c 55 54 49 4f 4e 29 0a | 43 20 20 20 20 20 20 56 |LUTION).|C V|
|000197b0| 20 20 20 20 3d 20 20 4d | 4f 4c 41 52 20 56 4f 4c | = M|OLAR VOL|
|000197c0| 55 4d 45 20 4f 46 20 41 | 20 53 4f 4c 55 54 45 0a |UME OF A| SOLUTE.|
|000197d0| 43 20 20 20 20 20 20 56 | 52 20 20 20 3d 20 20 4d |C V|R = M|
|000197e0| 4f 4c 41 52 20 56 4f 4c | 55 4d 45 20 4f 46 20 54 |OLAR VOL|UME OF T|
|000197f0| 48 45 20 52 45 46 45 52 | 45 4e 43 45 20 53 4f 4c |HE REFER|ENCE SOL|
|00019800| 55 54 45 20 28 43 4d 33 | 2f 4d 4f 4c 45 29 0a 43 |UTE (CM3|/MOLE).C|
|00019810| 20 20 20 20 20 20 56 53 | 20 20 20 3d 20 20 4d 4f | VS| = MO|
|00019820| 4c 41 52 20 56 4f 4c 55 | 4d 45 20 4f 46 20 54 48 |LAR VOLU|ME OF TH|
|00019830| 45 20 4e 4f 4e 41 51 2e | 53 4f 4c 56 45 4e 54 20 |E NONAQ.|SOLVENT |
|00019840| 28 43 4d 33 2f 4d 4f 4c | 45 29 0a 43 20 20 20 20 |(CM3/MOL|E).C |
|00019850| 20 20 57 20 20 20 20 3d | 20 20 4d 4f 4c 45 43 55 | W =| MOLECU|
|00019860| 4c 41 52 20 57 54 2e 20 | 4f 46 20 41 20 53 4f 4c |LAR WT. |OF A SOL|
|00019870| 55 54 45 20 20 20 20 20 | 20 0a 43 20 20 20 20 20 |UTE | .C |
|00019880| 20 57 52 20 20 20 3d 20 | 20 4d 4f 4c 45 43 55 4c | WR = | MOLECUL|
|00019890| 41 52 20 57 54 2e 20 4f | 46 20 54 48 45 20 52 45 |AR WT. O|F THE RE|
|000198a0| 46 45 52 45 4e 43 45 20 | 53 4f 4c 55 54 45 0a 43 |FERENCE |SOLUTE.C|
|000198b0| 20 20 20 20 20 20 57 53 | 20 20 20 3d 20 20 4d 4f | WS| = MO|
|000198c0| 4c 45 43 55 4c 41 52 20 | 57 54 2e 20 4f 46 20 54 |LECULAR |WT. OF T|
|000198d0| 48 45 20 4e 4f 4e 41 51 | 2e 53 4f 4c 56 45 4e 54 |HE NONAQ|.SOLVENT|
|000198e0| 0a 43 20 20 20 20 20 20 | 58 46 20 20 20 3d 20 20 |.C |XF = |
|000198f0| 4d 4f 4c 45 20 46 52 41 | 43 54 49 4f 4e 20 4f 46 |MOLE FRA|CTION OF|
|00019900| 20 41 20 53 4f 4c 55 54 | 45 0a 43 20 20 20 20 20 | A SOLUT|E.C |
|00019910| 20 58 46 53 20 20 3d 20 | 20 4d 4f 4c 45 20 46 52 | XFS = | MOLE FR|
|00019920| 41 43 54 49 4f 4e 20 4f | 46 20 53 4f 4c 56 45 4e |ACTION O|F SOLVEN|
|00019930| 54 0a 43 20 20 20 20 20 | 20 5a 50 4f 20 20 3d 20 |T.C | ZPO = |
|00019940| 20 43 48 41 52 47 45 20 | 4f 4e 20 41 20 50 52 4f | CHARGE |ON A PRO|
|00019950| 44 55 43 54 20 53 50 45 | 43 49 45 53 20 28 57 49 |DUCT SPE|CIES (WI|
|00019960| 54 48 4f 55 54 20 53 49 | 47 4e 29 0a 43 0a 43 0a |THOUT SI|GN).C.C.|
|00019970| 43 0a 20 20 20 20 20 20 | 53 55 42 52 4f 55 54 49 |C. |SUBROUTI|
|00019980| 4e 45 20 4f 52 47 41 43 | 28 50 2c 57 2c 56 2c 58 |NE ORGAC|(P,W,V,X|
|00019990| 46 2c 47 58 2c 43 53 2c | 47 2c 41 43 2c 47 4f 2c |F,GX,CS,|G,AC,GO,|
|000199a0| 47 58 30 2c 56 52 54 2c | 50 48 2c 50 48 56 2c 0a |GX0,VRT,|PH,PHV,.|
|000199b0| 20 20 20 20 20 26 4e 5a | 50 4f 2c 49 43 4e 29 0a | &NZ|PO,ICN).|
|000199c0| 20 20 20 20 20 20 49 4d | 50 4c 49 43 49 54 20 52 | IM|PLICIT R|
|000199d0| 45 41 4c 2a 38 28 41 2d | 48 2c 4f 2d 5a 29 0a 20 |EAL*8(A-|H,O-Z). |
|000199e0| 20 20 20 20 20 53 41 56 | 45 0a 20 20 20 20 20 20 | SAV|E. |
|000199f0| 43 4f 4d 4d 4f 4e 2f 4d | 44 2f 4e 53 4f 2c 4e 43 |COMMON/M|D/NSO,NC|
|00019a00| 42 4f 2c 49 52 45 46 2c | 4e 50 48 2c 4e 50 41 2c |BO,IREF,|NPH,NPA,|
|00019a10| 4e 53 41 2c 4e 49 4f 2c | 4e 49 41 2c 4e 43 41 2c |NSA,NIO,|NIA,NCA,|
|00019a20| 4e 41 4e 2c 4e 4e 55 2c | 4e 55 50 2c 4e 55 4d 0a |NAN,NNU,|NUP,NUM.|
|00019a30| 20 20 20 20 20 20 43 4f | 4d 4d 4f 4e 2f 44 54 2f | CO|MMON/DT/|
|00019a40| 54 43 2c 4e 4f 2c 4e 4f | 46 2c 49 43 4e 52 20 20 |TC,NO,NO|F,ICNR |
|00019a50| 20 20 20 20 0a 20 20 20 | 20 20 20 43 4f 4d 4d 4f | . | COMMO|
|00019a60| 4e 2f 47 52 50 2f 41 46 | 54 2c 42 46 54 2c 51 46 |N/GRP/AF|T,BFT,QF|
|00019a70| 54 2c 4e 43 52 28 34 29 | 2c 57 53 2c 56 53 2c 44 |T,NCR(4)|,WS,VS,D|
|00019a80| 53 2c 47 4f 53 2c 57 52 | 2c 56 52 2c 47 4f 52 2c |S,GOS,WR|,VR,GOR,|
|00019a90| 52 54 0a 20 20 20 20 20 | 20 43 4f 4d 4d 4f 4e 2f |RT. | COMMON/|
|00019aa0| 50 52 50 2f 58 46 53 2c | 47 58 53 2c 41 53 2c 52 |PRP/XFS,|GXS,AS,R|
|00019ab0| 4d 43 4f 2c 54 48 53 56 | 2c 54 48 53 2c 54 53 41 |MCO,THSV|,THS,TSA|
|00019ac0| 49 2c 54 53 4f 49 2c 54 | 57 53 4f 2c 54 56 53 4f |I,TSOI,T|WSO,TVSO|
|00019ad0| 0a 20 20 20 20 20 20 43 | 4f 4d 4d 4f 4e 2f 45 4c |. C|OMMON/EL|
|00019ae0| 50 2f 45 46 54 31 2c 45 | 46 54 32 2c 41 54 4d 2c |P/EFT1,E|FT2,ATM,|
|00019af0| 53 51 49 0a 20 20 20 20 | 20 20 44 49 4d 45 4e 53 |SQI. | DIMENS|
|00019b00| 49 4f 4e 20 50 28 2a 29 | 2c 57 28 2a 29 2c 56 28 |ION P(*)|,W(*),V(|
|00019b10| 2a 29 2c 58 46 28 2a 29 | 2c 47 58 28 2a 29 2c 43 |*),XF(*)|,GX(*),C|
|00019b20| 53 28 2a 29 2c 47 28 2a | 29 2c 41 43 28 2a 29 2c |S(*),G(*|),AC(*),|
|00019b30| 47 4f 28 2a 29 2c 0a 20 | 20 20 20 20 26 47 58 30 |GO(*),. | &GX0|
|00019b40| 28 2a 29 2c 56 52 54 28 | 2a 29 2c 50 48 28 2a 29 |(*),VRT(|*),PH(*)|
|00019b50| 2c 50 48 56 28 2a 29 2c | 4e 5a 50 4f 28 2a 29 0a |,PHV(*),|NZPO(*).|
|00019b60| 20 20 20 20 20 20 44 41 | 54 41 20 5a 45 52 4f 2c | DA|TA ZERO,|
|00019b70| 4f 4e 45 2c 54 57 4f 2c | 54 48 52 45 45 2c 45 49 |ONE,TWO,|THREE,EI|
|00019b80| 47 48 54 2c 54 48 4f 55 | 2f 0a 20 20 20 20 20 26 |GHT,THOU|/. &|
|00019b90| 30 2e 30 44 2b 30 30 2c | 31 2e 30 44 2b 30 2c 32 |0.0D+00,|1.0D+0,2|
|00019ba0| 2e 30 44 2b 30 2c 33 2e | 30 44 2b 30 2c 38 2e 30 |.0D+0,3.|0D+0,8.0|
|00019bb0| 44 2b 30 2c 31 2e 30 44 | 2b 33 2f 0a 20 20 20 20 |D+0,1.0D|+3/. |
|00019bc0| 20 20 44 41 54 41 20 54 | 4b 2c 41 56 4e 2c 42 4b | DATA T|K,AVN,BK|
|00019bd0| 2c 45 2c 50 49 2f 0a 20 | 20 20 20 20 26 32 37 33 |,E,PI/. | &273|
|00019be0| 2e 31 35 44 2b 30 2c 36 | 2e 30 32 32 30 34 35 44 |.15D+0,6|.022045D|
|00019bf0| 2b 32 33 2c 31 2e 33 38 | 30 36 36 32 44 2d 31 36 |+23,1.38|0662D-16|
|00019c00| 2c 34 2e 38 30 33 32 34 | 32 44 2d 31 30 2c 33 2e |,4.80324|2D-10,3.|
|00019c10| 31 34 31 35 39 32 36 44 | 2b 30 2f 0a 20 20 20 20 |1415926D|+0/. |
|00019c20| 20 20 56 53 52 54 3d 56 | 53 2f 52 54 0a 43 20 20 | VSRT=V|S/RT.C |
|00019c30| 41 53 53 49 47 4e 20 53 | 4f 4c 55 42 49 4c 49 54 |ASSIGN S|OLUBILIT|
|00019c40| 59 20 50 41 52 41 4d 45 | 54 45 52 20 56 41 4c 55 |Y PARAME|TER VALU|
|00019c50| 45 53 0a 20 20 20 20 20 | 20 4b 3d 4e 53 4f 2a 28 |ES. | K=NSO*(|
|00019c60| 31 2b 4e 50 48 2b 4e 50 | 41 29 2b 32 2a 28 4e 50 |1+NPH+NP|A)+2*(NP|
|00019c70| 48 2b 4e 50 41 29 2b 4e | 53 41 0a 20 20 20 20 20 |H+NPA)+N|SA. |
|00019c80| 20 44 4f 20 31 30 20 49 | 3d 31 2c 28 4e 53 4f 2b | DO 10 I|=1,(NSO+|
|00019c90| 32 29 0a 20 20 20 20 20 | 20 4b 3d 4b 2b 31 0a 20 |2). | K=K+1. |
|00019ca0| 20 20 20 20 20 49 46 28 | 4e 49 4f 2e 4e 45 2e 31 | IF(|NIO.NE.1|
|00019cb0| 29 20 47 4f 28 49 29 3d | 50 28 4b 29 0a 20 20 20 |) GO(I)=|P(K). |
|00019cc0| 20 20 20 49 46 28 4e 49 | 4f 2e 45 51 2e 31 29 20 | IF(NI|O.EQ.1) |
|00019cd0| 47 4f 28 49 29 3d 47 4f | 53 0a 31 30 20 20 20 20 |GO(I)=GO|S.10 |
|00019ce0| 43 4f 4e 54 49 4e 55 45 | 0a 43 20 20 45 56 41 4c |CONTINUE|.C EVAL|
|00019cf0| 55 41 54 45 20 43 4f 4e | 53 54 41 4e 54 53 20 49 |UATE CON|STANTS I|
|00019d00| 4e 20 45 58 50 52 45 53 | 53 49 4f 4e 20 46 4f 52 |N EXPRES|SION FOR|
|00019d10| 20 41 43 54 49 56 49 54 | 59 20 43 4f 45 46 46 49 | ACTIVIT|Y COEFFI|
|00019d20| 43 49 45 4e 54 53 20 4f | 46 0a 43 20 20 20 49 4f |CIENTS O|F.C IO|
|00019d30| 4e 49 43 20 53 50 45 43 | 49 45 53 2c 20 49 46 20 |NIC SPEC|IES, IF |
|00019d40| 4e 45 45 44 45 44 0a 20 | 20 20 20 20 20 49 46 28 |NEEDED. | IF(|
|00019d50| 49 52 45 46 2e 4e 45 2e | 30 2e 41 4e 44 2e 4e 49 |IREF.NE.|0.AND.NI|
|00019d60| 4f 2e 45 51 2e 30 29 20 | 54 48 45 4e 0a 43 20 20 |O.EQ.0) |THEN.C |
|00019d70| 20 20 20 20 41 43 54 49 | 56 49 54 59 20 43 4f 45 | ACTI|VITY COE|
|00019d80| 46 53 2e 57 49 4c 4c 20 | 42 45 20 43 41 4c 43 55 |FS.WILL |BE CALCU|
|00019d90| 4c 41 54 45 44 20 46 4f | 52 20 49 4f 4e 49 43 20 |LATED FO|R IONIC |
|00019da0| 53 50 45 43 49 45 53 0a | 20 20 20 20 20 20 20 20 |SPECIES.| |
|00019db0| 54 3d 54 43 2b 54 4b 0a | 09 41 54 4d 3d 44 53 51 |T=TC+TK.|.ATM=DSQ|
|00019dc0| 52 54 28 57 53 2f 56 53 | 29 2a 41 46 54 2f 28 44 |RT(WS/VS|)*AFT/(D|
|00019dd0| 53 2a 54 29 2a 2a 28 54 | 48 52 45 45 2f 54 57 4f |S*T)**(T|HREE/TWO|
|00019de0| 29 0a 09 42 54 4d 3d 44 | 53 51 52 54 28 57 53 2f |)..BTM=D|SQRT(WS/|
|00019df0| 56 53 29 2a 42 46 54 2f | 44 53 51 52 54 28 44 53 |VS)*BFT/|DSQRT(DS|
|00019e00| 2a 54 29 0a 09 51 54 4d | 3d 51 46 54 2f 28 44 53 |*T)..QTM|=QFT/(DS|
|00019e10| 2a 54 29 0a 43 20 20 20 | 20 20 20 43 41 4c 43 55 |*T).C | CALCU|
|00019e20| 4c 41 54 45 44 20 53 4d | 41 4c 4c 45 53 54 20 50 |LATED SM|ALLEST P|
|00019e30| 52 4f 44 55 43 54 20 4f | 46 20 5a 2b 20 41 4e 44 |RODUCT O|F Z+ AND|
|00019e40| 20 5a 2d 0a 20 20 20 20 | 20 20 20 20 4e 5a 50 4f | Z-. | NZPO|
|00019e50| 43 3d 31 30 0a 20 20 20 | 20 20 20 20 20 4e 5a 50 |C=10. | NZP|
|00019e60| 4f 41 3d 2d 31 30 0a 09 | 44 4f 20 31 32 20 49 3d |OA=-10..|DO 12 I=|
|00019e70| 31 2c 4e 53 4f 0a 09 49 | 46 28 4e 5a 50 4f 28 49 |1,NSO..I|F(NZPO(I|
|00019e80| 29 2e 47 54 2e 30 2e 41 | 4e 44 2e 4e 5a 50 4f 28 |).GT.0.A|ND.NZPO(|
|00019e90| 49 29 2e 4c 54 2e 4e 5a | 50 4f 43 29 20 4e 5a 50 |I).LT.NZ|POC) NZP|
|00019ea0| 4f 43 3d 4e 5a 50 4f 28 | 49 29 0a 20 20 20 20 20 |OC=NZPO(|I). |
|00019eb0| 20 20 20 49 46 28 4e 5a | 50 4f 28 49 29 2e 4c 54 | IF(NZ|PO(I).LT|
|00019ec0| 2e 30 2e 41 4e 44 2e 4e | 5a 50 4f 28 49 29 2e 47 |.0.AND.N|ZPO(I).G|
|00019ed0| 54 2e 4e 5a 50 4f 41 29 | 20 4e 5a 50 4f 41 3d 4e |T.NZPOA)| NZPOA=N|
|00019ee0| 5a 50 4f 28 49 29 0a 31 | 32 20 20 20 20 20 20 43 |ZPO(I).1|2 C|
|00019ef0| 4f 4e 54 49 4e 55 45 0a | 20 20 20 20 20 20 20 20 |ONTINUE.| |
|00019f00| 5a 50 4f 43 41 3d 44 41 | 42 53 28 44 42 4c 45 28 |ZPOCA=DA|BS(DBLE(|
|00019f10| 4e 5a 50 4f 43 29 2a 44 | 42 4c 45 28 4e 5a 50 4f |NZPOC)*D|BLE(NZPO|
|00019f20| 41 29 29 0a 43 0a 43 20 | 20 20 20 20 20 20 20 57 |A)).C.C | W|
|00019f30| 52 49 54 45 28 39 2c 34 | 33 32 31 29 20 41 54 4d |RITE(9,4|321) ATM|
|00019f40| 2c 42 54 4d 2c 51 54 4d | 2c 5a 50 4f 43 41 0a 43 |,BTM,QTM|,ZPOCA.C|
|00019f50| 34 33 32 31 20 20 20 20 | 46 4f 52 4d 41 54 28 2f |4321 |FORMAT(/|
|00019f60| 31 58 2c 27 20 20 20 20 | 20 20 20 20 20 20 20 20 |1X,' | |
|00019f70| 41 54 4d 20 20 20 20 20 | 20 20 20 20 20 20 20 42 |ATM | B|
|00019f80| 54 4d 20 20 20 20 20 20 | 20 20 20 20 20 20 51 54 |TM | QT|
|00019f90| 4d 27 2c 0a 43 20 20 20 | 20 20 26 20 20 27 20 20 |M',.C | & ' |
|00019fa0| 20 5a 50 4f 43 41 27 2f | 31 58 2c 31 50 33 45 31 | ZPOCA'/|1X,1P3E1|
|00019fb0| 35 2e 38 2c 30 50 46 38 | 2e 31 29 0a 43 20 20 20 |5.8,0PF8|.1).C |
|00019fc0| 20 20 20 20 20 50 41 55 | 53 45 0a 43 20 20 20 20 | PAU|SE.C |
|00019fd0| 20 20 43 41 4c 43 55 4c | 41 54 45 20 43 4f 4e 53 | CALCUL|ATE CONS|
|00019fe0| 54 41 4e 54 20 54 45 52 | 4d 20 41 53 53 4f 43 49 |TANT TER|M ASSOCI|
|00019ff0| 41 54 45 44 20 57 49 54 | 48 20 43 4f 4e 54 52 49 |ATED WIT|H CONTRI|
|0001a000| 42 55 54 49 4f 4e 20 4f | 46 20 49 4f 4e 53 20 54 |BUTION O|F IONS T|
|0001a010| 4f 0a 43 20 20 20 20 20 | 20 20 53 4f 4c 56 45 4e |O.C | SOLVEN|
|0001a020| 54 20 41 43 54 49 56 49 | 54 59 0a 20 20 20 20 20 |T ACTIVI|TY. |
|0001a030| 20 20 20 53 45 46 43 54 | 3d 54 57 4f 2a 57 53 2a | SEFCT|=TWO*WS*|
|0001a040| 41 54 4d 2f 28 54 48 4f | 55 2a 28 5a 50 4f 43 41 |ATM/(THO|U*(ZPOCA|
|0001a050| 2a 41 54 4d 29 2a 2a 33 | 29 0a 20 20 20 20 20 20 |*ATM)**3|). |
|0001a060| 45 4e 44 20 49 46 0a 43 | 20 20 43 41 4c 43 55 4c |END IF.C| CALCUL|
|0001a070| 41 54 45 20 20 4d 4f 4c | 45 20 46 52 41 43 54 49 |ATE MOL|E FRACTI|
|0001a080| 4f 4e 20 41 43 54 49 56 | 49 54 59 20 43 4f 45 46 |ON ACTIV|ITY COEF|
|0001a090| 46 49 43 49 45 4e 54 20 | 41 54 20 49 4e 46 49 4e |FICIENT |AT INFIN|
|0001a0a0| 49 54 45 20 44 49 4c 55 | 54 49 4f 4e 0a 43 20 20 |ITE DILU|TION.C |
|0001a0b0| 20 46 4f 52 20 45 41 43 | 48 20 53 4f 4c 55 54 45 | FOR EAC|H SOLUTE|
|0001a0c0| 20 53 50 45 43 49 45 53 | 20 41 4e 44 20 4f 54 48 | SPECIES| AND OTH|
|0001a0d0| 45 52 20 51 55 41 4e 54 | 49 54 49 45 53 20 54 48 |ER QUANT|ITIES TH|
|0001a0e0| 41 54 20 4d 41 59 20 42 | 45 20 4e 45 45 44 45 44 |AT MAY B|E NEEDED|
|0001a0f0| 0a 20 20 20 20 20 20 44 | 4f 20 31 35 20 49 3d 31 |. D|O 15 I=1|
|0001a100| 2c 28 32 2b 4e 53 4f 29 | 0a 20 20 20 20 20 20 49 |,(2+NSO)|. I|
|0001a110| 46 28 49 2e 4c 45 2e 32 | 29 20 4b 3d 49 0a 20 20 |F(I.LE.2|) K=I. |
|0001a120| 20 20 20 20 49 46 28 49 | 2e 47 54 2e 32 29 20 4b | IF(I|.GT.2) K|
|0001a130| 3d 36 2b 49 0a 20 20 20 | 20 20 20 56 52 54 28 49 |=6+I. | VRT(I|
|0001a140| 29 3d 56 28 4b 29 2f 52 | 54 0a 20 20 20 20 20 20 |)=V(K)/R|T. |
|0001a150| 46 48 52 3d 56 28 4b 29 | 2f 56 53 0a 20 20 20 20 |FHR=V(K)|/VS. |
|0001a160| 20 20 47 58 30 28 49 29 | 3d 46 48 52 2a 44 45 58 | GX0(I)|=FHR*DEX|
|0001a170| 50 28 56 52 54 28 49 29 | 2a 28 47 4f 28 49 29 2d |P(VRT(I)|*(GO(I)-|
|0001a180| 47 4f 53 29 2a 2a 32 2b | 4f 4e 45 2d 46 48 52 29 |GOS)**2+|ONE-FHR)|
|0001a190| 0a 31 35 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a |.15 C|ONTINUE.|
|0001a1a0| 20 20 20 20 20 20 52 45 | 54 55 52 4e 0a 43 0a 43 | RE|TURN.C.C|
|0001a1b0| 20 20 45 4e 54 52 59 20 | 50 4f 49 4e 54 20 46 4f | ENTRY |POINT FO|
|0001a1c0| 52 20 43 41 4c 43 55 4c | 41 54 49 4e 47 20 43 55 |R CALCUL|ATING CU|
|0001a1d0| 52 52 45 4e 54 20 41 43 | 54 49 56 49 54 59 20 43 |RRENT AC|TIVITY C|
|0001a1e0| 4f 45 46 46 49 43 49 45 | 4e 54 53 0a 20 20 20 20 |OEFFICIE|NTS. |
|0001a1f0| 20 20 45 4e 54 52 59 20 | 45 4e 54 4f 41 43 28 50 | ENTRY |ENTOAC(P|
|0001a200| 2c 57 2c 56 2c 58 46 2c | 47 58 2c 43 53 2c 47 2c |,W,V,XF,|GX,CS,G,|
|0001a210| 41 43 2c 47 4f 2c 47 58 | 30 2c 56 52 54 2c 50 48 |AC,GO,GX|0,VRT,PH|
|0001a220| 2c 50 48 56 2c 4e 5a 50 | 4f 2c 49 43 4e 29 0a 43 |,PHV,NZP|O,ICN).C|
|0001a230| 0a 43 20 20 20 20 20 20 | 57 52 49 54 45 28 2a 2c |.C |WRITE(*,|
|0001a240| 31 30 30 33 29 20 43 53 | 28 31 29 2c 43 53 28 32 |1003) CS|(1),CS(2|
|0001a250| 29 2c 28 43 53 28 4b 4b | 29 2c 4b 4b 3d 39 2c 28 |),(CS(KK|),KK=9,(|
|0001a260| 38 2b 4e 53 4f 29 29 0a | 43 31 30 30 33 20 20 46 |8+NSO)).|C1003 F|
|0001a270| 4f 52 4d 41 54 28 31 58 | 2c 27 43 53 3a 27 2f 28 |ORMAT(1X|,'CS:'/(|
|0001a280| 31 58 2c 31 50 36 45 31 | 33 2e 32 2f 29 29 0a 43 |1X,1P6E1|3.2/)).C|
|0001a290| 0a 43 20 20 20 20 20 20 | 50 41 55 53 45 0a 43 0a |.C |PAUSE.C.|
|0001a2a0| 43 20 20 43 41 4c 43 55 | 41 4c 54 45 20 54 48 45 |C CALCU|ALTE THE|
|0001a2b0| 20 56 4f 4c 55 4d 45 20 | 46 52 41 43 54 49 4f 4e | VOLUME |FRACTION|
|0001a2c0| 20 4f 46 20 45 41 43 48 | 20 53 4f 4c 55 54 45 20 | OF EACH| SOLUTE |
|0001a2d0| 53 50 45 43 49 45 53 2c | 20 54 48 45 20 41 56 45 |SPECIES,| THE AVE|
|0001a2e0| 52 41 47 45 0a 43 20 20 | 20 53 4f 4c 55 42 49 4c |RAGE.C | SOLUBIL|
|0001a2f0| 49 54 59 20 50 41 52 41 | 4d 45 54 45 52 2c 20 41 |ITY PARA|METER, A|
|0001a300| 4e 44 20 54 48 45 20 54 | 4f 54 41 4c 20 53 4f 4c |ND THE T|OTAL SOL|
|0001a310| 55 54 45 20 43 4f 4e 43 | 45 4e 54 52 41 54 49 4f |UTE CONC|ENTRATIO|
|0001a320| 4e 0a 20 20 20 20 20 20 | 54 43 53 3d 5a 45 52 4f |N. |TCS=ZERO|
|0001a330| 0a 20 20 20 20 20 20 54 | 56 53 4f 3d 5a 45 52 4f |. T|VSO=ZERO|
|0001a340| 0a 20 20 20 20 20 20 54 | 57 53 4f 3d 5a 45 52 4f |. T|WSO=ZERO|
|0001a350| 0a 20 20 20 20 20 20 43 | 49 3d 5a 45 52 4f 0a 20 |. C|I=ZERO. |
|0001a360| 20 20 20 20 20 44 4f 20 | 32 30 20 49 3d 31 2c 28 | DO |20 I=1,(|
|0001a370| 32 2b 4e 53 4f 29 0a 20 | 20 20 20 20 20 49 46 28 |2+NSO). | IF(|
|0001a380| 49 2e 4c 45 2e 32 29 20 | 4b 3d 49 0a 20 20 20 20 |I.LE.2) |K=I. |
|0001a390| 20 20 49 46 28 49 2e 47 | 54 2e 32 29 20 4b 3d 36 | IF(I.G|T.2) K=6|
|0001a3a0| 2b 49 0a 20 20 20 20 20 | 20 54 43 53 3d 54 43 53 |+I. | TCS=TCS|
|0001a3b0| 2b 43 53 28 4b 29 0a 20 | 20 20 20 20 20 49 46 28 |+CS(K). | IF(|
|0001a3c0| 49 2e 47 54 2e 32 2e 41 | 4e 44 2e 4e 5a 50 4f 28 |I.GT.2.A|ND.NZPO(|
|0001a3d0| 49 2d 32 29 2e 4e 45 2e | 30 29 20 54 48 45 4e 0a |I-2).NE.|0) THEN.|
|0001a3e0| 43 20 20 20 20 20 20 41 | 44 44 20 43 4f 4e 54 52 |C A|DD CONTR|
|0001a3f0| 49 42 55 54 49 4f 4e 20 | 54 4f 20 49 4f 4e 49 43 |IBUTION |TO IONIC|
|0001a400| 20 53 54 52 45 4e 47 54 | 48 0a 20 20 20 20 20 20 | STRENGT|H. |
|0001a410| 20 20 43 49 3d 43 49 2b | 28 44 42 4c 45 28 4e 5a | CI=CI+|(DBLE(NZ|
|0001a420| 50 4f 28 49 2d 32 29 29 | 29 2a 2a 32 2a 43 53 28 |PO(I-2))|)**2*CS(|
|0001a430| 4b 29 2f 54 57 4f 0a 20 | 20 20 20 20 20 45 4e 44 |K)/TWO. | END|
|0001a440| 20 49 46 0a 20 20 20 20 | 20 20 54 56 53 4f 3d 54 | IF. | TVSO=T|
|0001a450| 56 53 4f 2b 56 28 4b 29 | 2a 43 53 28 4b 29 0a 20 |VSO+V(K)|*CS(K). |
|0001a460| 20 20 20 20 20 54 57 53 | 4f 3d 54 57 53 4f 2b 57 | TWS|O=TWSO+W|
|0001a470| 28 4b 29 2a 43 53 28 4b | 29 0a 32 30 20 20 20 20 |(K)*CS(K|).20 |
|0001a480| 43 4f 4e 54 49 4e 55 45 | 0a 43 0a 43 20 20 20 20 |CONTINUE|.C.C |
|0001a490| 20 20 57 52 49 54 45 28 | 39 2c 33 32 31 30 29 20 | WRITE(|9,3210) |
|0001a4a0| 54 56 53 4f 2c 54 57 53 | 4f 2c 28 43 53 28 4b 29 |TVSO,TWS|O,(CS(K)|
|0001a4b0| 2c 4b 3d 39 2c 28 38 2b | 4e 53 4f 29 29 0a 43 20 |,K=9,(8+|NSO)).C |
|0001a4c0| 20 20 20 20 20 57 52 49 | 54 45 28 31 32 2c 33 32 | WRI|TE(12,32|
|0001a4d0| 31 30 29 20 54 56 53 4f | 2c 54 57 53 4f 2c 28 43 |10) TVSO|,TWSO,(C|
|0001a4e0| 53 28 4b 29 2c 4b 3d 39 | 2c 28 38 2b 4e 53 4f 29 |S(K),K=9|,(8+NSO)|
|0001a4f0| 29 0a 43 33 32 31 30 20 | 20 46 4f 52 4d 41 54 28 |).C3210 | FORMAT(|
|0001a500| 2f 31 58 2c 27 20 20 20 | 20 20 20 20 20 54 56 53 |/1X,' | TVS|
|0001a510| 4f 20 20 20 20 20 20 20 | 20 54 57 53 4f 20 20 20 |O | TWSO |
|0001a520| 20 20 20 20 43 53 28 49 | 29 27 2f 0a 43 20 20 20 | CS(I|)'/.C |
|0001a530| 20 20 26 31 58 2c 31 50 | 36 45 31 32 2e 33 2f 28 | &1X,1P|6E12.3/(|
|0001a540| 32 35 58 2c 34 45 31 32 | 2e 33 2f 29 29 0a 43 20 |25X,4E12|.3/)).C |
|0001a550| 20 20 20 20 20 50 41 55 | 53 45 0a 43 0a 20 20 20 | PAU|SE.C. |
|0001a560| 20 20 20 49 46 28 49 43 | 4e 2e 45 51 2e 31 29 20 | IF(IC|N.EQ.1) |
|0001a570| 54 48 45 4e 0a 20 20 20 | 20 20 20 20 20 54 56 4c |THEN. | TVL|
|0001a580| 3d 54 48 4f 55 0a 09 54 | 57 4c 3d 28 54 48 4f 55 |=THOU..T|WL=(THOU|
|0001a590| 2d 54 56 53 4f 29 2a 57 | 53 2f 56 53 2b 54 57 53 |-TVSO)*W|S/VS+TWS|
|0001a5a0| 4f 0a 09 52 4d 43 4f 3d | 54 56 4c 2f 28 54 57 4c |O..RMCO=|TVL/(TWL|
|0001a5b0| 2d 54 57 53 4f 29 0a 20 | 20 20 20 20 20 45 4e 44 |-TWSO). | END|
|0001a5c0| 20 49 46 0a 20 20 20 20 | 20 20 49 46 28 49 43 4e | IF. | IF(ICN|
|0001a5d0| 2e 45 51 2e 32 29 20 54 | 48 45 4e 0a 20 20 20 20 |.EQ.2) T|HEN. |
|0001a5e0| 20 20 20 20 54 56 4c 3d | 54 48 4f 55 2a 56 53 2f | TVL=|THOU*VS/|
|0001a5f0| 57 53 2b 54 56 53 4f 0a | 09 54 57 4c 3d 54 48 4f |WS+TVSO.|.TWL=THO|
|0001a600| 55 2b 54 57 53 4f 0a 09 | 52 4d 43 4f 3d 4f 4e 45 |U+TWSO..|RMCO=ONE|
|0001a610| 0a 20 20 20 20 20 20 45 | 4e 44 20 49 46 0a 20 20 |. E|ND IF. |
|0001a620| 20 20 20 20 49 46 28 49 | 43 4e 2e 45 51 2e 33 29 | IF(I|CN.EQ.3)|
|0001a630| 20 54 48 45 4e 0a 20 20 | 20 20 20 20 20 20 54 56 | THEN. | TV|
|0001a640| 4c 3d 28 54 48 4f 55 2d | 54 57 53 4f 29 2a 56 53 |L=(THOU-|TWSO)*VS|
|0001a650| 2f 57 53 2b 54 56 53 4f | 0a 09 54 57 4c 3d 54 48 |/WS+TVSO|..TWL=TH|
|0001a660| 4f 55 0a 09 52 4d 43 4f | 3d 54 57 4c 2f 28 54 57 |OU..RMCO|=TWL/(TW|
|0001a670| 4c 2d 54 57 53 4f 29 0a | 20 20 20 20 20 20 45 4e |L-TWSO).| EN|
|0001a680| 44 20 49 46 0a 43 0a 20 | 20 20 20 20 20 49 46 28 |D IF.C. | IF(|
|0001a690| 43 49 2e 47 54 2e 5a 45 | 52 4f 29 20 54 48 45 4e |CI.GT.ZE|RO) THEN|
|0001a6a0| 0a 43 20 20 20 20 20 20 | 49 4f 4e 53 20 41 52 45 |.C |IONS ARE|
|0001a6b0| 20 50 52 45 53 45 4e 54 | 3a 20 43 4f 52 52 45 43 | PRESENT|: CORREC|
|0001a6c0| 54 20 43 49 20 54 4f 20 | 4d 4f 4c 41 4c 49 54 59 |T CI TO |MOLALITY|
|0001a6d0| 20 53 43 41 4c 45 20 49 | 46 20 4e 45 43 45 53 53 | SCALE I|F NECESS|
|0001a6e0| 41 52 59 0a 43 20 20 20 | 20 20 20 20 41 4e 44 20 |ARY.C | AND |
|0001a6f0| 43 41 4c 43 55 4c 41 54 | 45 20 54 48 45 20 44 45 |CALCULAT|E THE DE|
|0001a700| 42 45 59 45 2d 48 55 43 | 4b 45 4c 20 46 41 43 54 |BEYE-HUC|KEL FACT|
|0001a710| 4f 52 0a 20 20 20 20 20 | 20 20 20 43 49 3d 43 49 |OR. | CI=CI|
|0001a720| 2a 52 4d 43 4f 0a 20 20 | 20 20 20 20 20 20 53 51 |*RMCO. | SQ|
|0001a730| 49 3d 44 53 51 52 54 28 | 43 49 29 0a 09 44 4e 54 |I=DSQRT(|CI)..DNT|
|0001a740| 4d 3d 4f 4e 45 2b 5a 50 | 4f 43 41 2a 42 54 4d 2a |M=ONE+ZP|OCA*BTM*|
|0001a750| 51 54 4d 2a 53 51 49 0a | 20 20 20 20 20 20 20 20 |QTM*SQI.| |
|0001a760| 44 48 46 54 3d 2d 41 54 | 4d 2a 53 51 49 2f 44 4e |DHFT=-AT|M*SQI/DN|
|0001a770| 54 4d 0a 09 45 46 54 31 | 3d 44 45 58 50 28 44 48 |TM..EFT1|=DEXP(DH|
|0001a780| 46 54 29 0a 20 20 20 20 | 20 20 45 4e 44 20 49 46 |FT). | END IF|
|0001a790| 0a 43 0a 20 20 20 20 20 | 20 50 48 53 3d 4f 4e 45 |.C. | PHS=ONE|
|0001a7a0| 0a 20 20 20 20 20 20 47 | 41 56 3d 5a 45 52 4f 0a |. G|AV=ZERO.|
|0001a7b0| 20 20 20 20 20 20 44 4f | 20 32 35 20 49 3d 31 2c | DO| 25 I=1,|
|0001a7c0| 28 32 2b 4e 53 4f 29 0a | 20 20 20 20 20 20 49 46 |(2+NSO).| IF|
|0001a7d0| 28 49 2e 4c 45 2e 32 29 | 20 4b 3d 49 0a 20 20 20 |(I.LE.2)| K=I. |
|0001a7e0| 20 20 20 49 46 28 49 2e | 47 54 2e 32 29 20 4b 3d | IF(I.|GT.2) K=|
|0001a7f0| 36 2b 49 0a 20 20 20 20 | 20 20 50 48 28 49 29 3d |6+I. | PH(I)=|
|0001a800| 56 28 4b 29 2a 43 53 28 | 4b 29 2f 54 56 4c 0a 43 |V(K)*CS(|K)/TVL.C|
|0001a810| 0a 43 20 20 20 20 20 20 | 57 52 49 54 45 28 2a 2c |.C |WRITE(*,|
|0001a820| 31 30 30 35 29 20 49 2c | 4b 2c 54 56 4c 2c 56 28 |1005) I,|K,TVL,V(|
|0001a830| 4b 29 2c 43 53 28 4b 29 | 2c 50 48 28 49 29 0a 43 |K),CS(K)|,PH(I).C|
|0001a840| 20 20 20 20 20 20 50 41 | 55 53 45 0a 43 0a 20 20 | PA|USE.C. |
|0001a850| 20 20 20 20 49 46 28 50 | 48 28 49 29 2e 47 54 2e | IF(P|H(I).GT.|
|0001a860| 4f 4e 45 29 20 54 48 45 | 4e 0a 43 20 20 20 20 20 |ONE) THE|N.C |
|0001a870| 20 41 20 56 4f 4c 55 4d | 45 20 46 52 41 43 54 49 | A VOLUM|E FRACTI|
|0001a880| 4f 4e 20 43 41 4e 20 4e | 4f 54 20 45 58 43 45 45 |ON CAN N|OT EXCEE|
|0001a890| 44 20 55 4e 49 54 59 0a | 20 20 20 20 20 20 20 20 |D UNITY.| |
|0001a8a0| 57 52 49 54 45 28 2a 2c | 31 30 30 35 29 20 49 2c |WRITE(*,|1005) I,|
|0001a8b0| 4b 2c 54 56 4c 2c 56 28 | 4b 29 2c 43 53 28 4b 29 |K,TVL,V(|K),CS(K)|
|0001a8c0| 2c 50 48 28 49 29 0a 31 | 30 30 35 20 20 20 20 46 |,PH(I).1|005 F|
|0001a8d0| 4f 52 4d 41 54 28 2f 31 | 58 27 41 20 56 4f 4c 55 |ORMAT(/1|X'A VOLU|
|0001a8e0| 4d 45 20 46 52 41 43 54 | 49 4f 4e 20 48 41 53 20 |ME FRACT|ION HAS |
|0001a8f0| 45 58 43 45 45 44 45 44 | 20 55 4e 49 54 59 27 2f |EXCEEDED| UNITY'/|
|0001a900| 0a 20 20 20 20 20 26 20 | 20 31 58 2c 27 20 20 49 |. & | 1X,' I|
|0001a910| 20 20 4b 20 20 20 20 20 | 20 20 20 20 20 54 56 4c | K | TVL|
|0001a920| 20 20 20 20 20 20 56 28 | 4b 29 20 20 20 20 20 20 | V(|K) |
|0001a930| 20 20 43 53 28 4b 29 20 | 20 20 20 20 20 20 20 50 | CS(K) | P|
|0001a940| 48 28 49 29 27 2f 0a 20 | 20 20 20 20 26 20 20 31 |H(I)'/. | & 1|
|0001a950| 58 2c 32 49 33 2c 46 31 | 30 2e 32 2c 31 50 33 45 |X,2I3,F1|0.2,1P3E|
|0001a960| 31 33 2e 32 2f 29 0a 20 | 20 20 20 20 20 20 20 50 |13.2/). | P|
|0001a970| 41 55 53 45 0a 20 20 20 | 20 20 20 20 20 53 54 4f |AUSE. | STO|
|0001a980| 50 0a 20 20 20 20 20 20 | 45 4e 44 20 49 46 0a 20 |P. |END IF. |
|0001a990| 20 20 20 20 20 47 41 56 | 3d 47 41 56 2b 50 48 28 | GAV|=GAV+PH(|
|0001a9a0| 49 29 2a 47 4f 28 49 29 | 0a 20 20 20 20 20 20 50 |I)*GO(I)|. P|
|0001a9b0| 48 53 3d 50 48 53 2d 50 | 48 28 49 29 0a 20 20 20 |HS=PHS-P|H(I). |
|0001a9c0| 20 20 20 49 46 28 50 48 | 53 2e 4c 54 2e 5a 45 52 | IF(PH|S.LT.ZER|
|0001a9d0| 4f 29 20 54 48 45 4e 0a | 43 20 20 20 20 20 20 54 |O) THEN.|C T|
|0001a9e0| 48 45 20 56 4f 4c 55 4d | 45 20 46 52 41 43 54 49 |HE VOLUM|E FRACTI|
|0001a9f0| 4f 4e 20 4f 46 20 54 48 | 45 20 53 4f 4c 56 45 4e |ON OF TH|E SOLVEN|
|0001aa00| 54 20 43 41 4e 20 4e 4f | 54 20 42 45 20 4e 45 47 |T CAN NO|T BE NEG|
|0001aa10| 41 54 49 56 45 0a 20 20 | 20 20 20 20 20 20 57 52 |ATIVE. | WR|
|0001aa20| 49 54 45 28 39 2c 31 30 | 30 36 29 20 49 2c 50 48 |ITE(9,10|06) I,PH|
|0001aa30| 53 0a 20 31 30 30 36 20 | 20 20 46 4f 52 4d 41 54 |S. 1006 | FORMAT|
|0001aa40| 28 2f 31 58 2c 27 54 48 | 45 20 43 41 4c 43 55 4c |(/1X,'TH|E CALCUL|
|0001aa50| 41 54 45 44 20 56 4f 4c | 55 4d 45 20 46 52 41 43 |ATED VOL|UME FRAC|
|0001aa60| 54 49 4f 4e 20 4f 46 20 | 54 48 45 20 53 4f 4c 56 |TION OF |THE SOLV|
|0001aa70| 45 4e 54 20 49 53 27 2c | 0a 20 20 20 20 20 26 20 |ENT IS',|. & |
|0001aa80| 20 20 46 31 30 2e 33 29 | 0a 20 20 20 20 20 20 20 | F10.3)|. |
|0001aa90| 20 50 41 55 53 45 0a 20 | 20 20 20 20 20 20 20 53 | PAUSE. | S|
|0001aaa0| 54 4f 50 0a 20 20 20 20 | 20 20 45 4e 44 20 49 46 |TOP. | END IF|
|0001aab0| 0a 32 35 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a |.25 C|ONTINUE.|
|0001aac0| 20 20 20 20 20 20 47 41 | 56 3d 47 41 56 2b 50 48 | GA|V=GAV+PH|
|0001aad0| 53 2a 47 4f 53 0a 43 20 | 20 43 41 4c 43 55 4c 41 |S*GOS.C | CALCULA|
|0001aae0| 54 45 20 4d 4f 4c 45 20 | 46 52 41 43 54 49 4f 4e |TE MOLE |FRACTION|
|0001aaf0| 53 0a 20 20 20 20 20 20 | 53 50 56 3d 5a 45 52 4f |S. |SPV=ZERO|
|0001ab00| 0a 20 20 20 20 20 20 44 | 4f 20 33 30 20 49 3d 31 |. D|O 30 I=1|
|0001ab10| 2c 28 32 2b 4e 53 4f 29 | 0a 20 20 20 20 20 20 49 |,(2+NSO)|. I|
|0001ab20| 46 28 49 2e 4c 45 2e 32 | 29 20 4b 3d 49 0a 20 20 |F(I.LE.2|) K=I. |
|0001ab30| 20 20 20 20 49 46 28 49 | 2e 47 54 2e 32 29 20 4b | IF(I|.GT.2) K|
|0001ab40| 3d 36 2b 49 0a 20 20 20 | 20 20 20 50 48 56 28 49 |=6+I. | PHV(I|
|0001ab50| 29 3d 50 48 28 49 29 2f | 56 28 4b 29 0a 20 20 20 |)=PH(I)/|V(K). |
|0001ab60| 20 20 20 53 50 56 3d 53 | 50 56 2b 50 48 56 28 49 | SPV=S|PV+PHV(I|
|0001ab70| 29 0a 33 30 20 20 20 20 | 43 4f 4e 54 49 4e 55 45 |).30 |CONTINUE|
|0001ab80| 0a 20 20 20 20 20 20 53 | 50 56 3d 53 50 56 2b 50 |. S|PV=SPV+P|
|0001ab90| 48 53 2f 56 53 0a 20 20 | 20 20 20 20 58 46 53 3d |HS/VS. | XFS=|
|0001aba0| 4f 4e 45 0a 20 20 20 20 | 20 20 44 4f 20 33 35 20 |ONE. | DO 35 |
|0001abb0| 49 3d 31 2c 28 32 2b 4e | 53 4f 29 0a 20 20 20 20 |I=1,(2+N|SO). |
|0001abc0| 20 20 49 46 28 49 2e 4c | 45 2e 32 29 20 4b 3d 49 | IF(I.L|E.2) K=I|
|0001abd0| 0a 20 20 20 20 20 20 49 | 46 28 49 2e 47 45 2e 33 |. I|F(I.GE.3|
|0001abe0| 29 20 4b 3d 36 2b 49 0a | 20 20 20 20 20 20 58 46 |) K=6+I.| XF|
|0001abf0| 28 49 29 3d 50 48 56 28 | 49 29 2f 53 50 56 0a 20 |(I)=PHV(|I)/SPV. |
|0001ac00| 20 20 20 20 20 58 46 53 | 3d 58 46 53 2d 58 46 28 | XFS|=XFS-XF(|
|0001ac10| 49 29 0a 33 35 20 20 20 | 20 43 4f 4e 54 49 4e 55 |I).35 | CONTINU|
|0001ac20| 45 0a 43 20 20 41 53 53 | 49 47 4e 20 52 41 54 49 |E.C ASS|IGN RATI|
|0001ac30| 4f 20 28 58 2f 43 29 2c | 20 54 48 45 20 4c 49 4d |O (X/C),| THE LIM|
|0001ac40| 49 54 20 4f 46 20 28 58 | 2f 43 29 20 41 54 20 49 |IT OF (X|/C) AT I|
|0001ac50| 4e 46 49 4e 49 54 45 20 | 44 49 4c 55 54 49 4f 4e |NFINITE |DILUTION|
|0001ac60| 2c 0a 43 20 20 20 41 4e | 44 20 54 48 45 20 52 41 |,.C AN|D THE RA|
|0001ac70| 54 49 4f 20 4f 46 20 54 | 48 45 53 45 20 54 57 4f |TIO OF T|HESE TWO|
|0001ac80| 20 51 55 41 4e 54 49 54 | 49 45 53 0a 20 20 20 20 | QUANTIT|IES. |
|0001ac90| 20 20 49 46 28 49 43 4e | 2e 45 51 2e 31 29 20 54 | IF(ICN|.EQ.1) T|
|0001aca0| 48 45 4e 0a 20 20 20 20 | 20 20 20 20 52 58 43 3d |HEN. | RXC=|
|0001acb0| 4f 4e 45 2f 28 54 43 53 | 2b 28 54 48 4f 55 2d 54 |ONE/(TCS|+(THOU-T|
|0001acc0| 56 53 4f 29 2f 56 53 29 | 0a 09 52 58 43 30 3d 56 |VSO)/VS)|..RXC0=V|
|0001acd0| 53 2f 54 48 4f 55 0a 20 | 20 20 20 20 20 45 4e 44 |S/THOU. | END|
|0001ace0| 20 49 46 0a 20 20 20 20 | 20 20 49 46 28 49 43 4e | IF. | IF(ICN|
|0001acf0| 2e 45 51 2e 32 29 20 54 | 48 45 4e 0a 20 20 20 20 |.EQ.2) T|HEN. |
|0001ad00| 20 20 20 20 52 58 43 3d | 4f 4e 45 2f 28 54 43 53 | RXC=|ONE/(TCS|
|0001ad10| 2b 54 48 4f 55 2f 57 53 | 29 0a 09 52 58 43 30 3d |+THOU/WS|)..RXC0=|
|0001ad20| 57 53 2f 54 48 4f 55 0a | 20 20 20 20 20 20 45 4e |WS/THOU.| EN|
|0001ad30| 44 20 49 46 0a 20 20 20 | 20 20 20 49 46 28 49 43 |D IF. | IF(IC|
|0001ad40| 4e 2e 45 51 2e 33 29 20 | 54 48 45 4e 0a 20 20 20 |N.EQ.3) |THEN. |
|0001ad50| 20 20 20 20 20 52 58 43 | 3d 4f 4e 45 2f 28 54 43 | RXC|=ONE/(TC|
|0001ad60| 53 2b 28 54 48 4f 55 2d | 54 57 53 4f 29 2f 57 53 |S+(THOU-|TWSO)/WS|
|0001ad70| 29 0a 09 52 58 43 30 3d | 57 53 2f 54 48 4f 55 0a |)..RXC0=|WS/THOU.|
|0001ad80| 20 20 20 20 20 20 45 4e | 44 20 49 46 0a 20 20 20 | EN|D IF. |
|0001ad90| 20 20 20 52 58 43 46 3d | 52 58 43 2f 52 58 43 30 | RXCF=|RXC/RXC0|
|0001ada0| 0a 20 20 20 20 20 20 49 | 46 28 4e 49 4f 2e 4e 45 |. I|F(NIO.NE|
|0001adb0| 2e 31 29 20 54 48 45 4e | 0a 43 20 20 20 20 20 20 |.1) THEN|.C |
|0001adc0| 41 20 4e 4f 4e 2d 49 44 | 45 41 4c 20 53 4f 4c 55 |A NON-ID|EAL SOLU|
|0001add0| 54 49 4f 4e 20 49 53 20 | 41 53 53 55 4d 45 44 0a |TION IS |ASSUMED.|
|0001ade0| 09 48 53 3d 5a 45 52 4f | 0a 20 20 20 20 20 20 20 |.HS=ZERO|. |
|0001adf0| 20 44 4f 20 34 30 20 49 | 3d 31 2c 28 32 2b 4e 53 | DO 40 I|=1,(2+NS|
|0001ae00| 4f 29 0a 20 20 20 20 20 | 20 20 20 49 46 28 49 2e |O). | IF(I.|
|0001ae10| 4c 45 2e 32 29 20 4b 3d | 49 0a 20 20 20 20 20 20 |LE.2) K=|I. |
|0001ae20| 20 20 49 46 28 49 2e 47 | 45 2e 33 29 20 4b 3d 36 | IF(I.G|E.3) K=6|
|0001ae30| 2b 49 0a 43 20 20 20 20 | 20 20 43 41 4c 43 55 4c |+I.C | CALCUL|
|0001ae40| 41 54 45 20 53 4f 4c 55 | 54 45 20 41 43 54 49 56 |ATE SOLU|TE ACTIV|
|0001ae50| 49 54 49 45 53 20 4f 4e | 20 4d 4f 4c 45 20 46 52 |ITIES ON| MOLE FR|
|0001ae60| 41 43 54 49 4f 4e 20 53 | 43 41 4c 45 0a 20 20 20 |ACTION S|CALE. |
|0001ae70| 20 20 20 20 20 46 48 52 | 3d 56 28 4b 29 2a 53 50 | FHR|=V(K)*SP|
|0001ae80| 56 0a 20 20 20 20 20 20 | 20 20 47 58 28 49 29 3d |V. | GX(I)=|
|0001ae90| 46 48 52 2a 44 45 58 50 | 28 56 52 54 28 49 29 2a |FHR*DEXP|(VRT(I)*|
|0001aea0| 28 47 4f 28 49 29 2d 47 | 41 56 29 2a 2a 32 2b 4f |(GO(I)-G|AV)**2+O|
|0001aeb0| 4e 45 2d 46 48 52 29 0a | 20 20 20 20 20 20 20 20 |NE-FHR).| |
|0001aec0| 49 46 28 4e 5a 50 4f 28 | 49 2d 32 29 2e 45 51 2e |IF(NZPO(|I-2).EQ.|
|0001aed0| 30 29 20 41 43 28 49 29 | 3d 58 46 28 49 29 2a 47 |0) AC(I)|=XF(I)*G|
|0001aee0| 58 28 49 29 0a 20 20 20 | 20 20 20 20 20 49 46 28 |X(I). | IF(|
|0001aef0| 4e 5a 50 4f 28 49 2d 32 | 29 2e 4e 45 2e 30 29 20 |NZPO(I-2|).NE.0) |
|0001af00| 41 43 28 49 29 3d 5a 45 | 52 4f 0a 43 20 20 20 20 |AC(I)=ZE|RO.C |
|0001af10| 20 20 43 41 4c 43 55 4c | 41 54 45 20 53 4f 4c 55 | CALCUL|ATE SOLU|
|0001af20| 54 45 20 41 43 54 49 56 | 49 54 59 20 43 4f 45 46 |TE ACTIV|ITY COEF|
|0001af30| 46 49 43 49 45 4e 54 53 | 20 4f 4e 20 47 49 56 45 |FICIENTS| ON GIVE|
|0001af40| 4e 20 43 4f 4e 43 2e 20 | 53 43 41 4c 45 0a 43 20 |N CONC. |SCALE.C |
|0001af50| 20 20 20 20 20 20 20 57 | 52 49 54 45 28 2a 2c 31 | W|RITE(*,1|
|0001af60| 31 31 31 29 20 49 2c 4b | 2c 47 58 28 49 29 2c 47 |111) I,K|,GX(I),G|
|0001af70| 58 30 28 49 29 0a 43 31 | 31 31 31 20 20 46 4f 52 |X0(I).C1|111 FOR|
|0001af80| 4d 41 54 28 31 58 2c 27 | 49 4e 20 4f 52 47 41 43 |MAT(1X,'|IN ORGAC|
|0001af90| 3a 20 49 2c 4b 2c 47 58 | 28 49 29 2c 47 58 30 28 |: I,K,GX|(I),GX0(|
|0001afa0| 49 29 3a 27 2c 32 49 34 | 2c 31 50 32 45 31 32 2e |I):',2I4|,1P2E12.|
|0001afb0| 33 2f 29 0a 20 20 20 20 | 20 20 20 20 47 28 4b 29 |3/). | G(K)|
|0001afc0| 3d 52 58 43 46 2a 47 58 | 28 49 29 2f 47 58 30 28 |=RXCF*GX|(I)/GX0(|
|0001afd0| 49 29 0a 43 0a 20 20 20 | 20 20 20 20 20 49 46 28 |I).C. | IF(|
|0001afe0| 49 2e 47 54 2e 32 2e 41 | 4e 44 2e 4e 5a 50 4f 28 |I.GT.2.A|ND.NZPO(|
|0001aff0| 49 2d 32 29 2e 4e 45 2e | 30 2e 41 4e 44 2e 53 51 |I-2).NE.|0.AND.SQ|
|0001b000| 49 2e 47 54 2e 5a 45 52 | 4f 29 20 54 48 45 4e 0a |I.GT.ZER|O) THEN.|
|0001b010| 43 20 20 20 20 20 20 20 | 20 54 48 49 53 20 49 53 |C | THIS IS|
|0001b020| 20 41 4e 20 49 4f 4e 49 | 43 20 53 50 45 43 49 45 | AN IONI|C SPECIE|
|0001b030| 53 3a 20 41 44 44 20 45 | 4c 45 43 54 52 4f 53 54 |S: ADD E|LECTROST|
|0001b040| 41 54 49 43 20 46 41 43 | 54 4f 52 20 54 4f 20 47 |ATIC FAC|TOR TO G|
|0001b050| 28 4b 29 0a 20 20 20 20 | 20 20 20 20 20 20 45 46 |(K). | EF|
|0001b060| 54 3d 44 45 58 50 28 44 | 48 46 54 2a 28 44 42 4c |T=DEXP(D|HFT*(DBL|
|0001b070| 45 28 4e 5a 50 4f 28 49 | 2d 32 29 29 29 2a 2a 32 |E(NZPO(I|-2)))**2|
|0001b080| 29 0a 20 20 20 20 20 20 | 20 20 20 20 47 28 4b 29 |). | G(K)|
|0001b090| 3d 47 28 4b 29 2a 45 46 | 54 0a 43 20 20 20 20 20 |=G(K)*EF|T.C |
|0001b0a0| 20 20 20 20 20 57 52 49 | 54 45 28 39 2c 34 33 32 | WRI|TE(9,432|
|0001b0b0| 32 29 20 49 2c 4e 5a 50 | 4f 28 49 2d 32 29 2c 53 |2) I,NZP|O(I-2),S|
|0001b0c0| 51 49 2c 5a 50 4f 43 41 | 2c 45 46 54 0a 43 34 33 |QI,ZPOCA|,EFT.C43|
|0001b0d0| 32 32 20 20 20 20 20 20 | 46 4f 52 4d 41 54 28 2f |22 |FORMAT(/|
|0001b0e0| 31 58 2c 27 20 20 49 20 | 4e 5a 50 4f 28 49 2d 32 |1X,' I |NZPO(I-2|
|0001b0f0| 29 20 20 20 20 20 20 53 | 51 49 20 20 20 20 5a 50 |) S|QI ZP|
|0001b100| 4f 43 41 20 20 20 20 20 | 20 45 46 54 27 2f 0a 43 |OCA | EFT'/.C|
|0001b110| 20 20 20 20 20 26 20 20 | 20 20 31 58 2c 49 33 2c | & | 1X,I3,|
|0001b120| 49 31 30 2c 33 46 39 2e | 35 2f 29 0a 43 20 20 20 |I10,3F9.|5/).C |
|0001b130| 20 20 20 20 20 20 20 50 | 41 55 53 45 0a 20 20 20 | P|AUSE. |
|0001b140| 20 20 20 20 20 45 4e 44 | 20 49 46 0a 43 0a 43 20 | END| IF.C.C |
|0001b150| 20 20 20 20 20 43 41 4c | 43 55 4c 41 54 45 20 48 | CAL|CULATE H|
|0001b160| 45 41 54 20 54 45 52 4d | 53 20 41 52 49 53 49 4e |EAT TERM|S ARISIN|
|0001b170| 47 20 46 52 4f 4d 20 53 | 4f 4c 55 54 45 20 4e 4f |G FROM S|OLUTE NO|
|0001b180| 4e 2d 49 44 45 41 4c 49 | 54 59 2c 20 0a 43 20 20 |N-IDEALI|TY, .C |
|0001b190| 20 20 20 20 20 43 4f 4e | 56 45 52 54 49 4e 47 20 | CON|VERTING |
|0001b1a0| 43 4f 4e 43 2e 20 54 4f | 20 4d 4f 4c 41 4c 49 54 |CONC. TO| MOLALIT|
|0001b1b0| 59 20 49 46 20 4e 45 43 | 45 53 53 41 52 59 0a 09 |Y IF NEC|ESSARY..|
|0001b1c0| 48 53 3d 48 53 2b 52 4d | 43 4f 2a 43 53 28 4b 29 |HS=HS+RM|CO*CS(K)|
|0001b1d0| 2a 56 28 4b 29 2a 28 28 | 47 4f 28 49 29 2d 47 41 |*V(K)*((|GO(I)-GA|
|0001b1e0| 56 29 2a 2a 32 2d 28 47 | 4f 28 49 29 2d 47 4f 53 |V)**2-(G|O(I)-GOS|
|0001b1f0| 29 2a 2a 32 29 0a 34 30 | 20 20 20 20 20 20 43 4f |)**2).40| CO|
|0001b200| 4e 54 49 4e 55 45 0a 09 | 54 48 53 3d 48 53 2f 54 |NTINUE..|THS=HS/T|
|0001b210| 48 4f 55 0a 43 20 20 20 | 20 20 20 43 41 4c 43 55 |HOU.C | CALCU|
|0001b220| 4c 41 54 45 20 53 4f 4c | 56 45 4e 54 20 41 43 54 |LATE SOL|VENT ACT|
|0001b230| 49 56 49 54 59 0a 20 20 | 20 20 20 20 20 20 46 48 |IVITY. | FH|
|0001b240| 52 3d 56 53 2a 53 50 56 | 0a 09 44 47 53 3d 28 47 |R=VS*SPV|..DGS=(G|
|0001b250| 4f 53 2d 47 41 56 29 2a | 2a 32 09 0a 20 20 20 20 |OS-GAV)*|*2.. |
|0001b260| 20 20 20 20 47 58 53 3d | 46 48 52 2a 44 45 58 50 | GXS=|FHR*DEXP|
|0001b270| 28 56 53 52 54 2a 44 47 | 53 2b 4f 4e 45 2d 46 48 |(VSRT*DG|S+ONE-FH|
|0001b280| 52 29 0a 20 20 20 20 20 | 20 20 20 41 53 3d 58 46 |R). | AS=XF|
|0001b290| 53 2a 47 58 53 09 0a 09 | 49 46 28 43 49 2e 47 54 |S*GXS...|IF(CI.GT|
|0001b2a0| 2e 5a 45 52 4f 29 20 54 | 48 45 4e 0a 43 20 20 20 |.ZERO) T|HEN.C |
|0001b2b0| 20 20 20 20 20 43 41 4c | 43 55 4c 41 54 45 20 45 | CAL|CULATE E|
|0001b2c0| 46 46 45 43 54 20 4f 46 | 20 49 4f 4e 49 43 20 53 |FFECT OF| IONIC S|
|0001b2d0| 54 52 45 4e 47 54 48 20 | 4f 4e 20 53 4f 4c 56 45 |TRENGTH |ON SOLVE|
|0001b2e0| 4e 54 20 41 43 54 49 56 | 49 54 59 0a 09 20 20 45 |NT ACTIV|ITY.. E|
|0001b2f0| 46 54 32 3d 44 45 58 50 | 28 53 45 46 43 54 2a 28 |FT2=DEXP|(SEFCT*(|
|0001b300| 44 4e 54 4d 2d 4f 4e 45 | 2f 44 4e 54 4d 2d 54 57 |DNTM-ONE|/DNTM-TW|
|0001b310| 4f 2a 44 4c 4f 47 28 44 | 4e 54 4d 29 29 29 0a 43 |O*DLOG(D|NTM))).C|
|0001b320| 0a 43 09 20 20 20 57 52 | 49 54 45 28 2a 2c 32 30 |.C. WR|ITE(*,20|
|0001b330| 30 31 29 20 45 46 54 32 | 0a 43 32 30 30 31 20 20 |01) EFT2|.C2001 |
|0001b340| 20 20 20 20 46 4f 52 4d | 41 54 28 31 58 2c 27 45 | FORM|AT(1X,'E|
|0001b350| 4c 45 58 54 2e 43 4f 52 | 52 2e 46 41 43 54 4f 52 |LEXT.COR|R.FACTOR|
|0001b360| 20 46 4f 52 20 53 4f 4c | 56 45 4e 54 20 3d 27 2c | FOR SOL|VENT =',|
|0001b370| 46 31 30 2e 37 29 0a 43 | 20 20 20 20 20 20 20 20 |F10.7).C| |
|0001b380| 20 20 50 41 55 53 45 0a | 43 0a 20 20 20 20 20 20 | PAUSE.|C. |
|0001b390| 20 20 20 20 41 53 3d 41 | 53 2a 45 46 54 32 0a 20 | AS=A|S*EFT2. |
|0001b3a0| 20 20 20 20 20 20 20 45 | 4e 44 20 49 46 0a 43 20 | E|ND IF.C |
|0001b3b0| 20 20 20 20 20 43 41 4c | 43 55 4c 41 54 45 20 48 | CAL|CULATE H|
|0001b3c0| 45 41 54 20 54 45 52 4d | 20 41 52 49 53 49 4e 47 |EAT TERM| ARISING|
|0001b3d0| 20 46 52 4f 4d 20 54 48 | 45 20 53 4f 4c 56 45 4e | FROM TH|E SOLVEN|
|0001b3e0| 54 0a 20 20 20 20 20 20 | 20 20 54 48 53 56 3d 28 |T. | THSV=(|
|0001b3f0| 56 53 2f 57 53 29 2a 44 | 47 53 0a 20 20 20 20 20 |VS/WS)*D|GS. |
|0001b400| 20 45 4e 44 20 49 46 0a | 20 20 20 20 20 20 49 46 | END IF.| IF|
|0001b410| 28 4e 49 4f 2e 45 51 2e | 31 29 20 54 48 45 4e 0a |(NIO.EQ.|1) THEN.|
|0001b420| 43 20 20 20 20 20 20 41 | 4e 20 49 44 45 41 4c 20 |C A|N IDEAL |
|0001b430| 53 4f 4c 55 54 49 4f 4e | 20 49 53 20 41 53 53 55 |SOLUTION| IS ASSU|
|0001b440| 4d 45 44 20 20 20 20 20 | 20 0a 20 20 20 20 20 20 |MED | . |
|0001b450| 20 20 44 4f 20 35 30 20 | 49 3d 31 2c 28 32 2b 4e | DO 50 |I=1,(2+N|
|0001b460| 53 4f 29 0a 20 20 20 20 | 20 20 20 20 49 46 28 49 |SO). | IF(I|
|0001b470| 2e 4c 45 2e 32 29 20 4b | 3d 49 0a 20 20 20 20 20 |.LE.2) K|=I. |
|0001b480| 20 20 20 49 46 28 49 2e | 47 54 2e 32 29 20 4b 3d | IF(I.|GT.2) K=|
|0001b490| 36 2b 49 0a 43 20 20 20 | 20 20 20 41 53 53 49 47 |6+I.C | ASSIG|
|0001b4a0| 4e 20 55 4e 49 54 20 53 | 4f 4c 55 54 45 20 41 43 |N UNIT S|OLUTE AC|
|0001b4b0| 54 49 56 49 54 59 20 43 | 4f 45 46 46 49 43 49 45 |TIVITY C|OEFFICIE|
|0001b4c0| 4e 54 53 0a 20 20 20 20 | 20 20 20 20 47 28 4b 29 |NTS. | G(K)|
|0001b4d0| 3d 4f 4e 45 0a 43 20 20 | 20 20 20 20 43 41 4c 43 |=ONE.C | CALC|
|0001b4e0| 55 4c 41 54 45 20 53 4f | 4c 55 54 45 20 41 43 54 |ULATE SO|LUTE ACT|
|0001b4f0| 49 56 49 54 49 45 53 20 | 4f 4e 20 4d 4f 4c 45 20 |IVITIES |ON MOLE |
|0001b500| 46 52 41 43 54 49 4f 4e | 20 53 43 41 4c 45 0a 20 |FRACTION| SCALE. |
|0001b510| 20 20 20 20 20 20 20 49 | 46 28 49 43 4e 2e 45 51 | I|F(ICN.EQ|
|0001b520| 2e 31 29 20 41 43 28 49 | 29 3d 50 48 28 49 29 0a |.1) AC(I|)=PH(I).|
|0001b530| 20 20 20 20 20 20 20 20 | 49 46 28 49 43 4e 2e 45 | |IF(ICN.E|
|0001b540| 51 2e 32 29 20 41 43 28 | 49 29 3d 5a 45 52 4f 0a |Q.2) AC(|I)=ZERO.|
|0001b550| 20 20 20 20 20 20 20 20 | 49 46 28 49 43 4e 2e 45 | |IF(ICN.E|
|0001b560| 51 2e 33 29 20 41 43 28 | 49 29 3d 43 53 28 4b 29 |Q.3) AC(|I)=CS(K)|
|0001b570| 2a 57 28 4b 29 2f 54 48 | 4f 55 0a 35 30 20 20 20 |*W(K)/TH|OU.50 |
|0001b580| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 43 20 20 20 | CONTI|NUE.C |
|0001b590| 20 20 20 43 41 4c 43 55 | 4c 41 54 45 20 53 4f 4c | CALCU|LATE SOL|
|0001b5a0| 56 45 4e 54 20 41 43 54 | 49 56 49 54 59 0a 20 20 |VENT ACT|IVITY. |
|0001b5b0| 20 20 20 20 20 20 49 46 | 28 49 43 4e 2e 45 51 2e | IF|(ICN.EQ.|
|0001b5c0| 31 29 20 54 48 45 4e 0a | 20 20 20 20 20 20 20 20 |1) THEN.| |
|0001b5d0| 20 20 41 53 3d 44 45 58 | 50 28 28 56 53 2a 54 43 | AS=DEX|P((VS*TC|
|0001b5e0| 53 2f 28 54 48 4f 55 2a | 28 4f 4e 45 2d 50 48 53 |S/(THOU*|(ONE-PHS|
|0001b5f0| 29 29 29 2a 44 4c 4f 47 | 28 50 48 53 29 29 0a 20 |)))*DLOG|(PHS)). |
|0001b600| 20 20 20 20 20 20 20 20 | 20 52 45 54 55 52 4e 0a | | RETURN.|
|0001b610| 20 20 20 20 20 20 20 20 | 45 4e 44 20 49 46 0a 20 | |END IF. |
|0001b620| 20 20 20 20 20 20 20 49 | 46 28 49 43 4e 2e 45 51 | I|F(ICN.EQ|
|0001b630| 2e 32 29 20 54 48 45 4e | 0a 20 20 20 20 20 20 20 |.2) THEN|. |
|0001b640| 20 20 20 41 53 3d 44 45 | 58 50 28 2d 28 57 53 2f | AS=DE|XP(-(WS/|
|0001b650| 54 48 4f 55 29 2a 54 43 | 53 29 0a 20 20 20 20 20 |THOU)*TC|S). |
|0001b660| 20 20 20 20 20 52 45 54 | 55 52 4e 0a 20 20 20 20 | RET|URN. |
|0001b670| 20 20 20 20 45 4e 44 20 | 49 46 0a 20 20 20 20 20 | END |IF. |
|0001b680| 20 20 20 49 46 28 49 43 | 4e 2e 45 51 2e 33 29 20 | IF(IC|N.EQ.3) |
|0001b690| 54 48 45 4e 0a 20 20 20 | 20 20 20 20 20 20 20 41 |THEN. | A|
|0001b6a0| 53 3d 44 45 58 50 28 28 | 57 53 2a 54 43 53 2f 54 |S=DEXP((|WS*TCS/T|
|0001b6b0| 57 53 4f 29 2a 44 4c 4f | 47 28 4f 4e 45 2d 54 57 |WSO)*DLO|G(ONE-TW|
|0001b6c0| 53 4f 2f 54 48 4f 55 29 | 29 0a 20 20 20 20 20 20 |SO/THOU)|). |
|0001b6d0| 20 20 20 20 52 45 54 55 | 52 4e 0a 20 20 20 20 20 | RETU|RN. |
|0001b6e0| 20 20 20 45 4e 44 20 49 | 46 0a 43 20 20 20 20 20 | END I|F.C |
|0001b6f0| 20 41 53 53 49 47 4e 20 | 5a 45 52 4f 20 54 4f 20 | ASSIGN |ZERO TO |
|0001b700| 48 45 41 54 20 54 45 52 | 4d 53 0a 20 20 20 20 20 |HEAT TER|MS. |
|0001b710| 20 20 20 54 48 53 3d 5a | 45 52 4f 0a 09 54 48 53 | THS=Z|ERO..THS|
|0001b720| 56 3d 5a 45 52 4f 0a 20 | 20 20 20 20 20 45 4e 44 |V=ZERO. | END|
|0001b730| 20 49 46 0a 43 20 20 20 | 20 20 20 57 52 49 54 45 | IF.C | WRITE|
|0001b740| 28 31 32 2c 31 31 31 33 | 29 20 43 53 28 31 29 2c |(12,1113|) CS(1),|
|0001b750| 43 53 28 32 29 2c 28 43 | 53 28 4b 29 2c 4b 3d 39 |CS(2),(C|S(K),K=9|
|0001b760| 2c 28 4e 53 4f 2b 38 29 | 29 0a 43 31 31 31 33 20 |,(NSO+8)|).C1113 |
|0001b770| 20 46 4f 52 4d 41 54 28 | 31 58 2c 27 20 20 20 20 | FORMAT(|1X,' |
|0001b780| 43 53 20 28 48 41 20 42 | 20 4e 53 4f 29 20 3d 27 |CS (HA B| NSO) ='|
|0001b790| 2f 31 58 2c 37 46 31 30 | 2e 36 29 0a 43 20 20 20 |/1X,7F10|.6).C |
|0001b7a0| 20 20 20 57 52 49 54 45 | 28 31 32 2c 31 31 31 34 | WRITE|(12,1114|
|0001b7b0| 29 20 50 48 28 31 29 2c | 50 48 28 32 29 2c 28 50 |) PH(1),|PH(2),(P|
|0001b7c0| 48 28 4b 29 2c 4b 3d 33 | 2c 28 4e 53 4f 2b 32 29 |H(K),K=3|,(NSO+2)|
|0001b7d0| 29 0a 43 31 31 31 34 20 | 20 46 4f 52 4d 41 54 28 |).C1114 | FORMAT(|
|0001b7e0| 31 58 2c 27 20 20 20 20 | 50 48 20 28 48 41 20 42 |1X,' |PH (HA B|
|0001b7f0| 20 4e 53 4f 29 20 3d 27 | 2f 31 58 2c 37 46 31 30 | NSO) ='|/1X,7F10|
|0001b800| 2e 36 29 0a 43 20 20 20 | 20 20 20 57 52 49 54 45 |.6).C | WRITE|
|0001b810| 28 31 32 2c 31 31 31 35 | 29 20 58 46 28 31 29 2c |(12,1115|) XF(1),|
|0001b820| 58 46 28 32 29 2c 28 58 | 46 28 4b 29 2c 4b 3d 33 |XF(2),(X|F(K),K=3|
|0001b830| 2c 28 4e 53 4f 2b 32 29 | 29 0a 43 31 31 31 35 20 |,(NSO+2)|).C1115 |
|0001b840| 20 46 4f 52 4d 41 54 28 | 31 58 2c 27 20 20 20 20 | FORMAT(|1X,' |
|0001b850| 58 46 20 28 48 41 20 42 | 20 4e 53 4f 29 20 3d 27 |XF (HA B| NSO) ='|
|0001b860| 2f 31 58 2c 37 46 31 30 | 2e 36 29 0a 43 20 20 20 |/1X,7F10|.6).C |
|0001b870| 20 20 20 57 52 49 54 45 | 28 31 32 2c 31 31 31 36 | WRITE|(12,1116|
|0001b880| 29 20 47 4f 28 31 29 2c | 47 4f 28 32 29 2c 28 47 |) GO(1),|GO(2),(G|
|0001b890| 4f 28 4b 29 2c 4b 3d 33 | 2c 28 4e 53 4f 2b 32 29 |O(K),K=3|,(NSO+2)|
|0001b8a0| 29 0a 43 31 31 31 36 20 | 20 46 4f 52 4d 41 54 28 |).C1116 | FORMAT(|
|0001b8b0| 31 58 2c 27 20 20 20 20 | 47 4f 20 28 48 41 20 42 |1X,' |GO (HA B|
|0001b8c0| 20 4e 53 4f 29 20 3d 27 | 2f 31 58 2c 37 46 31 30 | NSO) ='|/1X,7F10|
|0001b8d0| 2e 33 29 0a 43 20 20 20 | 20 20 20 57 52 49 54 45 |.3).C | WRITE|
|0001b8e0| 28 31 32 2c 31 31 31 37 | 29 20 47 28 31 29 2c 47 |(12,1117|) G(1),G|
|0001b8f0| 28 32 29 2c 28 47 28 4b | 29 2c 4b 3d 39 2c 28 4e |(2),(G(K|),K=9,(N|
|0001b900| 53 4f 2b 38 29 29 0a 43 | 31 31 31 37 20 20 46 4f |SO+8)).C|1117 FO|
|0001b910| 52 4d 41 54 28 31 58 2c | 27 20 20 20 20 20 47 20 |RMAT(1X,|' G |
|0001b920| 28 48 41 20 42 20 4e 53 | 4f 29 20 3d 27 2f 31 58 |(HA B NS|O) ='/1X|
|0001b930| 2c 37 46 31 30 2e 36 29 | 0a 43 20 20 20 20 20 20 |,7F10.6)|.C |
|0001b940| 57 52 49 54 45 28 31 32 | 2c 31 31 31 38 29 20 56 |WRITE(12|,1118) V|
|0001b950| 53 2c 57 53 2c 50 48 53 | 2c 58 46 53 2c 47 4f 53 |S,WS,PHS|,XFS,GOS|
|0001b960| 2c 47 41 56 2c 56 53 52 | 54 2c 41 53 0a 43 31 31 |,GAV,VSR|T,AS.C11|
|0001b970| 31 38 20 20 46 4f 52 4d | 41 54 28 31 58 2c 27 56 |18 FORM|AT(1X,'V|
|0001b980| 53 2c 57 53 2c 50 48 53 | 2c 58 46 53 2c 47 4f 53 |S,WS,PHS|,XFS,GOS|
|0001b990| 2c 47 41 56 2c 56 53 52 | 54 2c 41 53 20 3d 27 2f |,GAV,VSR|T,AS ='/|
|0001b9a0| 0a 43 20 20 20 20 26 20 | 31 58 2c 32 46 39 2e 33 |.C & |1X,2F9.3|
|0001b9b0| 2c 32 46 39 2e 35 2c 32 | 46 39 2e 33 2c 32 46 39 |,2F9.5,2|F9.3,2F9|
|0001b9c0| 2e 35 2f 29 0a 43 20 20 | 20 20 20 20 50 41 55 53 |.5/).C | PAUS|
|0001b9d0| 45 0a 20 20 20 20 20 20 | 52 45 54 55 52 4e 0a 20 |E. |RETURN. |
|0001b9e0| 20 20 20 20 20 45 4e 44 | 0a 43 0a 43 0a 43 0a 43 | END|.C.C.C.C|
|0001b9f0| 20 20 53 55 42 52 4f 55 | 54 49 4e 45 20 54 4f 20 | SUBROU|TINE TO |
|0001ba00| 43 41 4c 43 55 4c 41 54 | 45 20 54 48 45 20 4f 53 |CALCULAT|E THE OS|
|0001ba10| 4d 4f 54 49 43 20 43 4f | 45 46 46 49 43 49 45 4e |MOTIC CO|EFFICIEN|
|0001ba20| 54 20 41 4e 44 20 41 43 | 54 49 56 49 54 59 0a 43 |T AND AC|TIVITY.C|
|0001ba30| 20 20 20 43 4f 45 46 46 | 49 43 49 45 4e 54 53 20 | COEFF|ICIENTS |
|0001ba40| 4f 46 20 53 50 45 43 49 | 45 53 20 49 4e 20 41 4e |OF SPECI|ES IN AN|
|0001ba50| 20 45 4c 45 43 54 52 4f | 4c 59 54 45 20 4d 49 58 | ELECTRO|LYTE MIX|
|0001ba60| 54 55 52 45 20 46 52 4f | 4d 20 54 48 45 0a 43 20 |TURE FRO|M THE.C |
|0001ba70| 20 20 54 52 45 41 54 4d | 45 4e 54 20 4f 46 20 50 | TREATM|ENT OF P|
|0001ba80| 49 54 5a 45 52 0a 43 0a | 43 0a 43 20 20 20 20 20 |ITZER.C.|C.C |
|0001ba90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|0001baa0| 20 20 20 20 20 20 20 20 | 47 4c 4f 53 53 41 52 59 | |GLOSSARY|
|0001bab0| 0a 43 0a 43 20 20 20 20 | 20 41 4c 50 20 20 20 20 |.C.C | ALP |
|0001bac0| 20 20 20 20 20 3d 20 20 | 50 49 54 5a 45 52 20 43 | = |PITZER C|
|0001bad0| 4f 4e 53 54 41 4e 54 53 | 20 41 4c 50 48 41 0a 43 |ONSTANTS| ALPHA.C|
|0001bae0| 20 20 20 20 20 41 4d 20 | 20 20 20 20 20 20 20 20 | AM | |
|0001baf0| 20 3d 20 20 41 4e 49 4f | 4e 20 43 4f 4e 43 45 4e | = ANIO|N CONCEN|
|0001bb00| 54 52 41 54 49 4f 4e 0a | 43 20 20 20 20 20 41 50 |TRATION.|C AP|
|0001bb10| 20 20 20 20 20 20 20 20 | 20 20 3d 20 20 44 45 42 | | = DEB|
|0001bb20| 59 45 2d 48 55 43 4b 45 | 4c 20 43 4f 4e 53 54 41 |YE-HUCKE|L CONSTA|
|0001bb30| 4e 54 20 41 28 50 48 49 | 29 0a 43 20 20 20 20 20 |NT A(PHI|).C |
|0001bb40| 41 57 20 20 20 20 20 20 | 20 20 20 20 3d 20 20 41 |AW | = A|
|0001bb50| 43 54 49 56 49 54 59 20 | 4f 46 20 57 41 54 45 52 |CTIVITY |OF WATER|
|0001bb60| 0a 43 20 20 20 20 20 42 | 30 20 20 20 20 20 20 20 |.C B|0 |
|0001bb70| 20 20 20 3d 20 20 50 49 | 54 5a 45 52 20 50 41 52 | = PI|TZER PAR|
|0001bb80| 41 4d 45 54 45 52 2c 20 | 43 41 54 49 4f 4e 2d 41 |AMETER, |CATION-A|
|0001bb90| 4e 49 4f 4e 20 49 4e 54 | 45 52 41 43 54 49 4f 4e |NION INT|ERACTION|
|0001bba0| 0a 43 20 20 20 20 20 42 | 31 20 20 20 20 20 20 20 |.C B|1 |
|0001bbb0| 20 20 20 3d 20 20 50 49 | 54 5a 45 52 20 50 41 52 | = PI|TZER PAR|
|0001bbc0| 41 4d 45 54 45 52 2c 20 | 43 41 54 49 4f 4e 2d 41 |AMETER, |CATION-A|
|0001bbd0| 4e 49 4f 4e 20 49 4e 54 | 45 52 41 43 54 49 4f 4e |NION INT|ERACTION|
|0001bbe0| 0a 43 20 20 20 20 20 42 | 32 20 20 20 20 20 20 20 |.C B|2 |
|0001bbf0| 20 20 20 3d 20 20 50 49 | 54 5a 45 52 20 50 41 52 | = PI|TZER PAR|
|0001bc00| 41 4d 45 54 45 52 2c 20 | 43 41 54 49 4f 4e 2d 41 |AMETER, |CATION-A|
|0001bc10| 4e 49 4f 4e 20 49 4e 54 | 45 52 41 43 54 49 4f 4e |NION INT|ERACTION|
|0001bc20| 0a 43 20 20 20 20 20 42 | 47 20 20 20 20 20 20 20 |.C B|G |
|0001bc30| 20 20 20 3d 20 20 50 49 | 54 5a 45 52 20 50 41 52 | = PI|TZER PAR|
|0001bc40| 41 4d 45 54 45 52 2c 20 | 43 41 54 49 4f 4e 2d 41 |AMETER, |CATION-A|
|0001bc50| 4e 49 4f 4e 20 49 4e 54 | 45 52 41 43 54 49 4f 4e |NION INT|ERACTION|
|0001bc60| 0a 43 20 20 20 20 20 42 | 47 50 20 20 20 20 20 20 |.C B|GP |
|0001bc70| 20 20 20 3d 20 20 50 49 | 54 5a 45 52 20 50 41 52 | = PI|TZER PAR|
|0001bc80| 41 4d 45 54 45 52 2c 20 | 43 41 54 49 4f 4e 2d 41 |AMETER, |CATION-A|
|0001bc90| 4e 49 4f 4e 20 49 4e 54 | 45 52 41 43 54 49 4f 4e |NION INT|ERACTION|
|0001bca0| 0a 43 20 20 20 20 20 42 | 4d 20 20 20 20 20 20 20 |.C B|M |
|0001bcb0| 20 20 20 3d 20 20 4e 45 | 55 54 52 41 4c 20 53 50 | = NE|UTRAL SP|
|0001bcc0| 45 43 49 45 20 43 4f 4e | 43 45 4e 54 52 41 54 49 |ECIE CON|CENTRATI|
|0001bcd0| 4f 4e 0a 43 20 20 20 20 | 20 42 50 20 20 20 20 20 |ON.C | BP |
|0001bce0| 20 20 20 20 20 3d 20 20 | 50 49 54 5a 45 52 20 50 | = |PITZER P|
|0001bcf0| 41 52 41 4d 2e 20 43 41 | 54 49 4f 4e 2d 41 4e 49 |ARAM. CA|TION-ANI|
|0001bd00| 4f 4e 20 49 4e 54 45 52 | 41 43 54 49 4f 4e 0a 43 |ON INTER|ACTION.C|
|0001bd10| 20 20 20 20 20 43 47 20 | 20 20 20 20 20 20 20 20 | CG | |
|0001bd20| 20 3d 20 20 50 49 54 5a | 45 52 20 50 41 52 41 4d | = PITZ|ER PARAM|
|0001bd30| 45 54 45 52 2c 20 43 41 | 54 49 4f 4e 2d 41 4e 49 |ETER, CA|TION-ANI|
|0001bd40| 4f 4e 20 49 4e 54 45 52 | 41 43 54 49 4f 4e 0a 43 |ON INTER|ACTION.C|
|0001bd50| 20 20 20 20 20 43 49 20 | 20 20 20 20 20 20 20 20 | CI | |
|0001bd60| 20 3d 20 20 49 4f 4e 49 | 43 20 53 54 52 45 4e 47 | = IONI|C STRENG|
|0001bd70| 54 48 0a 43 20 20 20 20 | 20 43 4d 20 20 20 20 20 |TH.C | CM |
|0001bd80| 20 20 20 20 20 3d 20 20 | 43 41 54 49 4f 4e 20 43 | = |CATION C|
|0001bd90| 4f 4e 43 45 4e 54 52 41 | 54 49 4f 4e 0a 43 20 20 |ONCENTRA|TION.C |
|0001bda0| 20 20 20 43 4d 49 20 20 | 20 20 20 20 20 20 20 3d | CMI | =|
|0001bdb0| 20 20 49 4f 4e 49 43 20 | 53 54 52 45 4e 47 54 48 | IONIC |STRENGTH|
|0001bdc0| 2c 20 4d 4f 4c 41 52 49 | 54 59 20 53 43 41 4c 45 |, MOLARI|TY SCALE|
|0001bdd0| 0a 43 20 20 20 20 20 43 | 50 20 20 20 20 20 20 20 |.C C|P |
|0001bde0| 20 20 20 3d 20 20 50 49 | 54 5a 45 52 20 50 41 52 | = PI|TZER PAR|
|0001bdf0| 41 4d 45 54 45 52 2c 20 | 43 41 54 49 4f 4e 2d 41 |AMETER, |CATION-A|
|0001be00| 4e 49 4f 4e 20 49 4e 54 | 45 52 41 43 54 49 4f 4e |NION INT|ERACTION|
|0001be10| 0a 43 20 20 20 20 20 43 | 53 20 20 20 20 20 20 20 |.C C|S |
|0001be20| 20 20 20 3d 20 20 43 4f | 4e 43 2e 20 4f 46 20 41 | = CO|NC. OF A|
|0001be30| 20 53 50 45 43 49 45 53 | 0a 43 20 20 20 20 20 44 | SPECIES|.C D|
|0001be40| 43 20 20 20 20 20 20 20 | 20 20 20 3d 20 20 44 49 |C | = DI|
|0001be50| 45 4c 45 43 54 52 49 43 | 20 43 4f 4e 53 54 41 4e |ELECTRIC| CONSTAN|
|0001be60| 54 20 4f 46 20 57 41 54 | 45 52 0a 43 20 20 20 20 |T OF WAT|ER.C |
|0001be70| 20 44 43 41 20 20 20 20 | 20 20 20 20 20 3d 20 20 | DCA | = |
|0001be80| 50 49 54 5a 45 52 20 50 | 41 52 41 4d 45 54 45 52 |PITZER P|ARAMETER|
|0001be90| 2c 20 4e 45 55 54 52 41 | 4c 20 49 4e 54 45 52 41 |, NEUTRA|L INTERA|
|0001bea0| 43 54 49 4f 4e 0a 43 20 | 20 20 20 20 44 45 4e 20 |CTION.C | DEN |
|0001beb0| 20 20 20 20 20 20 20 20 | 3d 20 20 44 45 4e 53 49 | |= DENSI|
|0001bec0| 54 59 20 4f 46 20 53 4f | 4c 55 54 49 4f 4e 20 28 |TY OF SO|LUTION (|
|0001bed0| 47 2f 43 4d 33 29 0a 43 | 20 20 20 20 20 44 54 4d |G/CM3).C| DTM|
|0001bee0| 20 20 20 20 20 20 20 20 | 20 3d 20 20 50 49 54 5a | | = PITZ|
|0001bef0| 45 52 20 43 4f 4e 53 54 | 2e 20 49 4e 20 44 2e 20 |ER CONST|. IN D. |
|0001bf00| 48 2e 20 54 45 52 4d 2c | 20 28 3d 20 31 2e 32 29 |H. TERM,| (= 1.2)|
|0001bf10| 0a 43 20 20 20 20 20 44 | 57 20 20 20 20 20 20 20 |.C D|W |
|0001bf20| 20 20 20 3d 20 20 44 45 | 4e 53 49 54 59 20 4f 46 | = DE|NSITY OF|
|0001bf30| 20 57 41 54 45 52 0a 43 | 20 20 20 20 20 45 54 48 | WATER.C| ETH|
|0001bf40| 41 20 20 20 20 20 20 20 | 20 3d 20 20 50 49 54 5a |A | = PITZ|
|0001bf50| 45 52 20 50 41 52 41 4d | 45 54 45 52 20 46 4f 52 |ER PARAM|ETER FOR|
|0001bf60| 20 55 4e 53 59 4d 4d 45 | 54 52 49 43 41 4c 20 4d | UNSYMME|TRICAL M|
|0001bf70| 49 58 49 4e 47 20 4f 46 | 20 41 4e 49 4f 4e 53 20 |IXING OF| ANIONS |
|0001bf80| 20 0a 43 20 20 20 20 20 | 45 54 48 41 50 20 20 20 | .C |ETHAP |
|0001bf90| 20 20 20 20 3d 20 20 50 | 49 54 5a 45 52 20 50 41 | = P|ITZER PA|
|0001bfa0| 52 41 4d 45 54 45 52 20 | 46 4f 52 20 55 4e 53 59 |RAMETER |FOR UNSY|
|0001bfb0| 4d 4d 45 54 52 49 43 41 | 4c 20 4d 49 58 49 4e 47 |MMETRICA|L MIXING|
|0001bfc0| 20 4f 46 20 41 4e 49 4f | 4e 53 0a 43 20 20 20 20 | OF ANIO|NS.C |
|0001bfd0| 20 45 54 48 43 20 20 20 | 20 20 20 20 20 3d 20 20 | ETHC | = |
|0001bfe0| 50 49 54 5a 45 52 20 50 | 41 52 41 4d 45 54 45 52 |PITZER P|ARAMETER|
|0001bff0| 20 46 4f 52 20 55 4e 53 | 59 4d 4d 45 54 52 49 43 | FOR UNS|YMMETRIC|
|0001c000| 41 4c 20 4d 49 58 49 4e | 47 20 4f 46 20 43 41 54 |AL MIXIN|G OF CAT|
|0001c010| 49 4f 4e 53 20 20 0a 43 | 20 20 20 20 20 45 54 48 |IONS .C| ETH|
|0001c020| 43 50 20 20 20 20 20 20 | 20 3d 20 20 50 49 54 5a |CP | = PITZ|
|0001c030| 45 52 20 50 41 52 41 4d | 45 54 45 52 20 46 4f 52 |ER PARAM|ETER FOR|
|0001c040| 20 55 4e 53 59 4d 4d 45 | 54 52 49 43 41 4c 20 4d | UNSYMME|TRICAL M|
|0001c050| 49 58 49 4e 47 20 4f 46 | 20 43 41 54 49 4f 4e 53 |IXING OF| CATIONS|
|0001c060| 0a 43 20 20 20 20 20 46 | 47 2c 46 47 49 2c 46 47 |.C F|G,FGI,FG|
|0001c070| 49 50 20 3d 20 20 46 55 | 4e 43 54 49 4f 4e 53 20 |IP = FU|NCTIONS |
|0001c080| 4f 46 20 49 4f 4e 49 43 | 20 53 54 52 45 4e 47 54 |OF IONIC| STRENGT|
|0001c090| 48 0a 43 20 20 20 20 20 | 46 50 2c 46 50 49 20 20 |H.C |FP,FPI |
|0001c0a0| 20 20 20 20 3d 20 20 46 | 55 4e 43 54 49 4f 4e 53 | = F|UNCTIONS|
|0001c0b0| 20 4f 46 20 49 4f 4e 49 | 43 20 53 54 52 45 4e 47 | OF IONI|C STRENG|
|0001c0c0| 54 48 0a 43 20 20 20 20 | 20 47 20 20 20 20 20 20 |TH.C | G |
|0001c0d0| 20 20 20 20 20 3d 20 20 | 41 43 54 49 56 49 54 59 | = |ACTIVITY|
|0001c0e0| 20 43 4f 45 46 46 49 43 | 49 45 4e 54 20 4f 46 20 | COEFFIC|IENT OF |
|0001c0f0| 41 20 53 50 45 43 49 45 | 53 0a 43 20 20 20 20 20 |A SPECIE|S.C |
|0001c100| 47 4c 4e 41 20 20 20 20 | 20 20 20 20 3d 20 20 4c |GLNA | = L|
|0001c110| 4e 20 47 41 4d 4d 41 20 | 46 4f 52 20 41 4e 49 4f |N GAMMA |FOR ANIO|
|0001c120| 4e 20 0a 43 20 20 20 20 | 20 47 4c 4e 43 20 20 20 |N .C | GLNC |
|0001c130| 20 20 20 20 20 3d 20 20 | 4c 4e 20 47 41 4d 4d 41 | = |LN GAMMA|
|0001c140| 20 46 4f 52 20 43 41 54 | 49 4f 4e 20 0a 43 20 20 | FOR CAT|ION .C |
|0001c150| 20 20 20 47 4c 4e 4e 20 | 20 20 20 20 20 20 20 3d | GLNN | =|
|0001c160| 20 20 4c 4e 20 47 41 4d | 4d 41 20 46 4f 52 20 4e | LN GAM|MA FOR N|
|0001c170| 45 55 54 52 41 4c 20 53 | 50 45 43 49 45 53 0a 43 |EUTRAL S|PECIES.C|
|0001c180| 20 20 20 20 20 49 41 4e | 20 20 20 20 20 20 20 20 | IAN| |
|0001c190| 20 3d 20 20 49 4e 44 45 | 58 20 4e 4f 2e 20 4f 46 | = INDE|X NO. OF|
|0001c1a0| 20 41 4e 20 41 4e 49 4f | 4e 0a 43 20 20 20 20 20 | AN ANIO|N.C |
|0001c1b0| 49 43 41 20 20 20 20 20 | 20 20 20 20 3d 20 20 49 |ICA | = I|
|0001c1c0| 4e 44 45 58 20 4e 4f 2e | 20 4f 46 20 41 20 43 41 |NDEX NO.| OF A CA|
|0001c1d0| 54 49 4f 4e 0a 43 20 20 | 20 20 20 49 4e 55 20 20 |TION.C | INU |
|0001c1e0| 20 20 20 20 20 20 20 3d | 20 20 49 4e 44 45 58 20 | =| INDEX |
|0001c1f0| 4e 4f 2e 20 4f 46 20 41 | 20 4e 45 55 54 52 41 4c |NO. OF A| NEUTRAL|
|0001c200| 20 53 50 45 43 49 45 53 | 0a 43 20 20 20 20 20 4e | SPECIES|.C N|
|0001c210| 43 2c 20 4e 41 2c 20 4e | 4e 20 20 3d 20 20 4e 4f |C, NA, N|N = NO|
|0001c220| 2e 20 4f 46 20 43 41 54 | 49 4f 4e 53 2c 20 41 4e |. OF CAT|IONS, AN|
|0001c230| 49 4f 4e 53 2c 20 41 4e | 44 20 4e 45 55 54 52 41 |IONS, AN|D NEUTRA|
|0001c240| 4c 20 53 50 45 43 49 45 | 53 0a 43 20 20 20 20 20 |L SPECIE|S.C |
|0001c250| 4e 49 41 20 20 20 20 20 | 20 20 20 20 3d 20 20 49 |NIA | = I|
|0001c260| 4e 44 49 43 41 54 4f 52 | 20 4f 46 20 43 41 4c 43 |NDICATOR| OF CALC|
|0001c270| 55 4c 41 54 45 44 20 28 | 30 29 20 4f 52 20 41 53 |ULATED (|0) OR AS|
|0001c280| 53 55 4d 45 44 20 55 4e | 49 54 20 28 31 29 20 56 |SUMED UN|IT (1) V|
|0001c290| 41 4c 55 45 53 0a 43 20 | 20 20 20 20 20 20 20 20 |ALUES.C | |
|0001c2a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 46 4f 52 20 | | FOR |
|0001c2b0| 41 51 55 2e 41 43 54 2e | 43 4f 45 46 53 2e 0a 43 |AQU.ACT.|COEFS..C|
|0001c2c0| 20 20 20 20 20 4e 55 4d | 20 20 20 20 20 20 20 20 | NUM| |
|0001c2d0| 20 3d 20 20 46 4c 41 47 | 20 49 4e 44 49 43 41 54 | = FLAG| INDICAT|
|0001c2e0| 49 4e 47 20 54 48 41 54 | 20 45 46 46 45 43 54 53 |ING THAT| EFFECTS|
|0001c2f0| 20 4f 46 20 55 4e 53 59 | 4d 4d 45 54 52 49 43 41 | OF UNSY|MMETRICA|
|0001c300| 4c 20 4d 49 58 49 4e 47 | 0a 43 20 20 20 20 20 20 |L MIXING|.C |
|0001c310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 4f | | O|
|0001c320| 46 20 49 4f 4e 53 20 57 | 49 4c 4c 20 28 31 29 20 |F IONS W|ILL (1) |
|0001c330| 4f 52 20 57 49 4c 4c 20 | 4e 4f 54 20 28 30 29 20 |OR WILL |NOT (0) |
|0001c340| 42 45 20 49 4e 43 4c 55 | 44 45 44 20 49 4e 20 54 |BE INCLU|DED IN T|
|0001c350| 48 45 0a 43 20 20 20 20 | 20 20 20 20 20 20 20 20 |HE.C | |
|0001c360| 20 20 20 20 20 20 20 20 | 20 50 49 54 5a 45 52 20 | | PITZER |
|0001c370| 54 52 45 41 54 4d 45 4e | 54 0a 43 20 20 20 20 20 |TREATMEN|T.C |
|0001c380| 4e 5a 41 20 20 20 20 20 | 20 20 20 20 3d 20 20 41 |NZA | = A|
|0001c390| 52 52 41 59 20 46 4f 52 | 20 53 54 4f 52 49 4e 47 |RRAY FOR| STORING|
|0001c3a0| 20 43 48 41 52 47 45 53 | 20 4f 4e 20 53 50 45 43 | CHARGES| ON SPEC|
|0001c3b0| 49 45 53 0a 43 20 20 20 | 20 20 50 41 41 20 20 20 |IES.C | PAA |
|0001c3c0| 20 20 20 20 20 20 3d 20 | 20 50 49 54 5a 45 52 20 | = | PITZER |
|0001c3d0| 50 41 52 41 4d 45 54 45 | 52 2c 20 41 4e 49 4f 4e |PARAMETE|R, ANION|
|0001c3e0| 2d 41 4e 49 4f 4e 20 49 | 4e 54 45 52 41 43 54 49 |-ANION I|NTERACTI|
|0001c3f0| 4f 4e 0a 43 20 20 20 20 | 20 50 43 41 41 20 20 20 |ON.C | PCAA |
|0001c400| 20 20 20 20 20 3d 20 20 | 50 49 54 5a 45 52 20 50 | = |PITZER P|
|0001c410| 41 52 41 4d 45 54 45 52 | 2c 20 43 41 54 49 4f 4e |ARAMETER|, CATION|
|0001c420| 2d 41 4e 49 4f 4e 2d 41 | 4e 49 4f 4e 20 49 4e 54 |-ANION-A|NION INT|
|0001c430| 45 52 41 43 54 49 4f 4e | 0a 43 20 20 20 20 20 50 |ERACTION|.C P|
|0001c440| 43 43 20 20 20 20 20 20 | 20 20 20 3d 20 20 50 49 |CC | = PI|
|0001c450| 54 5a 45 52 20 50 41 52 | 41 4d 45 54 45 52 2c 20 |TZER PAR|AMETER, |
|0001c460| 43 41 54 49 4f 4e 2d 43 | 41 54 49 4f 4e 20 49 4e |CATION-C|ATION IN|
|0001c470| 54 45 52 41 43 54 49 4f | 4e 29 0a 43 20 20 20 20 |TERACTIO|N).C |
|0001c480| 20 50 43 43 41 20 20 20 | 20 20 20 20 20 3d 20 20 | PCCA | = |
|0001c490| 50 49 54 5a 45 52 20 50 | 41 52 41 4d 45 54 45 52 |PITZER P|ARAMETER|
|0001c4a0| 2c 20 43 41 54 49 4f 4e | 2d 43 41 54 49 4f 4e 2d |, CATION|-CATION-|
|0001c4b0| 41 4e 49 4f 4e 20 49 4e | 54 45 52 41 43 54 49 4f |ANION IN|TERACTIO|
|0001c4c0| 4e 0a 43 20 20 20 20 20 | 50 48 49 20 20 20 20 20 |N.C |PHI |
|0001c4d0| 20 20 20 20 3d 20 20 54 | 48 45 20 4f 53 4d 4f 54 | = T|HE OSMOT|
|0001c4e0| 49 43 20 43 4f 45 46 46 | 49 43 49 45 4e 54 20 4f |IC COEFF|ICIENT O|
|0001c4f0| 46 20 54 48 45 20 53 4f | 4c 4e 2e 0a 43 20 20 20 |F THE SO|LN..C |
|0001c500| 20 20 50 4e 41 20 20 20 | 20 20 20 20 20 20 3d 20 | PNA | = |
|0001c510| 20 50 49 54 5a 45 52 20 | 50 41 52 41 4d 45 54 45 | PITZER |PARAMETE|
|0001c520| 52 2c 20 4e 45 55 54 52 | 41 4c 2d 41 4e 49 4f 4e |R, NEUTR|AL-ANION|
|0001c530| 20 49 4e 54 45 52 41 43 | 54 49 4f 4e 0a 43 20 20 | INTERAC|TION.C |
|0001c540| 20 20 20 50 4e 43 20 20 | 20 20 20 20 20 20 20 3d | PNC | =|
|0001c550| 20 20 50 49 54 5a 45 52 | 20 50 41 52 41 4d 45 54 | PITZER| PARAMET|
|0001c560| 45 52 2c 20 4e 45 55 54 | 52 41 4c 2d 43 41 54 49 |ER, NEUT|RAL-CATI|
|0001c570| 4f 4e 20 49 4e 54 45 52 | 41 43 54 49 4f 4e 0a 43 |ON INTER|ACTION.C|
|0001c580| 20 20 20 20 20 50 4e 4e | 20 20 20 20 20 20 20 20 | PNN| |
|0001c590| 20 3d 20 20 50 49 54 5a | 45 52 20 50 41 52 41 4d | = PITZ|ER PARAM|
|0001c5a0| 45 54 45 52 2c 20 4e 45 | 55 54 52 41 4c 2d 4e 45 |ETER, NE|UTRAL-NE|
|0001c5b0| 55 54 52 41 4c 20 49 4e | 54 45 52 41 43 54 49 4f |UTRAL IN|TERACTIO|
|0001c5c0| 4e 0a 43 20 20 20 20 20 | 50 30 20 20 20 20 20 20 |N.C |P0 |
|0001c5d0| 20 20 20 20 3d 20 20 56 | 41 50 4f 52 20 50 52 45 | = V|APOR PRE|
|0001c5e0| 53 53 55 52 45 20 4f 46 | 20 57 41 54 45 52 0a 43 |SSURE OF| WATER.C|
|0001c5f0| 20 20 20 20 20 52 4d 43 | 20 20 20 20 20 20 20 20 | RMC| |
|0001c600| 20 3d 20 20 52 41 54 49 | 4f 20 4f 46 20 4d 4f 4c | = RATI|O OF MOL|
|0001c610| 41 4c 49 54 59 20 54 4f | 20 47 49 56 45 4e 20 43 |ALITY TO| GIVEN C|
|0001c620| 4f 4e 43 45 4e 54 52 41 | 54 49 4f 4e 0a 43 20 20 |ONCENTRA|TION.C |
|0001c630| 20 20 20 54 57 53 41 20 | 20 20 20 20 20 20 20 3d | TWSA | =|
|0001c640| 20 20 57 45 49 47 48 54 | 20 4f 46 20 53 4f 4c 55 | WEIGHT| OF SOLU|
|0001c650| 54 45 20 28 47 2f 4c 2e | 53 4c 4e 2e 2c 47 2f 4b |TE (G/L.|SLN.,G/K|
|0001c660| 47 20 48 32 4f 2e 2c 20 | 4f 52 20 47 2f 4b 47 20 |G H2O., |OR G/KG |
|0001c670| 53 4c 4e 2e 29 0a 43 20 | 20 20 20 20 53 56 20 20 |SLN.).C | SV |
|0001c680| 20 20 20 20 20 20 20 20 | 3d 20 20 4d 41 53 53 4f | |= MASSO|
|0001c690| 4e 20 43 4f 45 46 46 49 | 43 49 45 4e 54 20 4f 46 |N COEFFI|CIENT OF|
|0001c6a0| 20 41 4e 20 49 4f 4e 49 | 43 20 53 50 45 43 49 45 | AN IONI|C SPECIE|
|0001c6b0| 53 0a 43 20 20 20 20 20 | 54 4d 20 20 20 20 20 20 |S.C |TM |
|0001c6c0| 20 20 20 20 3d 20 20 54 | 4f 54 41 4c 20 4d 4f 4c | = T|OTAL MOL|
|0001c6d0| 41 4c 49 54 59 20 4f 46 | 20 41 4c 4c 20 41 51 2e |ALITY OF| ALL AQ.|
|0001c6e0| 53 50 45 43 49 45 53 0a | 43 20 20 20 20 20 54 4e |SPECIES.|C TN|
|0001c6f0| 20 20 20 20 20 20 20 20 | 20 20 3d 20 20 54 4f 54 | | = TOT|
|0001c700| 41 4c 20 45 51 55 49 56 | 2e 20 43 4f 4e 43 2e 20 |AL EQUIV|. CONC. |
|0001c710| 4f 46 20 41 4c 4c 20 43 | 41 54 49 4f 4e 53 20 4f |OF ALL C|ATIONS O|
|0001c720| 52 20 41 4e 49 4f 4e 53 | 0a 43 20 20 20 20 20 54 |R ANIONS|.C T|
|0001c730| 56 53 41 20 20 20 20 20 | 20 20 20 3d 20 20 41 50 |VSA | = AP|
|0001c740| 50 41 52 45 4e 54 20 56 | 4f 4c 55 4d 45 20 4f 46 |PARENT V|OLUME OF|
|0001c750| 20 53 4f 4c 55 54 45 20 | 28 43 4d 33 2f 4c 2e 53 | SOLUTE |(CM3/L.S|
|0001c760| 4c 4e 2e 2c 43 4d 33 2f | 4b 47 20 53 4c 56 2e 2c |LN.,CM3/|KG SLV.,|
|0001c770| 0a 43 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.C | |
|0001c780| 20 20 20 20 20 20 20 20 | 20 43 4d 33 2f 4b 47 20 | | CM3/KG |
|0001c790| 53 4c 4e 2e 29 0a 43 20 | 20 20 20 20 54 56 43 30 |SLN.).C | TVC0|
|0001c7a0| 20 20 20 20 20 20 20 20 | 3d 20 20 41 50 50 41 52 | |= APPAR|
|0001c7b0| 45 4e 54 20 56 4f 4c 55 | 4d 45 20 4f 46 20 53 4f |ENT VOLU|ME OF SO|
|0001c7c0| 4c 55 54 45 20 41 54 20 | 49 4e 46 49 4e 49 54 45 |LUTE AT |INFINITE|
|0001c7d0| 20 44 49 4c 55 54 49 4f | 4e 0a 43 20 20 20 20 20 | DILUTIO|N.C |
|0001c7e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|0001c7f0| 20 20 28 43 4d 33 2f 4c | 2e 53 4c 4e 2e 2c 43 4d | (CM3/L|.SLN.,CM|
|0001c800| 33 2f 4b 47 20 53 4c 56 | 2e 2c 43 4d 33 2f 4b 47 |3/KG SLV|.,CM3/KG|
|0001c810| 20 53 4c 4e 2e 29 0a 43 | 20 20 20 20 20 56 30 20 | SLN.).C| V0 |
|0001c820| 20 20 20 20 20 20 20 20 | 20 3d 20 20 4c 49 4d 49 | | = LIMI|
|0001c830| 54 49 4e 47 20 4d 4f 4c | 41 52 20 56 4f 4c 55 4d |TING MOL|AR VOLUM|
|0001c840| 45 20 4f 46 20 41 20 53 | 50 45 43 49 45 53 20 28 |E OF A S|PECIES (|
|0001c850| 43 4d 33 2f 4d 4f 4c 29 | 0a 43 20 20 20 20 20 57 |CM3/MOL)|.C W|
|0001c860| 20 20 20 20 20 20 20 20 | 20 20 20 3d 20 20 4d 2e | | = M.|
|0001c870| 57 2e 20 4f 46 20 41 20 | 53 50 45 43 49 45 53 0a |W. OF A |SPECIES.|
|0001c880| 43 20 20 20 20 20 57 41 | 20 20 20 20 20 20 20 20 |C WA| |
|0001c890| 20 20 3d 20 20 4d 4f 4c | 45 43 55 4c 41 52 20 57 | = MOL|ECULAR W|
|0001c8a0| 45 49 47 48 54 20 4f 46 | 20 57 41 54 45 52 20 28 |EIGHT OF| WATER (|
|0001c8b0| 4b 47 2f 4d 4f 4c 29 0a | 43 20 20 20 20 20 5a 41 |KG/MOL).|C ZA|
|0001c8c0| 20 20 20 20 20 20 20 20 | 20 20 3d 20 20 41 42 53 | | = ABS|
|0001c8d0| 2e 20 56 41 4c 55 45 20 | 4f 46 20 41 4e 49 4f 4e |. VALUE |OF ANION|
|0001c8e0| 20 43 48 41 52 47 45 0a | 43 20 20 20 20 20 5a 43 | CHARGE.|C ZC|
|0001c8f0| 20 20 20 20 20 20 20 20 | 20 20 3d 20 20 41 42 53 | | = ABS|
|0001c900| 2e 20 56 41 4c 55 45 20 | 4f 46 20 43 41 54 49 4f |. VALUE |OF CATIO|
|0001c910| 4e 20 43 48 41 52 47 45 | 0a 43 20 20 20 20 20 5a |N CHARGE|.C Z|
|0001c920| 46 41 20 20 20 20 20 20 | 20 20 20 3d 20 20 41 4e |FA | = AN|
|0001c930| 49 4f 4e 20 43 48 41 52 | 47 45 20 46 41 43 54 4f |ION CHAR|GE FACTO|
|0001c940| 52 0a 43 20 20 20 20 20 | 5a 46 43 20 20 20 20 20 |R.C |ZFC |
|0001c950| 20 20 20 20 3d 20 20 43 | 41 54 49 4f 4e 20 43 48 | = C|ATION CH|
|0001c960| 41 52 47 45 20 46 41 43 | 54 4f 52 0a 43 0a 43 0a |ARGE FAC|TOR.C.C.|
|0001c970| 20 20 20 20 20 20 53 55 | 42 52 4f 55 54 49 4e 45 | SU|BROUTINE|
|0001c980| 20 41 51 55 41 43 28 50 | 2c 57 2c 56 2c 56 30 2c | AQUAC(P|,W,V,V0,|
|0001c990| 53 56 2c 43 53 2c 41 4d | 2c 0a 20 20 20 20 20 26 |SV,CS,AM|,. &|
|0001c9a0| 42 4d 2c 43 4d 2c 42 30 | 2c 42 31 2c 42 32 2c 43 |BM,CM,B0|,B1,B2,C|
|0001c9b0| 50 2c 41 4c 50 2c 42 50 | 2c 42 47 2c 42 47 50 2c |P,ALP,BP|,BG,BGP,|
|0001c9c0| 43 47 2c 50 43 43 2c 45 | 54 48 43 2c 45 54 48 43 |CG,PCC,E|THC,ETHC|
|0001c9d0| 50 2c 0a 20 20 20 20 20 | 26 50 41 41 2c 45 54 48 |P,. |&PAA,ETH|
|0001c9e0| 41 2c 45 54 48 41 50 2c | 50 43 43 41 2c 50 43 41 |A,ETHAP,|PCCA,PCA|
|0001c9f0| 41 2c 44 43 41 2c 50 4e | 43 2c 50 4e 41 2c 50 4e |A,DCA,PN|C,PNA,PN|
|0001ca00| 4e 2c 5a 41 2c 5a 46 41 | 2c 5a 43 2c 5a 46 43 2c |N,ZA,ZFA|,ZC,ZFC,|
|0001ca10| 47 2c 0a 20 20 20 20 20 | 26 49 43 41 2c 49 41 4e |G,. |&ICA,IAN|
|0001ca20| 2c 49 4e 55 2c 4e 5a 41 | 2c 49 43 4e 2c 4e 43 41 |,INU,NZA|,ICN,NCA|
|0001ca30| 4c 29 0a 20 20 20 20 20 | 20 49 4d 50 4c 49 43 49 |L). | IMPLICI|
|0001ca40| 54 20 52 45 41 4c 2a 38 | 28 41 2d 48 2c 4f 2d 5a |T REAL*8|(A-H,O-Z|
|0001ca50| 29 0a 20 20 20 20 20 20 | 53 41 56 45 0a 20 20 20 |). |SAVE. |
|0001ca60| 20 20 20 44 49 4d 45 4e | 53 49 4f 4e 20 50 28 2a | DIMEN|SION P(*|
|0001ca70| 29 2c 57 28 2a 29 2c 56 | 28 2a 29 2c 56 30 28 2a |),W(*),V|(*),V0(*|
|0001ca80| 29 2c 53 56 28 2a 29 2c | 43 53 28 2a 29 2c 41 4d |),SV(*),|CS(*),AM|
|0001ca90| 28 2a 29 2c 0a 20 20 20 | 20 20 26 42 4d 28 2a 29 |(*),. | &BM(*)|
|0001caa0| 2c 43 4d 28 2a 29 2c 42 | 30 28 2a 29 2c 42 31 28 |,CM(*),B|0(*),B1(|
|0001cab0| 2a 29 2c 42 32 28 2a 29 | 2c 43 50 28 2a 29 2c 41 |*),B2(*)|,CP(*),A|
|0001cac0| 4c 50 28 32 2c 2a 29 2c | 0a 20 20 20 20 20 26 42 |LP(2,*),|. &B|
|0001cad0| 50 28 2a 29 2c 42 47 28 | 2a 29 2c 42 47 50 28 2a |P(*),BG(|*),BGP(*|
|0001cae0| 29 2c 43 47 28 2a 29 2c | 50 43 43 28 2a 29 2c 45 |),CG(*),|PCC(*),E|
|0001caf0| 54 48 43 28 2a 29 2c 45 | 54 48 43 50 28 2a 29 2c |THC(*),E|THCP(*),|
|0001cb00| 0a 20 20 20 20 20 26 50 | 41 41 28 2a 29 2c 45 54 |. &P|AA(*),ET|
|0001cb10| 48 41 28 2a 29 2c 45 54 | 48 41 50 28 2a 29 2c 50 |HA(*),ET|HAP(*),P|
|0001cb20| 43 43 41 28 2a 29 2c 50 | 43 41 41 28 2a 29 2c 44 |CCA(*),P|CAA(*),D|
|0001cb30| 43 41 28 2a 29 2c 50 4e | 43 28 2a 29 2c 0a 20 20 |CA(*),PN|C(*),. |
|0001cb40| 20 20 20 26 50 4e 41 28 | 2a 29 2c 50 4e 4e 28 2a | &PNA(|*),PNN(*|
|0001cb50| 29 2c 5a 41 28 2a 29 2c | 5a 46 41 28 2a 29 2c 5a |),ZA(*),|ZFA(*),Z|
|0001cb60| 43 28 2a 29 2c 5a 46 43 | 28 2a 29 2c 47 28 2a 29 |C(*),ZFC|(*),G(*)|
|0001cb70| 0a 20 20 20 20 20 20 44 | 49 4d 45 4e 53 49 4f 4e |. D|IMENSION|
|0001cb80| 20 49 43 41 28 2a 29 2c | 49 41 4e 28 2a 29 2c 49 | ICA(*),|IAN(*),I|
|0001cb90| 4e 55 28 2a 29 2c 4e 5a | 41 28 2a 29 0a 20 20 20 |NU(*),NZ|A(*). |
|0001cba0| 20 20 20 44 49 4d 45 4e | 53 49 4f 4e 20 46 50 49 | DIMEN|SION FPI|
|0001cbb0| 28 32 29 2c 46 47 49 28 | 32 29 2c 46 47 49 50 28 |(2),FGI(|2),FGIP(|
|0001cbc0| 32 29 0a 20 20 20 20 20 | 20 43 4f 4d 4d 4f 4e 2f |2). | COMMON/|
|0001cbd0| 4d 44 2f 4e 53 4f 2c 4e | 43 42 4f 2c 49 52 45 46 |MD/NSO,N|CBO,IREF|
|0001cbe0| 2c 4e 50 48 2c 4e 50 41 | 2c 4e 53 41 2c 4e 49 4f |,NPH,NPA|,NSA,NIO|
|0001cbf0| 2c 4e 49 41 2c 4e 43 2c | 4e 41 2c 4e 4e 2c 4e 55 |,NIA,NC,|NA,NN,NU|
|0001cc00| 50 2c 4e 55 4d 0a 20 20 | 20 20 20 20 43 4f 4d 4d |P,NUM. | COMM|
|0001cc10| 4f 4e 2f 44 54 2f 54 43 | 2c 4e 4f 2c 4e 4f 46 2c |ON/DT/TC|,NO,NOF,|
|0001cc20| 49 43 4e 52 20 20 20 20 | 20 20 0a 20 20 20 20 20 |ICNR | . |
|0001cc30| 20 43 4f 4d 4d 4f 4e 2f | 57 54 52 2f 50 30 2c 44 | COMMON/|WTR/P0,D|
|0001cc40| 57 2c 44 43 2c 41 50 2c | 52 4c 4b 57 20 20 20 20 |W,DC,AP,|RLKW |
|0001cc50| 20 20 0a 20 20 20 20 20 | 20 43 4f 4d 4d 4f 4e 2f | . | COMMON/|
|0001cc60| 45 51 2f 44 45 4e 2c 41 | 57 47 2c 41 57 2c 54 57 |EQ/DEN,A|WG,AW,TW|
|0001cc70| 53 41 2c 54 56 53 41 2c | 56 57 50 41 2c 56 57 50 |SA,TVSA,|VWPA,VWP|
|0001cc80| 4f 2c 52 4d 42 41 2c 52 | 4d 42 4f 0a 20 20 20 20 |O,RMBA,R|MBO. |
|0001cc90| 20 20 44 41 54 41 20 54 | 4b 2c 44 54 4d 2c 57 41 | DATA T|K,DTM,WA|
|0001cca0| 2f 32 37 33 2e 31 35 44 | 2b 30 2c 31 2e 32 44 2b |/273.15D|+0,1.2D+|
|0001ccb0| 30 2c 30 2e 30 31 38 30 | 31 35 32 38 44 2b 30 2f |0,0.0180|1528D+0/|
|0001ccc0| 0a 20 20 20 20 20 20 44 | 41 54 41 20 5a 45 52 4f |. D|ATA ZERO|
|0001ccd0| 2c 4f 4e 45 2c 54 57 4f | 2c 54 48 52 45 45 2c 54 |,ONE,TWO|,THREE,T|
|0001cce0| 48 4f 55 2f 0a 20 20 20 | 20 20 26 30 2e 30 44 2b |HOU/. | &0.0D+|
|0001ccf0| 30 2c 31 2e 30 44 2b 30 | 2c 32 2e 30 44 2b 30 2c |0,1.0D+0|,2.0D+0,|
|0001cd00| 33 2e 30 44 2b 30 2c 31 | 2e 30 44 2b 33 2f 0a 43 |3.0D+0,1|.0D+3/.C|
|0001cd10| 20 20 44 45 46 49 4e 45 | 20 46 55 4e 43 54 49 4f | DEFINE| FUNCTIO|
|0001cd20| 4e 53 20 46 4f 52 20 4c | 4f 43 41 54 49 4e 47 20 |NS FOR L|OCATING |
|0001cd30| 50 49 54 5a 45 52 20 43 | 4f 45 46 46 53 2e 49 4e |PITZER C|OEFFS.IN|
|0001cd40| 20 4c 49 4e 45 41 52 20 | 41 52 52 41 59 53 0a 20 | LINEAR |ARRAYS. |
|0001cd50| 20 20 20 20 20 49 58 32 | 28 49 2c 4a 2c 49 4d 29 | IX2|(I,J,IM)|
|0001cd60| 3d 49 4d 2a 28 4a 2d 31 | 29 2b 49 0a 20 20 20 20 |=IM*(J-1|)+I. |
|0001cd70| 20 20 49 58 33 28 49 2c | 4a 2c 4b 2c 49 4d 2c 4a | IX3(I,|J,K,IM,J|
|0001cd80| 4d 29 3d 49 4d 2a 28 4a | 4d 2a 28 4b 2d 31 29 2b |M)=IM*(J|M*(K-1)+|
|0001cd90| 4a 2d 31 29 2b 49 0a 43 | 20 20 41 53 53 49 47 4e |J-1)+I.C| ASSIGN|
|0001cda0| 20 50 49 54 5a 45 52 20 | 50 41 52 41 4d 45 54 45 | PITZER |PARAMETE|
|0001cdb0| 52 53 20 46 52 4f 4d 20 | 41 52 52 41 59 20 50 0a |RS FROM |ARRAY P.|
|0001cdc0| 20 20 20 20 20 20 49 46 | 28 4e 43 2e 47 54 2e 30 | IF|(NC.GT.0|
|0001cdd0| 2e 41 4e 44 2e 4e 41 2e | 47 54 2e 30 29 20 54 48 |.AND.NA.|GT.0) TH|
|0001cde0| 45 4e 0a 43 20 20 20 20 | 20 20 46 4f 52 20 43 41 |EN.C | FOR CA|
|0001cdf0| 54 49 4f 4e 2d 41 4e 49 | 4f 4e 20 49 4e 54 45 52 |TION-ANI|ON INTER|
|0001ce00| 41 43 54 49 4f 4e 53 0a | 20 20 20 20 20 20 20 20 |ACTIONS.| |
|0001ce10| 4b 3d 4e 53 4f 2a 28 31 | 2b 4e 50 48 2b 4e 50 41 |K=NSO*(1|+NPH+NPA|
|0001ce20| 29 2b 32 2a 28 4e 50 48 | 2b 4e 50 41 29 2b 4e 53 |)+2*(NPH|+NPA)+NS|
|0001ce30| 41 2b 32 2b 4e 53 4f 0a | 09 49 4a 3d 30 0a 20 20 |A+2+NSO.|.IJ=0. |
|0001ce40| 20 20 20 20 20 20 44 4f | 20 31 35 2c 49 43 3d 31 | DO| 15,IC=1|
|0001ce50| 2c 4e 43 0a 20 20 20 20 | 20 20 20 20 44 4f 20 31 |,NC. | DO 1|
|0001ce60| 30 20 49 41 3d 31 2c 4e | 41 0a 20 20 20 20 20 20 |0 IA=1,N|A. |
|0001ce70| 20 20 4c 3d 49 58 32 28 | 49 43 2c 49 41 2c 4e 43 | L=IX2(|IC,IA,NC|
|0001ce80| 29 0a 09 49 4a 3d 49 4a | 2b 31 0a 20 20 20 20 20 |)..IJ=IJ|+1. |
|0001ce90| 20 20 20 42 30 28 4c 29 | 3d 50 28 4b 2b 31 29 0a | B0(L)|=P(K+1).|
|0001cea0| 20 20 20 20 20 20 20 20 | 42 31 28 4c 29 3d 50 28 | |B1(L)=P(|
|0001ceb0| 4b 2b 32 29 0a 20 20 20 | 20 20 20 20 20 42 32 28 |K+2). | B2(|
|0001cec0| 4c 29 3d 50 28 4b 2b 33 | 29 0a 20 20 20 20 20 20 |L)=P(K+3|). |
|0001ced0| 20 20 43 50 28 4c 29 3d | 50 28 4b 2b 34 29 0a 20 | CP(L)=|P(K+4). |
|0001cee0| 20 20 20 20 20 20 20 4b | 3d 4b 2b 34 0a 43 0a 43 | K|=K+4.C.C|
|0001cef0| 20 20 20 20 20 20 20 20 | 57 52 49 54 45 28 2a 2c | |WRITE(*,|
|0001cf00| 31 31 31 31 29 20 49 43 | 2c 49 41 2c 4c 2c 49 4a |1111) IC|,IA,L,IJ|
|0001cf10| 2c 42 30 28 4c 29 2c 42 | 31 28 4c 29 2c 42 32 28 |,B0(L),B|1(L),B2(|
|0001cf20| 4c 29 2c 43 50 28 4c 29 | 2c 41 4c 50 28 31 2c 49 |L),CP(L)|,ALP(1,I|
|0001cf30| 4a 29 2c 0a 43 20 20 20 | 20 20 26 20 20 41 4c 50 |J),.C | & ALP|
|0001cf40| 28 32 2c 49 4a 29 0a 43 | 31 31 31 31 20 20 20 20 |(2,IJ).C|1111 |
|0001cf50| 46 4f 52 4d 41 54 28 2f | 27 20 49 43 20 49 41 20 |FORMAT(/|' IC IA |
|0001cf60| 20 4c 20 49 4a 20 20 20 | 20 20 20 42 30 28 4c 29 | L IJ | B0(L)|
|0001cf70| 20 20 20 20 20 42 31 28 | 4c 29 20 20 20 20 20 42 | B1(|L) B|
|0001cf80| 32 28 4c 29 27 2c 0a 43 | 20 20 20 20 20 26 20 20 |2(L)',.C| & |
|0001cf90| 27 20 20 20 20 20 43 50 | 28 4c 29 20 41 4c 50 28 |' CP|(L) ALP(|
|0001cfa0| 31 2c 49 4a 29 20 41 4c | 50 28 32 2c 49 4a 29 27 |1,IJ) AL|P(2,IJ)'|
|0001cfb0| 2f 34 49 33 2c 36 46 31 | 30 2e 35 29 0a 43 20 20 |/4I3,6F1|0.5).C |
|0001cfc0| 20 20 20 20 20 20 50 41 | 55 53 45 0a 43 0a 31 30 | PA|USE.C.10|
|0001cfd0| 20 20 20 20 20 20 43 4f | 4e 54 49 4e 55 45 0a 31 | CO|NTINUE.1|
|0001cfe0| 35 20 20 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a |5 C|ONTINUE.|
|0001cff0| 20 20 20 20 20 20 45 4e | 44 20 49 46 0a 20 20 20 | EN|D IF. |
|0001d000| 20 20 20 49 46 28 4e 43 | 2e 47 54 2e 31 29 20 54 | IF(NC|.GT.1) T|
|0001d010| 48 45 4e 0a 43 20 20 20 | 20 20 20 46 4f 52 20 43 |HEN.C | FOR C|
|0001d020| 41 54 49 4f 4e 2d 43 41 | 54 49 4f 4e 20 49 4e 54 |ATION-CA|TION INT|
|0001d030| 45 52 41 43 54 49 4f 4e | 53 0a 20 20 20 20 20 20 |ERACTION|S. |
|0001d040| 20 20 44 4f 20 33 30 20 | 49 43 3d 31 2c 28 4e 43 | DO 30 |IC=1,(NC|
|0001d050| 2d 31 29 0a 20 20 20 20 | 20 20 20 20 44 4f 20 32 |-1). | DO 2|
|0001d060| 35 20 4a 43 3d 28 49 43 | 2b 31 29 2c 4e 43 0a 20 |5 JC=(IC|+1),NC. |
|0001d070| 20 20 20 20 20 20 20 4b | 3d 4b 2b 31 0a 20 20 20 | K|=K+1. |
|0001d080| 20 20 20 20 20 4c 3d 49 | 58 32 28 49 43 2c 4a 43 | L=I|X2(IC,JC|
|0001d090| 2c 4e 43 29 0a 20 20 20 | 20 20 20 20 20 50 43 43 |,NC). | PCC|
|0001d0a0| 28 4c 29 3d 50 28 4b 29 | 0a 20 20 20 20 20 20 20 |(L)=P(K)|. |
|0001d0b0| 20 4d 3d 49 58 32 28 4a | 43 2c 49 43 2c 4e 43 29 | M=IX2(J|C,IC,NC)|
|0001d0c0| 0a 20 20 20 20 20 20 20 | 20 50 43 43 28 4d 29 3d |. | PCC(M)=|
|0001d0d0| 50 43 43 28 4c 29 0a 20 | 20 20 20 20 20 20 20 44 |PCC(L). | D|
|0001d0e0| 4f 20 32 30 20 49 41 3d | 31 2c 4e 41 0a 20 20 20 |O 20 IA=|1,NA. |
|0001d0f0| 20 20 20 20 20 4b 3d 4b | 2b 31 0a 20 20 20 20 20 | K=K|+1. |
|0001d100| 20 20 20 4c 41 3d 49 58 | 33 28 49 43 2c 4a 43 2c | LA=IX|3(IC,JC,|
|0001d110| 49 41 2c 4e 43 2c 4e 43 | 29 0a 20 20 20 20 20 20 |IA,NC,NC|). |
|0001d120| 20 20 50 43 43 41 28 4c | 41 29 3d 50 28 4b 29 0a | PCCA(L|A)=P(K).|
|0001d130| 20 20 20 20 20 20 20 20 | 4d 3d 49 58 33 28 4a 43 | |M=IX3(JC|
|0001d140| 2c 49 43 2c 49 41 2c 4e | 43 2c 4e 43 29 0a 20 20 |,IC,IA,N|C,NC). |
|0001d150| 20 20 20 20 20 20 50 43 | 43 41 28 4d 29 3d 50 43 | PC|CA(M)=PC|
|0001d160| 43 41 28 4c 41 29 0a 43 | 0a 43 20 20 20 20 20 20 |CA(LA).C|.C |
|0001d170| 20 20 57 52 49 54 45 28 | 2a 2c 31 31 31 32 29 20 | WRITE(|*,1112) |
|0001d180| 49 43 2c 4a 43 2c 49 41 | 2c 50 43 43 28 4c 29 2c |IC,JC,IA|,PCC(L),|
|0001d190| 50 43 43 41 28 4d 29 0a | 43 31 31 31 32 20 20 20 |PCCA(M).|C1112 |
|0001d1a0| 20 46 4f 52 4d 41 54 28 | 2f 27 20 49 43 20 4a 43 | FORMAT(|/' IC JC|
|0001d1b0| 20 49 41 20 20 20 20 50 | 43 43 28 4c 29 20 20 20 | IA P|CC(L) |
|0001d1c0| 50 43 43 41 28 4d 29 27 | 2f 33 49 33 2c 32 46 31 |PCCA(M)'|/3I3,2F1|
|0001d1d0| 30 2e 35 29 0a 43 20 20 | 20 20 20 20 20 20 50 41 |0.5).C | PA|
|0001d1e0| 55 53 45 0a 43 0a 32 30 | 20 20 20 20 20 20 43 4f |USE.C.20| CO|
|0001d1f0| 4e 54 49 4e 55 45 0a 32 | 35 20 20 20 20 20 20 43 |NTINUE.2|5 C|
|0001d200| 4f 4e 54 49 4e 55 45 0a | 33 30 20 20 20 20 20 20 |ONTINUE.|30 |
|0001d210| 43 4f 4e 54 49 4e 55 45 | 0a 20 20 20 20 20 20 45 |CONTINUE|. E|
|0001d220| 4e 44 20 49 46 0a 20 20 | 20 20 20 20 49 46 28 4e |ND IF. | IF(N|
|0001d230| 41 2e 47 54 2e 31 29 20 | 54 48 45 4e 0a 43 20 20 |A.GT.1) |THEN.C |
|0001d240| 20 20 20 20 46 4f 52 20 | 41 4e 49 4f 4e 2d 41 4e | FOR |ANION-AN|
|0001d250| 49 4f 4e 20 49 4e 54 45 | 52 41 43 54 49 4f 4e 53 |ION INTE|RACTIONS|
|0001d260| 0a 20 20 20 20 20 20 20 | 20 44 4f 20 35 30 20 49 |. | DO 50 I|
|0001d270| 41 3d 31 2c 28 4e 41 2d | 31 29 0a 20 20 20 20 20 |A=1,(NA-|1). |
|0001d280| 20 20 20 44 4f 20 34 35 | 20 4a 41 3d 28 49 41 2b | DO 45| JA=(IA+|
|0001d290| 31 29 2c 4e 41 0a 20 20 | 20 20 20 20 20 20 4b 3d |1),NA. | K=|
|0001d2a0| 4b 2b 31 0a 20 20 20 20 | 20 20 20 20 4c 3d 49 58 |K+1. | L=IX|
|0001d2b0| 32 28 49 41 2c 4a 41 2c | 4e 41 29 20 20 20 20 20 |2(IA,JA,|NA) |
|0001d2c0| 20 0a 20 20 20 20 20 20 | 20 20 50 41 41 28 4c 29 | . | PAA(L)|
|0001d2d0| 3d 50 28 4b 29 0a 20 20 | 20 20 20 20 20 20 4d 3d |=P(K). | M=|
|0001d2e0| 49 58 32 28 4a 41 2c 49 | 41 2c 4e 41 29 20 20 20 |IX2(JA,I|A,NA) |
|0001d2f0| 20 20 20 0a 20 20 20 20 | 20 20 20 20 50 41 41 28 | . | PAA(|
|0001d300| 4d 29 3d 50 41 41 28 4c | 29 0a 20 20 20 20 20 20 |M)=PAA(L|). |
|0001d310| 20 20 44 4f 20 34 30 20 | 49 43 3d 31 2c 4e 43 0a | DO 40 |IC=1,NC.|
|0001d320| 20 20 20 20 20 20 20 20 | 4b 3d 4b 2b 31 0a 20 20 | |K=K+1. |
|0001d330| 20 20 20 20 20 20 4c 43 | 3d 49 58 33 28 49 43 2c | LC|=IX3(IC,|
|0001d340| 49 41 2c 4a 41 2c 4e 43 | 2c 4e 41 29 0a 20 20 20 |IA,JA,NC|,NA). |
|0001d350| 20 20 20 20 20 50 43 41 | 41 28 4c 43 29 3d 50 28 | PCA|A(LC)=P(|
|0001d360| 4b 29 0a 20 20 20 20 20 | 20 20 20 4d 3d 49 58 33 |K). | M=IX3|
|0001d370| 28 49 43 2c 4a 41 2c 49 | 41 2c 4e 43 2c 4e 41 29 |(IC,JA,I|A,NC,NA)|
|0001d380| 0a 20 20 20 20 20 20 20 | 20 50 43 41 41 28 4d 29 |. | PCAA(M)|
|0001d390| 3d 50 43 41 41 28 4c 43 | 29 0a 43 0a 43 20 20 20 |=PCAA(LC|).C.C |
|0001d3a0| 20 20 20 20 20 57 52 49 | 54 45 28 2a 2c 31 31 31 | WRI|TE(*,111|
|0001d3b0| 33 29 20 49 43 2c 49 41 | 2c 4a 41 2c 50 41 41 28 |3) IC,IA|,JA,PAA(|
|0001d3c0| 4c 29 2c 50 43 41 41 28 | 4d 29 0a 43 31 31 31 33 |L),PCAA(|M).C1113|
|0001d3d0| 20 20 20 20 46 4f 52 4d | 41 54 28 2f 27 20 49 43 | FORM|AT(/' IC|
|0001d3e0| 20 49 41 20 4a 41 20 20 | 20 20 50 41 41 28 4c 29 | IA JA | PAA(L)|
|0001d3f0| 20 20 20 50 43 41 41 28 | 4d 29 27 2f 33 49 33 2c | PCAA(|M)'/3I3,|
|0001d400| 32 46 31 30 2e 35 29 0a | 43 20 20 20 20 20 20 20 |2F10.5).|C |
|0001d410| 20 50 41 55 53 45 0a 43 | 0a 34 30 20 20 20 20 20 | PAUSE.C|.40 |
|0001d420| 20 43 4f 4e 54 49 4e 55 | 45 0a 34 35 20 20 20 20 | CONTINU|E.45 |
|0001d430| 20 20 43 4f 4e 54 49 4e | 55 45 0a 35 30 20 20 20 | CONTIN|UE.50 |
|0001d440| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 20 20 20 20 | CONTI|NUE. |
|0001d450| 20 20 45 4e 44 20 49 46 | 0a 20 20 20 20 20 20 49 | END IF|. I|
|0001d460| 46 28 4e 4e 2e 47 54 2e | 30 29 20 54 48 45 4e 0a |F(NN.GT.|0) THEN.|
|0001d470| 43 20 20 20 20 20 20 46 | 4f 52 20 4e 45 55 54 52 |C F|OR NEUTR|
|0001d480| 41 4c 2d 53 50 45 43 49 | 45 20 49 4e 54 45 52 41 |AL-SPECI|E INTERA|
|0001d490| 43 54 49 4f 4e 53 0a 20 | 20 20 20 20 20 20 20 44 |CTIONS. | D|
|0001d4a0| 4f 20 37 30 20 49 4e 3d | 31 2c 4e 4e 0a 20 20 20 |O 70 IN=|1,NN. |
|0001d4b0| 20 20 20 20 20 4b 3d 4b | 2b 31 0a 20 20 20 20 20 | K=K|+1. |
|0001d4c0| 20 20 20 44 43 41 28 49 | 4e 29 3d 50 28 4b 29 0a | DCA(I|N)=P(K).|
|0001d4d0| 09 49 46 28 4e 43 2e 47 | 54 2e 30 29 20 54 48 45 |.IF(NC.G|T.0) THE|
|0001d4e0| 4e 0a 20 20 20 20 20 20 | 20 20 20 20 44 4f 20 36 |N. | DO 6|
|0001d4f0| 30 20 49 43 3d 31 2c 4e | 43 0a 20 20 20 20 20 20 |0 IC=1,N|C. |
|0001d500| 20 20 20 20 4b 3d 4b 2b | 31 0a 20 20 20 20 20 20 | K=K+|1. |
|0001d510| 20 20 20 20 4c 3d 49 58 | 32 28 49 4e 2c 49 43 2c | L=IX|2(IN,IC,|
|0001d520| 4e 4e 29 20 0a 20 20 20 | 20 20 20 20 20 20 20 50 |NN) . | P|
|0001d530| 4e 43 28 4c 29 3d 50 28 | 4b 29 0a 43 0a 43 20 20 |NC(L)=P(|K).C.C |
|0001d540| 20 20 20 20 20 20 57 52 | 49 54 45 28 2a 2c 31 31 | WR|ITE(*,11|
|0001d550| 31 34 29 20 49 4e 2c 49 | 43 2c 4c 2c 50 4e 43 28 |14) IN,I|C,L,PNC(|
|0001d560| 4c 29 0a 43 31 31 31 34 | 20 20 20 20 46 4f 52 4d |L).C1114| FORM|
|0001d570| 41 54 28 2f 27 20 49 4e | 20 49 43 20 20 4c 20 20 |AT(/' IN| IC L |
|0001d580| 20 20 50 4e 43 28 4c 29 | 27 2f 33 49 33 2c 46 31 | PNC(L)|'/3I3,F1|
|0001d590| 30 2e 35 29 0a 43 20 20 | 20 20 20 20 20 20 50 41 |0.5).C | PA|
|0001d5a0| 55 53 45 0a 43 0a 36 30 | 20 20 20 20 20 20 20 20 |USE.C.60| |
|0001d5b0| 43 4f 4e 54 49 4e 55 45 | 0a 20 20 20 20 20 20 20 |CONTINUE|. |
|0001d5c0| 20 45 4e 44 20 49 46 0a | 09 49 46 28 4e 41 2e 47 | END IF.|.IF(NA.G|
|0001d5d0| 54 2e 30 29 20 54 48 45 | 4e 0a 20 20 20 20 20 20 |T.0) THE|N. |
|0001d5e0| 20 20 20 20 44 4f 20 36 | 35 20 49 41 3d 31 2c 4e | DO 6|5 IA=1,N|
|0001d5f0| 41 0a 20 20 20 20 20 20 | 20 20 20 20 4b 3d 4b 2b |A. | K=K+|
|0001d600| 31 0a 20 20 20 20 20 20 | 20 20 20 20 4c 3d 49 58 |1. | L=IX|
|0001d610| 32 28 49 4e 2c 49 41 2c | 4e 4e 29 0a 20 20 20 20 |2(IN,IA,|NN). |
|0001d620| 20 20 20 20 20 20 50 4e | 41 28 4c 29 3d 50 28 4b | PN|A(L)=P(K|
|0001d630| 29 0a 43 0a 43 20 20 20 | 20 20 20 20 20 57 52 49 |).C.C | WRI|
|0001d640| 54 45 28 2a 2c 31 31 31 | 35 29 20 49 4e 2c 49 41 |TE(*,111|5) IN,IA|
|0001d650| 2c 4c 2c 50 4e 41 28 4c | 29 0a 43 31 31 31 35 20 |,L,PNA(L|).C1115 |
|0001d660| 20 20 20 46 4f 52 4d 41 | 54 28 2f 27 20 49 4e 20 | FORMA|T(/' IN |
|0001d670| 49 41 20 20 4c 20 20 20 | 20 50 4e 41 28 4c 29 27 |IA L | PNA(L)'|
|0001d680| 2f 33 49 33 2c 46 31 30 | 2e 35 29 0a 43 20 20 20 |/3I3,F10|.5).C |
|0001d690| 20 20 20 20 20 50 41 55 | 53 45 0a 43 0a 36 35 20 | PAU|SE.C.65 |
|0001d6a0| 20 20 20 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a | C|ONTINUE.|
|0001d6b0| 20 20 20 20 20 20 20 20 | 45 4e 44 20 49 46 0a 37 | |END IF.7|
|0001d6c0| 30 20 20 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a |0 C|ONTINUE.|
|0001d6d0| 20 20 20 20 20 20 20 20 | 44 4f 20 38 30 20 49 4e | |DO 80 IN|
|0001d6e0| 3d 31 2c 4e 4e 0a 20 20 | 20 20 20 20 20 20 44 4f |=1,NN. | DO|
|0001d6f0| 20 37 35 20 4a 4e 3d 49 | 4e 2c 4e 4e 0a 20 20 20 | 75 JN=I|N,NN. |
|0001d700| 20 20 20 20 20 4b 3d 4b | 2b 31 0a 20 20 20 20 20 | K=K|+1. |
|0001d710| 20 20 20 4c 3d 49 58 32 | 28 49 4e 2c 4a 4e 2c 4e | L=IX2|(IN,JN,N|
|0001d720| 4e 29 0a 20 20 20 20 20 | 20 20 20 50 4e 4e 28 4c |N). | PNN(L|
|0001d730| 29 3d 50 28 4b 29 0a 20 | 20 20 20 20 20 20 20 4d |)=P(K). | M|
|0001d740| 3d 49 58 32 28 4a 4e 2c | 49 4e 2c 4e 4e 29 0a 20 |=IX2(JN,|IN,NN). |
|0001d750| 20 20 20 20 20 20 20 50 | 4e 4e 28 4d 29 3d 50 4e | P|NN(M)=PN|
|0001d760| 4e 28 4c 29 0a 43 0a 43 | 20 20 20 20 20 20 20 20 |N(L).C.C| |
|0001d770| 57 52 49 54 45 28 2a 2c | 31 31 31 36 29 20 49 4e |WRITE(*,|1116) IN|
|0001d780| 2c 4a 4e 2c 4c 2c 4d 2c | 50 4e 4e 28 4d 29 0a 43 |,JN,L,M,|PNN(M).C|
|0001d790| 31 31 31 36 20 20 20 20 | 46 4f 52 4d 41 54 28 2f |1116 |FORMAT(/|
|0001d7a0| 27 20 49 4e 20 4a 4e 20 | 20 4c 20 20 4d 20 20 20 |' IN JN | L M |
|0001d7b0| 20 50 4e 4e 28 4d 29 27 | 2f 34 49 33 2c 46 31 30 | PNN(M)'|/4I3,F10|
|0001d7c0| 2e 35 29 0a 43 20 20 20 | 20 20 20 20 20 50 41 55 |.5).C | PAU|
|0001d7d0| 53 45 0a 43 0a 37 35 20 | 20 20 20 20 20 43 4f 4e |SE.C.75 | CON|
|0001d7e0| 54 49 4e 55 45 0a 38 30 | 20 20 20 20 20 20 43 4f |TINUE.80| CO|
|0001d7f0| 4e 54 49 4e 55 45 0a 20 | 20 20 20 20 20 45 4e 44 |NTINUE. | END|
|0001d800| 20 49 46 0a 20 20 20 20 | 20 20 54 3d 54 43 2b 54 | IF. | T=TC+T|
|0001d810| 4b 0a 43 20 20 41 53 53 | 49 47 4e 20 49 4f 4e 20 |K.C ASS|IGN ION |
|0001d820| 43 48 41 52 47 45 53 2c | 20 56 41 4c 45 4e 43 45 |CHARGES,| VALENCE|
|0001d830| 20 46 41 43 54 4f 52 53 | 2c 20 41 4e 44 20 49 4e | FACTORS|, AND IN|
|0001d840| 44 49 43 45 53 0a 43 20 | 20 20 46 4f 52 20 43 41 |DICES.C | FOR CA|
|0001d850| 54 49 4f 4e 49 43 20 52 | 45 41 43 54 41 4e 54 53 |TIONIC R|EACTANTS|
|0001d860| 0a 20 20 20 20 20 20 49 | 43 3d 30 0a 20 20 20 20 |. I|C=0. |
|0001d870| 20 20 44 4f 20 39 30 20 | 49 3d 31 2c 33 0a 20 20 | DO 90 |I=1,3. |
|0001d880| 20 20 20 20 49 46 28 4e | 5a 41 28 49 29 2e 47 54 | IF(N|ZA(I).GT|
|0001d890| 2e 30 29 20 54 48 45 4e | 0a 20 20 20 20 20 20 20 |.0) THEN|. |
|0001d8a0| 20 49 43 3d 49 43 2b 31 | 0a 20 20 20 20 20 20 20 | IC=IC+1|. |
|0001d8b0| 20 5a 43 28 49 43 29 3d | 4e 5a 41 28 49 29 0a 20 | ZC(IC)=|NZA(I). |
|0001d8c0| 20 20 20 20 20 20 20 5a | 46 43 28 49 43 29 3d 44 | Z|FC(IC)=D|
|0001d8d0| 53 51 52 54 28 5a 43 28 | 49 43 29 2a 28 4f 4e 45 |SQRT(ZC(|IC)*(ONE|
|0001d8e0| 2b 5a 43 28 49 43 29 29 | 2f 54 57 4f 29 0a 20 20 |+ZC(IC))|/TWO). |
|0001d8f0| 20 20 20 20 20 20 49 46 | 28 49 2e 45 51 2e 31 29 | IF|(I.EQ.1)|
|0001d900| 20 49 43 41 28 49 43 29 | 3d 33 0a 20 20 20 20 20 | ICA(IC)|=3. |
|0001d910| 20 20 20 49 46 28 49 2e | 45 51 2e 32 29 20 49 43 | IF(I.|EQ.2) IC|
|0001d920| 41 28 49 43 29 3d 34 0a | 20 20 20 20 20 20 20 20 |A(IC)=4.| |
|0001d930| 49 46 28 49 2e 45 51 2e | 33 29 20 49 43 41 28 49 |IF(I.EQ.|3) ICA(I|
|0001d940| 43 29 3d 37 0a 20 20 20 | 20 20 20 45 4e 44 20 49 |C)=7. | END I|
|0001d950| 46 0a 39 30 20 20 20 20 | 43 4f 4e 54 49 4e 55 45 |F.90 |CONTINUE|
|0001d960| 0a 43 20 20 20 46 4f 52 | 20 41 4e 49 4f 4e 49 43 |.C FOR| ANIONIC|
|0001d970| 20 52 45 41 43 54 41 4e | 54 53 0a 20 20 20 20 20 | REACTAN|TS. |
|0001d980| 20 49 41 3d 30 0a 20 20 | 20 20 20 20 44 4f 20 39 | IA=0. | DO 9|
|0001d990| 35 20 49 3d 34 2c 36 0a | 20 20 20 20 20 20 49 46 |5 I=4,6.| IF|
|0001d9a0| 28 4e 5a 41 28 49 29 2e | 47 54 2e 30 29 20 54 48 |(NZA(I).|GT.0) TH|
|0001d9b0| 45 4e 0a 20 20 20 20 20 | 20 20 20 49 41 3d 49 41 |EN. | IA=IA|
|0001d9c0| 2b 31 0a 20 20 20 20 20 | 20 20 20 5a 41 28 49 41 |+1. | ZA(IA|
|0001d9d0| 29 3d 4e 5a 41 28 49 29 | 0a 20 20 20 20 20 20 20 |)=NZA(I)|. |
|0001d9e0| 20 5a 46 41 28 49 41 29 | 3d 44 53 51 52 54 28 5a | ZFA(IA)|=DSQRT(Z|
|0001d9f0| 41 28 49 41 29 2a 28 4f | 4e 45 2b 5a 41 28 49 41 |A(IA)*(O|NE+ZA(IA|
|0001da00| 29 29 2f 54 57 4f 29 0a | 20 20 20 20 20 20 20 20 |))/TWO).| |
|0001da10| 49 46 28 49 2e 45 51 2e | 34 29 20 49 41 4e 28 49 |IF(I.EQ.|4) IAN(I|
|0001da20| 41 29 3d 35 0a 20 20 20 | 20 20 20 20 20 49 46 28 |A)=5. | IF(|
|0001da30| 49 2e 45 51 2e 35 29 20 | 49 41 4e 28 49 41 29 3d |I.EQ.5) |IAN(IA)=|
|0001da40| 36 0a 20 20 20 20 20 20 | 20 20 49 46 28 49 2e 45 |6. | IF(I.E|
|0001da50| 51 2e 36 29 20 49 41 4e | 28 49 41 29 3d 38 0a 20 |Q.6) IAN|(IA)=8. |
|0001da60| 20 20 20 20 20 45 4e 44 | 20 49 46 0a 39 35 20 20 | END| IF.95 |
|0001da70| 20 20 43 4f 4e 54 49 4e | 55 45 0a 20 20 20 20 20 | CONTIN|UE. |
|0001da80| 20 49 4e 3d 30 0a 20 20 | 20 20 20 20 49 46 28 4e | IN=0. | IF(N|
|0001da90| 53 41 2e 47 54 2e 30 29 | 20 54 48 45 4e 0a 43 20 |SA.GT.0)| THEN.C |
|0001daa0| 20 20 20 20 20 46 4f 52 | 20 41 51 55 45 4f 55 53 | FOR| AQUEOUS|
|0001dab0| 20 50 52 4f 44 55 43 54 | 20 53 50 45 43 49 45 53 | PRODUCT| SPECIES|
|0001dac0| 0a 20 20 20 20 20 20 20 | 20 44 4f 20 31 30 30 20 |. | DO 100 |
|0001dad0| 49 3d 31 2c 4e 53 41 0a | 20 20 20 20 20 20 20 20 |I=1,NSA.| |
|0001dae0| 4a 3d 38 2b 4e 53 4f 2b | 49 0a 20 20 20 20 20 20 |J=8+NSO+|I. |
|0001daf0| 20 20 4b 3d 36 2b 49 0a | 20 20 20 20 20 20 20 20 | K=6+I.| |
|0001db00| 49 46 28 4e 5a 41 28 4b | 29 2e 47 54 2e 30 29 20 |IF(NZA(K|).GT.0) |
|0001db10| 54 48 45 4e 0a 09 20 20 | 49 43 3d 49 43 2b 31 0a |THEN.. |IC=IC+1.|
|0001db20| 20 20 20 20 20 20 20 20 | 20 20 5a 43 28 49 43 29 | | ZC(IC)|
|0001db30| 3d 4e 5a 41 28 4b 29 0a | 20 20 20 20 20 20 20 20 |=NZA(K).| |
|0001db40| 20 20 5a 46 43 28 49 43 | 29 3d 44 53 51 52 54 28 | ZFC(IC|)=DSQRT(|
|0001db50| 5a 43 28 49 43 29 2a 28 | 4f 4e 45 2b 5a 43 28 49 |ZC(IC)*(|ONE+ZC(I|
|0001db60| 43 29 29 2f 54 57 4f 29 | 0a 20 20 20 20 20 20 20 |C))/TWO)|. |
|0001db70| 20 20 20 49 43 41 28 49 | 43 29 3d 4a 0a 09 45 4e | ICA(I|C)=J..EN|
|0001db80| 44 20 49 46 0a 20 20 20 | 20 20 20 20 20 49 46 28 |D IF. | IF(|
|0001db90| 4e 5a 41 28 4b 29 2e 4c | 54 2e 30 29 20 54 48 45 |NZA(K).L|T.0) THE|
|0001dba0| 4e 0a 09 20 20 49 41 3d | 49 41 2b 31 0a 20 20 20 |N.. IA=|IA+1. |
|0001dbb0| 20 20 20 20 20 20 20 5a | 41 28 49 41 29 3d 2d 4e | Z|A(IA)=-N|
|0001dbc0| 5a 41 28 4b 29 0a 20 20 | 20 20 20 20 20 20 20 20 |ZA(K). | |
|0001dbd0| 5a 46 41 28 49 41 29 3d | 44 53 51 52 54 28 5a 41 |ZFA(IA)=|DSQRT(ZA|
|0001dbe0| 28 49 41 29 2a 28 4f 4e | 45 2b 5a 41 28 49 41 29 |(IA)*(ON|E+ZA(IA)|
|0001dbf0| 29 2f 54 57 4f 29 0a 20 | 20 20 20 20 20 20 20 20 |)/TWO). | |
|0001dc00| 20 49 41 4e 28 49 41 29 | 3d 4a 0a 09 45 4e 44 20 | IAN(IA)|=J..END |
|0001dc10| 49 46 0a 20 20 20 20 20 | 20 20 20 49 46 28 4e 5a |IF. | IF(NZ|
|0001dc20| 41 28 4b 29 2e 45 51 2e | 30 29 20 54 48 45 4e 0a |A(K).EQ.|0) THEN.|
|0001dc30| 20 20 20 20 20 20 20 20 | 20 20 49 4e 3d 49 4e 2b | | IN=IN+|
|0001dc40| 31 0a 20 20 20 20 20 20 | 20 20 20 20 49 4e 55 28 |1. | INU(|
|0001dc50| 49 4e 29 3d 4a 0a 09 45 | 4e 44 20 49 46 0a 31 30 |IN)=J..E|ND IF.10|
|0001dc60| 30 20 20 20 20 20 43 4f | 4e 54 49 4e 55 45 0a 20 |0 CO|NTINUE. |
|0001dc70| 20 20 20 20 20 45 4e 44 | 20 49 46 0a 43 20 20 56 | END| IF.C V|
|0001dc80| 45 52 49 46 59 20 54 48 | 45 20 4e 55 4d 42 45 52 |ERIFY TH|E NUMBER|
|0001dc90| 20 4f 46 20 43 41 54 49 | 4f 4e 53 2c 20 41 4e 49 | OF CATI|ONS, ANI|
|0001dca0| 4f 4e 53 2c 20 41 4e 44 | 20 4e 45 55 54 52 41 4c |ONS, AND| NEUTRAL|
|0001dcb0| 53 0a 20 20 20 20 20 20 | 49 46 28 49 43 2e 4e 45 |S. |IF(IC.NE|
|0001dcc0| 2e 4e 43 2e 4f 52 2e 49 | 41 2e 4e 45 2e 4e 41 2e |.NC.OR.I|A.NE.NA.|
|0001dcd0| 4f 52 2e 49 4e 2e 4e 45 | 2e 4e 4e 29 20 54 48 45 |OR.IN.NE|.NN) THE|
|0001dce0| 4e 0a 20 20 20 20 20 20 | 20 20 57 52 49 54 45 28 |N. | WRITE(|
|0001dcf0| 39 2c 31 30 30 31 29 0a | 31 30 30 31 20 20 46 4f |9,1001).|1001 FO|
|0001dd00| 52 4d 41 54 28 31 58 2c | 27 43 48 45 43 4b 20 54 |RMAT(1X,|'CHECK T|
|0001dd10| 48 45 20 4e 55 4d 42 45 | 52 20 4f 46 20 43 41 54 |HE NUMBE|R OF CAT|
|0001dd20| 49 4f 4e 53 2e 20 41 4e | 49 4f 4e 53 2c 20 4e 45 |IONS. AN|IONS, NE|
|0001dd30| 55 54 52 41 4c 53 27 29 | 0a 20 20 20 20 20 20 20 |UTRALS')|. |
|0001dd40| 20 50 41 55 53 45 0a 20 | 20 20 20 20 20 20 20 53 | PAUSE. | S|
|0001dd50| 54 4f 50 0a 20 20 20 20 | 20 20 45 4e 44 20 49 46 |TOP. | END IF|
|0001dd60| 0a 20 20 20 20 20 20 52 | 45 54 55 52 4e 0a 43 20 |. R|ETURN.C |
|0001dd70| 20 45 4e 54 52 59 20 50 | 4f 49 4e 54 20 46 4f 52 | ENTRY P|OINT FOR|
|0001dd80| 20 43 41 4c 43 55 4c 41 | 54 49 4e 47 20 43 55 52 | CALCULA|TING CUR|
|0001dd90| 52 45 4e 54 20 41 43 54 | 49 56 49 54 59 20 43 4f |RENT ACT|IVITY CO|
|0001dda0| 45 46 46 49 43 49 45 4e | 54 53 0a 20 20 20 20 20 |EFFICIEN|TS. |
|0001ddb0| 20 45 4e 54 52 59 20 45 | 4e 54 41 41 43 28 50 2c | ENTRY E|NTAAC(P,|
|0001ddc0| 57 2c 56 2c 56 30 2c 53 | 56 2c 43 53 2c 41 4d 2c |W,V,V0,S|V,CS,AM,|
|0001ddd0| 0a 20 20 20 20 20 26 42 | 4d 2c 43 4d 2c 42 30 2c |. &B|M,CM,B0,|
|0001dde0| 42 31 2c 42 32 2c 43 50 | 2c 41 4c 50 2c 42 50 2c |B1,B2,CP|,ALP,BP,|
|0001ddf0| 42 47 2c 42 47 50 2c 43 | 47 2c 50 43 43 2c 45 54 |BG,BGP,C|G,PCC,ET|
|0001de00| 48 43 2c 45 54 48 43 50 | 2c 0a 20 20 20 20 20 26 |HC,ETHCP|,. &|
|0001de10| 50 41 41 2c 45 54 48 41 | 2c 45 54 48 41 50 2c 50 |PAA,ETHA|,ETHAP,P|
|0001de20| 43 43 41 2c 50 43 41 41 | 2c 44 43 41 2c 50 4e 43 |CCA,PCAA|,DCA,PNC|
|0001de30| 2c 50 4e 41 2c 50 4e 4e | 2c 5a 41 2c 5a 46 41 2c |,PNA,PNN|,ZA,ZFA,|
|0001de40| 5a 43 2c 5a 46 43 2c 47 | 2c 0a 20 20 20 20 20 26 |ZC,ZFC,G|,. &|
|0001de50| 49 43 41 2c 49 41 4e 2c | 49 4e 55 2c 4e 5a 41 2c |ICA,IAN,|INU,NZA,|
|0001de60| 49 43 4e 2c 4e 43 41 4c | 29 0a 43 20 20 41 53 53 |ICN,NCAL|).C ASS|
|0001de70| 49 47 4e 20 43 41 54 49 | 4f 4e 2c 20 41 4e 49 4f |IGN CATI|ON, ANIO|
|0001de80| 4e 2c 20 41 4e 44 20 4e | 45 55 54 52 41 4c 2d 53 |N, AND N|EUTRAL-S|
|0001de90| 50 45 43 49 45 20 43 4f | 4e 43 45 4e 54 52 41 54 |PECIE CO|NCENTRAT|
|0001dea0| 49 4f 4e 53 3b 0a 43 20 | 20 20 43 41 4c 43 55 4c |IONS;.C | CALCUL|
|0001deb0| 41 54 45 20 54 48 45 20 | 49 4f 4e 49 43 20 53 54 |ATE THE |IONIC ST|
|0001dec0| 52 45 4e 47 54 48 3b 20 | 43 41 4c 43 55 4c 41 54 |RENGTH; |CALCULAT|
|0001ded0| 45 20 47 52 41 4d 53 20 | 53 4f 4c 55 54 45 20 50 |E GRAMS |SOLUTE P|
|0001dee0| 45 52 20 4c 49 54 45 52 | 0a 43 20 20 20 53 4c 4e |ER LITER|.C SLN|
|0001def0| 2e 2c 20 50 45 52 20 4b | 47 20 53 4c 56 2e 2c 20 |., PER K|G SLV., |
|0001df00| 4f 52 20 50 45 52 20 4b | 47 20 53 4c 4e 2e 3b 20 |OR PER K|G SLN.; |
|0001df10| 43 41 4c 43 55 4c 41 54 | 45 20 54 4f 54 41 4c 20 |CALCULAT|E TOTAL |
|0001df20| 53 50 45 43 49 45 2c 0a | 43 20 20 20 45 51 55 49 |SPECIE,.|C EQUI|
|0001df30| 56 41 4c 45 4e 54 2c 20 | 41 4e 44 20 49 4f 4e 41 |VALENT, |AND IONA|
|0001df40| 4c 20 43 4f 4e 43 45 4e | 54 52 41 54 49 4f 4e 53 |L CONCEN|TRATIONS|
|0001df50| 0a 20 20 20 20 20 20 54 | 43 49 3d 5a 45 52 4f 0a |. T|CI=ZERO.|
|0001df60| 20 20 20 20 20 20 54 57 | 53 41 3d 5a 45 52 4f 0a | TW|SA=ZERO.|
|0001df70| 20 20 20 20 20 20 54 4d | 43 3d 5a 45 52 4f 0a 20 | TM|C=ZERO. |
|0001df80| 20 20 20 20 20 54 4e 43 | 3d 5a 45 52 4f 0a 20 20 | TNC|=ZERO. |
|0001df90| 20 20 20 20 49 46 28 4e | 43 2e 47 54 2e 30 29 20 | IF(N|C.GT.0) |
|0001dfa0| 54 48 45 4e 0a 20 20 20 | 20 20 20 20 20 44 4f 20 |THEN. | DO |
|0001dfb0| 31 31 30 20 49 3d 31 2c | 4e 43 0a 20 20 20 20 20 |110 I=1,|NC. |
|0001dfc0| 20 20 20 43 4d 28 49 29 | 3d 43 53 28 49 43 41 28 | CM(I)|=CS(ICA(|
|0001dfd0| 49 29 29 0a 20 20 20 20 | 20 20 20 20 54 43 49 3d |I)). | TCI=|
|0001dfe0| 54 43 49 2b 43 4d 28 49 | 29 2a 5a 43 28 49 29 2a |TCI+CM(I|)*ZC(I)*|
|0001dff0| 2a 32 0a 20 20 20 20 20 | 20 20 20 54 57 53 41 3d |*2. | TWSA=|
|0001e000| 54 57 53 41 2b 43 4d 28 | 49 29 2a 57 28 49 43 41 |TWSA+CM(|I)*W(ICA|
|0001e010| 28 49 29 29 0a 20 20 20 | 20 20 20 20 20 54 4d 43 |(I)). | TMC|
|0001e020| 3d 54 4d 43 2b 43 4d 28 | 49 29 0a 20 20 20 20 20 |=TMC+CM(|I). |
|0001e030| 20 20 20 54 4e 43 3d 54 | 4e 43 2b 43 4d 28 49 29 | TNC=T|NC+CM(I)|
|0001e040| 2a 5a 43 28 49 29 0a 31 | 31 30 20 20 20 20 20 43 |*ZC(I).1|10 C|
|0001e050| 4f 4e 54 49 4e 55 45 0a | 20 20 20 20 20 20 45 4e |ONTINUE.| EN|
|0001e060| 44 20 49 46 0a 20 20 20 | 20 20 20 49 46 28 4e 41 |D IF. | IF(NA|
|0001e070| 2e 47 54 2e 30 29 20 54 | 48 45 4e 0a 20 20 20 20 |.GT.0) T|HEN. |
|0001e080| 20 20 20 20 44 4f 20 31 | 31 35 20 49 3d 31 2c 4e | DO 1|15 I=1,N|
|0001e090| 41 0a 20 20 20 20 20 20 | 20 20 41 4d 28 49 29 3d |A. | AM(I)=|
|0001e0a0| 43 53 28 49 41 4e 28 49 | 29 29 0a 20 20 20 20 20 |CS(IAN(I|)). |
|0001e0b0| 20 20 20 54 43 49 3d 54 | 43 49 2b 41 4d 28 49 29 | TCI=T|CI+AM(I)|
|0001e0c0| 2a 5a 41 28 49 29 2a 2a | 32 0a 20 20 20 20 20 20 |*ZA(I)**|2. |
|0001e0d0| 20 20 54 57 53 41 3d 54 | 57 53 41 2b 41 4d 28 49 | TWSA=T|WSA+AM(I|
|0001e0e0| 29 2a 57 28 49 41 4e 28 | 49 29 29 0a 20 20 20 20 |)*W(IAN(|I)). |
|0001e0f0| 20 20 20 20 54 4d 43 3d | 54 4d 43 2b 41 4d 28 49 | TMC=|TMC+AM(I|
|0001e100| 29 0a 31 31 35 20 20 20 | 20 20 43 4f 4e 54 49 4e |).115 | CONTIN|
|0001e110| 55 45 0a 20 20 20 20 20 | 20 45 4e 44 20 49 46 0a |UE. | END IF.|
|0001e120| 20 20 20 20 20 20 49 46 | 28 4e 4e 2e 47 54 2e 30 | IF|(NN.GT.0|
|0001e130| 29 20 54 48 45 4e 0a 20 | 20 20 20 20 20 20 20 44 |) THEN. | D|
|0001e140| 4f 20 31 32 30 20 49 3d | 31 2c 4e 4e 0a 20 20 20 |O 120 I=|1,NN. |
|0001e150| 20 20 20 20 20 42 4d 28 | 49 29 3d 43 53 28 49 4e | BM(|I)=CS(IN|
|0001e160| 55 28 49 29 29 0a 20 20 | 20 20 20 20 20 20 54 57 |U(I)). | TW|
|0001e170| 53 41 3d 54 57 53 41 2b | 42 4d 28 49 29 2a 57 28 |SA=TWSA+|BM(I)*W(|
|0001e180| 49 4e 55 28 49 29 29 0a | 20 20 20 20 20 20 20 20 |INU(I)).| |
|0001e190| 54 4d 43 3d 54 4d 43 2b | 42 4d 28 49 29 0a 31 32 |TMC=TMC+|BM(I).12|
|0001e1a0| 30 20 20 20 20 20 43 4f | 4e 54 49 4e 55 45 0a 20 |0 CO|NTINUE. |
|0001e1b0| 20 20 20 20 20 45 4e 44 | 20 49 46 0a 20 20 20 20 | END| IF. |
|0001e1c0| 20 20 43 4d 49 3d 54 43 | 49 2f 54 57 4f 0a 20 20 | CMI=TC|I/TWO. |
|0001e1d0| 20 20 20 20 49 46 28 49 | 43 4e 2e 45 51 2e 31 29 | IF(I|CN.EQ.1)|
|0001e1e0| 20 54 48 45 4e 0a 43 20 | 20 20 20 20 20 53 55 4d | THEN.C | SUM|
|0001e1f0| 20 54 48 45 20 41 50 50 | 41 52 45 4e 54 20 4d 4f | THE APP|ARENT MO|
|0001e200| 4c 41 52 20 56 4f 4c 55 | 4d 45 20 4f 46 20 45 41 |LAR VOLU|ME OF EA|
|0001e210| 43 48 20 53 50 45 43 49 | 45 53 20 28 41 54 20 54 |CH SPECI|ES (AT T|
|0001e220| 48 45 20 4d 4f 4c 41 52 | 20 0a 43 20 20 20 20 20 |HE MOLAR| .C |
|0001e230| 20 20 49 4f 4e 49 43 20 | 53 54 52 45 4e 47 54 48 | IONIC |STRENGTH|
|0001e240| 20 4f 46 20 54 48 45 20 | 53 4f 4c 55 54 49 4f 4e | OF THE |SOLUTION|
|0001e250| 29 20 54 49 4d 45 53 20 | 49 54 53 20 43 4f 4e 43 |) TIMES |ITS CONC|
|0001e260| 45 4e 54 52 41 54 49 4f | 4e 0a 20 20 20 20 20 20 |ENTRATIO|N. |
|0001e270| 20 20 53 43 4d 49 3d 44 | 53 51 52 54 28 43 4d 49 | SCMI=D|SQRT(CMI|
|0001e280| 29 0a 20 20 20 20 20 20 | 20 20 54 56 53 41 3d 5a |). | TVSA=Z|
|0001e290| 45 52 4f 0a 09 49 46 28 | 4e 43 2e 47 54 2e 30 29 |ERO..IF(|NC.GT.0)|
|0001e2a0| 20 54 48 45 4e 0a 20 20 | 20 20 20 20 20 20 20 20 | THEN. | |
|0001e2b0| 44 4f 20 31 33 30 20 49 | 3d 31 2c 4e 43 0a 20 20 |DO 130 I|=1,NC. |
|0001e2c0| 20 20 20 20 20 20 20 20 | 49 46 28 49 43 41 28 49 | |IF(ICA(I|
|0001e2d0| 29 2e 4c 54 2e 39 29 20 | 4b 3d 49 43 41 28 49 29 |).LT.9) |K=ICA(I)|
|0001e2e0| 2d 32 0a 20 20 20 20 20 | 20 20 20 20 20 49 46 28 |-2. | IF(|
|0001e2f0| 49 43 41 28 49 29 2e 47 | 54 2e 38 29 20 4b 3d 49 |ICA(I).G|T.8) K=I|
|0001e300| 43 41 28 49 29 2d 32 2d | 4e 53 4f 0a 20 20 20 20 |CA(I)-2-|NSO. |
|0001e310| 20 20 20 20 20 20 54 56 | 53 41 3d 54 56 53 41 2b | TV|SA=TVSA+|
|0001e320| 28 56 30 28 4b 29 2b 53 | 56 28 4b 29 2a 53 43 4d |(V0(K)+S|V(K)*SCM|
|0001e330| 49 2f 5a 46 43 28 49 29 | 29 2a 43 4d 28 49 29 0a |I/ZFC(I)|)*CM(I).|
|0001e340| 31 33 30 20 20 20 20 20 | 20 20 43 4f 4e 54 49 4e |130 | CONTIN|
|0001e350| 55 45 0a 20 20 20 20 20 | 20 20 20 45 4e 44 20 49 |UE. | END I|
|0001e360| 46 0a 09 49 46 28 4e 41 | 2e 47 54 2e 30 29 20 54 |F..IF(NA|.GT.0) T|
|0001e370| 48 45 4e 0a 20 20 20 20 | 20 20 20 20 20 20 44 4f |HEN. | DO|
|0001e380| 20 31 33 35 20 49 3d 31 | 2c 4e 41 0a 20 20 20 20 | 135 I=1|,NA. |
|0001e390| 20 20 20 20 20 20 49 46 | 28 49 41 4e 28 49 29 2e | IF|(IAN(I).|
|0001e3a0| 4c 54 2e 39 29 20 4b 3d | 49 41 4e 28 49 29 2d 32 |LT.9) K=|IAN(I)-2|
|0001e3b0| 0a 20 20 20 20 20 20 20 | 20 20 20 49 46 28 49 41 |. | IF(IA|
|0001e3c0| 4e 28 49 29 2e 47 54 2e | 38 29 20 4b 3d 49 41 4e |N(I).GT.|8) K=IAN|
|0001e3d0| 28 49 29 2d 32 2d 4e 53 | 4f 0a 20 20 20 20 20 20 |(I)-2-NS|O. |
|0001e3e0| 20 20 20 20 54 56 53 41 | 3d 54 56 53 41 2b 28 56 | TVSA|=TVSA+(V|
|0001e3f0| 30 28 4b 29 2b 53 56 28 | 4b 29 2a 53 43 4d 49 2f |0(K)+SV(|K)*SCMI/|
|0001e400| 5a 46 41 28 49 29 29 2a | 41 4d 28 49 29 0a 31 33 |ZFA(I))*|AM(I).13|
|0001e410| 35 20 20 20 20 20 20 20 | 43 4f 4e 54 49 4e 55 45 |5 |CONTINUE|
|0001e420| 0a 20 20 20 20 20 20 20 | 20 45 4e 44 20 49 46 0a |. | END IF.|
|0001e430| 20 20 20 20 20 20 20 20 | 49 46 28 4e 4e 2e 47 54 | |IF(NN.GT|
|0001e440| 2e 30 29 20 54 48 45 4e | 0a 20 20 20 20 20 20 20 |.0) THEN|. |
|0001e450| 20 20 20 44 4f 20 31 34 | 30 20 49 3d 31 2c 4e 4e | DO 14|0 I=1,NN|
|0001e460| 0a 20 20 20 20 20 20 20 | 20 20 20 4b 3d 49 4e 55 |. | K=INU|
|0001e470| 28 49 29 2d 32 2d 4e 53 | 4f 0a 20 20 20 20 20 20 |(I)-2-NS|O. |
|0001e480| 20 20 20 20 54 56 53 41 | 3d 54 56 53 41 2b 56 30 | TVSA|=TVSA+V0|
|0001e490| 28 4b 29 2a 42 4d 28 49 | 29 0a 31 34 30 20 20 20 |(K)*BM(I|).140 |
|0001e4a0| 20 20 20 20 43 4f 4e 54 | 49 4e 55 45 0a 20 20 20 | CONT|INUE. |
|0001e4b0| 20 20 20 20 20 45 4e 44 | 20 49 46 0a 43 20 20 20 | END| IF.C |
|0001e4c0| 20 20 20 43 41 4c 43 55 | 4c 41 54 45 20 54 48 45 | CALCU|LATE THE|
|0001e4d0| 20 44 45 4e 53 49 54 59 | 20 4f 46 20 54 48 45 20 | DENSITY| OF THE |
|0001e4e0| 53 4f 4c 55 54 49 4f 4e | 0a 20 20 20 20 20 20 20 |SOLUTION|. |
|0001e4f0| 20 44 45 4e 3d 44 57 2a | 28 4f 4e 45 2d 54 56 53 | DEN=DW*|(ONE-TVS|
|0001e500| 41 2f 54 48 4f 55 29 2b | 54 57 53 41 2f 54 48 4f |A/THOU)+|TWSA/THO|
|0001e510| 55 0a 43 20 20 20 20 20 | 20 43 41 4c 43 55 4c 41 |U.C | CALCULA|
|0001e520| 54 45 20 54 48 45 20 52 | 41 54 49 4f 20 4f 46 20 |TE THE R|ATIO OF |
|0001e530| 4d 4f 4c 41 4c 49 54 59 | 20 54 4f 20 54 48 45 20 |MOLALITY| TO THE |
|0001e540| 47 49 56 45 4e 20 43 4f | 4e 43 2e 0a 20 20 20 20 |GIVEN CO|NC.. |
|0001e550| 20 20 20 20 52 4d 43 3d | 4f 4e 45 2f 28 44 45 4e | RMC=|ONE/(DEN|
|0001e560| 2d 54 57 53 41 2f 54 48 | 4f 55 29 0a 20 20 20 20 |-TWSA/TH|OU). |
|0001e570| 20 20 45 4e 44 20 49 46 | 0a 20 20 20 20 20 20 49 | END IF|. I|
|0001e580| 46 28 49 43 4e 2e 45 51 | 2e 32 29 20 52 4d 43 3d |F(ICN.EQ|.2) RMC=|
|0001e590| 4f 4e 45 0a 20 20 20 20 | 20 20 49 46 28 49 43 4e |ONE. | IF(ICN|
|0001e5a0| 2e 45 51 2e 33 29 20 52 | 4d 43 3d 4f 4e 45 2f 28 |.EQ.3) R|MC=ONE/(|
|0001e5b0| 4f 4e 45 2d 54 57 53 41 | 2f 54 48 4f 55 29 0a 20 |ONE-TWSA|/THOU). |
|0001e5c0| 20 20 20 20 20 49 46 28 | 4e 49 41 2e 45 51 2e 31 | IF(|NIA.EQ.1|
|0001e5d0| 29 20 54 48 45 4e 0a 43 | 20 20 20 20 20 20 55 4e |) THEN.C| UN|
|0001e5e0| 49 54 20 53 4f 4c 55 54 | 45 20 41 43 54 49 56 49 |IT SOLUT|E ACTIVI|
|0001e5f0| 54 59 20 43 4f 45 46 46 | 49 43 49 45 4e 54 53 20 |TY COEFF|ICIENTS |
|0001e600| 41 52 45 20 41 53 53 55 | 4d 45 44 0a 20 20 20 20 |ARE ASSU|MED. |
|0001e610| 20 20 20 20 49 46 28 4e | 43 2e 47 54 2e 30 29 20 | IF(N|C.GT.0) |
|0001e620| 54 48 45 4e 0a 20 20 20 | 20 20 20 20 20 20 20 44 |THEN. | D|
|0001e630| 4f 20 31 35 35 20 49 3d | 31 2c 4e 43 0a 20 20 20 |O 155 I=|1,NC. |
|0001e640| 20 20 20 20 20 20 20 47 | 28 49 43 41 28 49 29 29 | G|(ICA(I))|
|0001e650| 3d 4f 4e 45 0a 31 35 35 | 20 20 20 20 20 20 20 43 |=ONE.155| C|
|0001e660| 4f 4e 54 49 4e 55 45 0a | 20 20 20 20 20 20 20 20 |ONTINUE.| |
|0001e670| 45 4e 44 20 49 46 0a 20 | 20 20 20 20 20 20 20 49 |END IF. | I|
|0001e680| 46 28 4e 41 2e 47 54 2e | 30 29 20 54 48 45 4e 0a |F(NA.GT.|0) THEN.|
|0001e690| 20 20 20 20 20 20 20 20 | 20 20 44 4f 20 31 36 30 | | DO 160|
|0001e6a0| 20 49 3d 31 2c 4e 41 0a | 20 20 20 20 20 20 20 20 | I=1,NA.| |
|0001e6b0| 20 20 47 28 49 41 4e 28 | 49 29 29 3d 4f 4e 45 0a | G(IAN(|I))=ONE.|
|0001e6c0| 31 36 30 20 20 20 20 20 | 20 20 43 4f 4e 54 49 4e |160 | CONTIN|
|0001e6d0| 55 45 0a 20 20 20 20 20 | 20 20 20 45 4e 44 20 49 |UE. | END I|
|0001e6e0| 46 0a 20 20 20 20 20 20 | 20 20 49 46 28 4e 4e 2e |F. | IF(NN.|
|0001e6f0| 47 54 2e 30 29 20 54 48 | 45 4e 0a 20 20 20 20 20 |GT.0) TH|EN. |
|0001e700| 20 20 20 20 20 44 4f 20 | 31 36 35 20 49 3d 31 2c | DO |165 I=1,|
|0001e710| 4e 4e 0a 20 20 20 20 20 | 20 20 20 20 20 47 28 49 |NN. | G(I|
|0001e720| 4e 55 28 49 29 29 3d 4f | 4e 45 0a 31 36 35 20 20 |NU(I))=O|NE.165 |
|0001e730| 20 20 20 20 20 43 4f 4e | 54 49 4e 55 45 0a 20 20 | CON|TINUE. |
|0001e740| 20 20 20 20 20 20 45 4e | 44 20 49 46 0a 20 20 20 | EN|D IF. |
|0001e750| 20 20 20 20 20 49 46 28 | 41 57 47 2e 47 54 2e 5a | IF(|AWG.GT.Z|
|0001e760| 45 52 4f 29 20 54 48 45 | 4e 0a 43 20 20 20 20 20 |ERO) THE|N.C |
|0001e770| 20 20 20 54 48 45 20 57 | 41 54 45 52 20 41 43 54 | THE W|ATER ACT|
|0001e780| 49 56 49 54 59 20 48 41 | 53 20 42 45 45 4e 20 53 |IVITY HA|S BEEN S|
|0001e790| 55 50 50 4c 49 45 44 20 | 42 59 20 54 48 45 20 55 |UPPLIED |BY THE U|
|0001e7a0| 53 45 52 0a 20 20 20 20 | 20 20 20 20 20 20 41 57 |SER. | AW|
|0001e7b0| 3d 41 57 47 0a 09 20 20 | 52 45 54 55 52 4e 0a 20 |=AWG.. |RETURN. |
|0001e7c0| 20 20 20 20 20 20 20 45 | 4e 44 20 49 46 0a 43 20 | E|ND IF.C |
|0001e7d0| 20 20 20 20 20 43 41 4c | 43 55 4c 41 54 45 20 57 | CAL|CULATE W|
|0001e7e0| 41 54 45 52 20 41 43 54 | 49 56 49 54 59 0a 20 20 |ATER ACT|IVITY. |
|0001e7f0| 20 20 20 20 20 20 49 46 | 28 49 43 4e 2e 45 51 2e | IF|(ICN.EQ.|
|0001e800| 31 29 20 54 48 45 4e 0a | 20 20 20 20 20 20 20 20 |1) THEN.| |
|0001e810| 20 20 54 56 43 30 3d 5a | 45 52 4f 0a 09 20 20 49 | TVC0=Z|ERO.. I|
|0001e820| 46 28 4e 43 2e 47 54 2e | 30 29 20 54 48 45 4e 0a |F(NC.GT.|0) THEN.|
|0001e830| 20 20 20 20 20 20 20 20 | 20 20 20 20 44 4f 20 31 | | DO 1|
|0001e840| 37 35 20 49 3d 31 2c 4e | 43 0a 20 20 20 20 20 20 |75 I=1,N|C. |
|0001e850| 20 20 20 20 20 20 49 46 | 28 49 43 41 28 49 29 2e | IF|(ICA(I).|
|0001e860| 4c 54 2e 39 29 20 4b 3d | 49 43 41 28 49 29 2d 32 |LT.9) K=|ICA(I)-2|
|0001e870| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 49 46 28 |. | IF(|
|0001e880| 49 43 41 28 49 29 2e 47 | 54 2e 38 29 20 4b 3d 49 |ICA(I).G|T.8) K=I|
|0001e890| 43 41 28 49 29 2d 32 2d | 4e 53 4f 0a 20 20 20 20 |CA(I)-2-|NSO. |
|0001e8a0| 20 20 20 20 20 20 20 20 | 54 56 43 30 3d 54 56 43 | |TVC0=TVC|
|0001e8b0| 30 2b 56 30 28 4b 29 2a | 43 4d 28 49 29 0a 31 37 |0+V0(K)*|CM(I).17|
|0001e8c0| 35 20 20 20 20 20 20 20 | 20 20 43 4f 4e 54 49 4e |5 | CONTIN|
|0001e8d0| 55 45 0a 20 20 20 20 20 | 20 20 20 20 20 45 4e 44 |UE. | END|
|0001e8e0| 20 49 46 0a 09 20 20 49 | 46 28 4e 41 2e 47 54 2e | IF.. I|F(NA.GT.|
|0001e8f0| 30 29 20 54 48 45 4e 0a | 20 20 20 20 20 20 20 20 |0) THEN.| |
|0001e900| 20 20 20 20 44 4f 20 31 | 38 30 20 49 3d 31 2c 4e | DO 1|80 I=1,N|
|0001e910| 41 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 49 46 |A. | IF|
|0001e920| 28 49 41 4e 28 49 29 2e | 4c 54 2e 39 29 20 4b 3d |(IAN(I).|LT.9) K=|
|0001e930| 49 41 4e 28 49 29 2d 32 | 0a 20 20 20 20 20 20 20 |IAN(I)-2|. |
|0001e940| 20 20 20 20 20 49 46 28 | 49 41 4e 28 49 29 2e 47 | IF(|IAN(I).G|
|0001e950| 54 2e 38 29 20 4b 3d 49 | 41 4e 28 49 29 2d 32 2d |T.8) K=I|AN(I)-2-|
|0001e960| 4e 53 4f 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |NSO. | |
|0001e970| 54 56 43 30 3d 54 56 43 | 30 2b 56 30 28 4b 29 2a |TVC0=TVC|0+V0(K)*|
|0001e980| 41 4d 28 49 29 0a 31 38 | 30 20 20 20 20 20 20 20 |AM(I).18|0 |
|0001e990| 20 20 43 4f 4e 54 49 4e | 55 45 0a 20 20 20 20 20 | CONTIN|UE. |
|0001e9a0| 20 20 20 20 20 45 4e 44 | 20 49 46 0a 20 20 20 20 | END| IF. |
|0001e9b0| 20 20 20 20 20 20 49 46 | 28 4e 4e 2e 47 54 2e 30 | IF|(NN.GT.0|
|0001e9c0| 29 20 54 48 45 4e 0a 20 | 20 20 20 20 20 20 20 20 |) THEN. | |
|0001e9d0| 20 20 20 44 4f 20 31 38 | 35 20 49 3d 31 2c 4e 4e | DO 18|5 I=1,NN|
|0001e9e0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 4b 3d 49 |. | K=I|
|0001e9f0| 4e 55 28 49 29 2d 32 2d | 4e 53 4f 0a 20 20 20 20 |NU(I)-2-|NSO. |
|0001ea00| 20 20 20 20 20 20 20 20 | 54 56 43 30 3d 54 56 43 | |TVC0=TVC|
|0001ea10| 30 2b 56 30 28 4b 29 2a | 42 4d 28 49 29 0a 31 38 |0+V0(K)*|BM(I).18|
|0001ea20| 35 20 20 20 20 20 20 20 | 20 20 43 4f 4e 54 49 4e |5 | CONTIN|
|0001ea30| 55 45 0a 20 20 20 20 20 | 20 20 20 20 20 45 4e 44 |UE. | END|
|0001ea40| 20 49 46 0a 09 20 20 41 | 57 3d 44 45 58 50 28 28 | IF.. A|W=DEXP((|
|0001ea50| 54 48 4f 55 2a 57 41 2a | 54 4d 43 2f 28 44 57 2a |THOU*WA*|TMC/(DW*|
|0001ea60| 54 56 43 30 29 29 2a 44 | 4c 4f 47 28 4f 4e 45 2d |TVC0))*D|LOG(ONE-|
|0001ea70| 54 56 43 30 2f 54 48 4f | 55 29 29 0a 09 45 4e 44 |TVC0/THO|U))..END|
|0001ea80| 20 49 46 0a 20 20 20 20 | 20 20 20 20 49 46 28 49 | IF. | IF(I|
|0001ea90| 43 4e 2e 45 51 2e 32 29 | 20 54 48 45 4e 0a 09 20 |CN.EQ.2)| THEN.. |
|0001eaa0| 20 41 57 3d 44 45 58 50 | 28 2d 54 4d 43 2a 57 41 | AW=DEXP|(-TMC*WA|
|0001eab0| 29 0a 09 45 4e 44 20 49 | 46 0a 20 20 20 20 20 20 |)..END I|F. |
|0001eac0| 20 20 49 46 28 49 43 4e | 2e 45 51 2e 33 29 20 54 | IF(ICN|.EQ.3) T|
|0001ead0| 48 45 4e 0a 09 20 20 41 | 57 3d 44 45 58 50 28 28 |HEN.. A|W=DEXP((|
|0001eae0| 54 48 4f 55 2a 57 41 2a | 54 4d 43 2f 54 57 53 41 |THOU*WA*|TMC/TWSA|
|0001eaf0| 29 2a 44 4c 4f 47 28 4f | 4e 45 2d 54 57 53 41 2f |)*DLOG(O|NE-TWSA/|
|0001eb00| 54 48 4f 55 29 29 0a 09 | 45 4e 44 20 49 46 0a 20 |THOU))..|END IF. |
|0001eb10| 20 20 20 20 20 20 20 52 | 45 54 55 52 4e 09 20 20 | R|ETURN. |
|0001eb20| 0a 20 20 20 20 20 20 45 | 4e 44 20 49 46 0a 43 20 |. E|ND IF.C |
|0001eb30| 20 41 43 54 49 56 49 54 | 59 20 43 4f 45 46 46 49 | ACTIVIT|Y COEFFI|
|0001eb40| 43 49 45 4e 54 53 20 41 | 52 45 20 54 4f 20 42 45 |CIENTS A|RE TO BE|
|0001eb50| 20 43 41 4c 43 55 4c 41 | 54 45 44 20 42 59 20 54 | CALCULA|TED BY T|
|0001eb60| 48 45 20 50 49 54 5a 45 | 52 20 54 52 45 41 54 4d |HE PITZE|R TREATM|
|0001eb70| 45 4e 54 0a 43 20 20 20 | 43 4f 4e 56 45 52 54 20 |ENT.C |CONVERT |
|0001eb80| 43 4f 4e 43 45 4e 54 52 | 41 54 49 4f 4e 53 20 54 |CONCENTR|ATIONS T|
|0001eb90| 4f 20 4d 4f 4c 41 4c 49 | 54 49 45 53 0a 20 20 20 |O MOLALI|TIES. |
|0001eba0| 20 20 20 49 46 28 4e 43 | 2e 47 54 2e 30 29 20 54 | IF(NC|.GT.0) T|
|0001ebb0| 48 45 4e 0a 20 20 20 20 | 20 20 20 20 44 4f 20 32 |HEN. | DO 2|
|0001ebc0| 30 30 20 49 3d 31 2c 4e | 43 0a 20 20 20 20 20 20 |00 I=1,N|C. |
|0001ebd0| 20 20 43 4d 28 49 29 3d | 43 4d 28 49 29 2a 52 4d | CM(I)=|CM(I)*RM|
|0001ebe0| 43 0a 32 30 30 20 20 20 | 20 20 43 4f 4e 54 49 4e |C.200 | CONTIN|
|0001ebf0| 55 45 0a 20 20 20 20 20 | 20 45 4e 44 20 49 46 0a |UE. | END IF.|
|0001ec00| 20 20 20 20 20 20 20 20 | 49 46 28 4e 41 2e 47 54 | |IF(NA.GT|
|0001ec10| 2e 30 29 20 54 48 45 4e | 0a 20 20 20 20 20 20 20 |.0) THEN|. |
|0001ec20| 20 44 4f 20 32 30 35 20 | 49 3d 31 2c 4e 41 0a 20 | DO 205 |I=1,NA. |
|0001ec30| 20 20 20 20 20 20 20 41 | 4d 28 49 29 3d 41 4d 28 | A|M(I)=AM(|
|0001ec40| 49 29 2a 52 4d 43 0a 32 | 30 35 20 20 20 20 20 43 |I)*RMC.2|05 C|
|0001ec50| 4f 4e 54 49 4e 55 45 0a | 20 20 20 20 20 20 45 4e |ONTINUE.| EN|
|0001ec60| 44 20 49 46 0a 20 20 20 | 20 20 20 49 46 28 4e 4e |D IF. | IF(NN|
|0001ec70| 2e 47 54 2e 30 29 20 54 | 48 45 4e 0a 20 20 20 20 |.GT.0) T|HEN. |
|0001ec80| 20 20 20 20 44 4f 20 32 | 31 30 20 49 3d 31 2c 4e | DO 2|10 I=1,N|
|0001ec90| 4e 0a 20 20 20 20 20 20 | 20 20 42 4d 28 49 29 3d |N. | BM(I)=|
|0001eca0| 42 4d 28 49 29 2a 52 4d | 43 0a 32 31 30 20 20 20 |BM(I)*RM|C.210 |
|0001ecb0| 20 20 43 4f 4e 54 49 4e | 55 45 0a 20 20 20 20 20 | CONTIN|UE. |
|0001ecc0| 20 45 4e 44 20 49 46 0a | 20 20 20 20 20 20 54 4d | END IF.| TM|
|0001ecd0| 3d 54 4d 43 2a 52 4d 43 | 0a 20 20 20 20 20 20 54 |=TMC*RMC|. T|
|0001ece0| 4e 3d 54 4e 43 2a 52 4d | 43 0a 20 20 20 20 20 20 |N=TNC*RM|C. |
|0001ecf0| 43 49 3d 43 4d 49 2a 52 | 4d 43 0a 43 20 20 43 41 |CI=CMI*R|MC.C CA|
|0001ed00| 4c 43 55 4c 41 54 45 20 | 4e 45 45 44 45 44 20 46 |LCULATE |NEEDED F|
|0001ed10| 55 4e 43 54 49 4f 4e 53 | 20 4f 46 20 54 48 45 20 |UNCTIONS| OF THE |
|0001ed20| 49 4f 4e 49 43 20 53 54 | 52 45 4e 47 54 48 0a 20 |IONIC ST|RENGTH. |
|0001ed30| 20 20 20 20 20 53 43 49 | 3d 44 53 51 52 54 28 43 | SCI|=DSQRT(C|
|0001ed40| 49 29 0a 20 20 20 20 20 | 20 46 31 49 3d 4f 4e 45 |I). | F1I=ONE|
|0001ed50| 2b 44 54 4d 2a 53 43 49 | 0a 20 20 20 20 20 20 46 |+DTM*SCI|. F|
|0001ed60| 50 3d 2d 41 50 2a 53 43 | 49 2f 46 31 49 0a 20 20 |P=-AP*SC|I/F1I. |
|0001ed70| 20 20 20 20 46 47 3d 46 | 50 2d 41 50 2a 54 57 4f | FG=F|P-AP*TWO|
|0001ed80| 2f 44 54 4d 2a 44 4c 4f | 47 28 46 31 49 29 0a 20 |/DTM*DLO|G(F1I). |
|0001ed90| 20 20 20 20 20 49 46 28 | 4e 43 2e 47 54 2e 30 2e | IF(|NC.GT.0.|
|0001eda0| 41 4e 44 2e 4e 41 2e 47 | 54 2e 30 29 20 54 48 45 |AND.NA.G|T.0) THE|
|0001edb0| 4e 0a 43 20 20 20 20 20 | 20 43 41 4c 43 55 4c 41 |N.C | CALCULA|
|0001edc0| 54 45 20 42 28 49 2c 4a | 29 20 41 4e 44 20 43 28 |TE B(I,J|) AND C(|
|0001edd0| 49 2c 4a 29 20 50 41 52 | 41 4d 45 54 45 52 53 0a |I,J) PAR|AMETERS.|
|0001ede0| 20 20 20 20 20 20 20 20 | 49 4a 3d 30 0a 20 20 20 | |IJ=0. |
|0001edf0| 20 20 20 20 20 44 4f 20 | 32 33 35 20 49 3d 31 2c | DO |235 I=1,|
|0001ee00| 4e 43 0a 20 20 20 20 20 | 20 20 20 44 4f 20 32 33 |NC. | DO 23|
|0001ee10| 30 20 4a 3d 31 2c 4e 41 | 0a 20 20 20 20 20 20 20 |0 J=1,NA|. |
|0001ee20| 20 4c 3d 49 58 32 28 49 | 2c 4a 2c 4e 43 29 0a 09 | L=IX2(I|,J,NC)..|
|0001ee30| 49 4a 3d 49 4a 2b 31 0a | 20 20 20 20 20 20 20 20 |IJ=IJ+1.| |
|0001ee40| 44 4f 20 32 32 35 20 4b | 3d 31 2c 32 0a 20 20 20 |DO 225 K|=1,2. |
|0001ee50| 20 20 20 20 20 46 50 49 | 28 4b 29 3d 44 45 58 50 | FPI|(K)=DEXP|
|0001ee60| 28 2d 41 4c 50 28 4b 2c | 49 4a 29 2a 53 43 49 29 |(-ALP(K,|IJ)*SCI)|
|0001ee70| 0a 20 20 20 20 20 20 20 | 20 49 46 28 43 49 2e 47 |. | IF(CI.G|
|0001ee80| 54 2e 5a 45 52 4f 2e 41 | 4e 44 2e 41 4c 50 28 4b |T.ZERO.A|ND.ALP(K|
|0001ee90| 2c 49 4a 29 2e 47 54 2e | 5a 45 52 4f 29 20 54 48 |,IJ).GT.|ZERO) TH|
|0001eea0| 45 4e 20 0a 20 20 20 20 | 20 20 20 20 20 20 46 47 |EN . | FG|
|0001eeb0| 49 28 4b 29 3d 28 4f 4e | 45 2d 28 4f 4e 45 2b 41 |I(K)=(ON|E-(ONE+A|
|0001eec0| 4c 50 28 4b 2c 49 4a 29 | 2a 53 43 49 29 2a 46 50 |LP(K,IJ)|*SCI)*FP|
|0001eed0| 49 28 4b 29 29 2f 28 41 | 4c 50 28 4b 2c 49 4a 29 |I(K))/(A|LP(K,IJ)|
|0001eee0| 2a 2a 32 2a 43 49 29 0a | 20 20 20 20 20 20 20 20 |**2*CI).| |
|0001eef0| 20 20 46 47 49 50 28 4b | 29 3d 28 2d 4f 4e 45 2b | FGIP(K|)=(-ONE+|
|0001ef00| 28 4f 4e 45 2b 41 4c 50 | 28 4b 2c 49 4a 29 2a 53 |(ONE+ALP|(K,IJ)*S|
|0001ef10| 43 49 2b 30 2e 35 2a 41 | 4c 50 28 4b 2c 49 4a 29 |CI+0.5*A|LP(K,IJ)|
|0001ef20| 2a 2a 32 2a 43 49 29 2a | 0a 20 20 20 20 20 26 20 |**2*CI)*|. & |
|0001ef30| 20 20 20 46 50 49 28 4b | 29 29 2f 28 41 4c 50 28 | FPI(K|))/(ALP(|
|0001ef40| 4b 2c 49 4a 29 2a 43 49 | 29 2a 2a 32 0a 20 20 20 |K,IJ)*CI|)**2. |
|0001ef50| 20 20 20 20 20 45 4e 44 | 20 49 46 0a 20 20 20 20 | END| IF. |
|0001ef60| 20 20 20 20 49 46 28 43 | 49 2e 45 51 2e 5a 45 52 | IF(C|I.EQ.ZER|
|0001ef70| 4f 2e 4f 52 2e 41 4c 50 | 28 4b 2c 49 4a 29 2e 45 |O.OR.ALP|(K,IJ).E|
|0001ef80| 51 2e 5a 45 52 4f 29 20 | 54 48 45 4e 20 0a 20 20 |Q.ZERO) |THEN . |
|0001ef90| 20 20 20 20 20 20 20 20 | 46 47 49 28 4b 29 3d 30 | |FGI(K)=0|
|0001efa0| 2e 35 0a 43 20 20 20 20 | 20 20 20 20 20 49 46 20 |.5.C | IF |
|0001efb0| 41 4c 50 28 32 2c 49 4a | 29 20 49 53 20 30 20 54 |ALP(2,IJ|) IS 0 T|
|0001efc0| 48 45 4e 20 46 47 49 50 | 28 32 29 20 53 48 4f 55 |HEN FGIP|(2) SHOU|
|0001efd0| 4c 44 20 42 45 20 53 45 | 54 20 41 54 20 30 0a 43 |LD BE SE|T AT 0.C|
|0001efe0| 20 20 20 20 20 20 20 20 | 20 49 46 20 43 49 20 49 | | IF CI I|
|0001eff0| 53 20 30 20 54 48 45 4e | 20 46 47 49 50 20 47 4f |S 0 THEN| FGIP GO|
|0001f000| 45 53 20 54 4f 20 49 4e | 46 49 4e 49 54 59 2c 20 |ES TO IN|FINITY, |
|0001f010| 42 55 54 20 49 54 53 20 | 50 52 4f 44 55 43 54 20 |BUT ITS |PRODUCT |
|0001f020| 57 49 54 48 0a 43 20 20 | 20 20 20 20 20 20 20 20 |WITH.C | |
|0001f030| 43 4f 4e 43 2a 2a 32 20 | 47 4f 45 53 20 54 4f 20 |CONC**2 |GOES TO |
|0001f040| 5a 45 52 4f 2e 20 20 41 | 53 20 43 49 20 2d 2d 3e |ZERO. A|S CI -->|
|0001f050| 20 30 2c 20 46 47 49 50 | 20 2d 2d 3e 20 2d 41 4c | 0, FGIP| --> -AL|
|0001f060| 50 2f 28 32 2a 53 43 49 | 29 0a 20 20 20 20 20 20 |P/(2*SCI|). |
|0001f070| 20 20 20 20 46 47 49 50 | 28 4b 29 3d 5a 45 52 4f | FGIP|(K)=ZERO|
|0001f080| 0a 20 20 20 20 20 20 20 | 20 45 4e 44 20 49 46 0a |. | END IF.|
|0001f090| 32 32 35 20 20 20 20 20 | 43 4f 4e 54 49 4e 55 45 |225 |CONTINUE|
|0001f0a0| 0a 20 20 20 20 20 20 20 | 20 42 50 28 4c 29 3d 42 |. | BP(L)=B|
|0001f0b0| 30 28 4c 29 2b 42 31 28 | 4c 29 2a 46 50 49 28 31 |0(L)+B1(|L)*FPI(1|
|0001f0c0| 29 2b 42 32 28 4c 29 2a | 46 50 49 28 32 29 0a 20 |)+B2(L)*|FPI(2). |
|0001f0d0| 20 20 20 20 20 20 20 42 | 47 28 4c 29 3d 42 30 28 | B|G(L)=B0(|
|0001f0e0| 4c 29 2b 54 57 4f 2a 42 | 31 28 4c 29 2a 46 47 49 |L)+TWO*B|1(L)*FGI|
|0001f0f0| 28 31 29 2b 54 57 4f 2a | 42 32 28 4c 29 2a 46 47 |(1)+TWO*|B2(L)*FG|
|0001f100| 49 28 32 29 0a 20 20 20 | 20 20 20 20 20 42 47 50 |I(2). | BGP|
|0001f110| 28 4c 29 3d 54 57 4f 2a | 42 31 28 4c 29 2a 46 47 |(L)=TWO*|B1(L)*FG|
|0001f120| 49 50 28 31 29 2b 54 57 | 4f 2a 42 32 28 4c 29 2a |IP(1)+TW|O*B2(L)*|
|0001f130| 46 47 49 50 28 32 29 20 | 20 20 20 20 20 20 20 0a |FGIP(2) | .|
|0001f140| 20 20 20 20 20 20 20 20 | 43 47 28 4c 29 3d 43 50 | |CG(L)=CP|
|0001f150| 28 4c 29 2f 28 54 57 4f | 2a 44 53 51 52 54 28 5a |(L)/(TWO|*DSQRT(Z|
|0001f160| 43 28 49 29 2a 5a 41 28 | 4a 29 29 29 0a 32 33 30 |C(I)*ZA(|J))).230|
|0001f170| 20 20 20 20 20 43 4f 4e | 54 49 4e 55 45 0a 32 33 | CON|TINUE.23|
|0001f180| 35 20 20 20 20 20 43 4f | 4e 54 49 4e 55 45 0a 20 |5 CO|NTINUE. |
|0001f190| 20 20 20 20 20 45 4e 44 | 20 49 46 0a 20 20 20 20 | END| IF. |
|0001f1a0| 20 20 49 46 28 4e 55 4d | 2e 45 51 2e 31 29 20 54 | IF(NUM|.EQ.1) T|
|0001f1b0| 48 45 4e 20 0a 20 20 20 | 20 20 20 20 20 49 46 28 |HEN . | IF(|
|0001f1c0| 4e 43 2e 47 54 2e 31 29 | 20 54 48 45 4e 0a 43 20 |NC.GT.1)| THEN.C |
|0001f1d0| 20 20 20 20 20 20 20 45 | 56 41 4c 55 41 54 45 20 | E|VALUATE |
|0001f1e0| 46 55 4e 43 54 49 4f 4e | 53 20 4e 45 45 44 45 44 |FUNCTION|S NEEDED|
|0001f1f0| 20 46 4f 52 20 55 4e 53 | 59 4d 4d 2e 20 4d 49 58 | FOR UNS|YMM. MIX|
|0001f200| 49 4e 47 20 4f 46 20 43 | 41 54 49 4f 4e 53 0a 20 |ING OF C|ATIONS. |
|0001f210| 20 20 20 20 20 20 20 20 | 20 44 4f 20 32 33 38 20 | | DO 238 |
|0001f220| 49 3d 31 2c 4e 43 2d 31 | 0a 20 20 20 20 20 20 20 |I=1,NC-1|. |
|0001f230| 20 20 20 44 4f 20 32 33 | 37 20 4a 3d 49 2b 31 2c | DO 23|7 J=I+1,|
|0001f240| 4e 43 0a 20 20 20 20 20 | 20 20 20 20 20 4c 3d 49 |NC. | L=I|
|0001f250| 58 32 28 49 2c 4a 2c 4e | 43 29 0a 20 20 20 20 20 |X2(I,J,N|C). |
|0001f260| 20 20 20 20 20 4d 3d 49 | 58 32 28 4a 2c 49 2c 4e | M=I|X2(J,I,N|
|0001f270| 43 29 0a 20 20 20 20 20 | 20 20 20 20 20 45 54 48 |C). | ETH|
|0001f280| 43 28 4c 29 3d 5a 45 52 | 4f 0a 20 20 20 20 20 20 |C(L)=ZER|O. |
|0001f290| 20 20 20 20 45 54 48 43 | 50 28 4c 29 3d 5a 45 52 | ETHC|P(L)=ZER|
|0001f2a0| 4f 0a 20 20 20 20 20 20 | 20 20 20 20 49 46 28 5a |O. | IF(Z|
|0001f2b0| 43 28 49 29 2e 4e 45 2e | 5a 43 28 4a 29 2e 41 4e |C(I).NE.|ZC(J).AN|
|0001f2c0| 44 2e 43 49 2e 47 54 2e | 5a 45 52 4f 29 0a 20 20 |D.CI.GT.|ZERO). |
|0001f2d0| 20 20 20 26 20 20 20 20 | 43 41 4c 4c 20 45 54 48 | & |CALL ETH|
|0001f2e0| 45 54 41 28 43 49 2c 41 | 50 2c 5a 43 28 49 29 2c |ETA(CI,A|P,ZC(I),|
|0001f2f0| 5a 43 28 4a 29 2c 45 54 | 48 43 28 4c 29 2c 45 54 |ZC(J),ET|HC(L),ET|
|0001f300| 48 43 50 28 4c 29 29 0a | 20 20 20 20 20 20 20 20 |HCP(L)).| |
|0001f310| 20 20 45 54 48 43 28 4d | 29 3d 45 54 48 43 28 4c | ETHC(M|)=ETHC(L|
|0001f320| 29 0a 20 20 20 20 20 20 | 20 20 20 20 45 54 48 43 |). | ETHC|
|0001f330| 50 28 4d 29 3d 45 54 48 | 43 50 28 4c 29 0a 32 33 |P(M)=ETH|CP(L).23|
|0001f340| 37 20 20 20 20 20 20 20 | 43 4f 4e 54 49 4e 55 45 |7 |CONTINUE|
|0001f350| 0a 32 33 38 20 20 20 20 | 20 20 20 43 4f 4e 54 49 |.238 | CONTI|
|0001f360| 4e 55 45 0a 20 20 20 20 | 20 20 20 20 45 4e 44 20 |NUE. | END |
|0001f370| 49 46 0a 20 20 20 20 20 | 20 20 20 49 46 28 4e 41 |IF. | IF(NA|
|0001f380| 2e 47 54 2e 31 29 20 54 | 48 45 4e 0a 43 20 20 20 |.GT.1) T|HEN.C |
|0001f390| 20 20 20 20 20 45 56 41 | 4c 55 41 54 45 20 46 55 | EVA|LUATE FU|
|0001f3a0| 4e 43 54 49 4f 4e 53 20 | 4e 45 45 44 45 44 20 46 |NCTIONS |NEEDED F|
|0001f3b0| 4f 52 20 55 4e 53 59 4d | 4d 2e 20 4d 49 58 49 4e |OR UNSYM|M. MIXIN|
|0001f3c0| 47 20 4f 46 20 41 4e 49 | 4f 4e 53 0a 20 20 20 20 |G OF ANI|ONS. |
|0001f3d0| 20 20 20 20 20 20 44 4f | 20 32 34 32 20 49 3d 31 | DO| 242 I=1|
|0001f3e0| 2c 4e 41 2d 31 0a 20 20 | 20 20 20 20 20 20 20 20 |,NA-1. | |
|0001f3f0| 44 4f 20 32 34 31 20 4a | 3d 49 2b 31 2c 4e 41 0a |DO 241 J|=I+1,NA.|
|0001f400| 20 20 20 20 20 20 20 20 | 20 20 4c 3d 49 58 32 28 | | L=IX2(|
|0001f410| 49 2c 4a 2c 4e 41 29 0a | 20 20 20 20 20 20 20 20 |I,J,NA).| |
|0001f420| 20 20 4d 3d 49 58 32 28 | 4a 2c 49 2c 4e 41 29 0a | M=IX2(|J,I,NA).|
|0001f430| 20 20 20 20 20 20 20 20 | 20 20 45 54 48 41 28 4c | | ETHA(L|
|0001f440| 29 3d 5a 45 52 4f 0a 20 | 20 20 20 20 20 20 20 20 |)=ZERO. | |
|0001f450| 20 45 54 48 41 50 28 4c | 29 3d 5a 45 52 4f 0a 20 | ETHAP(L|)=ZERO. |
|0001f460| 20 20 20 20 20 20 20 20 | 20 49 46 28 5a 41 28 49 | | IF(ZA(I|
|0001f470| 29 2e 4e 45 2e 5a 41 28 | 4a 29 2e 41 4e 44 2e 43 |).NE.ZA(|J).AND.C|
|0001f480| 49 2e 47 54 2e 5a 45 52 | 4f 29 0a 20 20 20 20 20 |I.GT.ZER|O). |
|0001f490| 26 20 20 20 20 43 41 4c | 4c 20 45 54 48 45 54 41 |& CAL|L ETHETA|
|0001f4a0| 28 43 49 2c 41 50 2c 5a | 41 28 49 29 2c 5a 41 28 |(CI,AP,Z|A(I),ZA(|
|0001f4b0| 4a 29 2c 45 54 48 41 28 | 4c 29 2c 45 54 48 41 50 |J),ETHA(|L),ETHAP|
|0001f4c0| 28 4c 29 29 0a 20 20 20 | 20 20 20 20 20 20 20 45 |(L)). | E|
|0001f4d0| 54 48 41 28 4d 29 3d 45 | 54 48 41 28 4c 29 0a 20 |THA(M)=E|THA(L). |
|0001f4e0| 20 20 20 20 20 20 20 20 | 20 45 54 48 41 50 28 4d | | ETHAP(M|
|0001f4f0| 29 3d 45 54 48 41 50 28 | 4c 29 0a 32 34 31 20 20 |)=ETHAP(|L).241 |
|0001f500| 20 20 20 20 20 43 4f 4e | 54 49 4e 55 45 0a 32 34 | CON|TINUE.24|
|0001f510| 32 20 20 20 20 20 20 20 | 43 4f 4e 54 49 4e 55 45 |2 |CONTINUE|
|0001f520| 0a 20 20 20 20 20 20 20 | 20 45 4e 44 20 49 46 0a |. | END IF.|
|0001f530| 20 20 20 20 20 20 45 4e | 44 20 49 46 0a 43 20 20 | EN|D IF.C |
|0001f540| 43 41 4c 43 55 4c 41 54 | 45 20 54 48 45 20 4f 53 |CALCULAT|E THE OS|
|0001f550| 4d 4f 54 49 43 20 43 4f | 45 46 46 49 43 49 45 4e |MOTIC CO|EFFICIEN|
|0001f560| 54 20 41 4e 44 20 57 41 | 54 45 52 20 41 43 54 49 |T AND WA|TER ACTI|
|0001f570| 56 49 54 59 0a 20 20 20 | 20 20 20 49 46 28 54 4d |VITY. | IF(TM|
|0001f580| 2e 47 54 2e 5a 45 52 4f | 29 20 43 41 4c 4c 20 50 |.GT.ZERO|) CALL P|
|0001f590| 48 49 4d 49 58 28 5a 43 | 2c 5a 41 2c 43 4d 2c 41 |HIMIX(ZC|,ZA,CM,A|
|0001f5a0| 4d 2c 42 4d 2c 54 4d 2c | 54 4e 2c 0a 20 20 20 20 |M,BM,TM,|TN,. |
|0001f5b0| 20 26 43 49 2c 46 50 2c | 42 50 2c 43 50 2c 50 43 | &CI,FP,|BP,CP,PC|
|0001f5c0| 43 2c 45 54 48 43 2c 45 | 54 48 43 50 2c 50 41 41 |C,ETHC,E|THCP,PAA|
|0001f5d0| 2c 45 54 48 41 2c 45 54 | 48 41 50 2c 50 43 43 41 |,ETHA,ET|HAP,PCCA|
|0001f5e0| 2c 50 43 41 41 2c 44 43 | 41 2c 50 4e 43 2c 0a 20 |,PCAA,DC|A,PNC,. |
|0001f5f0| 20 20 20 20 26 50 4e 41 | 2c 50 4e 4e 2c 50 48 49 | &PNA|,PNN,PHI|
|0001f600| 29 0a 20 20 20 20 20 20 | 49 46 28 54 4d 2e 45 51 |). |IF(TM.EQ|
|0001f610| 2e 5a 45 52 4f 29 20 50 | 48 49 3d 4f 4e 45 0a 20 |.ZERO) P|HI=ONE. |
|0001f620| 20 20 20 20 20 41 57 3d | 44 45 58 50 28 2d 54 4d | AW=|DEXP(-TM|
|0001f630| 2a 57 41 2a 50 48 49 29 | 20 20 20 20 20 20 0a 43 |*WA*PHI)| .C|
|0001f640| 20 20 43 41 4c 43 55 4c | 41 54 45 20 41 43 54 49 | CALCUL|ATE ACTI|
|0001f650| 56 49 54 59 20 43 4f 45 | 46 46 49 43 49 45 4e 54 |VITY COE|FFICIENT|
|0001f660| 53 20 41 4e 44 20 43 4f | 4e 56 45 52 54 20 54 4f |S AND CO|NVERT TO|
|0001f670| 20 55 53 45 52 20 43 4f | 4e 43 2e 20 53 43 41 4c | USER CO|NC. SCAL|
|0001f680| 45 0a 20 20 20 20 20 20 | 49 46 28 4e 43 2e 47 54 |E. |IF(NC.GT|
|0001f690| 2e 30 29 20 54 48 45 4e | 0a 20 20 20 20 20 20 20 |.0) THEN|. |
|0001f6a0| 20 44 4f 20 32 34 30 20 | 49 3d 31 2c 4e 43 0a 20 | DO 240 |I=1,NC. |
|0001f6b0| 20 20 20 20 20 20 20 43 | 41 4c 4c 20 43 47 41 4d | C|ALL CGAM|
|0001f6c0| 41 28 5a 43 2c 5a 41 2c | 43 4d 2c 41 4d 2c 42 4d |A(ZC,ZA,|CM,AM,BM|
|0001f6d0| 2c 54 4e 2c 46 47 2c 0a | 20 20 20 20 20 26 20 20 |,TN,FG,.| & |
|0001f6e0| 42 47 2c 42 47 50 2c 43 | 47 2c 50 43 43 2c 45 54 |BG,BGP,C|G,PCC,ET|
|0001f6f0| 48 43 2c 45 54 48 43 50 | 2c 45 54 48 41 50 2c 50 |HC,ETHCP|,ETHAP,P|
|0001f700| 43 43 41 2c 50 43 41 41 | 2c 44 43 41 2c 50 4e 43 |CCA,PCAA|,DCA,PNC|
|0001f710| 2c 49 2c 47 4c 4e 43 29 | 0a 20 20 20 20 20 20 20 |,I,GLNC)|. |
|0001f720| 20 4b 3d 49 43 41 28 49 | 29 0a 20 20 20 20 20 20 | K=ICA(I|). |
|0001f730| 20 20 49 46 28 49 43 4e | 2e 45 51 2e 31 29 20 47 | IF(ICN|.EQ.1) G|
|0001f740| 28 4b 29 3d 52 4d 43 2a | 44 57 2a 44 45 58 50 28 |(K)=RMC*|DW*DEXP(|
|0001f750| 47 4c 4e 43 29 0a 20 20 | 20 20 20 20 20 20 49 46 |GLNC). | IF|
|0001f760| 28 49 43 4e 2e 45 51 2e | 32 29 20 47 28 4b 29 3d |(ICN.EQ.|2) G(K)=|
|0001f770| 44 45 58 50 28 47 4c 4e | 43 29 0a 20 20 20 20 20 |DEXP(GLN|C). |
|0001f780| 20 20 20 49 46 28 49 43 | 4e 2e 45 51 2e 33 29 20 | IF(IC|N.EQ.3) |
|0001f790| 47 28 4b 29 3d 52 4d 43 | 2a 44 45 58 50 28 47 4c |G(K)=RMC|*DEXP(GL|
|0001f7a0| 4e 43 29 0a 32 34 30 20 | 20 20 20 20 43 4f 4e 54 |NC).240 | CONT|
|0001f7b0| 49 4e 55 45 0a 20 20 20 | 20 20 20 45 4e 44 20 49 |INUE. | END I|
|0001f7c0| 46 0a 20 20 20 20 20 20 | 49 46 28 4e 41 2e 47 54 |F. |IF(NA.GT|
|0001f7d0| 2e 30 29 20 54 48 45 4e | 0a 20 20 20 20 20 20 20 |.0) THEN|. |
|0001f7e0| 20 44 4f 20 32 34 35 20 | 49 3d 31 2c 4e 41 0a 20 | DO 245 |I=1,NA. |
|0001f7f0| 20 20 20 20 20 20 20 43 | 41 4c 4c 20 41 47 41 4d | C|ALL AGAM|
|0001f800| 41 28 5a 43 2c 5a 41 2c | 43 4d 2c 41 4d 2c 42 4d |A(ZC,ZA,|CM,AM,BM|
|0001f810| 2c 54 4e 2c 46 47 2c 0a | 20 20 20 20 20 26 20 20 |,TN,FG,.| & |
|0001f820| 42 47 2c 42 47 50 2c 43 | 47 2c 50 41 41 2c 45 54 |BG,BGP,C|G,PAA,ET|
|0001f830| 48 41 2c 45 54 48 41 50 | 2c 45 54 48 43 50 2c 50 |HA,ETHAP|,ETHCP,P|
|0001f840| 43 43 41 2c 50 43 41 41 | 2c 44 43 41 2c 50 4e 41 |CCA,PCAA|,DCA,PNA|
|0001f850| 2c 49 2c 47 4c 4e 41 29 | 0a 20 20 20 20 20 20 20 |,I,GLNA)|. |
|0001f860| 20 4b 3d 49 41 4e 28 49 | 29 0a 20 20 20 20 20 20 | K=IAN(I|). |
|0001f870| 20 20 49 46 28 49 43 4e | 2e 45 51 2e 31 29 20 47 | IF(ICN|.EQ.1) G|
|0001f880| 28 4b 29 3d 52 4d 43 2a | 44 57 2a 44 45 58 50 28 |(K)=RMC*|DW*DEXP(|
|0001f890| 47 4c 4e 41 29 0a 20 20 | 20 20 20 20 20 20 49 46 |GLNA). | IF|
|0001f8a0| 28 49 43 4e 2e 45 51 2e | 32 29 20 47 28 4b 29 3d |(ICN.EQ.|2) G(K)=|
|0001f8b0| 44 45 58 50 28 47 4c 4e | 41 29 0a 20 20 20 20 20 |DEXP(GLN|A). |
|0001f8c0| 20 20 20 49 46 28 49 43 | 4e 2e 45 51 2e 33 29 20 | IF(IC|N.EQ.3) |
|0001f8d0| 47 28 4b 29 3d 52 4d 43 | 2a 44 45 58 50 28 47 4c |G(K)=RMC|*DEXP(GL|
|0001f8e0| 4e 41 29 0a 32 34 35 20 | 20 20 20 20 43 4f 4e 54 |NA).245 | CONT|
|0001f8f0| 49 4e 55 45 0a 20 20 20 | 20 20 20 45 4e 44 20 49 |INUE. | END I|
|0001f900| 46 0a 20 20 20 20 20 20 | 49 46 28 4e 4e 2e 47 54 |F. |IF(NN.GT|
|0001f910| 2e 30 29 20 54 48 45 4e | 0a 20 20 20 20 20 20 20 |.0) THEN|. |
|0001f920| 20 44 4f 20 32 35 30 20 | 49 3d 31 2c 4e 4e 0a 20 | DO 250 |I=1,NN. |
|0001f930| 20 20 20 20 20 20 20 43 | 41 4c 4c 20 4e 47 41 4d | C|ALL NGAM|
|0001f940| 41 28 5a 43 2c 5a 41 2c | 43 4d 2c 41 4d 2c 42 4d |A(ZC,ZA,|CM,AM,BM|
|0001f950| 2c 54 4e 2c 44 43 41 2c | 0a 20 20 20 20 20 26 20 |,TN,DCA,|. & |
|0001f960| 20 50 4e 43 2c 50 4e 41 | 2c 50 4e 4e 2c 49 2c 47 | PNC,PNA|,PNN,I,G|
|0001f970| 4c 4e 4e 29 0a 20 20 20 | 20 20 20 20 20 4b 3d 49 |LNN). | K=I|
|0001f980| 4e 55 28 49 29 0a 20 20 | 20 20 20 20 20 20 49 46 |NU(I). | IF|
|0001f990| 28 49 43 4e 2e 45 51 2e | 31 29 20 47 28 4b 29 3d |(ICN.EQ.|1) G(K)=|
|0001f9a0| 52 4d 43 2a 44 57 2a 44 | 45 58 50 28 47 4c 4e 4e |RMC*DW*D|EXP(GLNN|
|0001f9b0| 29 0a 20 20 20 20 20 20 | 20 20 49 46 28 49 43 4e |). | IF(ICN|
|0001f9c0| 2e 45 51 2e 32 29 20 47 | 28 4b 29 3d 44 45 58 50 |.EQ.2) G|(K)=DEXP|
|0001f9d0| 28 47 4c 4e 4e 29 0a 20 | 20 20 20 20 20 20 20 49 |(GLNN). | I|
|0001f9e0| 46 28 49 43 4e 2e 45 51 | 2e 33 29 20 47 28 4b 29 |F(ICN.EQ|.3) G(K)|
|0001f9f0| 3d 52 4d 43 2a 44 45 58 | 50 28 47 4c 4e 4e 29 0a |=RMC*DEX|P(GLNN).|
|0001fa00| 32 35 30 20 20 20 20 20 | 43 4f 4e 54 49 4e 55 45 |250 |CONTINUE|
|0001fa10| 0a 20 20 20 20 20 20 45 | 4e 44 20 49 46 0a 20 20 |. E|ND IF. |
|0001fa20| 20 20 20 20 52 45 54 55 | 52 4e 0a 20 20 20 20 20 | RETU|RN. |
|0001fa30| 20 45 4e 44 0a 43 0a 43 | 0a 43 0a 20 20 20 20 20 | END.C.C|.C. |
|0001fa40| 20 53 55 42 52 4f 55 54 | 49 4e 45 20 57 41 54 45 | SUBROUT|INE WATE|
|0001fa50| 52 28 54 43 2c 50 30 2c | 44 57 2c 44 43 2c 52 4c |R(TC,P0,|DW,DC,RL|
|0001fa60| 4b 57 29 0a 20 20 20 20 | 20 20 49 4d 50 4c 49 43 |KW). | IMPLIC|
|0001fa70| 49 54 20 52 45 41 4c 2a | 38 28 41 2d 48 2c 4f 2d |IT REAL*|8(A-H,O-|
|0001fa80| 5a 29 0a 20 20 20 20 20 | 20 53 41 56 45 0a 20 20 |Z). | SAVE. |
|0001fa90| 20 20 20 20 44 41 54 41 | 20 4f 4e 45 2c 5a 45 52 | DATA| ONE,ZER|
|0001faa0| 4f 2c 44 49 46 46 2f 31 | 2e 30 44 2b 30 2c 30 2e |O,DIFF/1|.0D+0,0.|
|0001fab0| 30 44 2b 30 2c 31 2e 30 | 44 2d 31 30 2f 0a 20 20 |0D+0,1.0|D-10/. |
|0001fac0| 20 20 20 20 43 41 4c 4c | 20 50 53 41 54 28 54 43 | CALL| PSAT(TC|
|0001fad0| 2c 50 30 29 0a 20 20 20 | 20 20 20 44 57 3d 4f 4e |,P0). | DW=ON|
|0001fae0| 45 0a 20 20 20 20 20 20 | 44 4f 20 32 30 20 49 3d |E. |DO 20 I=|
|0001faf0| 31 2c 31 30 30 0a 20 20 | 20 20 20 20 43 41 4c 4c |1,100. | CALL|
|0001fb00| 20 57 41 50 56 54 28 54 | 43 2c 44 57 2c 50 58 2c | WAPVT(T|C,DW,PX,|
|0001fb10| 42 45 54 41 29 0a 20 20 | 20 20 20 20 58 53 3d 44 |BETA). | XS=D|
|0001fb20| 57 0a 20 20 20 20 20 20 | 44 57 3d 44 57 2f 44 45 |W. |DW=DW/DE|
|0001fb30| 58 50 28 42 45 54 41 2a | 28 50 58 2d 50 30 29 29 |XP(BETA*|(PX-P0))|
|0001fb40| 0a 20 20 20 20 20 20 49 | 46 28 44 41 42 53 28 28 |. I|F(DABS((|
|0001fb50| 44 57 2d 58 53 29 2f 58 | 53 29 2e 4c 54 2e 44 49 |DW-XS)/X|S).LT.DI|
|0001fb60| 46 46 29 20 47 4f 20 54 | 4f 20 32 31 0a 32 30 20 |FF) GO T|O 21.20 |
|0001fb70| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 20 20 20 20 | CONTI|NUE. |
|0001fb80| 20 20 57 52 49 54 45 28 | 39 2c 31 30 30 29 20 0a | WRITE(|9,100) .|
|0001fb90| 31 30 30 20 20 20 46 4f | 52 4d 41 54 28 31 58 2c |100 FO|RMAT(1X,|
|0001fba0| 27 43 41 4c 43 55 4c 41 | 54 45 44 20 57 41 54 45 |'CALCULA|TED WATE|
|0001fbb0| 52 20 44 45 4e 53 49 54 | 59 20 4e 4f 54 20 43 4f |R DENSIT|Y NOT CO|
|0001fbc0| 52 52 45 43 54 27 29 0a | 20 20 20 20 20 20 50 41 |RRECT').| PA|
|0001fbd0| 55 53 45 0a 20 20 20 20 | 20 20 53 54 4f 50 0a 32 |USE. | STOP.2|
|0001fbe0| 31 20 20 20 20 43 41 4c | 4c 20 57 44 42 50 28 54 |1 CAL|L WDBP(T|
|0001fbf0| 43 2c 44 57 2c 50 30 2c | 44 43 29 0a 20 20 20 20 |C,DW,P0,|DC). |
|0001fc00| 20 20 43 41 4c 4c 20 4b | 57 4d 46 28 54 43 2c 44 | CALL K|WMF(TC,D|
|0001fc10| 57 2c 52 4c 4b 57 29 0a | 20 20 20 20 20 20 52 45 |W,RLKW).| RE|
|0001fc20| 54 55 52 4e 0a 20 20 20 | 20 20 20 45 4e 44 0a 43 |TURN. | END.C|
|0001fc30| 0a 43 0a 43 0a 43 20 20 | 53 55 42 52 4f 55 54 49 |.C.C.C |SUBROUTI|
|0001fc40| 4e 45 20 54 4f 20 43 41 | 4c 43 55 4c 41 54 45 20 |NE TO CA|LCULATE |
|0001fc50| 54 48 45 20 53 41 54 55 | 52 41 54 49 4f 4e 20 50 |THE SATU|RATION P|
|0001fc60| 52 45 53 53 55 52 45 20 | 4f 46 20 50 55 52 45 20 |RESSURE |OF PURE |
|0001fc70| 57 41 54 45 52 0a 43 20 | 20 20 42 41 53 45 44 20 |WATER.C | BASED |
|0001fc80| 4f 4e 20 4b 45 45 4e 41 | 4e 20 45 54 20 41 4c 20 |ON KEENA|N ET AL |
|0001fc90| 28 31 39 36 39 29 2c 20 | 45 51 20 31 37 0a 43 0a |(1969), |EQ 17.C.|
|0001fca0| 20 20 20 20 20 20 53 55 | 42 52 4f 55 54 49 4e 45 | SU|BROUTINE|
|0001fcb0| 20 50 53 41 54 28 54 43 | 2c 50 29 0a 20 20 20 20 | PSAT(TC|,P). |
|0001fcc0| 20 20 49 4d 50 4c 49 43 | 49 54 20 52 45 41 4c 2a | IMPLIC|IT REAL*|
|0001fcd0| 38 28 41 2d 48 2c 4f 2d | 5a 29 0a 20 20 20 20 20 |8(A-H,O-|Z). |
|0001fce0| 20 53 41 56 45 0a 20 20 | 20 20 20 20 44 49 4d 45 | SAVE. | DIME|
|0001fcf0| 4e 53 49 4f 4e 20 46 28 | 38 29 0a 20 20 20 20 20 |NSION F(|8). |
|0001fd00| 20 44 41 54 41 20 54 4b | 2c 54 43 52 54 2c 50 43 | DATA TK|,TCRT,PC|
|0001fd10| 52 54 2f 32 37 33 2e 31 | 35 44 2b 30 2c 33 37 34 |RT/273.1|5D+0,374|
|0001fd20| 2e 31 33 36 44 2b 30 2c | 32 32 30 2e 38 38 44 2b |.136D+0,|220.88D+|
|0001fd30| 30 2f 0a 20 20 20 20 20 | 20 44 41 54 41 20 46 2f |0/. | DATA F/|
|0001fd40| 2d 37 34 31 2e 39 32 34 | 32 44 2b 30 2c 2d 32 39 |-741.924|2D+0,-29|
|0001fd50| 2e 37 32 31 30 30 44 2b | 30 2c 2d 31 31 2e 35 35 |.72100D+|0,-11.55|
|0001fd60| 32 38 36 44 2b 30 2c 2d | 38 2e 36 38 35 36 33 35 |286D+0,-|8.685635|
|0001fd70| 44 2d 31 2c 0a 20 20 20 | 20 20 26 31 2e 30 39 34 |D-1,. | &1.094|
|0001fd80| 30 39 38 44 2d 31 2c 34 | 2e 33 39 39 39 33 44 2d |098D-1,4|.39993D-|
|0001fd90| 31 2c 32 2e 35 32 30 36 | 35 38 44 2d 31 2c 35 2e |1,2.5206|58D-1,5.|
|0001fda0| 32 31 38 36 38 34 44 2d | 32 2f 0a 20 20 20 20 20 |218684D-|2/. |
|0001fdb0| 20 44 41 54 41 20 4f 4e | 45 2c 5a 45 52 4f 2c 43 | DATA ON|E,ZERO,C|
|0001fdc0| 4e 31 2c 43 4e 32 2c 43 | 4e 33 2c 43 4e 34 2f 31 |N1,CN2,C|N3,CN4/1|
|0001fdd0| 2e 30 44 2b 30 2c 30 2e | 30 44 2b 30 2c 31 2e 30 |.0D+0,0.|0D+0,1.0|
|0001fde0| 44 2b 33 2c 30 2e 36 35 | 44 2b 30 2c 0a 20 20 20 |D+3,0.65|D+0,. |
|0001fdf0| 20 20 26 30 2e 30 31 44 | 2b 30 2c 31 2e 30 44 2d | &0.01D|+0,1.0D-|
|0001fe00| 35 2f 0a 20 20 20 20 20 | 20 54 3d 54 43 2b 54 4b |5/. | T=TC+TK|
|0001fe10| 0a 20 20 20 20 20 20 54 | 52 3d 43 4e 31 2f 54 0a |. T|R=CN1/T.|
|0001fe20| 20 20 20 20 20 20 53 3d | 5a 45 52 4f 0a 20 20 20 | S=|ZERO. |
|0001fe30| 20 20 20 44 4f 20 31 30 | 20 49 3d 31 2c 38 0a 20 | DO 10| I=1,8. |
|0001fe40| 20 20 20 20 20 53 3d 53 | 2b 46 28 49 29 2a 28 43 | S=S|+F(I)*(C|
|0001fe50| 4e 32 2d 43 4e 33 2a 54 | 43 29 2a 2a 28 49 2d 31 |N2-CN3*T|C)**(I-1|
|0001fe60| 29 0a 31 30 20 20 20 20 | 43 4f 4e 54 49 4e 55 45 |).10 |CONTINUE|
|0001fe70| 0a 20 20 20 20 20 20 50 | 3d 50 43 52 54 2a 44 45 |. P|=PCRT*DE|
|0001fe80| 58 50 28 43 4e 34 2a 54 | 52 2a 28 54 43 52 54 2d |XP(CN4*T|R*(TCRT-|
|0001fe90| 54 43 29 2a 53 29 0a 20 | 20 20 20 20 20 52 45 54 |TC)*S). | RET|
|0001fea0| 55 52 4e 0a 20 20 20 20 | 20 20 45 4e 44 0a 43 0a |URN. | END.C.|
|0001feb0| 43 0a 43 0a 43 20 20 53 | 55 42 52 4f 55 54 49 4e |C.C.C S|UBROUTIN|
|0001fec0| 45 20 54 4f 20 43 41 4c | 43 55 4c 41 54 45 20 54 |E TO CAL|CULATE T|
|0001fed0| 48 45 20 50 52 4f 50 45 | 52 54 49 45 53 20 4f 46 |HE PROPE|RTIES OF|
|0001fee0| 20 50 55 52 45 20 57 41 | 54 45 52 0a 43 20 20 20 | PURE WA|TER.C |
|0001fef0| 46 52 4f 4d 20 54 48 45 | 20 53 54 45 41 4d 20 54 |FROM THE| STEAM T|
|0001ff00| 41 42 4c 45 53 20 4f 46 | 20 4b 45 45 4e 41 4e 20 |ABLES OF| KEENAN |
|0001ff10| 45 54 20 41 4c 20 28 31 | 39 36 39 29 0a 43 0a 43 |ET AL (1|969).C.C|
|0001ff20| 20 20 20 20 58 20 3d 20 | 44 45 4e 53 49 54 59 20 | X = |DENSITY |
|0001ff30| 28 47 2f 43 4d 33 29 2c | 20 50 20 3d 20 50 52 45 |(G/CM3),| P = PRE|
|0001ff40| 53 53 55 52 45 20 28 42 | 41 52 29 2c 20 54 43 20 |SSURE (B|AR), TC |
|0001ff50| 3d 20 54 48 45 52 4d 4f | 2e 20 54 45 4d 50 2e 20 |= THERMO|. TEMP. |
|0001ff60| 28 43 29 2c 0a 43 0a 20 | 20 20 20 20 20 53 55 42 |(C),.C. | SUB|
|0001ff70| 52 4f 55 54 49 4e 45 20 | 57 41 50 56 54 28 54 43 |ROUTINE |WAPVT(TC|
|0001ff80| 2c 58 2c 50 2c 42 45 54 | 41 29 0a 20 20 20 20 20 |,X,P,BET|A). |
|0001ff90| 20 49 4d 50 4c 49 43 49 | 54 20 52 45 41 4c 2a 38 | IMPLICI|T REAL*8|
|0001ffa0| 28 41 2d 48 2c 4f 2d 5a | 29 0a 20 20 20 20 20 20 |(A-H,O-Z|). |
|0001ffb0| 53 41 56 45 0a 20 20 20 | 20 20 20 44 49 4d 45 4e |SAVE. | DIMEN|
|0001ffc0| 53 49 4f 4e 20 43 28 38 | 29 2c 41 28 31 30 2c 37 |SION C(8|),A(10,7|
|0001ffd0| 29 2c 54 49 28 38 29 0a | 20 20 20 20 20 20 44 41 |),TI(8).| DA|
|0001ffe0| 54 41 20 54 4b 2c 54 43 | 52 2c 45 2c 52 50 2f 32 |TA TK,TC|R,E,RP/2|
|0001fff0| 37 33 2e 31 35 44 2b 30 | 2c 31 2e 35 34 34 39 31 |73.15D+0|,1.54491|
|00020000| 32 44 2b 30 2c 34 2e 38 | 44 2b 30 2c 34 2e 36 31 |2D+0,4.8|D+0,4.61|
|00020010| 35 31 44 2b 30 2f 0a 20 | 20 20 20 20 20 44 41 54 |51D+0/. | DAT|
|00020020| 41 20 43 2f 31 2e 38 35 | 37 30 36 35 44 2b 33 2c |A C/1.85|7065D+3,|
|00020030| 33 2e 32 32 39 31 32 44 | 2b 33 2c 2d 34 2e 31 39 |3.22912D|+3,-4.19|
|00020040| 34 36 35 44 2b 32 2c 33 | 2e 36 36 36 34 39 44 2b |465D+2,3|.66649D+|
|00020050| 31 2c 2d 32 2e 30 35 35 | 31 36 44 2b 31 0a 20 20 |1,-2.055|16D+1. |
|00020060| 20 20 20 26 2c 34 2e 38 | 35 32 33 33 44 2b 30 2c | &,4.8|5233D+0,|
|00020070| 34 2e 36 44 2b 31 2c 2d | 31 2e 30 31 31 32 34 39 |4.6D+1,-|1.011249|
|00020080| 44 2b 33 2f 0a 20 20 20 | 20 20 20 44 41 54 41 20 |D+3/. | DATA |
|00020090| 41 2f 32 2e 39 34 39 32 | 39 33 37 44 2b 31 2c 2d |A/2.9492|937D+1,-|
|000200a0| 31 2e 33 32 31 33 39 31 | 37 44 2b 32 2c 32 2e 37 |1.321391|7D+2,2.7|
|000200b0| 34 36 34 36 33 32 44 2b | 32 2c 2d 33 2e 36 30 39 |464632D+|2,-3.609|
|000200c0| 33 38 32 38 44 2b 32 0a | 20 20 20 20 20 26 2c 33 |3828D+2.| &,3|
|000200d0| 2e 34 32 31 38 34 33 31 | 44 2b 32 2c 2d 32 2e 34 |.4218431|D+2,-2.4|
|000200e0| 34 35 30 30 34 32 44 2b | 32 2c 31 2e 35 35 31 38 |450042D+|2,1.5518|
|000200f0| 35 33 35 44 2b 32 2c 35 | 2e 39 37 32 38 34 38 37 |535D+2,5|.9728487|
|00020100| 44 2b 30 0a 20 20 20 20 | 20 26 2c 2d 34 2e 31 30 |D+0. | &,-4.10|
|00020110| 33 30 38 34 38 44 2b 32 | 2c 2d 34 2e 31 36 30 35 |30848D+2|,-4.1605|
|00020120| 38 36 30 44 2b 32 0a 20 | 20 20 20 20 26 2c 2d 35 |860D+2. | &,-5|
|00020130| 2e 31 39 38 35 38 36 30 | 44 2b 30 2c 37 2e 37 37 |.1985860|D+0,7.77|
|00020140| 37 39 31 38 32 44 2b 30 | 2c 2d 33 2e 33 33 30 31 |79182D+0|,-3.3301|
|00020150| 39 30 32 44 2b 31 2c 2d | 31 2e 36 32 35 34 36 32 |902D+1,-|1.625462|
|00020160| 32 44 2b 31 0a 20 20 20 | 20 20 26 2c 2d 31 2e 37 |2D+1. | &,-1.7|
|00020170| 37 33 31 30 37 34 44 2b | 32 2c 31 2e 32 37 34 38 |731074D+|2,1.2748|
|00020180| 37 34 32 44 2b 32 2c 31 | 2e 33 37 34 36 31 35 33 |742D+2,1|.3746153|
|00020190| 44 2b 32 2c 31 2e 35 35 | 39 37 38 33 36 44 2b 32 |D+2,1.55|97836D+2|
|000201a0| 0a 20 20 20 20 20 26 2c | 33 2e 33 37 33 31 31 38 |. &,|3.373118|
|000201b0| 30 44 2b 32 2c 2d 32 2e | 30 39 38 38 38 36 36 44 |0D+2,-2.|0988866D|
|000201c0| 2b 32 0a 20 20 20 20 20 | 26 2c 36 2e 38 33 33 35 |+2. |&,6.8335|
|000201d0| 33 35 34 44 2b 30 2c 2d | 32 2e 36 31 34 39 37 35 |354D+0,-|2.614975|
|000201e0| 31 44 2b 31 2c 36 2e 35 | 33 32 36 33 39 36 44 2b |1D+1,6.5|326396D+|
|000201f0| 31 2c 2d 32 2e 36 31 38 | 31 39 37 38 44 2b 31 0a |1,-2.618|1978D+1.|
|00020200| 20 20 20 20 20 26 2c 30 | 2e 30 44 2b 30 2c 30 2e | &,0|.0D+0,0.|
|00020210| 30 44 2b 30 2c 30 2e 30 | 44 2b 30 2c 30 2e 30 44 |0D+0,0.0|D+0,0.0D|
|00020220| 2b 30 2c 2d 31 2e 33 37 | 34 36 36 31 38 44 2b 32 |+0,-1.37|46618D+2|
|00020230| 2c 2d 37 2e 33 33 39 36 | 38 34 38 44 2b 32 0a 20 |,-7.3396|848D+2. |
|00020240| 20 20 20 20 26 2c 2d 31 | 2e 35 36 34 31 30 34 44 | &,-1|.564104D|
|00020250| 2d 31 2c 2d 37 2e 32 35 | 34 36 31 30 38 44 2d 31 |-1,-7.25|46108D-1|
|00020260| 2c 2d 39 2e 32 37 33 34 | 32 38 39 44 2b 30 2c 34 |,-9.2734|289D+0,4|
|00020270| 2e 33 31 32 35 38 34 30 | 44 2b 30 0a 20 20 20 20 |.3125840|D+0. |
|00020280| 20 26 2c 30 2e 30 44 2b | 30 2c 30 2e 30 44 2b 30 | &,0.0D+|0,0.0D+0|
|00020290| 2c 30 2e 30 44 2b 30 2c | 30 2e 30 44 2b 30 2c 36 |,0.0D+0,|0.0D+0,6|
|000202a0| 2e 37 38 37 34 39 38 33 | 44 2b 30 2c 31 2e 30 34 |.7874983|D+0,1.04|
|000202b0| 30 31 37 31 37 44 2b 31 | 0a 20 20 20 20 20 26 2c |01717D+1|. &,|
|000202c0| 2d 36 2e 33 39 37 32 34 | 30 35 44 2b 30 2c 32 2e |-6.39724|05D+0,2.|
|000202d0| 36 34 30 39 32 38 32 44 | 2b 31 2c 2d 34 2e 37 37 |6409282D|+1,-4.77|
|000202e0| 34 30 33 37 34 44 2b 31 | 2c 35 2e 36 33 32 33 31 |40374D+1|,5.63231|
|000202f0| 33 30 44 2b 31 0a 20 20 | 20 20 20 26 2c 30 2e 30 |30D+1. | &,0.0|
|00020300| 44 2b 30 2c 30 2e 30 44 | 2b 30 2c 30 2e 30 44 2b |D+0,0.0D|+0,0.0D+|
|00020310| 30 2c 30 2e 30 44 2b 30 | 2c 31 2e 33 36 38 37 33 |0,0.0D+0|,1.36873|
|00020320| 31 37 44 2b 32 2c 36 2e | 34 35 38 31 38 38 30 44 |17D+2,6.|4581880D|
|00020330| 2b 32 0a 20 20 20 20 20 | 26 2c 2d 33 2e 39 36 36 |+2. |&,-3.966|
|00020340| 31 34 30 31 44 2b 30 2c | 31 2e 35 34 35 33 30 36 |1401D+0,|1.545306|
|00020350| 31 44 2b 31 2c 2d 32 2e | 39 31 34 32 34 37 30 44 |1D+1,-2.|9142470D|
|00020360| 2b 31 2c 32 2e 39 35 36 | 38 37 39 36 44 2b 31 0a |+1,2.956|8796D+1.|
|00020370| 20 20 20 20 20 26 2c 30 | 2e 30 44 2b 30 2c 30 2e | &,0|.0D+0,0.|
|00020380| 30 44 2b 30 2c 30 2e 30 | 44 2b 30 2c 30 2e 30 44 |0D+0,0.0|D+0,0.0D|
|00020390| 2b 30 2c 37 2e 39 38 34 | 37 39 37 30 44 2b 31 2c |+0,7.984|7970D+1,|
|000203a0| 33 2e 39 39 31 37 35 37 | 30 44 2b 32 0a 20 20 20 |3.991757|0D+2. |
|000203b0| 20 20 26 2c 2d 36 2e 39 | 30 34 38 35 35 34 44 2d | &,-6.9|048554D-|
|000203c0| 31 2c 32 2e 37 34 30 37 | 34 31 36 44 2b 30 2c 2d |1,2.7407|416D+0,-|
|000203d0| 35 2e 31 30 32 38 30 37 | 30 44 2b 30 2c 33 2e 39 |5.102807|0D+0,3.9|
|000203e0| 36 33 36 30 38 35 44 2b | 30 0a 20 20 20 20 20 26 |636085D+|0. &|
|000203f0| 2c 30 2e 30 44 2b 30 2c | 30 2e 30 44 2b 30 2c 30 |,0.0D+0,|0.0D+0,0|
|00020400| 2e 30 44 2b 30 2c 30 2e | 30 44 2b 30 2c 31 2e 33 |.0D+0,0.|0D+0,1.3|
|00020410| 30 34 31 32 35 33 44 2b | 31 2c 37 2e 31 35 33 31 |041253D+|1,7.1531|
|00020420| 33 35 33 44 2b 31 2f 0a | 20 20 20 20 20 20 44 41 |353D+1/.| DA|
|00020430| 54 41 20 4f 4e 45 2c 5a | 45 52 4f 2c 54 45 4e 2c |TA ONE,Z|ERO,TEN,|
|00020440| 43 4e 31 2c 43 4e 32 2c | 52 4d 57 2c 43 4e 34 2f |CN1,CN2,|RMW,CN4/|
|00020450| 31 2e 30 44 2b 30 2c 30 | 2e 30 44 2b 30 2c 31 30 |1.0D+0,0|.0D+0,10|
|00020460| 2e 30 44 2b 30 2c 0a 20 | 20 20 20 20 26 31 2e 30 |.0D+0,. | &1.0|
|00020470| 44 2b 33 2c 32 2e 30 44 | 2b 30 2c 31 38 2e 30 31 |D+3,2.0D|+0,18.01|
|00020480| 35 33 44 2b 30 2c 30 2e | 36 33 34 44 2b 30 2f 0a |53D+0,0.|634D+0/.|
|00020490| 20 20 20 20 20 20 52 43 | 3d 52 50 2f 54 45 4e 0a | RC|=RP/TEN.|
|000204a0| 20 20 20 20 20 20 54 3d | 54 43 2b 54 4b 0a 20 20 | T=|TC+TK. |
|000204b0| 20 20 20 20 54 52 3d 43 | 4e 31 2f 54 0a 20 20 20 | TR=C|N1/T. |
|000204c0| 20 20 20 54 46 3d 54 52 | 2d 54 43 52 0a 20 20 20 | TF=TR|-TCR. |
|000204d0| 20 20 20 46 4b 3d 44 45 | 58 50 28 2d 45 2a 58 29 | FK=DE|XP(-E*X)|
|000204e0| 0a 20 20 20 20 20 20 53 | 43 3d 5a 45 52 4f 0a 20 |. S|C=ZERO. |
|000204f0| 20 20 20 20 20 44 4f 20 | 31 30 20 49 3d 31 2c 36 | DO |10 I=1,6|
|00020500| 0a 20 20 20 20 20 20 53 | 43 3d 53 43 2b 43 28 49 |. S|C=SC+C(I|
|00020510| 29 2f 54 52 2a 2a 28 49 | 2d 31 29 0a 31 30 20 20 |)/TR**(I|-1).10 |
|00020520| 20 20 43 4f 4e 54 49 4e | 55 45 0a 20 20 20 20 20 | CONTIN|UE. |
|00020530| 20 41 46 30 3d 53 43 2b | 43 28 37 29 2a 44 4c 4f | AF0=SC+|C(7)*DLO|
|00020540| 47 28 54 29 2b 43 28 38 | 29 2a 44 4c 4f 47 28 54 |G(T)+C(8|)*DLOG(T|
|00020550| 2f 54 52 29 0a 20 20 20 | 20 20 20 51 3d 5a 45 52 |/TR). | Q=ZER|
|00020560| 4f 0a 20 20 20 20 20 20 | 44 51 44 58 3d 5a 45 52 |O. |DQDX=ZER|
|00020570| 4f 0a 20 20 20 20 20 20 | 44 51 44 58 32 3d 5a 45 |O. |DQDX2=ZE|
|00020580| 52 4f 0a 20 20 20 20 20 | 20 44 4f 20 32 30 20 4a |RO. | DO 20 J|
|00020590| 3d 31 2c 37 0a 20 20 20 | 20 20 20 49 46 28 4a 2e |=1,7. | IF(J.|
|000205a0| 47 54 2e 31 29 20 47 4f | 20 54 4f 20 32 31 0a 20 |GT.1) GO| TO 21. |
|000205b0| 20 20 20 20 20 54 50 3d | 54 43 52 0a 20 20 20 20 | TP=|TCR. |
|000205c0| 20 20 58 50 3d 43 4e 34 | 0a 20 20 20 20 20 20 47 | XP=CN4|. G|
|000205d0| 4f 20 54 4f 20 32 32 0a | 32 31 20 20 20 20 54 50 |O TO 22.|21 TP|
|000205e0| 3d 32 2e 35 44 2b 30 0a | 20 20 20 20 20 20 58 50 |=2.5D+0.| XP|
|000205f0| 3d 4f 4e 45 0a 32 32 20 | 20 20 20 58 54 3d 58 2d |=ONE.22 | XT=X-|
|00020600| 58 50 0a 20 20 20 20 20 | 20 54 54 3d 54 52 2d 54 |XP. | TT=TR-T|
|00020610| 50 0a 20 20 20 20 20 20 | 54 49 28 31 29 3d 4f 4e |P. |TI(1)=ON|
|00020620| 45 0a 20 20 20 20 20 20 | 44 4f 20 33 30 20 49 3d |E. |DO 30 I=|
|00020630| 32 2c 38 0a 20 20 20 20 | 20 20 54 49 28 49 29 3d |2,8. | TI(I)=|
|00020640| 54 49 28 49 2d 31 29 2a | 58 54 0a 33 30 20 20 20 |TI(I-1)*|XT.30 |
|00020650| 20 43 4f 4e 54 49 4e 55 | 45 0a 20 20 20 20 20 20 | CONTINU|E. |
|00020660| 53 49 3d 41 28 31 2c 4a | 29 2b 41 28 32 2c 4a 29 |SI=A(1,J|)+A(2,J)|
|00020670| 2a 54 49 28 32 29 2b 41 | 28 33 2c 4a 29 2a 54 49 |*TI(2)+A|(3,J)*TI|
|00020680| 28 33 29 2b 41 28 34 2c | 4a 29 2a 54 49 28 34 29 |(3)+A(4,|J)*TI(4)|
|00020690| 2b 41 28 35 2c 4a 29 2a | 54 49 28 35 29 0a 20 20 |+A(5,J)*|TI(5). |
|000206a0| 20 20 20 26 2b 41 28 36 | 2c 4a 29 2a 54 49 28 36 | &+A(6|,J)*TI(6|
|000206b0| 29 2b 41 28 37 2c 4a 29 | 2a 54 49 28 37 29 2b 41 |)+A(7,J)|*TI(7)+A|
|000206c0| 28 38 2c 4a 29 2a 54 49 | 28 38 29 0a 20 20 20 20 |(8,J)*TI|(8). |
|000206d0| 20 20 44 49 44 58 3d 41 | 28 32 2c 4a 29 2b 32 2e | DIDX=A|(2,J)+2.|
|000206e0| 30 2a 41 28 33 2c 4a 29 | 2a 54 49 28 32 29 2b 33 |0*A(3,J)|*TI(2)+3|
|000206f0| 2e 30 2a 41 28 34 2c 4a | 29 2a 54 49 28 33 29 2b |.0*A(4,J|)*TI(3)+|
|00020700| 34 2e 30 2a 41 28 35 2c | 4a 29 2a 54 49 28 34 29 |4.0*A(5,|J)*TI(4)|
|00020710| 2b 0a 20 20 20 20 20 26 | 35 2e 30 2a 41 28 36 2c |+. &|5.0*A(6,|
|00020720| 4a 29 2a 54 49 28 35 29 | 2b 36 2e 30 2a 41 28 37 |J)*TI(5)|+6.0*A(7|
|00020730| 2c 4a 29 2a 54 49 28 36 | 29 2b 37 2e 30 2a 41 28 |,J)*TI(6|)+7.0*A(|
|00020740| 38 2c 4a 29 2a 54 49 28 | 37 29 0a 20 20 20 20 20 |8,J)*TI(|7). |
|00020750| 20 44 49 44 58 32 3d 32 | 2e 30 2a 41 28 33 2c 4a | DIDX2=2|.0*A(3,J|
|00020760| 29 2b 36 2e 30 2a 41 28 | 34 2c 4a 29 2a 54 49 28 |)+6.0*A(|4,J)*TI(|
|00020770| 32 29 2b 31 32 2e 30 2a | 41 28 35 2c 4a 29 2a 54 |2)+12.0*|A(5,J)*T|
|00020780| 49 28 33 29 2b 32 30 2e | 30 2a 41 28 36 2c 4a 29 |I(3)+20.|0*A(6,J)|
|00020790| 2a 0a 20 20 20 20 20 26 | 54 49 28 34 29 2b 33 30 |*. &|TI(4)+30|
|000207a0| 2e 30 2a 41 28 37 2c 4a | 29 2a 54 49 28 35 29 2b |.0*A(7,J|)*TI(5)+|
|000207b0| 34 32 2e 30 2a 41 28 38 | 2c 4a 29 2a 54 49 28 36 |42.0*A(8|,J)*TI(6|
|000207c0| 29 0a 20 20 20 20 20 20 | 53 4b 3d 46 4b 2a 28 41 |). |SK=FK*(A|
|000207d0| 28 39 2c 4a 29 2b 41 28 | 31 30 2c 4a 29 2a 58 29 |(9,J)+A(|10,J)*X)|
|000207e0| 0a 20 20 20 20 20 20 44 | 4b 44 58 3d 46 4b 2a 41 |. D|KDX=FK*A|
|000207f0| 28 31 30 2c 4a 29 2d 45 | 2a 53 4b 0a 20 20 20 20 |(10,J)-E|*SK. |
|00020800| 20 20 44 4b 44 58 32 3d | 2d 45 2a 46 4b 2a 41 28 | DKDX2=|-E*FK*A(|
|00020810| 31 30 2c 4a 29 2d 45 2a | 44 4b 44 58 0a 20 20 20 |10,J)-E*|DKDX. |
|00020820| 20 20 20 54 4a 3d 54 54 | 2a 2a 28 4a 2d 32 29 0a | TJ=TT|**(J-2).|
|00020830| 20 20 20 20 20 20 51 3d | 51 2b 54 4a 2a 28 53 49 | Q=|Q+TJ*(SI|
|00020840| 2b 53 4b 29 0a 20 20 20 | 20 20 20 44 51 44 58 3d |+SK). | DQDX=|
|00020850| 44 51 44 58 2b 54 4a 2a | 28 44 49 44 58 2b 44 4b |DQDX+TJ*|(DIDX+DK|
|00020860| 44 58 29 0a 20 20 20 20 | 20 20 44 51 44 58 32 3d |DX). | DQDX2=|
|00020870| 44 51 44 58 32 2b 54 4a | 2a 28 44 49 44 58 32 2b |DQDX2+TJ|*(DIDX2+|
|00020880| 44 4b 44 58 32 29 0a 32 | 30 20 20 20 20 43 4f 4e |DKDX2).2|0 CON|
|00020890| 54 49 4e 55 45 0a 20 20 | 20 20 20 20 51 3d 54 46 |TINUE. | Q=TF|
|000208a0| 2a 51 0a 20 20 20 20 20 | 20 44 51 44 58 3d 54 46 |*Q. | DQDX=TF|
|000208b0| 2a 44 51 44 58 0a 20 20 | 20 20 20 20 44 51 44 58 |*DQDX. | DQDX|
|000208c0| 32 3d 54 46 2a 44 51 44 | 58 32 0a 20 20 20 20 20 |2=TF*DQD|X2. |
|000208d0| 20 41 46 3d 41 46 30 2b | 52 43 2a 54 2a 28 44 4c | AF=AF0+|RC*T*(DL|
|000208e0| 4f 47 28 58 29 2b 58 2a | 51 29 0a 20 20 20 20 20 |OG(X)+X*|Q). |
|000208f0| 20 50 3d 58 2a 52 50 2a | 54 2a 28 4f 4e 45 2b 58 | P=X*RP*|T*(ONE+X|
|00020900| 2a 51 2b 58 2a 2a 32 2a | 44 51 44 58 29 0a 20 20 |*Q+X**2*|DQDX). |
|00020910| 20 20 20 20 44 50 44 58 | 3d 50 2f 58 2b 58 2a 52 | DPDX|=P/X+X*R|
|00020920| 50 2a 54 2a 28 51 2b 58 | 2a 44 51 44 58 2b 43 4e |P*T*(Q+X|*DQDX+CN|
|00020930| 32 2a 58 2a 44 51 44 58 | 2b 58 2a 2a 32 2a 44 51 |2*X*DQDX|+X**2*DQ|
|00020940| 44 58 32 29 0a 20 20 20 | 20 20 20 42 45 54 41 3d |DX2). | BETA=|
|00020950| 4f 4e 45 2f 28 58 2a 44 | 50 44 58 29 0a 20 20 20 |ONE/(X*D|PDX). |
|00020960| 20 20 20 47 47 3d 41 46 | 2b 28 50 2f 58 29 2a 28 | GG=AF|+(P/X)*(|
|00020970| 52 43 2f 52 50 29 0a 20 | 20 20 20 20 20 47 3d 47 |RC/RP). | G=G|
|00020980| 47 2a 52 4d 57 0a 20 20 | 20 20 20 20 52 45 54 55 |G*RMW. | RETU|
|00020990| 52 4e 0a 20 20 20 20 20 | 20 45 4e 44 0a 43 0a 43 |RN. | END.C.C|
|000209a0| 0a 43 0a 43 20 20 53 55 | 42 52 4f 55 54 49 4e 45 |.C.C SU|BROUTINE|
|000209b0| 20 54 4f 20 43 41 4c 43 | 55 4c 41 54 45 20 54 48 | TO CALC|ULATE TH|
|000209c0| 45 20 44 49 45 4c 45 43 | 54 52 49 43 20 43 4f 4e |E DIELEC|TRIC CON|
|000209d0| 53 54 41 4e 54 20 4f 46 | 20 57 41 54 45 52 0a 43 |STANT OF| WATER.C|
|000209e0| 20 20 20 42 41 53 45 44 | 20 4f 4e 20 45 51 20 28 | BASED| ON EQ (|
|000209f0| 31 29 20 4f 46 20 42 52 | 41 44 4c 45 59 20 41 4e |1) OF BR|ADLEY AN|
|00020a00| 44 20 50 49 54 5a 45 52 | 20 28 31 39 37 39 29 0a |D PITZER| (1979).|
|00020a10| 43 0a 20 20 20 20 20 20 | 53 55 42 52 4f 55 54 49 |C. |SUBROUTI|
|00020a20| 4e 45 20 57 44 42 50 28 | 54 43 2c 44 57 2c 50 30 |NE WDBP(|TC,DW,P0|
|00020a30| 2c 44 43 29 0a 20 20 20 | 20 20 20 49 4d 50 4c 49 |,DC). | IMPLI|
|00020a40| 43 49 54 20 52 45 41 4c | 2a 38 28 41 2d 48 2c 4f |CIT REAL|*8(A-H,O|
|00020a50| 2d 5a 29 0a 20 20 20 20 | 20 20 53 41 56 45 0a 20 |-Z). | SAVE. |
|00020a60| 20 20 20 20 20 44 49 4d | 45 4e 53 49 4f 4e 20 55 | DIM|ENSION U|
|00020a70| 28 39 29 0a 20 20 20 20 | 20 20 44 41 54 41 20 55 |(9). | DATA U|
|00020a80| 2f 33 2e 34 32 37 39 44 | 2b 32 2c 2d 35 2e 30 38 |/3.4279D|+2,-5.08|
|00020a90| 36 36 44 2d 33 2c 39 2e | 34 36 39 30 44 2d 37 2c |66D-3,9.|4690D-7,|
|00020aa0| 2d 32 2e 30 35 32 35 44 | 2b 30 2c 33 2e 31 31 35 |-2.0525D|+0,3.115|
|00020ab0| 39 44 2b 33 2c 0a 20 20 | 20 20 20 26 2d 31 2e 38 |9D+3,. | &-1.8|
|00020ac0| 32 38 39 44 2b 32 2c 2d | 38 2e 30 33 32 35 44 2b |289D+2,-|8.0325D+|
|00020ad0| 33 2c 34 2e 32 31 34 32 | 44 2b 36 2c 32 2e 31 34 |3,4.2142|D+6,2.14|
|00020ae0| 31 37 44 2b 30 2f 0a 20 | 20 20 20 20 20 44 41 54 |17D+0/. | DAT|
|00020af0| 41 20 4f 4e 45 2c 5a 45 | 52 4f 2c 43 4e 31 2f 31 |A ONE,ZE|RO,CN1/1|
|00020b00| 2e 30 44 2b 30 2c 30 2e | 30 44 2b 30 2c 31 2e 30 |.0D+0,0.|0D+0,1.0|
|00020b10| 44 2b 33 2f 0a 20 20 20 | 20 20 20 54 4b 3d 32 37 |D+3/. | TK=27|
|00020b20| 33 2e 31 35 44 2b 30 0a | 20 20 20 20 20 20 54 3d |3.15D+0.| T=|
|00020b30| 54 43 2b 54 4b 0a 20 20 | 20 20 20 20 44 43 4f 3d |TC+TK. | DCO=|
|00020b40| 55 28 31 29 2a 44 45 58 | 50 28 55 28 32 29 2a 54 |U(1)*DEX|P(U(2)*T|
|00020b50| 2b 55 28 33 29 2a 54 2a | 2a 32 29 0a 20 20 20 20 |+U(3)*T*|*2). |
|00020b60| 20 20 43 3d 55 28 34 29 | 2b 55 28 35 29 2f 28 55 | C=U(4)|+U(5)/(U|
|00020b70| 28 36 29 2b 54 29 0a 20 | 20 20 20 20 20 42 3d 55 |(6)+T). | B=U|
|00020b80| 28 37 29 2b 55 28 38 29 | 2f 54 2b 55 28 39 29 2a |(7)+U(8)|/T+U(9)*|
|00020b90| 54 0a 20 20 20 20 20 20 | 50 3d 50 30 0a 20 20 20 |T. |P=P0. |
|00020ba0| 20 20 20 44 43 3d 44 43 | 4f 2b 43 2a 44 4c 4f 47 | DC=DC|O+C*DLOG|
|00020bb0| 28 28 42 2b 50 29 2f 28 | 42 2b 43 4e 31 29 29 0a |((B+P)/(|B+CN1)).|
|00020bc0| 20 20 20 20 20 20 44 54 | 31 3d 55 28 31 29 2a 28 | DT|1=U(1)*(|
|00020bd0| 55 28 32 29 2b 32 2e 30 | 2a 55 28 33 29 2a 54 29 |U(2)+2.0|*U(3)*T)|
|00020be0| 2a 44 45 58 50 28 55 28 | 32 29 2a 54 2b 55 28 33 |*DEXP(U(|2)*T+U(3|
|00020bf0| 29 2a 54 2a 2a 32 29 0a | 20 20 20 20 20 20 44 54 |)*T**2).| DT|
|00020c00| 32 3d 28 55 28 35 29 2f | 28 55 28 36 29 2b 54 29 |2=(U(5)/|(U(6)+T)|
|00020c10| 2a 2a 32 29 2a 44 4c 4f | 47 28 28 42 2b 50 29 2f |**2)*DLO|G((B+P)/|
|00020c20| 28 42 2b 43 4e 31 29 29 | 0a 20 20 20 20 20 20 44 |(B+CN1))|. D|
|00020c30| 54 33 3d 28 43 2a 28 43 | 4e 31 2d 50 29 2a 28 55 |T3=(C*(C|N1-P)*(U|
|00020c40| 28 39 29 2d 55 28 38 29 | 2f 54 2a 2a 32 29 29 2f |(9)-U(8)|/T**2))/|
|00020c50| 28 28 42 2b 50 29 2a 28 | 42 2b 43 4e 31 29 29 0a |((B+P)*(|B+CN1)).|
|00020c60| 20 20 20 20 20 20 44 43 | 44 54 3d 44 54 31 2d 44 | DC|DT=DT1-D|
|00020c70| 54 32 2b 44 54 33 0a 20 | 20 20 20 20 20 52 45 54 |T2+DT3. | RET|
|00020c80| 55 52 4e 0a 20 20 20 20 | 20 20 45 4e 44 0a 43 0a |URN. | END.C.|
|00020c90| 43 0a 43 20 20 53 55 42 | 52 4f 55 54 49 4e 45 20 |C.C SUB|ROUTINE |
|00020ca0| 54 4f 20 43 41 4c 43 55 | 4c 41 54 45 20 45 54 48 |TO CALCU|LATE ETH|
|00020cb0| 45 54 41 20 41 4e 44 20 | 44 28 45 54 48 45 54 41 |ETA AND |D(ETHETA|
|00020cc0| 29 2f 44 28 43 49 29 20 | 46 4f 52 0a 43 20 20 20 |)/D(CI) |FOR.C |
|00020cd0| 55 4e 53 59 4d 4d 45 54 | 52 49 43 41 4c 20 4d 49 |UNSYMMET|RICAL MI|
|00020ce0| 58 49 4e 47 20 4f 46 20 | 4c 49 4b 45 2d 43 48 41 |XING OF |LIKE-CHA|
|00020cf0| 52 47 45 44 20 49 4f 4e | 53 0a 43 0a 43 0a 20 20 |RGED ION|S.C.C. |
|00020d00| 20 20 20 20 53 55 42 52 | 4f 55 54 49 4e 45 20 45 | SUBR|OUTINE E|
|00020d10| 54 48 45 54 41 28 43 49 | 2c 41 50 2c 5a 31 2c 5a |THETA(CI|,AP,Z1,Z|
|00020d20| 32 2c 45 54 48 2c 45 54 | 48 50 29 0a 20 20 20 20 |2,ETH,ET|HP). |
|00020d30| 20 20 49 4d 50 4c 49 43 | 49 54 20 52 45 41 4c 2a | IMPLIC|IT REAL*|
|00020d40| 38 28 41 2d 48 2c 4f 2d | 5a 29 0a 20 20 20 20 20 |8(A-H,O-|Z). |
|00020d50| 20 52 45 41 4c 2a 38 20 | 4a 31 31 2c 4a 31 32 2c | REAL*8 |J11,J12,|
|00020d60| 4a 32 32 2c 4a 31 31 50 | 2c 4a 31 32 50 2c 4a 32 |J22,J11P|,J12P,J2|
|00020d70| 32 50 0a 20 20 20 20 20 | 20 44 41 54 41 20 48 41 |2P. | DATA HA|
|00020d80| 4c 46 2c 46 4f 55 52 2c | 53 49 58 2c 45 49 47 48 |LF,FOUR,|SIX,EIGH|
|00020d90| 54 2f 30 2e 35 44 2b 30 | 30 2c 34 2e 30 44 2b 30 |T/0.5D+0|0,4.0D+0|
|00020da0| 30 2c 0a 20 20 20 20 20 | 26 36 2e 30 44 2b 30 30 |0,. |&6.0D+00|
|00020db0| 2c 38 2e 30 44 2b 30 30 | 2f 0a 20 20 20 20 20 20 |,8.0D+00|/. |
|00020dc0| 46 41 3d 53 49 58 2a 41 | 50 2a 44 53 51 52 54 28 |FA=SIX*A|P*DSQRT(|
|00020dd0| 43 49 29 0a 20 20 20 20 | 20 20 58 31 32 3d 5a 31 |CI). | X12=Z1|
|00020de0| 2a 5a 32 2a 46 41 0a 20 | 20 20 20 20 20 58 31 31 |*Z2*FA. | X11|
|00020df0| 3d 5a 31 2a 5a 31 2a 46 | 41 0a 20 20 20 20 20 20 |=Z1*Z1*F|A. |
|00020e00| 58 32 32 3d 5a 32 2a 5a | 32 2a 46 41 0a 20 20 20 |X22=Z2*Z|2*FA. |
|00020e10| 20 20 20 43 41 4c 4c 20 | 55 4e 53 59 4d 28 58 31 | CALL |UNSYM(X1|
|00020e20| 31 2c 4a 31 31 2c 4a 31 | 31 50 29 0a 43 20 20 20 |1,J11,J1|1P).C |
|00020e30| 20 20 20 57 52 49 54 45 | 28 31 33 2c 32 30 30 29 | WRITE|(13,200)|
|00020e40| 20 58 31 31 2c 4a 31 31 | 2c 4a 31 31 50 0a 20 20 | X11,J11|,J11P. |
|00020e50| 20 20 20 20 43 41 4c 4c | 20 55 4e 53 59 4d 28 58 | CALL| UNSYM(X|
|00020e60| 31 32 2c 4a 31 32 2c 4a | 31 32 50 29 0a 43 20 20 |12,J12,J|12P).C |
|00020e70| 20 20 20 20 57 52 49 54 | 45 28 31 33 2c 32 31 30 | WRIT|E(13,210|
|00020e80| 29 20 58 31 32 2c 4a 31 | 32 2c 4a 31 32 50 0a 20 |) X12,J1|2,J12P. |
|00020e90| 20 20 20 20 20 43 41 4c | 4c 20 55 4e 53 59 4d 28 | CAL|L UNSYM(|
|00020ea0| 58 32 32 2c 4a 32 32 2c | 4a 32 32 50 29 0a 43 20 |X22,J22,|J22P).C |
|00020eb0| 20 20 20 20 20 57 52 49 | 54 45 28 31 33 2c 32 32 | WRI|TE(13,22|
|00020ec0| 30 29 20 58 32 32 2c 4a | 32 32 2c 4a 32 32 50 0a |0) X22,J|22,J22P.|
|00020ed0| 20 20 20 20 20 20 45 54 | 48 3d 28 5a 31 2a 5a 32 | ET|H=(Z1*Z2|
|00020ee0| 2f 28 46 4f 55 52 2a 43 | 49 29 29 2a 28 4a 31 32 |/(FOUR*C|I))*(J12|
|00020ef0| 2d 48 41 4c 46 2a 4a 31 | 31 2d 48 41 4c 46 2a 4a |-HALF*J1|1-HALF*J|
|00020f00| 32 32 29 0a 20 20 20 20 | 20 20 45 54 48 50 3d 2d |22). | ETHP=-|
|00020f10| 28 45 54 48 2f 43 49 29 | 2b 28 5a 31 2a 5a 32 2f |(ETH/CI)|+(Z1*Z2/|
|00020f20| 28 45 49 47 48 54 2a 43 | 49 2a 2a 32 29 29 2a 0a |(EIGHT*C|I**2))*.|
|00020f30| 20 20 20 20 20 26 28 58 | 31 32 2a 4a 31 32 50 2d | &(X|12*J12P-|
|00020f40| 48 41 4c 46 2a 58 31 31 | 2a 4a 31 31 50 2d 48 41 |HALF*X11|*J11P-HA|
|00020f50| 4c 46 2a 58 32 32 2a 4a | 32 32 50 29 0a 20 20 20 |LF*X22*J|22P). |
|00020f60| 20 20 20 45 54 48 50 49 | 3d 45 54 48 50 2a 43 49 | ETHPI|=ETHP*CI|
|00020f70| 0a 43 20 20 20 20 20 20 | 57 52 49 54 45 28 31 33 |.C |WRITE(13|
|00020f80| 2c 32 33 30 29 20 43 49 | 2c 45 54 48 2c 45 54 48 |,230) CI|,ETH,ETH|
|00020f90| 50 49 0a 43 32 30 30 20 | 20 20 46 4f 52 4d 41 54 |PI.C200 | FORMAT|
|00020fa0| 28 31 58 2c 27 58 4d 4d | 2c 20 4a 4d 4d 2c 20 4a |(1X,'XMM|, JMM, J|
|00020fb0| 4d 4d 50 20 3d 20 27 2c | 33 46 31 34 2e 37 29 0a |MMP = ',|3F14.7).|
|00020fc0| 43 32 31 30 20 20 20 46 | 4f 52 4d 41 54 28 31 58 |C210 F|ORMAT(1X|
|00020fd0| 2c 27 58 4d 4e 2c 20 4a | 4d 4e 2c 20 4a 4d 4e 50 |,'XMN, J|MN, JMNP|
|00020fe0| 20 3d 20 27 2c 33 46 31 | 34 2e 37 29 0a 43 32 32 | = ',3F1|4.7).C22|
|00020ff0| 30 20 20 20 46 4f 52 4d | 41 54 28 31 58 2c 27 58 |0 FORM|AT(1X,'X|
|00021000| 4e 4e 2c 20 4a 4e 4e 2c | 20 4a 4e 4e 50 20 3d 20 |NN, JNN,| JNNP = |
|00021010| 27 2c 33 46 31 34 2e 37 | 2f 29 0a 43 32 33 30 20 |',3F14.7|/).C230 |
|00021020| 20 20 46 4f 52 4d 41 54 | 28 31 58 2c 27 49 2c 20 | FORMAT|(1X,'I, |
|00021030| 45 54 48 45 54 41 2c 20 | 43 49 2a 44 45 54 48 44 |ETHETA, |CI*DETHD|
|00021040| 49 20 3d 20 27 2c 20 33 | 46 39 2e 34 2f 29 0a 20 |I = ', 3|F9.4/). |
|00021050| 20 20 20 20 20 52 45 54 | 55 52 4e 0a 20 20 20 20 | RET|URN. |
|00021060| 20 20 45 4e 44 0a 43 0a | 43 0a 43 0a 43 20 20 53 | END.C.|C.C.C S|
|00021070| 55 42 52 4f 55 54 49 4e | 45 20 54 4f 20 43 41 4c |UBROUTIN|E TO CAL|
|00021080| 43 55 4c 41 54 45 20 4b | 57 20 4f 46 20 57 41 54 |CULATE K|W OF WAT|
|00021090| 45 52 20 46 52 4f 4d 20 | 54 48 45 20 4d 41 52 53 |ER FROM |THE MARS|
|000210a0| 48 41 4c 4c 2d 46 52 41 | 4e 4b 20 45 51 55 41 54 |HALL-FRA|NK EQUAT|
|000210b0| 49 4f 4e 0a 43 0a 43 20 | 20 20 20 20 20 20 20 20 |ION.C.C | |
|000210c0| 54 43 20 3d 20 54 45 4d | 50 20 2f 20 43 0a 43 20 |TC = TEM|P / C.C |
|000210d0| 20 20 20 20 20 20 20 20 | 44 57 20 3d 20 44 45 4e | |DW = DEN|
|000210e0| 53 49 54 59 20 4f 46 20 | 57 41 54 45 52 20 41 54 |SITY OF |WATER AT|
|000210f0| 20 53 50 45 43 49 46 49 | 45 44 20 54 20 41 4e 44 | SPECIFI|ED T AND|
|00021100| 20 50 3d 49 20 41 54 4d | 0a 43 20 20 20 20 20 20 | P=I ATM|.C |
|00021110| 20 52 4c 4b 57 20 3d 20 | 4c 4f 47 31 30 28 4b 57 | RLKW = |LOG10(KW|
|00021120| 29 0a 43 0a 43 0a 20 20 | 20 20 20 20 53 55 42 52 |).C.C. | SUBR|
|00021130| 4f 55 54 49 4e 45 20 4b | 57 4d 46 28 54 43 2c 44 |OUTINE K|WMF(TC,D|
|00021140| 57 2c 52 4c 4b 57 29 0a | 20 20 20 20 20 20 49 4d |W,RLKW).| IM|
|00021150| 50 4c 49 43 49 54 20 52 | 45 41 4c 2a 38 28 41 2d |PLICIT R|EAL*8(A-|
|00021160| 48 2c 4f 2d 5a 29 0a 20 | 20 20 20 20 20 44 41 54 |H,O-Z). | DAT|
|00021170| 41 20 4f 4e 45 2c 54 48 | 4f 55 2f 31 2e 30 44 2b |A ONE,TH|OU/1.0D+|
|00021180| 30 30 2c 31 2e 30 44 2b | 30 33 2f 0a 20 20 20 20 |00,1.0D+|03/. |
|00021190| 20 20 44 41 54 41 20 41 | 2c 42 2c 43 2c 44 2f 0a | DATA A|,B,C,D/.|
|000211a0| 20 20 20 20 20 26 2d 34 | 2e 33 35 32 38 34 44 2b | &-4|.35284D+|
|000211b0| 30 30 2c 2d 32 39 37 38 | 2e 34 37 39 44 2b 30 30 |00,-2978|.479D+00|
|000211c0| 2c 31 2e 33 33 39 36 38 | 44 2b 30 35 2c 2d 33 2e |,1.33968|D+05,-3.|
|000211d0| 30 33 33 36 34 44 2b 30 | 37 2f 0a 20 20 20 20 20 |03364D+0|7/. |
|000211e0| 20 44 41 54 41 20 45 2c | 46 2c 47 2f 31 33 2e 39 | DATA E,|F,G/13.9|
|000211f0| 35 37 44 2b 30 30 2c 2d | 31 32 36 32 2e 33 44 2b |57D+00,-|1262.3D+|
|00021200| 30 30 2c 38 2e 35 36 34 | 31 44 2b 30 35 2f 0a 20 |00,8.564|1D+05/. |
|00021210| 20 20 20 20 20 44 41 54 | 41 20 54 30 2c 52 2c 52 | DAT|A T0,R,R|
|00021220| 4c 4e 2f 32 37 33 2e 31 | 35 44 2b 30 30 2c 38 2e |LN/273.1|5D+00,8.|
|00021230| 33 31 34 35 31 30 44 2d | 30 33 2c 32 2e 33 30 32 |314510D-|03,2.302|
|00021240| 35 38 35 30 39 44 2b 30 | 30 2f 0a 20 20 20 20 20 |58509D+0|0/. |
|00021250| 20 54 3d 54 43 2b 54 30 | 0a 20 20 20 20 20 20 46 | T=TC+T0|. F|
|00021260| 31 3d 41 2b 42 2f 54 2b | 43 2f 54 2a 2a 32 2b 44 |1=A+B/T+|C/T**2+D|
|00021270| 2f 54 2a 2a 33 0a 20 20 | 20 20 20 20 46 32 3d 45 |/T**3. | F2=E|
|00021280| 2b 46 2f 54 2b 47 2f 54 | 2a 2a 32 0a 20 20 20 20 |+F/T+G/T|**2. |
|00021290| 20 20 52 4c 4b 57 20 3d | 20 46 31 2b 46 32 2a 44 | RLKW =| F1+F2*D|
|000212a0| 4c 4f 47 31 30 28 44 57 | 29 0a 20 20 20 20 20 20 |LOG10(DW|). |
|000212b0| 52 45 54 55 52 4e 0a 20 | 20 20 20 20 20 45 4e 44 |RETURN. | END|
|000212c0| 0a 43 0a 43 0a 43 0a 43 | 20 20 20 53 55 42 52 4f |.C.C.C.C| SUBRO|
|000212d0| 55 54 49 4e 45 20 54 4f | 20 43 41 4c 43 55 4c 41 |UTINE TO| CALCULA|
|000212e0| 54 45 20 4a 20 41 4e 44 | 20 4a 27 20 46 4f 52 20 |TE J AND| J' FOR |
|000212f0| 55 4d 53 59 4d 4d 45 54 | 52 49 43 41 4c 20 4d 49 |UMSYMMET|RICAL MI|
|00021300| 58 49 4e 47 20 4f 46 20 | 49 4f 4e 53 0a 43 0a 43 |XING OF |IONS.C.C|
|00021310| 20 20 20 20 20 54 52 45 | 41 54 4d 45 4e 54 20 49 | TRE|ATMENT I|
|00021320| 53 20 46 52 4f 4d 20 50 | 49 54 5a 45 52 20 56 2c |S FROM P|ITZER V,|
|00021330| 20 45 51 2e 20 34 37 2c | 20 50 2e 20 32 36 33 0a | EQ. 47,| P. 263.|
|00021340| 43 20 20 20 20 20 28 4a | 2e 20 53 4f 4c 4e 2e 20 |C (J|. SOLN. |
|00021350| 43 48 45 4d 2e 2c 20 34 | 2c 20 32 34 39 2d 32 36 |CHEM., 4|, 249-26|
|00021360| 35 2c 20 31 39 37 35 29 | 0a 43 0a 43 20 20 20 20 |5, 1975)|.C.C |
|00021370| 20 20 20 20 20 20 58 20 | 3d 20 5a 28 49 29 2a 5a | X |= Z(I)*Z|
|00021380| 28 4a 29 2a 45 2a 2a 32 | 2f 28 44 4b 54 29 0a 43 |(J)*E**2|/(DKT).C|
|00021390| 20 20 20 20 20 20 20 20 | 20 20 4a 20 3d 20 46 28 | | J = F(|
|000213a0| 58 29 0a 43 20 20 20 20 | 20 20 20 44 4a 44 58 20 |X).C | DJDX |
|000213b0| 3d 20 44 4a 2f 44 58 0a | 43 0a 43 0a 20 20 20 20 |= DJ/DX.|C.C. |
|000213c0| 20 20 53 55 42 52 4f 55 | 54 49 4e 45 20 20 55 4e | SUBROU|TINE UN|
|000213d0| 53 59 4d 28 58 2c 4a 2c | 44 4a 44 58 29 0a 20 20 |SYM(X,J,|DJDX). |
|000213e0| 20 20 20 20 49 4d 50 4c | 49 43 49 54 20 52 45 41 | IMPL|ICIT REA|
|000213f0| 4c 2a 38 28 41 2d 48 2c | 4f 2d 5a 29 0a 20 20 20 |L*8(A-H,|O-Z). |
|00021400| 20 20 20 52 45 41 4c 2a | 38 20 4a 2c 44 4a 44 58 | REAL*|8 J,DJDX|
|00021410| 0a 20 20 20 20 20 20 44 | 41 54 41 20 43 31 2c 43 |. D|ATA C1,C|
|00021420| 32 2c 43 33 2c 43 34 2c | 4f 4e 45 2c 46 4f 55 52 |2,C3,C4,|ONE,FOUR|
|00021430| 2f 0a 20 20 20 20 20 26 | 34 2e 35 38 31 44 2b 30 |/. &|4.581D+0|
|00021440| 30 2c 30 2e 37 32 33 37 | 44 2b 30 30 2c 30 2e 30 |0,0.7237|D+00,0.0|
|00021450| 31 32 30 44 2b 30 30 2c | 30 2e 35 32 38 44 2b 30 |120D+00,|0.528D+0|
|00021460| 30 2c 31 2e 30 44 2b 30 | 30 2c 34 2e 30 44 2b 30 |0,1.0D+0|0,4.0D+0|
|00021470| 30 2f 0a 20 20 20 20 20 | 20 58 46 3d 43 31 2a 58 |0/. | XF=C1*X|
|00021480| 2a 2a 28 2d 43 32 29 0a | 20 20 20 20 20 20 59 46 |**(-C2).| YF|
|00021490| 3d 2d 43 33 2a 58 2a 2a | 43 34 0a 20 20 20 20 20 |=-C3*X**|C4. |
|000214a0| 20 45 46 3d 44 45 58 50 | 28 59 46 29 0a 20 20 20 | EF=DEXP|(YF). |
|000214b0| 20 20 20 4a 3d 58 2f 28 | 46 4f 55 52 2b 58 46 2a | J=X/(|FOUR+XF*|
|000214c0| 45 46 29 0a 20 20 20 20 | 20 20 44 58 46 44 58 3d |EF). | DXFDX=|
|000214d0| 2d 43 32 2a 58 46 2f 58 | 0a 20 20 20 20 20 20 44 |-C2*XF/X|. D|
|000214e0| 59 46 44 58 3d 43 34 2a | 59 46 2f 58 0a 20 20 20 |YFDX=C4*|YF/X. |
|000214f0| 20 20 20 44 45 46 44 58 | 3d 44 59 46 44 58 2a 45 | DEFDX|=DYFDX*E|
|00021500| 46 0a 20 20 20 20 20 20 | 44 46 44 58 3d 44 58 46 |F. |DFDX=DXF|
|00021510| 44 58 2a 45 46 2b 58 46 | 2a 44 45 46 44 58 0a 20 |DX*EF+XF|*DEFDX. |
|00021520| 20 20 20 20 20 44 4a 44 | 58 3d 4a 2f 58 2d 4a 2a | DJD|X=J/X-J*|
|00021530| 2a 32 2a 44 46 44 58 2f | 58 0a 20 20 20 20 20 20 |*2*DFDX/|X. |
|00021540| 52 45 54 55 52 4e 0a 20 | 20 20 20 20 20 45 4e 44 |RETURN. | END|
|00021550| 0a 43 0a 43 0a 43 0a 43 | 0a 43 0a 43 0a 43 20 20 |.C.C.C.C|.C.C.C |
|00021560| 53 55 42 52 4f 55 54 49 | 4e 45 20 54 4f 20 43 41 |SUBROUTI|NE TO CA|
|00021570| 4c 43 55 4c 41 54 45 20 | 54 48 45 20 4f 53 4d 4f |LCULATE |THE OSMO|
|00021580| 54 49 43 20 43 4f 45 46 | 46 49 43 49 45 4e 54 20 |TIC COEF|FICIENT |
|00021590| 4f 46 20 41 20 4d 49 58 | 54 55 52 45 0a 43 20 20 |OF A MIX|TURE.C |
|000215a0| 20 46 52 4f 4d 20 54 48 | 45 20 54 52 45 41 54 4d | FROM TH|E TREATM|
|000215b0| 45 4e 54 20 4f 46 20 50 | 49 54 5a 45 52 0a 43 0a |ENT OF P|ITZER.C.|
|000215c0| 20 20 20 20 20 20 53 55 | 42 52 4f 55 54 49 4e 45 | SU|BROUTINE|
|000215d0| 20 50 48 49 4d 49 58 28 | 5a 43 2c 5a 41 2c 43 4d | PHIMIX(|ZC,ZA,CM|
|000215e0| 2c 41 4d 2c 42 4d 2c 54 | 4d 2c 54 4e 2c 43 49 2c |,AM,BM,T|M,TN,CI,|
|000215f0| 46 50 2c 42 50 2c 43 50 | 2c 50 43 43 2c 0a 20 20 |FP,BP,CP|,PCC,. |
|00021600| 20 20 20 26 45 54 48 43 | 2c 45 54 48 43 50 2c 50 | ÐC|,ETHCP,P|
|00021610| 41 41 2c 45 54 48 41 2c | 45 54 48 41 50 2c 50 43 |AA,ETHA,|ETHAP,PC|
|00021620| 43 41 2c 50 43 41 41 2c | 44 43 41 2c 50 4e 43 2c |CA,PCAA,|DCA,PNC,|
|00021630| 50 4e 41 2c 50 4e 4e 2c | 50 48 49 29 0a 20 20 20 |PNA,PNN,|PHI). |
|00021640| 20 20 20 49 4d 50 4c 49 | 43 49 54 20 52 45 41 4c | IMPLI|CIT REAL|
|00021650| 2a 38 28 41 2d 48 2c 4f | 2d 5a 29 0a 20 20 20 20 |*8(A-H,O|-Z). |
|00021660| 20 20 53 41 56 45 0a 20 | 20 20 20 20 20 43 4f 4d | SAVE. | COM|
|00021670| 4d 4f 4e 2f 4d 44 2f 4e | 53 4f 2c 4e 43 42 4f 2c |MON/MD/N|SO,NCBO,|
|00021680| 49 52 45 46 2c 4e 50 48 | 2c 4e 50 41 2c 4e 53 41 |IREF,NPH|,NPA,NSA|
|00021690| 2c 4e 49 4f 2c 4e 49 41 | 2c 4e 43 2c 4e 41 2c 4e |,NIO,NIA|,NC,NA,N|
|000216a0| 4e 2c 4e 55 50 2c 4e 55 | 4d 0a 20 20 20 20 20 20 |N,NUP,NU|M. |
|000216b0| 43 4f 4d 4d 4f 4e 2f 57 | 54 52 2f 50 30 2c 44 57 |COMMON/W|TR/P0,DW|
|000216c0| 2c 44 43 2c 41 50 2c 52 | 4c 4b 57 20 20 20 20 20 |,DC,AP,R|LKW |
|000216d0| 20 0a 20 20 20 20 20 20 | 44 49 4d 45 4e 53 49 4f | . |DIMENSIO|
|000216e0| 4e 20 5a 43 28 2a 29 2c | 5a 41 28 2a 29 2c 43 4d |N ZC(*),|ZA(*),CM|
|000216f0| 28 2a 29 2c 41 4d 28 2a | 29 2c 42 4d 28 2a 29 2c |(*),AM(*|),BM(*),|
|00021700| 42 50 28 2a 29 2c 43 50 | 28 2a 29 2c 0a 20 20 20 |BP(*),CP|(*),. |
|00021710| 20 20 26 50 43 43 28 2a | 29 2c 45 54 48 43 28 2a | &PCC(*|),ETHC(*|
|00021720| 29 2c 45 54 48 43 50 28 | 2a 29 2c 50 41 41 28 2a |),ETHCP(|*),PAA(*|
|00021730| 29 2c 45 54 48 41 28 2a | 29 2c 45 54 48 41 50 28 |),ETHA(*|),ETHAP(|
|00021740| 2a 29 2c 50 43 43 41 28 | 2a 29 2c 0a 20 20 20 20 |*),PCCA(|*),. |
|00021750| 20 26 50 43 41 41 28 2a | 29 2c 44 43 41 28 2a 29 | &PCAA(*|),DCA(*)|
|00021760| 2c 50 4e 43 28 2a 29 2c | 50 4e 41 28 2a 29 2c 50 |,PNC(*),|PNA(*),P|
|00021770| 4e 4e 28 2a 29 0a 20 20 | 20 20 20 20 44 41 54 41 |NN(*). | DATA|
|00021780| 20 5a 45 52 4f 2c 4f 4e | 45 2c 54 57 4f 2f 30 2e | ZERO,ON|E,TWO/0.|
|00021790| 30 44 2b 30 30 2c 31 2e | 30 44 2b 30 30 2c 32 2e |0D+00,1.|0D+00,2.|
|000217a0| 30 44 2b 30 30 2f 0a 43 | 20 20 44 45 46 49 4e 45 |0D+00/.C| DEFINE|
|000217b0| 20 46 55 4e 43 54 49 4f | 4e 53 20 46 4f 52 20 4c | FUNCTIO|NS FOR L|
|000217c0| 4f 43 41 54 49 4e 47 20 | 50 49 54 5a 45 52 20 43 |OCATING |PITZER C|
|000217d0| 4f 45 46 46 53 2e 49 4e | 20 4c 49 4e 45 41 52 20 |OEFFS.IN| LINEAR |
|000217e0| 41 52 52 41 59 53 0a 20 | 20 20 20 20 20 49 58 32 |ARRAYS. | IX2|
|000217f0| 28 49 2c 4a 2c 49 4d 29 | 3d 49 4d 2a 28 4a 2d 31 |(I,J,IM)|=IM*(J-1|
|00021800| 29 2b 49 0a 20 20 20 20 | 20 20 49 58 33 28 49 2c |)+I. | IX3(I,|
|00021810| 4a 2c 4b 2c 49 4d 2c 4a | 4d 29 3d 49 4d 2a 28 4a |J,K,IM,J|M)=IM*(J|
|00021820| 4d 2a 28 4b 2d 31 29 2b | 4a 2d 31 29 2b 49 0a 43 |M*(K-1)+|J-1)+I.C|
|00021830| 0a 20 20 20 20 20 20 54 | 50 31 3d 54 57 4f 2a 43 |. T|P1=TWO*C|
|00021840| 49 2a 46 50 0a 20 20 20 | 20 20 20 54 50 32 3d 5a |I*FP. | TP2=Z|
|00021850| 45 52 4f 0a 20 20 20 20 | 20 20 44 4f 20 31 30 20 |ERO. | DO 10 |
|00021860| 49 3d 31 2c 4e 43 0a 20 | 20 20 20 20 20 44 4f 20 |I=1,NC. | DO |
|00021870| 31 35 20 4a 3d 31 2c 4e | 41 0a 20 20 20 20 20 20 |15 J=1,N|A. |
|00021880| 4c 3d 49 58 32 28 49 2c | 4a 2c 4e 43 29 0a 20 20 |L=IX2(I,|J,NC). |
|00021890| 20 20 20 20 54 50 32 3d | 54 50 32 2b 54 57 4f 2a | TP2=|TP2+TWO*|
|000218a0| 43 4d 28 49 29 2a 41 4d | 28 4a 29 2a 28 42 50 28 |CM(I)*AM|(J)*(BP(|
|000218b0| 4c 29 2b 28 54 4e 2f 44 | 53 51 52 54 28 5a 43 28 |L)+(TN/D|SQRT(ZC(|
|000218c0| 49 29 2a 5a 41 28 4a 29 | 29 29 2a 0a 20 20 20 20 |I)*ZA(J)|))*. |
|000218d0| 20 26 43 50 28 4c 29 29 | 0a 31 35 20 20 20 20 43 | &CP(L))|.15 C|
|000218e0| 4f 4e 54 49 4e 55 45 0a | 31 30 20 20 20 20 43 4f |ONTINUE.|10 CO|
|000218f0| 4e 54 49 4e 55 45 0a 20 | 20 20 20 20 20 54 50 33 |NTINUE. | TP3|
|00021900| 3d 5a 45 52 4f 0a 20 20 | 20 20 20 20 49 46 28 4e |=ZERO. | IF(N|
|00021910| 43 2e 4c 54 2e 32 29 20 | 47 4f 20 54 4f 20 33 35 |C.LT.2) |GO TO 35|
|00021920| 0a 20 20 20 20 20 20 44 | 4f 20 32 30 20 49 3d 31 |. D|O 20 I=1|
|00021930| 2c 4e 43 0a 20 20 20 20 | 20 20 44 4f 20 32 35 20 |,NC. | DO 25 |
|00021940| 4a 3d 31 2c 4e 43 0a 20 | 20 20 20 20 20 49 46 28 |J=1,NC. | IF(|
|00021950| 49 2e 45 51 2e 4a 29 20 | 47 4f 20 54 4f 20 32 35 |I.EQ.J) |GO TO 25|
|00021960| 0a 20 20 20 20 20 20 53 | 4d 41 3d 5a 45 52 4f 0a |. S|MA=ZERO.|
|00021970| 20 20 20 20 20 20 44 4f | 20 33 30 20 4b 3d 31 2c | DO| 30 K=1,|
|00021980| 4e 41 0a 20 20 20 20 20 | 20 4c 3d 49 58 33 28 49 |NA. | L=IX3(I|
|00021990| 2c 4a 2c 4b 2c 4e 43 2c | 4e 43 29 0a 20 20 20 20 |,J,K,NC,|NC). |
|000219a0| 20 20 53 4d 41 3d 53 4d | 41 2b 41 4d 28 4b 29 2a | SMA=SM|A+AM(K)*|
|000219b0| 50 43 43 41 28 4c 29 0a | 33 30 20 20 20 20 43 4f |PCCA(L).|30 CO|
|000219c0| 4e 54 49 4e 55 45 0a 20 | 20 20 20 20 20 4c 3d 49 |NTINUE. | L=I|
|000219d0| 58 32 28 49 2c 4a 2c 4e | 43 29 0a 20 20 20 20 20 |X2(I,J,N|C). |
|000219e0| 20 50 43 43 50 3d 50 43 | 43 28 4c 29 0a 20 20 20 | PCCP=PC|C(L). |
|000219f0| 20 20 20 49 46 28 4e 55 | 4d 2e 45 51 2e 31 2e 41 | IF(NU|M.EQ.1.A|
|00021a00| 4e 44 2e 5a 43 28 49 29 | 2e 4e 45 2e 5a 43 28 4a |ND.ZC(I)|.NE.ZC(J|
|00021a10| 29 29 20 50 43 43 50 3d | 50 43 43 50 2b 45 54 48 |)) PCCP=|PCCP+ETH|
|00021a20| 43 28 4c 29 2b 43 49 2a | 45 54 48 43 50 28 4c 29 |C(L)+CI*|ETHCP(L)|
|00021a30| 0a 20 20 20 20 20 20 54 | 50 33 3d 54 50 33 2b 43 |. T|P3=TP3+C|
|00021a40| 4d 28 49 29 2a 43 4d 28 | 4a 29 2a 28 50 43 43 50 |M(I)*CM(|J)*(PCCP|
|00021a50| 2b 53 4d 41 29 0a 32 35 | 20 20 20 20 43 4f 4e 54 |+SMA).25| CONT|
|00021a60| 49 4e 55 45 0a 32 30 20 | 20 20 20 43 4f 4e 54 49 |INUE.20 | CONTI|
|00021a70| 4e 55 45 0a 33 35 20 20 | 20 20 54 50 34 3d 5a 45 |NUE.35 | TP4=ZE|
|00021a80| 52 4f 0a 20 20 20 20 20 | 20 49 46 28 4e 41 2e 4c |RO. | IF(NA.L|
|00021a90| 54 2e 32 29 20 47 4f 20 | 54 4f 20 36 30 0a 20 20 |T.2) GO |TO 60. |
|00021aa0| 20 20 20 20 44 4f 20 34 | 30 20 49 3d 31 2c 4e 41 | DO 4|0 I=1,NA|
|00021ab0| 0a 20 20 20 20 20 20 44 | 4f 20 34 35 20 4a 3d 31 |. D|O 45 J=1|
|00021ac0| 2c 4e 41 0a 20 20 20 20 | 20 20 49 46 28 49 2e 45 |,NA. | IF(I.E|
|00021ad0| 51 2e 4a 29 20 47 4f 20 | 54 4f 20 34 35 0a 20 20 |Q.J) GO |TO 45. |
|00021ae0| 20 20 20 20 53 4d 43 3d | 5a 45 52 4f 0a 20 20 20 | SMC=|ZERO. |
|00021af0| 20 20 20 44 4f 20 35 30 | 20 4b 3d 31 2c 4e 43 0a | DO 50| K=1,NC.|
|00021b00| 20 20 20 20 20 20 4c 3d | 49 58 33 28 4b 2c 49 2c | L=|IX3(K,I,|
|00021b10| 4a 2c 4e 43 2c 4e 41 29 | 0a 20 20 20 20 20 20 53 |J,NC,NA)|. S|
|00021b20| 4d 43 3d 53 4d 43 2b 43 | 4d 28 4b 29 2a 50 43 41 |MC=SMC+C|M(K)*PCA|
|00021b30| 41 28 4c 29 0a 35 30 20 | 20 20 20 43 4f 4e 54 49 |A(L).50 | CONTI|
|00021b40| 4e 55 45 0a 20 20 20 20 | 20 20 4c 3d 49 58 32 28 |NUE. | L=IX2(|
|00021b50| 49 2c 4a 2c 4e 41 29 0a | 20 20 20 20 20 20 50 41 |I,J,NA).| PA|
|00021b60| 41 50 3d 50 41 41 28 4c | 29 0a 20 20 20 20 20 20 |AP=PAA(L|). |
|00021b70| 49 46 28 4e 55 4d 2e 45 | 51 2e 31 2e 41 4e 44 2e |IF(NUM.E|Q.1.AND.|
|00021b80| 5a 41 28 49 29 2e 4e 45 | 2e 5a 41 28 4a 29 29 20 |ZA(I).NE|.ZA(J)) |
|00021b90| 50 41 41 50 3d 50 41 41 | 50 2b 45 54 48 41 28 4c |PAAP=PAA|P+ETHA(L|
|00021ba0| 29 2b 43 49 2a 45 54 48 | 41 50 28 4c 29 0a 20 20 |)+CI*ETH|AP(L). |
|00021bb0| 20 20 20 20 54 50 34 3d | 54 50 34 2b 41 4d 28 49 | TP4=|TP4+AM(I|
|00021bc0| 29 2a 41 4d 28 4a 29 2a | 28 50 41 41 50 2b 53 4d |)*AM(J)*|(PAAP+SM|
|00021bd0| 43 29 0a 34 35 20 20 20 | 20 43 4f 4e 54 49 4e 55 |C).45 | CONTINU|
|00021be0| 45 0a 34 30 20 20 20 20 | 43 4f 4e 54 49 4e 55 45 |E.40 |CONTINUE|
|00021bf0| 0a 36 30 20 20 20 20 54 | 50 35 3d 5a 45 52 4f 0a |.60 T|P5=ZERO.|
|00021c00| 20 20 20 20 20 20 49 46 | 28 4e 4e 2e 45 51 2e 30 | IF|(NN.EQ.0|
|00021c10| 29 20 47 4f 54 4f 20 39 | 30 0a 20 20 20 20 20 20 |) GOTO 9|0. |
|00021c20| 44 4f 20 38 35 20 49 3d | 31 2c 4e 4e 0a 20 20 20 |DO 85 I=|1,NN. |
|00021c30| 20 20 20 53 4d 43 3d 5a | 45 52 4f 0a 20 20 20 20 | SMC=Z|ERO. |
|00021c40| 20 20 44 4f 20 37 30 20 | 4a 3d 31 2c 4e 43 0a 20 | DO 70 |J=1,NC. |
|00021c50| 20 20 20 20 20 4d 3d 49 | 58 32 28 49 2c 4a 2c 4e | M=I|X2(I,J,N|
|00021c60| 4e 29 0a 20 20 20 20 20 | 20 53 4d 43 3d 53 4d 43 |N). | SMC=SMC|
|00021c70| 2b 5a 43 28 4a 29 2a 43 | 4d 28 4a 29 2a 50 4e 43 |+ZC(J)*C|M(J)*PNC|
|00021c80| 28 4d 29 0a 37 30 20 20 | 20 20 43 4f 4e 54 49 4e |(M).70 | CONTIN|
|00021c90| 55 45 0a 20 20 20 20 20 | 20 53 4d 41 3d 5a 45 52 |UE. | SMA=ZER|
|00021ca0| 4f 0a 20 20 20 20 20 20 | 44 4f 20 37 35 20 4b 3d |O. |DO 75 K=|
|00021cb0| 31 2c 4e 41 0a 20 20 20 | 20 20 20 4d 3d 49 58 32 |1,NA. | M=IX2|
|00021cc0| 28 49 2c 4b 2c 4e 4e 29 | 0a 20 20 20 20 20 20 53 |(I,K,NN)|. S|
|00021cd0| 4d 41 3d 53 4d 41 2b 5a | 41 28 4b 29 2a 41 4d 28 |MA=SMA+Z|A(K)*AM(|
|00021ce0| 4b 29 2a 50 4e 41 28 4d | 29 0a 37 35 20 20 20 20 |K)*PNA(M|).75 |
|00021cf0| 43 4f 4e 54 49 4e 55 45 | 0a 20 20 20 20 20 20 44 |CONTINUE|. D|
|00021d00| 4f 20 38 30 20 4c 3d 31 | 2c 4e 4e 0a 20 20 20 20 |O 80 L=1|,NN. |
|00021d10| 20 20 53 4d 42 3d 5a 45 | 52 4f 0a 20 20 20 20 20 | SMB=ZE|RO. |
|00021d20| 20 4d 3d 49 58 32 28 49 | 2c 4c 2c 4e 4e 29 0a 20 | M=IX2(I|,L,NN). |
|00021d30| 20 20 20 20 20 53 4d 42 | 3d 53 4d 42 2b 42 4d 28 | SMB|=SMB+BM(|
|00021d40| 4c 29 2a 50 4e 4e 28 4d | 29 0a 38 30 20 20 20 20 |L)*PNN(M|).80 |
|00021d50| 43 4f 4e 54 49 4e 55 45 | 0a 20 20 20 20 20 20 54 |CONTINUE|. T|
|00021d60| 50 35 3d 54 50 35 2b 42 | 4d 28 49 29 2a 28 54 4e |P5=TP5+B|M(I)*(TN|
|00021d70| 2a 44 43 41 28 49 29 2b | 53 4d 43 2b 53 4d 41 2b |*DCA(I)+|SMC+SMA+|
|00021d80| 53 4d 42 29 0a 38 35 20 | 20 20 20 43 4f 4e 54 49 |SMB).85 | CONTI|
|00021d90| 4e 55 45 0a 39 30 20 20 | 20 20 50 48 49 3d 4f 4e |NUE.90 | PHI=ON|
|00021da0| 45 2b 28 54 50 31 2b 54 | 50 32 2b 54 50 33 2b 54 |E+(TP1+T|P2+TP3+T|
|00021db0| 50 34 2b 54 50 35 29 2f | 54 4d 0a 20 20 20 20 20 |P4+TP5)/|TM. |
|00021dc0| 20 52 45 54 55 52 4e 0a | 20 20 20 20 20 20 45 4e | RETURN.| EN|
|00021dd0| 44 0a 43 0a 43 0a 43 0a | 43 20 20 53 55 42 52 4f |D.C.C.C.|C SUBRO|
|00021de0| 55 54 49 4e 45 20 54 4f | 20 43 41 4c 43 55 4c 41 |UTINE TO| CALCULA|
|00021df0| 54 45 20 54 48 45 20 41 | 43 54 49 56 49 54 59 20 |TE THE A|CTIVITY |
|00021e00| 43 4f 45 46 46 49 43 49 | 45 4e 54 20 4f 46 20 41 |COEFFICI|ENT OF A|
|00021e10| 20 43 41 54 49 4f 4e 0a | 43 20 20 20 46 52 4f 4d | CATION.|C FROM|
|00021e20| 20 54 48 45 20 54 52 45 | 41 54 4d 45 4e 54 20 4f | THE TRE|ATMENT O|
|00021e30| 46 20 50 49 54 5a 45 52 | 0a 43 0a 20 20 20 20 20 |F PITZER|.C. |
|00021e40| 20 53 55 42 52 4f 55 54 | 49 4e 45 20 43 47 41 4d | SUBROUT|INE CGAM|
|00021e50| 41 28 5a 43 2c 5a 41 2c | 43 4d 2c 41 4d 2c 42 4d |A(ZC,ZA,|CM,AM,BM|
|00021e60| 2c 54 4e 2c 46 47 2c 42 | 47 2c 42 47 50 2c 43 47 |,TN,FG,B|G,BGP,CG|
|00021e70| 2c 50 43 43 2c 0a 20 20 | 20 20 20 26 45 54 48 43 |,PCC,. | ÐC|
|00021e80| 2c 45 54 48 43 50 2c 45 | 54 48 41 50 2c 50 43 43 |,ETHCP,E|THAP,PCC|
|00021e90| 41 2c 50 43 41 41 2c 44 | 43 41 2c 50 4e 43 2c 49 |A,PCAA,D|CA,PNC,I|
|00021ea0| 2c 47 4c 4e 43 29 0a 20 | 20 20 20 20 20 49 4d 50 |,GLNC). | IMP|
|00021eb0| 4c 49 43 49 54 20 52 45 | 41 4c 2a 38 28 41 2d 48 |LICIT RE|AL*8(A-H|
|00021ec0| 2c 4f 2d 5a 29 0a 20 20 | 20 20 20 20 53 41 56 45 |,O-Z). | SAVE|
|00021ed0| 0a 20 20 20 20 20 20 43 | 4f 4d 4d 4f 4e 2f 4d 44 |. C|OMMON/MD|
|00021ee0| 2f 4e 53 4f 2c 4e 43 42 | 4f 2c 49 52 45 46 2c 4e |/NSO,NCB|O,IREF,N|
|00021ef0| 50 48 2c 4e 50 41 2c 4e | 53 41 2c 4e 49 4f 2c 4e |PH,NPA,N|SA,NIO,N|
|00021f00| 49 41 2c 4e 43 2c 4e 41 | 2c 4e 4e 2c 4e 55 50 2c |IA,NC,NA|,NN,NUP,|
|00021f10| 4e 55 4d 0a 20 20 20 20 | 20 20 43 4f 4d 4d 4f 4e |NUM. | COMMON|
|00021f20| 2f 57 54 52 2f 50 30 2c | 44 57 2c 44 43 2c 41 50 |/WTR/P0,|DW,DC,AP|
|00021f30| 2c 52 4c 4b 57 20 20 20 | 20 20 20 0a 20 20 20 20 |,RLKW | . |
|00021f40| 20 20 44 49 4d 45 4e 53 | 49 4f 4e 20 5a 43 28 2a | DIMENS|ION ZC(*|
|00021f50| 29 2c 5a 41 28 2a 29 2c | 43 4d 28 2a 29 2c 41 4d |),ZA(*),|CM(*),AM|
|00021f60| 28 2a 29 2c 42 4d 28 2a | 29 2c 42 47 28 2a 29 2c |(*),BM(*|),BG(*),|
|00021f70| 42 47 50 28 2a 29 2c 0a | 20 20 20 20 20 26 43 47 |BGP(*),.| &CG|
|00021f80| 28 2a 29 2c 50 43 43 28 | 2a 29 2c 45 54 48 43 28 |(*),PCC(|*),ETHC(|
|00021f90| 2a 29 2c 45 54 48 43 50 | 28 2a 29 2c 45 54 48 41 |*),ETHCP|(*),ETHA|
|00021fa0| 50 28 2a 29 2c 50 43 43 | 41 28 2a 29 2c 50 43 41 |P(*),PCC|A(*),PCA|
|00021fb0| 41 28 2a 29 2c 0a 20 20 | 20 20 20 26 44 43 41 28 |A(*),. | &DCA(|
|00021fc0| 2a 29 2c 50 4e 43 28 2a | 29 0a 20 20 20 20 20 20 |*),PNC(*|). |
|00021fd0| 44 41 54 41 20 5a 45 52 | 4f 2c 48 41 4c 46 2c 4f |DATA ZER|O,HALF,O|
|00021fe0| 4e 45 2c 54 57 4f 2f 30 | 2e 30 44 2b 30 2c 30 2e |NE,TWO/0|.0D+0,0.|
|00021ff0| 35 44 2b 30 2c 31 2e 30 | 44 2b 30 2c 32 2e 30 44 |5D+0,1.0|D+0,2.0D|
|00022000| 2b 30 2f 0a 43 20 20 44 | 45 46 49 4e 45 20 46 55 |+0/.C D|EFINE FU|
|00022010| 4e 43 54 49 4f 4e 53 20 | 46 4f 52 20 4c 4f 43 41 |NCTIONS |FOR LOCA|
|00022020| 54 49 4e 47 20 50 49 54 | 5a 45 52 20 43 4f 45 46 |TING PIT|ZER COEF|
|00022030| 46 53 2e 49 4e 20 4c 49 | 4e 45 41 52 20 41 52 52 |FS.IN LI|NEAR ARR|
|00022040| 41 59 53 0a 20 20 20 20 | 20 20 49 58 32 28 49 44 |AYS. | IX2(ID|
|00022050| 2c 4a 2c 49 4d 29 3d 49 | 4d 2a 28 4a 2d 31 29 2b |,J,IM)=I|M*(J-1)+|
|00022060| 49 44 0a 20 20 20 20 20 | 20 49 58 33 28 49 44 2c |ID. | IX3(ID,|
|00022070| 4a 2c 4b 2c 49 4d 2c 4a | 4d 29 3d 49 4d 2a 28 4a |J,K,IM,J|M)=IM*(J|
|00022080| 4d 2a 28 4b 2d 31 29 2b | 4a 2d 31 29 2b 49 44 0a |M*(K-1)+|J-1)+ID.|
|00022090| 43 0a 20 20 20 20 20 20 | 54 47 31 3d 5a 43 28 49 |C. |TG1=ZC(I|
|000220a0| 29 2a 2a 32 2a 46 47 0a | 20 20 20 20 20 20 54 47 |)**2*FG.| TG|
|000220b0| 32 3d 5a 45 52 4f 0a 20 | 20 20 20 20 20 44 4f 20 |2=ZERO. | DO |
|000220c0| 35 20 4a 3d 31 2c 4e 41 | 0a 20 20 20 20 20 20 4c |5 J=1,NA|. L|
|000220d0| 3d 49 58 32 28 49 2c 4a | 2c 4e 43 29 0a 20 20 20 |=IX2(I,J|,NC). |
|000220e0| 20 20 20 54 47 32 3d 54 | 47 32 2b 54 57 4f 2a 41 | TG2=T|G2+TWO*A|
|000220f0| 4d 28 4a 29 2a 28 42 47 | 28 4c 29 2b 54 4e 2a 43 |M(J)*(BG|(L)+TN*C|
|00022100| 47 28 4c 29 29 0a 35 20 | 20 20 20 20 43 4f 4e 54 |G(L)).5 | CONT|
|00022110| 49 4e 55 45 20 20 20 20 | 0a 20 20 20 20 20 20 54 |INUE |. T|
|00022120| 47 33 3d 5a 45 52 4f 0a | 20 20 20 20 20 20 44 4f |G3=ZERO.| DO|
|00022130| 20 31 30 20 4a 3d 31 2c | 4e 43 0a 20 20 20 20 20 | 10 J=1,|NC. |
|00022140| 20 44 4f 20 31 35 20 4b | 3d 31 2c 4e 41 0a 20 20 | DO 15 K|=1,NA. |
|00022150| 20 20 20 20 4c 3d 49 58 | 32 28 4a 2c 4b 2c 4e 43 | L=IX|2(J,K,NC|
|00022160| 29 0a 20 20 20 20 20 20 | 54 47 33 3d 54 47 33 2b |). |TG3=TG3+|
|00022170| 43 4d 28 4a 29 2a 41 4d | 28 4b 29 2a 28 5a 43 28 |CM(J)*AM|(K)*(ZC(|
|00022180| 49 29 2a 2a 32 2a 42 47 | 50 28 4c 29 2b 5a 43 28 |I)**2*BG|P(L)+ZC(|
|00022190| 49 29 2a 43 47 28 4c 29 | 29 0a 31 35 20 20 20 20 |I)*CG(L)|).15 |
|000221a0| 43 4f 4e 54 49 4e 55 45 | 0a 31 30 20 20 20 20 43 |CONTINUE|.10 C|
|000221b0| 4f 4e 54 49 4e 55 45 0a | 20 20 20 20 20 20 54 47 |ONTINUE.| TG|
|000221c0| 34 3d 5a 45 52 4f 0a 20 | 20 20 20 20 20 44 4f 20 |4=ZERO. | DO |
|000221d0| 32 30 20 4a 3d 31 2c 4e | 43 0a 20 20 20 20 20 20 |20 J=1,N|C. |
|000221e0| 49 46 28 4a 2e 45 51 2e | 49 29 20 47 4f 20 54 4f |IF(J.EQ.|I) GO TO|
|000221f0| 20 32 30 0a 20 20 20 20 | 20 20 53 4d 41 3d 5a 45 | 20. | SMA=ZE|
|00022200| 52 4f 0a 20 20 20 20 20 | 20 44 4f 20 32 35 20 4b |RO. | DO 25 K|
|00022210| 3d 31 2c 4e 41 0a 20 20 | 20 20 20 20 4c 3d 49 58 |=1,NA. | L=IX|
|00022220| 33 28 49 2c 4a 2c 4b 2c | 4e 43 2c 4e 43 29 0a 20 |3(I,J,K,|NC,NC). |
|00022230| 20 20 20 20 20 53 4d 41 | 3d 53 4d 41 2b 41 4d 28 | SMA|=SMA+AM(|
|00022240| 4b 29 2a 50 43 43 41 28 | 4c 29 0a 32 35 20 20 20 |K)*PCCA(|L).25 |
|00022250| 20 43 4f 4e 54 49 4e 55 | 45 0a 20 20 20 20 20 20 | CONTINU|E. |
|00022260| 4c 3d 49 58 32 28 49 2c | 4a 2c 4e 43 29 20 20 20 |L=IX2(I,|J,NC) |
|00022270| 20 20 20 0a 20 20 20 20 | 20 20 50 43 43 50 3d 50 | . | PCCP=P|
|00022280| 43 43 28 4c 29 0a 20 20 | 20 20 20 20 49 46 28 4e |CC(L). | IF(N|
|00022290| 55 4d 2e 45 51 2e 31 2e | 41 4e 44 2e 5a 43 28 49 |UM.EQ.1.|AND.ZC(I|
|000222a0| 29 2e 4e 45 2e 5a 43 28 | 4a 29 29 20 50 43 43 50 |).NE.ZC(|J)) PCCP|
|000222b0| 3d 50 43 43 50 2b 45 54 | 48 43 28 4c 29 0a 20 20 |=PCCP+ET|HC(L). |
|000222c0| 20 20 20 20 54 47 34 3d | 54 47 34 2b 43 4d 28 4a | TG4=|TG4+CM(J|
|000222d0| 29 2a 28 54 57 4f 2a 50 | 43 43 50 2b 53 4d 41 29 |)*(TWO*P|CCP+SMA)|
|000222e0| 0a 32 30 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a |.20 C|ONTINUE.|
|000222f0| 20 20 20 20 20 20 54 47 | 35 3d 5a 45 52 4f 0a 20 | TG|5=ZERO. |
|00022300| 20 20 20 20 20 44 4f 20 | 33 30 20 4a 3d 31 2c 4e | DO |30 J=1,N|
|00022310| 41 0a 20 20 20 20 20 20 | 44 4f 20 33 35 20 4b 3d |A. |DO 35 K=|
|00022320| 31 2c 4e 41 0a 20 20 20 | 20 20 20 49 46 28 4a 2e |1,NA. | IF(J.|
|00022330| 45 51 2e 4b 29 20 47 4f | 20 54 4f 20 33 35 0a 20 |EQ.K) GO| TO 35. |
|00022340| 20 20 20 20 20 4c 3d 49 | 58 33 28 49 2c 4a 2c 4b | L=I|X3(I,J,K|
|00022350| 2c 4e 43 2c 4e 41 29 0a | 20 20 20 20 20 20 50 43 |,NC,NA).| PC|
|00022360| 41 41 50 3d 50 43 41 41 | 28 4c 29 0a 20 20 20 20 |AAP=PCAA|(L). |
|00022370| 20 20 49 46 28 4e 55 4d | 2e 45 51 2e 30 2e 4f 52 | IF(NUM|.EQ.0.OR|
|00022380| 2e 5a 41 28 4a 29 2e 45 | 51 2e 5a 41 28 4b 29 29 |.ZA(J).E|Q.ZA(K))|
|00022390| 20 47 4f 20 54 4f 20 32 | 37 0a 20 20 20 20 20 20 | GO TO 2|7. |
|000223a0| 4d 3d 49 58 32 28 4a 2c | 4b 2c 4e 41 29 0a 20 20 |M=IX2(J,|K,NA). |
|000223b0| 20 20 20 20 50 43 41 41 | 50 3d 50 43 41 41 50 2b | PCAA|P=PCAAP+|
|000223c0| 5a 43 28 49 29 2a 2a 32 | 2a 45 54 48 41 50 28 4d |ZC(I)**2|*ETHAP(M|
|000223d0| 29 0a 32 37 20 20 20 20 | 54 47 35 3d 54 47 35 2b |).27 |TG5=TG5+|
|000223e0| 48 41 4c 46 2a 41 4d 28 | 4a 29 2a 41 4d 28 4b 29 |HALF*AM(|J)*AM(K)|
|000223f0| 2a 50 43 41 41 50 0a 33 | 35 20 20 20 20 43 4f 4e |*PCAAP.3|5 CON|
|00022400| 54 49 4e 55 45 0a 33 30 | 20 20 20 20 43 4f 4e 54 |TINUE.30| CONT|
|00022410| 49 4e 55 45 0a 20 20 20 | 20 20 20 54 47 36 3d 5a |INUE. | TG6=Z|
|00022420| 45 52 4f 0a 20 20 20 20 | 20 20 49 46 28 4e 55 4d |ERO. | IF(NUM|
|00022430| 2e 45 51 2e 30 29 20 47 | 4f 20 54 4f 20 35 30 0a |.EQ.0) G|O TO 50.|
|00022440| 20 20 20 20 20 20 44 4f | 20 34 30 20 4a 3d 31 2c | DO| 40 J=1,|
|00022450| 4e 43 0a 20 20 20 20 20 | 20 44 4f 20 34 35 20 4b |NC. | DO 45 K|
|00022460| 3d 31 2c 4e 43 0a 20 20 | 20 20 20 20 49 46 28 4a |=1,NC. | IF(J|
|00022470| 2e 45 51 2e 4b 2e 4f 52 | 2e 5a 43 28 4a 29 2e 45 |.EQ.K.OR|.ZC(J).E|
|00022480| 51 2e 5a 43 28 4b 29 29 | 20 47 4f 20 54 4f 20 34 |Q.ZC(K))| GO TO 4|
|00022490| 35 20 20 20 20 20 20 0a | 20 20 20 20 20 20 4c 3d |5 .| L=|
|000224a0| 49 58 32 28 4a 2c 4b 2c | 4e 43 29 0a 20 20 20 20 |IX2(J,K,|NC). |
|000224b0| 20 20 54 47 36 3d 54 47 | 36 2b 48 41 4c 46 2a 5a | TG6=TG|6+HALF*Z|
|000224c0| 43 28 49 29 2a 2a 32 2a | 43 4d 28 4a 29 2a 43 4d |C(I)**2*|CM(J)*CM|
|000224d0| 28 4b 29 2a 45 54 48 43 | 50 28 4c 29 0a 34 35 20 |(K)*ETHC|P(L).45 |
|000224e0| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 34 30 20 20 | CONTI|NUE.40 |
|000224f0| 20 20 43 4f 4e 54 49 4e | 55 45 0a 35 30 20 20 20 | CONTIN|UE.50 |
|00022500| 20 54 47 37 3d 5a 45 52 | 4f 0a 20 20 20 20 20 20 | TG7=ZER|O. |
|00022510| 49 46 28 4e 4e 2e 45 51 | 2e 30 29 20 47 4f 54 4f |IF(NN.EQ|.0) GOTO|
|00022520| 20 36 30 0a 20 20 20 20 | 20 20 44 4f 20 35 35 20 | 60. | DO 55 |
|00022530| 4a 3d 31 2c 4e 4e 0a 20 | 20 20 20 20 20 4c 3d 49 |J=1,NN. | L=I|
|00022540| 58 32 28 4a 2c 49 2c 4e | 4e 29 0a 20 20 20 20 20 |X2(J,I,N|N). |
|00022550| 20 54 47 37 3d 54 47 37 | 2b 5a 43 28 49 29 2a 28 | TG7=TG7|+ZC(I)*(|
|00022560| 48 41 4c 46 2a 44 43 41 | 28 4a 29 2b 50 4e 43 28 |HALF*DCA|(J)+PNC(|
|00022570| 4c 29 29 2a 42 4d 28 4a | 29 0a 35 35 20 20 20 20 |L))*BM(J|).55 |
|00022580| 43 4f 4e 54 49 4e 55 45 | 20 20 20 20 20 20 0a 36 |CONTINUE| .6|
|00022590| 30 20 20 20 20 47 4c 4e | 43 3d 54 47 31 2b 54 47 |0 GLN|C=TG1+TG|
|000225a0| 32 2b 54 47 33 2b 54 47 | 34 2b 54 47 35 2b 54 47 |2+TG3+TG|4+TG5+TG|
|000225b0| 36 2b 54 47 37 20 20 20 | 20 20 20 0a 20 20 20 20 |6+TG7 | . |
|000225c0| 20 20 52 45 54 55 52 4e | 0a 20 20 20 20 20 20 45 | RETURN|. E|
|000225d0| 4e 44 0a 43 0a 43 0a 43 | 0a 43 20 20 53 55 42 52 |ND.C.C.C|.C SUBR|
|000225e0| 4f 55 54 49 4e 45 20 54 | 4f 20 43 41 4c 43 55 4c |OUTINE T|O CALCUL|
|000225f0| 41 54 45 20 54 48 45 20 | 41 43 54 49 56 49 54 59 |ATE THE |ACTIVITY|
|00022600| 20 43 4f 45 46 46 49 43 | 49 45 4e 54 20 4f 46 20 | COEFFIC|IENT OF |
|00022610| 41 4e 20 41 4e 49 4f 4e | 0a 43 20 20 20 46 52 4f |AN ANION|.C FRO|
|00022620| 4d 20 54 48 45 20 54 52 | 45 41 54 4d 45 4e 54 20 |M THE TR|EATMENT |
|00022630| 4f 46 20 50 49 54 5a 45 | 52 0a 43 0a 20 20 20 20 |OF PITZE|R.C. |
|00022640| 20 20 53 55 42 52 4f 55 | 54 49 4e 45 20 41 47 41 | SUBROU|TINE AGA|
|00022650| 4d 41 28 5a 43 2c 5a 41 | 2c 43 4d 2c 41 4d 2c 42 |MA(ZC,ZA|,CM,AM,B|
|00022660| 4d 2c 54 4e 2c 46 47 2c | 42 47 2c 42 47 50 2c 43 |M,TN,FG,|BG,BGP,C|
|00022670| 47 2c 50 41 41 2c 0a 20 | 20 20 20 20 26 45 54 48 |G,PAA,. | Ð|
|00022680| 41 2c 45 54 48 41 50 2c | 45 54 48 43 50 2c 50 43 |A,ETHAP,|ETHCP,PC|
|00022690| 43 41 2c 50 43 41 41 2c | 44 43 41 2c 50 4e 41 2c |CA,PCAA,|DCA,PNA,|
|000226a0| 4a 2c 47 4c 4e 41 29 0a | 20 20 20 20 20 20 49 4d |J,GLNA).| IM|
|000226b0| 50 4c 49 43 49 54 20 52 | 45 41 4c 2a 38 28 41 2d |PLICIT R|EAL*8(A-|
|000226c0| 48 2c 4f 2d 5a 29 0a 20 | 20 20 20 20 20 53 41 56 |H,O-Z). | SAV|
|000226d0| 45 0a 20 20 20 20 20 20 | 43 4f 4d 4d 4f 4e 2f 4d |E. |COMMON/M|
|000226e0| 44 2f 4e 53 4f 2c 4e 43 | 42 4f 2c 49 52 45 46 2c |D/NSO,NC|BO,IREF,|
|000226f0| 4e 50 48 2c 4e 50 41 2c | 4e 53 41 2c 4e 49 4f 2c |NPH,NPA,|NSA,NIO,|
|00022700| 4e 49 41 2c 4e 43 2c 4e | 41 2c 4e 4e 2c 4e 55 50 |NIA,NC,N|A,NN,NUP|
|00022710| 2c 4e 55 4d 0a 20 20 20 | 20 20 20 43 4f 4d 4d 4f |,NUM. | COMMO|
|00022720| 4e 2f 57 54 52 2f 50 30 | 2c 44 57 2c 44 43 2c 41 |N/WTR/P0|,DW,DC,A|
|00022730| 50 2c 52 4c 4b 57 20 20 | 20 20 20 20 0a 20 20 20 |P,RLKW | . |
|00022740| 20 20 20 44 49 4d 45 4e | 53 49 4f 4e 20 5a 43 28 | DIMEN|SION ZC(|
|00022750| 2a 29 2c 5a 41 28 2a 29 | 2c 43 4d 28 2a 29 2c 41 |*),ZA(*)|,CM(*),A|
|00022760| 4d 28 2a 29 2c 42 4d 28 | 2a 29 2c 42 47 28 2a 29 |M(*),BM(|*),BG(*)|
|00022770| 2c 42 47 50 28 2a 29 2c | 0a 20 20 20 20 20 26 43 |,BGP(*),|. &C|
|00022780| 47 28 2a 29 2c 50 41 41 | 28 2a 29 2c 45 54 48 41 |G(*),PAA|(*),ETHA|
|00022790| 28 2a 29 2c 45 54 48 41 | 50 28 2a 29 2c 45 54 48 |(*),ETHA|P(*),ETH|
|000227a0| 43 50 28 2a 29 2c 50 43 | 43 41 28 2a 29 2c 50 43 |CP(*),PC|CA(*),PC|
|000227b0| 41 41 28 2a 29 2c 0a 20 | 20 20 20 20 26 44 43 41 |AA(*),. | &DCA|
|000227c0| 28 2a 29 2c 50 4e 41 28 | 2a 29 0a 20 20 20 20 20 |(*),PNA(|*). |
|000227d0| 20 44 41 54 41 20 5a 45 | 52 4f 2c 48 41 4c 46 2c | DATA ZE|RO,HALF,|
|000227e0| 4f 4e 45 2c 54 57 4f 2f | 30 2e 30 44 2b 30 2c 30 |ONE,TWO/|0.0D+0,0|
|000227f0| 2e 35 44 2b 30 2c 31 2e | 30 44 2b 30 2c 32 2e 30 |.5D+0,1.|0D+0,2.0|
|00022800| 44 2b 30 2f 0a 43 20 20 | 44 45 46 49 4e 45 20 46 |D+0/.C |DEFINE F|
|00022810| 55 4e 43 54 49 4f 4e 53 | 20 46 4f 52 20 4c 4f 43 |UNCTIONS| FOR LOC|
|00022820| 41 54 49 4e 47 20 50 49 | 54 5a 45 52 20 43 4f 45 |ATING PI|TZER COE|
|00022830| 46 46 53 2e 49 4e 20 4c | 49 4e 45 41 52 20 41 52 |FFS.IN L|INEAR AR|
|00022840| 52 41 59 53 0a 20 20 20 | 20 20 20 49 58 32 28 49 |RAYS. | IX2(I|
|00022850| 2c 4a 44 2c 49 4d 29 3d | 49 4d 2a 28 4a 44 2d 31 |,JD,IM)=|IM*(JD-1|
|00022860| 29 2b 49 0a 20 20 20 20 | 20 20 49 58 33 28 49 2c |)+I. | IX3(I,|
|00022870| 4a 44 2c 4b 2c 49 4d 2c | 4a 4d 29 3d 49 4d 2a 28 |JD,K,IM,|JM)=IM*(|
|00022880| 4a 4d 2a 28 4b 2d 31 29 | 2b 4a 44 2d 31 29 2b 49 |JM*(K-1)|+JD-1)+I|
|00022890| 0a 43 0a 20 20 20 20 20 | 20 54 47 31 3d 5a 41 28 |.C. | TG1=ZA(|
|000228a0| 4a 29 2a 2a 32 2a 46 47 | 0a 20 20 20 20 20 20 54 |J)**2*FG|. T|
|000228b0| 47 32 3d 5a 45 52 4f 0a | 20 20 20 20 20 20 44 4f |G2=ZERO.| DO|
|000228c0| 20 35 20 49 3d 31 2c 4e | 43 0a 20 20 20 20 20 20 | 5 I=1,N|C. |
|000228d0| 4c 3d 49 58 32 28 49 2c | 4a 2c 4e 43 29 0a 20 20 |L=IX2(I,|J,NC). |
|000228e0| 20 20 20 20 54 47 32 3d | 54 47 32 2b 54 57 4f 2a | TG2=|TG2+TWO*|
|000228f0| 43 4d 28 49 29 2a 28 42 | 47 28 4c 29 2b 54 4e 2a |CM(I)*(B|G(L)+TN*|
|00022900| 43 47 28 4c 29 29 0a 35 | 20 20 20 20 20 43 4f 4e |CG(L)).5| CON|
|00022910| 54 49 4e 55 45 0a 20 20 | 20 20 20 20 54 47 33 3d |TINUE. | TG3=|
|00022920| 5a 45 52 4f 0a 20 20 20 | 20 20 20 44 4f 20 31 30 |ZERO. | DO 10|
|00022930| 20 49 3d 31 2c 4e 43 0a | 20 20 20 20 20 20 44 4f | I=1,NC.| DO|
|00022940| 20 31 35 20 4b 3d 31 2c | 4e 41 0a 20 20 20 20 20 | 15 K=1,|NA. |
|00022950| 20 4c 3d 49 58 32 28 49 | 2c 4b 2c 4e 43 29 0a 20 | L=IX2(I|,K,NC). |
|00022960| 20 20 20 20 20 54 47 33 | 3d 54 47 33 2b 43 4d 28 | TG3|=TG3+CM(|
|00022970| 49 29 2a 41 4d 28 4b 29 | 2a 28 5a 41 28 4a 29 2a |I)*AM(K)|*(ZA(J)*|
|00022980| 2a 32 2a 42 47 50 28 4c | 29 2b 5a 41 28 4a 29 2a |*2*BGP(L|)+ZA(J)*|
|00022990| 43 47 28 4c 29 29 0a 31 | 35 20 20 20 20 43 4f 4e |CG(L)).1|5 CON|
|000229a0| 54 49 4e 55 45 0a 31 30 | 20 20 20 20 43 4f 4e 54 |TINUE.10| CONT|
|000229b0| 49 4e 55 45 0a 20 20 20 | 20 20 20 54 47 34 3d 5a |INUE. | TG4=Z|
|000229c0| 45 52 4f 0a 20 20 20 20 | 20 20 44 4f 20 32 30 20 |ERO. | DO 20 |
|000229d0| 49 3d 31 2c 4e 41 0a 20 | 20 20 20 20 20 49 46 28 |I=1,NA. | IF(|
|000229e0| 4a 2e 45 51 2e 49 29 20 | 47 4f 20 54 4f 20 32 30 |J.EQ.I) |GO TO 20|
|000229f0| 0a 20 20 20 20 20 20 53 | 4d 43 3d 5a 45 52 4f 0a |. S|MC=ZERO.|
|00022a00| 20 20 20 20 20 20 44 4f | 20 32 35 20 4b 3d 31 2c | DO| 25 K=1,|
|00022a10| 4e 43 0a 20 20 20 20 20 | 20 4c 3d 49 58 33 28 4b |NC. | L=IX3(K|
|00022a20| 2c 49 2c 4a 2c 4e 43 2c | 4e 41 29 0a 20 20 20 20 |,I,J,NC,|NA). |
|00022a30| 20 20 53 4d 43 3d 53 4d | 43 2b 43 4d 28 4b 29 2a | SMC=SM|C+CM(K)*|
|00022a40| 50 43 41 41 28 4c 29 0a | 32 35 20 20 20 20 43 4f |PCAA(L).|25 CO|
|00022a50| 4e 54 49 4e 55 45 0a 20 | 20 20 20 20 20 4c 3d 49 |NTINUE. | L=I|
|00022a60| 58 32 28 49 2c 4a 2c 4e | 41 29 0a 20 20 20 20 20 |X2(I,J,N|A). |
|00022a70| 20 50 41 41 50 3d 50 41 | 41 28 4c 29 0a 20 20 20 | PAAP=PA|A(L). |
|00022a80| 20 20 20 49 46 28 4e 55 | 4d 2e 45 51 2e 31 2e 41 | IF(NU|M.EQ.1.A|
|00022a90| 4e 44 2e 5a 41 28 49 29 | 2e 4e 45 2e 5a 41 28 4a |ND.ZA(I)|.NE.ZA(J|
|00022aa0| 29 29 20 50 41 41 50 3d | 50 41 41 50 2b 45 54 48 |)) PAAP=|PAAP+ETH|
|00022ab0| 41 28 4c 29 0a 20 20 20 | 20 20 20 54 47 34 3d 54 |A(L). | TG4=T|
|00022ac0| 47 34 2b 41 4d 28 49 29 | 2a 28 54 57 4f 2a 50 41 |G4+AM(I)|*(TWO*PA|
|00022ad0| 41 50 2b 53 4d 43 29 0a | 32 30 20 20 20 20 43 4f |AP+SMC).|20 CO|
|00022ae0| 4e 54 49 4e 55 45 0a 20 | 20 20 20 20 20 54 47 35 |NTINUE. | TG5|
|00022af0| 3d 5a 45 52 4f 0a 20 20 | 20 20 20 20 44 4f 20 33 |=ZERO. | DO 3|
|00022b00| 30 20 49 3d 31 2c 4e 43 | 0a 20 20 20 20 20 20 44 |0 I=1,NC|. D|
|00022b10| 4f 20 33 35 20 4b 3d 31 | 2c 4e 43 0a 20 20 20 20 |O 35 K=1|,NC. |
|00022b20| 20 20 49 46 28 49 2e 45 | 51 2e 4b 29 20 47 4f 20 | IF(I.E|Q.K) GO |
|00022b30| 54 4f 20 33 35 0a 20 20 | 20 20 20 20 4c 3d 49 58 |TO 35. | L=IX|
|00022b40| 33 28 49 2c 4b 2c 4a 2c | 4e 43 2c 4e 43 29 0a 20 |3(I,K,J,|NC,NC). |
|00022b50| 20 20 20 20 20 50 43 43 | 41 50 3d 50 43 43 41 28 | PCC|AP=PCCA(|
|00022b60| 4c 29 0a 20 20 20 20 20 | 20 49 46 28 4e 55 4d 2e |L). | IF(NUM.|
|00022b70| 45 51 2e 30 2e 4f 52 2e | 5a 43 28 49 29 2e 45 51 |EQ.0.OR.|ZC(I).EQ|
|00022b80| 2e 5a 43 28 4b 29 29 20 | 47 4f 20 54 4f 20 32 37 |.ZC(K)) |GO TO 27|
|00022b90| 0a 20 20 20 20 20 20 4d | 3d 49 58 32 28 49 2c 4b |. M|=IX2(I,K|
|00022ba0| 2c 4e 43 29 0a 20 20 20 | 20 20 20 50 43 43 41 50 |,NC). | PCCAP|
|00022bb0| 3d 50 43 43 41 50 2b 5a | 41 28 4a 29 2a 2a 32 2a |=PCCAP+Z|A(J)**2*|
|00022bc0| 45 54 48 43 50 28 4d 29 | 0a 32 37 20 20 20 20 54 |ETHCP(M)|.27 T|
|00022bd0| 47 35 3d 54 47 35 2b 48 | 41 4c 46 2a 43 4d 28 49 |G5=TG5+H|ALF*CM(I|
|00022be0| 29 2a 43 4d 28 4b 29 2a | 50 43 43 41 50 0a 33 35 |)*CM(K)*|PCCAP.35|
|00022bf0| 20 20 20 20 43 4f 4e 54 | 49 4e 55 45 0a 33 30 20 | CONT|INUE.30 |
|00022c00| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 20 20 20 20 | CONTI|NUE. |
|00022c10| 20 20 54 47 36 3d 5a 45 | 52 4f 0a 20 20 20 20 20 | TG6=ZE|RO. |
|00022c20| 20 49 46 28 4e 55 4d 2e | 45 51 2e 30 29 20 47 4f | IF(NUM.|EQ.0) GO|
|00022c30| 20 54 4f 20 35 30 0a 20 | 20 20 20 20 20 44 4f 20 | TO 50. | DO |
|00022c40| 34 30 20 49 3d 31 2c 4e | 41 0a 20 20 20 20 20 20 |40 I=1,N|A. |
|00022c50| 44 4f 20 34 35 20 4b 3d | 31 2c 4e 41 0a 20 20 20 |DO 45 K=|1,NA. |
|00022c60| 20 20 20 49 46 28 49 2e | 45 51 2e 4b 2e 4f 52 2e | IF(I.|EQ.K.OR.|
|00022c70| 5a 41 28 49 29 2e 45 51 | 2e 5a 41 28 4b 29 29 20 |ZA(I).EQ|.ZA(K)) |
|00022c80| 47 4f 20 54 4f 20 34 35 | 20 20 20 20 20 20 0a 20 |GO TO 45| . |
|00022c90| 20 20 20 20 20 4c 3d 49 | 58 32 28 49 2c 4b 2c 4e | L=I|X2(I,K,N|
|00022ca0| 41 29 0a 20 20 20 20 20 | 20 54 47 36 3d 54 47 36 |A). | TG6=TG6|
|00022cb0| 2b 48 41 4c 46 2a 5a 41 | 28 4a 29 2a 2a 32 2a 41 |+HALF*ZA|(J)**2*A|
|00022cc0| 4d 28 49 29 2a 41 4d 28 | 4b 29 2a 45 54 48 41 50 |M(I)*AM(|K)*ETHAP|
|00022cd0| 28 4c 29 0a 34 35 20 20 | 20 20 43 4f 4e 54 49 4e |(L).45 | CONTIN|
|00022ce0| 55 45 0a 34 30 20 20 20 | 20 43 4f 4e 54 49 4e 55 |UE.40 | CONTINU|
|00022cf0| 45 0a 35 30 20 20 20 20 | 54 47 37 3d 5a 45 52 4f |E.50 |TG7=ZERO|
|00022d00| 0a 20 20 20 20 20 20 49 | 46 28 4e 4e 2e 45 51 2e |. I|F(NN.EQ.|
|00022d10| 30 29 20 47 4f 54 4f 20 | 36 30 0a 20 20 20 20 20 |0) GOTO |60. |
|00022d20| 20 44 4f 20 35 35 20 49 | 3d 31 2c 4e 4e 0a 20 20 | DO 55 I|=1,NN. |
|00022d30| 20 20 20 20 4c 3d 49 58 | 32 28 49 2c 4a 2c 4e 4e | L=IX|2(I,J,NN|
|00022d40| 29 0a 20 20 20 20 20 20 | 54 47 37 3d 54 47 37 2b |). |TG7=TG7+|
|00022d50| 5a 41 28 4a 29 2a 28 48 | 41 4c 46 2a 44 43 41 28 |ZA(J)*(H|ALF*DCA(|
|00022d60| 49 29 2b 50 4e 41 28 4c | 29 29 2a 42 4d 28 49 29 |I)+PNA(L|))*BM(I)|
|00022d70| 0a 35 35 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a |.55 C|ONTINUE.|
|00022d80| 36 30 20 20 20 20 47 4c | 4e 41 3d 54 47 31 2b 54 |60 GL|NA=TG1+T|
|00022d90| 47 32 2b 54 47 33 2b 54 | 47 34 2b 54 47 35 2b 54 |G2+TG3+T|G4+TG5+T|
|00022da0| 47 36 2b 54 47 37 0a 20 | 20 20 20 20 20 52 45 54 |G6+TG7. | RET|
|00022db0| 55 52 4e 0a 20 20 20 20 | 20 20 45 4e 44 0a 43 0a |URN. | END.C.|
|00022dc0| 43 0a 43 0a 43 20 20 53 | 55 42 52 4f 55 54 49 4e |C.C.C S|UBROUTIN|
|00022dd0| 45 20 54 4f 20 43 41 4c | 43 55 4c 41 54 45 20 54 |E TO CAL|CULATE T|
|00022de0| 48 45 20 41 43 54 49 56 | 49 54 59 20 43 4f 45 46 |HE ACTIV|ITY COEF|
|00022df0| 46 49 43 49 45 4e 54 20 | 4f 46 20 41 20 4e 45 55 |FICIENT |OF A NEU|
|00022e00| 54 52 41 4c 0a 43 20 20 | 20 53 50 45 43 49 45 53 |TRAL.C | SPECIES|
|00022e10| 20 46 52 4f 4d 20 54 48 | 45 20 54 52 45 41 54 4d | FROM TH|E TREATM|
|00022e20| 45 4e 54 20 4f 46 20 50 | 49 54 5a 45 52 0a 43 0a |ENT OF P|ITZER.C.|
|00022e30| 20 20 20 20 20 20 53 55 | 42 52 4f 55 54 49 4e 45 | SU|BROUTINE|
|00022e40| 20 4e 47 41 4d 41 28 5a | 43 2c 5a 41 2c 43 4d 2c | NGAMA(Z|C,ZA,CM,|
|00022e50| 41 4d 2c 42 4d 2c 54 4e | 2c 44 43 41 2c 50 4e 43 |AM,BM,TN|,DCA,PNC|
|00022e60| 2c 50 4e 41 2c 50 4e 4e | 2c 0a 20 20 20 20 20 26 |,PNA,PNN|,. &|
|00022e70| 49 2c 47 4c 4e 4e 29 0a | 20 20 20 20 20 20 49 4d |I,GLNN).| IM|
|00022e80| 50 4c 49 43 49 54 20 52 | 45 41 4c 2a 38 28 41 2d |PLICIT R|EAL*8(A-|
|00022e90| 48 2c 4f 2d 5a 29 0a 20 | 20 20 20 20 20 53 41 56 |H,O-Z). | SAV|
|00022ea0| 45 0a 20 20 20 20 20 20 | 43 4f 4d 4d 4f 4e 2f 4d |E. |COMMON/M|
|00022eb0| 44 2f 4e 53 4f 2c 4e 43 | 42 4f 2c 49 52 45 46 2c |D/NSO,NC|BO,IREF,|
|00022ec0| 4e 50 48 2c 4e 50 41 2c | 4e 53 41 2c 4e 49 4f 2c |NPH,NPA,|NSA,NIO,|
|00022ed0| 4e 49 41 2c 4e 43 2c 4e | 41 2c 4e 4e 2c 4e 55 50 |NIA,NC,N|A,NN,NUP|
|00022ee0| 2c 4e 55 4d 0a 20 20 20 | 20 20 20 44 49 4d 45 4e |,NUM. | DIMEN|
|00022ef0| 53 49 4f 4e 20 5a 43 28 | 2a 29 2c 5a 41 28 2a 29 |SION ZC(|*),ZA(*)|
|00022f00| 2c 43 4d 28 2a 29 2c 41 | 4d 28 2a 29 2c 42 4d 28 |,CM(*),A|M(*),BM(|
|00022f10| 2a 29 2c 44 43 41 28 2a | 29 2c 50 4e 43 28 2a 29 |*),DCA(*|),PNC(*)|
|00022f20| 2c 0a 20 20 20 20 20 26 | 50 4e 41 28 2a 29 2c 50 |,. &|PNA(*),P|
|00022f30| 4e 4e 28 2a 29 0a 20 20 | 20 20 20 20 44 41 54 41 |NN(*). | DATA|
|00022f40| 20 4f 4e 45 2c 5a 45 52 | 4f 2f 31 2e 30 44 2b 30 | ONE,ZER|O/1.0D+0|
|00022f50| 2c 30 2e 30 44 2b 30 2f | 0a 43 20 20 44 45 46 49 |,0.0D+0/|.C DEFI|
|00022f60| 4e 45 20 46 55 4e 43 54 | 49 4f 4e 20 46 4f 52 20 |NE FUNCT|ION FOR |
|00022f70| 4c 4f 43 41 54 49 4e 47 | 20 50 49 54 5a 45 52 20 |LOCATING| PITZER |
|00022f80| 43 4f 45 46 46 53 2e 49 | 4e 20 4c 49 4e 45 41 52 |COEFFS.I|N LINEAR|
|00022f90| 20 41 52 52 41 59 53 0a | 20 20 20 20 20 20 49 58 | ARRAYS.| IX|
|00022fa0| 32 28 49 2c 4a 2c 49 4d | 29 3d 49 4d 2a 28 4a 2d |2(I,J,IM|)=IM*(J-|
|00022fb0| 31 29 2b 49 0a 43 0a 20 | 20 20 20 20 20 54 47 31 |1)+I.C. | TG1|
|00022fc0| 3d 54 4e 2a 44 43 41 28 | 49 29 0a 20 20 20 20 20 |=TN*DCA(|I). |
|00022fd0| 20 44 4f 20 35 20 4a 3d | 31 2c 4e 43 0a 20 20 20 | DO 5 J=|1,NC. |
|00022fe0| 20 20 20 4c 3d 49 58 32 | 28 49 2c 4a 2c 4e 4e 29 | L=IX2|(I,J,NN)|
|00022ff0| 0a 20 20 20 20 20 20 54 | 47 31 3d 54 47 31 2b 5a |. T|G1=TG1+Z|
|00023000| 43 28 4a 29 2a 43 4d 28 | 4a 29 2a 50 4e 43 28 4c |C(J)*CM(|J)*PNC(L|
|00023010| 29 0a 35 20 20 20 20 20 | 43 4f 4e 54 49 4e 55 45 |).5 |CONTINUE|
|00023020| 0a 20 20 20 20 20 20 44 | 4f 20 31 30 20 4a 3d 31 |. D|O 10 J=1|
|00023030| 2c 4e 41 0a 20 20 20 20 | 20 20 4c 3d 49 58 32 28 |,NA. | L=IX2(|
|00023040| 49 2c 4a 2c 4e 4e 29 0a | 20 20 20 20 20 20 54 47 |I,J,NN).| TG|
|00023050| 31 3d 54 47 31 2b 5a 41 | 28 4a 29 2a 41 4d 28 4a |1=TG1+ZA|(J)*AM(J|
|00023060| 29 2a 50 4e 41 28 4c 29 | 0a 31 30 20 20 20 20 43 |)*PNA(L)|.10 C|
|00023070| 4f 4e 54 49 4e 55 45 0a | 20 20 20 20 20 20 44 4f |ONTINUE.| DO|
|00023080| 20 31 35 20 4a 3d 31 2c | 4e 4e 0a 20 20 20 20 20 | 15 J=1,|NN. |
|00023090| 20 4c 3d 49 58 32 28 49 | 2c 4a 2c 4e 4e 29 0a 20 | L=IX2(I|,J,NN). |
|000230a0| 20 20 20 20 20 54 47 31 | 3d 54 47 31 2b 42 4d 28 | TG1|=TG1+BM(|
|000230b0| 4a 29 2a 50 4e 4e 28 4c | 29 0a 31 35 20 20 20 20 |J)*PNN(L|).15 |
|000230c0| 43 4f 4e 54 49 4e 55 45 | 0a 32 30 20 20 20 20 47 |CONTINUE|.20 G|
|000230d0| 4c 4e 4e 3d 54 47 31 0a | 20 20 20 20 20 20 52 45 |LNN=TG1.| RE|
|000230e0| 54 55 52 4e 0a 20 20 20 | 20 20 20 45 4e 44 0a 43 |TURN. | END.C|
|000230f0| 0a 43 0a 43 0a 43 20 20 | 53 55 42 52 4f 55 54 49 |.C.C.C |SUBROUTI|
|00023100| 4e 45 20 54 4f 20 45 53 | 54 49 4d 41 54 45 20 49 |NE TO ES|TIMATE I|
|00023110| 4e 49 54 49 41 4c 20 56 | 41 4c 55 45 53 20 4f 46 |NITIAL V|ALUES OF|
|00023120| 20 53 50 45 43 49 45 20 | 43 4f 4e 43 45 4e 54 52 | SPECIE |CONCENTR|
|00023130| 41 54 49 4f 4e 53 0a 43 | 0a 43 0a 43 20 20 20 20 |ATIONS.C|.C.C |
|00023140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00023150| 20 20 20 20 20 20 20 20 | 20 47 4c 4f 53 53 41 52 | | GLOSSAR|
|00023160| 59 0a 43 0a 43 20 20 20 | 20 20 20 20 20 20 44 58 |Y.C.C | DX|
|00023170| 53 20 3d 20 41 20 4c 4f | 47 41 52 49 54 48 4d 49 |S = A LO|GARITHMI|
|00023180| 43 20 49 4e 43 52 45 4d | 45 4e 54 20 55 53 45 44 |C INCREM|ENT USED|
|00023190| 20 49 4e 20 46 49 52 53 | 54 20 45 53 54 49 4d 41 | IN FIRS|T ESTIMA|
|000231a0| 54 45 20 4f 46 0a 43 20 | 20 20 20 20 20 20 20 20 |TE OF.C | |
|000231b0| 20 20 20 20 20 20 20 41 | 20 52 45 41 43 54 41 4e | A| REACTAN|
|000231c0| 54 20 43 4f 4e 43 45 4e | 54 52 41 54 49 4f 4e 2e |T CONCEN|TRATION.|
|000231d0| 0a 43 20 20 20 20 20 20 | 20 49 43 4f 4e 56 20 3d |.C | ICONV =|
|000231e0| 20 41 20 46 4c 41 47 20 | 49 4e 44 49 43 41 54 49 | A FLAG |INDICATI|
|000231f0| 4e 47 20 54 48 41 54 20 | 54 48 45 20 43 55 52 52 |NG THAT |THE CURR|
|00023200| 45 4e 54 20 43 41 4c 43 | 55 4c 41 54 49 4f 4e 0a |ENT CALC|ULATION.|
|00023210| 43 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |C | |
|00023220| 20 49 53 20 53 49 4d 49 | 4c 41 52 20 54 4f 20 4f | IS SIMI|LAR TO O|
|00023230| 4e 45 20 50 45 52 46 4f | 52 4d 45 44 20 4f 4e 20 |NE PERFO|RMED ON |
|00023240| 54 48 45 20 53 41 4d 45 | 20 44 41 54 41 20 50 4f |THE SAME| DATA PO|
|00023250| 49 4e 54 0a 43 20 20 20 | 20 20 20 20 20 20 20 20 |INT.C | |
|00023260| 20 20 20 20 20 49 4e 20 | 41 20 50 52 45 56 49 4f | IN |A PREVIO|
|00023270| 55 53 20 52 45 46 49 4e | 45 4d 45 4e 54 20 43 59 |US REFIN|EMENT CY|
|00023280| 43 4c 45 2e 0a 43 20 20 | 20 49 46 41 4e 28 49 2c |CLE..C | IFAN(I,|
|00023290| 4a 29 20 3d 20 41 20 46 | 55 4e 43 54 49 4f 4e 20 |J) = A F|UNCTION |
|000232a0| 46 4f 52 20 4c 4f 43 41 | 54 49 4e 47 20 54 48 45 |FOR LOCA|TING THE|
|000232b0| 20 43 41 4c 43 44 2e 20 | 43 4f 4e 43 2e 20 4f 46 | CALCD. |CONC. OF|
|000232c0| 20 52 45 41 43 54 41 4e | 54 0a 43 20 20 20 20 20 | REACTAN|T.C |
|000232d0| 20 20 20 20 20 20 20 20 | 20 20 20 49 20 4f 46 20 | | I OF |
|000232e0| 50 4f 49 4e 54 20 4a 20 | 49 4e 20 54 48 45 20 4c |POINT J |IN THE L|
|000232f0| 49 4e 45 41 52 20 41 52 | 52 41 59 20 58 43 41 53 |INEAR AR|RAY XCAS|
|00023300| 2e 0a 43 20 20 20 20 49 | 46 4e 28 49 2c 4a 29 20 |..C I|FN(I,J) |
|00023310| 3d 20 41 20 46 55 4e 43 | 54 49 4f 4e 20 46 4f 52 |= A FUNC|TION FOR|
|00023320| 20 4c 4f 43 41 54 49 4e | 47 20 54 48 45 20 43 41 | LOCATIN|G THE CA|
|00023330| 4c 43 44 2e 20 43 4f 4e | 43 2e 20 4f 46 20 52 45 |LCD. CON|C. OF RE|
|00023340| 41 43 54 41 4e 54 0a 43 | 20 20 20 20 20 20 20 20 |ACTANT.C| |
|00023350| 20 20 20 20 20 20 20 20 | 49 20 4f 46 20 50 4f 49 | |I OF POI|
|00023360| 4e 54 20 4a 20 49 4e 20 | 54 48 45 20 4c 49 4e 45 |NT J IN |THE LINE|
|00023370| 41 52 20 41 52 52 41 59 | 53 20 58 43 53 20 41 4e |AR ARRAY|S XCS AN|
|00023380| 44 20 58 43 4f 53 2e 0a | 43 20 20 20 20 20 20 20 |D XCOS..|C |
|00023390| 20 20 49 44 43 20 3d 20 | 49 46 20 3e 20 30 2c 20 | IDC = |IF > 0, |
|000233a0| 49 4e 44 49 43 41 54 45 | 53 20 43 41 4c 43 55 4c |INDICATE|S CALCUL|
|000233b0| 41 54 49 4f 4e 20 4f 46 | 20 41 20 50 41 52 54 49 |ATION OF| A PARTI|
|000233c0| 41 4c 20 44 45 52 49 56 | 41 54 49 56 45 2e 0a 43 |AL DERIV|ATIVE..C|
|000233d0| 20 20 20 20 20 20 20 20 | 20 49 53 54 20 3d 20 41 | | IST = A|
|000233e0| 20 46 4c 41 47 20 49 4e | 44 49 43 41 54 49 4e 47 | FLAG IN|DICATING|
|000233f0| 3a 20 28 31 29 20 52 4f | 55 47 48 20 45 53 54 49 |: (1) RO|UGH ESTI|
|00023400| 4d 41 54 45 53 20 4f 46 | 20 54 48 45 0a 43 20 20 |MATES OF| THE.C |
|00023410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 52 45 | | RE|
|00023420| 41 43 54 41 4e 54 20 43 | 4f 4e 43 45 4e 54 52 41 |ACTANT C|ONCENTRA|
|00023430| 54 49 4f 4e 53 20 28 4f | 46 20 48 41 2c 42 2c 4d |TIONS (O|F HA,B,M|
|00023440| 2c 4e 2c 58 2c 59 2c 48 | 29 20 57 49 4c 4c 20 42 |,N,X,Y,H|) WILL B|
|00023450| 45 0a 43 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |E.C | |
|00023460| 20 20 20 52 45 54 55 52 | 4e 45 44 3b 20 4f 52 20 | RETUR|NED; OR |
|00023470| 28 32 29 20 47 4f 4f 44 | 20 45 53 54 49 4d 41 54 |(2) GOOD| ESTIMAT|
|00023480| 45 53 20 4f 46 20 41 4c | 4c 20 53 50 45 43 49 45 |ES OF AL|L SPECIE|
|00023490| 0a 43 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.C | |
|000234a0| 20 20 43 4f 4e 43 45 4e | 54 52 41 54 49 4f 4e 53 | CONCEN|TRATIONS|
|000234b0| 20 57 49 4c 4c 20 42 45 | 20 52 45 54 55 52 4e 45 | WILL BE| RETURNE|
|000234c0| 44 2e 0a 43 20 20 20 20 | 20 20 20 20 20 20 20 4a |D..C | J|
|000234d0| 20 3d 20 54 48 45 20 4e | 4f 2e 20 4f 46 20 54 48 | = THE N|O. OF TH|
|000234e0| 45 20 43 55 52 52 45 4e | 54 20 44 41 54 41 20 50 |E CURREN|T DATA P|
|000234f0| 4f 49 4e 54 2e 0a 43 20 | 20 20 20 4a 4c 28 4e 43 |OINT..C | JL(NC|
|00023500| 41 4c 29 20 3d 20 4e 4f | 2e 20 4f 46 20 4c 41 53 |AL) = NO|. OF LAS|
|00023510| 54 20 44 41 54 41 20 50 | 4f 49 4e 54 20 46 4f 52 |T DATA P|OINT FOR|
|00023520| 20 57 48 49 43 48 20 41 | 20 43 41 4c 43 55 4c 41 | WHICH A| CALCULA|
|00023530| 54 49 4f 4e 20 57 49 54 | 48 20 54 48 45 0a 43 20 |TION WIT|H THE.C |
|00023540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 43 | | C|
|00023550| 4f 52 52 45 53 50 4f 4e | 44 49 4e 47 20 4e 43 41 |ORRESPON|DING NCA|
|00023560| 4c 20 56 41 4c 55 45 20 | 57 41 53 20 50 45 52 46 |L VALUE |WAS PERF|
|00023570| 4f 52 4d 45 44 2e 0a 43 | 20 20 20 20 20 20 20 20 |ORMED..C| |
|00023580| 20 20 4d 58 20 3d 20 54 | 48 45 20 54 4f 54 41 4c | MX = T|HE TOTAL|
|00023590| 20 4e 55 4d 42 45 52 20 | 4f 46 20 53 50 45 43 49 | NUMBER |OF SPECI|
|000235a0| 45 53 20 57 48 45 4e 20 | 4e 43 41 4c 20 49 53 20 |ES WHEN |NCAL IS |
|000235b0| 31 20 4f 52 20 32 2e 20 | 20 0a 43 20 20 20 20 20 |1 OR 2. | .C |
|000235c0| 20 20 20 20 4d 41 58 20 | 3d 20 54 48 45 20 54 4f | MAX |= THE TO|
|000235d0| 54 41 4c 20 4e 55 4d 42 | 45 52 20 4f 46 20 53 50 |TAL NUMB|ER OF SP|
|000235e0| 45 43 49 45 53 20 57 48 | 45 4e 20 4e 43 41 4c 20 |ECIES WH|EN NCAL |
|000235f0| 49 53 20 33 2e 20 20 0a | 43 20 20 20 20 20 20 20 |IS 3. .|C |
|00023600| 20 20 4e 53 41 20 3d 20 | 54 48 45 20 4e 55 4d 42 | NSA = |THE NUMB|
|00023610| 45 52 20 4f 46 20 41 51 | 55 45 4f 55 53 20 50 52 |ER OF AQ|UEOUS PR|
|00023620| 4f 44 55 43 54 20 53 50 | 45 43 49 45 53 2e 0a 43 |ODUCT SP|ECIES..C|
|00023630| 20 20 20 20 20 20 20 20 | 20 4e 53 4f 20 3d 20 54 | | NSO = T|
|00023640| 48 45 20 4e 55 4d 42 45 | 52 20 4f 46 20 4e 4f 4e |HE NUMBE|R OF NON|
|00023650| 41 51 55 45 4f 55 53 20 | 50 52 4f 44 55 43 54 20 |AQUEOUS |PRODUCT |
|00023660| 53 50 45 43 49 45 53 2e | 0a 43 20 20 20 20 20 20 |SPECIES.|.C |
|00023670| 20 20 4e 43 41 4c 20 3d | 20 46 4c 41 47 20 49 4e | NCAL =| FLAG IN|
|00023680| 44 49 43 41 54 49 4e 47 | 20 54 48 45 20 4b 49 4e |DICATING| THE KIN|
|00023690| 44 20 4f 46 20 45 51 55 | 49 4c 49 42 52 49 55 4d |D OF EQU|ILIBRIUM|
|000236a0| 20 43 41 4c 43 55 4c 41 | 54 49 4f 4e 3a 0a 43 20 | CALCULA|TION:.C |
|000236b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 31 | | 1|
|000236c0| 2c 20 42 4f 54 48 20 41 | 51 2e 41 4e 44 20 4e 4f |, BOTH A|Q.AND NO|
|000236d0| 4e 41 51 2e 50 48 41 53 | 45 53 20 50 52 45 53 45 |NAQ.PHAS|ES PRESE|
|000236e0| 4e 54 3b 0a 43 20 20 20 | 20 20 20 20 20 20 20 20 |NT;.C | |
|000236f0| 20 20 20 20 20 32 2c 20 | 4f 4e 4c 59 20 4e 4f 4e | 2, |ONLY NON|
|00023700| 41 51 2e 50 48 41 53 45 | 20 50 52 45 53 45 4e 54 |AQ.PHASE| PRESENT|
|00023710| 3b 0a 43 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.C | |
|00023720| 20 20 20 33 2c 20 4f 4e | 4c 59 20 41 51 2e 50 48 | 3, ON|LY AQ.PH|
|00023730| 41 53 45 20 50 52 45 53 | 45 4e 54 0a 43 20 20 20 |ASE PRES|ENT.C |
|00023740| 20 20 20 20 20 52 4c 4b | 57 20 3d 20 4c 4f 47 20 | RLK|W = LOG |
|00023750| 4f 46 20 54 48 45 20 44 | 49 53 53 4f 43 49 41 54 |OF THE D|ISSOCIAT|
|00023760| 49 4f 4e 20 43 4f 4e 53 | 54 41 4e 54 20 4f 46 20 |ION CONS|TANT OF |
|00023770| 57 41 54 45 52 2e 0a 43 | 20 20 20 20 20 20 58 28 |WATER..C| X(|
|00023780| 49 2c 4a 29 20 3d 20 54 | 48 45 20 47 49 56 45 4e |I,J) = T|HE GIVEN|
|00023790| 20 43 4f 4e 43 2e 20 4f | 46 20 52 45 41 43 54 41 | CONC. O|F REACTA|
|000237a0| 4e 54 20 49 20 46 4f 52 | 20 50 4f 49 4e 54 20 4a |NT I FOR| POINT J|
|000237b0| 2e 0a 43 20 20 20 20 20 | 20 20 20 20 20 58 30 20 |..C | X0 |
|000237c0| 3d 20 56 41 4c 55 45 20 | 28 2d 31 30 30 29 20 41 |= VALUE |(-100) A|
|000237d0| 53 53 49 47 4e 45 44 20 | 54 4f 20 54 48 45 20 4c |SSIGNED |TO THE L|
|000237e0| 4f 47 20 4f 46 20 41 20 | 43 4f 4e 43 2e 20 54 48 |OG OF A |CONC. TH|
|000237f0| 41 54 0a 43 20 20 20 20 | 20 20 20 20 20 20 20 20 |AT.C | |
|00023800| 20 20 20 20 49 53 20 5a | 45 52 4f 2e 0a 43 20 20 | IS Z|ERO..C |
|00023810| 20 20 20 20 20 58 43 28 | 49 29 20 3d 20 54 48 45 | XC(|I) = THE|
|00023820| 20 45 53 54 49 4d 41 54 | 45 44 20 4c 4f 47 2e 45 | ESTIMAT|ED LOG.E|
|00023830| 51 2e 43 4f 4e 43 45 4e | 54 52 41 54 49 4f 4e 20 |Q.CONCEN|TRATION |
|00023840| 4f 46 20 53 50 45 43 49 | 45 53 20 49 2e 20 0a 43 |OF SPECI|ES I. .C|
|00023850| 20 20 20 20 20 20 20 20 | 58 43 41 53 20 3d 20 41 | |XCAS = A|
|00023860| 20 4c 49 4e 45 41 52 20 | 41 52 52 41 59 20 57 48 | LINEAR |ARRAY WH|
|00023870| 49 43 48 20 53 54 4f 52 | 45 53 20 54 48 45 20 58 |ICH STOR|ES THE X|
|00023880| 43 20 56 41 4c 55 45 53 | 20 4f 46 0a 43 20 20 20 |C VALUES| OF.C |
|00023890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 41 4c 4c | | ALL|
|000238a0| 20 53 50 45 43 49 45 53 | 20 43 41 4c 43 55 4c 41 | SPECIES| CALCULA|
|000238b0| 54 45 44 20 50 52 45 56 | 49 4f 55 53 4c 59 20 57 |TED PREV|IOUSLY W|
|000238c0| 48 45 4e 20 4e 43 41 4c | 3d 33 2e 0a 43 20 20 20 |HEN NCAL|=3..C |
|000238d0| 20 20 20 20 20 58 43 4f | 53 20 3d 20 41 20 4c 49 | XCO|S = A LI|
|000238e0| 4e 45 41 52 20 41 52 52 | 41 59 20 57 48 49 43 48 |NEAR ARR|AY WHICH|
|000238f0| 20 53 54 4f 52 45 53 20 | 54 48 45 20 58 43 20 56 | STORES |THE XC V|
|00023900| 41 4c 55 45 53 20 4f 46 | 0a 43 20 20 20 20 20 20 |ALUES OF|.C |
|00023910| 20 20 20 20 20 20 20 20 | 20 20 41 4c 4c 20 53 50 | | ALL SP|
|00023920| 45 43 49 45 53 20 43 41 | 4c 43 55 4c 41 54 45 44 |ECIES CA|LCULATED|
|00023930| 20 50 52 45 56 49 4f 55 | 53 4c 59 20 57 48 45 4e | PREVIOU|SLY WHEN|
|00023940| 20 4e 43 41 4c 3d 32 2e | 0a 43 20 20 20 20 20 20 | NCAL=2.|.C |
|00023950| 20 20 20 58 43 53 20 3d | 20 41 20 4c 49 4e 45 41 | XCS =| A LINEA|
|00023960| 52 20 41 52 52 41 59 20 | 57 48 49 43 48 20 53 54 |R ARRAY |WHICH ST|
|00023970| 4f 52 45 53 20 54 48 45 | 20 58 43 20 56 41 4c 55 |ORES THE| XC VALU|
|00023980| 45 53 2e 20 4f 46 0a 43 | 20 20 20 20 20 20 20 20 |ES. OF.C| |
|00023990| 20 20 20 20 20 20 20 20 | 41 4c 4c 20 53 50 45 43 | |ALL SPEC|
|000239a0| 49 45 53 20 43 41 4c 43 | 55 4c 41 54 45 44 20 50 |IES CALC|ULATED P|
|000239b0| 52 45 56 49 4f 55 53 4c | 59 20 57 48 45 4e 20 4e |REVIOUSL|Y WHEN N|
|000239c0| 43 41 4c 3d 31 2e 0a 43 | 20 20 20 20 20 58 53 28 |CAL=1..C| XS(|
|000239d0| 49 2c 4a 29 20 3d 20 54 | 48 45 20 4c 4f 47 20 4f |I,J) = T|HE LOG O|
|000239e0| 46 20 54 48 45 20 47 49 | 56 45 4e 20 43 4f 4e 43 |F THE GI|VEN CONC|
|000239f0| 2e 4f 46 20 52 45 41 43 | 54 41 4e 54 20 49 20 46 |.OF REAC|TANT I F|
|00023a00| 4f 52 20 50 4f 49 4e 54 | 20 4a 3a 0a 43 20 20 20 |OR POINT| J:.C |
|00023a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 4e 4f 54 | | NOT|
|00023a20| 45 2c 20 49 46 20 54 48 | 45 52 45 20 49 53 20 4e |E, IF TH|ERE IS N|
|00023a30| 4f 20 41 51 55 45 4f 55 | 53 20 50 48 41 53 45 2c |O AQUEOU|S PHASE,|
|00023a40| 20 49 3d 33 2d 36 20 56 | 41 4c 55 45 53 0a 43 20 | I=3-6 V|ALUES.C |
|00023a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 41 | | A|
|00023a60| 52 45 20 53 48 49 46 54 | 45 44 20 54 4f 20 38 2d |RE SHIFT|ED TO 8-|
|00023a70| 31 31 2e 20 2e 0a 43 0a | 43 0a 43 0a 43 20 20 53 |11. ..C.|C.C.C S|
|00023a80| 55 4d 4d 41 52 59 20 4f | 46 20 45 53 54 49 4d 41 |UMMARY O|F ESTIMA|
|00023a90| 54 49 4f 4e 20 50 52 4f | 43 45 44 55 52 45 0a 43 |TION PRO|CEDURE.C|
|00023aa0| 0a 43 0a 43 20 20 20 54 | 48 45 52 45 20 41 52 45 |.C.C T|HERE ARE|
|00023ab0| 20 53 49 58 20 50 4f 53 | 53 49 42 4c 45 20 57 41 | SIX POS|SIBLE WA|
|00023ac0| 59 53 20 4f 46 20 41 53 | 53 49 47 4e 49 4e 47 20 |YS OF AS|SIGNING |
|00023ad0| 56 41 4c 55 45 53 20 54 | 4f 20 58 43 28 31 29 2c |VALUES T|O XC(1),|
|00023ae0| 20 58 43 28 32 29 2e 2e | 2e 0a 43 20 20 20 58 43 | XC(2)..|..C XC|
|00023af0| 28 37 29 20 2d 2d 2d 20 | 4c 4f 47 53 20 4f 46 20 |(7) --- |LOGS OF |
|00023b00| 54 48 45 20 43 4f 4e 43 | 45 4e 54 52 41 54 49 4f |THE CONC|ENTRATIO|
|00023b10| 4e 53 20 4f 46 20 54 48 | 45 20 52 45 41 43 54 41 |NS OF TH|E REACTA|
|00023b20| 4e 54 53 20 48 41 2c 20 | 42 2c 20 4d 2c 20 4e 2c |NTS HA, |B, M, N,|
|00023b30| 0a 43 20 20 20 58 2c 20 | 59 2c 20 41 4e 44 20 48 |.C X, |Y, AND H|
|00023b40| 2c 20 52 45 53 50 45 43 | 54 49 56 45 4c 59 20 2d |, RESPEC|TIVELY -|
|00023b50| 2d 2d 20 57 48 49 43 48 | 20 4d 41 59 20 42 45 20 |-- WHICH| MAY BE |
|00023b60| 55 53 45 44 20 41 53 20 | 49 4e 49 54 49 41 4c 20 |USED AS |INITIAL |
|00023b70| 47 55 45 53 53 45 53 0a | 43 20 20 20 49 4e 20 54 |GUESSES.|C IN T|
|00023b80| 48 45 20 43 41 4c 43 55 | 4c 41 54 49 4f 4e 20 4f |HE CALCU|LATION O|
|00023b90| 46 20 45 51 55 49 4c 49 | 42 52 49 55 4d 20 43 4f |F EQUILI|BRIUM CO|
|00023ba0| 4e 43 45 4e 54 52 41 54 | 49 4f 4e 53 2e 0a 43 0a |NCENTRAT|IONS..C.|
|00023bb0| 43 0a 43 20 20 20 49 4e | 20 54 48 45 20 46 4f 4c |C.C IN| THE FOL|
|00023bc0| 4c 4f 57 49 4e 47 20 53 | 55 4d 4d 41 52 59 20 4f |LOWING S|UMMARY O|
|00023bd0| 46 20 54 48 45 53 45 20 | 41 4c 54 45 52 4e 41 54 |F THESE |ALTERNAT|
|00023be0| 49 56 45 53 20 28 57 49 | 54 48 20 4e 43 41 4c 3d |IVES (WI|TH NCAL=|
|00023bf0| 31 29 3a 0a 43 0a 43 20 | 20 20 20 20 20 20 20 20 |1):.C.C | |
|00023c00| 58 43 28 49 29 20 49 53 | 20 54 48 45 20 43 55 52 |XC(I) IS| THE CUR|
|00023c10| 52 45 4e 54 20 45 53 54 | 49 4d 41 54 45 20 4f 46 |RENT EST|IMATE OF|
|00023c20| 20 4c 4f 47 20 28 45 51 | 55 49 4c 2e 43 4f 4e 43 | LOG (EQ|UIL.CONC|
|00023c30| 2e 29 20 4f 46 20 52 45 | 41 43 54 41 4e 54 0a 43 |.) OF RE|ACTANT.C|
|00023c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 53 | | S|
|00023c50| 50 45 43 49 45 53 20 49 | 2e 09 09 09 09 09 09 09 |PECIES I|........|
|00023c60| 09 09 09 0a 43 0a 43 20 | 20 20 20 20 20 20 20 58 |....C.C | X|
|00023c70| 28 49 2c 4a 29 20 49 53 | 20 54 48 45 20 54 4f 54 |(I,J) IS| THE TOT|
|00023c80| 41 4c 20 43 4f 4e 43 45 | 4e 54 52 41 54 49 4f 4e |AL CONCE|NTRATION|
|00023c90| 20 4f 46 20 52 45 41 43 | 54 41 4e 54 20 49 20 53 | OF REAC|TANT I S|
|00023ca0| 55 50 50 4c 49 45 44 20 | 41 53 20 49 4e 50 55 54 |UPPLIED |AS INPUT|
|00023cb0| 20 44 41 54 41 0a 43 20 | 20 20 20 20 20 20 20 20 | DATA.C | |
|00023cc0| 20 20 20 20 20 20 46 4f | 52 20 54 48 45 20 43 55 | FO|R THE CU|
|00023cd0| 52 52 45 4e 54 20 50 4f | 49 4e 54 0a 43 0a 43 20 |RRENT PO|INT.C.C |
|00023ce0| 20 20 20 20 20 20 58 53 | 28 49 2c 4a 29 20 49 53 | XS|(I,J) IS|
|00023cf0| 20 4c 4f 47 20 28 58 28 | 49 2c 4a 29 29 0a 43 0a | LOG (X(|I,J)).C.|
|00023d00| 43 20 20 20 20 20 20 20 | 58 53 28 49 2c 4b 29 20 |C |XS(I,K) |
|00023d10| 49 53 20 4c 4f 47 20 28 | 58 28 49 2c 4b 29 29 20 |IS LOG (|X(I,K)) |
|00023d20| 46 4f 52 20 41 20 50 52 | 45 56 49 4f 55 53 20 50 |FOR A PR|EVIOUS P|
|00023d30| 4f 49 4e 54 2e 0a 43 0a | 43 20 20 20 20 20 20 20 |OINT..C.|C |
|00023d40| 58 53 28 49 2c 4c 29 20 | 49 53 20 4c 4f 47 20 28 |XS(I,L) |IS LOG (|
|00023d50| 58 28 49 2c 4c 29 29 20 | 46 4f 52 20 41 4e 4f 54 |X(I,L)) |FOR ANOT|
|00023d60| 48 45 52 20 50 52 45 56 | 49 4f 55 53 20 50 4f 49 |HER PREV|IOUS POI|
|00023d70| 4e 54 2e 0a 43 0a 43 20 | 20 20 20 20 20 58 43 53 |NT..C.C | XCS|
|00023d80| 28 49 2c 4a 29 20 49 53 | 20 54 48 45 20 4c 4f 47 |(I,J) IS| THE LOG|
|00023d90| 20 28 45 51 55 49 4c 2e | 43 4f 4e 43 2e 29 20 4f | (EQUIL.|CONC.) O|
|00023da0| 46 20 49 20 46 52 4f 4d | 20 41 20 50 52 45 56 49 |F I FROM| A PREVI|
|00023db0| 4f 55 53 20 43 41 4c 43 | 55 4c 41 54 49 4f 4e 0a |OUS CALC|ULATION.|
|00023dc0| 43 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |C | |
|00023dd0| 20 4f 46 20 54 48 45 20 | 43 55 52 52 45 4e 54 20 | OF THE |CURRENT |
|00023de0| 50 4f 49 4e 54 2e 0a 43 | 0a 43 20 20 20 20 20 20 |POINT..C|.C |
|00023df0| 58 43 53 28 49 2c 4b 29 | 20 49 53 20 54 48 45 20 |XCS(I,K)| IS THE |
|00023e00| 4c 4f 47 20 28 45 51 55 | 49 4c 2e 43 4f 4e 43 2e |LOG (EQU|IL.CONC.|
|00023e10| 29 20 4f 46 20 49 20 46 | 4f 52 20 41 20 50 52 45 |) OF I F|OR A PRE|
|00023e20| 56 49 4f 55 53 20 50 4f | 49 4e 54 2e 0a 43 0a 43 |VIOUS PO|INT..C.C|
|00023e30| 20 20 20 20 20 20 58 43 | 53 28 49 2c 4c 29 20 49 | XC|S(I,L) I|
|00023e40| 53 20 54 48 45 20 4c 4f | 47 20 28 45 51 55 49 4c |S THE LO|G (EQUIL|
|00023e50| 2e 43 4f 4e 43 2e 29 20 | 4f 46 20 49 20 46 4f 52 |.CONC.) |OF I FOR|
|00023e60| 20 41 4e 4f 54 48 45 52 | 20 50 52 45 56 49 4f 55 | ANOTHER| PREVIOU|
|00023e70| 53 20 50 4f 49 4e 54 2e | 0a 43 0a 43 0a 43 20 20 |S POINT.|.C.C.C |
|00023e80| 20 54 48 45 20 41 4c 54 | 45 52 4e 41 54 49 56 45 | THE ALT|ERNATIVE|
|00023e90| 20 57 41 59 53 20 4f 46 | 20 41 53 53 49 47 4e 49 | WAYS OF| ASSIGNI|
|00023ea0| 4e 47 20 56 41 4c 55 45 | 53 20 54 4f 20 58 43 28 |NG VALUE|S TO XC(|
|00023eb0| 49 29 20 41 52 45 3a 0a | 43 0a 43 20 20 20 28 31 |I) ARE:.|C.C (1|
|00023ec0| 29 20 41 4e 20 45 51 55 | 49 4c 49 42 52 49 55 4d |) AN EQU|ILIBRIUM|
|00023ed0| 20 56 41 4c 55 45 20 49 | 53 20 41 53 53 49 47 4e | VALUE I|S ASSIGN|
|00023ee0| 45 44 20 46 52 4f 4d 20 | 41 20 50 52 45 56 49 4f |ED FROM |A PREVIO|
|00023ef0| 55 53 20 43 41 4c 43 55 | 4c 41 54 49 4f 4e 20 4f |US CALCU|LATION O|
|00023f00| 46 0a 43 20 20 20 20 20 | 20 20 54 48 45 20 53 41 |F.C | THE SA|
|00023f10| 4d 45 20 44 41 54 41 20 | 50 4f 49 4e 54 20 28 4a |ME DATA |POINT (J|
|00023f20| 29 20 4f 52 20 41 4e 4f | 54 48 45 52 20 57 49 54 |) OR ANO|THER WIT|
|00023f30| 48 20 54 48 45 20 53 41 | 4d 45 20 43 4f 4d 50 4f |H THE SA|ME COMPO|
|00023f40| 53 49 54 49 4f 4e 2e 0a | 43 0a 43 20 20 20 20 20 |SITION..|C.C |
|00023f50| 20 20 20 20 58 43 28 49 | 29 20 3d 20 58 43 53 28 | XC(I|) = XCS(|
|00023f60| 49 2c 4a 29 0a 43 0a 43 | 20 20 20 20 20 20 20 54 |I,J).C.C| T|
|00023f70| 48 49 53 20 41 4c 54 45 | 52 4e 41 54 49 56 45 20 |HIS ALTE|RNATIVE |
|00023f80| 49 53 20 55 53 45 44 20 | 49 46 20 54 48 45 20 50 |IS USED |IF THE P|
|00023f90| 52 45 56 49 4f 55 53 20 | 43 41 4c 43 55 4c 41 54 |REVIOUS |CALCULAT|
|00023fa0| 49 4f 4e 20 49 4e 56 4f | 4c 56 45 44 0a 43 20 20 |ION INVO|LVED.C |
|00023fb0| 20 20 20 20 20 41 44 4a | 55 53 54 41 42 4c 45 20 | ADJ|USTABLE |
|00023fc0| 50 41 52 41 4d 45 54 45 | 52 53 20 57 49 54 48 20 |PARAMETE|RS WITH |
|00023fd0| 53 49 4d 49 4c 41 52 20 | 56 41 4c 55 45 53 2e 20 |SIMILAR |VALUES. |
|00023fe0| 28 49 4e 20 54 48 49 53 | 20 43 41 53 45 2c 0a 43 |(IN THIS| CASE,.C|
|00023ff0| 20 20 20 20 20 20 20 45 | 53 54 49 4d 41 54 45 53 | E|STIMATES|
|00024000| 20 4f 46 20 54 48 45 20 | 43 4f 4e 43 45 4e 54 52 | OF THE |CONCENTR|
|00024010| 41 54 49 4f 4e 53 20 4f | 46 20 50 52 4f 44 55 43 |ATIONS O|F PRODUC|
|00024020| 54 20 53 50 45 43 49 45 | 53 20 41 52 45 20 41 4c |T SPECIE|S ARE AL|
|00024030| 53 4f 0a 43 20 20 20 20 | 20 20 20 41 53 53 49 47 |SO.C | ASSIG|
|00024040| 4e 45 44 29 2e 0a 43 0a | 43 20 20 20 28 32 29 20 |NED)..C.|C (2) |
|00024050| 41 4e 20 45 51 55 49 4c | 49 42 52 49 55 4d 20 56 |AN EQUIL|IBRIUM V|
|00024060| 41 4c 55 45 20 49 53 20 | 41 53 53 49 47 4e 45 44 |ALUE IS |ASSIGNED|
|00024070| 20 46 52 4f 4d 20 49 4e | 50 55 54 20 44 41 54 41 | FROM IN|PUT DATA|
|00024080| 2e 0a 43 0a 43 20 20 20 | 20 20 20 20 20 20 58 43 |..C.C | XC|
|00024090| 28 49 29 20 3d 20 4c 4f | 47 20 5b 58 28 49 2c 4a |(I) = LO|G [X(I,J|
|000240a0| 29 5d 0a 43 0a 43 20 20 | 20 20 20 20 20 54 48 49 |)].C.C | THI|
|000240b0| 53 20 41 4c 54 45 52 4e | 41 54 49 56 45 20 49 53 |S ALTERN|ATIVE IS|
|000240c0| 20 55 53 45 44 20 57 48 | 45 4e 20 45 51 55 49 4c | USED WH|EN EQUIL|
|000240d0| 49 42 52 49 55 4d 20 54 | 4f 54 41 4c 20 43 4f 4e |IBRIUM T|OTAL CON|
|000240e0| 43 45 4e 54 52 41 54 49 | 4f 4e 53 20 41 52 45 0a |CENTRATI|ONS ARE.|
|000240f0| 43 20 20 20 20 20 20 20 | 53 55 50 50 4c 49 45 44 |C |SUPPLIED|
|00024100| 20 46 4f 52 20 54 48 45 | 20 41 51 55 45 4f 55 53 | FOR THE| AQUEOUS|
|00024110| 20 53 50 45 43 49 45 53 | 20 4d 2c 20 4e 2c 20 58 | SPECIES| M, N, X|
|00024120| 2c 20 59 2c 20 41 4e 44 | 20 48 2c 20 41 4e 44 20 |, Y, AND| H, AND |
|00024130| 4e 4f 20 41 51 2e 0a 43 | 20 20 20 20 20 20 20 50 |NO AQ..C| P|
|00024140| 52 4f 44 55 43 54 20 53 | 50 45 43 49 45 53 20 41 |RODUCT S|PECIES A|
|00024150| 52 45 20 46 4f 52 4d 45 | 44 2e 0a 43 20 20 20 20 |RE FORME|D..C |
|00024160| 20 20 20 0a 43 20 20 20 | 28 33 29 20 41 20 56 41 | .C |(3) A VA|
|00024170| 4c 55 45 20 49 53 20 41 | 53 53 49 47 4e 45 44 20 |LUE IS A|SSIGNED |
|00024180| 53 49 47 4e 49 46 59 49 | 4e 47 20 54 48 41 54 20 |SIGNIFYI|NG THAT |
|00024190| 54 48 45 20 43 4f 4e 43 | 45 4e 54 52 41 54 49 4f |THE CONC|ENTRATIO|
|000241a0| 4e 20 57 49 4c 4c 20 42 | 45 20 48 45 4c 44 0a 43 |N WILL B|E HELD.C|
|000241b0| 20 20 20 20 20 20 20 41 | 54 20 5a 45 52 4f 2e 0a | A|T ZERO..|
|000241c0| 43 0a 43 20 20 20 20 20 | 20 20 20 20 58 43 28 49 |C.C | XC(I|
|000241d0| 29 20 3d 20 58 30 20 20 | 20 20 20 20 20 20 20 20 |) = X0 | |
|000241e0| 20 20 20 20 20 20 28 57 | 48 45 52 45 20 58 30 20 | (W|HERE X0 |
|000241f0| 3d 20 2d 31 30 30 29 0a | 43 0a 43 20 20 20 20 20 |= -100).|C.C |
|00024200| 20 20 54 48 49 53 20 41 | 4c 54 45 52 4e 41 54 49 | THIS A|LTERNATI|
|00024210| 56 45 20 49 53 20 55 53 | 45 44 20 49 46 20 54 48 |VE IS US|ED IF TH|
|00024220| 45 20 43 4f 52 52 45 53 | 50 4f 4e 44 49 4e 47 20 |E CORRES|PONDING |
|00024230| 52 45 41 43 54 41 4e 54 | 20 49 53 20 41 42 53 45 |REACTANT| IS ABSE|
|00024240| 4e 54 2e 0a 43 0a 43 20 | 20 20 28 34 29 20 41 20 |NT..C.C | (4) A |
|00024250| 56 41 4c 55 45 20 49 53 | 20 41 53 53 49 47 4e 45 |VALUE IS| ASSIGNE|
|00024260| 44 20 43 4f 52 52 45 53 | 50 4f 4e 44 49 4e 47 20 |D CORRES|PONDING |
|00024270| 54 4f 20 48 41 4c 46 20 | 54 48 45 20 54 4f 54 41 |TO HALF |THE TOTA|
|00024280| 4c 20 52 45 41 43 54 41 | 4e 54 0a 43 20 20 20 20 |L REACTA|NT.C |
|00024290| 20 20 20 43 4f 4e 43 45 | 4e 54 52 41 54 49 4f 4e | CONCE|NTRATION|
|000242a0| 2e 0a 43 0a 43 20 20 20 | 20 20 20 20 20 20 58 43 |..C.C | XC|
|000242b0| 28 49 29 20 3d 20 58 53 | 28 49 2c 4a 29 20 2d 20 |(I) = XS|(I,J) - |
|000242c0| 44 58 53 20 20 20 20 20 | 28 57 48 45 52 45 20 44 |DXS |(WHERE D|
|000242d0| 58 53 20 3d 20 30 2e 33 | 29 0a 43 0a 43 20 20 20 |XS = 0.3|).C.C |
|000242e0| 20 20 20 20 54 48 49 53 | 20 41 4c 54 45 52 4e 41 | THIS| ALTERNA|
|000242f0| 54 49 56 45 20 49 53 20 | 55 53 45 44 20 49 46 20 |TIVE IS |USED IF |
|00024300| 54 48 45 20 52 45 41 43 | 54 41 4e 54 20 49 53 20 |THE REAC|TANT IS |
|00024310| 50 52 45 53 45 4e 54 2c | 20 42 55 54 20 4e 4f 20 |PRESENT,| BUT NO |
|00024320| 4f 54 48 45 52 0a 43 20 | 20 20 20 20 20 20 49 4e |OTHER.C | IN|
|00024330| 46 4f 52 4d 41 54 49 4f | 4e 20 49 53 20 41 56 41 |FORMATIO|N IS AVA|
|00024340| 49 4c 41 42 4c 45 20 46 | 52 4f 4d 20 50 52 45 56 |ILABLE F|ROM PREV|
|00024350| 49 4f 55 53 4c 59 20 43 | 41 4c 43 55 4c 41 54 45 |IOUSLY C|ALCULATE|
|00024360| 44 20 50 4f 49 4e 54 53 | 2e 0a 43 0a 43 20 20 20 |D POINTS|..C.C |
|00024370| 28 35 29 20 41 20 56 41 | 4c 55 45 20 49 53 20 41 |(5) A VA|LUE IS A|
|00024380| 53 53 49 47 4e 45 44 20 | 42 59 20 45 58 54 52 41 |SSIGNED |BY EXTRA|
|00024390| 50 4f 4c 41 54 49 4f 4e | 20 46 52 4f 4d 20 54 48 |POLATION| FROM TH|
|000243a0| 45 20 45 51 55 49 4c 49 | 42 52 49 55 4d 20 56 41 |E EQUILI|BRIUM VA|
|000243b0| 4c 55 45 0a 43 20 20 20 | 20 20 20 20 46 4f 55 4e |LUE.C | FOUN|
|000243c0| 44 20 46 4f 52 20 41 20 | 50 52 45 56 49 4f 55 53 |D FOR A |PREVIOUS|
|000243d0| 20 50 4f 49 4e 54 2e 20 | 20 54 48 45 20 45 58 54 | POINT. | THE EXT|
|000243e0| 52 41 50 4f 4c 41 54 49 | 4f 4e 20 49 53 20 42 41 |RAPOLATI|ON IS BA|
|000243f0| 53 45 44 20 4f 4e 20 54 | 48 45 0a 43 20 20 20 20 |SED ON T|HE.C |
|00024400| 20 20 20 44 49 46 46 45 | 52 45 4e 43 45 20 58 53 | DIFFE|RENCE XS|
|00024410| 28 49 2c 4a 29 2d 58 53 | 28 4a 2c 4b 29 2e 0a 43 |(I,J)-XS|(J,K)..C|
|00024420| 0a 43 20 20 20 20 20 20 | 20 20 20 58 43 28 49 29 |.C | XC(I)|
|00024430| 20 3d 20 58 43 53 28 49 | 2c 4b 29 20 2b 20 58 53 | = XCS(I|,K) + XS|
|00024440| 28 49 2c 4a 29 2d 58 53 | 28 4a 2c 4b 29 0a 43 0a |(I,J)-XS|(J,K).C.|
|00024450| 43 20 20 20 20 20 20 20 | 54 48 49 53 20 41 4c 54 |C |THIS ALT|
|00024460| 45 52 4e 41 54 49 56 45 | 20 49 53 20 55 53 45 44 |ERNATIVE| IS USED|
|00024470| 20 49 46 20 54 48 45 52 | 45 20 49 53 20 4f 4e 4c | IF THER|E IS ONL|
|00024480| 59 20 4f 4e 45 20 50 52 | 45 56 49 4f 55 53 20 50 |Y ONE PR|EVIOUS P|
|00024490| 4f 49 4e 54 20 28 4b 29 | 0a 43 20 20 20 20 20 20 |OINT (K)|.C |
|000244a0| 20 54 48 41 54 20 49 53 | 20 53 55 49 54 41 42 4c | THAT IS| SUITABL|
|000244b0| 45 20 41 4e 44 20 49 46 | 20 52 45 41 43 54 41 4e |E AND IF| REACTAN|
|000244c0| 54 20 49 20 49 53 20 50 | 52 45 53 45 4e 54 20 49 |T I IS P|RESENT I|
|000244d0| 4e 20 42 4f 54 48 20 50 | 4f 49 4e 54 53 20 4a 0a |N BOTH P|OINTS J.|
|000244e0| 43 20 20 20 20 20 20 20 | 41 4e 44 20 4b 2e 0a 43 |C |AND K..C|
|000244f0| 20 0a 43 20 20 20 28 36 | 29 20 41 20 56 41 4c 55 | .C (6|) A VALU|
|00024500| 45 20 49 53 20 41 53 53 | 49 47 4e 45 44 20 42 59 |E IS ASS|IGNED BY|
|00024510| 20 45 58 54 52 41 50 4f | 4c 41 54 49 4f 4e 20 4f | EXTRAPO|LATION O|
|00024520| 52 20 49 4e 54 45 52 50 | 4f 4c 41 54 49 4f 4e 20 |R INTERP|OLATION |
|00024530| 46 52 4f 4d 20 0a 43 20 | 20 20 20 20 20 20 45 51 |FROM .C | EQ|
|00024540| 55 49 4c 49 42 52 49 55 | 4d 20 56 41 4c 55 45 53 |UILIBRIU|M VALUES|
|00024550| 20 46 4f 52 20 54 57 4f | 20 53 55 49 54 41 42 4c | FOR TWO| SUITABL|
|00024560| 45 20 50 52 45 56 49 4f | 55 53 20 50 4f 49 4e 54 |E PREVIO|US POINT|
|00024570| 53 2e 0a 43 0a 43 20 20 | 20 20 20 20 20 20 20 58 |S..C.C | X|
|00024580| 43 28 49 29 20 3d 20 58 | 43 53 28 49 2c 4b 29 20 |C(I) = X|CS(I,K) |
|00024590| 2b 20 5b 28 58 43 53 28 | 49 2c 4b 29 20 2d 20 58 |+ [(XCS(|I,K) - X|
|000245a0| 43 53 28 49 2c 4c 29 5d | 20 2a 20 46 54 52 4d 0a |CS(I,L)]| * FTRM.|
|000245b0| 43 0a 43 20 20 20 20 20 | 20 20 57 48 45 52 45 0a |C.C | WHERE.|
|000245c0| 43 0a 43 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |C.C | |
|000245d0| 20 20 20 20 20 20 20 53 | 55 4d 20 5b 28 58 53 28 | S|UM [(XS(|
|000245e0| 4d 2c 4a 29 2d 58 53 28 | 4d 2c 4b 29 5d 2a 2a 32 |M,J)-XS(|M,K)]**2|
|000245f0| 0a 43 20 20 20 20 20 20 | 20 20 20 46 54 52 4d 2a |.C | FTRM*|
|00024600| 2a 32 20 3d 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |*2 = ---|--------|
|00024610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00024620| 2d 20 20 0a 43 20 20 20 | 20 20 20 20 20 20 20 20 |- .C | |
|00024630| 20 20 20 20 20 20 20 20 | 20 53 55 4d 20 5b 28 58 | | SUM [(X|
|00024640| 53 28 4d 2c 4b 29 2d 58 | 53 28 4d 2c 4c 29 5d 2a |S(M,K)-X|S(M,L)]*|
|00024650| 2a 32 0a 43 0a 43 20 20 | 20 20 20 20 20 28 45 41 |*2.C.C | (EA|
|00024660| 43 48 20 53 55 4d 4d 41 | 54 49 4f 4e 20 49 4e 43 |CH SUMMA|TION INC|
|00024670| 4c 55 44 45 53 20 4f 4e | 4c 59 20 54 48 4f 53 45 |LUDES ON|LY THOSE|
|00024680| 20 54 45 52 4d 53 20 49 | 4e 20 57 48 49 43 48 20 | TERMS I|N WHICH |
|00024690| 52 45 41 43 54 41 4e 54 | 20 4d 0a 43 20 20 20 20 |REACTANT| M.C |
|000246a0| 20 20 20 2c 49 2e 45 2e | 2c 20 48 41 2c 20 42 2c | ,I.E.|, HA, B,|
|000246b0| 20 4d 2c 20 4e 2c 20 58 | 2c 20 59 2c 20 4f 52 20 | M, N, X|, Y, OR |
|000246c0| 48 2c 20 49 53 20 50 52 | 45 53 45 4e 54 20 49 4e |H, IS PR|ESENT IN|
|000246d0| 20 42 4f 54 48 20 50 4f | 49 4e 54 53 2e 29 0a 43 | BOTH PO|INTS.).C|
|000246e0| 0a 43 20 20 20 20 20 20 | 20 54 48 49 53 20 41 4c |.C | THIS AL|
|000246f0| 54 45 52 4e 41 54 49 56 | 45 20 49 53 20 55 53 45 |TERNATIV|E IS USE|
|00024700| 44 20 49 46 20 4d 4f 52 | 45 20 54 48 41 4e 20 4f |D IF MOR|E THAN O|
|00024710| 4e 45 20 50 4f 49 4e 54 | 20 49 53 20 41 56 41 49 |NE POINT| IS AVAI|
|00024720| 4c 41 42 4c 45 0a 43 20 | 20 20 20 20 20 20 49 4e |LABLE.C | IN|
|00024730| 20 57 48 49 43 48 20 54 | 48 45 20 43 4f 4e 43 45 | WHICH T|HE CONCE|
|00024740| 4e 54 52 41 54 49 4f 4e | 20 4f 46 20 52 45 41 43 |NTRATION| OF REAC|
|00024750| 54 41 4e 54 20 49 20 49 | 53 20 46 49 4e 49 54 45 |TANT I I|S FINITE|
|00024760| 2e 20 20 57 48 45 4e 20 | 4d 4f 52 45 0a 43 20 20 |. WHEN |MORE.C |
|00024770| 20 20 20 20 20 54 48 41 | 4e 20 54 57 4f 20 53 55 | THA|N TWO SU|
|00024780| 43 48 20 50 4f 49 4e 54 | 53 20 41 52 45 20 41 56 |CH POINT|S ARE AV|
|00024790| 41 49 4c 41 42 4c 45 2c | 20 54 48 4f 53 45 20 57 |AILABLE,| THOSE W|
|000247a0| 49 54 48 20 43 4f 4d 50 | 4f 53 49 54 49 4f 4e 53 |ITH COMP|OSITIONS|
|000247b0| 0a 43 20 20 20 20 20 20 | 20 43 4c 4f 53 45 53 54 |.C | CLOSEST|
|000247c0| 20 54 4f 20 54 48 45 20 | 43 55 52 52 45 4e 54 20 | TO THE |CURRENT |
|000247d0| 50 4f 49 4e 54 20 41 52 | 45 20 53 45 4c 45 43 54 |POINT AR|E SELECT|
|000247e0| 45 44 2e 0a 43 0a 43 0a | 43 20 20 20 28 49 46 20 |ED..C.C.|C (IF |
|000247f0| 4e 43 41 4c 3d 32 20 4f | 52 20 4e 43 41 4c 3d 33 |NCAL=2 O|R NCAL=3|
|00024800| 20 58 43 53 20 49 53 20 | 52 45 50 4c 41 43 45 44 | XCS IS |REPLACED|
|00024810| 20 41 42 4f 56 45 20 42 | 59 20 58 43 4f 53 20 4f | ABOVE B|Y XCOS O|
|00024820| 52 20 58 43 41 53 2c 0a | 43 20 20 20 20 52 45 53 |R XCAS,.|C RES|
|00024830| 50 45 43 54 49 56 45 4c | 59 2e 29 0a 43 0a 43 0a |PECTIVEL|Y.).C.C.|
|00024840| 43 0a 20 20 20 20 20 20 | 53 55 42 52 4f 55 54 49 |C. |SUBROUTI|
|00024850| 4e 45 20 45 53 54 28 58 | 2c 58 53 2c 58 43 53 2c |NE EST(X|,XS,XCS,|
|00024860| 58 43 4f 53 2c 58 43 41 | 53 2c 58 43 2c 49 50 54 |XCOS,XCA|S,XC,IPT|
|00024870| 2c 49 44 43 2c 49 43 4f | 4e 56 2c 4e 43 41 4c 2c |,IDC,ICO|NV,NCAL,|
|00024880| 49 53 54 2c 0a 20 20 20 | 20 20 26 49 45 51 2c 49 |IST,. | &IEQ,I|
|00024890| 45 48 29 09 09 09 09 09 | 09 09 09 09 0a 20 20 20 |EH).....|..... |
|000248a0| 20 20 20 49 4d 50 4c 49 | 43 49 54 20 52 45 41 4c | IMPLI|CIT REAL|
|000248b0| 2a 38 28 41 2d 48 2c 4f | 2d 5a 29 0a 20 20 20 20 |*8(A-H,O|-Z). |
|000248c0| 20 20 53 41 56 45 0a 20 | 20 20 20 20 20 44 49 4d | SAVE. | DIM|
|000248d0| 45 4e 53 49 4f 4e 20 58 | 28 31 30 2c 2a 29 2c 58 |ENSION X|(10,*),X|
|000248e0| 53 28 31 31 2c 2a 29 2c | 58 43 4f 53 28 2a 29 2c |S(11,*),|XCOS(*),|
|000248f0| 58 43 53 28 2a 29 2c 58 | 43 41 53 28 2a 29 2c 58 |XCS(*),X|CAS(*),X|
|00024900| 43 28 2a 29 2c 4a 4c 28 | 33 29 0a 20 20 20 20 20 |C(*),JL(|3). |
|00024910| 20 43 4f 4d 4d 4f 4e 2f | 44 54 2f 54 43 2c 4e 4f | COMMON/|DT/TC,NO|
|00024920| 2c 4e 4f 46 2c 49 43 4e | 52 20 20 20 20 20 20 0a |,NOF,ICN|R .|
|00024930| 20 20 20 20 20 20 43 4f | 4d 4d 4f 4e 2f 4d 44 2f | CO|MMON/MD/|
|00024940| 4e 53 4f 2c 4e 43 42 4f | 2c 49 52 45 46 2c 4e 50 |NSO,NCBO|,IREF,NP|
|00024950| 48 2c 4e 50 41 2c 4e 53 | 41 2c 4e 49 4f 2c 4e 49 |H,NPA,NS|A,NIO,NI|
|00024960| 41 2c 4e 43 41 2c 4e 41 | 4e 2c 4e 4e 55 2c 4e 55 |A,NCA,NA|N,NNU,NU|
|00024970| 50 2c 4e 55 4d 0a 20 20 | 20 20 20 20 43 4f 4d 4d |P,NUM. | COMM|
|00024980| 4f 4e 2f 57 54 52 2f 50 | 30 2c 44 57 2c 44 43 2c |ON/WTR/P|0,DW,DC,|
|00024990| 41 50 2c 52 4c 4b 57 20 | 20 20 20 20 20 0a 20 20 |AP,RLKW | . |
|000249a0| 20 20 20 20 43 4f 4d 4d | 4f 4e 2f 45 4e 54 53 2f | COMM|ON/ENTS/|
|000249b0| 4a 45 4e 54 0a 20 20 20 | 20 20 20 44 41 54 41 20 |JENT. | DATA |
|000249c0| 4a 4c 2c 58 30 2c 44 58 | 4d 2c 44 58 53 2f 30 2c |JL,X0,DX|M,DXS/0,|
|000249d0| 30 2c 30 2c 2d 31 30 30 | 44 2b 30 2c 31 2e 30 44 |0,0,-100|D+0,1.0D|
|000249e0| 2d 38 2c 30 2e 33 44 2b | 30 30 2f 0a 20 20 20 20 |-8,0.3D+|00/. |
|000249f0| 20 20 44 41 54 41 20 5a | 45 52 4f 2c 4f 4e 45 2c | DATA Z|ERO,ONE,|
|00024a00| 54 45 4e 2f 30 2e 30 44 | 2b 30 2c 31 2e 30 44 2b |TEN/0.0D|+0,1.0D+|
|00024a10| 30 2c 31 30 2e 30 44 2b | 30 2f 0a 43 20 20 44 45 |0,10.0D+|0/.C DE|
|00024a20| 46 49 4e 45 20 46 55 4e | 43 54 49 4f 4e 53 20 54 |FINE FUN|CTIONS T|
|00024a30| 48 41 54 20 4c 4f 43 41 | 54 45 20 50 4f 53 49 54 |HAT LOCA|TE POSIT|
|00024a40| 49 4f 4e 53 20 49 4e 20 | 41 52 52 41 59 53 20 58 |IONS IN |ARRAYS X|
|00024a50| 43 53 2c 20 58 43 4f 53 | 2c 20 0a 43 20 20 20 41 |CS, XCOS|, .C A|
|00024a60| 4e 44 20 58 43 41 53 20 | 20 20 20 20 20 20 20 20 |ND XCAS | |
|00024a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00024a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00024a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00024aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 09 | | .|
|00024ab0| 09 09 09 09 09 09 09 09 | 09 0a 20 20 20 20 20 20 |........|.. |
|00024ac0| 49 46 4e 28 49 2c 4a 29 | 3d 28 38 2b 4e 53 4f 2b |IFN(I,J)|=(8+NSO+|
|00024ad0| 4e 53 41 29 2a 28 4a 2d | 31 29 2b 49 0a 20 20 20 |NSA)*(J-|1)+I. |
|00024ae0| 20 20 20 49 46 41 4e 28 | 49 2c 4a 29 3d 28 36 2b | IFAN(|I,J)=(6+|
|00024af0| 4e 53 41 29 2a 28 4a 2d | 31 29 2b 49 2d 32 0a 20 |NSA)*(J-|1)+I-2. |
|00024b00| 20 20 20 20 20 49 46 28 | 4a 45 4e 54 2e 45 51 2e | IF(|JENT.EQ.|
|00024b10| 30 29 20 54 48 45 4e 0a | 43 20 20 20 20 20 20 54 |0) THEN.|C T|
|00024b20| 48 49 53 20 49 53 20 54 | 48 45 20 46 49 52 53 54 |HIS IS T|HE FIRST|
|00024b30| 20 45 4e 54 52 59 20 49 | 4e 54 4f 20 45 53 54 0a | ENTRY I|NTO EST.|
|00024b40| 43 20 20 20 20 20 20 45 | 4e 54 45 52 20 58 30 20 |C E|NTER X0 |
|00024b50| 49 4e 54 4f 20 41 52 52 | 41 59 53 20 58 43 53 2c |INTO ARR|AYS XCS,|
|00024b60| 20 58 43 4f 53 2c 20 41 | 4e 44 20 58 43 41 53 20 | XCOS, A|ND XCAS |
|00024b70| 20 20 20 20 20 0a 20 20 | 20 20 20 20 20 20 4d 58 | . | MX|
|00024b80| 3d 38 2b 4e 53 4f 2b 4e | 53 41 0a 20 20 20 20 20 |=8+NSO+N|SA. |
|00024b90| 20 20 20 44 4f 20 35 20 | 49 3d 31 2c 28 4d 58 2a | DO 5 |I=1,(MX*|
|00024ba0| 4e 4f 29 0a 20 20 20 20 | 20 20 20 20 58 43 53 28 |NO). | XCS(|
|00024bb0| 49 29 3d 58 30 0a 20 20 | 20 20 20 20 20 20 58 43 |I)=X0. | XC|
|00024bc0| 4f 53 28 49 29 3d 58 30 | 0a 35 20 20 20 20 20 20 |OS(I)=X0|.5 |
|00024bd0| 20 43 4f 4e 54 49 4e 55 | 45 0a 20 20 20 20 20 20 | CONTINU|E. |
|00024be0| 20 20 4d 41 58 3d 36 2b | 4e 53 41 0a 20 20 20 20 | MAX=6+|NSA. |
|00024bf0| 20 20 20 20 44 4f 20 31 | 30 20 49 3d 31 2c 28 4d | DO 1|0 I=1,(M|
|00024c00| 41 58 2a 4e 4f 29 0a 20 | 20 20 20 20 20 20 20 58 |AX*NO). | X|
|00024c10| 43 41 53 28 49 29 3d 58 | 30 0a 31 30 20 20 20 20 |CAS(I)=X|0.10 |
|00024c20| 20 20 43 4f 4e 54 49 4e | 55 45 0a 20 20 20 20 20 | CONTIN|UE. |
|00024c30| 20 20 20 52 45 54 55 52 | 4e 0a 20 20 20 20 20 20 | RETUR|N. |
|00024c40| 45 4e 44 20 49 46 0a 20 | 20 20 20 20 20 4a 3d 49 |END IF. | J=I|
|00024c50| 50 54 0a 43 20 20 44 45 | 46 49 4e 45 20 4c 49 4d |PT.C DE|FINE LIM|
|00024c60| 49 54 53 20 4f 46 20 53 | 50 45 43 49 45 20 49 4e |ITS OF S|PECIE IN|
|00024c70| 44 49 43 45 53 0a 20 20 | 20 20 20 20 49 46 28 4e |DICES. | IF(N|
|00024c80| 43 41 4c 2e 45 51 2e 33 | 29 20 54 48 45 4e 0a 43 |CAL.EQ.3|) THEN.C|
|00024c90| 20 20 20 20 20 20 54 48 | 45 20 4e 4f 4e 41 51 55 | TH|E NONAQU|
|00024ca0| 45 4f 55 53 20 50 48 41 | 53 45 20 49 53 20 45 58 |EOUS PHA|SE IS EX|
|00024cb0| 43 4c 55 44 45 44 0a 20 | 20 20 20 20 20 20 20 49 |CLUDED. | I|
|00024cc0| 4c 31 3d 33 0a 09 49 4c | 32 3d 39 2b 4e 53 4f 0a |L1=3..IL|2=9+NSO.|
|00024cd0| 20 20 20 20 20 20 45 4e | 44 20 49 46 0a 20 20 20 | EN|D IF. |
|00024ce0| 20 20 20 49 46 28 4e 43 | 41 4c 2e 4c 54 2e 33 29 | IF(NC|AL.LT.3)|
|00024cf0| 20 54 48 45 4e 0a 43 20 | 20 20 20 20 20 54 48 45 | THEN.C | THE|
|00024d00| 20 4e 4f 4e 41 51 55 45 | 4f 55 53 20 50 48 41 53 | NONAQUE|OUS PHAS|
|00024d10| 45 20 49 53 20 50 52 45 | 53 45 4e 54 0a 20 20 20 |E IS PRE|SENT. |
|00024d20| 20 20 20 20 20 49 4c 31 | 3d 31 0a 09 49 4c 32 3d | IL1|=1..IL2=|
|00024d30| 39 0a 20 20 20 20 20 20 | 45 4e 44 20 49 46 0a 43 |9. |END IF.C|
|00024d40| 20 42 45 47 49 4e 20 45 | 53 54 49 4d 41 54 45 53 | BEGIN E|STIMATES|
|00024d50| 20 46 4f 52 20 43 55 52 | 52 45 4e 54 20 50 4f 49 | FOR CUR|RENT POI|
|00024d60| 4e 54 0a 43 20 20 43 48 | 45 43 4b 20 46 4f 52 20 |NT.C CH|ECK FOR |
|00024d70| 41 20 53 49 4d 49 4c 41 | 52 20 43 41 4c 43 55 4c |A SIMILA|R CALCUL|
|00024d80| 41 54 49 4f 4e 20 4f 46 | 20 54 48 45 20 50 52 45 |ATION OF| THE PRE|
|00024d90| 53 45 4e 54 20 50 4f 49 | 4e 54 0a 43 20 20 20 49 |SENT POI|NT.C I|
|00024da0| 4e 20 41 20 50 52 45 56 | 49 4f 55 53 20 43 59 43 |N A PREV|IOUS CYC|
|00024db0| 4c 45 0a 20 20 20 20 20 | 20 49 46 28 49 43 4f 4e |LE. | IF(ICON|
|00024dc0| 56 2e 45 51 2e 31 29 20 | 47 4f 54 4f 20 31 30 31 |V.EQ.1) |GOTO 101|
|00024dd0| 0a 43 20 20 20 49 4e 20 | 41 20 50 52 45 56 49 4f |.C IN |A PREVIO|
|00024de0| 55 53 20 45 4e 54 52 59 | 20 46 4f 52 20 54 48 49 |US ENTRY| FOR THI|
|00024df0| 53 20 50 4f 49 4e 54 0a | 20 20 20 20 20 20 49 46 |S POINT.| IF|
|00024e00| 28 49 44 43 2e 47 54 2e | 30 29 20 47 4f 54 4f 20 |(IDC.GT.|0) GOTO |
|00024e10| 31 30 31 0a 43 20 20 20 | 53 54 4f 52 45 20 54 48 |101.C |STORE TH|
|00024e20| 45 20 43 55 52 52 45 4e | 54 20 43 4f 4d 50 4f 53 |E CURREN|T COMPOS|
|00024e30| 49 54 49 4f 4e 20 49 46 | 20 54 48 49 53 20 49 53 |ITION IF| THIS IS|
|00024e40| 20 54 48 45 20 46 49 52 | 53 54 20 43 41 4c 4c 20 | THE FIR|ST CALL |
|00024e50| 46 4f 52 20 54 48 49 53 | 20 50 4f 49 4e 54 0a 20 |FOR THIS| POINT. |
|00024e60| 20 20 20 20 20 49 46 28 | 4a 2e 4e 45 2e 4a 4c 28 | IF(|J.NE.JL(|
|00024e70| 31 29 2e 41 4e 44 2e 4a | 2e 4e 45 2e 4a 4c 28 32 |1).AND.J|.NE.JL(2|
|00024e80| 29 2e 41 4e 44 2e 4a 2e | 4e 45 2e 4a 4c 28 33 29 |).AND.J.|NE.JL(3)|
|00024e90| 29 20 54 48 45 4e 0a 43 | 20 20 20 20 20 20 54 48 |) THEN.C| TH|
|00024ea0| 49 53 20 49 53 20 54 48 | 45 20 46 49 52 53 54 20 |IS IS TH|E FIRST |
|00024eb0| 43 41 4c 4c 20 46 4f 52 | 20 54 48 49 53 20 50 4f |CALL FOR| THIS PO|
|00024ec0| 49 4e 54 20 49 4e 20 43 | 55 52 52 45 4e 54 20 43 |INT IN C|URRENT C|
|00024ed0| 59 43 4c 45 0a 43 0a 20 | 20 20 20 20 20 20 20 44 |YCLE.C. | D|
|00024ee0| 4f 20 31 35 20 49 3d 31 | 2c 36 0a 20 20 20 20 20 |O 15 I=1|,6. |
|00024ef0| 20 20 20 49 46 28 58 28 | 49 2c 4a 29 2e 47 54 2e | IF(X(|I,J).GT.|
|00024f00| 5a 45 52 4f 29 20 58 53 | 28 49 2c 4a 29 3d 44 4c |ZERO) XS|(I,J)=DL|
|00024f10| 4f 47 31 30 28 58 28 49 | 2c 4a 29 29 0a 20 20 20 |OG10(X(I|,J)). |
|00024f20| 20 20 20 20 20 49 46 28 | 58 28 49 2c 4a 29 2e 4c | IF(|X(I,J).L|
|00024f30| 45 2e 5a 45 52 4f 29 20 | 58 53 28 49 2c 4a 29 3d |E.ZERO) |XS(I,J)=|
|00024f40| 58 30 0a 31 35 20 20 20 | 20 20 20 43 4f 4e 54 49 |X0.15 | CONTI|
|00024f50| 4e 55 45 0a 20 20 20 20 | 20 20 20 20 49 46 28 58 |NUE. | IF(X|
|00024f60| 28 37 2c 4a 29 2e 47 54 | 2e 5a 45 52 4f 29 20 58 |(7,J).GT|.ZERO) X|
|00024f70| 53 28 37 2c 4a 29 3d 44 | 4c 4f 47 31 30 28 58 28 |S(7,J)=D|LOG10(X(|
|00024f80| 37 2c 4a 29 29 0a 20 20 | 20 20 20 20 20 20 49 46 |7,J)). | IF|
|00024f90| 28 58 28 37 2c 4a 29 2e | 45 51 2e 5a 45 52 4f 29 |(X(7,J).|EQ.ZERO)|
|00024fa0| 20 58 53 28 37 2c 4a 29 | 3d 52 4c 4b 57 2f 32 2e | XS(7,J)|=RLKW/2.|
|00024fb0| 30 0a 20 20 20 20 20 20 | 20 20 49 46 28 58 28 37 |0. | IF(X(7|
|00024fc0| 2c 4a 29 2e 4c 54 2e 5a | 45 52 4f 29 20 58 53 28 |,J).LT.Z|ERO) XS(|
|00024fd0| 37 2c 4a 29 3d 52 4c 4b | 57 2d 44 4c 4f 47 31 30 |7,J)=RLK|W-DLOG10|
|00024fe0| 28 2d 58 28 37 2c 4a 29 | 29 0a 20 20 20 20 20 20 |(-X(7,J)|). |
|00024ff0| 45 4e 44 20 49 46 0a 43 | 20 20 20 53 54 4f 52 45 |END IF.C| STORE|
|00025000| 20 50 52 45 53 45 4e 54 | 20 56 41 4c 55 45 20 4f | PRESENT| VALUE O|
|00025010| 46 20 4a 0a 20 20 20 20 | 20 20 4a 4c 28 4e 43 41 |F J. | JL(NCA|
|00025020| 4c 29 3d 4a 0a 43 20 20 | 20 4c 4f 43 41 54 45 20 |L)=J.C | LOCATE |
|00025030| 41 4e 59 20 50 52 45 56 | 49 4f 55 53 20 50 4f 49 |ANY PREV|IOUS POI|
|00025040| 4e 54 53 20 54 48 41 54 | 20 4d 41 59 20 42 45 20 |NTS THAT| MAY BE |
|00025050| 55 53 45 44 20 46 4f 52 | 20 45 58 54 52 41 50 4f |USED FOR| EXTRAPO|
|00025060| 4c 41 54 49 4f 4e 0a 43 | 20 20 20 20 4f 52 20 49 |LATION.C| OR I|
|00025070| 4e 54 45 52 50 4f 4c 41 | 54 49 4f 4e 2e 0a 43 20 |NTERPOLA|TION..C |
|00025080| 20 20 20 20 54 48 45 20 | 50 52 45 53 45 4e 54 20 | THE |PRESENT |
|00025090| 50 4f 49 4e 54 20 49 53 | 20 4a 3b 20 54 48 45 20 |POINT IS| J; THE |
|000250a0| 4e 45 41 52 45 53 54 20 | 55 53 45 41 42 4c 45 20 |NEAREST |USEABLE |
|000250b0| 50 4f 49 4e 54 20 49 4e | 20 43 4f 4d 50 4f 53 49 |POINT IN| COMPOSI|
|000250c0| 54 49 4f 4e 2c 0a 43 20 | 20 20 20 20 20 49 46 20 |TION,.C | IF |
|000250d0| 41 4e 59 2c 20 49 53 20 | 4b 20 41 4e 44 20 54 48 |ANY, IS |K AND TH|
|000250e0| 45 20 4e 45 58 54 2c 20 | 49 46 20 41 4e 59 2c 20 |E NEXT, |IF ANY, |
|000250f0| 49 53 20 4c 0a 20 20 20 | 20 20 20 4b 3d 30 0a 20 |IS L. | K=0. |
|00025100| 20 20 20 20 20 4c 3d 30 | 0a 20 20 20 20 20 20 49 | L=0|. I|
|00025110| 43 41 4c 3d 30 0a 20 20 | 20 20 20 20 49 46 28 4a |CAL=0. | IF(J|
|00025120| 2e 47 54 2e 31 29 20 54 | 48 45 4e 0a 20 20 20 20 |.GT.1) T|HEN. |
|00025130| 20 20 20 20 53 56 4b 3d | 54 45 4e 2a 28 2d 58 30 | SVK=|TEN*(-X0|
|00025140| 29 0a 20 20 20 20 20 20 | 20 20 44 4f 20 34 35 20 |). | DO 45 |
|00025150| 4e 3d 31 2c 4a 2d 31 0a | 43 20 20 20 20 20 20 20 |N=1,J-1.|C |
|00025160| 43 48 45 43 4b 20 54 4f | 20 53 45 45 20 49 46 20 |CHECK TO| SEE IF |
|00025170| 50 4f 49 4e 54 20 4e 20 | 48 41 44 20 54 48 45 20 |POINT N |HAD THE |
|00025180| 43 55 52 52 45 4e 54 20 | 4e 43 41 4c 20 56 41 4c |CURRENT |NCAL VAL|
|00025190| 55 45 0a 09 49 43 41 4c | 3d 30 0a 09 49 46 28 4e |UE..ICAL|=0..IF(N|
|000251a0| 43 41 4c 2e 45 51 2e 31 | 29 20 54 48 45 4e 09 0a |CAL.EQ.1|) THEN..|
|000251b0| 20 20 20 20 20 20 20 20 | 20 20 44 4f 20 32 30 20 | | DO 20 |
|000251c0| 49 3d 49 4c 31 2c 37 0a | 09 20 20 49 46 28 58 43 |I=IL1,7.|. IF(XC|
|000251d0| 53 28 49 46 4e 28 49 2c | 4e 29 29 2e 47 54 2e 58 |S(IFN(I,|N)).GT.X|
|000251e0| 30 29 20 54 48 45 4e 0a | 09 20 20 20 20 49 43 41 |0) THEN.|. ICA|
|000251f0| 4c 3d 31 0a 09 20 20 45 | 4e 44 20 49 46 0a 32 30 |L=1.. E|ND IF.20|
|00025200| 20 20 20 20 20 20 20 20 | 43 4f 4e 54 49 4e 55 45 | |CONTINUE|
|00025210| 0a 20 20 20 20 20 20 20 | 20 45 4e 44 20 49 46 0a |. | END IF.|
|00025220| 09 49 46 28 4e 43 41 4c | 2e 45 51 2e 32 29 20 54 |.IF(NCAL|.EQ.2) T|
|00025230| 48 45 4e 09 0a 20 20 20 | 20 20 20 20 20 20 20 44 |HEN.. | D|
|00025240| 4f 20 32 35 20 49 3d 49 | 4c 31 2c 37 0a 09 20 20 |O 25 I=I|L1,7.. |
|00025250| 49 46 28 58 43 4f 53 28 | 49 46 4e 28 49 2c 4e 29 |IF(XCOS(|IFN(I,N)|
|00025260| 29 2e 47 54 2e 58 30 29 | 20 54 48 45 4e 0a 20 20 |).GT.X0)| THEN. |
|00025270| 20 20 20 20 20 20 20 20 | 20 20 49 43 41 4c 3d 32 | | ICAL=2|
|00025280| 0a 09 20 20 45 4e 44 20 | 49 46 0a 32 35 20 20 20 |.. END |IF.25 |
|00025290| 20 20 20 20 20 43 4f 4e | 54 49 4e 55 45 0a 20 20 | CON|TINUE. |
|000252a0| 20 20 20 20 20 20 45 4e | 44 20 49 46 0a 09 49 46 | EN|D IF..IF|
|000252b0| 28 4e 43 41 4c 2e 45 51 | 2e 33 29 20 54 48 45 4e |(NCAL.EQ|.3) THEN|
|000252c0| 0a 20 20 20 20 20 20 20 | 20 20 20 44 4f 20 33 30 |. | DO 30|
|000252d0| 20 49 3d 49 4c 31 2c 37 | 0a 09 20 20 49 46 28 58 | I=IL1,7|.. IF(X|
|000252e0| 43 41 53 28 49 46 41 4e | 28 49 2c 4e 29 29 2e 47 |CAS(IFAN|(I,N)).G|
|000252f0| 54 2e 58 30 29 20 54 48 | 45 4e 0a 20 20 20 20 20 |T.X0) TH|EN. |
|00025300| 20 20 20 20 20 20 20 49 | 43 41 4c 3d 33 0a 09 20 | I|CAL=3.. |
|00025310| 20 45 4e 44 20 49 46 0a | 33 30 20 20 20 20 20 20 | END IF.|30 |
|00025320| 20 20 43 4f 4e 54 49 4e | 55 45 0a 09 45 4e 44 20 | CONTIN|UE..END |
|00025330| 49 46 0a 20 20 20 20 20 | 20 20 20 49 46 28 49 43 |IF. | IF(IC|
|00025340| 41 4c 2e 45 51 2e 4e 43 | 41 4c 29 20 54 48 45 4e |AL.EQ.NC|AL) THEN|
|00025350| 0a 43 20 20 20 20 20 20 | 20 20 54 48 49 53 20 49 |.C | THIS I|
|00025360| 53 20 41 20 50 4f 49 4e | 54 20 57 49 54 48 20 54 |S A POIN|T WITH T|
|00025370| 48 45 20 53 41 4d 45 20 | 56 41 4c 55 45 20 4f 46 |HE SAME |VALUE OF|
|00025380| 20 4e 43 41 4c 20 09 20 | 20 0a 20 20 20 20 20 20 | NCAL . | . |
|00025390| 20 20 20 20 44 58 3d 5a | 45 52 4f 0a 20 20 20 20 | DX=Z|ERO. |
|000253a0| 20 20 20 20 20 20 44 4f | 20 33 35 20 49 3d 49 4c | DO| 35 I=IL|
|000253b0| 31 2c 37 0a 20 20 20 20 | 20 20 20 20 20 20 44 58 |1,7. | DX|
|000253c0| 3d 44 58 2b 44 41 42 53 | 28 58 53 28 49 2c 4a 29 |=DX+DABS|(XS(I,J)|
|000253d0| 2d 58 53 28 49 2c 4e 29 | 29 0a 33 35 20 20 20 20 |-XS(I,N)|).35 |
|000253e0| 20 20 20 20 43 4f 4e 54 | 49 4e 55 45 0a 20 20 20 | CONT|INUE. |
|000253f0| 20 20 20 20 20 20 20 49 | 46 28 44 58 2e 47 45 2e | I|F(DX.GE.|
|00025400| 53 56 4b 29 20 47 4f 54 | 4f 20 34 30 0a 20 20 20 |SVK) GOT|O 40. |
|00025410| 20 20 20 20 20 20 20 53 | 56 4c 3d 53 56 4b 0a 20 | S|VL=SVK. |
|00025420| 20 20 20 20 20 20 20 20 | 20 4c 3d 4b 0a 20 20 20 | | L=K. |
|00025430| 20 20 20 20 20 20 20 53 | 56 4b 3d 44 58 0a 20 20 | S|VK=DX. |
|00025440| 20 20 20 20 20 20 20 20 | 4b 3d 4e 0a 20 20 20 20 | |K=N. |
|00025450| 20 20 20 20 20 20 47 4f | 54 4f 20 34 35 0a 34 30 | GO|TO 45.40|
|00025460| 20 20 20 20 20 20 20 20 | 49 46 28 44 58 2e 47 45 | |IF(DX.GE|
|00025470| 2e 53 56 4c 29 20 47 4f | 54 4f 20 34 35 0a 20 20 |.SVL) GO|TO 45. |
|00025480| 20 20 20 20 20 20 20 20 | 53 56 4c 3d 44 58 0a 20 | |SVL=DX. |
|00025490| 20 20 20 20 20 20 20 20 | 20 4c 3d 4e 0a 20 20 20 | | L=N. |
|000254a0| 20 20 20 20 20 45 4e 44 | 20 49 46 0a 34 35 20 20 | END| IF.45 |
|000254b0| 20 20 20 20 43 4f 4e 54 | 49 4e 55 45 0a 43 0a 43 | CONT|INUE.C.C|
|000254c0| 20 20 20 20 20 20 20 20 | 49 46 28 49 50 54 2e 45 | |IF(IPT.E|
|000254d0| 51 2e 35 2e 41 4e 44 2e | 49 44 43 2e 45 51 2e 30 |Q.5.AND.|IDC.EQ.0|
|000254e0| 29 20 54 48 45 4e 0a 43 | 20 20 20 20 20 20 20 20 |) THEN.C| |
|000254f0| 20 20 57 52 49 54 45 28 | 2a 2c 33 32 31 30 29 20 | WRITE(|*,3210) |
|00025500| 49 43 41 4c 2c 4a 2c 4b | 2c 53 56 4b 2c 53 56 4c |ICAL,J,K|,SVK,SVL|
|00025510| 0a 43 20 20 20 20 20 20 | 20 20 20 20 57 52 49 54 |.C | WRIT|
|00025520| 45 28 31 37 2c 33 32 31 | 30 29 20 49 43 41 4c 2c |E(17,321|0) ICAL,|
|00025530| 4a 2c 4b 2c 53 56 4b 2c | 53 56 4c 2c 0a 43 33 32 |J,K,SVK,|SVL,.C32|
|00025540| 31 30 20 20 20 20 20 20 | 46 4f 52 4d 41 54 28 31 |10 |FORMAT(1|
|00025550| 58 2c 27 49 43 41 4c 2c | 4a 2c 20 4b 2c 53 56 4b |X,'ICAL,|J, K,SVK|
|00025560| 2c 53 56 4c 2c 44 58 4d | 3a 27 2c 33 49 33 2c 32 |,SVL,DXM|:',3I3,2|
|00025570| 46 31 34 2e 31 30 29 0a | 43 20 20 20 20 20 20 20 |F14.10).|C |
|00025580| 20 20 20 57 52 49 54 45 | 28 31 37 2c 33 32 31 31 | WRITE|(17,3211|
|00025590| 29 20 28 58 53 28 49 2c | 4a 29 2c 49 3d 31 2c 37 |) (XS(I,|J),I=1,7|
|000255a0| 29 2c 28 58 53 28 49 2c | 4b 29 2c 49 3d 31 2c 37 |),(XS(I,|K),I=1,7|
|000255b0| 29 0a 43 33 32 31 31 20 | 20 20 20 20 20 46 4f 52 |).C3211 | FOR|
|000255c0| 4d 41 54 28 31 58 2c 27 | 4a 2f 4b 2c 48 41 2c 42 |MAT(1X,'|J/K,HA,B|
|000255d0| 2c 4d 2c 4e 2c 58 2c 59 | 2c 48 3a 27 2f 31 50 37 |,M,N,X,Y|,H:'/1P7|
|000255e0| 45 31 31 2e 33 2f 37 45 | 31 31 2e 33 29 0a 43 20 |E11.3/7E|11.3).C |
|000255f0| 20 20 20 20 20 20 20 45 | 4e 44 20 49 46 0a 43 0a | E|ND IF.C.|
|00025600| 20 20 20 20 20 20 20 20 | 49 46 28 53 56 4b 2e 4c | |IF(SVK.L|
|00025610| 45 2e 44 58 4d 29 20 54 | 48 45 4e 0a 43 20 20 20 |E.DXM) T|HEN.C |
|00025620| 20 20 20 20 20 50 4f 49 | 4e 54 20 4b 20 48 41 53 | POI|NT K HAS|
|00025630| 20 54 48 45 20 53 41 4d | 45 20 43 4f 4d 50 4f 53 | THE SAM|E COMPOS|
|00025640| 49 54 49 4f 4e 20 41 53 | 20 50 4f 49 4e 54 20 4a |ITION AS| POINT J|
|00025650| 0a 20 20 20 20 20 20 20 | 20 20 20 4a 3d 4b 0a 09 |. | J=K..|
|00025660| 20 20 47 4f 54 4f 20 31 | 30 31 0a 20 20 20 20 20 | GOTO 1|01. |
|00025670| 20 20 20 45 4e 44 20 49 | 46 0a 20 20 20 20 20 20 | END I|F. |
|00025680| 45 4e 44 20 49 46 0a 43 | 20 20 20 20 20 45 56 41 |END IF.C| EVA|
|00025690| 4c 55 41 54 45 20 46 55 | 4e 43 54 49 4f 4e 20 46 |LUATE FU|NCTION F|
|000256a0| 54 52 4d 2c 20 52 45 46 | 4c 45 43 54 49 4e 47 20 |TRM, REF|LECTING |
|000256b0| 4d 45 41 4e 20 4f 46 20 | 44 49 46 46 45 52 45 4e |MEAN OF |DIFFEREN|
|000256c0| 43 45 53 20 49 4e 20 43 | 4f 4d 50 4e 2e 0a 20 20 |CES IN C|OMPN.. |
|000256d0| 20 20 20 20 53 4d 4e 3d | 5a 45 52 4f 0a 20 20 20 | SMN=|ZERO. |
|000256e0| 20 20 20 53 4d 44 3d 5a | 45 52 4f 0a 20 20 20 20 | SMD=Z|ERO. |
|000256f0| 20 20 44 4f 20 35 30 20 | 49 3d 49 4c 31 2c 37 0a | DO 50 |I=IL1,7.|
|00025700| 20 20 20 20 20 20 49 46 | 28 4b 2e 47 54 2e 30 2e | IF|(K.GT.0.|
|00025710| 41 4e 44 2e 4c 2e 47 54 | 2e 30 29 20 54 48 45 4e |AND.L.GT|.0) THEN|
|00025720| 0a 43 20 20 20 20 20 20 | 54 48 45 52 45 20 41 52 |.C |THERE AR|
|00025730| 45 20 54 57 4f 20 55 53 | 45 41 42 4c 45 20 50 52 |E TWO US|EABLE PR|
|00025740| 45 56 49 4f 55 53 20 50 | 4f 49 4e 54 53 0a 20 20 |EVIOUS P|OINTS. |
|00025750| 20 20 20 20 20 20 49 46 | 28 58 53 28 49 2c 4a 29 | IF|(XS(I,J)|
|00025760| 2e 47 54 2e 58 30 2e 41 | 4e 44 2e 58 53 28 49 2c |.GT.X0.A|ND.XS(I,|
|00025770| 4b 29 2e 47 54 2e 58 30 | 29 20 54 48 45 4e 0a 09 |K).GT.X0|) THEN..|
|00025780| 20 20 53 4d 4e 3d 53 4d | 4e 2b 28 58 53 28 49 2c | SMN=SM|N+(XS(I,|
|00025790| 4a 29 2d 58 53 28 49 2c | 4b 29 29 2a 2a 32 0a 09 |J)-XS(I,|K))**2..|
|000257a0| 45 4e 44 20 49 46 0a 20 | 20 20 20 20 20 20 20 49 |END IF. | I|
|000257b0| 46 28 58 53 28 49 2c 4b | 29 2e 47 54 2e 58 30 2e |F(XS(I,K|).GT.X0.|
|000257c0| 41 4e 44 2e 58 53 28 49 | 2c 4c 29 2e 47 54 2e 58 |AND.XS(I|,L).GT.X|
|000257d0| 30 29 20 54 48 45 4e 0a | 09 20 20 53 4d 44 3d 53 |0) THEN.|. SMD=S|
|000257e0| 4d 44 2b 28 58 53 28 49 | 2c 4b 29 2d 58 53 28 49 |MD+(XS(I|,K)-XS(I|
|000257f0| 2c 4c 29 29 2a 2a 32 0a | 09 45 4e 44 20 49 46 0a |,L))**2.|.END IF.|
|00025800| 20 20 20 20 20 20 45 4e | 44 20 49 46 0a 35 30 20 | EN|D IF.50 |
|00025810| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 20 20 20 20 | CONTI|NUE. |
|00025820| 20 20 49 46 28 53 4d 44 | 2e 45 51 2e 5a 45 52 4f | IF(SMD|.EQ.ZERO|
|00025830| 29 20 46 54 52 4d 3d 4f | 4e 45 0a 20 20 20 20 20 |) FTRM=O|NE. |
|00025840| 20 49 46 28 53 4d 44 2e | 47 54 2e 5a 45 52 4f 29 | IF(SMD.|GT.ZERO)|
|00025850| 20 46 54 52 4d 3d 44 53 | 51 52 54 28 53 4d 4e 2f | FTRM=DS|QRT(SMN/|
|00025860| 53 4d 44 29 0a 43 20 20 | 42 45 47 49 4e 20 4c 4f |SMD).C |BEGIN LO|
|00025870| 4f 50 20 54 48 52 4f 55 | 47 48 20 54 48 45 20 52 |OP THROU|GH THE R|
|00025880| 45 41 43 54 41 4e 54 53 | 0a 20 20 20 20 20 20 44 |EACTANTS|. D|
|00025890| 4f 20 36 30 20 49 3d 49 | 4c 31 2c 37 0a 20 20 20 |O 60 I=I|L1,7. |
|000258a0| 20 20 20 49 46 28 49 2e | 47 54 2e 32 29 20 54 48 | IF(I.|GT.2) TH|
|000258b0| 45 4e 0a 20 20 20 20 20 | 20 20 20 49 46 28 49 2e |EN. | IF(I.|
|000258c0| 45 51 2e 37 29 20 54 48 | 45 4e 0a 20 20 20 20 20 |EQ.7) TH|EN. |
|000258d0| 20 20 20 20 20 49 46 28 | 49 45 48 2e 45 51 2e 31 | IF(|IEH.EQ.1|
|000258e0| 2e 41 4e 44 2e 4e 53 41 | 2e 45 51 2e 30 29 20 47 |.AND.NSA|.EQ.0) G|
|000258f0| 4f 54 4f 20 31 30 32 0a | 20 20 20 20 20 20 20 20 |OTO 102.| |
|00025900| 20 20 49 46 28 49 45 48 | 2e 47 54 2e 31 29 20 47 | IF(IEH|.GT.1) G|
|00025910| 4f 54 4f 20 31 30 32 0a | 09 45 4c 53 45 0a 20 20 |OTO 102.|.ELSE. |
|00025920| 20 20 20 20 20 20 20 20 | 49 46 28 49 45 51 2e 45 | |IF(IEQ.E|
|00025930| 51 2e 31 2e 41 4e 44 2e | 4e 53 41 2e 45 51 2e 30 |Q.1.AND.|NSA.EQ.0|
|00025940| 29 20 47 4f 54 4f 20 31 | 30 32 0a 09 45 4e 44 20 |) GOTO 1|02..END |
|00025950| 49 46 0a 20 20 20 20 20 | 20 45 4e 44 20 49 46 0a |IF. | END IF.|
|00025960| 20 20 20 20 20 20 49 46 | 28 58 53 28 49 2c 4a 29 | IF|(XS(I,J)|
|00025970| 2e 45 51 2e 58 30 29 20 | 54 48 45 4e 0a 20 20 20 |.EQ.X0) |THEN. |
|00025980| 20 20 20 20 20 47 4f 54 | 4f 20 31 30 33 0a 20 20 | GOT|O 103. |
|00025990| 20 20 20 20 45 4e 44 20 | 49 46 0a 20 20 20 20 20 | END |IF. |
|000259a0| 20 49 46 28 4b 2e 45 51 | 2e 30 2e 41 4e 44 2e 4c | IF(K.EQ|.0.AND.L|
|000259b0| 2e 45 51 2e 30 29 20 54 | 48 45 4e 0a 20 20 20 20 |.EQ.0) T|HEN. |
|000259c0| 20 20 20 20 47 4f 54 4f | 20 31 30 34 0a 20 20 20 | GOTO| 104. |
|000259d0| 20 20 20 45 4e 44 20 49 | 46 0a 20 20 20 20 20 20 | END I|F. |
|000259e0| 49 46 28 4b 2e 47 54 2e | 30 2e 41 4e 44 2e 4c 2e |IF(K.GT.|0.AND.L.|
|000259f0| 45 51 2e 30 29 20 54 48 | 45 4e 0a 43 20 20 20 20 |EQ.0) TH|EN.C |
|00025a00| 20 20 4f 4e 45 20 50 52 | 45 56 49 4f 55 53 20 50 | ONE PR|EVIOUS P|
|00025a10| 4f 49 4e 54 20 49 53 20 | 55 53 45 41 42 4c 45 0a |OINT IS |USEABLE.|
|00025a20| 20 20 20 20 20 20 20 20 | 49 46 28 58 53 28 49 2c | |IF(XS(I,|
|00025a30| 4b 29 2e 45 51 2e 58 30 | 29 20 54 48 45 4e 0a 43 |K).EQ.X0|) THEN.C|
|00025a40| 20 20 20 20 20 20 20 20 | 52 45 41 43 54 41 4e 54 | |REACTANT|
|00025a50| 20 49 53 20 41 42 53 45 | 4e 54 0a 09 20 20 47 4f | IS ABSE|NT.. GO|
|00025a60| 54 4f 20 31 30 34 0a 20 | 20 20 20 20 20 20 20 45 |TO 104. | E|
|00025a70| 4c 53 45 0a 43 20 20 20 | 20 20 20 20 20 52 45 41 |LSE.C | REA|
|00025a80| 43 54 41 4e 54 20 49 53 | 20 50 52 45 53 45 4e 54 |CTANT IS| PRESENT|
|00025a90| 20 49 4e 20 50 4f 49 4e | 54 20 4b 0a 20 20 20 20 | IN POIN|T K. |
|00025aa0| 20 20 20 20 20 20 4d 3d | 4b 0a 09 20 20 47 4f 54 | M=|K.. GOT|
|00025ab0| 4f 20 31 30 35 0a 09 45 | 4e 44 20 49 46 0a 20 20 |O 105..E|ND IF. |
|00025ac0| 20 20 20 20 45 4e 44 20 | 49 46 0a 20 20 20 20 20 | END |IF. |
|00025ad0| 20 49 46 28 4b 2e 47 54 | 2e 30 2e 41 4e 44 2e 4c | IF(K.GT|.0.AND.L|
|00025ae0| 2e 47 54 2e 30 29 20 54 | 48 45 4e 0a 43 20 20 20 |.GT.0) T|HEN.C |
|00025af0| 20 20 20 54 57 4f 20 50 | 52 45 56 49 4f 55 53 20 | TWO P|REVIOUS |
|00025b00| 50 4f 49 4e 54 53 20 41 | 52 45 20 55 53 45 41 42 |POINTS A|RE USEAB|
|00025b10| 4c 45 0a 20 20 20 20 20 | 20 20 20 49 46 28 58 53 |LE. | IF(XS|
|00025b20| 28 49 2c 4b 29 2e 45 51 | 2e 58 30 2e 41 4e 44 2e |(I,K).EQ|.X0.AND.|
|00025b30| 58 53 28 49 2c 4c 29 2e | 45 51 2e 58 30 29 20 54 |XS(I,L).|EQ.X0) T|
|00025b40| 48 45 4e 0a 09 20 20 47 | 4f 54 4f 20 31 30 34 0a |HEN.. G|OTO 104.|
|00025b50| 20 20 20 20 20 20 20 20 | 45 4e 44 20 49 46 0a 20 | |END IF. |
|00025b60| 20 20 20 20 20 20 20 49 | 46 28 58 53 28 49 2c 4b | I|F(XS(I,K|
|00025b70| 29 2e 47 54 2e 58 30 2e | 41 4e 44 2e 58 53 28 49 |).GT.X0.|AND.XS(I|
|00025b80| 2c 4c 29 2e 45 51 2e 58 | 30 29 20 54 48 45 4e 0a |,L).EQ.X|0) THEN.|
|00025b90| 43 20 20 20 20 20 20 20 | 20 52 45 41 43 54 41 4e |C | REACTAN|
|00025ba0| 54 20 49 53 20 50 52 45 | 53 45 4e 54 20 49 4e 20 |T IS PRE|SENT IN |
|00025bb0| 50 4f 49 4e 54 20 4b 20 | 41 4e 44 20 41 42 53 45 |POINT K |AND ABSE|
|00025bc0| 4e 54 20 49 4e 20 50 4f | 49 4e 54 20 4c 0a 20 20 |NT IN PO|INT L. |
|00025bd0| 20 20 20 20 20 20 20 20 | 4d 3d 4b 0a 09 20 20 47 | |M=K.. G|
|00025be0| 4f 54 4f 20 31 30 35 0a | 20 20 20 20 20 20 20 20 |OTO 105.| |
|00025bf0| 45 4e 44 20 49 46 0a 20 | 20 20 20 20 20 20 20 49 |END IF. | I|
|00025c00| 46 28 58 53 28 49 2c 4b | 29 2e 45 51 2e 58 30 2e |F(XS(I,K|).EQ.X0.|
|00025c10| 41 4e 44 2e 58 53 28 49 | 2c 4c 29 2e 47 54 2e 58 |AND.XS(I|,L).GT.X|
|00025c20| 30 29 20 54 48 45 4e 0a | 43 20 20 20 20 20 20 20 |0) THEN.|C |
|00025c30| 20 52 45 41 43 54 41 4e | 54 20 49 53 20 41 42 53 | REACTAN|T IS ABS|
|00025c40| 45 4e 54 20 49 4e 20 50 | 4f 49 4e 54 20 4b 20 41 |ENT IN P|OINT K A|
|00025c50| 4e 44 20 50 52 45 53 45 | 4e 54 20 49 4e 20 50 4f |ND PRESE|NT IN PO|
|00025c60| 49 4e 54 20 4c 0a 20 20 | 20 20 20 20 20 20 20 20 |INT L. | |
|00025c70| 4d 3d 4c 0a 09 20 20 47 | 4f 54 4f 20 31 30 35 0a |M=L.. G|OTO 105.|
|00025c80| 09 45 4e 44 20 49 46 0a | 20 20 20 20 20 20 20 20 |.END IF.| |
|00025c90| 49 46 28 58 53 28 49 2c | 4b 29 2e 47 54 2e 58 30 |IF(XS(I,|K).GT.X0|
|00025ca0| 2e 41 4e 44 2e 58 53 28 | 49 2c 4c 29 2e 47 54 2e |.AND.XS(|I,L).GT.|
|00025cb0| 58 30 29 20 54 48 45 4e | 0a 09 20 20 47 4f 54 4f |X0) THEN|.. GOTO|
|00025cc0| 20 31 30 36 0a 20 20 20 | 20 20 20 20 20 45 4e 44 | 106. | END|
|00025cd0| 20 49 46 0a 20 20 20 20 | 20 20 45 4e 44 20 49 46 | IF. | END IF|
|00025ce0| 0a 20 20 20 20 20 20 57 | 52 49 54 45 28 39 2c 31 |. W|RITE(9,1|
|00025cf0| 30 30 30 29 20 4a 2c 20 | 4e 43 41 4c 0a 20 20 20 |000) J, |NCAL. |
|00025d00| 20 20 20 57 52 49 54 45 | 28 31 32 2c 31 30 30 30 | WRITE|(12,1000|
|00025d10| 29 20 4a 2c 20 4e 43 41 | 4c 20 20 20 20 20 20 0a |) J, NCA|L .|
|00025d20| 31 30 30 30 20 20 46 4f | 52 4d 41 54 28 31 58 2c |1000 FO|RMAT(1X,|
|00025d30| 27 46 4f 52 20 50 4f 49 | 4e 54 20 27 2c 49 33 2c |'FOR POI|NT ',I3,|
|00025d40| 27 2c 20 4e 43 41 4c 20 | 27 2c 49 31 2c 27 3a 27 |', NCAL |',I1,':'|
|00025d50| 2f 0a 20 20 20 20 20 26 | 31 58 2c 27 20 20 4e 4f |/. &|1X,' NO|
|00025d60| 20 45 53 54 49 4d 41 54 | 49 4f 4e 20 41 4c 54 45 | ESTIMAT|ION ALTE|
|00025d70| 52 4e 41 54 49 56 45 20 | 43 4f 55 4c 44 20 42 45 |RNATIVE |COULD BE|
|00025d80| 20 41 53 53 49 47 4e 45 | 44 20 49 4e 20 53 55 42 | ASSIGNE|D IN SUB|
|00025d90| 2e 20 45 53 54 27 2f 29 | 0a 20 20 20 20 20 20 47 |. EST'/)|. G|
|00025da0| 4f 54 4f 20 31 30 34 0a | 43 20 20 41 4c 54 45 52 |OTO 104.|C ALTER|
|00025db0| 4e 41 54 49 56 45 20 32 | 3a 20 58 53 28 49 2c 4a |NATIVE 2|: XS(I,J|
|00025dc0| 29 20 49 53 20 41 4e 20 | 45 51 55 49 4c 49 42 52 |) IS AN |EQUILIBR|
|00025dd0| 49 55 4d 20 43 4f 4e 43 | 45 4e 54 52 41 54 49 4f |IUM CONC|ENTRATIO|
|00025de0| 4e 0a 31 30 32 20 20 20 | 58 43 28 49 29 3d 58 53 |N.102 |XC(I)=XS|
|00025df0| 28 49 2c 4a 29 0a 20 20 | 20 20 20 20 47 4f 54 4f |(I,J). | GOTO|
|00025e00| 20 36 30 0a 43 20 20 41 | 4c 54 45 52 4e 41 54 49 | 60.C A|LTERNATI|
|00025e10| 56 45 20 33 3a 20 52 45 | 41 43 54 41 4e 54 20 49 |VE 3: RE|ACTANT I|
|00025e20| 20 49 53 20 41 42 53 45 | 4e 54 0a 31 30 33 20 20 | IS ABSE|NT.103 |
|00025e30| 20 58 43 28 49 29 3d 58 | 30 0a 20 20 20 20 20 20 | XC(I)=X|0. |
|00025e40| 47 4f 54 4f 20 36 30 0a | 43 20 20 41 4c 54 45 52 |GOTO 60.|C ALTER|
|00025e50| 4e 41 54 49 56 45 20 34 | 3a 20 4e 4f 20 50 52 45 |NATIVE 4|: NO PRE|
|00025e60| 56 49 4f 55 53 20 50 4f | 49 4e 54 53 20 41 52 45 |VIOUS PO|INTS ARE|
|00025e70| 20 55 53 45 41 42 4c 45 | 0a 31 30 34 20 20 20 58 | USEABLE|.104 X|
|00025e80| 43 28 49 29 3d 58 53 28 | 49 2c 4a 29 2d 44 58 53 |C(I)=XS(|I,J)-DXS|
|00025e90| 0a 20 20 20 20 20 20 47 | 4f 54 4f 20 36 30 0a 43 |. G|OTO 60.C|
|00025ea0| 20 20 41 4c 54 45 52 4e | 41 54 49 56 45 20 35 3a | ALTERN|ATIVE 5:|
|00025eb0| 20 4f 4e 45 20 50 52 45 | 56 49 4f 55 53 20 50 4f | ONE PRE|VIOUS PO|
|00025ec0| 49 4e 54 20 57 49 54 48 | 20 52 45 41 43 54 41 4e |INT WITH| REACTAN|
|00025ed0| 54 20 49 20 50 52 45 53 | 45 4e 54 0a 31 30 35 20 |T I PRES|ENT.105 |
|00025ee0| 20 20 45 58 54 4d 3d 58 | 53 28 49 2c 4a 29 2d 58 | EXTM=X|S(I,J)-X|
|00025ef0| 53 28 49 2c 4d 29 0a 20 | 20 20 20 20 20 49 46 28 |S(I,M). | IF(|
|00025f00| 44 41 42 53 28 45 58 54 | 4d 29 2e 47 54 2e 44 58 |DABS(EXT|M).GT.DX|
|00025f10| 53 29 20 54 48 45 4e 0a | 43 20 20 20 44 49 46 46 |S) THEN.|C DIFF|
|00025f20| 45 52 45 4e 43 45 20 49 | 4e 20 43 4f 4d 50 4f 53 |ERENCE I|N COMPOS|
|00025f30| 49 54 49 4f 4e 20 42 45 | 54 57 45 45 4e 20 54 57 |ITION BE|TWEEN TW|
|00025f40| 4f 20 50 4f 49 4e 54 53 | 20 49 53 20 54 4f 4f 20 |O POINTS| IS TOO |
|00025f50| 47 52 45 41 54 0a 20 20 | 20 20 20 20 20 20 47 4f |GREAT. | GO|
|00025f60| 54 4f 20 31 30 34 0a 20 | 20 20 20 20 20 45 4e 44 |TO 104. | END|
|00025f70| 20 49 46 0a 20 20 20 20 | 20 20 49 46 28 4e 43 41 | IF. | IF(NCA|
|00025f80| 4c 2e 45 51 2e 31 29 20 | 58 43 28 49 29 3d 58 43 |L.EQ.1) |XC(I)=XC|
|00025f90| 53 28 49 46 4e 28 49 2c | 4d 29 29 2b 45 58 54 4d |S(IFN(I,|M))+EXTM|
|00025fa0| 20 0a 20 20 20 20 20 20 | 49 46 28 4e 43 41 4c 2e | . |IF(NCAL.|
|00025fb0| 45 51 2e 32 29 20 58 43 | 28 49 29 3d 58 43 4f 53 |EQ.2) XC|(I)=XCOS|
|00025fc0| 28 49 46 4e 28 49 2c 4d | 29 29 2b 45 58 54 4d 20 |(IFN(I,M|))+EXTM |
|00025fd0| 0a 20 20 20 20 20 20 49 | 46 28 4e 43 41 4c 2e 45 |. I|F(NCAL.E|
|00025fe0| 51 2e 33 29 20 58 43 28 | 49 29 3d 58 43 41 53 28 |Q.3) XC(|I)=XCAS(|
|00025ff0| 49 46 41 4e 28 49 2c 4d | 29 29 2b 45 58 54 4d 20 |IFAN(I,M|))+EXTM |
|00026000| 20 20 20 20 20 0a 20 20 | 20 20 20 20 47 4f 54 4f | . | GOTO|
|00026010| 20 35 35 0a 43 20 20 41 | 4c 54 45 52 4e 41 54 49 | 55.C A|LTERNATI|
|00026020| 56 45 20 36 3a 20 52 45 | 41 43 54 41 4e 54 20 49 |VE 6: RE|ACTANT I|
|00026030| 20 49 53 20 50 52 45 53 | 45 4e 54 20 49 4e 20 42 | IS PRES|ENT IN B|
|00026040| 4f 54 48 20 50 4f 49 4e | 54 20 4b 20 41 4e 44 20 |OTH POIN|T K AND |
|00026050| 50 4f 49 4e 54 20 4c 0a | 31 30 36 20 20 20 45 58 |POINT L.|106 EX|
|00026060| 54 52 4d 3d 28 58 53 28 | 49 2c 4a 29 2d 58 53 28 |TRM=(XS(|I,J)-XS(|
|00026070| 49 2c 4b 29 29 2a 46 54 | 52 4d 20 20 20 20 0a 20 |I,K))*FT|RM . |
|00026080| 20 20 20 20 20 49 46 28 | 4e 43 41 4c 2e 45 51 2e | IF(|NCAL.EQ.|
|00026090| 31 29 20 58 43 28 49 29 | 3d 58 43 53 28 49 46 4e |1) XC(I)|=XCS(IFN|
|000260a0| 28 49 2c 4b 29 29 2b 28 | 58 43 53 28 49 46 4e 28 |(I,K))+(|XCS(IFN(|
|000260b0| 49 2c 4b 29 29 2d 0a 20 | 20 20 20 20 26 58 43 53 |I,K))-. | &XCS|
|000260c0| 28 49 46 4e 28 49 2c 4c | 29 29 29 2a 46 54 52 4d |(IFN(I,L|)))*FTRM|
|000260d0| 0a 20 20 20 20 20 20 49 | 46 28 4e 43 41 4c 2e 45 |. I|F(NCAL.E|
|000260e0| 51 2e 32 29 20 58 43 28 | 49 29 3d 58 43 4f 53 28 |Q.2) XC(|I)=XCOS(|
|000260f0| 49 46 4e 28 49 2c 4b 29 | 29 2b 28 58 43 4f 53 28 |IFN(I,K)|)+(XCOS(|
|00026100| 49 46 4e 28 49 2c 4b 29 | 29 2d 0a 20 20 20 20 20 |IFN(I,K)|)-. |
|00026110| 26 58 43 4f 53 28 49 46 | 4e 28 49 2c 4c 29 29 29 |&XCOS(IF|N(I,L)))|
|00026120| 2a 46 54 52 4d 0a 20 20 | 20 20 20 20 49 46 28 4e |*FTRM. | IF(N|
|00026130| 43 41 4c 2e 45 51 2e 33 | 29 20 58 43 28 49 29 3d |CAL.EQ.3|) XC(I)=|
|00026140| 58 43 41 53 28 49 46 41 | 4e 28 49 2c 4b 29 29 2b |XCAS(IFA|N(I,K))+|
|00026150| 28 58 43 41 53 28 49 46 | 41 4e 28 49 2c 4b 29 29 |(XCAS(IF|AN(I,K))|
|00026160| 2d 0a 20 20 20 20 20 26 | 58 43 41 53 28 49 46 41 |-. &|XCAS(IFA|
|00026170| 4e 28 49 2c 4c 29 29 29 | 2a 46 54 52 4d 0a 43 20 |N(I,L)))|*FTRM.C |
|00026180| 20 20 54 45 53 54 20 4d | 41 47 4e 49 54 55 44 45 | TEST M|AGNITUDE|
|00026190| 20 4f 46 20 58 43 20 56 | 41 4c 55 45 20 20 20 0a | OF XC V|ALUE .|
|000261a0| 35 35 20 20 20 20 49 46 | 28 58 43 28 49 29 2e 47 |55 IF|(XC(I).G|
|000261b0| 54 2e 58 53 28 49 2c 4a | 29 2e 41 4e 44 2e 49 2e |T.XS(I,J|).AND.I.|
|000261c0| 4c 54 2e 37 29 20 58 43 | 28 49 29 3d 58 53 28 49 |LT.7) XC|(I)=XS(I|
|000261d0| 2c 4a 29 0a 36 30 20 20 | 20 20 43 4f 4e 54 49 4e |,J).60 | CONTIN|
|000261e0| 55 45 0a 20 20 20 20 20 | 20 49 53 54 3d 31 0a 20 |UE. | IST=1. |
|000261f0| 20 20 20 20 20 47 4f 54 | 4f 20 37 35 20 20 0a 43 | GOT|O 75 .C|
|00026200| 20 20 41 4c 54 45 52 4e | 41 54 49 56 45 20 31 3a | ALTERN|ATIVE 1:|
|00026210| 20 54 48 49 53 20 50 4f | 49 4e 54 20 48 41 53 20 | THIS PO|INT HAS |
|00026220| 42 45 45 4e 20 43 41 4c | 43 55 4c 41 54 45 44 20 |BEEN CAL|CULATED |
|00026230| 50 52 45 56 49 4f 55 53 | 4c 59 20 57 49 54 48 0a |PREVIOUS|LY WITH.|
|00026240| 43 20 20 20 53 49 4d 49 | 4c 41 52 20 50 41 52 41 |C SIMI|LAR PARA|
|00026250| 4d 45 54 45 52 53 0a 31 | 30 31 20 20 20 44 4f 20 |METERS.1|01 DO |
|00026260| 36 35 20 49 3d 49 4c 31 | 2c 38 0a 20 20 20 20 20 |65 I=IL1|,8. |
|00026270| 20 49 46 28 4e 43 41 4c | 2e 45 51 2e 31 29 20 58 | IF(NCAL|.EQ.1) X|
|00026280| 43 28 49 29 3d 58 43 53 | 28 49 46 4e 28 49 2c 4a |C(I)=XCS|(IFN(I,J|
|00026290| 29 29 0a 20 20 20 20 20 | 20 49 46 28 4e 43 41 4c |)). | IF(NCAL|
|000262a0| 2e 45 51 2e 32 29 20 58 | 43 28 49 29 3d 58 43 4f |.EQ.2) X|C(I)=XCO|
|000262b0| 53 28 49 46 4e 28 49 2c | 4a 29 29 0a 20 20 20 20 |S(IFN(I,|J)). |
|000262c0| 20 20 49 46 28 4e 43 41 | 4c 2e 45 51 2e 33 29 20 | IF(NCA|L.EQ.3) |
|000262d0| 58 43 28 49 29 3d 58 43 | 41 53 28 49 46 41 4e 28 |XC(I)=XC|AS(IFAN(|
|000262e0| 49 2c 4a 29 29 0a 36 35 | 20 20 20 20 43 4f 4e 54 |I,J)).65| CONT|
|000262f0| 49 4e 55 45 0a 20 20 20 | 20 20 20 44 4f 20 37 30 |INUE. | DO 70|
|00026300| 20 49 3d 49 4c 32 2c 4d | 58 0a 20 20 20 20 20 20 | I=IL2,M|X. |
|00026310| 49 46 28 4e 43 41 4c 2e | 45 51 2e 31 29 20 58 43 |IF(NCAL.|EQ.1) XC|
|00026320| 28 49 29 3d 58 43 53 28 | 49 46 4e 28 49 2c 4a 29 |(I)=XCS(|IFN(I,J)|
|00026330| 29 0a 20 20 20 20 20 20 | 49 46 28 4e 43 41 4c 2e |). |IF(NCAL.|
|00026340| 45 51 2e 32 29 20 58 43 | 28 49 29 3d 58 43 4f 53 |EQ.2) XC|(I)=XCOS|
|00026350| 28 49 46 4e 28 49 2c 4a | 29 29 0a 20 20 20 20 20 |(IFN(I,J|)). |
|00026360| 20 49 46 28 4e 43 41 4c | 2e 45 51 2e 33 29 20 58 | IF(NCAL|.EQ.3) X|
|00026370| 43 28 49 29 3d 58 43 41 | 53 28 49 46 41 4e 28 49 |C(I)=XCA|S(IFAN(I|
|00026380| 2c 4a 29 2d 4e 53 4f 29 | 0a 37 30 20 20 20 20 43 |,J)-NSO)|.70 C|
|00026390| 4f 4e 54 49 4e 55 45 0a | 20 20 20 20 20 20 49 53 |ONTINUE.| IS|
|000263a0| 54 3d 32 0a 37 35 20 20 | 20 20 43 4f 4e 54 49 4e |T=2.75 | CONTIN|
|000263b0| 55 45 0a 43 09 0a 43 20 | 20 20 20 20 20 49 46 28 |UE.C..C | IF(|
|000263c0| 4e 43 41 4c 2e 45 51 2e | 32 29 20 54 48 45 4e 0a |NCAL.EQ.|2) THEN.|
|000263d0| 43 20 20 20 20 20 20 20 | 20 57 52 49 54 45 28 2a |C | WRITE(*|
|000263e0| 2c 31 30 30 31 29 20 49 | 50 54 2c 28 58 43 28 49 |,1001) I|PT,(XC(I|
|000263f0| 29 2c 49 3d 31 2c 37 29 | 0a 43 20 20 20 20 20 20 |),I=1,7)|.C |
|00026400| 20 20 57 52 49 54 45 28 | 31 37 2c 31 30 30 31 29 | WRITE(|17,1001)|
|00026410| 20 49 50 54 2c 28 58 43 | 28 49 29 2c 49 3d 31 2c | IPT,(XC|(I),I=1,|
|00026420| 37 29 0a 43 20 20 20 20 | 20 20 20 20 49 46 28 4b |7).C | IF(K|
|00026430| 2e 47 54 2e 30 29 20 57 | 52 49 54 45 28 2a 2c 31 |.GT.0) W|RITE(*,1|
|00026440| 30 30 32 29 20 4b 2c 49 | 46 4e 28 31 2c 4b 29 2c |002) K,I|FN(1,K),|
|00026450| 28 58 43 4f 53 28 49 46 | 4e 28 49 2c 4b 29 29 2c |(XCOS(IF|N(I,K)),|
|00026460| 49 3d 31 2c 37 29 0a 43 | 20 20 20 20 20 20 20 20 |I=1,7).C| |
|00026470| 49 46 28 4b 2e 47 54 2e | 30 29 20 57 52 49 54 45 |IF(K.GT.|0) WRITE|
|00026480| 28 31 37 2c 31 30 30 32 | 29 20 4b 2c 49 46 4e 28 |(17,1002|) K,IFN(|
|00026490| 31 2c 4b 29 2c 28 58 43 | 4f 53 28 49 46 4e 28 49 |1,K),(XC|OS(IFN(I|
|000264a0| 2c 4b 29 29 2c 49 3d 31 | 2c 37 29 0a 43 20 20 20 |,K)),I=1|,7).C |
|000264b0| 20 20 20 20 20 49 46 28 | 4c 2e 47 54 2e 30 29 20 | IF(|L.GT.0) |
|000264c0| 57 52 49 54 45 28 2a 2c | 31 30 31 32 29 20 4c 2c |WRITE(*,|1012) L,|
|000264d0| 49 46 4e 28 31 2c 4c 29 | 2c 28 58 43 4f 53 28 49 |IFN(1,L)|,(XCOS(I|
|000264e0| 46 4e 28 49 2c 4c 29 29 | 2c 49 3d 31 2c 37 29 0a |FN(I,L))|,I=1,7).|
|000264f0| 43 20 20 20 20 20 20 20 | 20 49 46 28 4c 2e 47 54 |C | IF(L.GT|
|00026500| 2e 30 29 20 57 52 49 54 | 45 28 31 37 2c 31 30 31 |.0) WRIT|E(17,101|
|00026510| 32 29 20 4c 2c 49 46 4e | 28 31 2c 4c 29 2c 28 58 |2) L,IFN|(1,L),(X|
|00026520| 43 4f 53 28 49 46 4e 28 | 49 2c 4c 29 29 2c 49 3d |COS(IFN(|I,L)),I=|
|00026530| 31 2c 37 29 0a 43 31 30 | 30 32 20 20 20 20 46 4f |1,7).C10|02 FO|
|00026540| 52 4d 41 54 28 31 58 2c | 27 50 4f 49 4e 54 27 2c |RMAT(1X,|'POINT',|
|00026550| 49 34 2c 27 3a 20 20 20 | 49 46 4e 28 31 2c 4b 29 |I4,': |IFN(1,K)|
|00026560| 27 2c 49 36 2f 0a 43 20 | 20 20 20 20 26 20 20 20 |',I6/.C | & |
|00026570| 20 20 20 20 31 58 2c 27 | 20 58 43 4f 53 28 48 41 | 1X,'| XCOS(HA|
|00026580| 2c 42 2c 4d 2c 4e 2c 58 | 2c 59 2c 48 29 3a 27 2c |,B,M,N,X|,Y,H):',|
|00026590| 31 50 37 45 31 30 2e 32 | 29 0a 43 31 30 31 32 20 |1P7E10.2|).C1012 |
|000265a0| 20 20 20 46 4f 52 4d 41 | 54 28 31 58 2c 27 50 4f | FORMA|T(1X,'PO|
|000265b0| 49 4e 54 27 2c 49 34 2c | 27 3a 20 20 20 49 46 4e |INT',I4,|': IFN|
|000265c0| 28 31 2c 4c 29 27 2c 49 | 36 2f 0a 43 20 20 20 20 |(1,L)',I|6/.C |
|000265d0| 20 26 20 20 20 20 20 20 | 20 31 58 2c 27 20 58 43 | & | 1X,' XC|
|000265e0| 4f 53 28 48 41 2c 42 2c | 4d 2c 4e 2c 58 2c 59 2c |OS(HA,B,|M,N,X,Y,|
|000265f0| 48 29 3a 27 2c 31 50 37 | 45 31 30 2e 32 29 0a 43 |H):',1P7|E10.2).C|
|00026600| 20 20 20 20 20 20 45 4e | 44 20 49 46 0a 43 20 20 | EN|D IF.C |
|00026610| 20 20 20 20 49 46 28 4e | 43 41 4c 2e 45 51 2e 31 | IF(N|CAL.EQ.1|
|00026620| 29 20 54 48 45 4e 0a 43 | 20 20 20 20 20 20 20 20 |) THEN.C| |
|00026630| 57 52 49 54 45 28 2a 2c | 31 30 30 31 29 20 49 50 |WRITE(*,|1001) IP|
|00026640| 54 2c 28 58 43 28 49 29 | 2c 49 3d 31 2c 37 29 0a |T,(XC(I)|,I=1,7).|
|00026650| 43 20 20 20 20 20 20 20 | 20 57 52 49 54 45 28 31 |C | WRITE(1|
|00026660| 37 2c 31 30 30 31 29 20 | 49 50 54 2c 28 58 43 28 |7,1001) |IPT,(XC(|
|00026670| 49 29 2c 49 3d 31 2c 37 | 29 0a 43 20 20 20 20 20 |I),I=1,7|).C |
|00026680| 20 20 20 49 46 28 4b 2e | 47 54 2e 30 29 20 57 52 | IF(K.|GT.0) WR|
|00026690| 49 54 45 28 2a 2c 31 30 | 30 33 29 20 4b 2c 49 46 |ITE(*,10|03) K,IF|
|000266a0| 4e 28 31 2c 4b 29 2c 28 | 58 43 53 28 49 46 4e 28 |N(1,K),(|XCS(IFN(|
|000266b0| 49 2c 4b 29 29 2c 49 3d | 31 2c 37 29 0a 43 20 20 |I,K)),I=|1,7).C |
|000266c0| 20 20 20 20 20 20 49 46 | 28 4b 2e 47 54 2e 30 29 | IF|(K.GT.0)|
|000266d0| 20 57 52 49 54 45 28 31 | 37 2c 31 30 30 33 29 20 | WRITE(1|7,1003) |
|000266e0| 4b 2c 49 46 4e 28 31 2c | 4b 29 2c 28 58 43 53 28 |K,IFN(1,|K),(XCS(|
|000266f0| 49 46 4e 28 49 2c 4b 29 | 29 2c 49 3d 31 2c 37 29 |IFN(I,K)|),I=1,7)|
|00026700| 0a 43 20 20 20 20 20 20 | 20 20 49 46 28 4c 2e 47 |.C | IF(L.G|
|00026710| 54 2e 30 29 20 57 52 49 | 54 45 28 2a 2c 31 30 31 |T.0) WRI|TE(*,101|
|00026720| 33 29 20 4c 2c 49 46 4e | 28 31 2c 4c 29 2c 28 58 |3) L,IFN|(1,L),(X|
|00026730| 43 53 28 49 46 4e 28 49 | 2c 4c 29 29 2c 49 3d 31 |CS(IFN(I|,L)),I=1|
|00026740| 2c 37 29 0a 43 20 20 20 | 20 20 20 20 20 49 46 28 |,7).C | IF(|
|00026750| 4c 2e 47 54 2e 30 29 20 | 57 52 49 54 45 28 31 37 |L.GT.0) |WRITE(17|
|00026760| 2c 31 30 31 33 29 20 4c | 2c 49 46 4e 28 31 2c 4c |,1013) L|,IFN(1,L|
|00026770| 29 2c 28 58 43 53 28 49 | 46 4e 28 49 2c 4c 29 29 |),(XCS(I|FN(I,L))|
|00026780| 2c 49 3d 31 2c 37 29 0a | 43 31 30 30 33 20 20 20 |,I=1,7).|C1003 |
|00026790| 20 46 4f 52 4d 41 54 28 | 31 58 2c 27 50 4f 49 4e | FORMAT(|1X,'POIN|
|000267a0| 54 27 2c 49 34 2c 27 3a | 20 20 20 49 46 4e 28 31 |T',I4,':| IFN(1|
|000267b0| 2c 4b 29 27 2c 49 36 2f | 0a 43 20 20 20 20 20 26 |,K)',I6/|.C &|
|000267c0| 20 20 20 20 20 20 20 31 | 58 2c 27 20 20 58 43 53 | 1|X,' XCS|
|000267d0| 28 48 41 2c 42 2c 4d 2c | 4e 2c 58 2c 59 2c 48 29 |(HA,B,M,|N,X,Y,H)|
|000267e0| 3a 27 2c 31 50 37 45 31 | 30 2e 32 29 0a 43 31 30 |:',1P7E1|0.2).C10|
|000267f0| 31 33 20 20 20 20 46 4f | 52 4d 41 54 28 31 58 2c |13 FO|RMAT(1X,|
|00026800| 27 50 4f 49 4e 54 27 2c | 49 34 2c 27 3a 20 20 20 |'POINT',|I4,': |
|00026810| 49 46 4e 28 31 2c 4c 29 | 27 2c 49 36 2f 0a 43 20 |IFN(1,L)|',I6/.C |
|00026820| 20 20 20 20 26 20 20 20 | 20 20 20 20 31 58 2c 27 | & | 1X,'|
|00026830| 20 20 58 43 53 28 48 41 | 2c 42 2c 4d 2c 4e 2c 58 | XCS(HA|,B,M,N,X|
|00026840| 2c 59 2c 48 29 3a 27 2c | 31 50 37 45 31 30 2e 32 |,Y,H):',|1P7E10.2|
|00026850| 29 0a 43 0a 43 20 20 20 | 20 20 20 45 4e 44 20 49 |).C.C | END I|
|00026860| 46 0a 43 20 20 20 20 20 | 20 49 46 28 4e 43 41 4c |F.C | IF(NCAL|
|00026870| 2e 45 51 2e 33 29 20 54 | 48 45 4e 0a 43 20 20 20 |.EQ.3) T|HEN.C |
|00026880| 20 20 20 20 20 57 52 49 | 54 45 28 2a 2c 31 30 30 | WRI|TE(*,100|
|00026890| 35 29 20 49 50 54 2c 28 | 58 43 28 49 29 2c 49 3d |5) IPT,(|XC(I),I=|
|000268a0| 33 2c 37 29 0a 43 20 20 | 20 20 20 20 20 20 57 52 |3,7).C | WR|
|000268b0| 49 54 45 28 31 37 2c 31 | 30 30 35 29 20 49 50 54 |ITE(17,1|005) IPT|
|000268c0| 2c 28 58 43 28 49 29 2c | 49 3d 33 2c 37 29 0a 43 |,(XC(I),|I=3,7).C|
|000268d0| 31 30 30 35 20 20 20 20 | 46 4f 52 4d 41 54 28 31 |1005 |FORMAT(1|
|000268e0| 58 2c 27 50 4f 49 4e 54 | 27 2c 49 34 2f 0a 43 20 |X,'POINT|',I4/.C |
|000268f0| 20 20 20 20 26 20 20 20 | 20 20 20 20 31 58 2c 27 | & | 1X,'|
|00026900| 20 20 20 58 43 28 20 20 | 20 20 20 4d 2c 4e 2c 58 | XC( | M,N,X|
|00026910| 2c 59 2c 48 29 3a 27 2c | 31 50 37 45 31 30 2e 32 |,Y,H):',|1P7E10.2|
|00026920| 29 0a 43 20 20 20 20 20 | 20 20 20 49 46 28 4b 2e |).C | IF(K.|
|00026930| 47 54 2e 30 29 20 57 52 | 49 54 45 28 2a 2c 31 30 |GT.0) WR|ITE(*,10|
|00026940| 30 34 29 20 4b 2c 49 46 | 41 4e 28 31 2c 4b 29 2c |04) K,IF|AN(1,K),|
|00026950| 28 58 43 41 53 28 49 46 | 41 4e 28 49 2c 4b 29 29 |(XCAS(IF|AN(I,K))|
|00026960| 2c 49 3d 33 2c 37 29 0a | 43 20 20 20 20 20 20 20 |,I=3,7).|C |
|00026970| 20 49 46 28 4b 2e 47 54 | 2e 30 29 20 57 52 49 54 | IF(K.GT|.0) WRIT|
|00026980| 45 28 31 37 2c 31 30 30 | 34 29 20 4b 2c 49 46 41 |E(17,100|4) K,IFA|
|00026990| 4e 28 31 2c 4b 29 2c 28 | 58 43 41 53 28 49 46 41 |N(1,K),(|XCAS(IFA|
|000269a0| 4e 28 49 2c 4b 29 29 2c | 49 3d 33 2c 37 29 0a 43 |N(I,K)),|I=3,7).C|
|000269b0| 20 20 20 20 20 20 20 20 | 49 46 28 4c 2e 47 54 2e | |IF(L.GT.|
|000269c0| 30 29 20 57 52 49 54 45 | 28 2a 2c 31 30 31 34 29 |0) WRITE|(*,1014)|
|000269d0| 20 4c 2c 49 46 41 4e 28 | 31 2c 4c 29 2c 28 58 43 | L,IFAN(|1,L),(XC|
|000269e0| 41 53 28 49 46 41 4e 28 | 49 2c 4c 29 29 2c 49 3d |AS(IFAN(|I,L)),I=|
|000269f0| 33 2c 37 29 0a 43 20 20 | 20 20 20 20 20 20 49 46 |3,7).C | IF|
|00026a00| 28 4c 2e 47 54 2e 30 29 | 20 57 52 49 54 45 28 31 |(L.GT.0)| WRITE(1|
|00026a10| 37 2c 31 30 31 34 29 20 | 4c 2c 49 46 41 4e 28 31 |7,1014) |L,IFAN(1|
|00026a20| 2c 4c 29 2c 28 58 43 41 | 53 28 49 46 41 4e 28 49 |,L),(XCA|S(IFAN(I|
|00026a30| 2c 4c 29 29 2c 49 3d 33 | 2c 37 29 0a 43 31 30 30 |,L)),I=3|,7).C100|
|00026a40| 34 20 20 20 20 46 4f 52 | 4d 41 54 28 31 58 2c 27 |4 FOR|MAT(1X,'|
|00026a50| 50 4f 49 4e 54 27 2c 49 | 34 2c 27 3a 20 20 49 46 |POINT',I|4,': IF|
|00026a60| 41 4e 28 31 2c 4b 29 27 | 2c 49 36 2f 0a 43 20 20 |AN(1,K)'|,I6/.C |
|00026a70| 20 20 20 26 20 20 20 20 | 20 20 20 31 58 2c 27 20 | & | 1X,' |
|00026a80| 58 43 41 53 28 20 20 20 | 20 20 4d 2c 4e 2c 58 2c |XCAS( | M,N,X,|
|00026a90| 59 2c 48 29 3a 27 2c 32 | 30 58 2c 31 50 35 45 31 |Y,H):',2|0X,1P5E1|
|00026aa0| 30 2e 32 29 0a 43 31 30 | 31 34 20 20 20 20 46 4f |0.2).C10|14 FO|
|00026ab0| 52 4d 41 54 28 31 58 2c | 27 50 4f 49 4e 54 27 2c |RMAT(1X,|'POINT',|
|00026ac0| 49 34 2c 27 3a 20 20 49 | 46 41 4e 28 31 2c 4c 29 |I4,': I|FAN(1,L)|
|00026ad0| 27 2c 49 36 2f 0a 43 20 | 20 20 20 20 26 20 20 20 |',I6/.C | & |
|00026ae0| 20 20 20 20 31 58 2c 27 | 20 58 43 41 53 28 20 20 | 1X,'| XCAS( |
|00026af0| 20 20 20 4d 2c 4e 2c 58 | 2c 59 2c 48 29 3a 27 2c | M,N,X|,Y,H):',|
|00026b00| 32 30 58 2c 31 50 35 45 | 31 30 2e 32 29 0a 43 20 |20X,1P5E|10.2).C |
|00026b10| 20 20 20 20 20 20 20 50 | 41 55 53 45 0a 43 20 20 | P|AUSE.C |
|00026b20| 20 20 20 20 45 4e 44 20 | 49 46 0a 43 0a 20 20 20 | END |IF.C. |
|00026b30| 20 20 20 52 45 54 55 52 | 4e 0a 20 20 20 20 20 20 | RETUR|N. |
|00026b40| 45 4e 44 0a 43 0a 43 0a | 43 0a 43 20 20 53 55 42 |END.C.C.|C.C SUB|
|00026b50| 52 4f 55 54 49 4e 45 20 | 54 48 41 54 20 44 45 46 |ROUTINE |THAT DEF|
|00026b60| 49 4e 45 53 20 53 49 4d | 55 4c 54 41 4e 45 4f 55 |INES SIM|ULTANEOU|
|00026b70| 53 20 4e 4f 4e 2d 4c 49 | 4e 45 41 52 20 45 51 55 |S NON-LI|NEAR EQU|
|00026b80| 41 54 49 4f 4e 53 20 54 | 4f 20 42 45 0a 43 20 20 |ATIONS T|O BE.C |
|00026b90| 20 53 4f 4c 56 45 44 20 | 46 4f 52 20 54 48 45 20 | SOLVED |FOR THE |
|00026ba0| 53 50 45 43 49 45 20 43 | 4f 4e 43 45 4e 54 52 41 |SPECIE C|ONCENTRA|
|00026bb0| 54 49 4f 4e 53 0a 43 0a | 43 20 20 20 20 20 20 20 |TIONS.C.|C |
|00026bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00026bd0| 20 20 20 20 20 20 20 47 | 4c 4f 53 53 41 52 59 0a | G|LOSSARY.|
|00026be0| 43 0a 43 20 20 20 20 41 | 4e 53 55 4d 20 3d 20 54 |C.C A|NSUM = T|
|00026bf0| 4f 54 41 4c 20 45 51 55 | 49 56 2e 43 4f 4e 43 4e |OTAL EQU|IV.CONCN|
|00026c00| 2e 4f 46 20 41 4e 49 4f | 4e 53 20 49 4e 20 4e 4f |.OF ANIO|NS IN NO|
|00026c10| 4e 41 51 2e 50 48 41 53 | 45 0a 43 20 20 20 20 20 |NAQ.PHAS|E.C |
|00026c20| 20 20 41 57 20 3d 20 41 | 43 54 49 56 49 54 59 20 | AW = A|CTIVITY |
|00026c30| 4f 46 20 57 41 54 45 52 | 0a 43 20 20 20 20 20 20 |OF WATER|.C |
|00026c40| 43 41 50 20 3d 20 43 41 | 4c 43 55 4c 41 54 45 44 |CAP = CA|LCULATED|
|00026c50| 20 43 4f 4e 43 45 4e 54 | 52 41 54 49 4f 4e 20 4f | CONCENT|RATION O|
|00026c60| 46 20 41 4e 20 41 51 55 | 45 4f 55 53 20 50 52 4f |F AN AQU|EOUS PRO|
|00026c70| 44 2e 20 53 50 45 43 49 | 45 53 2e 0a 43 20 20 20 |D. SPECI|ES..C |
|00026c80| 20 43 41 53 55 4d 20 3d | 20 54 4f 54 41 4c 20 45 | CASUM =| TOTAL E|
|00026c90| 51 55 49 56 2e 43 4f 4e | 43 4e 2e 4f 46 20 43 41 |QUIV.CON|CN.OF CA|
|00026ca0| 54 49 4f 4e 53 20 49 4e | 20 4e 4f 4e 41 51 2e 50 |TIONS IN| NONAQ.P|
|00026cb0| 48 41 53 45 0a 43 20 20 | 20 20 20 20 43 4f 50 20 |HASE.C | COP |
|00026cc0| 3d 20 43 41 4c 43 55 4c | 41 54 45 44 20 43 4f 4e |= CALCUL|ATED CON|
|00026cd0| 43 45 4e 54 52 41 54 49 | 4f 4e 20 4f 46 20 41 20 |CENTRATI|ON OF A |
|00026ce0| 4e 4f 4e 41 51 55 45 4f | 55 53 20 50 52 4f 44 2e |NONAQUEO|US PROD.|
|00026cf0| 20 53 50 45 43 49 45 53 | 2e 0a 63 20 20 20 20 20 | SPECIES|..c |
|00026d00| 20 20 43 53 20 3d 20 43 | 4f 4e 43 45 4e 54 52 41 | CS = C|ONCENTRA|
|00026d10| 54 49 4f 4e 20 4f 46 20 | 41 20 53 50 45 43 49 45 |TION OF |A SPECIE|
|00026d20| 53 0a 43 20 20 20 20 20 | 20 45 41 43 20 3d 20 45 |S.C | EAC = E|
|00026d30| 58 50 4f 4e 45 4e 54 20 | 4f 46 20 41 20 52 45 41 |XPONENT |OF A REA|
|00026d40| 43 54 41 4e 54 20 43 4f | 4e 43 4e 2e 20 49 4e 20 |CTANT CO|NCN. IN |
|00026d50| 41 20 46 4f 52 4d 41 54 | 49 4f 4e 20 43 4f 4e 53 |A FORMAT|ION CONS|
|00026d60| 54 2e 0a 43 20 20 20 20 | 20 20 20 20 20 20 20 20 |T..C | |
|00026d70| 20 4f 46 20 41 4e 20 41 | 51 55 45 4f 55 53 20 50 | OF AN A|QUEOUS P|
|00026d80| 52 4f 44 55 43 54 20 53 | 50 45 43 49 45 53 2e 0a |RODUCT S|PECIES..|
|00026d90| 43 20 20 20 20 20 20 45 | 4f 43 20 3d 20 45 58 50 |C E|OC = EXP|
|00026da0| 4f 4e 45 4e 54 20 4f 46 | 20 41 20 52 45 41 43 54 |ONENT OF| A REACT|
|00026db0| 41 4e 54 20 43 4f 4e 43 | 4e 2e 20 49 4e 20 41 20 |ANT CONC|N. IN A |
|00026dc0| 46 4f 52 4d 41 54 49 4f | 4e 20 43 4f 4e 53 54 2e |FORMATIO|N CONST.|
|00026dd0| 0a 43 20 20 20 20 20 20 | 20 20 20 20 20 20 20 4f |.C | O|
|00026de0| 46 20 41 20 4e 4f 4e 41 | 51 55 45 4f 55 53 20 50 |F A NONA|QUEOUS P|
|00026df0| 52 4f 44 55 43 54 20 53 | 50 45 43 49 45 53 2e 0a |RODUCT S|PECIES..|
|00026e00| 43 20 20 20 20 20 20 46 | 41 43 20 3d 20 46 41 43 |C F|AC = FAC|
|00026e10| 54 4f 52 20 2d 2d 20 28 | 52 45 41 43 54 41 4e 54 |TOR -- (|REACTANT|
|00026e20| 20 41 43 54 49 56 49 54 | 59 29 2a 2a 45 41 43 20 | ACTIVIT|Y)**EAC |
|00026e30| 2d 2d 20 49 4e 20 41 51 | 2e 46 4f 52 4d 2e 43 4f |-- IN AQ|.FORM.CO|
|00026e40| 4e 53 54 2e 0a 43 20 20 | 20 20 20 20 46 41 4b 20 |NST..C | FAK |
|00026e50| 3d 20 46 4f 52 4d 41 54 | 49 4f 4e 20 43 4f 4e 53 |= FORMAT|ION CONS|
|00026e60| 54 41 4e 54 20 46 4f 52 | 20 41 4e 20 41 51 55 45 |TANT FOR| AN AQUE|
|00026e70| 4f 55 53 20 50 52 4f 44 | 55 43 54 20 53 50 45 43 |OUS PROD|UCT SPEC|
|00026e80| 49 45 53 2e 20 0a 43 20 | 20 20 20 20 20 46 43 4c |IES. .C | FCL|
|00026e90| 20 3d 20 54 48 45 20 52 | 45 53 49 44 55 41 4c 20 | = THE R|ESIDUAL |
|00026ea0| 4f 46 20 45 41 43 48 20 | 4e 4f 4e 2d 4c 49 4e 45 |OF EACH |NON-LINE|
|00026eb0| 41 52 20 45 51 55 41 54 | 49 4f 4e 20 54 4f 20 42 |AR EQUAT|ION TO B|
|00026ec0| 45 20 53 4f 4c 56 45 44 | 2e 20 20 20 20 20 20 20 |E SOLVED|. |
|00026ed0| 20 20 20 20 20 0a 43 20 | 20 20 20 20 46 43 4e 41 | .C | FCNA|
|00026ee0| 20 3d 20 52 41 54 49 4f | 20 4f 46 20 41 4e 20 41 | = RATIO| OF AN A|
|00026ef0| 51 2e 43 4f 4e 43 4e 2e | 41 54 20 49 4e 46 49 4e |Q.CONCN.|AT INFIN|
|00026f00| 49 54 45 20 44 49 4c 4e | 2e 4f 4e 20 54 48 45 20 |ITE DILN|.ON THE |
|00026f10| 52 45 46 45 52 45 4e 43 | 45 0a 43 20 20 20 20 20 |REFERENC|E.C |
|00026f20| 20 20 20 20 20 20 20 20 | 43 4f 4e 43 4e 2e 53 43 | |CONCN.SC|
|00026f30| 41 4c 45 20 54 4f 20 54 | 48 41 54 20 4f 4e 20 54 |ALE TO T|HAT ON T|
|00026f40| 48 45 20 43 55 52 52 45 | 4e 54 20 43 4f 4e 43 4e |HE CURRE|NT CONCN|
|00026f50| 2e 53 43 41 4c 45 2e 0a | 43 20 20 20 20 20 46 43 |.SCALE..|C FC|
|00026f60| 4e 4f 20 3d 20 52 41 54 | 49 4f 20 4f 46 20 41 20 |NO = RAT|IO OF A |
|00026f70| 4e 4f 4e 41 51 2e 43 4f | 4e 43 4e 2e 41 54 20 49 |NONAQ.CO|NCN.AT I|
|00026f80| 4e 46 49 4e 49 54 45 20 | 44 49 4c 4e 2e 4f 4e 20 |NFINITE |DILN.ON |
|00026f90| 54 48 45 20 52 45 46 45 | 52 45 4e 43 45 0a 43 20 |THE REFE|RENCE.C |
|00026fa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 43 4f 4e 43 | | CONC|
|00026fb0| 4e 2e 53 43 41 4c 45 20 | 54 4f 20 54 48 41 54 20 |N.SCALE |TO THAT |
|00026fc0| 4f 4e 20 54 48 45 20 43 | 55 52 52 45 4e 54 20 43 |ON THE C|URRENT C|
|00026fd0| 4f 4e 43 4e 2e 53 43 41 | 4c 45 2e 0a 43 20 20 20 |ONCN.SCA|LE..C |
|00026fe0| 20 20 20 46 4b 41 20 3d | 20 52 41 54 49 4f 20 4f | FKA =| RATIO O|
|00026ff0| 46 20 46 4f 52 4d 41 54 | 49 4f 4e 20 43 4f 4e 53 |F FORMAT|ION CONS|
|00027000| 54 41 4e 54 20 4f 46 20 | 41 51 2e 50 52 4f 44 2e |TANT OF |AQ.PROD.|
|00027010| 53 50 2e 4f 4e 20 52 45 | 46 2e 43 4f 4e 43 4e 2e |SP.ON RE|F.CONCN.|
|00027020| 0a 43 20 20 20 20 20 20 | 20 20 20 20 20 20 20 53 |.C | S|
|00027030| 43 41 4c 45 20 54 4f 20 | 54 48 41 54 20 4f 4e 20 |CALE TO |THAT ON |
|00027040| 54 48 45 20 43 55 52 52 | 45 4e 54 20 43 4f 4e 43 |THE CURR|ENT CONC|
|00027050| 4e 2e 53 43 41 4c 45 2e | 0a 43 20 20 20 20 20 20 |N.SCALE.|.C |
|00027060| 46 4b 4f 20 3d 20 52 41 | 54 49 4f 20 4f 46 20 46 |FKO = RA|TIO OF F|
|00027070| 4f 52 4d 41 54 49 4f 4e | 20 43 4f 4e 53 54 41 4e |ORMATION| CONSTAN|
|00027080| 54 20 4f 46 20 4e 4f 4e | 41 51 2e 50 52 4f 44 2e |T OF NON|AQ.PROD.|
|00027090| 53 50 2e 4f 4e 20 52 45 | 46 2e 43 4f 4e 43 4e 2e |SP.ON RE|F.CONCN.|
|000270a0| 0a 43 20 20 20 20 20 20 | 20 20 20 20 20 20 20 53 |.C | S|
|000270b0| 43 41 4c 45 20 54 4f 20 | 54 48 41 54 20 4f 4e 20 |CALE TO |THAT ON |
|000270c0| 54 48 45 20 43 55 52 52 | 45 4e 54 20 43 4f 4e 43 |THE CURR|ENT CONC|
|000270d0| 4e 2e 53 43 41 4c 45 2e | 0a 43 20 20 20 20 20 20 |N.SCALE.|.C |
|000270e0| 46 4f 43 20 3d 20 46 41 | 43 54 4f 52 20 2d 2d 20 |FOC = FA|CTOR -- |
|000270f0| 28 52 45 41 43 54 41 4e | 54 20 41 43 54 49 56 49 |(REACTAN|T ACTIVI|
|00027100| 54 59 29 2a 2a 45 4f 43 | 20 2d 2d 20 49 4e 20 4e |TY)**EOC| -- IN N|
|00027110| 4f 4e 41 51 2e 46 4f 52 | 4d 2e 43 4f 4e 53 54 2e |ONAQ.FOR|M.CONST.|
|00027120| 0a 43 20 20 20 20 20 20 | 46 4f 4b 20 3d 20 46 4f |.C |FOK = FO|
|00027130| 52 4d 41 54 49 4f 4e 20 | 43 4f 4e 53 54 41 4e 54 |RMATION |CONSTANT|
|00027140| 20 46 4f 52 20 41 20 4e | 4f 4e 41 51 55 45 4f 55 | FOR A N|ONAQUEOU|
|00027150| 53 20 50 52 4f 44 55 43 | 54 20 53 50 45 43 49 45 |S PRODUC|T SPECIE|
|00027160| 53 2e 0a 43 20 20 20 20 | 20 47 28 49 29 20 3d 20 |S..C | G(I) = |
|00027170| 41 43 54 49 56 49 54 59 | 20 43 4f 45 46 46 49 43 |ACTIVITY| COEFFIC|
|00027180| 49 45 4e 54 20 4f 46 20 | 53 50 45 43 49 45 53 20 |IENT OF |SPECIES |
|00027190| 49 0a 43 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |I.C | |
|000271a0| 41 51 55 45 4f 55 53 20 | 41 4e 44 20 4e 4f 4e 41 |AQUEOUS |AND NONA|
|000271b0| 51 55 45 4f 55 53 20 50 | 48 41 53 45 53 2c 20 4f |QUEOUS P|HASES, O|
|000271c0| 52 20 28 32 29 20 41 51 | 2e 20 50 48 41 53 45 20 |R (2) AQ|. PHASE |
|000271d0| 4f 4e 4c 59 2e 0a 43 20 | 20 20 20 20 20 49 43 4e |ONLY..C | ICN|
|000271e0| 20 3d 20 49 4e 44 49 43 | 41 54 4f 52 20 4f 46 20 | = INDIC|ATOR OF |
|000271f0| 43 4f 4e 43 2e 20 53 43 | 41 4c 45 3b 20 4d 4f 4c |CONC. SC|ALE; MOL|
|00027200| 41 52 49 54 59 20 28 31 | 29 2c 20 4d 4f 4c 41 4c |ARITY (1|), MOLAL|
|00027210| 49 54 59 20 28 32 29 2c | 0a 43 20 20 20 20 20 20 |ITY (2),|.C |
|00027220| 20 20 20 20 20 20 20 4f | 52 20 4d 4f 4c 45 53 2f | O|R MOLES/|
|00027230| 4b 47 20 53 4f 4c 4e 2e | 28 33 29 2e 0a 43 20 20 |KG SOLN.|(3)..C |
|00027240| 20 20 20 49 43 54 52 20 | 3d 20 49 4e 44 45 58 20 | ICTR |= INDEX |
|00027250| 4f 46 20 41 20 4e 4f 4e | 41 51 55 45 4f 55 53 20 |OF A NON|AQUEOUS |
|00027260| 50 52 4f 44 2e 53 50 45 | 43 49 45 53 20 54 48 41 |PROD.SPE|CIES THA|
|00027270| 54 20 43 41 4e 20 46 4f | 52 4d 20 41 4e 44 20 4f |T CAN FO|RM AND O|
|00027280| 46 0a 43 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |F.C | |
|00027290| 43 48 41 52 47 45 20 4f | 50 50 4f 53 49 54 45 20 |CHARGE O|PPOSITE |
|000272a0| 54 4f 20 54 48 41 54 20 | 4f 46 20 54 48 45 20 52 |TO THAT |OF THE R|
|000272b0| 45 46 45 52 45 4e 43 45 | 20 49 4f 4e 2e 0a 43 20 |EFERENCE| ION..C |
|000272c0| 20 20 20 20 20 49 45 51 | 20 3d 20 49 4e 44 49 43 | IEQ| = INDIC|
|000272d0| 41 54 4f 52 20 4f 46 20 | 47 49 56 45 4e 20 49 4e |ATOR OF |GIVEN IN|
|000272e0| 49 54 49 41 4c 20 28 30 | 29 20 4f 52 20 45 51 55 |ITIAL (0|) OR EQU|
|000272f0| 49 4c 2e 20 28 31 29 20 | 41 51 2e 43 4f 4d 50 4e |IL. (1) |AQ.COMPN|
|00027300| 2e 0a 43 20 20 20 20 20 | 20 49 48 43 20 3d 20 49 |..C | IHC = I|
|00027310| 4e 44 49 43 41 54 4f 52 | 20 4f 46 20 43 4f 4e 44 |NDICATOR| OF COND|
|00027320| 49 54 49 4f 4e 53 20 54 | 48 41 54 20 44 45 54 45 |ITIONS T|HAT DETE|
|00027330| 52 4d 49 4e 45 20 49 46 | 20 48 2b 20 41 4e 44 2f |RMINE IF| H+ AND/|
|00027340| 4f 52 20 4f 48 2d 0a 43 | 20 20 20 20 20 20 20 20 |OR OH-.C| |
|00027350| 20 20 20 20 20 41 52 45 | 20 54 4f 20 42 45 20 43 | ARE| TO BE C|
|00027360| 41 4c 43 55 4c 41 54 45 | 44 20 28 53 45 45 20 42 |ALCULATE|D (SEE B|
|00027370| 45 4c 4f 57 29 2e 0a 43 | 20 20 20 20 20 49 52 45 |ELOW)..C| IRE|
|00027380| 46 20 3d 20 49 4e 44 45 | 58 20 4f 46 20 41 20 4e |F = INDE|X OF A N|
|00027390| 4f 4e 41 51 55 45 4f 55 | 53 20 50 52 4f 44 2e 53 |ONAQUEOU|S PROD.S|
|000273a0| 50 45 43 49 45 53 20 55 | 53 45 44 20 41 53 20 54 |PECIES U|SED AS T|
|000273b0| 48 45 20 52 45 46 2e 49 | 4f 4e 0a 43 20 20 20 20 |HE REF.I|ON.C |
|000273c0| 20 20 49 53 54 20 3d 20 | 41 20 46 4c 41 47 20 49 | IST = |A FLAG I|
|000273d0| 4e 44 49 43 41 54 49 4e | 47 3a 20 28 31 29 20 52 |NDICATIN|G: (1) R|
|000273e0| 4f 55 47 48 20 45 53 54 | 49 4d 41 54 45 53 20 4f |OUGH EST|IMATES O|
|000273f0| 46 20 54 48 45 0a 43 20 | 20 20 20 20 20 20 20 20 |F THE.C | |
|00027400| 20 20 20 20 52 45 41 43 | 54 41 4e 54 20 43 4f 4e | REAC|TANT CON|
|00027410| 43 45 4e 54 52 41 54 49 | 4f 4e 53 20 28 4f 46 20 |CENTRATI|ONS (OF |
|00027420| 48 41 2c 42 2c 4d 2c 4e | 2c 58 2c 59 2c 48 29 20 |HA,B,M,N|,X,Y,H) |
|00027430| 41 52 45 0a 43 20 20 20 | 20 20 20 20 20 20 20 20 |ARE.C | |
|00027440| 20 20 41 56 41 49 4c 41 | 42 4c 45 3b 20 4f 52 20 | AVAILA|BLE; OR |
|00027450| 28 32 29 20 47 4f 4f 44 | 20 45 53 54 49 4d 41 54 |(2) GOOD| ESTIMAT|
|00027460| 45 53 20 4f 46 20 41 4c | 4c 20 53 50 45 43 49 45 |ES OF AL|L SPECIE|
|00027470| 0a 43 20 20 20 20 20 20 | 20 20 20 20 20 20 20 43 |.C | C|
|00027480| 4f 4e 43 45 4e 54 52 41 | 54 49 4f 4e 53 20 41 52 |ONCENTRA|TIONS AR|
|00027490| 45 20 41 56 41 49 4c 41 | 42 4c 45 2e 0a 43 20 20 |E AVAILA|BLE..C |
|000274a0| 20 20 20 4e 43 41 4c 20 | 3d 20 46 4c 41 47 20 49 | NCAL |= FLAG I|
|000274b0| 4e 44 49 43 41 54 49 4e | 47 20 54 48 45 20 4b 49 |NDICATIN|G THE KI|
|000274c0| 4e 44 20 4f 46 20 45 51 | 55 49 4c 49 42 52 49 55 |ND OF EQ|UILIBRIU|
|000274d0| 4d 20 43 41 4c 43 55 4c | 41 54 49 4f 4e 3a 0a 43 |M CALCUL|ATION:.C|
|000274e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 30 2c 20 | | 0, |
|000274f0| 4e 4f 4e 45 20 4e 45 45 | 44 45 44 3b 20 31 2c 20 |NONE NEE|DED; 1, |
|00027500| 42 4f 54 48 20 41 51 2e | 41 4e 44 20 4e 4f 4e 41 |BOTH AQ.|AND NONA|
|00027510| 51 2e 50 48 41 53 45 53 | 20 50 52 45 53 45 4e 54 |Q.PHASES| PRESENT|
|00027520| 3b 0a 43 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.C | |
|00027530| 32 2c 20 4f 4e 4c 59 20 | 4e 4f 4e 41 51 2e 50 48 |2, ONLY |NONAQ.PH|
|00027540| 41 53 45 20 50 52 45 53 | 45 4e 54 3b 20 33 2c 20 |ASE PRES|ENT; 3, |
|00027550| 4f 4e 4c 59 20 41 51 2e | 50 48 41 53 45 20 50 52 |ONLY AQ.|PHASE PR|
|00027560| 45 53 45 4e 54 0a 43 20 | 20 20 20 20 4e 43 41 50 |ESENT.C | NCAP|
|00027570| 20 3d 20 43 4f 45 46 2e | 20 49 4e 20 46 4f 52 4d | = COEF.| IN FORM|
|00027580| 55 4c 41 20 4f 46 20 41 | 4e 20 41 51 2e 20 50 52 |ULA OF A|N AQ. PR|
|00027590| 4f 44 2e 20 53 50 45 43 | 49 45 53 2e 0a 43 20 20 |OD. SPEC|IES..C |
|000275a0| 20 20 20 4e 43 42 4f 20 | 3d 20 46 4c 4f 47 20 53 | NCBO |= FLOG S|
|000275b0| 49 47 4e 49 46 59 49 4e | 47 20 4e 4f 20 4e 4f 4e |IGNIFYIN|G NO NON|
|000275c0| 41 51 55 45 4f 55 53 20 | 43 48 52 41 47 45 44 20 |AQUEOUS |CHRAGED |
|000275d0| 53 50 45 43 49 45 53 20 | 28 30 29 20 4f 52 0a 43 |SPECIES |(0) OR.C|
|000275e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 41 54 20 | | AT |
|000275f0| 4c 45 41 53 54 20 4f 4e | 45 20 53 55 43 48 20 53 |LEAST ON|E SUCH S|
|00027600| 50 45 43 49 45 53 20 57 | 49 54 48 20 41 20 2b 20 |PECIES W|ITH A + |
|00027610| 43 48 41 52 47 45 20 41 | 4e 44 20 41 54 20 4c 45 |CHARGE A|ND AT LE|
|00027620| 41 53 54 0a 43 20 20 20 | 20 20 20 20 20 20 20 20 |AST.C | |
|00027630| 20 20 4f 4e 45 20 57 49 | 54 48 20 41 20 2d 20 43 | ONE WI|TH A - C|
|00027640| 48 41 52 47 45 20 28 32 | 29 2e 0a 43 20 20 20 20 |HARGE (2|)..C |
|00027650| 20 4e 43 4f 50 20 3d 20 | 43 4f 45 46 2e 20 49 4e | NCOP = |COEF. IN|
|00027660| 20 46 4f 52 4d 55 4c 41 | 20 4f 46 20 41 20 4e 4f | FORMULA| OF A NO|
|00027670| 4e 41 51 2e 20 50 52 4f | 44 2e 20 53 50 45 43 49 |NAQ. PRO|D. SPECI|
|00027680| 45 53 2e 0a 43 20 20 20 | 20 20 4e 43 54 52 20 3d |ES..C | NCTR =|
|00027690| 20 46 4c 41 47 20 49 4e | 44 49 43 41 54 49 4e 47 | FLAG IN|DICATING|
|000276a0| 20 54 48 41 54 20 41 20 | 43 4f 55 4e 54 45 52 20 | THAT A |COUNTER |
|000276b0| 49 4f 4e 20 43 41 4e 27 | 54 20 28 30 29 20 4f 52 |ION CAN'|T (0) OR|
|000276c0| 20 43 41 4e 20 28 31 29 | 20 46 4f 52 4d 0a 43 20 | CAN (1)| FORM.C |
|000276d0| 20 20 20 20 20 4e 45 51 | 20 3d 20 54 48 45 20 4e | NEQ| = THE N|
|000276e0| 55 4d 42 45 52 20 4f 46 | 20 45 51 55 41 54 49 4f |UMBER OF| EQUATIO|
|000276f0| 4e 53 20 54 4f 20 42 45 | 20 53 4f 4c 56 45 44 2e |NS TO BE| SOLVED.|
|00027700| 0a 43 20 20 20 20 20 20 | 20 4e 46 20 3d 20 41 20 |.C | NF = A |
|00027710| 4c 41 42 45 4c 20 44 45 | 53 49 47 4e 41 54 49 4e |LABEL DE|SIGNATIN|
|00027720| 47 20 45 41 43 48 20 43 | 4f 4e 43 45 4e 54 52 41 |G EACH C|ONCENTRA|
|00027730| 54 49 4f 4e 20 54 4f 20 | 42 45 20 44 45 54 4d 44 |TION TO |BE DETMD|
|00027740| 2e 0a 43 20 20 20 20 20 | 4e 46 52 46 20 3d 20 46 |..C |NFRF = F|
|00027750| 4c 41 47 20 49 4e 44 49 | 43 41 54 49 4e 47 20 50 |LAG INDI|CATING P|
|00027760| 52 45 53 45 4e 43 45 20 | 28 31 29 20 4f 52 20 41 |RESENCE |(1) OR A|
|00027770| 42 53 45 4e 43 45 20 28 | 30 29 20 4f 46 20 52 45 |BSENCE (|0) OF RE|
|00027780| 46 2e 49 4f 4e 49 43 0a | 43 20 20 20 20 20 20 20 |F.IONIC.|C |
|00027790| 20 20 20 20 20 20 50 52 | 4f 44 55 43 54 20 53 50 | PR|ODUCT SP|
|000277a0| 45 43 49 45 53 20 49 4e | 20 4e 4f 4e 41 51 2e 50 |ECIES IN| NONAQ.P|
|000277b0| 48 41 53 45 2e 0a 43 20 | 20 20 20 20 20 4e 49 41 |HASE..C | NIA|
|000277c0| 20 3d 20 49 4e 44 49 43 | 41 54 4f 52 20 4f 46 20 | = INDIC|ATOR OF |
|000277d0| 43 41 4c 43 55 4c 41 54 | 45 44 20 28 30 29 20 4f |CALCULAT|ED (0) O|
|000277e0| 52 20 41 53 53 55 4d 45 | 44 20 55 4e 49 54 20 28 |R ASSUME|D UNIT (|
|000277f0| 31 29 20 56 41 4c 55 45 | 53 0a 43 20 20 20 20 20 |1) VALUE|S.C |
|00027800| 20 20 20 20 20 20 20 20 | 46 4f 52 20 41 51 2e 41 | |FOR AQ.A|
|00027810| 43 54 2e 43 4f 45 46 53 | 2e 0a 43 20 20 20 20 20 |CT.COEFS|..C |
|00027820| 20 4e 49 4f 20 3d 20 49 | 4e 44 49 43 41 54 4f 52 | NIO = I|NDICATOR|
|00027830| 20 4f 46 20 43 41 4c 43 | 55 4c 41 54 45 44 20 28 | OF CALC|ULATED (|
|00027840| 30 29 20 4f 52 20 41 53 | 53 55 4d 45 44 20 55 4e |0) OR AS|SUMED UN|
|00027850| 49 54 20 28 31 29 20 56 | 41 4c 55 45 53 0a 43 20 |IT (1) V|ALUES.C |
|00027860| 20 20 20 20 20 20 20 20 | 20 20 20 20 46 4f 52 20 | | FOR |
|00027870| 4e 4f 4e 41 51 2e 41 43 | 54 2e 43 4f 45 46 53 2e |NONAQ.AC|T.COEFS.|
|00027880| 0a 43 20 20 20 20 20 4e | 52 45 46 20 3d 20 46 4c |.C N|REF = FL|
|00027890| 41 47 20 49 4e 44 49 43 | 41 54 49 4e 47 20 54 48 |AG INDIC|ATING TH|
|000278a0| 41 54 20 52 45 46 2e 49 | 4f 4e 20 43 41 4e 27 54 |AT REF.I|ON CAN'T|
|000278b0| 20 28 30 29 20 4f 52 20 | 43 41 4e 20 28 31 29 20 | (0) OR |CAN (1) |
|000278c0| 46 4f 52 4d 0a 43 20 20 | 20 20 20 4e 5a 50 4f 20 |FORM.C | NZPO |
|000278d0| 3d 20 43 48 41 52 47 45 | 20 4f 4e 20 41 20 4e 4f |= CHARGE| ON A NO|
|000278e0| 4e 41 51 55 45 4f 55 53 | 20 50 52 4f 44 55 43 54 |NAQUEOUS| PRODUCT|
|000278f0| 20 53 50 45 43 49 45 53 | 0a 43 20 20 20 20 20 20 | SPECIES|.C |
|00027900| 20 50 52 20 3d 20 54 48 | 45 20 52 41 54 49 4f 20 | PR = TH|E RATIO |
|00027910| 4f 46 20 4e 4f 4e 41 51 | 55 45 4f 55 53 20 54 4f |OF NONAQ|UEOUS TO|
|00027920| 20 41 51 55 45 4f 55 53 | 20 50 48 41 53 45 20 28 | AQUEOUS| PHASE (|
|00027930| 4c 20 53 4c 4e 2e 2f 4c | 20 53 4c 4e 2e 2c 0a 43 |L SLN./L| SLN.,.C|
|00027940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 4b 47 20 | | KG |
|00027950| 53 4c 56 2e 2f 4b 47 20 | 53 4c 56 2e 2c 20 4f 52 |SLV./KG |SLV., OR|
|00027960| 20 4b 47 20 53 4c 4e 2e | 2f 4b 47 20 53 4c 4e 2e | KG SLN.|/KG SLN.|
|00027970| 29 2e 0a 43 20 20 20 20 | 20 20 52 41 43 20 3d 20 |)..C | RAC = |
|00027980| 53 55 42 53 43 52 49 50 | 54 20 49 4e 20 54 48 45 |SUBSCRIP|T IN THE|
|00027990| 20 46 4f 52 4d 55 4c 41 | 20 4f 46 20 41 4e 20 41 | FORMULA| OF AN A|
|000279a0| 51 55 45 4f 55 53 20 50 | 52 4f 44 55 43 54 20 53 |QUEOUS P|RODUCT S|
|000279b0| 50 45 43 49 45 53 2c 0a | 43 20 20 20 20 20 20 20 |PECIES,.|C |
|000279c0| 20 20 20 20 20 20 4e 55 | 4d 42 45 52 45 44 20 49 | NU|MBERED I|
|000279d0| 4e 20 54 48 45 20 4f 52 | 44 45 52 20 48 41 2c 20 |N THE OR|DER HA, |
|000279e0| 42 2c 20 4d 2c 20 4e 2c | 20 58 2c 20 59 2c 20 45 |B, M, N,| X, Y, E|
|000279f0| 54 43 2e 0a 43 20 20 20 | 20 20 20 52 41 4f 20 3d |TC..C | RAO =|
|00027a00| 20 52 45 43 49 50 52 4f | 43 41 4c 20 4f 46 20 54 | RECIPRO|CAL OF T|
|00027a10| 48 45 20 50 48 41 53 45 | 20 52 41 54 49 4f 20 50 |HE PHASE| RATIO P|
|00027a20| 52 2e 0a 43 20 20 20 20 | 20 52 4c 4b 57 20 3d 20 |R..C | RLKW = |
|00027a30| 4c 4f 47 20 4f 46 20 54 | 48 45 20 44 49 53 53 4f |LOG OF T|HE DISSO|
|00027a40| 43 49 41 54 49 4f 4e 20 | 43 4f 4e 53 54 41 4e 54 |CIATION |CONSTANT|
|00027a50| 20 4f 46 20 57 41 54 45 | 52 2e 0a 43 20 20 20 20 | OF WATE|R..C |
|00027a60| 20 52 4d 42 41 20 3d 20 | 52 41 54 49 4f 20 4f 46 | RMBA = |RATIO OF|
|00027a70| 20 45 51 55 49 4c 49 42 | 52 49 55 4d 20 54 4f 20 | EQUILIB|RIUM TO |
|00027a80| 49 4e 49 54 49 41 4c 20 | 41 4d 4f 55 4e 54 20 4f |INITIAL |AMOUNT O|
|00027a90| 46 20 57 41 54 45 52 20 | 49 4e 0a 43 20 20 20 20 |F WATER |IN.C |
|00027aa0| 20 20 20 20 20 20 20 20 | 41 51 55 45 4f 55 53 20 | |AQUEOUS |
|00027ab0| 50 48 41 53 45 2e 0a 43 | 20 20 20 20 20 52 4d 42 |PHASE..C| RMB|
|00027ac0| 4f 20 3d 20 52 41 54 49 | 4f 20 4f 46 20 45 51 55 |O = RATI|O OF EQU|
|00027ad0| 49 4c 49 42 52 49 55 4d | 20 54 4f 20 49 4e 49 54 |ILIBRIUM| TO INIT|
|00027ae0| 49 41 4c 20 41 4d 4f 55 | 4e 54 20 4f 46 20 53 4f |IAL AMOU|NT OF SO|
|00027af0| 4c 56 45 4e 54 20 49 4e | 0a 43 20 20 20 20 20 20 |LVENT IN|.C |
|00027b00| 20 20 20 20 20 20 4e 4f | 4e 41 51 55 45 4f 55 53 | NO|NAQUEOUS|
|00027b10| 20 50 48 41 53 45 2e 0a | 43 20 20 20 20 20 20 52 | PHASE..|C R|
|00027b20| 4e 41 20 3d 20 44 45 47 | 52 45 45 20 4f 46 20 41 |NA = DEG|REE OF A|
|00027b30| 53 53 4f 43 49 41 54 49 | 4f 4e 20 4f 46 20 45 58 |SSOCIATI|ON OF EX|
|00027b40| 54 52 41 43 54 41 4e 54 | 20 48 41 2e 0a 43 20 20 |TRACTANT| HA..C |
|00027b50| 20 20 20 20 52 4e 42 20 | 3d 20 44 45 47 52 45 45 | RNB |= DEGREE|
|00027b60| 20 4f 46 20 41 53 53 4f | 43 49 41 54 49 4f 4e 20 | OF ASSO|CIATION |
|00027b70| 4f 46 20 45 58 54 52 41 | 43 54 41 4e 54 20 42 2e |OF EXTRA|CTANT B.|
|00027b80| 0a 43 20 20 20 20 20 20 | 52 4f 43 20 3d 20 53 55 |.C |ROC = SU|
|00027b90| 42 53 43 52 49 50 54 20 | 49 4e 20 54 48 45 20 46 |BSCRIPT |IN THE F|
|00027ba0| 4f 52 4d 55 4c 41 20 4f | 46 20 41 20 4e 4f 4e 41 |ORMULA O|F A NONA|
|00027bb0| 51 55 45 4f 55 53 20 50 | 52 4f 44 55 43 54 20 53 |QUEOUS P|RODUCT S|
|00027bc0| 50 45 43 49 45 53 2c 0a | 43 20 20 20 20 20 20 20 |PECIES,.|C |
|00027bd0| 20 20 20 20 20 20 4e 55 | 4d 42 45 52 45 44 20 49 | NU|MBERED I|
|00027be0| 4e 20 54 48 45 20 4f 52 | 44 45 52 20 48 41 2c 20 |N THE OR|DER HA, |
|00027bf0| 42 2c 20 4d 2c 20 4e 2c | 20 58 2c 20 59 2c 20 45 |B, M, N,| X, Y, E|
|00027c00| 54 43 2e 0a 43 20 20 20 | 20 20 20 52 57 41 20 3d |TC..C | RWA =|
|00027c10| 20 4e 55 4d 42 45 52 20 | 4f 46 20 57 41 54 45 52 | NUMBER |OF WATER|
|00027c20| 20 4d 4f 4c 45 43 55 4c | 45 53 20 49 4e 20 41 4e | MOLECUL|ES IN AN|
|00027c30| 20 41 47 47 52 45 47 41 | 54 45 20 4f 46 20 48 41 | AGGREGA|TE OF HA|
|00027c40| 2e 0a 43 20 20 20 20 20 | 20 52 57 42 20 3d 20 4e |..C | RWB = N|
|00027c50| 55 4d 42 45 52 20 4f 46 | 20 57 41 54 45 52 20 4d |UMBER OF| WATER M|
|00027c60| 4f 4c 45 43 55 4c 45 53 | 20 49 4e 20 41 4e 20 41 |OLECULES| IN AN A|
|00027c70| 47 47 52 45 47 41 54 45 | 20 4f 46 20 42 2e 0a 43 |GGREGATE| OF B..C|
|00027c80| 20 20 20 20 20 52 5a 49 | 52 20 3d 20 52 41 54 49 | RZI|R = RATI|
|00027c90| 4f 20 4f 46 20 43 48 41 | 52 47 45 20 4f 4e 20 4e |O OF CHA|RGE ON N|
|00027ca0| 4f 4e 41 51 55 45 4f 55 | 53 20 50 52 4f 44 55 43 |ONAQUEOU|S PRODUC|
|00027cb0| 54 20 53 50 45 43 49 45 | 53 0a 43 20 20 20 20 20 |T SPECIE|S.C |
|00027cc0| 20 20 20 20 20 20 20 20 | 54 4f 20 54 48 41 54 20 | |TO THAT |
|00027cd0| 4f 4e 20 54 48 45 20 52 | 45 46 45 52 45 4e 43 45 |ON THE R|EFERENCE|
|00027ce0| 20 49 4f 4e 0a 43 20 20 | 20 20 20 20 52 5a 4d 20 | ION.C | RZM |
|00027cf0| 3d 20 43 48 41 52 47 45 | 20 4f 4e 20 43 41 54 49 |= CHARGE| ON CATI|
|00027d00| 4f 4e 20 4d 2e 0a 43 20 | 20 20 20 20 20 52 5a 4e |ON M..C | RZN|
|00027d10| 20 3d 20 43 48 41 52 47 | 45 20 4f 4e 20 43 41 54 | = CHARG|E ON CAT|
|00027d20| 49 4f 4e 20 4e 2e 0a 43 | 20 20 20 20 20 20 52 5a |ION N..C| RZ|
|00027d30| 58 20 3d 20 43 48 41 52 | 47 45 2c 20 57 49 54 48 |X = CHAR|GE, WITH|
|00027d40| 4f 55 54 20 53 49 47 4e | 2c 20 4f 4e 20 41 4e 49 |OUT SIGN|, ON ANI|
|00027d50| 4f 4e 20 58 2e 0a 43 20 | 20 20 20 20 20 52 5a 59 |ON X..C | RZY|
|00027d60| 20 3d 20 43 48 41 52 47 | 45 2c 20 57 49 54 48 4f | = CHARG|E, WITHO|
|00027d70| 55 54 20 53 49 47 4e 2c | 20 4f 4e 20 41 4e 49 4f |UT SIGN,| ON ANIO|
|00027d80| 4e 20 59 2e 0a 43 20 20 | 20 20 20 20 53 41 30 20 |N Y..C | SA0 |
|00027d90| 3d 20 54 48 45 20 54 4f | 54 41 4c 20 43 4f 4e 43 |= THE TO|TAL CONC|
|00027da0| 45 4e 54 52 41 54 49 4f | 4e 20 4f 46 20 41 2e 2a |ENTRATIO|N OF A.*|
|00027db0| 0a 43 20 20 20 20 20 20 | 53 42 30 20 3d 20 54 48 |.C |SB0 = TH|
|00027dc0| 45 20 54 4f 54 41 4c 20 | 43 4f 4e 43 45 4e 54 52 |E TOTAL |CONCENTR|
|00027dd0| 41 54 49 4f 4e 20 4f 46 | 20 42 2e 2a 0a 43 20 20 |ATION OF| B.*.C |
|00027de0| 20 20 20 53 45 4f 43 20 | 3d 20 45 58 50 4f 4e 45 | SEOC |= EXPONE|
|00027df0| 4e 54 20 4f 46 20 41 20 | 52 45 41 43 54 41 4e 54 |NT OF A |REACTANT|
|00027e00| 20 43 4f 4e 43 4e 2e 49 | 4e 20 41 4e 20 45 51 55 | CONCN.I|N AN EQU|
|00027e10| 49 4c 2e 43 4f 4e 53 54 | 2e 46 4f 52 20 41 0a 43 |IL.CONST|.FOR A.C|
|00027e20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 52 45 41 | | REA|
|00027e30| 43 54 49 4f 4e 20 49 4e | 56 4f 4c 56 49 4e 47 20 |CTION IN|VOLVING |
|00027e40| 41 20 4e 4f 4e 41 51 55 | 45 4f 55 53 20 50 52 4f |A NONAQU|EOUS PRO|
|00027e50| 44 55 43 54 20 53 50 45 | 43 49 45 53 20 41 4e 44 |DUCT SPE|CIES AND|
|00027e60| 0a 43 20 20 20 20 20 20 | 20 20 20 20 20 20 20 45 |.C | E|
|00027e70| 58 43 4c 55 44 49 4e 47 | 20 41 4c 4c 20 41 51 55 |XCLUDING| ALL AQU|
|00027e80| 45 4f 55 53 20 52 45 41 | 43 54 41 4e 54 53 2e 0a |EOUS REA|CTANTS..|
|00027e90| 43 20 20 20 20 20 53 46 | 4f 4b 20 3d 20 45 51 55 |C SF|OK = EQU|
|00027ea0| 49 4c 49 42 52 49 55 4d | 20 43 4f 4e 53 54 41 4e |ILIBRIUM| CONSTAN|
|00027eb0| 54 20 46 4f 52 20 41 20 | 52 45 41 43 54 49 4f 4e |T FOR A |REACTION|
|00027ec0| 20 49 4e 56 4f 4c 56 49 | 4e 47 20 41 20 4e 4f 4e | INVOLVI|NG A NON|
|00027ed0| 41 51 55 45 4f 55 53 20 | 0a 43 20 20 20 20 20 20 |AQUEOUS |.C |
|00027ee0| 20 20 20 20 20 20 20 50 | 52 4f 44 55 43 54 20 53 | P|RODUCT S|
|00027ef0| 50 45 43 49 45 53 20 41 | 4e 44 20 45 58 43 4c 55 |PECIES A|ND EXCLU|
|00027f00| 44 49 4e 47 20 41 51 55 | 45 4f 55 53 20 52 45 41 |DING AQU|EOUS REA|
|00027f10| 43 54 41 4e 54 53 2e 0a | 43 20 20 20 20 20 53 48 |CTANTS..|C SH|
|00027f20| 41 30 20 3d 20 54 4f 54 | 41 4c 20 43 4f 4e 43 2e |A0 = TOT|AL CONC.|
|00027f30| 20 4f 46 20 41 43 49 44 | 20 49 4e 20 41 51 55 45 | OF ACID| IN AQUE|
|00027f40| 4f 55 53 20 50 48 41 53 | 45 2e 0a 43 20 20 20 20 |OUS PHAS|E..C |
|00027f50| 20 20 53 48 30 20 3d 20 | 54 4f 54 41 4c 20 43 4f | SH0 = |TOTAL CO|
|00027f60| 4e 43 2e 20 4f 46 20 41 | 43 49 44 2e 2a 0a 43 20 |NC. OF A|CID.*.C |
|00027f70| 20 20 20 20 53 4d 41 30 | 20 3d 20 54 4f 54 41 4c | SMA0| = TOTAL|
|00027f80| 20 43 4f 4e 43 2e 20 4f | 46 20 4d 20 49 4e 20 41 | CONC. O|F M IN A|
|00027f90| 51 55 45 4f 55 53 20 50 | 48 41 53 45 2e 20 0a 43 |QUEOUS P|HASE. .C|
|00027fa0| 20 20 20 20 20 53 4e 41 | 30 20 3d 20 54 4f 54 41 | SNA|0 = TOTA|
|00027fb0| 4c 20 43 4f 4e 43 2e 20 | 4f 46 20 4e 20 49 4e 20 |L CONC. |OF N IN |
|00027fc0| 41 51 55 45 4f 55 53 20 | 50 48 41 53 45 2e 0a 43 |AQUEOUS |PHASE..C|
|00027fd0| 20 20 20 20 20 20 53 4d | 30 20 3d 20 54 4f 54 41 | SM|0 = TOTA|
|00027fe0| 4c 20 43 4f 4e 43 2e 20 | 4f 46 20 4d 2e 2a 0a 43 |L CONC. |OF M.*.C|
|00027ff0| 20 20 20 20 20 20 53 4e | 30 20 3d 20 54 4f 54 41 | SN|0 = TOTA|
|00028000| 4c 20 43 4f 4e 43 2e 20 | 4f 46 20 4e 2e 2a 0a 43 |L CONC. |OF N.*.C|
|00028010| 20 20 20 20 20 20 53 52 | 45 20 3d 20 53 55 4d 20 | SR|E = SUM |
|00028020| 4f 46 20 45 58 50 4f 4e | 45 4e 54 53 20 46 4f 52 |OF EXPON|ENTS FOR|
|00028030| 20 4f 4e 45 20 52 45 41 | 43 54 41 4e 54 20 49 4e | ONE REA|CTANT IN|
|00028040| 20 45 51 2e 43 4f 4e 53 | 54 41 4e 54 53 20 0a 43 | EQ.CONS|TANTS .C|
|00028050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 46 4f 52 | | FOR|
|00028060| 20 42 4f 54 48 20 4e 4f | 4e 41 51 55 45 4f 55 53 | BOTH NO|NAQUEOUS|
|00028070| 20 41 4e 44 20 41 51 55 | 45 4f 55 53 20 50 52 4f | AND AQU|EOUS PRO|
|00028080| 44 55 43 54 20 53 50 45 | 43 49 45 53 2e 0a 43 20 |DUCT SPE|CIES..C |
|00028090| 20 20 20 20 53 52 45 41 | 20 3d 20 53 55 4d 20 4f | SREA| = SUM O|
|000280a0| 46 20 45 58 50 4f 4e 45 | 4e 54 53 20 46 4f 52 20 |F EXPONE|NTS FOR |
|000280b0| 4f 4e 45 20 52 45 41 43 | 54 41 4e 54 20 49 4e 20 |ONE REAC|TANT IN |
|000280c0| 45 51 2e 43 4f 4e 53 54 | 41 4e 54 53 20 0a 43 20 |EQ.CONST|ANTS .C |
|000280d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 46 4f 52 20 | | FOR |
|000280e0| 41 4c 4c 20 41 51 55 45 | 4f 55 53 20 50 52 4f 44 |ALL AQUE|OUS PROD|
|000280f0| 55 43 54 20 53 50 45 43 | 49 45 53 2e 0a 43 20 20 |UCT SPEC|IES..C |
|00028100| 20 20 20 53 58 41 30 20 | 3d 20 54 4f 54 41 4c 20 | SXA0 |= TOTAL |
|00028110| 43 4f 4e 43 2e 20 4f 46 | 20 58 20 49 4e 20 41 51 |CONC. OF| X IN AQ|
|00028120| 55 45 4f 55 53 20 50 48 | 41 53 45 2e 0a 43 20 20 |UEOUS PH|ASE..C |
|00028130| 20 20 20 20 53 58 30 20 | 3d 20 54 4f 54 41 4c 20 | SX0 |= TOTAL |
|00028140| 43 4f 4e 43 2e 20 4f 46 | 20 58 2e 2a 0a 43 20 20 |CONC. OF| X.*.C |
|00028150| 20 20 20 53 59 41 30 20 | 3d 20 54 4f 54 41 4c 20 | SYA0 |= TOTAL |
|00028160| 43 4f 4e 43 2e 20 4f 46 | 20 59 20 49 4e 20 41 51 |CONC. OF| Y IN AQ|
|00028170| 55 45 4f 55 53 20 50 48 | 41 53 45 2e 0a 43 20 20 |UEOUS PH|ASE..C |
|00028180| 20 20 20 20 53 59 30 20 | 3d 20 54 4f 54 41 4c 20 | SY0 |= TOTAL |
|00028190| 43 4f 4e 43 2e 20 4f 46 | 20 59 2e 2a 0a 43 20 20 |CONC. OF| Y.*.C |
|000281a0| 20 20 20 20 54 43 41 20 | 3d 20 47 49 56 45 4e 20 | TCA |= GIVEN |
|000281b0| 43 4f 4e 43 45 4e 54 52 | 41 54 49 4f 4e 20 49 4e |CONCENTR|ATION IN|
|000281c0| 20 54 48 45 20 4e 4f 4e | 41 51 55 45 4f 55 53 20 | THE NON|AQUEOUS |
|000281d0| 50 48 41 53 45 20 4f 46 | 20 41 20 49 4e 20 41 4c |PHASE OF| A IN AL|
|000281e0| 4c 20 49 54 53 20 46 4f | 52 4d 53 0a 43 20 20 20 |L ITS FO|RMS.C |
|000281f0| 20 20 20 54 43 42 20 3d | 20 47 49 56 45 4e 20 43 | TCB =| GIVEN C|
|00028200| 4f 4e 43 45 4e 54 52 41 | 54 49 4f 4e 20 49 4e 20 |ONCENTRA|TION IN |
|00028210| 54 48 45 20 4e 4f 4e 41 | 51 55 45 4f 55 53 20 50 |THE NONA|QUEOUS P|
|00028220| 48 41 53 45 20 4f 46 20 | 42 20 49 4e 20 41 4c 4c |HASE OF |B IN ALL|
|00028230| 20 49 54 53 20 46 4f 52 | 4d 53 0a 43 20 20 20 20 | ITS FOR|MS.C |
|00028240| 20 20 54 43 48 20 3d 20 | 47 49 56 45 4e 20 43 4f | TCH = |GIVEN CO|
|00028250| 4e 43 45 4e 54 52 41 54 | 49 4f 4e 20 4f 46 20 41 |NCENTRAT|ION OF A|
|00028260| 51 2e 20 48 2b 20 4f 52 | 2c 20 49 46 20 4e 45 47 |Q. H+ OR|, IF NEG|
|00028270| 41 54 49 56 45 2c 20 4f | 48 2d 0a 43 20 20 20 20 |ATIVE, O|H-.C |
|00028280| 20 20 54 43 4d 20 3d 20 | 47 49 56 45 4e 20 43 4f | TCM = |GIVEN CO|
|00028290| 4e 43 45 4e 54 52 41 54 | 49 4f 4e 20 4f 46 20 4d |NCENTRAT|ION OF M|
|000282a0| 0a 43 20 20 20 20 20 20 | 54 43 4e 20 3d 20 47 49 |.C |TCN = GI|
|000282b0| 56 45 4e 20 43 4f 4e 43 | 45 4e 54 52 41 54 49 4f |VEN CONC|ENTRATIO|
|000282c0| 4e 20 4f 46 20 4e 0a 43 | 20 20 20 20 20 20 54 43 |N OF N.C| TC|
|000282d0| 53 20 3d 20 47 49 56 45 | 4e 20 43 4f 4e 43 45 4e |S = GIVE|N CONCEN|
|000282e0| 54 52 41 54 49 4f 4e 20 | 4f 46 20 41 20 52 45 41 |TRATION |OF A REA|
|000282f0| 43 54 41 4e 54 20 53 50 | 45 43 49 45 53 0a 43 20 |CTANT SP|ECIES.C |
|00028300| 20 20 20 20 20 54 43 58 | 20 3d 20 47 49 56 45 4e | TCX| = GIVEN|
|00028310| 20 43 4f 4e 43 45 4e 54 | 52 41 54 49 4f 4e 20 4f | CONCENT|RATION O|
|00028320| 46 20 58 0a 43 20 20 20 | 20 20 20 54 43 59 20 3d |F X.C | TCY =|
|00028330| 20 47 49 56 45 4e 20 43 | 4f 4e 43 45 4e 54 52 41 | GIVEN C|ONCENTRA|
|00028340| 54 49 4f 4e 20 4f 46 20 | 59 0a 43 20 20 20 20 20 |TION OF |Y.C |
|00028350| 54 53 41 49 20 3d 20 49 | 4e 49 54 49 41 4c 20 41 |TSAI = I|NITIAL A|
|00028360| 4d 4f 55 4e 54 20 4f 46 | 20 41 51 55 45 4f 55 53 |MOUNT OF| AQUEOUS|
|00028370| 20 53 4f 4c 55 54 45 20 | 28 43 4d 33 2f 4c 2c 47 | SOLUTE |(CM3/L,G|
|00028380| 2f 4b 47 2c 20 4f 52 20 | 47 2f 4b 47 20 53 4c 4e |/KG, OR |G/KG SLN|
|00028390| 2e 29 0a 43 20 20 20 20 | 20 54 53 4f 49 20 3d 20 |.).C | TSOI = |
|000283a0| 49 4e 49 54 49 41 4c 20 | 41 4d 4f 55 4e 54 20 4f |INITIAL |AMOUNT O|
|000283b0| 46 20 4e 4f 4e 41 51 55 | 45 4f 55 53 20 53 4f 4c |F NONAQU|EOUS SOL|
|000283c0| 55 54 45 20 28 43 4d 33 | 2f 4c 2c 47 2f 4b 47 2c |UTE (CM3|/L,G/KG,|
|000283d0| 20 4f 52 20 47 2f 4b 47 | 20 53 4c 4e 2e 29 0a 43 | OR G/KG| SLN.).C|
|000283e0| 20 20 20 20 20 54 56 53 | 41 20 3d 20 41 50 50 41 | TVS|A = APPA|
|000283f0| 52 45 4e 54 20 56 4f 4c | 55 4d 45 20 4f 46 20 41 |RENT VOL|UME OF A|
|00028400| 51 55 45 4f 55 53 20 53 | 4f 4c 55 54 45 20 28 43 |QUEOUS S|OLUTE (C|
|00028410| 4d 33 20 50 45 52 20 4c | 49 54 45 52 20 53 4f 4c |M3 PER L|ITER SOL|
|00028420| 4e 2c 0a 43 20 20 20 20 | 20 20 20 20 20 20 20 20 |N,.C | |
|00028430| 20 50 45 52 20 4b 47 20 | 4f 46 20 53 4f 4c 56 45 | PER KG |OF SOLVE|
|00028440| 4e 54 2c 20 4f 52 20 50 | 45 52 20 4b 47 20 4f 46 |NT, OR P|ER KG OF|
|00028450| 20 53 4f 4c 55 54 49 4f | 4e 29 0a 43 20 20 20 20 | SOLUTIO|N).C |
|00028460| 54 56 53 41 45 20 3d 20 | 49 4e 49 54 49 41 4c 20 |TVSAE = |INITIAL |
|00028470| 41 50 50 41 52 45 4e 54 | 20 56 4f 4c 55 4d 45 20 |APPARENT| VOLUME |
|00028480| 4f 46 20 41 51 55 45 4f | 55 53 20 53 4f 4c 55 54 |OF AQUEO|US SOLUT|
|00028490| 45 53 20 28 47 2f 4c 2e | 53 4c 4e 2e 2c 47 2f 4b |ES (G/L.|SLN.,G/K|
|000284a0| 47 20 48 32 4f 2e 2c 0a | 43 20 20 20 20 20 20 20 |G H2O.,.|C |
|000284b0| 20 20 20 20 20 20 4f 52 | 20 47 2f 4b 47 20 53 4c | OR| G/KG SL|
|000284c0| 4e 2e 29 0a 43 20 20 20 | 20 20 54 56 53 4f 20 3d |N.).C | TVSO =|
|000284d0| 20 54 4f 54 41 4c 20 56 | 4f 4c 55 4d 45 20 4f 46 | TOTAL V|OLUME OF|
|000284e0| 20 53 4f 4c 55 54 45 20 | 49 4e 20 4e 4f 4e 41 51 | SOLUTE |IN NONAQ|
|000284f0| 2e 20 50 48 41 53 45 20 | 28 43 4d 33 20 50 45 52 |. PHASE |(CM3 PER|
|00028500| 20 4c 49 54 45 52 0a 43 | 20 20 20 20 20 20 20 20 | LITER.C| |
|00028510| 20 20 20 20 20 53 4f 4c | 4e 2c 20 50 45 52 20 4b | SOL|N, PER K|
|00028520| 47 20 4f 46 20 53 4f 4c | 56 45 4e 54 2c 20 4f 52 |G OF SOL|VENT, OR|
|00028530| 20 50 45 52 20 4b 47 20 | 4f 46 20 53 4f 4c 55 54 | PER KG |OF SOLUT|
|00028540| 49 4f 4e 29 0a 43 20 20 | 20 20 20 54 57 53 41 20 |ION).C | TWSA |
|00028550| 3d 20 57 45 49 47 48 54 | 20 4f 46 20 41 51 55 45 |= WEIGHT| OF AQUE|
|00028560| 4f 55 53 20 53 4f 4c 55 | 54 45 20 28 47 2f 4c 2e |OUS SOLU|TE (G/L.|
|00028570| 53 4c 4e 2e 2c 47 2f 4b | 47 20 48 32 4f 2e 2c 20 |SLN.,G/K|G H2O., |
|00028580| 4f 52 20 47 2f 4b 47 20 | 53 4c 4e 2e 29 0a 43 20 |OR G/KG |SLN.).C |
|00028590| 20 20 20 20 54 57 53 4f | 20 3d 20 54 4f 54 41 4c | TWSO| = TOTAL|
|000285a0| 20 57 45 49 47 48 54 20 | 4f 46 20 53 4f 4c 55 54 | WEIGHT |OF SOLUT|
|000285b0| 45 53 20 49 4e 20 4e 4f | 4e 41 51 2e 20 50 48 41 |ES IN NO|NAQ. PHA|
|000285c0| 53 45 20 28 47 20 50 45 | 52 20 4c 49 54 45 52 20 |SE (G PE|R LITER |
|000285d0| 53 4c 4e 2e 2c 0a 43 20 | 20 20 20 20 20 20 20 20 |SLN.,.C | |
|000285e0| 20 20 20 20 50 45 52 20 | 4b 47 20 4f 46 20 53 4f | PER |KG OF SO|
|000285f0| 4c 56 45 4e 54 2c 20 4f | 52 20 50 45 52 20 4b 47 |LVENT, O|R PER KG|
|00028600| 20 4f 46 20 53 4f 4c 55 | 54 49 4f 4e 29 0a 43 20 | OF SOLU|TION).C |
|00028610| 20 20 20 20 56 57 50 41 | 20 3d 20 41 4d 4f 55 4e | VWPA| = AMOUN|
|00028620| 54 20 4f 46 20 57 41 54 | 45 52 20 52 45 4c 45 41 |T OF WAT|ER RELEA|
|00028630| 53 45 44 20 42 59 20 50 | 52 4f 44 55 43 54 20 53 |SED BY P|RODUCT S|
|00028640| 50 45 43 49 45 53 20 46 | 4f 52 4d 41 54 49 4f 4e |PECIES F|ORMATION|
|00028650| 20 49 4e 20 54 48 45 0a | 43 20 20 20 20 20 20 20 | IN THE.|C |
|00028660| 20 20 20 20 20 20 41 51 | 55 45 4f 55 53 20 50 48 | AQ|UEOUS PH|
|00028670| 41 53 45 20 28 43 4d 33 | 2f 4c 2c 47 2f 4b 47 2c |ASE (CM3|/L,G/KG,|
|00028680| 20 4f 52 20 47 2f 4b 47 | 20 53 4c 4e 2e 29 0a 43 | OR G/KG| SLN.).C|
|00028690| 20 20 20 20 20 56 57 50 | 4f 20 3d 20 41 4d 4f 55 | VWP|O = AMOU|
|000286a0| 4e 54 20 4f 46 20 57 41 | 54 45 52 20 52 45 4c 45 |NT OF WA|TER RELE|
|000286b0| 41 53 45 44 20 42 59 20 | 50 52 4f 44 55 43 54 20 |ASED BY |PRODUCT |
|000286c0| 53 50 45 43 49 45 53 20 | 46 4f 52 4d 41 54 49 4f |SPECIES |FORMATIO|
|000286d0| 4e 20 49 4e 20 54 48 45 | 0a 43 20 20 20 20 20 20 |N IN THE|.C |
|000286e0| 20 20 20 20 20 20 20 4e | 4f 4e 41 51 55 45 4f 55 | N|ONAQUEOU|
|000286f0| 53 20 50 48 41 53 45 20 | 28 43 4d 33 2f 4c 20 41 |S PHASE |(CM3/L A|
|00028700| 51 2e 53 4c 4e 2e 2c 47 | 2f 4b 47 20 48 32 4f 2c |Q.SLN.,G|/KG H2O,|
|00028710| 20 4f 52 20 47 2f 4b 47 | 20 41 51 2e 53 4c 4e 2e | OR G/KG| AQ.SLN.|
|00028720| 29 0a 43 20 20 20 20 20 | 56 57 4d 57 20 3d 20 4d |).C |VWMW = M|
|00028730| 4f 4c 2e 20 57 54 2e 20 | 41 4e 44 20 4d 4f 4c 41 |OL. WT. |AND MOLA|
|00028740| 52 20 56 4f 4c 55 4d 45 | 20 4f 46 20 57 41 54 45 |R VOLUME| OF WATE|
|00028750| 52 20 28 41 53 53 55 4d | 45 44 20 45 51 55 41 4c |R (ASSUM|ED EQUAL|
|00028760| 29 0a 43 20 20 20 20 20 | 20 20 20 58 20 3d 20 47 |).C | X = G|
|00028770| 49 56 45 4e 20 43 4f 4e | 43 45 4e 54 52 41 54 49 |IVEN CON|CENTRATI|
|00028780| 4f 4e 53 20 4f 46 20 52 | 45 41 43 54 41 4e 54 53 |ONS OF R|EACTANTS|
|00028790| 2e 0a 43 20 20 20 20 20 | 20 20 58 43 20 3d 20 4c |..C | XC = L|
|000287a0| 4f 47 20 45 51 55 49 4c | 2e 20 43 4f 4e 43 4e 2e |OG EQUIL|. CONCN.|
|000287b0| 20 4f 46 20 53 50 45 43 | 49 45 53 2e 20 0a 43 20 | OF SPEC|IES. .C |
|000287c0| 20 20 20 20 20 58 43 4c | 20 3d 20 4c 4f 47 20 45 | XCL| = LOG E|
|000287d0| 51 55 49 4c 2e 20 43 4f | 4e 43 4e 53 20 54 4f 20 |QUIL. CO|NCNS TO |
|000287e0| 42 45 20 43 41 4c 43 55 | 4c 41 54 45 44 2e 0a 43 |BE CALCU|LATED..C|
|000287f0| 0a 43 20 20 2a 20 4e 4f | 54 45 3a 20 54 48 45 53 |.C * NO|TE: THES|
|00028800| 45 20 52 45 41 43 54 41 | 4e 54 20 43 4f 4e 43 45 |E REACTA|NT CONCE|
|00028810| 4e 54 52 41 54 49 4f 4e | 53 20 41 52 45 20 44 45 |NTRATION|S ARE DE|
|00028820| 46 49 4e 45 44 20 41 53 | 20 49 46 20 41 4c 4c 20 |FINED AS| IF ALL |
|00028830| 54 48 45 0a 43 20 20 20 | 20 20 20 20 20 20 20 20 |THE.C | |
|00028840| 52 45 41 43 54 41 4e 54 | 20 57 45 52 45 20 49 4e |REACTANT| WERE IN|
|00028850| 20 54 48 45 20 4e 4f 4e | 41 51 55 45 4f 55 53 20 | THE NON|AQUEOUS |
|00028860| 50 48 41 53 45 0a 43 0a | 43 0a 43 20 20 20 20 20 |PHASE.C.|C.C |
|00028870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00028880| 20 20 20 41 51 55 45 4f | 55 53 20 48 2b 20 41 4e | AQUEO|US H+ AN|
|00028890| 44 20 4f 48 2d 0a 43 0a | 43 20 20 54 48 45 20 4e |D OH-.C.|C THE N|
|000288a0| 45 45 44 20 46 4f 52 20 | 43 41 4c 43 55 4c 41 54 |EED FOR |CALCULAT|
|000288b0| 49 4f 4e 20 4f 46 20 54 | 48 45 20 48 2b 20 41 4e |ION OF T|HE H+ AN|
|000288c0| 44 2f 4f 52 20 54 48 45 | 20 4f 48 2d 20 43 4f 4e |D/OR THE| OH- CON|
|000288d0| 43 45 4e 54 52 41 54 49 | 4f 4e 0a 43 20 20 20 49 |CENTRATI|ON.C I|
|000288e0| 4e 20 54 48 45 20 41 51 | 55 45 4f 55 53 20 50 48 |N THE AQ|UEOUS PH|
|000288f0| 41 53 45 20 49 53 20 44 | 45 54 45 52 4d 49 4e 45 |ASE IS D|ETERMINE|
|00028900| 44 20 42 59 20 53 49 58 | 20 43 4f 4e 44 49 54 49 |D BY SIX| CONDITI|
|00028910| 4f 4e 53 20 57 48 49 43 | 48 20 41 52 45 0a 43 20 |ONS WHIC|H ARE.C |
|00028920| 20 20 49 44 45 4e 54 49 | 46 49 45 44 20 41 53 20 | IDENTI|FIED AS |
|00028930| 46 4f 4c 4c 4f 57 53 3a | 0a 43 0a 43 20 20 20 20 |FOLLOWS:|.C.C |
|00028940| 20 20 49 45 51 20 3d 20 | 30 3b 20 49 4e 49 54 49 | IEQ = |0; INITI|
|00028950| 41 4c 20 41 51 55 45 4f | 55 53 20 43 4f 4d 50 4f |AL AQUEO|US COMPO|
|00028960| 53 49 54 49 4f 4e 20 49 | 53 20 47 49 56 45 4e 20 |SITION I|S GIVEN |
|00028970| 20 0a 43 20 20 20 20 20 | 20 49 45 51 20 3d 20 31 | .C | IEQ = 1|
|00028980| 3b 20 45 51 55 49 4c 49 | 42 52 49 55 4d 20 41 51 |; EQUILI|BRIUM AQ|
|00028990| 55 45 4f 55 53 20 43 4f | 4d 50 4f 53 49 54 49 4f |UEOUS CO|MPOSITIO|
|000289a0| 4e 20 49 53 20 47 49 56 | 45 4e 20 20 0a 43 0a 43 |N IS GIV|EN .C.C|
|000289b0| 20 20 20 20 20 20 49 45 | 48 20 3d 20 30 3b 20 49 | IE|H = 0; I|
|000289c0| 4e 49 54 49 41 4c 20 41 | 51 55 45 4f 55 53 20 41 |NITIAL A|QUEOUS A|
|000289d0| 43 49 44 20 43 4f 4d 50 | 4f 53 49 54 49 4f 4e 20 |CID COMP|OSITION |
|000289e0| 49 53 20 47 49 56 45 4e | 20 20 0a 43 20 20 20 20 |IS GIVEN| .C |
|000289f0| 20 20 49 45 48 20 3d 20 | 31 3b 20 45 51 55 49 4c | IEH = |1; EQUIL|
|00028a00| 2e 20 41 51 55 45 4f 55 | 53 20 41 43 49 44 20 43 |. AQUEOU|S ACID C|
|00028a10| 4f 4d 50 4f 53 49 54 49 | 4f 4e 20 49 53 20 47 49 |OMPOSITI|ON IS GI|
|00028a20| 56 45 4e 20 20 0a 43 20 | 20 20 20 20 20 49 45 48 |VEN .C | IEH|
|00028a30| 20 3e 20 31 3b 20 45 51 | 55 49 4c 2e 20 41 51 55 | > 1; EQ|UIL. AQU|
|00028a40| 45 4f 55 53 20 48 2b 20 | 43 4f 4e 43 45 4e 54 52 |EOUS H+ |CONCENTR|
|00028a50| 41 54 49 4f 4e 20 49 53 | 20 47 49 56 45 4e 2e 2e |ATION IS| GIVEN..|
|00028a60| 2e 0a 43 20 20 20 20 20 | 20 20 20 20 20 3d 20 32 |..C | = 2|
|00028a70| 3b 20 20 57 49 54 48 20 | 4d 20 43 4f 4e 43 2e 41 |; WITH |M CONC.A|
|00028a80| 44 4a 55 53 54 45 44 0a | 43 20 20 20 20 20 20 20 |DJUSTED.|C |
|00028a90| 20 20 20 3d 20 33 3b 20 | 20 57 49 54 48 20 4e 20 | = 3; | WITH N |
|00028aa0| 43 4f 4e 43 2e 41 44 4a | 55 53 54 45 44 0a 43 20 |CONC.ADJ|USTED.C |
|00028ab0| 20 20 20 20 20 20 20 20 | 20 3d 20 34 3b 20 20 57 | | = 4; W|
|00028ac0| 49 54 48 20 58 20 43 4f | 4e 43 2e 41 44 4a 55 53 |ITH X CO|NC.ADJUS|
|00028ad0| 54 45 44 0a 43 20 20 20 | 20 20 20 20 20 20 20 3d |TED.C | =|
|00028ae0| 20 35 3b 20 20 57 49 54 | 48 20 59 20 43 4f 4e 43 | 5; WIT|H Y CONC|
|00028af0| 2e 41 44 4a 55 53 54 45 | 44 0a 43 0a 43 20 20 20 |.ADJUSTE|D.C.C |
|00028b00| 4e 5a 41 28 36 29 20 3d | 20 30 3b 20 54 48 45 20 |NZA(6) =| 0; THE |
|00028b10| 4f 48 2d 20 49 4f 4e 20 | 43 4f 4e 43 2e 20 49 53 |OH- ION |CONC. IS|
|00028b20| 20 54 4f 20 42 45 20 4e | 45 47 4c 45 43 54 45 44 | TO BE N|EGLECTED|
|00028b30| 0a 43 20 20 20 4e 5a 41 | 28 36 29 20 3d 20 31 3b |.C NZA|(6) = 1;|
|00028b40| 20 54 48 45 20 4f 48 2d | 20 49 4f 4e 20 43 4f 4e | THE OH-| ION CON|
|00028b50| 43 2e 20 49 53 20 54 4f | 20 42 45 20 49 4e 43 4c |C. IS TO| BE INCL|
|00028b60| 55 44 45 44 0a 43 0a 43 | 20 20 20 53 52 45 28 37 |UDED.C.C| SRE(7|
|00028b70| 29 20 3d 20 30 3b 20 46 | 4f 52 4d 41 54 49 4f 4e |) = 0; F|ORMATION|
|00028b80| 20 4f 46 20 4e 4f 20 50 | 52 4f 44 55 43 54 20 53 | OF NO P|RODUCT S|
|00028b90| 50 45 43 49 45 53 20 49 | 4e 56 4f 4c 56 45 53 20 |PECIES I|NVOLVES |
|00028ba0| 48 2b 20 0a 43 20 20 53 | 52 45 28 37 29 20 3c 3e |H+ .C S|RE(7) <>|
|00028bb0| 20 30 3b 20 46 4f 52 4d | 41 54 49 4f 4e 20 4f 46 | 0; FORM|ATION OF|
|00028bc0| 20 4f 4e 45 20 4f 52 20 | 4d 4f 52 45 20 50 52 4f | ONE OR |MORE PRO|
|00028bd0| 44 55 43 54 20 53 50 45 | 43 49 45 53 20 49 4e 56 |DUCT SPE|CIES INV|
|00028be0| 4f 4c 56 45 53 20 48 2b | 0a 43 0a 43 20 20 53 52 |OLVES H+|.C.C SR|
|00028bf0| 45 41 28 37 29 20 3d 20 | 30 3b 20 46 4f 52 4d 41 |EA(7) = |0; FORMA|
|00028c00| 54 49 4f 4e 20 4f 46 20 | 4e 4f 20 41 51 2e 20 50 |TION OF |NO AQ. P|
|00028c10| 52 4f 44 55 43 54 20 53 | 50 45 43 49 45 53 20 49 |RODUCT S|PECIES I|
|00028c20| 4e 56 4f 4c 56 45 53 20 | 48 2b 20 0a 43 20 53 52 |NVOLVES |H+ .C SR|
|00028c30| 45 41 28 37 29 20 3c 3e | 20 30 3b 20 46 4f 52 4d |EA(7) <>| 0; FORM|
|00028c40| 41 54 49 4f 4e 20 4f 46 | 20 4f 4e 45 20 4f 52 20 |ATION OF| ONE OR |
|00028c50| 4d 4f 52 45 20 41 51 2e | 20 50 52 4f 44 2e 20 53 |MORE AQ.| PROD. S|
|00028c60| 50 45 43 49 45 53 20 49 | 4e 56 4f 4c 56 45 53 20 |PECIES I|NVOLVES |
|00028c70| 48 2b 20 0a 43 0a 43 20 | 20 20 20 20 58 28 37 29 |H+ .C.C | X(7)|
|00028c80| 20 3e 20 30 3b 20 54 48 | 45 20 48 2b 20 43 4f 4e | > 0; TH|E H+ CON|
|00028c90| 54 45 4e 54 20 49 53 20 | 47 49 56 45 4e 0a 43 20 |TENT IS |GIVEN.C |
|00028ca0| 20 20 20 20 58 28 37 29 | 20 3c 20 30 3b 20 54 48 | X(7)| < 0; TH|
|00028cb0| 45 20 4f 48 2d 20 43 4f | 4e 54 45 4e 54 20 49 53 |E OH- CO|NTENT IS|
|00028cc0| 20 47 49 56 45 4e 0a 43 | 0a 43 20 20 49 4e 20 54 | GIVEN.C|.C IN T|
|00028cd0| 48 45 20 46 4f 4c 4c 4f | 57 49 4e 47 20 4c 49 53 |HE FOLLO|WING LIS|
|00028ce0| 54 2c 20 54 48 45 20 50 | 4f 53 53 49 42 4c 45 20 |T, THE P|OSSIBLE |
|00028cf0| 43 4f 4d 42 49 4e 41 54 | 49 4f 4e 53 20 4f 46 20 |COMBINAT|IONS OF |
|00028d00| 54 48 45 53 45 20 53 49 | 58 0a 43 20 20 20 43 4f |THESE SI|X.C CO|
|00028d10| 4e 44 49 54 49 4f 4e 53 | 20 41 52 45 20 49 4e 44 |NDITIONS| ARE IND|
|00028d20| 49 43 41 54 45 44 20 42 | 59 20 46 49 56 45 20 49 |ICATED B|Y FIVE I|
|00028d30| 4e 54 45 47 45 52 53 20 | 41 4e 44 20 41 20 2b 20 |NTEGERS |AND A + |
|00028d40| 4f 52 20 2d 20 53 49 47 | 4e 2e 0a 43 20 20 20 54 |OR - SIG|N..C T|
|00028d50| 48 45 20 46 49 52 53 54 | 20 41 4e 44 20 54 48 49 |HE FIRST| AND THI|
|00028d60| 52 44 20 49 4e 54 45 47 | 45 52 53 20 41 52 45 20 |RD INTEG|ERS ARE |
|00028d70| 41 53 20 49 4e 44 49 43 | 41 54 45 44 20 41 42 4f |AS INDIC|ATED ABO|
|00028d80| 56 45 3b 20 54 48 45 20 | 53 45 43 4f 4e 44 0a 43 |VE; THE |SECOND.C|
|00028d90| 20 20 20 49 4e 54 45 47 | 45 52 20 49 53 20 30 2c | INTEG|ER IS 0,|
|00028da0| 20 31 2c 20 4f 52 20 32 | 20 49 46 20 49 45 48 20 | 1, OR 2| IF IEH |
|00028db0| 49 53 20 30 2c 20 31 2c | 20 4f 52 20 3e 31 2c 20 |IS 0, 1,| OR >1, |
|00028dc0| 52 45 53 50 45 43 54 49 | 56 45 4c 59 3b 20 49 46 |RESPECTI|VELY; IF|
|00028dd0| 20 53 52 45 20 0a 43 20 | 20 20 41 4e 44 2f 4f 52 | SRE .C | AND/OR|
|00028de0| 20 53 52 45 41 20 49 53 | 20 55 4e 45 51 55 41 4c | SREA IS| UNEQUAL|
|00028df0| 20 54 4f 20 5a 45 52 4f | 2c 20 54 48 49 53 20 49 | TO ZERO|, THIS I|
|00028e00| 53 20 53 49 47 4e 49 46 | 49 45 44 20 42 59 20 41 |S SIGNIF|IED BY A|
|00028e10| 53 53 49 47 4e 49 4e 47 | 20 31 0a 43 20 20 20 54 |SSIGNING| 1.C T|
|00028e20| 4f 20 54 48 45 20 46 4f | 55 52 54 48 20 41 4e 44 |O THE FO|URTH AND|
|00028e30| 2f 4f 52 20 46 49 46 54 | 48 20 49 4e 54 45 47 45 |/OR FIFT|H INTEGE|
|00028e40| 52 53 3b 20 54 48 45 20 | 46 49 4e 41 4c 20 2b 20 |RS; THE |FINAL + |
|00028e50| 41 4e 44 20 2d 20 49 4e | 44 49 43 41 54 45 0a 43 |AND - IN|DICATE.C|
|00028e60| 20 20 20 54 48 45 20 53 | 49 47 4e 20 4f 4e 20 58 | THE S|IGN ON X|
|00028e70| 28 37 29 2e 20 20 49 4e | 20 45 41 43 48 20 43 41 |(7). IN| EACH CA|
|00028e80| 53 45 20 54 48 45 20 45 | 51 55 49 4c 49 42 52 49 |SE THE E|QUILIBRI|
|00028e90| 55 4d 20 43 4f 4e 43 45 | 4e 54 52 41 54 49 4f 4e |UM CONCE|NTRATION|
|00028ea0| 20 4f 46 0a 43 20 20 20 | 48 2b 20 41 4e 44 20 4f | OF.C |H+ AND O|
|00028eb0| 48 2d 20 49 53 20 49 4e | 44 49 43 41 54 45 44 20 |H- IS IN|DICATED |
|00028ec0| 41 53 20 47 49 56 45 4e | 20 28 47 29 2c 20 54 4f |AS GIVEN| (G), TO|
|00028ed0| 20 42 45 20 43 41 4c 43 | 55 4c 41 54 45 44 20 28 | BE CALC|ULATED (|
|00028ee0| 43 29 2c 20 4f 52 20 54 | 4f 0a 43 20 20 20 42 45 |C), OR T|O.C BE|
|00028ef0| 20 54 41 4b 45 4e 20 41 | 53 20 5a 45 52 4f 20 28 | TAKEN A|S ZERO (|
|00028f00| 30 29 2e 0a 43 0a 43 20 | 20 20 43 4f 4d 42 2e 4f |0)..C.C | COMB.O|
|00028f10| 46 20 43 4f 4e 44 54 53 | 2e 20 20 20 5b 48 2b 5d |F CONDTS|. [H+]|
|00028f20| 20 20 20 5b 4f 48 2d 5d | 20 20 20 20 20 43 4f 4d | [OH-]| COM|
|00028f30| 42 2e 4f 46 20 43 4f 4e | 44 54 53 2e 20 20 20 20 |B.OF CON|DTS. |
|00028f40| 5b 48 2b 5d 20 20 20 5b | 4f 48 2d 5d 0a 43 0a 43 |[H+] [|OH-].C.C|
|00028f50| 20 20 20 20 20 20 20 30 | 30 30 30 30 2b 20 20 20 | 0|0000+ |
|00028f60| 20 20 20 20 20 20 20 47 | 20 20 20 20 20 20 20 30 | G| 0|
|00028f70| 20 20 20 20 20 20 20 20 | 20 20 20 30 32 31 31 30 | | 02110|
|00028f80| 2b 20 20 20 20 20 20 20 | 20 20 20 47 20 20 20 20 |+ | G |
|00028f90| 20 20 20 43 0a 43 20 20 | 20 20 20 20 20 30 30 30 | C.C | 000|
|00028fa0| 31 30 2b 20 20 20 20 20 | 20 20 20 20 20 43 20 20 |10+ | C |
|00028fb0| 20 20 20 20 20 30 20 20 | 20 20 20 20 20 20 20 20 | 0 | |
|00028fc0| 20 30 32 31 31 30 2d 20 | 20 20 20 20 20 20 20 20 | 02110- | |
|00028fd0| 20 43 20 20 20 20 20 20 | 20 47 0a 43 20 20 20 20 | C | G.C |
|00028fe0| 20 20 20 30 30 30 31 31 | 2b 20 20 20 20 20 20 20 | 00011|+ |
|00028ff0| 20 20 20 43 20 20 20 20 | 20 20 20 30 20 20 20 20 | C | 0 |
|00029000| 20 20 20 20 20 20 20 30 | 32 31 31 31 2b 20 20 20 | 0|2111+ |
|00029010| 20 20 20 20 20 20 20 47 | 20 20 20 20 20 20 20 43 | G| C|
|00029020| 0a 43 20 20 20 20 20 20 | 20 30 30 31 30 30 2b 20 |.C | 00100+ |
|00029030| 20 20 20 20 20 20 20 20 | 20 43 20 20 20 20 20 20 | | C |
|00029040| 20 43 20 20 20 20 20 20 | 20 20 20 20 20 30 32 31 | C | 021|
|00029050| 31 31 2d 20 20 20 20 20 | 20 20 20 20 20 43 20 20 |11- | C |
|00029060| 20 20 20 20 20 47 0a 43 | 20 20 20 20 20 20 20 30 | G.C| 0|
|00029070| 30 31 30 30 2d 20 20 20 | 20 20 20 20 20 20 20 43 |0100- | C|
|00029080| 20 20 20 20 20 20 20 47 | 20 20 20 20 20 20 20 20 | G| |
|00029090| 20 20 20 31 31 30 30 30 | 2b 20 20 20 20 20 20 20 | 11000|+ |
|000290a0| 20 20 20 47 20 20 20 20 | 20 20 20 30 0a 43 20 20 | G | 0.C |
|000290b0| 20 20 20 20 20 30 30 31 | 31 30 2b 20 20 20 20 20 | 001|10+ |
|000290c0| 20 20 20 20 20 43 20 20 | 20 20 20 20 20 43 20 20 | C | C |
|000290d0| 20 20 20 20 20 20 20 20 | 20 31 31 30 31 30 2b 20 | | 11010+ |
|000290e0| 20 20 20 20 20 20 20 20 | 20 47 20 20 20 20 20 20 | | G |
|000290f0| 20 30 0a 43 20 20 20 20 | 20 20 20 30 30 31 31 30 | 0.C | 00110|
|00029100| 2d 20 20 20 20 20 20 20 | 20 20 20 43 20 20 20 20 |- | C |
|00029110| 20 20 20 43 20 20 20 20 | 20 20 20 20 20 20 20 31 | C | 1|
|00029120| 31 30 31 31 2b 20 20 20 | 20 20 20 20 20 20 20 43 |1011+ | C|
|00029130| 20 20 20 20 20 20 20 30 | 0a 43 20 20 20 20 20 20 | 0|.C |
|00029140| 20 30 30 31 31 31 2b 20 | 20 20 20 20 20 20 20 20 | 00111+ | |
|00029150| 20 43 20 20 20 20 20 20 | 20 43 20 20 20 20 20 20 | C | C |
|00029160| 20 20 20 20 20 31 31 31 | 30 30 2b 20 20 20 20 20 | 111|00+ |
|00029170| 20 20 20 20 20 43 20 20 | 20 20 20 20 20 43 0a 43 | C | C.C|
|00029180| 20 20 20 20 20 20 20 30 | 30 31 31 31 2d 20 20 20 | 0|0111- |
|00029190| 20 20 20 20 20 20 20 43 | 20 20 20 20 20 20 20 43 | C| C|
|000291a0| 20 20 20 20 20 20 20 20 | 20 20 20 31 31 31 30 30 | | 11100|
|000291b0| 2d 20 20 20 20 20 20 20 | 20 20 20 43 20 20 20 20 |- | C |
|000291c0| 20 20 20 43 0a 43 20 20 | 20 20 20 20 20 30 31 30 | C.C | 010|
|000291d0| 30 30 2b 20 20 20 20 20 | 20 20 20 20 20 47 20 20 |00+ | G |
|000291e0| 20 20 20 20 20 30 20 20 | 20 20 20 20 20 20 20 20 | 0 | |
|000291f0| 20 31 31 31 31 30 2b 20 | 20 20 20 20 20 20 20 20 | 11110+ | |
|00029200| 20 43 20 20 20 20 20 20 | 20 43 0a 43 20 20 20 20 | C | C.C |
|00029210| 20 20 20 30 31 30 31 30 | 2b 20 20 20 20 20 20 20 | 01010|+ |
|00029220| 20 20 20 47 20 20 20 20 | 20 20 20 30 20 20 20 20 | G | 0 |
|00029230| 20 20 20 20 20 20 20 31 | 31 31 31 30 2d 20 20 20 | 1|1110- |
|00029240| 20 20 20 20 20 20 20 43 | 20 20 20 20 20 20 20 43 | C| C|
|00029250| 0a 43 20 20 20 20 20 20 | 20 30 31 30 31 31 2b 20 |.C | 01011+ |
|00029260| 20 20 20 20 20 20 20 20 | 20 43 20 20 20 20 20 20 | | C |
|00029270| 20 30 20 20 20 20 20 20 | 20 20 20 20 20 31 31 31 | 0 | 111|
|00029280| 31 31 2b 20 20 20 20 20 | 20 20 20 20 20 43 20 20 |11+ | C |
|00029290| 20 20 20 20 20 43 0a 43 | 20 20 20 20 20 20 20 30 | C.C| 0|
|000292a0| 31 31 30 30 2b 20 20 20 | 20 20 20 20 20 20 20 47 |1100+ | G|
|000292b0| 20 20 20 20 20 20 20 43 | 20 20 20 20 20 20 20 20 | C| |
|000292c0| 20 20 20 31 31 31 31 31 | 2d 20 20 20 20 20 20 20 | 11111|- |
|000292d0| 20 20 20 43 20 20 20 20 | 20 20 20 43 0a 43 20 20 | C | C.C |
|000292e0| 20 20 20 20 20 30 31 31 | 30 30 2d 20 20 20 20 20 | 011|00- |
|000292f0| 20 20 20 20 20 43 20 20 | 20 20 20 20 20 47 20 20 | C | G |
|00029300| 20 20 20 20 20 20 20 20 | 20 31 32 30 30 30 2b 20 | | 12000+ |
|00029310| 20 20 20 20 20 20 20 20 | 20 47 20 20 20 20 20 20 | | G |
|00029320| 20 30 20 0a 43 20 20 20 | 20 20 20 20 30 31 31 31 | 0 .C | 0111|
|00029330| 30 2b 20 20 20 20 20 20 | 20 20 20 20 47 20 20 20 |0+ | G |
|00029340| 20 20 20 20 43 20 20 20 | 20 20 20 20 20 20 20 20 | C | |
|00029350| 31 32 30 31 30 2b 20 20 | 20 20 20 20 20 20 20 20 |12010+ | |
|00029360| 47 20 20 20 20 20 20 20 | 30 0a 43 20 20 20 20 20 |G |0.C |
|00029370| 20 20 30 31 31 31 30 2d | 20 20 20 20 20 20 20 20 | 01110-| |
|00029380| 20 20 43 20 20 20 20 20 | 20 20 47 20 20 20 20 20 | C | G |
|00029390| 20 20 20 20 20 20 31 32 | 30 31 31 2b 20 20 20 20 | 12|011+ |
|000293a0| 20 20 20 20 20 20 47 20 | 20 20 20 20 20 20 30 0a | G | 0.|
|000293b0| 43 20 20 20 20 20 20 20 | 30 31 31 31 31 2b 20 20 |C |01111+ |
|000293c0| 20 20 20 20 20 20 20 20 | 43 20 20 20 20 20 20 20 | |C |
|000293d0| 43 20 20 20 20 20 20 20 | 20 20 20 20 31 32 31 30 |C | 1210|
|000293e0| 30 2b 20 20 20 20 20 20 | 20 20 20 20 47 20 20 20 |0+ | G |
|000293f0| 20 20 20 20 43 0a 43 20 | 20 20 20 20 20 20 30 31 | C.C | 01|
|00029400| 31 31 31 2d 20 20 20 20 | 20 20 20 20 20 20 43 20 |111- | C |
|00029410| 20 20 20 20 20 20 43 20 | 20 20 20 20 20 20 20 20 | C | |
|00029420| 20 20 31 32 31 30 30 2d | 20 20 20 20 20 20 20 20 | 12100-| |
|00029430| 20 20 43 20 20 20 20 20 | 20 20 47 0a 43 20 20 20 | C | G.C |
|00029440| 20 20 20 20 30 32 30 30 | 30 2b 20 20 20 20 20 20 | 0200|0+ |
|00029450| 20 20 20 20 47 20 20 20 | 20 20 20 20 30 20 20 20 | G | 0 |
|00029460| 20 20 20 20 20 20 20 20 | 31 32 31 31 30 2b 20 20 | |12110+ |
|00029470| 20 20 20 20 20 20 20 20 | 47 20 20 20 20 20 20 20 | |G |
|00029480| 43 0a 43 20 20 20 20 20 | 20 20 30 32 30 31 30 2b |C.C | 02010+|
|00029490| 20 20 20 20 20 20 20 20 | 20 20 47 20 20 20 20 20 | | G |
|000294a0| 20 20 30 20 20 20 20 20 | 20 20 20 20 20 20 31 32 | 0 | 12|
|000294b0| 31 31 30 2d 20 20 20 20 | 20 20 20 20 20 20 43 20 |110- | C |
|000294c0| 20 20 20 20 20 20 47 0a | 43 20 20 20 20 20 20 20 | G.|C |
|000294d0| 30 32 30 31 31 2b 20 20 | 20 20 20 20 20 20 20 20 |02011+ | |
|000294e0| 47 20 20 20 20 20 20 20 | 30 20 20 20 20 20 20 20 |G |0 |
|000294f0| 20 20 20 20 31 32 31 31 | 31 2b 20 20 20 20 20 20 | 1211|1+ |
|00029500| 20 20 20 20 47 20 20 20 | 20 20 20 20 43 0a 43 20 | G | C.C |
|00029510| 20 20 20 20 20 20 30 32 | 31 30 30 2b 20 20 20 20 | 02|100+ |
|00029520| 20 20 20 20 20 20 47 20 | 20 20 20 20 20 20 43 20 | G | C |
|00029530| 20 20 20 20 20 20 20 20 | 20 20 31 32 31 31 31 2d | | 12111-|
|00029540| 20 20 20 20 20 20 20 20 | 20 20 43 20 20 20 20 20 | | C |
|00029550| 20 20 47 0a 43 20 20 20 | 20 20 20 20 30 32 31 30 | G.C | 0210|
|00029560| 30 2d 20 20 20 20 20 20 | 20 20 20 20 43 20 20 20 |0- | C |
|00029570| 20 20 20 20 47 20 20 20 | 20 20 20 20 20 20 20 20 | G | |
|00029580| 0a 43 0a 43 0a 43 20 20 | 54 48 45 20 43 4f 4d 42 |.C.C.C |THE COMB|
|00029590| 49 4e 41 54 49 4f 4e 20 | 4f 46 20 46 49 56 45 20 |INATION |OF FIVE |
|000295a0| 49 4e 54 45 47 45 52 53 | 20 41 4e 44 20 54 48 45 |INTEGERS| AND THE|
|000295b0| 20 53 49 47 4e 20 41 52 | 45 20 53 54 4f 52 45 44 | SIGN AR|E STORED|
|000295c0| 20 41 53 20 54 48 45 0a | 43 20 20 20 49 4e 54 45 | AS THE.|C INTE|
|000295d0| 47 45 52 20 49 48 43 2e | 0a 43 0a 43 20 20 57 48 |GER IHC.|.C.C WH|
|000295e0| 45 4e 20 54 48 45 52 45 | 20 49 53 20 4e 4f 20 41 |EN THERE| IS NO A|
|000295f0| 51 55 45 4f 55 53 20 50 | 48 41 53 45 20 28 4e 43 |QUEOUS P|HASE (NC|
|00029600| 41 4c 3d 32 29 3a 0a 43 | 0a 43 20 20 20 49 46 20 |AL=2):.C|.C IF |
|00029610| 54 48 45 20 57 41 54 45 | 52 20 41 43 54 49 56 49 |THE WATE|R ACTIVI|
|00029620| 54 59 20 49 53 20 53 50 | 45 43 49 46 49 45 44 20 |TY IS SP|ECIFIED |
|00029630| 46 4f 52 20 54 48 45 20 | 44 41 54 41 20 50 4f 49 |FOR THE |DATA POI|
|00029640| 4e 54 2c 20 54 48 45 4e | 20 54 48 45 0a 43 20 20 |NT, THEN| THE.C |
|00029650| 20 41 51 55 45 4f 55 53 | 20 52 45 41 43 54 41 4e | AQUEOUS| REACTAN|
|00029660| 54 53 20 28 4d 2c 20 4e | 2c 20 58 2c 20 59 29 20 |TS (M, N|, X, Y) |
|00029670| 4d 55 53 54 20 42 45 20 | 41 42 53 45 4e 54 20 46 |MUST BE |ABSENT F|
|00029680| 52 4f 4d 20 41 4c 4c 20 | 50 52 4f 44 55 43 54 20 |ROM ALL |PRODUCT |
|00029690| 53 50 45 43 49 45 53 2e | 0a 43 0a 43 20 20 20 49 |SPECIES.|.C.C I|
|000296a0| 46 20 54 48 45 20 57 41 | 54 45 52 20 41 43 54 49 |F THE WA|TER ACTI|
|000296b0| 56 49 54 59 20 49 53 20 | 4e 4f 54 20 53 50 45 43 |VITY IS |NOT SPEC|
|000296c0| 49 46 49 45 44 20 41 4e | 44 20 50 52 4f 44 55 43 |IFIED AN|D PRODUC|
|000296d0| 54 20 53 50 45 43 49 45 | 53 20 41 52 45 20 46 4f |T SPECIE|S ARE FO|
|000296e0| 52 4d 45 44 0a 43 20 20 | 20 54 48 41 54 20 49 4e |RMED.C | THAT IN|
|000296f0| 56 4f 4c 56 45 20 54 48 | 45 20 41 51 55 45 4f 55 |VOLVE TH|E AQUEOU|
|00029700| 53 20 52 45 41 43 54 41 | 4e 54 53 2c 20 54 48 45 |S REACTA|NTS, THE|
|00029710| 4e 20 41 4e 20 49 4e 46 | 49 4e 49 54 45 4c 59 20 |N AN INF|INITELY |
|00029720| 53 4d 41 4c 4c 20 41 4d | 4f 55 4e 54 20 4f 46 0a |SMALL AM|OUNT OF.|
|00029730| 43 20 20 20 57 41 54 45 | 52 20 49 53 20 41 53 53 |C WATE|R IS ASS|
|00029740| 55 4d 45 44 20 54 4f 20 | 42 45 20 49 4e 20 43 4f |UMED TO |BE IN CO|
|00029750| 4e 54 41 43 54 20 57 49 | 54 48 20 54 48 45 20 4f |NTACT WI|TH THE O|
|00029760| 52 47 41 4e 49 43 20 50 | 48 41 53 45 20 41 4e 44 |RGANIC P|HASE AND|
|00029770| 20 54 48 45 20 45 51 55 | 49 4c 2d 0a 43 20 20 20 | THE EQU|IL-.C |
|00029780| 49 42 52 49 55 4d 20 43 | 4f 4e 43 4e 2e 4f 46 20 |IBRIUM C|ONCN.OF |
|00029790| 53 50 45 43 49 45 53 20 | 49 4e 20 54 48 45 20 45 |SPECIES |IN THE E|
|000297a0| 51 55 49 4c 49 42 52 41 | 54 45 44 20 57 41 54 45 |QUILIBRA|TED WATE|
|000297b0| 52 20 57 49 4c 4c 20 42 | 45 20 43 41 4c 43 55 4c |R WILL B|E CALCUL|
|000297c0| 41 54 45 44 2e 0a 43 0a | 43 0a 20 20 20 20 20 20 |ATED..C.|C. |
|000297d0| 53 55 42 52 4f 55 54 49 | 4e 45 20 46 43 4e 28 4e |SUBROUTI|NE FCN(N|
|000297e0| 45 51 2c 58 43 4c 2c 46 | 43 4c 2c 49 45 52 2c 50 |EQ,XCL,F|CL,IER,P|
|000297f0| 2c 57 2c 56 2c 0a 20 20 | 20 20 20 26 56 30 2c 53 |,W,V,. | &V0,S|
|00029800| 56 2c 43 53 2c 52 4f 43 | 2c 52 41 43 2c 45 4f 43 |V,CS,ROC|,RAC,EOC|
|00029810| 2c 43 45 4f 43 2c 52 45 | 4f 43 2c 53 45 4f 43 2c |,CEOC,RE|OC,SEOC,|
|00029820| 45 41 43 2c 46 4f 43 2c | 46 41 43 2c 46 4f 4b 2c |EAC,FOC,|FAC,FOK,|
|00029830| 52 46 4f 4b 2c 0a 20 20 | 20 20 20 26 53 46 4f 4b |RFOK,. | &SFOK|
|00029840| 2c 46 41 4b 2c 41 4d 2c | 42 4d 2c 43 4d 2c 42 30 |,FAK,AM,|BM,CM,B0|
|00029850| 2c 42 31 2c 42 32 2c 43 | 50 2c 41 4c 50 2c 42 50 |,B1,B2,C|P,ALP,BP|
|00029860| 2c 42 47 2c 42 47 50 2c | 43 47 2c 0a 20 20 20 20 |,BG,BGP,|CG,. |
|00029870| 20 26 50 43 43 2c 45 54 | 48 43 2c 45 54 48 43 50 | &PCC,ET|HC,ETHCP|
|00029880| 2c 50 41 41 2c 45 54 48 | 41 2c 45 54 48 41 50 2c |,PAA,ETH|A,ETHAP,|
|00029890| 50 43 43 41 2c 50 43 41 | 41 2c 44 43 41 2c 50 4e |PCCA,PCA|A,DCA,PN|
|000298a0| 43 2c 50 4e 41 2c 50 4e | 4e 2c 5a 41 2c 5a 46 41 |C,PNA,PN|N,ZA,ZFA|
|000298b0| 2c 0a 20 20 20 20 20 26 | 5a 43 2c 5a 46 43 2c 47 |,. &|ZC,ZFC,G|
|000298c0| 2c 47 4f 2c 47 58 30 2c | 56 52 54 2c 50 48 2c 50 |,GO,GX0,|VRT,PH,P|
|000298d0| 48 56 2c 58 46 2c 47 58 | 2c 41 43 2c 58 2c 58 43 |HV,XF,GX|,AC,X,XC|
|000298e0| 2c 43 41 50 2c 0a 20 20 | 20 20 20 26 43 4f 50 2c |,CAP,. | &COP,|
|000298f0| 52 5a 49 52 2c 53 43 50 | 53 49 2c 4e 43 4f 50 2c |RZIR,SCP|SI,NCOP,|
|00029900| 4e 43 41 50 2c 4e 46 2c | 49 43 41 2c 49 41 4e 2c |NCAP,NF,|ICA,IAN,|
|00029910| 49 4e 55 2c 49 50 54 2c | 4e 5a 41 2c 4e 5a 50 4f |INU,IPT,|NZA,NZPO|
|00029920| 2c 49 59 2c 4e 43 41 4c | 2c 0a 20 20 20 20 20 26 |,IY,NCAL|,. &|
|00029930| 49 45 51 2c 49 45 48 2c | 49 43 4e 2c 49 53 54 2c |IEQ,IEH,|ICN,IST,|
|00029940| 49 44 43 2c 4e 50 53 49 | 29 0a 20 20 20 20 20 20 |IDC,NPSI|). |
|00029950| 49 4d 50 4c 49 43 49 54 | 20 52 45 41 4c 2a 38 28 |IMPLICIT| REAL*8(|
|00029960| 41 2d 48 2c 4f 2d 5a 29 | 0a 20 20 20 20 20 20 53 |A-H,O-Z)|. S|
|00029970| 41 56 45 0a 20 20 20 20 | 20 20 43 4f 4d 4d 4f 4e |AVE. | COMMON|
|00029980| 2f 44 54 2f 54 43 2c 4e | 4f 2c 4e 4f 46 2c 49 43 |/DT/TC,N|O,NOF,IC|
|00029990| 4e 52 20 20 20 20 20 20 | 0a 20 20 20 20 20 20 43 |NR |. C|
|000299a0| 4f 4d 4d 4f 4e 2f 4d 44 | 2f 4e 53 4f 2c 4e 43 42 |OMMON/MD|/NSO,NCB|
|000299b0| 4f 2c 49 52 45 46 2c 4e | 50 48 2c 4e 50 41 2c 4e |O,IREF,N|PH,NPA,N|
|000299c0| 53 41 2c 4e 49 4f 2c 4e | 49 41 2c 4e 43 41 2c 4e |SA,NIO,N|IA,NCA,N|
|000299d0| 41 4e 2c 4e 4e 55 2c 4e | 55 50 2c 4e 55 4d 0a 20 |AN,NNU,N|UP,NUM. |
|000299e0| 20 20 20 20 20 43 4f 4d | 4d 4f 4e 2f 47 52 50 2f | COM|MON/GRP/|
|000299f0| 41 46 54 2c 42 46 54 2c | 51 46 54 2c 4e 43 52 28 |AFT,BFT,|QFT,NCR(|
|00029a00| 34 29 2c 57 53 2c 56 53 | 2c 44 53 2c 47 4f 53 2c |4),WS,VS|,DS,GOS,|
|00029a10| 57 52 2c 56 52 2c 47 4f | 52 2c 52 54 0a 20 20 20 |WR,VR,GO|R,RT. |
|00029a20| 20 20 20 43 4f 4d 4d 4f | 4e 2f 57 54 52 2f 50 30 | COMMO|N/WTR/P0|
|00029a30| 2c 44 57 2c 44 43 2c 41 | 50 2c 52 4c 4b 57 20 20 |,DW,DC,A|P,RLKW |
|00029a40| 20 20 20 20 0a 20 20 20 | 20 20 20 43 4f 4d 4d 4f | . | COMMO|
|00029a50| 4e 2f 45 51 2f 44 45 4e | 2c 41 57 47 2c 41 57 2c |N/EQ/DEN|,AWG,AW,|
|00029a60| 54 57 53 41 2c 54 56 53 | 41 2c 56 57 50 41 2c 56 |TWSA,TVS|A,VWPA,V|
|00029a70| 57 50 4f 2c 52 4d 42 41 | 2c 52 4d 42 4f 0a 20 20 |WPO,RMBA|,RMBO. |
|00029a80| 20 20 20 20 43 4f 4d 4d | 4f 4e 2f 50 52 50 2f 58 | COMM|ON/PRP/X|
|00029a90| 46 53 2c 47 58 53 2c 41 | 53 2c 52 4d 43 4f 2c 54 |FS,GXS,A|S,RMCO,T|
|00029aa0| 48 53 56 2c 54 48 53 2c | 54 53 41 49 2c 54 53 4f |HSV,THS,|TSAI,TSO|
|00029ab0| 49 2c 54 57 53 4f 2c 54 | 56 53 4f 0a 20 20 20 20 |I,TWSO,T|VSO. |
|00029ac0| 20 20 44 49 4d 45 4e 53 | 49 4f 4e 20 58 43 4c 28 | DIMENS|ION XCL(|
|00029ad0| 2a 29 2c 46 43 4c 28 2a | 29 2c 50 28 2a 29 2c 57 |*),FCL(*|),P(*),W|
|00029ae0| 28 2a 29 2c 56 28 2a 29 | 2c 56 30 28 2a 29 2c 53 |(*),V(*)|,V0(*),S|
|00029af0| 56 28 2a 29 2c 43 53 28 | 2a 29 2c 0a 20 20 20 20 |V(*),CS(|*),. |
|00029b00| 20 26 52 4f 43 28 38 2c | 2a 29 2c 52 41 43 28 38 | &ROC(8,|*),RAC(8|
|00029b10| 2c 2a 29 2c 45 4f 43 28 | 38 2c 2a 29 2c 43 45 4f |,*),EOC(|8,*),CEO|
|00029b20| 43 28 2a 29 2c 52 45 4f | 43 28 35 2c 38 2b 4e 53 |C(*),REO|C(5,8+NS|
|00029b30| 4f 2c 2a 29 2c 0a 20 20 | 20 20 20 26 53 45 4f 43 |O,*),. | &SEOC|
|00029b40| 28 38 2b 4e 53 4f 2c 2a | 29 2c 45 41 43 28 38 2c |(8+NSO,*|),EAC(8,|
|00029b50| 2a 29 2c 46 4f 43 28 38 | 2c 2a 29 2c 46 41 43 28 |*),FOC(8|,*),FAC(|
|00029b60| 38 2c 2a 29 2c 46 4f 4b | 28 2a 29 2c 52 46 4f 4b |8,*),FOK|(*),RFOK|
|00029b70| 28 35 2c 2a 29 2c 0a 20 | 20 20 20 20 26 53 46 4f |(5,*),. | &SFO|
|00029b80| 4b 28 2a 29 2c 46 41 4b | 28 2a 29 2c 41 4d 28 2a |K(*),FAK|(*),AM(*|
|00029b90| 29 2c 42 4d 28 2a 29 2c | 43 4d 28 2a 29 2c 42 30 |),BM(*),|CM(*),B0|
|00029ba0| 28 2a 29 2c 42 31 28 2a | 29 2c 42 32 28 2a 29 2c |(*),B1(*|),B2(*),|
|00029bb0| 0a 20 20 20 20 20 26 43 | 50 28 2a 29 2c 41 4c 50 |. &C|P(*),ALP|
|00029bc0| 28 32 2c 2a 29 2c 42 50 | 28 2a 29 2c 42 47 28 2a |(2,*),BP|(*),BG(*|
|00029bd0| 29 2c 42 47 50 28 2a 29 | 2c 43 47 28 2a 29 2c 50 |),BGP(*)|,CG(*),P|
|00029be0| 43 43 28 2a 29 2c 45 54 | 48 43 28 2a 29 2c 0a 20 |CC(*),ET|HC(*),. |
|00029bf0| 20 20 20 20 26 45 54 48 | 43 50 28 2a 29 2c 50 41 | Ð|CP(*),PA|
|00029c00| 41 28 2a 29 2c 45 54 48 | 41 28 2a 29 2c 45 54 48 |A(*),ETH|A(*),ETH|
|00029c10| 41 50 28 2a 29 2c 50 43 | 43 41 28 2a 29 2c 50 43 |AP(*),PC|CA(*),PC|
|00029c20| 41 41 28 2a 29 2c 44 43 | 41 28 2a 29 2c 0a 20 20 |AA(*),DC|A(*),. |
|00029c30| 20 20 20 26 50 4e 43 28 | 2a 29 2c 50 4e 41 28 2a | &PNC(|*),PNA(*|
|00029c40| 29 2c 50 4e 4e 28 2a 29 | 2c 5a 41 28 2a 29 2c 5a |),PNN(*)|,ZA(*),Z|
|00029c50| 46 41 28 2a 29 2c 5a 43 | 28 2a 29 2c 5a 46 43 28 |FA(*),ZC|(*),ZFC(|
|00029c60| 2a 29 2c 47 28 2a 29 2c | 0a 20 20 20 20 20 26 47 |*),G(*),|. &G|
|00029c70| 4f 28 2a 29 2c 47 58 30 | 28 2a 29 2c 56 52 54 28 |O(*),GX0|(*),VRT(|
|00029c80| 2a 29 2c 50 48 28 2a 29 | 2c 50 48 56 28 2a 29 2c |*),PH(*)|,PHV(*),|
|00029c90| 58 46 28 2a 29 2c 47 58 | 28 2a 29 2c 0a 20 20 20 |XF(*),GX|(*),. |
|00029ca0| 20 20 26 41 43 28 2a 29 | 2c 58 28 31 30 2c 2a 29 | &AC(*)|,X(10,*)|
|00029cb0| 2c 58 43 28 2a 29 2c 43 | 41 50 28 2a 29 2c 43 4f |,XC(*),C|AP(*),CO|
|00029cc0| 50 28 2a 29 2c 52 5a 49 | 52 28 2a 29 2c 53 43 50 |P(*),RZI|R(*),SCP|
|00029cd0| 53 49 28 2a 29 0a 20 20 | 20 20 20 20 44 49 4d 45 |SI(*). | DIME|
|00029ce0| 4e 53 49 4f 4e 20 4e 43 | 4f 50 28 38 2c 2a 29 2c |NSION NC|OP(8,*),|
|00029cf0| 4e 43 41 50 28 37 2c 2a | 29 2c 4e 46 28 2a 29 2c |NCAP(7,*|),NF(*),|
|00029d00| 49 43 41 28 2a 29 2c 49 | 41 4e 28 2a 29 2c 49 4e |ICA(*),I|AN(*),IN|
|00029d10| 55 28 2a 29 2c 0a 20 20 | 20 20 20 26 4e 5a 41 28 |U(*),. | &NZA(|
|00029d20| 2a 29 2c 4e 5a 50 4f 28 | 2a 29 2c 4e 50 53 49 28 |*),NZPO(|*),NPSI(|
|00029d30| 2a 29 0a 20 20 20 20 20 | 20 44 49 4d 45 4e 53 49 |*). | DIMENSI|
|00029d40| 4f 4e 20 54 43 53 28 36 | 29 2c 53 52 45 28 37 29 |ON TCS(6|),SRE(7)|
|00029d50| 2c 53 52 45 41 28 37 29 | 20 20 20 20 0a 20 20 20 |,SREA(7)| . |
|00029d60| 20 20 20 44 41 54 41 20 | 5a 45 52 4f 2c 4f 4e 45 | DATA |ZERO,ONE|
|00029d70| 2c 54 57 4f 2c 54 45 4e | 2c 48 55 4e 44 2c 54 48 |,TWO,TEN|,HUND,TH|
|00029d80| 4f 55 2f 30 2e 30 44 2b | 30 30 2c 31 2e 30 44 2b |OU/0.0D+|00,1.0D+|
|00029d90| 30 30 2c 32 2e 30 44 2b | 30 30 2c 0a 20 20 20 20 |00,2.0D+|00,. |
|00029da0| 20 26 31 2e 30 44 2b 30 | 31 2c 31 2e 30 44 2b 30 | &1.0D+0|1,1.0D+0|
|00029db0| 32 2c 31 2e 30 44 2b 30 | 33 2f 0a 20 20 20 20 20 |2,1.0D+0|3/. |
|00029dc0| 20 44 41 54 41 20 56 4c | 4c 2c 58 30 2c 56 57 4d | DATA VL|L,X0,VWM|
|00029dd0| 57 2f 31 2e 30 44 2d 31 | 30 2c 2d 31 30 30 2e 30 |W/1.0D-1|0,-100.0|
|00029de0| 44 2b 30 2c 31 38 2e 30 | 31 35 33 44 2b 30 2f 0a |D+0,18.0|153D+0/.|
|00029df0| 20 20 20 20 20 20 52 4b | 57 3d 54 45 4e 2a 2a 52 | RK|W=TEN**R|
|00029e00| 4c 4b 57 0a 43 20 20 41 | 53 53 49 47 4e 20 49 4e |LKW.C A|SSIGN IN|
|00029e10| 54 45 47 45 52 53 20 44 | 45 46 49 4e 49 4e 47 20 |TEGERS D|EFINING |
|00029e20| 52 45 41 43 54 41 4e 54 | 20 53 50 45 43 49 45 53 |REACTANT| SPECIES|
|00029e30| 0a 20 20 20 20 20 20 52 | 4e 41 3d 4e 43 52 28 31 |. R|NA=NCR(1|
|00029e40| 29 0a 20 20 20 20 20 20 | 52 4e 42 3d 4e 43 52 28 |). |RNB=NCR(|
|00029e50| 32 29 0a 20 20 20 20 20 | 20 52 57 41 3d 4e 43 52 |2). | RWA=NCR|
|00029e60| 28 33 29 0a 20 20 20 20 | 20 20 52 57 42 3d 4e 43 |(3). | RWB=NC|
|00029e70| 52 28 34 29 0a 20 20 20 | 20 20 20 52 5a 4d 3d 4e |R(4). | RZM=N|
|00029e80| 5a 41 28 31 29 0a 20 20 | 20 20 20 20 52 5a 4e 3d |ZA(1). | RZN=|
|00029e90| 4e 5a 41 28 32 29 0a 20 | 20 20 20 20 20 52 5a 58 |NZA(2). | RZX|
|00029ea0| 3d 4e 5a 41 28 34 29 0a | 20 20 20 20 20 20 52 5a |=NZA(4).| RZ|
|00029eb0| 59 3d 4e 5a 41 28 35 29 | 0a 43 20 20 41 53 53 49 |Y=NZA(5)|.C ASSI|
|00029ec0| 47 4e 20 54 48 45 20 54 | 4f 54 41 4c 20 43 4f 4e |GN THE T|OTAL CON|
|00029ed0| 43 45 4e 54 52 41 54 49 | 4f 4e 20 4f 46 20 45 41 |CENTRATI|ON OF EA|
|00029ee0| 43 48 20 52 45 41 43 54 | 41 4e 54 0a 20 20 20 20 |CH REACT|ANT. |
|00029ef0| 20 20 54 43 41 3d 58 28 | 31 2c 49 50 54 29 0a 20 | TCA=X(|1,IPT). |
|00029f00| 20 20 20 20 20 49 46 28 | 4e 43 41 4c 2e 45 51 2e | IF(|NCAL.EQ.|
|00029f10| 33 29 20 54 43 41 3d 5a | 45 52 4f 0a 20 20 20 20 |3) TCA=Z|ERO. |
|00029f20| 20 20 54 43 53 28 31 29 | 3d 54 43 41 2f 52 4e 41 | TCS(1)|=TCA/RNA|
|00029f30| 0a 20 20 20 20 20 20 54 | 43 42 3d 58 28 32 2c 49 |. T|CB=X(2,I|
|00029f40| 50 54 29 0a 20 20 20 20 | 20 20 49 46 28 4e 43 41 |PT). | IF(NCA|
|00029f50| 4c 2e 45 51 2e 33 29 20 | 54 43 42 3d 5a 45 52 4f |L.EQ.3) |TCB=ZERO|
|00029f60| 0a 20 20 20 20 20 20 54 | 43 53 28 32 29 3d 54 43 |. T|CS(2)=TC|
|00029f70| 42 2f 52 4e 42 0a 20 20 | 20 20 20 20 54 43 4d 3d |B/RNB. | TCM=|
|00029f80| 58 28 33 2c 49 50 54 29 | 0a 20 20 20 20 20 20 54 |X(3,IPT)|. T|
|00029f90| 43 53 28 33 29 3d 54 43 | 4d 0a 20 20 20 20 20 20 |CS(3)=TC|M. |
|00029fa0| 54 43 4e 3d 58 28 34 2c | 49 50 54 29 0a 20 20 20 |TCN=X(4,|IPT). |
|00029fb0| 20 20 20 54 43 53 28 34 | 29 3d 54 43 4e 0a 20 20 | TCS(4|)=TCN. |
|00029fc0| 20 20 20 20 54 43 58 3d | 58 28 35 2c 49 50 54 29 | TCX=|X(5,IPT)|
|00029fd0| 0a 20 20 20 20 20 20 54 | 43 53 28 35 29 3d 54 43 |. T|CS(5)=TC|
|00029fe0| 58 0a 20 20 20 20 20 20 | 54 43 59 3d 58 28 36 2c |X. |TCY=X(6,|
|00029ff0| 49 50 54 29 0a 20 20 20 | 20 20 20 54 43 53 28 36 |IPT). | TCS(6|
|0002a000| 29 3d 54 43 59 0a 20 20 | 20 20 20 20 44 4f 20 33 |)=TCY. | DO 3|
|0002a010| 20 49 3d 31 2c 36 0a 20 | 20 20 20 20 20 49 46 28 | I=1,6. | IF(|
|0002a020| 54 43 53 28 49 29 2e 4c | 45 2e 56 4c 4c 29 20 54 |TCS(I).L|E.VLL) T|
|0002a030| 43 53 28 49 29 3d 5a 45 | 52 4f 0a 33 20 20 20 20 |CS(I)=ZE|RO.3 |
|0002a040| 20 43 4f 4e 54 49 4e 55 | 45 0a 20 20 20 20 20 20 | CONTINU|E. |
|0002a050| 49 46 28 4e 43 41 4c 2e | 45 51 2e 32 29 20 54 43 |IF(NCAL.|EQ.2) TC|
|0002a060| 48 3d 5a 45 52 4f 0a 20 | 20 20 20 20 20 49 46 28 |H=ZERO. | IF(|
|0002a070| 4e 43 41 4c 2e 4e 45 2e | 32 29 20 54 48 45 4e 0a |NCAL.NE.|2) THEN.|
|0002a080| 20 20 20 20 20 20 20 20 | 49 46 28 49 45 48 2e 45 | |IF(IEH.E|
|0002a090| 51 2e 30 29 20 54 48 45 | 4e 0a 20 20 20 20 20 20 |Q.0) THE|N. |
|0002a0a0| 20 20 20 20 54 43 48 3d | 58 28 37 2c 49 50 54 29 | TCH=|X(7,IPT)|
|0002a0b0| 0a 20 20 20 20 20 20 20 | 20 45 4c 53 45 0a 20 20 |. | ELSE. |
|0002a0c0| 20 20 20 20 20 20 20 20 | 54 43 48 3d 54 43 58 2a | |TCH=TCX*|
|0002a0d0| 52 5a 58 2b 54 43 59 2a | 52 5a 59 2d 54 43 4d 2a |RZX+TCY*|RZY-TCM*|
|0002a0e0| 52 5a 4d 2d 54 43 4e 2a | 52 5a 4e 0a 20 20 20 20 |RZM-TCN*|RZN. |
|0002a0f0| 20 20 20 20 45 4e 44 20 | 49 46 0a 20 20 20 20 20 | END |IF. |
|0002a100| 20 45 4e 44 20 49 46 20 | 0a 43 20 20 41 53 53 49 | END IF |.C ASSI|
|0002a110| 47 4e 20 46 41 43 54 4f | 52 53 20 55 53 45 44 20 |GN FACTO|RS USED |
|0002a120| 49 4e 20 43 4f 52 52 45 | 43 54 49 4f 4e 20 4f 46 |IN CORRE|CTION OF|
|0002a130| 20 45 51 2e 43 4f 4e 53 | 54 41 4e 54 53 20 49 46 | EQ.CONS|TANTS IF|
|0002a140| 20 43 55 52 52 45 4e 54 | 0a 43 20 20 20 43 4f 4e | CURRENT|.C CON|
|0002a150| 43 45 4e 54 52 41 54 49 | 4f 4e 20 53 43 41 4c 45 |CENTRATI|ON SCALE|
|0002a160| 20 44 49 46 46 45 52 53 | 20 46 52 4f 4d 20 54 48 | DIFFERS| FROM TH|
|0002a170| 45 20 4f 4e 45 20 43 48 | 4f 53 45 4e 20 46 4f 52 |E ONE CH|OSEN FOR|
|0002a180| 20 54 48 45 20 4d 4f 44 | 45 4c 0a 20 20 20 20 20 | THE MOD|EL. |
|0002a190| 20 46 43 4e 4f 3d 4f 4e | 45 0a 20 20 20 20 20 20 | FCNO=ON|E. |
|0002a1a0| 46 43 4e 41 3d 4f 4e 45 | 0a 20 20 20 20 20 20 49 |FCNA=ONE|. I|
|0002a1b0| 46 28 49 43 4e 2e 4e 45 | 2e 49 43 4e 52 29 20 54 |F(ICN.NE|.ICNR) T|
|0002a1c0| 48 45 4e 0a 20 20 20 20 | 20 20 20 20 49 46 28 49 |HEN. | IF(I|
|0002a1d0| 43 4e 52 2e 45 51 2e 31 | 29 20 54 48 45 4e 0a 20 |CNR.EQ.1|) THEN. |
|0002a1e0| 20 20 20 20 20 20 20 20 | 20 46 43 4e 4f 3d 57 53 | | FCNO=WS|
|0002a1f0| 2f 56 53 0a 20 20 20 20 | 20 20 20 20 20 20 46 43 |/VS. | FC|
|0002a200| 4e 41 3d 44 57 0a 20 20 | 20 20 20 20 20 20 45 4c |NA=DW. | EL|
|0002a210| 53 45 0a 20 20 20 20 20 | 20 20 20 20 20 49 46 28 |SE. | IF(|
|0002a220| 49 43 4e 2e 45 51 2e 31 | 29 20 54 48 45 4e 09 0a |ICN.EQ.1|) THEN..|
|0002a230| 20 20 20 20 20 20 20 20 | 20 20 20 20 46 43 4e 4f | | FCNO|
|0002a240| 3d 56 53 2f 57 53 0a 20 | 20 20 20 20 20 20 20 20 |=VS/WS. | |
|0002a250| 20 20 20 46 43 4e 41 3d | 4f 4e 45 2f 44 57 0a 20 | FCNA=|ONE/DW. |
|0002a260| 20 20 20 20 20 20 20 20 | 20 45 4e 44 20 49 46 0a | | END IF.|
|0002a270| 20 20 20 20 20 20 20 20 | 45 4e 44 20 49 46 0a 20 | |END IF. |
|0002a280| 20 20 20 20 20 45 4e 44 | 20 49 46 0a 43 20 20 41 | END| IF.C A|
|0002a290| 53 53 49 47 4e 20 41 4e | 20 49 4e 49 54 49 41 4c |SSIGN AN| INITIAL|
|0002a2a0| 20 56 41 4c 55 45 20 54 | 4f 20 54 48 45 20 57 41 | VALUE T|O THE WA|
|0002a2b0| 54 45 52 20 41 43 54 49 | 56 49 54 59 0a 20 20 20 |TER ACTI|VITY. |
|0002a2c0| 20 20 20 41 57 47 3d 5a | 45 52 4f 0a 20 20 20 20 | AWG=Z|ERO. |
|0002a2d0| 20 20 41 57 3d 58 28 38 | 2c 49 50 54 29 0a 20 20 | AW=X(8|,IPT). |
|0002a2e0| 20 20 20 20 49 46 28 41 | 57 2e 4c 45 2e 5a 45 52 | IF(A|W.LE.ZER|
|0002a2f0| 4f 2e 4f 52 2e 41 57 2e | 47 54 2e 4f 4e 45 29 20 |O.OR.AW.|GT.ONE) |
|0002a300| 41 57 3d 4f 4e 45 0a 20 | 20 20 20 20 20 49 46 28 |AW=ONE. | IF(|
|0002a310| 4e 43 41 4c 2e 4e 45 2e | 32 2e 41 4e 44 2e 4e 49 |NCAL.NE.|2.AND.NI|
|0002a320| 41 2e 45 51 2e 31 29 20 | 54 48 45 4e 0a 43 20 20 |A.EQ.1) |THEN.C |
|0002a330| 20 20 20 20 41 4e 20 49 | 44 45 41 4c 20 41 51 55 | AN I|DEAL AQU|
|0002a340| 45 4f 55 53 20 50 48 41 | 53 45 20 49 53 20 41 53 |EOUS PHA|SE IS AS|
|0002a350| 53 55 4d 45 44 0a 20 20 | 20 20 20 20 20 20 49 46 |SUMED. | IF|
|0002a360| 28 58 28 38 2c 49 50 54 | 29 2e 47 54 2e 5a 45 52 |(X(8,IPT|).GT.ZER|
|0002a370| 4f 29 20 54 48 45 4e 0a | 43 20 20 20 20 20 20 20 |O) THEN.|C |
|0002a380| 20 54 48 45 20 57 41 54 | 45 52 20 41 43 54 49 56 | THE WAT|ER ACTIV|
|0002a390| 49 54 59 20 53 48 4f 55 | 4c 44 20 42 45 20 53 55 |ITY SHOU|LD BE SU|
|0002a3a0| 50 50 4c 49 45 44 20 42 | 59 20 54 48 45 20 55 53 |PPLIED B|Y THE US|
|0002a3b0| 45 52 0a 20 20 20 20 20 | 20 20 20 20 20 41 57 47 |ER. | AWG|
|0002a3c0| 3d 41 57 0a 09 45 4e 44 | 20 49 46 0a 20 20 20 20 |=AW..END| IF. |
|0002a3d0| 20 20 45 4e 44 20 49 46 | 20 20 20 20 20 20 0a 20 | END IF| . |
|0002a3e0| 20 20 20 20 20 49 46 28 | 4e 43 41 4c 2e 45 51 2e | IF(|NCAL.EQ.|
|0002a3f0| 32 2e 29 20 54 48 45 4e | 0a 43 20 20 20 20 20 20 |2.) THEN|.C |
|0002a400| 41 51 55 45 4f 55 53 20 | 50 48 41 53 45 20 49 53 |AQUEOUS |PHASE IS|
|0002a410| 20 41 42 53 45 4e 54 0a | 20 20 20 20 20 20 20 20 | ABSENT.| |
|0002a420| 49 46 28 58 28 33 2c 49 | 50 54 29 2e 47 54 2e 5a |IF(X(3,I|PT).GT.Z|
|0002a430| 45 52 4f 2e 4f 52 2e 58 | 28 34 2c 49 50 54 29 2e |ERO.OR.X|(4,IPT).|
|0002a440| 47 54 2e 5a 45 52 4f 2e | 4f 52 2e 58 28 35 2c 49 |GT.ZERO.|OR.X(5,I|
|0002a450| 50 54 29 2e 47 54 2e 5a | 45 52 4f 2e 4f 52 2e 0a |PT).GT.Z|ERO.OR..|
|0002a460| 20 20 20 20 20 26 20 20 | 58 28 36 2c 49 50 54 29 | & |X(6,IPT)|
|0002a470| 2e 47 54 2e 5a 45 52 4f | 2e 4f 52 2e 58 28 37 2c |.GT.ZERO|.OR.X(7,|
|0002a480| 49 50 54 29 2e 4e 45 2e | 5a 45 52 4f 29 20 54 48 |IPT).NE.|ZERO) TH|
|0002a490| 45 4e 0a 43 20 20 20 20 | 20 20 20 20 4f 4e 45 20 |EN.C | ONE |
|0002a4a0| 4f 52 20 4d 4f 52 45 20 | 41 51 55 45 4f 55 53 20 |OR MORE |AQUEOUS |
|0002a4b0| 52 45 41 43 54 41 4e 54 | 53 20 50 52 45 53 45 4e |REACTANT|S PRESEN|
|0002a4c0| 54 3b 20 41 53 53 55 4d | 45 20 41 57 20 49 53 20 |T; ASSUM|E AW IS |
|0002a4d0| 55 4e 49 54 59 0a 20 20 | 20 20 20 20 20 20 20 20 |UNITY. | |
|0002a4e0| 41 57 3d 4f 4e 45 0a 20 | 20 20 20 20 20 20 20 45 |AW=ONE. | E|
|0002a4f0| 4c 53 45 0a 43 20 20 20 | 20 20 20 20 20 4e 4f 20 |LSE.C | NO |
|0002a500| 41 51 55 45 4f 55 53 20 | 52 45 41 43 54 41 4e 54 |AQUEOUS |REACTANT|
|0002a510| 53 20 50 52 45 53 45 4e | 54 3b 20 57 41 54 45 52 |S PRESEN|T; WATER|
|0002a520| 20 41 43 54 49 56 49 54 | 59 20 53 48 4f 55 4c 44 | ACTIVIT|Y SHOULD|
|0002a530| 20 42 45 0a 43 20 20 20 | 20 20 20 20 20 20 53 55 | BE.C | SU|
|0002a540| 50 50 4c 49 45 44 20 42 | 59 20 54 48 45 20 55 53 |PPLIED B|Y THE US|
|0002a550| 45 52 0a 20 20 20 20 20 | 20 20 20 20 20 41 57 47 |ER. | AWG|
|0002a560| 3d 41 57 0a 20 20 20 20 | 20 20 20 20 45 4e 44 20 |=AW. | END |
|0002a570| 49 46 0a 20 20 20 20 20 | 20 45 4e 44 20 49 46 0a |IF. | END IF.|
|0002a580| 43 20 20 41 53 53 49 47 | 4e 20 54 48 45 20 50 48 |C ASSIG|N THE PH|
|0002a590| 41 53 45 20 52 41 54 49 | 4f 20 28 4e 4f 4e 41 51 |ASE RATI|O (NONAQ|
|0002a5a0| 2e 2f 41 51 55 2e 29 20 | 41 4e 44 20 54 48 45 20 |./AQU.) |AND THE |
|0002a5b0| 52 45 43 49 50 52 4f 43 | 41 4c 20 50 48 41 53 45 |RECIPROC|AL PHASE|
|0002a5c0| 20 52 41 54 49 4f 0a 20 | 20 20 20 20 20 49 46 28 | RATIO. | IF(|
|0002a5d0| 4e 43 41 4c 2e 45 51 2e | 31 29 20 54 48 45 4e 0a |NCAL.EQ.|1) THEN.|
|0002a5e0| 43 20 20 20 20 20 20 42 | 4f 54 48 20 50 48 41 53 |C B|OTH PHAS|
|0002a5f0| 45 53 20 41 52 45 20 50 | 52 45 53 45 4e 54 0a 20 |ES ARE P|RESENT. |
|0002a600| 20 20 20 20 20 20 20 49 | 46 28 49 59 2e 45 51 2e | I|F(IY.EQ.|
|0002a610| 34 31 29 20 54 48 45 4e | 0a 20 20 20 20 20 20 20 |41) THEN|. |
|0002a620| 20 20 20 50 52 3d 58 28 | 31 30 2c 49 50 54 29 0a | PR=X(|10,IPT).|
|0002a630| 20 20 20 20 20 20 20 20 | 45 4c 53 45 0a 20 20 20 | |ELSE. |
|0002a640| 20 20 20 20 20 20 20 50 | 52 3d 58 28 39 2c 49 50 | P|R=X(9,IP|
|0002a650| 54 29 0a 20 20 20 20 20 | 20 20 20 45 4e 44 20 49 |T). | END I|
|0002a660| 46 0a 20 20 20 20 20 20 | 20 20 49 46 28 50 52 2e |F. | IF(PR.|
|0002a670| 4c 45 2e 5a 45 52 4f 29 | 20 50 52 3d 4f 4e 45 20 |LE.ZERO)| PR=ONE |
|0002a680| 20 20 20 20 20 0a 20 20 | 20 20 20 20 20 20 52 41 | . | RA|
|0002a690| 4f 3d 4f 4e 45 2f 50 52 | 0a 20 20 20 20 20 20 45 |O=ONE/PR|. E|
|0002a6a0| 4e 44 20 49 46 0a 20 20 | 20 20 20 20 49 46 28 4e |ND IF. | IF(N|
|0002a6b0| 43 41 4c 2e 45 51 2e 32 | 29 20 54 48 45 4e 0a 43 |CAL.EQ.2|) THEN.C|
|0002a6c0| 20 20 20 20 20 20 4e 4f | 20 41 51 55 45 4f 55 53 | NO| AQUEOUS|
|0002a6d0| 20 50 48 41 53 45 20 49 | 53 20 50 52 45 53 45 4e | PHASE I|S PRESEN|
|0002a6e0| 54 0a 20 20 20 20 20 20 | 20 20 52 41 4f 3d 5a 45 |T. | RAO=ZE|
|0002a6f0| 52 4f 0a 09 50 52 3d 4f | 4e 45 0a 20 20 20 20 20 |RO..PR=O|NE. |
|0002a700| 20 45 4e 44 20 49 46 0a | 20 20 20 20 20 20 49 46 | END IF.| IF|
|0002a710| 28 4e 43 41 4c 2e 45 51 | 2e 33 29 20 54 48 45 4e |(NCAL.EQ|.3) THEN|
|0002a720| 0a 43 20 20 20 20 20 20 | 4e 4f 20 4e 4f 4e 41 51 |.C |NO NONAQ|
|0002a730| 55 45 4f 55 53 20 50 48 | 41 53 45 20 49 53 20 50 |UEOUS PH|ASE IS P|
|0002a740| 52 45 53 45 4e 54 0a 43 | 20 20 20 20 20 20 20 53 |RESENT.C| S|
|0002a750| 45 54 20 52 41 4f 20 54 | 4f 20 55 4e 49 54 59 0a |ET RAO T|O UNITY.|
|0002a760| 20 20 20 20 20 20 20 20 | 52 41 4f 3d 4f 4e 45 0a | |RAO=ONE.|
|0002a770| 20 20 20 20 20 20 20 20 | 50 52 3d 5a 45 52 4f 0a | |PR=ZERO.|
|0002a780| 43 20 20 20 20 20 20 20 | 41 53 53 49 47 4e 20 44 |C |ASSIGN D|
|0002a790| 55 4d 4d 59 20 56 41 4c | 55 45 53 20 54 4f 20 4e |UMMY VAL|UES TO N|
|0002a7a0| 4f 4e 41 51 55 45 4f 55 | 53 20 53 50 45 43 2e 20 |ONAQUEOU|S SPEC. |
|0002a7b0| 43 4f 4e 43 4e 53 2e 20 | 41 4e 44 20 41 43 54 2e |CONCNS. |AND ACT.|
|0002a7c0| 43 4f 45 46 53 2e 2c 0a | 43 20 20 20 20 20 20 20 |COEFS.,.|C |
|0002a7d0| 20 41 4e 44 20 54 4f 20 | 54 48 45 20 4e 4f 4e 41 | AND TO |THE NONA|
|0002a7e0| 51 55 45 4f 55 53 20 53 | 4f 4c 56 45 4e 54 20 41 |QUEOUS S|OLVENT A|
|0002a7f0| 43 54 49 56 49 54 59 0a | 20 20 20 20 20 20 20 20 |CTIVITY.| |
|0002a800| 41 53 3d 5a 45 52 4f 0a | 20 20 20 20 20 20 20 20 |AS=ZERO.| |
|0002a810| 44 4f 20 35 20 49 3d 31 | 2c 28 32 2b 4e 53 4f 29 |DO 5 I=1|,(2+NSO)|
|0002a820| 0a 20 20 20 20 20 20 20 | 20 41 43 28 49 29 3d 5a |. | AC(I)=Z|
|0002a830| 45 52 4f 0a 20 20 20 20 | 20 20 20 20 49 46 28 49 |ERO. | IF(I|
|0002a840| 2e 4c 45 2e 32 29 20 54 | 48 45 4e 0a 20 20 20 20 |.LE.2) T|HEN. |
|0002a850| 20 20 20 20 20 20 43 53 | 28 49 29 3d 5a 45 52 4f | CS|(I)=ZERO|
|0002a860| 0a 20 20 20 20 20 20 20 | 20 20 20 47 28 49 29 3d |. | G(I)=|
|0002a870| 4f 4e 45 0a 20 20 20 20 | 20 20 20 20 45 4c 53 45 |ONE. | ELSE|
|0002a880| 0a 20 09 20 20 43 53 28 | 36 2b 49 29 3d 5a 45 52 |. . CS(|6+I)=ZER|
|0002a890| 4f 0a 09 20 20 47 28 36 | 2b 49 29 3d 4f 4e 45 0a |O.. G(6|+I)=ONE.|
|0002a8a0| 09 45 4e 44 20 49 46 0a | 35 20 20 20 20 20 20 20 |.END IF.|5 |
|0002a8b0| 43 4f 4e 54 49 4e 55 45 | 0a 20 20 20 20 20 20 45 |CONTINUE|. E|
|0002a8c0| 4e 44 20 49 46 0a 43 20 | 20 49 4e 49 54 49 41 4c |ND IF.C | INITIAL|
|0002a8d0| 49 5a 45 20 53 55 4d 53 | 20 46 4f 52 20 45 58 50 |IZE SUMS| FOR EXP|
|0002a8e0| 4f 4e 45 4e 54 53 0a 43 | 20 20 20 54 48 45 53 45 |ONENTS.C| THESE|
|0002a8f0| 20 53 55 4d 53 20 57 49 | 4c 4c 20 42 45 20 55 53 | SUMS WI|LL BE US|
|0002a900| 45 44 20 54 4f 20 44 45 | 54 45 52 4d 49 4e 45 20 |ED TO DE|TERMINE |
|0002a910| 49 46 20 41 20 52 45 41 | 43 54 41 4e 54 20 49 53 |IF A REA|CTANT IS|
|0002a920| 20 4e 45 45 44 45 44 0a | 20 20 20 20 20 20 44 4f | NEEDED.| DO|
|0002a930| 20 31 30 20 49 3d 31 2c | 37 0a 20 20 20 20 20 20 | 10 I=1,|7. |
|0002a940| 53 52 45 28 49 29 3d 5a | 45 52 4f 0a 20 20 20 20 |SRE(I)=Z|ERO. |
|0002a950| 20 20 53 52 45 41 28 49 | 29 3d 5a 45 52 4f 0a 31 | SREA(I|)=ZERO.1|
|0002a960| 30 20 20 20 20 43 4f 4e | 54 49 4e 55 45 0a 20 20 |0 CON|TINUE. |
|0002a970| 20 20 20 20 49 46 28 4e | 53 4f 2e 45 51 2e 30 2e | IF(N|SO.EQ.0.|
|0002a980| 4f 52 2e 4e 43 41 4c 2e | 45 51 2e 33 29 20 47 4f |OR.NCAL.|EQ.3) GO|
|0002a990| 54 4f 20 34 30 0a 43 0a | 43 20 20 41 53 53 49 47 |TO 40.C.|C ASSIG|
|0002a9a0| 4e 20 51 55 41 4e 54 49 | 54 49 45 53 20 44 45 46 |N QUANTI|TIES DEF|
|0002a9b0| 49 4e 49 4e 47 20 4e 4f | 4e 41 51 2e 20 50 52 4f |INING NO|NAQ. PRO|
|0002a9c0| 44 2e 53 50 45 43 49 45 | 53 0a 43 0a 43 20 20 20 |D.SPECIE|S.C.C |
|0002a9d0| 45 53 54 41 42 4c 49 53 | 48 20 52 45 41 43 54 49 |ESTABLIS|H REACTI|
|0002a9e0| 4f 4e 20 43 4f 45 46 46 | 49 43 49 45 4e 54 53 20 |ON COEFF|ICIENTS |
|0002a9f0| 45 4f 43 0a 43 0a 20 20 | 20 20 20 20 4e 52 45 46 |EOC.C. | NREF|
|0002aa00| 3d 30 0a 20 20 20 20 20 | 20 4e 43 54 52 3d 30 0a |=0. | NCTR=0.|
|0002aa10| 20 20 20 20 20 20 49 43 | 54 52 3d 30 0a 20 20 20 | IC|TR=0. |
|0002aa20| 20 20 20 44 4f 20 32 31 | 20 4a 3d 31 2c 4e 53 4f | DO 21| J=1,NSO|
|0002aa30| 0a 20 20 20 20 20 20 52 | 4f 43 28 31 2c 4a 29 3d |. R|OC(1,J)=|
|0002aa40| 4e 43 4f 50 28 33 2c 4a | 29 0a 20 20 20 20 20 20 |NCOP(3,J|). |
|0002aa50| 45 4f 43 28 31 2c 4a 29 | 3d 52 4f 43 28 31 2c 4a |EOC(1,J)|=ROC(1,J|
|0002aa60| 29 2f 52 4e 41 0a 20 20 | 20 20 20 20 52 4f 43 28 |)/RNA. | ROC(|
|0002aa70| 32 2c 4a 29 3d 4e 43 4f | 50 28 34 2c 4a 29 0a 20 |2,J)=NCO|P(4,J). |
|0002aa80| 20 20 20 20 20 45 4f 43 | 28 32 2c 4a 29 3d 52 4f | EOC|(2,J)=RO|
|0002aa90| 43 28 32 2c 4a 29 2f 52 | 4e 42 0a 20 20 20 20 20 |C(2,J)/R|NB. |
|0002aaa0| 20 44 4f 20 31 35 20 49 | 3d 33 2c 34 20 0a 20 20 | DO 15 I|=3,4 . |
|0002aab0| 20 20 20 20 52 4f 43 28 | 49 2c 4a 29 3d 4e 43 4f | ROC(|I,J)=NCO|
|0002aac0| 50 28 49 2d 32 2c 4a 29 | 0a 20 20 20 20 20 20 45 |P(I-2,J)|. E|
|0002aad0| 4f 43 28 49 2c 4a 29 3d | 52 4f 43 28 49 2c 4a 29 |OC(I,J)=|ROC(I,J)|
|0002aae0| 0a 31 35 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a |.15 C|ONTINUE.|
|0002aaf0| 20 20 20 20 20 20 44 4f | 20 32 30 20 49 3d 35 2c | DO| 20 I=5,|
|0002ab00| 36 20 0a 20 20 20 20 20 | 20 52 4f 43 28 49 2c 4a |6 . | ROC(I,J|
|0002ab10| 29 3d 4e 43 4f 50 28 49 | 2c 4a 29 0a 20 20 20 20 |)=NCOP(I|,J). |
|0002ab20| 20 20 45 4f 43 28 49 2c | 4a 29 3d 52 4f 43 28 49 | EOC(I,|J)=ROC(I|
|0002ab30| 2c 4a 29 0a 32 30 20 20 | 20 20 43 4f 4e 54 49 4e |,J).20 | CONTIN|
|0002ab40| 55 45 0a 20 20 20 20 20 | 20 52 4f 43 28 37 2c 4a |UE. | ROC(7,J|
|0002ab50| 29 3d 4e 43 4f 50 28 37 | 2c 4a 29 0a 20 20 20 20 |)=NCOP(7|,J). |
|0002ab60| 20 20 45 4f 43 28 37 2c | 4a 29 3d 52 4f 43 28 37 | EOC(7,|J)=ROC(7|
|0002ab70| 2c 4a 29 2d 52 4f 43 28 | 31 2c 4a 29 0a 20 20 20 |,J)-ROC(|1,J). |
|0002ab80| 20 20 20 52 4f 43 28 38 | 2c 4a 29 3d 4e 43 4f 50 | ROC(8|,J)=NCOP|
|0002ab90| 28 38 2c 4a 29 0a 20 20 | 20 20 20 20 45 4f 43 28 |(8,J). | EOC(|
|0002aba0| 38 2c 4a 29 3d 52 4f 43 | 28 38 2c 4a 29 2d 52 4f |8,J)=ROC|(8,J)-RO|
|0002abb0| 43 28 31 2c 4a 29 2a 52 | 57 41 2f 52 4e 41 2d 52 |C(1,J)*R|WA/RNA-R|
|0002abc0| 4f 43 28 32 2c 4a 29 2a | 52 57 42 2f 52 4e 42 0a |OC(2,J)*|RWB/RNB.|
|0002abd0| 20 20 20 20 20 20 49 46 | 28 52 4f 43 28 37 2c 4a | IF|(ROC(7,J|
|0002abe0| 29 2e 4c 54 2e 5a 45 52 | 4f 29 20 45 4f 43 28 38 |).LT.ZER|O) EOC(8|
|0002abf0| 2c 4a 29 3d 45 4f 43 28 | 38 2c 4a 29 2d 52 4f 43 |,J)=EOC(|8,J)-ROC|
|0002ac00| 28 37 2c 4a 29 0a 32 31 | 20 20 20 20 43 4f 4e 54 |(7,J).21| CONT|
|0002ac10| 49 4e 55 45 0a 43 0a 43 | 20 20 20 43 4f 52 52 45 |INUE.C.C| CORRE|
|0002ac20| 43 54 20 45 4f 43 20 56 | 41 4c 55 45 53 20 46 4f |CT EOC V|ALUES FO|
|0002ac30| 52 20 49 4f 4e 49 43 20 | 53 50 45 43 49 45 53 0a |R IONIC |SPECIES.|
|0002ac40| 43 0a 20 20 20 20 20 20 | 44 4f 20 33 35 20 4a 3d |C. |DO 35 J=|
|0002ac50| 31 2c 4e 53 4f 0a 20 20 | 20 20 20 20 49 46 28 4a |1,NSO. | IF(J|
|0002ac60| 2e 45 51 2e 49 52 45 46 | 29 20 47 4f 54 4f 20 32 |.EQ.IREF|) GOTO 2|
|0002ac70| 33 0a 20 20 20 20 20 20 | 49 46 28 4e 5a 50 4f 28 |3. |IF(NZPO(|
|0002ac80| 4a 29 2e 45 51 2e 30 29 | 20 54 48 45 4e 0a 43 20 |J).EQ.0)| THEN.C |
|0002ac90| 20 20 20 20 20 54 48 49 | 53 20 49 53 20 41 20 4e | THI|S IS A N|
|0002aca0| 45 55 54 52 41 4c 20 53 | 50 45 43 49 45 53 0a 20 |EUTRAL S|PECIES. |
|0002acb0| 20 20 20 20 20 20 20 52 | 5a 49 52 28 4a 29 3d 5a | R|ZIR(J)=Z|
|0002acc0| 45 52 4f 0a 20 20 20 20 | 20 20 45 4c 53 45 0a 43 |ERO. | ELSE.C|
|0002acd0| 20 20 20 20 20 20 54 48 | 49 53 20 49 53 20 41 4e | TH|IS IS AN|
|0002ace0| 20 49 4f 4e 49 43 20 53 | 50 45 43 49 45 53 3a 20 | IONIC S|PECIES: |
|0002acf0| 52 45 2d 44 45 46 49 4e | 45 20 52 45 41 43 54 49 |RE-DEFIN|E REACTI|
|0002ad00| 4f 4e 20 45 58 50 4f 4e | 45 4e 54 53 0a 20 20 20 |ON EXPON|ENTS. |
|0002ad10| 20 20 20 20 20 52 5a 49 | 52 28 4a 29 3d 44 42 4c | RZI|R(J)=DBL|
|0002ad20| 45 28 4e 5a 50 4f 28 4a | 29 29 2f 44 42 4c 45 28 |E(NZPO(J|))/DBLE(|
|0002ad30| 4e 5a 50 4f 28 49 52 45 | 46 29 29 0a 20 20 20 20 |NZPO(IRE|F)). |
|0002ad40| 20 20 20 20 44 4f 20 32 | 32 20 49 3d 31 2c 38 0a | DO 2|2 I=1,8.|
|0002ad50| 20 20 20 20 20 20 20 20 | 45 4f 43 28 49 2c 4a 29 | |EOC(I,J)|
|0002ad60| 3d 45 4f 43 28 49 2c 4a | 29 2d 52 5a 49 52 28 4a |=EOC(I,J|)-RZIR(J|
|0002ad70| 29 2a 45 4f 43 28 49 2c | 49 52 45 46 29 0a 32 32 |)*EOC(I,|IREF).22|
|0002ad80| 20 20 20 20 20 20 43 4f | 4e 54 49 4e 55 45 0a 20 | CO|NTINUE. |
|0002ad90| 20 20 20 20 20 45 4e 44 | 20 49 46 0a 43 0a 43 20 | END| IF.C.C |
|0002ada0| 20 41 53 53 49 47 4e 20 | 43 4f 52 52 45 43 54 49 | ASSIGN |CORRECTI|
|0002adb0| 4f 4e 20 46 41 43 54 4f | 52 20 46 4f 52 20 41 4e |ON FACTO|R FOR AN|
|0002adc0| 59 20 43 48 41 4e 47 45 | 20 49 4e 20 43 4f 4e 43 |Y CHANGE| IN CONC|
|0002add0| 45 4e 54 52 41 54 49 4f | 4e 20 53 43 41 4c 45 0a |ENTRATIO|N SCALE.|
|0002ade0| 43 0a 20 20 20 20 20 20 | 46 4b 4f 3d 4f 4e 45 0a |C. |FKO=ONE.|
|0002adf0| 20 20 20 20 20 20 49 46 | 28 49 43 4e 2e 4e 45 2e | IF|(ICN.NE.|
|0002ae00| 49 43 4e 52 29 20 54 48 | 45 4e 0a 20 20 20 20 20 |ICNR) TH|EN. |
|0002ae10| 20 20 20 46 4b 4f 3d 46 | 43 4e 4f 2a 2a 28 4f 4e | FKO=F|CNO**(ON|
|0002ae20| 45 2d 52 5a 49 52 28 4a | 29 2d 45 4f 43 28 31 2c |E-RZIR(J|)-EOC(1,|
|0002ae30| 4a 29 2d 45 4f 43 28 32 | 2c 4a 29 29 2a 0a 20 20 |J)-EOC(2|,J))*. |
|0002ae40| 20 20 20 26 20 20 46 43 | 4e 41 2a 2a 28 2d 45 4f | & FC|NA**(-EO|
|0002ae50| 43 28 33 2c 4a 29 2d 45 | 4f 43 28 34 2c 4a 29 2d |C(3,J)-E|OC(4,J)-|
|0002ae60| 45 4f 43 28 35 2c 4a 29 | 2d 45 4f 43 28 36 2c 4a |EOC(5,J)|-EOC(6,J|
|0002ae70| 29 2d 45 4f 43 28 37 2c | 4a 29 29 0a 20 20 20 20 |)-EOC(7,|J)). |
|0002ae80| 20 20 45 4e 44 20 49 46 | 0a 43 20 20 41 53 53 49 | END IF|.C ASSI|
|0002ae90| 47 4e 20 43 4f 52 52 45 | 43 54 45 44 20 45 51 55 |GN CORRE|CTED EQU|
|0002aea0| 49 4c 49 42 52 49 55 4d | 20 43 4f 4e 53 54 41 4e |ILIBRIUM| CONSTAN|
|0002aeb0| 54 0a 20 20 20 20 20 20 | 46 4f 4b 28 4a 29 3d 54 |T. |FOK(J)=T|
|0002aec0| 45 4e 2a 2a 28 50 28 28 | 4a 2d 31 29 2a 28 31 2b |EN**(P((|J-1)*(1+|
|0002aed0| 4e 50 48 2b 4e 50 41 29 | 2b 31 29 29 2f 46 4b 4f |NPH+NPA)|+1))/FKO|
|0002aee0| 0a 43 0a 43 20 20 20 20 | 20 20 57 52 49 54 45 28 |.C.C | WRITE(|
|0002aef0| 2a 2c 31 30 38 30 29 20 | 49 43 4e 2c 49 43 4e 52 |*,1080) |ICN,ICNR|
|0002af00| 2c 4a 2c 46 4f 4b 28 4a | 29 0a 43 20 20 20 20 20 |,J,FOK(J|).C |
|0002af10| 20 57 52 49 54 45 28 31 | 32 2c 31 30 38 30 29 20 | WRITE(1|2,1080) |
|0002af20| 49 43 4e 2c 49 43 4e 52 | 2c 4a 2c 46 4f 4b 28 4a |ICN,ICNR|,J,FOK(J|
|0002af30| 29 0a 43 31 30 38 30 20 | 20 46 4f 52 4d 41 54 28 |).C1080 | FORMAT(|
|0002af40| 31 58 2c 27 49 43 4e 2c | 49 43 4e 52 2c 4a 2c 46 |1X,'ICN,|ICNR,J,F|
|0002af50| 4f 4b 28 4a 29 20 3d 27 | 2c 33 49 33 2c 46 31 30 |OK(J) ='|,3I3,F10|
|0002af60| 2e 36 29 0a 43 0a 43 20 | 20 41 53 53 49 47 4e 20 |.6).C.C | ASSIGN |
|0002af70| 46 41 43 54 4f 52 53 20 | 49 4e 20 4e 4f 4e 41 51 |FACTORS |IN NONAQ|
|0002af80| 2e 45 51 2e 51 55 4f 54 | 49 45 4e 54 53 20 54 48 |.EQ.QUOT|IENTS TH|
|0002af90| 41 54 20 57 49 4c 4c 20 | 42 45 20 5a 45 52 4f 20 |AT WILL |BE ZERO |
|0002afa0| 42 45 43 41 55 53 45 20 | 41 0a 43 20 20 20 52 45 |BECAUSE |A.C RE|
|0002afb0| 41 43 54 41 4e 54 20 49 | 53 20 41 42 53 45 4e 54 |ACTANT I|S ABSENT|
|0002afc0| 0a 32 33 20 20 20 20 44 | 4f 20 32 35 20 49 3d 31 |.23 D|O 25 I=1|
|0002afd0| 2c 36 0a 20 20 20 20 20 | 20 46 4f 43 28 49 2c 4a |,6. | FOC(I,J|
|0002afe0| 29 3d 4f 4e 45 0a 20 20 | 20 20 20 20 49 46 28 58 |)=ONE. | IF(X|
|0002aff0| 28 49 2c 49 50 54 29 2e | 4c 54 2e 56 4c 4c 29 20 |(I,IPT).|LT.VLL) |
|0002b000| 54 48 45 4e 0a 43 20 20 | 20 20 20 20 52 45 41 43 |THEN.C | REAC|
|0002b010| 54 41 4e 54 20 49 20 49 | 53 20 41 42 53 45 4e 54 |TANT I I|S ABSENT|
|0002b020| 0a 20 20 20 20 20 20 20 | 20 49 46 28 45 4f 43 28 |. | IF(EOC(|
|0002b030| 49 2c 4a 29 2e 4e 45 2e | 5a 45 52 4f 29 20 54 48 |I,J).NE.|ZERO) TH|
|0002b040| 45 4e 0a 43 20 20 20 20 | 20 20 20 20 52 45 41 43 |EN.C | REAC|
|0002b050| 54 41 4e 54 20 49 20 49 | 53 20 4e 45 45 44 45 44 |TANT I I|S NEEDED|
|0002b060| 3b 20 53 50 45 43 49 45 | 53 20 4a 20 43 41 4e 27 |; SPECIE|S J CAN'|
|0002b070| 54 20 46 4f 52 4d 0a 20 | 20 20 20 20 20 20 20 20 |T FORM. | |
|0002b080| 20 46 4f 43 28 49 2c 4a | 29 3d 5a 45 52 4f 0a 20 | FOC(I,J|)=ZERO. |
|0002b090| 20 20 20 20 20 20 20 45 | 4e 44 20 49 46 0a 20 20 | E|ND IF. |
|0002b0a0| 20 20 20 20 45 4e 44 20 | 49 46 0a 32 35 20 20 20 | END |IF.25 |
|0002b0b0| 20 43 4f 4e 54 49 4e 55 | 45 0a 20 20 20 20 20 20 | CONTINU|E. |
|0002b0c0| 46 4f 43 28 37 2c 4a 29 | 3d 4f 4e 45 0a 20 20 20 |FOC(7,J)|=ONE. |
|0002b0d0| 20 20 20 46 4f 43 28 38 | 2c 4a 29 3d 4f 4e 45 0a | FOC(8|,J)=ONE.|
|0002b0e0| 20 20 20 20 20 20 49 46 | 28 46 4f 43 28 31 2c 4a | IF|(FOC(1,J|
|0002b0f0| 29 2e 45 51 2e 5a 45 52 | 4f 2e 4f 52 2e 46 4f 43 |).EQ.ZER|O.OR.FOC|
|0002b100| 28 32 2c 4a 29 2e 45 51 | 2e 5a 45 52 4f 2e 4f 52 |(2,J).EQ|.ZERO.OR|
|0002b110| 2e 46 4f 43 28 33 2c 4a | 29 2e 45 51 2e 5a 45 52 |.FOC(3,J|).EQ.ZER|
|0002b120| 4f 2e 0a 20 20 20 20 20 | 26 4f 52 2e 46 4f 43 28 |O.. |&OR.FOC(|
|0002b130| 34 2c 4a 29 2e 45 51 2e | 5a 45 52 4f 2e 4f 52 2e |4,J).EQ.|ZERO.OR.|
|0002b140| 46 4f 43 28 35 2c 4a 29 | 2e 45 51 2e 5a 45 52 4f |FOC(5,J)|.EQ.ZERO|
|0002b150| 2e 4f 52 2e 46 4f 43 28 | 36 2c 4a 29 2e 45 51 2e |.OR.FOC(|6,J).EQ.|
|0002b160| 5a 45 52 4f 29 0a 20 20 | 20 20 20 26 47 4f 54 4f |ZERO). | &GOTO|
|0002b170| 20 33 35 0a 20 20 20 20 | 20 20 49 46 28 4a 2e 45 | 35. | IF(J.E|
|0002b180| 51 2e 49 52 45 46 29 20 | 54 48 45 4e 0a 43 20 20 |Q.IREF) |THEN.C |
|0002b190| 20 20 20 20 54 48 45 20 | 52 45 46 45 52 45 4e 43 | THE |REFERENC|
|0002b1a0| 45 20 49 4f 4e 20 53 50 | 45 43 49 45 53 20 43 41 |E ION SP|ECIES CA|
|0002b1b0| 4e 20 46 4f 52 4d 0a 20 | 20 20 20 20 20 20 20 4e |N FORM. | N|
|0002b1c0| 52 45 46 3d 31 0a 20 20 | 20 20 20 20 45 4e 44 20 |REF=1. | END |
|0002b1d0| 49 46 0a 20 20 20 20 20 | 20 49 46 28 28 4e 5a 50 |IF. | IF((NZP|
|0002b1e0| 4f 28 4a 29 2a 4e 5a 50 | 4f 28 49 52 45 46 29 29 |O(J)*NZP|O(IREF))|
|0002b1f0| 2e 4c 54 2e 30 29 20 54 | 48 45 4e 0a 43 20 20 20 |.LT.0) T|HEN.C |
|0002b200| 20 20 20 41 4e 20 49 4f | 4e 20 4f 46 20 4f 50 50 | AN IO|N OF OPP|
|0002b210| 4f 53 49 54 45 20 53 49 | 47 4e 20 54 4f 20 52 45 |OSITE SI|GN TO RE|
|0002b220| 46 20 49 4f 4e 20 43 41 | 4e 20 46 4f 52 4d 0a 20 |F ION CA|N FORM. |
|0002b230| 20 20 20 20 20 20 20 4e | 43 54 52 3d 31 0a 09 49 | N|CTR=1..I|
|0002b240| 43 54 52 3d 4a 0a 20 20 | 20 20 20 20 45 4e 44 20 |CTR=J. | END |
|0002b250| 49 46 0a 43 20 20 53 55 | 4d 20 45 41 43 48 20 45 |IF.C SU|M EACH E|
|0002b260| 58 50 4f 4e 45 4e 54 0a | 20 20 20 20 20 20 44 4f |XPONENT.| DO|
|0002b270| 20 33 30 20 49 3d 31 2c | 37 0a 20 20 20 20 20 20 | 30 I=1,|7. |
|0002b280| 53 52 45 28 49 29 3d 53 | 52 45 28 49 29 2b 44 41 |SRE(I)=S|RE(I)+DA|
|0002b290| 42 53 28 45 4f 43 28 49 | 2c 4a 29 29 0a 33 30 20 |BS(EOC(I|,J)).30 |
|0002b2a0| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 33 35 20 20 | CONTI|NUE.35 |
|0002b2b0| 20 20 43 4f 4e 54 49 4e | 55 45 0a 43 0a 34 30 20 | CONTIN|UE.C.40 |
|0002b2c0| 20 20 20 49 46 28 4e 53 | 41 2e 45 51 2e 30 29 20 | IF(NS|A.EQ.0) |
|0002b2d0| 47 4f 54 4f 20 37 30 0a | 43 0a 43 20 20 41 53 53 |GOTO 70.|C.C ASS|
|0002b2e0| 49 47 4e 20 51 55 41 4e | 54 49 54 49 45 53 20 44 |IGN QUAN|TITIES D|
|0002b2f0| 45 46 49 4e 49 4e 47 20 | 41 51 55 2e 20 50 52 4f |EFINING |AQU. PRO|
|0002b300| 44 2e 53 50 45 43 49 45 | 53 0a 43 0a 20 20 20 20 |D.SPECIE|S.C. |
|0002b310| 20 20 44 4f 20 36 35 20 | 4a 3d 31 2c 4e 53 41 0a | DO 65 |J=1,NSA.|
|0002b320| 20 20 20 20 20 20 52 41 | 43 28 31 2c 4a 29 3d 4e | RA|C(1,J)=N|
|0002b330| 43 41 50 28 33 2c 4a 29 | 0a 20 20 20 20 20 20 45 |CAP(3,J)|. E|
|0002b340| 41 43 28 31 2c 4a 29 3d | 52 41 43 28 31 2c 4a 29 |AC(1,J)=|RAC(1,J)|
|0002b350| 2f 52 4e 41 0a 20 20 20 | 20 20 20 52 41 43 28 32 |/RNA. | RAC(2|
|0002b360| 2c 4a 29 3d 4e 43 41 50 | 28 34 2c 4a 29 0a 20 20 |,J)=NCAP|(4,J). |
|0002b370| 20 20 20 20 45 41 43 28 | 32 2c 4a 29 3d 52 41 43 | EAC(|2,J)=RAC|
|0002b380| 28 32 2c 4a 29 2f 52 4e | 42 0a 20 20 20 20 20 20 |(2,J)/RN|B. |
|0002b390| 44 4f 20 34 35 20 49 3d | 33 2c 34 0a 20 20 20 20 |DO 45 I=|3,4. |
|0002b3a0| 20 20 52 41 43 28 49 2c | 4a 29 3d 4e 43 41 50 28 | RAC(I,|J)=NCAP(|
|0002b3b0| 49 2d 32 2c 4a 29 0a 20 | 20 20 20 20 20 45 41 43 |I-2,J). | EAC|
|0002b3c0| 28 49 2c 4a 29 3d 52 41 | 43 28 49 2c 4a 29 0a 34 |(I,J)=RA|C(I,J).4|
|0002b3d0| 35 20 20 20 20 43 4f 4e | 54 49 4e 55 45 0a 20 20 |5 CON|TINUE. |
|0002b3e0| 20 20 20 20 44 4f 20 35 | 30 20 49 3d 35 2c 36 0a | DO 5|0 I=5,6.|
|0002b3f0| 20 20 20 20 20 20 52 41 | 43 28 49 2c 4a 29 3d 4e | RA|C(I,J)=N|
|0002b400| 43 41 50 28 49 2c 4a 29 | 0a 20 20 20 20 20 20 45 |CAP(I,J)|. E|
|0002b410| 41 43 28 49 2c 4a 29 3d | 52 41 43 28 49 2c 4a 29 |AC(I,J)=|RAC(I,J)|
|0002b420| 0a 35 30 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a |.50 C|ONTINUE.|
|0002b430| 20 20 20 20 20 20 52 41 | 43 28 37 2c 4a 29 3d 4e | RA|C(7,J)=N|
|0002b440| 43 41 50 28 37 2c 4a 29 | 0a 20 20 20 20 20 20 45 |CAP(7,J)|. E|
|0002b450| 41 43 28 37 2c 4a 29 3d | 52 41 43 28 37 2c 4a 29 |AC(7,J)=|RAC(7,J)|
|0002b460| 2d 52 41 43 28 31 2c 4a | 29 0a 20 20 20 20 20 20 |-RAC(1,J|). |
|0002b470| 45 41 43 28 38 2c 4a 29 | 3d 2d 52 41 43 28 31 2c |EAC(8,J)|=-RAC(1,|
|0002b480| 4a 29 2a 52 57 41 2f 52 | 4e 41 2d 52 41 43 28 32 |J)*RWA/R|NA-RAC(2|
|0002b490| 2c 4a 29 2a 52 57 42 2f | 52 4e 42 20 20 20 20 20 |,J)*RWB/|RNB |
|0002b4a0| 20 0a 20 20 20 20 20 20 | 49 46 28 52 41 43 28 37 | . |IF(RAC(7|
|0002b4b0| 2c 4a 29 2e 4c 54 2e 5a | 45 52 4f 29 20 45 41 43 |,J).LT.Z|ERO) EAC|
|0002b4c0| 28 38 2c 4a 29 3d 45 41 | 43 28 38 2c 4a 29 2d 52 |(8,J)=EA|C(8,J)-R|
|0002b4d0| 41 43 28 37 2c 4a 29 0a | 43 20 20 41 53 53 49 47 |AC(7,J).|C ASSIG|
|0002b4e0| 4e 20 43 4f 52 52 45 43 | 54 49 4f 4e 20 46 41 43 |N CORREC|TION FAC|
|0002b4f0| 54 4f 52 20 46 4f 52 20 | 41 4e 59 20 43 48 41 4e |TOR FOR |ANY CHAN|
|0002b500| 47 45 20 49 4e 20 43 4f | 4e 43 45 4e 54 52 41 54 |GE IN CO|NCENTRAT|
|0002b510| 49 4f 4e 20 53 43 41 4c | 45 0a 20 20 20 20 20 20 |ION SCAL|E. |
|0002b520| 46 4b 41 3d 4f 4e 45 0a | 20 20 20 20 20 20 49 46 |FKA=ONE.| IF|
|0002b530| 28 49 43 4e 2e 4e 45 2e | 49 43 4e 52 29 20 54 48 |(ICN.NE.|ICNR) TH|
|0002b540| 45 4e 0a 20 20 20 20 20 | 20 20 20 46 4b 41 3d 46 |EN. | FKA=F|
|0002b550| 43 4e 4f 2a 2a 28 2d 45 | 41 43 28 31 2c 4a 29 2d |CNO**(-E|AC(1,J)-|
|0002b560| 45 41 43 28 32 2c 4a 29 | 29 2a 0a 20 20 20 20 20 |EAC(2,J)|)*. |
|0002b570| 26 20 20 46 43 4e 41 2a | 2a 28 4f 4e 45 2d 45 41 |& FCNA*|*(ONE-EA|
|0002b580| 43 28 33 2c 4a 29 2d 45 | 41 43 28 34 2c 4a 29 2d |C(3,J)-E|AC(4,J)-|
|0002b590| 45 41 43 28 35 2c 4a 29 | 2d 45 41 43 28 36 2c 4a |EAC(5,J)|-EAC(6,J|
|0002b5a0| 29 2d 45 41 43 28 37 2c | 4a 29 29 0a 20 20 20 20 |)-EAC(7,|J)). |
|0002b5b0| 20 20 45 4e 44 20 49 46 | 0a 43 20 20 41 53 53 49 | END IF|.C ASSI|
|0002b5c0| 47 4e 20 43 4f 52 52 45 | 43 54 45 44 20 45 51 55 |GN CORRE|CTED EQU|
|0002b5d0| 49 4c 49 42 52 49 55 4d | 20 43 4f 4e 53 54 41 4e |ILIBRIUM| CONSTAN|
|0002b5e0| 54 0a 20 20 20 20 20 20 | 46 41 4b 28 4a 29 3d 54 |T. |FAK(J)=T|
|0002b5f0| 45 4e 2a 2a 28 50 28 4e | 53 4f 2a 28 31 2b 4e 50 |EN**(P(N|SO*(1+NP|
|0002b600| 48 2b 4e 50 41 29 2b 32 | 2a 28 4e 50 48 2b 4e 50 |H+NPA)+2|*(NPH+NP|
|0002b610| 41 29 2b 4a 29 29 2f 46 | 4b 41 0a 43 20 20 20 20 |A)+J))/F|KA.C |
|0002b620| 20 20 57 52 49 54 45 28 | 2a 2c 31 30 38 31 29 20 | WRITE(|*,1081) |
|0002b630| 49 43 4e 2c 49 43 4e 52 | 2c 4a 2c 46 41 4b 28 4a |ICN,ICNR|,J,FAK(J|
|0002b640| 29 0a 43 20 20 20 20 20 | 20 57 52 49 54 45 28 31 |).C | WRITE(1|
|0002b650| 32 2c 31 30 38 31 29 20 | 49 43 4e 2c 49 43 4e 52 |2,1081) |ICN,ICNR|
|0002b660| 2c 4a 2c 46 41 4b 28 4a | 29 0a 43 31 30 38 31 20 |,J,FAK(J|).C1081 |
|0002b670| 20 46 4f 52 4d 41 54 28 | 31 58 2c 27 49 43 4e 2c | FORMAT(|1X,'ICN,|
|0002b680| 49 43 4e 52 2c 4a 2c 46 | 41 4b 28 4a 29 20 3d 27 |ICNR,J,F|AK(J) ='|
|0002b690| 2c 33 49 33 2c 46 31 30 | 2e 36 29 0a 43 20 20 41 |,3I3,F10|.6).C A|
|0002b6a0| 53 53 49 47 4e 20 46 41 | 43 54 4f 52 53 20 49 4e |SSIGN FA|CTORS IN|
|0002b6b0| 20 41 51 55 2e 20 45 51 | 2e 20 51 55 4f 54 49 45 | AQU. EQ|. QUOTIE|
|0002b6c0| 4e 54 53 20 54 48 41 54 | 20 57 49 4c 4c 20 42 45 |NTS THAT| WILL BE|
|0002b6d0| 20 5a 45 52 4f 20 42 45 | 43 41 55 53 45 20 41 0a | ZERO BE|CAUSE A.|
|0002b6e0| 43 20 20 20 52 45 41 43 | 54 41 4e 54 20 49 53 20 |C REAC|TANT IS |
|0002b6f0| 41 42 53 45 4e 54 0a 20 | 20 20 20 20 20 44 4f 20 |ABSENT. | DO |
|0002b700| 35 35 20 49 3d 31 2c 36 | 0a 20 20 20 20 20 20 46 |55 I=1,6|. F|
|0002b710| 41 43 28 49 2c 4a 29 3d | 4f 4e 45 0a 20 20 20 20 |AC(I,J)=|ONE. |
|0002b720| 20 20 49 46 28 54 43 53 | 28 49 29 2e 4c 54 2e 56 | IF(TCS|(I).LT.V|
|0002b730| 4c 4c 2e 41 4e 44 2e 45 | 41 43 28 49 2c 4a 29 2e |LL.AND.E|AC(I,J).|
|0002b740| 47 54 2e 5a 45 52 4f 29 | 20 46 41 43 28 49 2c 4a |GT.ZERO)| FAC(I,J|
|0002b750| 29 3d 5a 45 52 4f 0a 35 | 35 20 20 20 20 43 4f 4e |)=ZERO.5|5 CON|
|0002b760| 54 49 4e 55 45 0a 20 20 | 20 20 20 20 46 41 43 28 |TINUE. | FAC(|
|0002b770| 37 2c 4a 29 3d 4f 4e 45 | 0a 20 20 20 20 20 20 49 |7,J)=ONE|. I|
|0002b780| 46 28 45 41 43 28 37 2c | 4a 29 2e 47 54 2e 5a 45 |F(EAC(7,|J).GT.ZE|
|0002b790| 52 4f 29 20 54 48 45 4e | 0a 43 20 20 20 20 20 20 |RO) THEN|.C |
|0002b7a0| 41 43 49 44 20 49 53 20 | 4e 45 45 44 45 44 20 41 |ACID IS |NEEDED A|
|0002b7b0| 53 20 41 20 52 45 41 43 | 54 41 4e 54 20 20 20 20 |S A REAC|TANT |
|0002b7c0| 0a 20 20 20 20 20 20 20 | 20 49 46 28 49 45 48 2e |. | IF(IEH.|
|0002b7d0| 47 54 2e 31 2e 41 4e 44 | 2e 58 28 37 2c 49 50 54 |GT.1.AND|.X(7,IPT|
|0002b7e0| 29 2e 45 51 2e 30 29 20 | 54 48 45 4e 0a 43 20 20 |).EQ.0) |THEN.C |
|0002b7f0| 20 20 20 20 20 20 45 51 | 55 49 4c 49 42 52 49 55 | EQ|UILIBRIU|
|0002b800| 4d 20 48 2b 20 43 4f 4e | 43 2e 49 53 20 5a 45 52 |M H+ CON|C.IS ZER|
|0002b810| 4f 0a 09 20 20 46 41 43 | 28 37 2c 4a 29 3d 5a 45 |O.. FAC|(7,J)=ZE|
|0002b820| 52 4f 0a 20 20 20 20 20 | 20 20 20 45 4e 44 20 49 |RO. | END I|
|0002b830| 46 0a 20 20 20 20 20 20 | 45 4e 44 20 49 46 0a 20 |F. |END IF. |
|0002b840| 20 20 20 20 20 46 41 43 | 28 38 2c 4a 29 3d 4f 4e | FAC|(8,J)=ON|
|0002b850| 45 0a 20 20 20 20 20 20 | 49 46 28 46 41 43 28 31 |E. |IF(FAC(1|
|0002b860| 2c 4a 29 2e 45 51 2e 5a | 45 52 4f 2e 4f 52 2e 46 |,J).EQ.Z|ERO.OR.F|
|0002b870| 41 43 28 32 2c 4a 29 2e | 45 51 2e 5a 45 52 4f 2e |AC(2,J).|EQ.ZERO.|
|0002b880| 4f 52 2e 46 41 43 28 33 | 2c 4a 29 2e 45 51 2e 5a |OR.FAC(3|,J).EQ.Z|
|0002b890| 45 52 4f 2e 0a 20 20 20 | 20 20 26 4f 52 2e 46 41 |ERO.. | &OR.FA|
|0002b8a0| 43 28 34 2c 4a 29 2e 45 | 51 2e 5a 45 52 4f 2e 4f |C(4,J).E|Q.ZERO.O|
|0002b8b0| 52 2e 46 41 43 28 35 2c | 4a 29 2e 45 51 2e 5a 45 |R.FAC(5,|J).EQ.ZE|
|0002b8c0| 52 4f 2e 4f 52 2e 46 41 | 43 28 36 2c 4a 29 2e 45 |RO.OR.FA|C(6,J).E|
|0002b8d0| 51 2e 5a 45 52 4f 29 0a | 20 20 20 20 20 26 47 4f |Q.ZERO).| &GO|
|0002b8e0| 54 4f 20 36 35 0a 43 20 | 20 41 44 44 20 45 58 50 |TO 65.C | ADD EXP|
|0002b8f0| 4f 4e 45 4e 54 20 4f 46 | 20 45 41 43 48 20 52 45 |ONENT OF| EACH RE|
|0002b900| 41 43 54 41 4e 54 20 54 | 4f 20 52 55 4e 4e 49 4e |ACTANT T|O RUNNIN|
|0002b910| 47 20 53 55 4d 53 0a 20 | 20 20 20 20 20 44 4f 20 |G SUMS. | DO |
|0002b920| 36 30 20 49 3d 31 2c 37 | 20 20 20 20 20 20 0a 20 |60 I=1,7| . |
|0002b930| 20 20 20 20 20 53 52 45 | 28 49 29 3d 53 52 45 28 | SRE|(I)=SRE(|
|0002b940| 49 29 2b 44 41 42 53 28 | 45 41 43 28 49 2c 4a 29 |I)+DABS(|EAC(I,J)|
|0002b950| 29 0a 20 20 20 20 20 20 | 53 52 45 41 28 49 29 3d |). |SREA(I)=|
|0002b960| 53 52 45 41 28 49 29 2b | 44 41 42 53 28 45 41 43 |SREA(I)+|DABS(EAC|
|0002b970| 28 49 2c 4a 29 29 0a 36 | 30 20 20 20 20 43 4f 4e |(I,J)).6|0 CON|
|0002b980| 54 49 4e 55 45 20 20 20 | 20 20 20 0a 36 35 20 20 |TINUE | .65 |
|0002b990| 20 20 43 4f 4e 54 49 4e | 55 45 0a 43 0a 43 20 20 | CONTIN|UE.C.C |
|0002b9a0| 44 45 54 45 52 4d 49 4e | 45 20 54 48 45 20 43 4f |DETERMIN|E THE CO|
|0002b9b0| 4e 43 45 4e 54 52 41 54 | 49 4f 4e 53 20 54 4f 20 |NCENTRAT|IONS TO |
|0002b9c0| 42 45 20 52 45 46 49 4e | 45 44 20 41 4e 44 20 41 |BE REFIN|ED AND A|
|0002b9d0| 53 53 49 47 4e 20 49 4e | 49 54 49 41 4c 0a 43 20 |SSIGN IN|ITIAL.C |
|0002b9e0| 20 20 56 41 4c 55 45 53 | 20 54 4f 20 54 48 45 4d | VALUES| TO THEM|
|0002b9f0| 0a 43 0a 37 30 20 20 20 | 20 4a 3d 31 0a 43 20 20 |.C.70 | J=1.C |
|0002ba00| 20 52 45 41 43 54 41 4e | 54 53 0a 20 20 20 20 20 | REACTAN|TS. |
|0002ba10| 20 44 4f 20 37 35 20 49 | 3d 31 2c 36 0a 43 20 20 | DO 75 I|=1,6.C |
|0002ba20| 20 20 49 53 20 54 48 45 | 20 52 45 41 43 54 41 4e | IS THE| REACTAN|
|0002ba30| 54 20 43 4f 4e 43 2e 20 | 5a 45 52 4f 3f 0a 20 20 |T CONC. |ZERO?. |
|0002ba40| 20 20 20 20 49 46 28 54 | 43 53 28 49 29 2e 45 51 | IF(T|CS(I).EQ|
|0002ba50| 2e 5a 45 52 4f 29 20 54 | 48 45 4e 0a 20 20 20 20 |.ZERO) T|HEN. |
|0002ba60| 20 20 20 20 43 53 28 49 | 29 3d 5a 45 52 4f 0a 09 | CS(I|)=ZERO..|
|0002ba70| 47 4f 54 4f 20 37 35 0a | 20 20 20 20 20 20 45 4e |GOTO 75.| EN|
|0002ba80| 44 20 49 46 20 0a 43 20 | 20 20 20 49 53 20 54 48 |D IF .C | IS TH|
|0002ba90| 45 20 52 45 41 43 54 41 | 4e 54 20 4e 4f 54 20 4e |E REACTA|NT NOT N|
|0002baa0| 45 45 44 45 44 3f 0a 20 | 20 20 20 20 20 49 46 28 |EEDED?. | IF(|
|0002bab0| 53 52 45 28 49 29 2e 45 | 51 2e 5a 45 52 4f 29 20 |SRE(I).E|Q.ZERO) |
|0002bac0| 54 48 45 4e 0a 20 20 20 | 20 20 20 20 20 43 53 28 |THEN. | CS(|
|0002bad0| 49 29 3d 54 43 53 28 49 | 29 0a 20 20 20 20 20 20 |I)=TCS(I|). |
|0002bae0| 20 20 47 4f 54 4f 20 37 | 35 0a 20 20 20 20 20 20 | GOTO 7|5. |
|0002baf0| 45 4e 44 20 49 46 0a 43 | 20 20 20 20 57 49 4c 4c |END IF.C| WILL|
|0002bb00| 20 54 48 45 20 52 45 41 | 43 54 41 4e 54 20 42 45 | THE REA|CTANT BE|
|0002bb10| 20 41 44 4a 55 53 54 45 | 44 20 54 4f 20 4d 41 49 | ADJUSTE|D TO MAI|
|0002bb20| 4e 54 41 49 4e 20 41 51 | 2e 20 43 48 41 52 47 45 |NTAIN AQ|. CHARGE|
|0002bb30| 20 42 41 4c 41 4e 43 45 | 3f 0a 20 20 20 20 20 20 | BALANCE|?. |
|0002bb40| 49 46 28 49 2e 45 51 2e | 28 49 45 48 2b 31 29 2e |IF(I.EQ.|(IEH+1).|
|0002bb50| 41 4e 44 2e 49 45 48 2e | 47 54 2e 31 29 20 47 4f |AND.IEH.|GT.1) GO|
|0002bb60| 54 4f 20 37 35 0a 43 20 | 20 20 20 49 53 20 41 20 |TO 75.C | IS A |
|0002bb70| 4e 4f 4e 41 51 55 45 4f | 55 53 20 50 48 41 53 45 |NONAQUEO|US PHASE|
|0002bb80| 20 41 42 53 45 4e 54 3f | 0a 20 20 20 20 20 20 49 | ABSENT?|. I|
|0002bb90| 46 28 49 2e 4c 54 2e 33 | 2e 41 4e 44 2e 4e 43 41 |F(I.LT.3|.AND.NCA|
|0002bba0| 4c 2e 45 51 2e 33 29 20 | 54 48 45 4e 0a 20 20 20 |L.EQ.3) |THEN. |
|0002bbb0| 20 20 20 20 20 43 53 28 | 49 29 3d 5a 45 52 4f 0a | CS(|I)=ZERO.|
|0002bbc0| 20 20 20 20 20 20 20 20 | 47 4f 54 4f 20 37 35 0a | |GOTO 75.|
|0002bbd0| 20 20 20 20 20 20 45 4e | 44 20 49 46 0a 43 20 20 | EN|D IF.C |
|0002bbe0| 20 20 48 41 53 20 54 48 | 45 20 45 51 55 49 4c 49 | HAS TH|E EQUILI|
|0002bbf0| 42 52 49 55 4d 20 41 51 | 55 45 4f 55 53 20 43 4f |BRIUM AQ|UEOUS CO|
|0002bc00| 4d 50 4f 53 49 54 49 4f | 4e 20 42 45 45 4e 20 53 |MPOSITIO|N BEEN S|
|0002bc10| 55 50 50 4c 49 45 44 3f | 0a 20 20 20 20 20 20 49 |UPPLIED?|. I|
|0002bc20| 46 28 4e 53 41 2e 45 51 | 2e 30 2e 41 4e 44 2e 49 |F(NSA.EQ|.0.AND.I|
|0002bc30| 45 51 2e 45 51 2e 31 2e | 41 4e 44 2e 49 2e 47 54 |EQ.EQ.1.|AND.I.GT|
|0002bc40| 2e 32 29 20 54 48 45 4e | 0a 20 20 20 20 20 20 20 |.2) THEN|. |
|0002bc50| 20 43 53 28 49 29 3d 54 | 43 53 28 49 29 0a 20 20 | CS(I)=T|CS(I). |
|0002bc60| 20 20 20 20 20 20 47 4f | 54 4f 20 37 35 0a 20 20 | GO|TO 75. |
|0002bc70| 20 20 20 20 45 4e 44 20 | 49 46 0a 43 20 20 20 20 | END |IF.C |
|0002bc80| 45 51 55 49 4c 49 42 52 | 49 55 4d 20 41 51 55 45 |EQUILIBR|IUM AQUE|
|0002bc90| 4f 55 53 20 43 4f 4e 43 | 45 4e 54 52 41 54 49 4f |OUS CONC|ENTRATIO|
|0002bca0| 4e 53 20 48 41 56 45 20 | 4e 4f 54 20 42 45 45 4e |NS HAVE |NOT BEEN|
|0002bcb0| 20 53 55 50 50 4c 49 45 | 44 0a 20 20 20 20 20 20 | SUPPLIE|D. |
|0002bcc0| 49 46 28 49 2e 45 51 2e | 31 29 20 43 53 28 49 29 |IF(I.EQ.|1) CS(I)|
|0002bcd0| 3d 28 54 45 4e 2a 2a 28 | 58 43 28 49 29 29 29 2f |=(TEN**(|XC(I)))/|
|0002bce0| 52 4e 41 0a 20 20 20 20 | 20 20 49 46 28 49 2e 45 |RNA. | IF(I.E|
|0002bcf0| 51 2e 32 29 20 43 53 28 | 49 29 3d 28 54 45 4e 2a |Q.2) CS(|I)=(TEN*|
|0002bd00| 2a 28 58 43 28 49 29 29 | 29 2f 52 4e 42 0a 20 20 |*(XC(I))|)/RNB. |
|0002bd10| 20 20 20 20 49 46 28 49 | 2e 47 54 2e 32 2e 41 4e | IF(I|.GT.2.AN|
|0002bd20| 44 2e 4e 43 41 4c 2e 4e | 45 2e 32 29 20 43 53 28 |D.NCAL.N|E.2) CS(|
|0002bd30| 49 29 3d 54 45 4e 2a 2a | 28 58 43 28 49 29 29 0a |I)=TEN**|(XC(I)).|
|0002bd40| 20 20 20 20 20 20 4e 46 | 28 4a 29 3d 49 0a 20 20 | NF|(J)=I. |
|0002bd50| 20 20 20 20 4a 3d 4a 2b | 31 0a 37 35 20 20 20 20 | J=J+|1.75 |
|0002bd60| 43 4f 4e 54 49 4e 55 45 | 0a 20 20 20 20 20 20 49 |CONTINUE|. I|
|0002bd70| 46 28 4e 43 41 4c 2e 45 | 51 2e 32 29 20 54 48 45 |F(NCAL.E|Q.2) THE|
|0002bd80| 4e 0a 43 20 20 20 20 20 | 20 41 51 55 45 4f 55 53 |N.C | AQUEOUS|
|0002bd90| 20 50 48 41 53 45 20 49 | 53 20 41 42 53 45 4e 54 | PHASE I|S ABSENT|
|0002bda0| 3a 20 57 48 49 43 48 20 | 41 51 2e 43 4f 4e 43 4e |: WHICH |AQ.CONCN|
|0002bdb0| 53 2e 4d 55 53 54 20 42 | 45 20 44 45 54 45 52 4d |S.MUST B|E DETERM|
|0002bdc0| 49 4e 45 44 3f 0a 20 20 | 20 20 20 20 20 20 44 4f |INED?. | DO|
|0002bdd0| 20 38 30 20 49 3d 33 2c | 36 0a 20 20 20 20 20 20 | 80 I=3,|6. |
|0002bde0| 20 20 49 46 28 49 53 54 | 2e 45 51 2e 31 29 20 43 | IF(IST|.EQ.1) C|
|0002bdf0| 53 28 49 29 3d 5a 45 52 | 4f 0a 20 20 20 20 20 20 |S(I)=ZER|O. |
|0002be00| 20 20 49 46 28 49 53 54 | 2e 47 54 2e 31 29 20 43 | IF(IST|.GT.1) C|
|0002be10| 53 28 49 29 3d 54 45 4e | 2a 2a 28 58 43 28 49 29 |S(I)=TEN|**(XC(I)|
|0002be20| 29 0a 38 30 20 20 20 20 | 20 20 43 4f 4e 54 49 4e |).80 | CONTIN|
|0002be30| 55 45 0a 20 20 20 20 20 | 20 20 20 47 4f 54 4f 20 |UE. | GOTO |
|0002be40| 31 31 35 0a 20 20 20 20 | 20 20 45 4e 44 20 49 46 |115. | END IF|
|0002be50| 0a 43 20 20 20 41 51 55 | 45 4f 55 53 20 48 2b 20 |.C AQU|EOUS H+ |
|0002be60| 41 4e 44 20 4f 48 2d 0a | 43 20 20 20 20 49 46 20 |AND OH-.|C IF |
|0002be70| 41 4e 20 41 51 55 45 4f | 55 53 20 41 43 49 44 49 |AN AQUEO|US ACIDI|
|0002be80| 54 59 20 49 53 20 4e 4f | 54 20 4e 45 45 44 45 44 |TY IS NO|T NEEDED|
|0002be90| 0a 20 20 20 20 20 20 49 | 46 28 53 52 45 28 37 29 |. I|F(SRE(7)|
|0002bea0| 2e 45 51 2e 5a 45 52 4f | 2e 41 4e 44 2e 58 28 37 |.EQ.ZERO|.AND.X(7|
|0002beb0| 2c 49 50 54 29 2e 45 51 | 2e 5a 45 52 4f 29 20 47 |,IPT).EQ|.ZERO) G|
|0002bec0| 4f 54 4f 20 31 31 30 0a | 43 20 20 20 20 53 55 4d |OTO 110.|C SUM|
|0002bed0| 4d 41 52 49 5a 45 20 54 | 48 45 20 43 4f 4e 44 49 |MARIZE T|HE CONDI|
|0002bee0| 54 49 4f 4e 53 20 54 48 | 41 54 20 44 45 54 45 52 |TIONS TH|AT DETER|
|0002bef0| 4d 49 4e 45 20 4e 45 45 | 44 20 54 4f 20 43 41 4c |MINE NEE|D TO CAL|
|0002bf00| 43 55 4c 41 54 45 20 48 | 0a 43 20 20 20 20 20 41 |CULATE H|.C A|
|0002bf10| 4e 44 2f 4f 52 20 4f 48 | 2d 20 49 4e 20 54 48 45 |ND/OR OH|- IN THE|
|0002bf20| 20 56 41 52 49 41 42 4c | 45 20 49 48 43 0a 20 20 | VARIABL|E IHC. |
|0002bf30| 20 20 20 20 49 46 28 49 | 45 48 2e 4c 54 2e 32 29 | IF(I|EH.LT.2)|
|0002bf40| 20 49 48 43 3d 31 30 30 | 30 30 2a 49 45 51 2b 31 | IHC=100|00*IEQ+1|
|0002bf50| 30 30 30 2a 49 45 48 2b | 31 30 30 2a 4e 5a 41 28 |000*IEH+|100*NZA(|
|0002bf60| 36 29 0a 20 20 20 20 20 | 20 49 46 28 49 45 48 2e |6). | IF(IEH.|
|0002bf70| 47 45 2e 32 29 20 49 48 | 43 3d 31 30 30 30 30 2a |GE.2) IH|C=10000*|
|0002bf80| 49 45 51 2b 31 30 30 30 | 2a 32 2b 31 30 30 2a 4e |IEQ+1000|*2+100*N|
|0002bf90| 5a 41 28 36 29 0a 20 20 | 20 20 20 20 49 46 28 53 |ZA(6). | IF(S|
|0002bfa0| 52 45 28 37 29 2e 4e 45 | 2e 5a 45 52 4f 29 20 49 |RE(7).NE|.ZERO) I|
|0002bfb0| 48 43 3d 49 48 43 2b 31 | 30 0a 20 20 20 20 20 20 |HC=IHC+1|0. |
|0002bfc0| 49 46 28 53 52 45 41 28 | 37 29 2e 4e 45 2e 5a 45 |IF(SREA(|7).NE.ZE|
|0002bfd0| 52 4f 29 20 49 48 43 3d | 49 48 43 2b 31 0a 20 20 |RO) IHC=|IHC+1. |
|0002bfe0| 20 20 20 20 49 46 28 58 | 28 37 2c 49 50 54 29 2e | IF(X|(7,IPT).|
|0002bff0| 4c 54 2e 5a 45 52 4f 29 | 20 49 48 43 3d 2d 49 48 |LT.ZERO)| IHC=-IH|
|0002c000| 43 0a 43 0a 43 20 20 20 | 49 46 20 54 48 45 20 45 |C.C.C |IF THE E|
|0002c010| 51 55 49 4c 49 42 52 49 | 55 4d 20 48 2b 20 43 4f |QUILIBRI|UM H+ CO|
|0002c020| 4e 43 45 4e 54 52 41 54 | 49 4f 4e 20 49 53 20 47 |NCENTRAT|ION IS G|
|0002c030| 49 56 45 4e 20 41 4e 44 | 20 4f 48 2d 20 49 53 20 |IVEN AND| OH- IS |
|0002c040| 4f 4d 49 54 54 45 44 20 | 20 20 20 20 20 0a 20 20 |OMITTED | . |
|0002c050| 20 20 20 20 49 46 20 28 | 49 48 43 2e 45 51 2e 30 | IF (|IHC.EQ.0|
|0002c060| 2e 4f 52 2e 49 48 43 2e | 45 51 2e 31 30 30 30 2e |.OR.IHC.|EQ.1000.|
|0002c070| 4f 52 2e 49 48 43 2e 45 | 51 2e 31 30 31 30 2e 4f |OR.IHC.E|Q.1010.O|
|0002c080| 52 2e 49 48 43 2e 45 51 | 2e 0a 20 20 20 20 20 26 |R.IHC.EQ|.. &|
|0002c090| 32 30 30 30 2e 4f 52 2e | 49 48 43 2e 45 51 2e 32 |2000.OR.|IHC.EQ.2|
|0002c0a0| 30 31 30 2e 4f 52 2e 49 | 48 43 2e 45 51 2e 32 30 |010.OR.I|HC.EQ.20|
|0002c0b0| 31 31 2e 4f 52 2e 49 48 | 43 2e 45 51 2e 31 31 30 |11.OR.IH|C.EQ.110|
|0002c0c0| 30 30 0a 20 20 20 20 20 | 26 2e 4f 52 2e 49 48 43 |00. |&.OR.IHC|
|0002c0d0| 2e 45 51 2e 31 31 30 31 | 30 2e 4f 52 2e 49 48 43 |.EQ.1101|0.OR.IHC|
|0002c0e0| 2e 45 51 2e 31 32 30 30 | 30 2e 4f 52 2e 49 48 43 |.EQ.1200|0.OR.IHC|
|0002c0f0| 2e 45 51 2e 31 32 30 31 | 30 0a 20 20 20 20 20 26 |.EQ.1201|0. &|
|0002c100| 2e 4f 52 2e 49 48 43 2e | 45 51 2e 31 32 30 31 31 |.OR.IHC.|EQ.12011|
|0002c110| 29 20 47 4f 20 54 4f 20 | 38 35 0a 43 20 20 20 49 |) GO TO |85.C I|
|0002c120| 46 20 54 48 45 20 45 51 | 55 49 4c 49 42 52 49 55 |F THE EQ|UILIBRIU|
|0002c130| 4d 20 48 2b 20 43 4f 4e | 43 45 4e 54 52 41 54 49 |M H+ CON|CENTRATI|
|0002c140| 4f 4e 20 49 53 20 47 49 | 56 45 4e 20 41 4e 44 20 |ON IS GI|VEN AND |
|0002c150| 4f 48 2d 20 49 53 20 49 | 4e 43 4c 55 44 45 44 0a |OH- IS I|NCLUDED.|
|0002c160| 20 20 20 20 20 20 49 46 | 20 28 49 48 43 2e 45 51 | IF| (IHC.EQ|
|0002c170| 2e 31 31 30 30 2e 4f 52 | 2e 49 48 43 2e 45 51 2e |.1100.OR|.IHC.EQ.|
|0002c180| 31 31 31 30 2e 4f 52 2e | 49 48 43 2e 45 51 2e 0a |1110.OR.|IHC.EQ..|
|0002c190| 20 20 20 20 20 26 32 31 | 30 30 2e 4f 52 2e 49 48 | &21|00.OR.IH|
|0002c1a0| 43 2e 45 51 2e 32 31 31 | 30 2e 4f 52 2e 49 48 43 |C.EQ.211|0.OR.IHC|
|0002c1b0| 2e 45 51 2e 32 31 31 31 | 2e 4f 52 2e 49 48 43 2e |.EQ.2111|.OR.IHC.|
|0002c1c0| 45 51 2e 31 32 31 30 30 | 2e 0a 20 20 20 20 20 26 |EQ.12100|.. &|
|0002c1d0| 4f 52 2e 49 48 43 2e 45 | 51 2e 31 32 31 31 30 2e |OR.IHC.E|Q.12110.|
|0002c1e0| 4f 52 2e 49 48 43 2e 45 | 51 2e 31 32 31 31 31 29 |OR.IHC.E|Q.12111)|
|0002c1f0| 20 47 4f 54 4f 20 39 30 | 0a 43 20 20 20 49 46 20 | GOTO 90|.C IF |
|0002c200| 54 48 45 20 45 51 55 49 | 4c 49 42 52 49 55 4d 20 |THE EQUI|LIBRIUM |
|0002c210| 4f 48 2d 20 43 4f 4e 43 | 45 4e 54 52 41 54 49 4f |OH- CONC|ENTRATIO|
|0002c220| 4e 20 49 53 20 47 49 56 | 45 4e 20 20 20 20 20 20 |N IS GIV|EN |
|0002c230| 20 20 20 20 20 20 20 20 | 0a 20 20 20 20 20 20 49 | |. I|
|0002c240| 46 20 28 49 48 43 2e 45 | 51 2e 2d 31 30 30 2e 4f |F (IHC.E|Q.-100.O|
|0002c250| 52 2e 49 48 43 2e 45 51 | 2e 2d 31 31 30 30 2e 4f |R.IHC.EQ|.-1100.O|
|0002c260| 52 2e 49 48 43 2e 45 51 | 2e 2d 31 31 31 30 2e 4f |R.IHC.EQ|.-1110.O|
|0002c270| 52 2e 49 48 43 2e 45 51 | 2e 0a 20 20 20 20 20 26 |R.IHC.EQ|.. &|
|0002c280| 2d 32 31 30 30 2e 4f 52 | 2e 49 48 43 2e 45 51 2e |-2100.OR|.IHC.EQ.|
|0002c290| 2d 32 31 31 30 2e 4f 52 | 2e 49 48 43 2e 45 51 2e |-2110.OR|.IHC.EQ.|
|0002c2a0| 2d 32 31 31 31 2e 4f 52 | 2e 49 48 43 2e 45 51 2e |-2111.OR|.IHC.EQ.|
|0002c2b0| 2d 31 32 31 30 30 2e 4f | 52 2e 0a 20 20 20 20 20 |-12100.O|R.. |
|0002c2c0| 26 49 48 43 2e 45 51 2e | 2d 31 32 31 31 30 2e 4f |&IHC.EQ.|-12110.O|
|0002c2d0| 52 2e 49 48 43 2e 45 51 | 2e 2d 31 32 31 31 31 29 |R.IHC.EQ|.-12111)|
|0002c2e0| 20 47 4f 54 4f 20 39 35 | 0a 43 20 20 20 49 46 20 | GOTO 95|.C IF |
|0002c2f0| 54 48 45 20 45 51 55 49 | 4c 49 42 52 49 55 4d 20 |THE EQUI|LIBRIUM |
|0002c300| 48 2b 20 43 4f 4e 43 45 | 4e 54 52 41 54 49 4f 4e |H+ CONCE|NTRATION|
|0002c310| 20 4d 55 53 54 20 42 45 | 20 43 41 4c 43 27 44 2e | MUST BE| CALC'D.|
|0002c320| 2c 20 4f 48 2d 20 4f 4d | 49 54 54 45 44 0a 20 20 |, OH- OM|ITTED. |
|0002c330| 20 20 20 20 49 46 20 28 | 49 48 43 2e 45 51 2e 31 | IF (|IHC.EQ.1|
|0002c340| 30 2e 4f 52 2e 49 48 43 | 2e 45 51 2e 31 31 2e 4f |0.OR.IHC|.EQ.11.O|
|0002c350| 52 2e 49 48 43 2e 45 51 | 2e 31 30 31 31 2e 4f 52 |R.IHC.EQ|.1011.OR|
|0002c360| 2e 49 48 43 2e 45 51 2e | 0a 20 20 20 20 20 26 31 |.IHC.EQ.|. &1|
|0002c370| 31 30 31 31 29 20 47 4f | 54 4f 20 31 30 30 0a 43 |1011) GO|TO 100.C|
|0002c380| 20 20 20 49 46 20 54 48 | 45 20 45 51 55 49 4c 49 | IF TH|E EQUILI|
|0002c390| 42 52 49 55 4d 20 43 4f | 4e 43 4e 2e 20 4f 46 20 |BRIUM CO|NCN. OF |
|0002c3a0| 42 4f 54 48 20 48 2b 20 | 41 4e 44 20 4f 48 2d 20 |BOTH H+ |AND OH- |
|0002c3b0| 4d 55 53 54 20 42 45 20 | 43 41 4c 43 27 44 2e 0a |MUST BE |CALC'D..|
|0002c3c0| 20 20 20 20 20 20 49 46 | 20 28 49 48 43 2e 45 51 | IF| (IHC.EQ|
|0002c3d0| 2e 31 30 30 2e 4f 52 2e | 49 48 43 2e 45 51 2e 31 |.100.OR.|IHC.EQ.1|
|0002c3e0| 31 30 2e 4f 52 2e 49 48 | 43 2e 45 51 2e 2d 31 31 |10.OR.IH|C.EQ.-11|
|0002c3f0| 30 2e 4f 52 2e 49 48 43 | 2e 45 51 2e 0a 20 20 20 |0.OR.IHC|.EQ.. |
|0002c400| 20 20 26 31 31 31 2e 4f | 52 2e 49 48 43 2e 45 51 | &111.O|R.IHC.EQ|
|0002c410| 2e 2d 31 31 31 2e 4f 52 | 2e 49 48 43 2e 45 51 2e |.-111.OR|.IHC.EQ.|
|0002c420| 31 31 31 31 2e 4f 52 2e | 49 48 43 2e 45 51 2e 2d |1111.OR.|IHC.EQ.-|
|0002c430| 31 31 31 31 2e 4f 52 2e | 49 48 43 2e 45 51 2e 0a |1111.OR.|IHC.EQ..|
|0002c440| 20 20 20 20 20 26 31 31 | 31 30 30 2e 4f 52 2e 49 | &11|100.OR.I|
|0002c450| 48 43 2e 45 51 2e 2d 31 | 31 31 30 30 2e 4f 52 2e |HC.EQ.-1|1100.OR.|
|0002c460| 49 48 43 2e 45 51 2e 31 | 31 31 31 30 2e 4f 52 2e |IHC.EQ.1|1110.OR.|
|0002c470| 49 48 43 2e 45 51 2e 2d | 31 31 31 31 30 2e 4f 52 |IHC.EQ.-|11110.OR|
|0002c480| 2e 0a 20 20 20 20 20 26 | 49 48 43 2e 45 51 2e 31 |.. &|IHC.EQ.1|
|0002c490| 31 31 31 31 2e 4f 52 2e | 49 48 43 2e 45 51 2e 2d |1111.OR.|IHC.EQ.-|
|0002c4a0| 31 31 31 31 31 29 20 47 | 4f 54 4f 20 31 30 35 0a |11111) G|OTO 105.|
|0002c4b0| 43 0a 43 20 20 20 49 46 | 20 54 48 45 20 41 43 49 |C.C IF| THE ACI|
|0002c4c0| 44 20 43 4f 4e 44 49 54 | 49 4f 4e 20 57 41 53 20 |D CONDIT|ION WAS |
|0002c4d0| 4e 4f 54 20 53 50 45 43 | 49 46 49 45 44 0a 20 20 |NOT SPEC|IFIED. |
|0002c4e0| 20 20 20 20 57 52 49 54 | 45 28 31 32 2c 31 30 30 | WRIT|E(12,100|
|0002c4f0| 32 29 20 49 48 43 0a 20 | 20 20 20 20 20 57 52 49 |2) IHC. | WRI|
|0002c500| 54 45 28 39 2c 31 30 30 | 32 29 20 49 48 43 0a 31 |TE(9,100|2) IHC.1|
|0002c510| 30 30 32 20 20 46 4f 52 | 4d 41 54 28 31 58 2c 27 |002 FOR|MAT(1X,'|
|0002c520| 49 48 43 20 3d 27 2c 49 | 37 2c 27 3b 20 41 43 49 |IHC =',I|7,'; ACI|
|0002c530| 44 49 54 59 20 43 4f 4e | 44 49 54 49 4f 4e 20 4e |DITY CON|DITION N|
|0002c540| 4f 54 20 44 45 46 49 4e | 45 44 27 29 0a 20 20 20 |OT DEFIN|ED'). |
|0002c550| 20 20 20 50 41 55 53 45 | 0a 20 20 20 20 20 20 53 | PAUSE|. S|
|0002c560| 54 4f 50 0a 43 20 20 20 | 45 51 2e 20 48 2b 20 43 |TOP.C |EQ. H+ C|
|0002c570| 4f 4e 43 2e 20 47 49 56 | 45 4e 2c 20 4f 48 2d 20 |ONC. GIV|EN, OH- |
|0002c580| 4f 4d 49 54 54 45 44 0a | 38 35 20 20 20 20 43 53 |OMITTED.|85 CS|
|0002c590| 28 37 29 3d 58 28 37 2c | 49 50 54 29 0a 20 20 20 |(7)=X(7,|IPT). |
|0002c5a0| 20 20 20 43 53 28 38 29 | 3d 5a 45 52 4f 0a 20 20 | CS(8)|=ZERO. |
|0002c5b0| 20 20 20 20 47 4f 54 4f | 20 31 32 30 0a 43 20 20 | GOTO| 120.C |
|0002c5c0| 20 45 51 2e 20 48 2b 20 | 43 4f 4e 43 2e 20 47 49 | EQ. H+ |CONC. GI|
|0002c5d0| 56 45 4e 2c 20 4f 48 2d | 20 54 4f 20 42 45 20 43 |VEN, OH-| TO BE C|
|0002c5e0| 41 4c 43 55 4c 41 54 45 | 44 0a 39 30 20 20 20 20 |ALCULATE|D.90 |
|0002c5f0| 43 53 28 37 29 3d 58 28 | 37 2c 49 50 54 29 0a 20 |CS(7)=X(|7,IPT). |
|0002c600| 20 20 20 20 20 49 46 28 | 49 53 54 2e 45 51 2e 31 | IF(|IST.EQ.1|
|0002c610| 29 20 43 53 28 38 29 3d | 52 4b 57 2f 43 53 28 37 |) CS(8)=|RKW/CS(7|
|0002c620| 29 0a 20 20 20 20 20 20 | 49 46 28 49 53 54 2e 47 |). |IF(IST.G|
|0002c630| 54 2e 31 29 20 43 53 28 | 38 29 3d 54 45 4e 2a 2a |T.1) CS(|8)=TEN**|
|0002c640| 28 58 43 28 38 29 29 0a | 20 20 20 20 20 20 4e 46 |(XC(8)).| NF|
|0002c650| 28 4a 29 3d 38 0a 20 20 | 20 20 20 20 4a 3d 4a 2b |(J)=8. | J=J+|
|0002c660| 31 0a 20 20 20 20 20 20 | 47 4f 54 4f 20 31 32 30 |1. |GOTO 120|
|0002c670| 0a 43 20 20 20 45 51 2e | 20 4f 48 2d 20 43 4f 4e |.C EQ.| OH- CON|
|0002c680| 43 2e 20 47 49 56 45 4e | 2c 20 48 2b 20 54 4f 20 |C. GIVEN|, H+ TO |
|0002c690| 42 45 20 43 41 4c 43 55 | 4c 41 54 45 44 0a 39 35 |BE CALCU|LATED.95|
|0002c6a0| 20 20 20 20 43 53 28 38 | 29 3d 2d 58 28 37 2c 49 | CS(8|)=-X(7,I|
|0002c6b0| 50 54 29 0a 20 20 20 20 | 20 20 49 46 28 49 53 54 |PT). | IF(IST|
|0002c6c0| 2e 45 51 2e 31 29 20 43 | 53 28 37 29 3d 52 4b 57 |.EQ.1) C|S(7)=RKW|
|0002c6d0| 2f 43 53 28 38 29 0a 20 | 20 20 20 20 20 49 46 28 |/CS(8). | IF(|
|0002c6e0| 49 53 54 2e 47 54 2e 31 | 29 20 43 53 28 37 29 3d |IST.GT.1|) CS(7)=|
|0002c6f0| 54 45 4e 2a 2a 28 58 43 | 28 37 29 29 0a 20 20 20 |TEN**(XC|(7)). |
|0002c700| 20 20 20 4e 46 28 4a 29 | 3d 37 0a 20 20 20 20 20 | NF(J)|=7. |
|0002c710| 20 4a 3d 4a 2b 31 0a 20 | 20 20 20 20 20 47 4f 54 | J=J+1. | GOT|
|0002c720| 4f 20 31 32 30 0a 43 20 | 20 20 45 51 2e 20 48 2b |O 120.C | EQ. H+|
|0002c730| 20 43 4f 4e 43 2e 20 54 | 4f 20 42 45 20 43 41 4c | CONC. T|O BE CAL|
|0002c740| 43 55 4c 41 54 45 44 2c | 20 4f 48 2d 20 4f 4d 49 |CULATED,| OH- OMI|
|0002c750| 54 54 45 44 0a 31 30 30 | 20 20 20 43 53 28 38 29 |TTED.100| CS(8)|
|0002c760| 3d 5a 45 52 4f 20 20 20 | 0a 20 20 20 20 20 20 43 |=ZERO |. C|
|0002c770| 53 28 37 29 3d 54 45 4e | 2a 2a 28 58 43 28 37 29 |S(7)=TEN|**(XC(7)|
|0002c780| 29 0a 20 20 20 20 20 20 | 4e 46 28 4a 29 3d 37 0a |). |NF(J)=7.|
|0002c790| 20 20 20 20 20 20 4a 3d | 4a 2b 31 0a 20 20 20 20 | J=|J+1. |
|0002c7a0| 20 20 47 4f 54 4f 20 31 | 32 30 0a 43 20 20 20 45 | GOTO 1|20.C E|
|0002c7b0| 51 2e 20 48 2b 20 43 4f | 4e 43 2e 20 41 4e 44 20 |Q. H+ CO|NC. AND |
|0002c7c0| 45 51 2e 20 4f 48 2d 20 | 43 4f 4e 43 2e 20 42 4f |EQ. OH- |CONC. BO|
|0002c7d0| 54 48 20 54 4f 20 42 45 | 20 43 41 4c 43 55 4c 41 |TH TO BE| CALCULA|
|0002c7e0| 54 45 44 0a 31 30 35 20 | 20 20 43 53 28 37 29 3d |TED.105 | CS(7)=|
|0002c7f0| 54 45 4e 2a 2a 28 58 43 | 28 37 29 29 0a 20 20 20 |TEN**(XC|(7)). |
|0002c800| 20 20 20 49 46 28 49 53 | 54 2e 45 51 2e 31 29 20 | IF(IS|T.EQ.1) |
|0002c810| 43 53 28 38 29 3d 52 4b | 57 2f 43 53 28 37 29 0a |CS(8)=RK|W/CS(7).|
|0002c820| 20 20 20 20 20 20 49 46 | 28 49 53 54 2e 47 54 2e | IF|(IST.GT.|
|0002c830| 31 29 20 43 53 28 38 29 | 3d 54 45 4e 2a 2a 28 58 |1) CS(8)|=TEN**(X|
|0002c840| 43 28 38 29 29 0a 20 20 | 20 20 20 20 4e 46 28 4a |C(8)). | NF(J|
|0002c850| 29 3d 37 0a 20 20 20 20 | 20 20 4a 3d 4a 2b 31 0a |)=7. | J=J+1.|
|0002c860| 20 20 20 20 20 20 4e 46 | 28 4a 29 3d 38 0a 20 20 | NF|(J)=8. |
|0002c870| 20 20 20 20 4a 3d 4a 2b | 31 0a 20 20 20 20 20 20 | J=J+|1. |
|0002c880| 47 4f 54 4f 20 31 32 30 | 0a 43 20 20 20 4e 4f 20 |GOTO 120|.C NO |
|0002c890| 41 43 49 44 20 4f 52 20 | 42 41 53 45 20 43 4f 4e |ACID OR |BASE CON|
|0002c8a0| 43 2e 20 54 4f 20 42 45 | 20 43 41 4c 43 55 4c 41 |C. TO BE| CALCULA|
|0002c8b0| 54 45 44 0a 31 31 30 20 | 20 20 43 53 28 37 29 3d |TED.110 | CS(7)=|
|0002c8c0| 5a 45 52 4f 0a 20 20 20 | 20 20 20 43 53 28 38 29 |ZERO. | CS(8)|
|0002c8d0| 3d 5a 45 52 4f 0a 20 20 | 20 20 20 20 47 4f 54 4f |=ZERO. | GOTO|
|0002c8e0| 20 31 32 30 0a 43 20 20 | 20 41 51 55 45 4f 55 53 | 120.C | AQUEOUS|
|0002c8f0| 20 50 48 41 53 45 20 41 | 42 53 45 4e 54 0a 31 31 | PHASE A|BSENT.11|
|0002c900| 35 20 20 20 49 46 28 53 | 52 45 28 37 29 2e 4e 45 |5 IF(S|RE(7).NE|
|0002c910| 2e 5a 45 52 4f 29 20 54 | 48 45 4e 0a 43 20 20 20 |.ZERO) T|HEN.C |
|0002c920| 20 20 20 48 2b 20 49 4f | 4e 20 49 53 20 4e 45 45 | H+ IO|N IS NEE|
|0002c930| 44 45 44 20 41 53 20 41 | 20 52 45 41 43 54 41 4e |DED AS A| REACTAN|
|0002c940| 54 20 0a 20 20 20 20 20 | 20 20 20 49 46 28 49 53 |T . | IF(IS|
|0002c950| 54 2e 45 51 2e 31 29 20 | 54 48 45 4e 0a 20 20 20 |T.EQ.1) |THEN. |
|0002c960| 20 20 20 20 20 20 20 43 | 53 28 37 29 3d 44 53 51 | C|S(7)=DSQ|
|0002c970| 52 54 28 52 4b 57 29 0a | 09 20 20 43 53 28 38 29 |RT(RKW).|. CS(8)|
|0002c980| 3d 52 4b 57 2f 43 53 28 | 37 29 0a 20 20 20 20 20 |=RKW/CS(|7). |
|0002c990| 20 20 20 45 4e 44 20 49 | 46 0a 20 20 20 20 20 20 | END I|F. |
|0002c9a0| 20 20 49 46 28 49 53 54 | 2e 47 54 2e 31 29 20 54 | IF(IST|.GT.1) T|
|0002c9b0| 48 45 4e 0a 20 20 20 20 | 20 20 20 20 20 20 43 53 |HEN. | CS|
|0002c9c0| 28 37 29 3d 54 45 4e 2a | 2a 28 58 43 28 37 29 29 |(7)=TEN*|*(XC(7))|
|0002c9d0| 0a 20 20 20 20 20 20 20 | 20 20 20 43 53 28 38 29 |. | CS(8)|
|0002c9e0| 3d 54 45 4e 2a 2a 28 58 | 43 28 38 29 29 0a 20 20 |=TEN**(X|C(8)). |
|0002c9f0| 20 20 20 20 20 20 45 4e | 44 20 49 46 0a 20 20 20 | EN|D IF. |
|0002ca00| 20 20 20 20 20 4e 46 28 | 4a 29 3d 37 0a 20 20 20 | NF(|J)=7. |
|0002ca10| 20 20 20 20 20 4a 3d 4a | 2b 31 0a 20 20 20 20 20 | J=J|+1. |
|0002ca20| 20 20 20 4e 46 28 4a 29 | 3d 38 0a 20 20 20 20 20 | NF(J)|=8. |
|0002ca30| 20 20 20 4a 3d 4a 2b 31 | 0a 20 20 20 20 20 20 45 | J=J+1|. E|
|0002ca40| 4e 44 20 49 46 0a 43 0a | 43 20 20 50 52 4f 44 55 |ND IF.C.|C PRODU|
|0002ca50| 43 54 20 53 50 45 43 49 | 45 53 0a 31 32 30 20 20 |CT SPECI|ES.120 |
|0002ca60| 20 49 46 28 49 50 54 2e | 45 51 2e 31 2e 41 4e 44 | IF(IPT.|EQ.1.AND|
|0002ca70| 2e 49 53 54 2e 45 51 2e | 31 29 20 54 48 45 4e 0a |.IST.EQ.|1) THEN.|
|0002ca80| 43 20 20 20 20 20 20 53 | 45 54 20 41 4c 4c 20 41 |C S|ET ALL A|
|0002ca90| 43 54 49 56 49 54 59 20 | 43 4f 45 46 46 49 43 49 |CTIVITY |COEFFICI|
|0002caa0| 45 4e 54 20 56 41 4c 55 | 45 53 20 54 4f 20 55 4e |ENT VALU|ES TO UN|
|0002cab0| 49 54 59 0a 20 20 20 20 | 20 20 20 20 44 4f 20 31 |ITY. | DO 1|
|0002cac0| 32 35 20 49 3d 31 2c 28 | 38 2b 4e 53 4f 2b 4e 53 |25 I=1,(|8+NSO+NS|
|0002cad0| 41 29 0a 20 20 20 20 20 | 20 20 20 47 28 49 29 3d |A). | G(I)=|
|0002cae0| 4f 4e 45 0a 31 32 35 20 | 20 20 20 20 43 4f 4e 54 |ONE.125 | CONT|
|0002caf0| 49 4e 55 45 0a 20 20 20 | 20 20 20 45 4e 44 20 49 |INUE. | END I|
|0002cb00| 46 0a 20 20 20 20 20 20 | 49 46 28 4e 53 4f 2e 45 |F. |IF(NSO.E|
|0002cb10| 51 2e 30 2e 4f 52 2e 4e | 43 41 4c 2e 45 51 2e 33 |Q.0.OR.N|CAL.EQ.3|
|0002cb20| 29 20 47 4f 54 4f 20 32 | 31 35 0a 43 0a 43 20 20 |) GOTO 2|15.C.C |
|0002cb30| 4d 41 4b 45 20 49 4e 49 | 54 49 41 4c 20 45 53 54 |MAKE INI|TIAL EST|
|0002cb40| 49 4d 41 54 45 20 4f 46 | 20 4e 4f 4e 41 51 55 45 |IMATE OF| NONAQUE|
|0002cb50| 4f 55 53 20 50 52 4f 44 | 2e 53 50 45 43 49 45 20 |OUS PROD|.SPECIE |
|0002cb60| 43 4f 4e 43 45 4e 54 52 | 41 54 49 4f 4e 53 0a 20 |CONCENTR|ATIONS. |
|0002cb70| 20 20 20 20 20 43 52 45 | 46 3d 5a 45 52 4f 0a 43 | CRE|F=ZERO.C|
|0002cb80| 0a 43 0a 43 20 20 20 20 | 20 20 57 52 49 54 45 28 |.C.C | WRITE(|
|0002cb90| 2a 2c 2a 29 20 49 52 45 | 46 2c 4e 52 45 46 2c 4e |*,*) IRE|F,NREF,N|
|0002cba0| 43 54 52 0a 43 20 20 20 | 20 20 20 50 41 55 53 45 |CTR.C | PAUSE|
|0002cbb0| 0a 43 0a 20 20 20 20 20 | 20 49 46 28 49 52 45 46 |.C. | IF(IREF|
|0002cbc0| 2e 4e 45 2e 30 29 20 54 | 48 45 4e 0a 43 20 20 20 |.NE.0) T|HEN.C |
|0002cbd0| 20 20 20 49 4f 4e 49 43 | 20 4e 4f 4e 41 51 55 45 | IONIC| NONAQUE|
|0002cbe0| 4f 55 53 20 53 50 45 43 | 49 45 53 20 4d 41 59 20 |OUS SPEC|IES MAY |
|0002cbf0| 42 45 20 46 4f 52 4d 45 | 44 0a 20 20 20 20 20 20 |BE FORME|D. |
|0002cc00| 20 20 49 46 28 4e 52 45 | 46 2e 45 51 2e 31 2e 41 | IF(NRE|F.EQ.1.A|
|0002cc10| 4e 44 2e 4e 43 54 52 2e | 45 51 2e 31 29 20 54 48 |ND.NCTR.|EQ.1) TH|
|0002cc20| 45 4e 0a 43 20 20 20 20 | 20 20 20 20 52 45 46 45 |EN.C | REFE|
|0002cc30| 52 45 4e 43 45 20 49 4f | 4e 20 41 4e 44 20 41 20 |RENCE IO|N AND A |
|0002cc40| 43 4f 55 4e 54 45 52 20 | 49 4f 4e 20 53 50 45 43 |COUNTER |ION SPEC|
|0002cc50| 49 45 53 20 43 41 4e 20 | 46 4f 52 4d 0a 20 20 20 |IES CAN |FORM. |
|0002cc60| 20 20 20 20 20 20 20 4b | 3d 38 2b 49 52 45 46 0a | K|=8+IREF.|
|0002cc70| 20 20 20 20 20 20 20 20 | 20 20 4e 46 28 4a 29 3d | | NF(J)=|
|0002cc80| 4b 0a 20 20 20 20 20 20 | 20 20 20 20 4a 3d 4a 2b |K. | J=J+|
|0002cc90| 31 0a 20 20 20 20 20 20 | 20 20 20 20 4e 46 28 4a |1. | NF(J|
|0002cca0| 29 3d 38 2b 49 43 54 52 | 0a 09 20 20 4a 43 54 52 |)=8+ICTR|.. JCTR|
|0002ccb0| 3d 4a 0a 20 20 20 20 20 | 20 20 20 20 20 4a 3d 4a |=J. | J=J|
|0002ccc0| 2b 31 0a 20 20 20 20 20 | 20 20 20 20 20 49 46 28 |+1. | IF(|
|0002ccd0| 49 53 54 2e 47 54 2e 31 | 29 20 54 48 45 4e 0a 20 |IST.GT.1|) THEN. |
|0002cce0| 20 20 20 20 20 20 20 20 | 20 20 20 43 53 28 4b 29 | | CS(K)|
|0002ccf0| 3d 54 45 4e 2a 2a 28 58 | 43 28 4b 29 29 0a 20 20 |=TEN**(X|C(K)). |
|0002cd00| 20 20 20 20 20 20 20 20 | 20 20 43 53 28 38 2b 49 | | CS(8+I|
|0002cd10| 43 54 52 29 3d 54 45 4e | 2a 2a 28 58 43 28 38 2b |CTR)=TEN|**(XC(8+|
|0002cd20| 49 43 54 52 29 29 0a 20 | 20 20 20 20 20 20 20 20 |ICTR)). | |
|0002cd30| 20 20 20 47 4f 54 4f 20 | 31 33 34 0a 20 20 20 20 | GOTO |134. |
|0002cd40| 20 20 20 20 20 20 45 4e | 44 20 49 46 09 20 20 20 | EN|D IF. |
|0002cd50| 0a 43 20 20 20 20 20 20 | 20 20 45 53 54 49 4d 41 |.C | ESTIMA|
|0002cd60| 54 45 20 43 4f 4e 43 4e | 2e 20 4f 46 20 52 45 46 |TE CONCN|. OF REF|
|0002cd70| 45 52 45 4e 43 45 20 49 | 4f 4e 0a 20 20 20 20 20 |ERENCE I|ON. |
|0002cd80| 20 20 20 20 20 49 46 28 | 4e 43 41 4c 2e 4e 45 2e | IF(|NCAL.NE.|
|0002cd90| 32 29 20 54 48 45 4e 0a | 43 20 20 20 20 20 20 20 |2) THEN.|C |
|0002cda0| 20 20 20 41 51 55 45 4f | 55 53 20 50 48 41 53 45 | AQUEO|US PHASE|
|0002cdb0| 20 50 52 45 53 45 4e 54 | 0a 43 20 20 20 20 20 20 | PRESENT|.C |
|0002cdc0| 20 20 20 20 20 42 41 53 | 45 20 52 45 46 2e 49 4f | BAS|E REF.IO|
|0002cdd0| 4e 20 43 4f 4e 43 4e 2e | 4f 4e 20 45 53 54 2e 52 |N CONCN.|ON EST.R|
|0002cde0| 45 41 43 54 41 4e 54 20 | 43 4f 4e 43 4e 53 2e 41 |EACTANT |CONCNS.A|
|0002cdf0| 4e 44 20 41 20 45 53 54 | 2e 0a 43 20 20 20 20 20 |ND A EST|..C |
|0002ce00| 20 20 20 20 20 20 43 4f | 55 4e 54 45 52 20 49 4f | CO|UNTER IO|
|0002ce10| 4e 20 43 54 4e 2e 0a 20 | 20 20 20 20 20 20 20 20 |N CTN.. | |
|0002ce20| 20 20 20 44 4f 20 31 33 | 31 20 4c 3d 31 2c 37 0a | DO 13|1 L=1,7.|
|0002ce30| 20 20 20 20 20 20 20 20 | 20 20 20 20 49 46 28 45 | | IF(E|
|0002ce40| 4f 43 28 4c 2c 49 43 54 | 52 29 2e 4e 45 2e 5a 45 |OC(L,ICT|R).NE.ZE|
|0002ce50| 52 4f 29 20 54 48 45 4e | 0a 20 20 20 20 20 20 20 |RO) THEN|. |
|0002ce60| 20 20 20 20 20 20 20 46 | 4f 43 28 4c 2c 49 43 54 | F|OC(L,ICT|
|0002ce70| 52 29 3d 28 43 53 28 4c | 29 2a 47 28 4c 29 29 2a |R)=(CS(L|)*G(L))*|
|0002ce80| 2a 45 4f 43 28 4c 2c 49 | 43 54 52 29 0a 20 20 20 |*EOC(L,I|CTR). |
|0002ce90| 20 20 20 20 20 20 20 20 | 20 45 4c 53 45 0a 20 20 | | ELSE. |
|0002cea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 46 4f 43 28 | | FOC(|
|0002ceb0| 4c 2c 49 43 54 52 29 3d | 4f 4e 45 0a 20 20 20 20 |L,ICTR)=|ONE. |
|0002cec0| 20 20 20 20 20 20 20 20 | 45 4e 44 20 49 46 0a 31 | |END IF.1|
|0002ced0| 33 31 20 20 20 20 20 20 | 20 20 20 43 4f 4e 54 49 |31 | CONTI|
|0002cee0| 4e 55 45 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |NUE. | |
|0002cef0| 49 46 28 45 4f 43 28 38 | 2c 49 43 54 52 29 2e 4e |IF(EOC(8|,ICTR).N|
|0002cf00| 45 2e 5a 45 52 4f 29 20 | 54 48 45 4e 0a 20 20 20 |E.ZERO) |THEN. |
|0002cf10| 20 20 20 20 20 20 20 20 | 20 20 20 46 4f 43 28 38 | | FOC(8|
|0002cf20| 2c 49 43 54 52 29 3d 41 | 57 2a 2a 45 4f 43 28 38 |,ICTR)=A|W**EOC(8|
|0002cf30| 2c 49 43 54 52 29 0a 20 | 20 20 20 20 20 20 20 20 |,ICTR). | |
|0002cf40| 20 20 20 45 4c 53 45 0a | 20 20 20 20 20 20 20 20 | ELSE.| |
|0002cf50| 20 20 20 20 20 20 46 4f | 43 28 38 2c 49 43 54 52 | FO|C(8,ICTR|
|0002cf60| 29 3d 4f 4e 45 0a 20 20 | 20 20 20 20 20 20 20 20 |)=ONE. | |
|0002cf70| 20 20 45 4e 44 20 49 46 | 0a 20 20 20 20 20 20 20 | END IF|. |
|0002cf80| 20 20 20 20 20 43 53 28 | 4b 29 3d 28 2d 52 5a 49 | CS(|K)=(-RZI|
|0002cf90| 52 28 49 43 54 52 29 2a | 46 4f 4b 28 49 43 54 52 |R(ICTR)*|FOK(ICTR|
|0002cfa0| 29 2a 46 4f 43 28 33 2c | 49 43 54 52 29 2a 0a 20 |)*FOC(3,|ICTR)*. |
|0002cfb0| 20 20 20 20 26 20 20 20 | 20 20 20 46 4f 43 28 34 | & | FOC(4|
|0002cfc0| 2c 49 43 54 52 29 2a 46 | 4f 43 28 31 2c 49 43 54 |,ICTR)*F|OC(1,ICT|
|0002cfd0| 52 29 2a 46 4f 43 28 32 | 2c 49 43 54 52 29 2a 46 |R)*FOC(2|,ICTR)*F|
|0002cfe0| 4f 43 28 35 2c 49 43 54 | 52 29 2a 0a 20 20 20 20 |OC(5,ICT|R)*. |
|0002cff0| 20 26 20 20 20 20 20 20 | 46 4f 43 28 36 2c 49 43 | & |FOC(6,IC|
|0002d000| 54 52 29 2a 46 4f 43 28 | 37 2c 49 43 54 52 29 2a |TR)*FOC(|7,ICTR)*|
|0002d010| 46 4f 43 28 38 2c 49 43 | 54 52 29 2a 0a 20 20 20 |FOC(8,IC|TR)*. |
|0002d020| 20 20 26 20 20 20 20 20 | 20 47 28 4b 29 2f 47 28 | & | G(K)/G(|
|0002d030| 38 2b 49 43 54 52 29 29 | 2a 2a 28 4f 4e 45 2f 28 |8+ICTR))|**(ONE/(|
|0002d040| 4f 4e 45 2d 52 5a 49 52 | 28 49 43 54 52 29 29 29 |ONE-RZIR|(ICTR)))|
|0002d050| 2f 47 28 4b 29 0a 43 0a | 43 20 20 20 20 20 20 20 |/G(K).C.|C |
|0002d060| 20 20 20 20 57 52 49 54 | 45 28 39 2c 33 32 30 38 | WRIT|E(9,3208|
|0002d070| 29 20 49 43 54 52 2c 46 | 4f 4b 28 49 43 54 52 29 |) ICTR,F|OK(ICTR)|
|0002d080| 2c 28 46 4f 43 28 4c 2c | 49 43 54 52 29 2c 4c 3d |,(FOC(L,|ICTR),L=|
|0002d090| 31 2c 38 29 0a 43 33 32 | 30 38 20 20 20 20 20 20 |1,8).C32|08 |
|0002d0a0| 20 46 4f 52 4d 41 54 28 | 31 58 2c 27 49 43 54 52 | FORMAT(|1X,'ICTR|
|0002d0b0| 2c 20 46 4f 4b 28 49 43 | 54 52 29 3a 27 2c 49 33 |, FOK(IC|TR):',I3|
|0002d0c0| 2c 31 50 45 31 30 2e 31 | 2f 0a 43 20 20 20 20 20 |,1PE10.1|/.C |
|0002d0d0| 26 20 20 20 20 20 31 58 | 2c 27 46 4f 43 28 4c 2c |& 1X|,'FOC(L,|
|0002d0e0| 49 43 54 52 29 3a 27 2f | 31 58 2c 38 45 31 30 2e |ICTR):'/|1X,8E10.|
|0002d0f0| 31 29 0a 43 20 20 20 20 | 20 20 20 20 20 20 20 50 |1).C | P|
|0002d100| 41 55 53 45 0a 43 0a 43 | 20 20 20 20 20 20 20 20 |AUSE.C.C| |
|0002d110| 20 20 44 4f 45 53 20 54 | 48 49 53 20 43 4f 4e 43 | DOES T|HIS CONC|
|0002d120| 45 4e 54 52 41 54 49 4f | 4e 20 45 58 43 45 45 44 |ENTRATIO|N EXCEED|
|0002d130| 20 54 48 45 20 54 4f 54 | 41 4c 20 53 55 50 50 4c | THE TOT|AL SUPPL|
|0002d140| 59 20 4f 46 20 41 0a 43 | 20 20 20 20 20 20 20 20 |Y OF A.C| |
|0002d150| 20 20 20 4e 45 45 44 45 | 44 20 52 45 41 43 54 41 | NEEDE|D REACTA|
|0002d160| 4e 54 3f 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |NT?. | |
|0002d170| 44 4f 20 31 33 32 20 4c | 3d 31 2c 32 0a 20 20 20 |DO 132 L|=1,2. |
|0002d180| 20 20 20 20 20 20 20 20 | 20 49 46 28 54 43 53 28 | | IF(TCS(|
|0002d190| 4c 29 2e 47 54 2e 5a 45 | 52 4f 2e 41 4e 44 2e 52 |L).GT.ZE|RO.AND.R|
|0002d1a0| 4f 43 28 4c 2c 49 52 45 | 46 29 2e 47 54 2e 5a 45 |OC(L,IRE|F).GT.ZE|
|0002d1b0| 52 4f 29 20 54 48 45 4e | 0a 43 20 20 20 20 20 20 |RO) THEN|.C |
|0002d1c0| 20 20 20 20 20 20 54 48 | 49 53 20 52 45 41 43 54 | TH|IS REACT|
|0002d1d0| 41 4e 54 20 49 53 20 50 | 52 45 53 45 4e 54 20 41 |ANT IS P|RESENT A|
|0002d1e0| 4e 44 20 50 52 4f 44 55 | 43 54 20 53 50 45 43 49 |ND PRODU|CT SPECI|
|0002d1f0| 45 53 20 43 4f 4e 54 41 | 49 4e 53 20 49 54 20 0a |ES CONTA|INS IT .|
|0002d200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 53 50 | | SP|
|0002d210| 43 4d 58 3d 54 43 53 28 | 4c 29 2f 52 4f 43 28 4c |CMX=TCS(|L)/ROC(L|
|0002d220| 2c 49 52 45 46 29 0a 20 | 20 20 20 20 20 20 20 20 |,IREF). | |
|0002d230| 20 20 20 20 20 49 46 28 | 53 50 43 4d 58 2e 4c 54 | IF(|SPCMX.LT|
|0002d240| 2e 43 53 28 4b 29 29 20 | 54 48 45 4e 0a 20 20 20 |.CS(K)) |THEN. |
|0002d250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 43 53 28 | | CS(|
|0002d260| 4b 29 3d 53 50 43 4d 58 | 2f 54 57 4f 0a 20 20 20 |K)=SPCMX|/TWO. |
|0002d270| 20 20 20 20 20 20 20 20 | 20 20 20 45 4e 44 20 49 | | END I|
|0002d280| 46 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 45 4e |F. | EN|
|0002d290| 44 20 49 46 0a 31 33 32 | 20 20 20 20 20 20 20 20 |D IF.132| |
|0002d2a0| 20 43 4f 4e 54 49 4e 55 | 45 0a 20 20 20 20 20 20 | CONTINU|E. |
|0002d2b0| 20 20 20 20 20 20 44 4f | 20 31 33 33 20 4c 3d 33 | DO| 133 L=3|
|0002d2c0| 2c 36 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 49 |,6. | I|
|0002d2d0| 46 28 54 43 53 28 4c 29 | 2e 47 54 2e 5a 45 52 4f |F(TCS(L)|.GT.ZERO|
|0002d2e0| 2e 41 4e 44 2e 52 4f 43 | 28 4c 2c 49 52 45 46 29 |.AND.ROC|(L,IREF)|
|0002d2f0| 2e 47 54 2e 5a 45 52 4f | 29 20 54 48 45 4e 0a 43 |.GT.ZERO|) THEN.C|
|0002d300| 20 20 20 20 20 20 20 20 | 20 20 20 20 54 48 49 53 | | THIS|
|0002d310| 20 52 45 41 43 54 41 4e | 54 20 49 53 20 50 52 45 | REACTAN|T IS PRE|
|0002d320| 53 45 4e 54 20 41 4e 44 | 20 50 52 4f 44 55 43 54 |SENT AND| PRODUCT|
|0002d330| 20 53 50 45 43 49 45 53 | 20 43 4f 4e 54 41 49 4e | SPECIES| CONTAIN|
|0002d340| 53 20 49 54 20 0a 20 20 | 20 20 20 20 20 20 20 20 |S IT . | |
|0002d350| 20 20 20 20 53 50 43 4d | 58 3d 28 54 43 53 28 4c | SPCM|X=(TCS(L|
|0002d360| 29 2f 52 4f 43 28 4c 2c | 49 52 45 46 29 29 2a 52 |)/ROC(L,|IREF))*R|
|0002d370| 41 4f 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |AO. | |
|0002d380| 20 49 46 28 53 50 43 4d | 58 2e 4c 54 2e 43 53 28 | IF(SPCM|X.LT.CS(|
|0002d390| 4b 29 29 20 54 48 45 4e | 0a 20 20 20 20 20 20 20 |K)) THEN|. |
|0002d3a0| 20 20 20 20 20 20 20 20 | 20 43 53 28 4b 29 3d 53 | | CS(K)=S|
|0002d3b0| 50 43 4d 58 2f 54 57 4f | 0a 20 20 20 20 20 20 20 |PCMX/TWO|. |
|0002d3c0| 20 20 20 20 20 20 20 45 | 4e 44 20 49 46 0a 20 20 | E|ND IF. |
|0002d3d0| 20 20 20 20 20 20 20 20 | 20 20 45 4e 44 20 49 46 | | END IF|
|0002d3e0| 0a 31 33 33 20 20 20 20 | 20 20 20 20 20 43 4f 4e |.133 | CON|
|0002d3f0| 54 49 4e 55 45 0a 20 20 | 20 20 20 20 20 20 20 20 |TINUE. | |
|0002d400| 20 20 43 52 45 46 3d 43 | 53 28 4b 29 0a 20 20 20 | CREF=C|S(K). |
|0002d410| 20 20 20 20 20 20 20 20 | 20 43 53 28 38 2b 49 43 | | CS(8+IC|
|0002d420| 54 52 29 3d 2d 52 5a 49 | 52 28 49 43 54 52 29 2a |TR)=-RZI|R(ICTR)*|
|0002d430| 43 52 45 46 0a 20 20 20 | 20 20 20 20 20 20 20 20 |CREF. | |
|0002d440| 20 49 46 28 4e 5a 50 4f | 28 49 52 45 46 29 2e 4c | IF(NZPO|(IREF).L|
|0002d450| 54 2e 30 29 20 54 48 45 | 4e 0a 20 20 20 20 20 20 |T.0) THE|N. |
|0002d460| 20 20 20 20 20 20 20 20 | 41 4e 53 55 4d 3d 2d 43 | |ANSUM=-C|
|0002d470| 52 45 46 2a 4e 5a 50 4f | 28 49 52 45 46 29 0a 09 |REF*NZPO|(IREF)..|
|0002d480| 20 20 20 20 20 20 43 41 | 53 55 4d 3d 43 53 28 38 | CA|SUM=CS(8|
|0002d490| 2b 49 43 54 52 29 2a 4e | 5a 50 4f 28 49 43 54 52 |+ICTR)*N|ZPO(ICTR|
|0002d4a0| 29 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 45 4c |). | EL|
|0002d4b0| 53 45 0a 09 20 20 20 20 | 20 20 41 4e 53 55 4d 3d |SE.. | ANSUM=|
|0002d4c0| 2d 43 53 28 38 2b 49 43 | 54 52 29 2a 4e 5a 50 4f |-CS(8+IC|TR)*NZPO|
|0002d4d0| 28 49 43 54 52 29 0a 20 | 20 20 20 20 20 20 20 20 |(ICTR). | |
|0002d4e0| 20 20 20 20 20 43 41 53 | 55 4d 3d 43 52 45 46 2a | CAS|UM=CREF*|
|0002d4f0| 4e 5a 50 4f 28 49 52 45 | 46 29 0a 20 20 20 20 20 |NZPO(IRE|F). |
|0002d500| 20 20 20 20 20 20 20 45 | 4e 44 20 49 46 0a 20 20 | E|ND IF. |
|0002d510| 20 20 20 20 20 20 20 20 | 45 4e 44 20 49 46 0a 20 | |END IF. |
|0002d520| 20 20 20 20 20 20 20 45 | 4e 44 20 49 46 0a 20 20 | E|ND IF. |
|0002d530| 20 20 20 20 45 4e 44 20 | 49 46 0a 43 0a 31 33 34 | END |IF.C.134|
|0002d540| 20 20 20 44 4f 20 31 36 | 30 20 49 3d 31 2c 4e 53 | DO 16|0 I=1,NS|
|0002d550| 4f 0a 20 20 20 20 20 20 | 4b 3d 38 2b 49 0a 20 20 |O. |K=8+I. |
|0002d560| 20 20 20 20 49 46 28 49 | 2e 45 51 2e 49 52 45 46 | IF(I|.EQ.IREF|
|0002d570| 2e 4f 52 2e 49 2e 45 51 | 2e 49 43 54 52 29 20 47 |.OR.I.EQ|.ICTR) G|
|0002d580| 4f 54 4f 20 31 36 30 0a | 20 20 20 20 20 20 49 46 |OTO 160.| IF|
|0002d590| 28 46 4f 43 28 31 2c 49 | 29 2e 4e 45 2e 5a 45 52 |(FOC(1,I|).NE.ZER|
|0002d5a0| 4f 2e 41 4e 44 2e 46 4f | 43 28 32 2c 49 29 2e 4e |O.AND.FO|C(2,I).N|
|0002d5b0| 45 2e 5a 45 52 4f 2e 41 | 4e 44 2e 0a 20 20 20 20 |E.ZERO.A|ND.. |
|0002d5c0| 20 26 46 4f 43 28 33 2c | 49 29 2e 4e 45 2e 5a 45 | &FOC(3,|I).NE.ZE|
|0002d5d0| 52 4f 2e 41 4e 44 2e 46 | 4f 43 28 34 2c 49 29 2e |RO.AND.F|OC(4,I).|
|0002d5e0| 4e 45 2e 5a 45 52 4f 2e | 41 4e 44 2e 0a 20 20 20 |NE.ZERO.|AND.. |
|0002d5f0| 20 20 26 46 4f 43 28 35 | 2c 49 29 2e 4e 45 2e 5a | &FOC(5|,I).NE.Z|
|0002d600| 45 52 4f 2e 41 4e 44 2e | 46 4f 43 28 36 2c 49 29 |ERO.AND.|FOC(6,I)|
|0002d610| 2e 4e 45 2e 5a 45 52 4f | 29 20 54 48 45 4e 0a 43 |.NE.ZERO|) THEN.C|
|0002d620| 20 20 20 20 20 20 41 4c | 4c 20 52 45 41 43 54 41 | AL|L REACTA|
|0002d630| 4e 54 53 20 4e 45 45 44 | 45 44 20 46 4f 52 20 54 |NTS NEED|ED FOR T|
|0002d640| 48 49 53 20 53 50 45 43 | 49 45 53 20 41 52 45 20 |HIS SPEC|IES ARE |
|0002d650| 50 52 45 53 45 4e 54 0a | 20 20 20 20 20 20 20 20 |PRESENT.| |
|0002d660| 49 46 28 4e 5a 50 4f 28 | 49 29 2e 45 51 2e 5a 45 |IF(NZPO(|I).EQ.ZE|
|0002d670| 52 4f 29 20 54 48 45 4e | 0a 43 20 20 20 20 20 20 |RO) THEN|.C |
|0002d680| 20 20 54 48 49 53 20 49 | 53 20 41 20 4e 45 55 54 | THIS I|S A NEUT|
|0002d690| 52 41 4c 20 53 50 45 43 | 49 45 53 0a 20 20 20 20 |RAL SPEC|IES. |
|0002d6a0| 20 20 20 20 20 20 47 4f | 54 4f 20 31 33 35 0a 20 | GO|TO 135. |
|0002d6b0| 20 20 20 20 20 20 20 45 | 4c 53 45 0a 43 20 20 20 | E|LSE.C |
|0002d6c0| 20 20 20 20 20 54 48 49 | 53 20 49 53 20 41 4e 20 | THI|S IS AN |
|0002d6d0| 49 4f 4e 49 43 20 53 50 | 45 43 49 45 53 0a 20 20 |IONIC SP|ECIES. |
|0002d6e0| 20 20 20 20 20 20 20 20 | 49 46 28 4e 52 45 46 2e | |IF(NREF.|
|0002d6f0| 45 51 2e 31 2e 41 4e 44 | 2e 4e 43 54 52 2e 45 51 |EQ.1.AND|.NCTR.EQ|
|0002d700| 2e 31 29 20 54 48 45 4e | 0a 43 20 20 20 20 20 20 |.1) THEN|.C |
|0002d710| 20 20 20 20 54 48 49 53 | 20 49 4f 4e 20 43 41 4e | THIS| ION CAN|
|0002d720| 20 46 4f 52 4d 0a 20 20 | 20 20 20 20 20 20 20 20 | FORM. | |
|0002d730| 20 20 47 4f 54 4f 20 31 | 33 35 0a 20 20 20 20 20 | GOTO 1|35. |
|0002d740| 20 20 20 20 20 45 4e 44 | 20 49 46 0a 20 20 20 20 | END| IF. |
|0002d750| 20 20 20 20 45 4e 44 20 | 49 46 0a 20 20 20 20 20 | END |IF. |
|0002d760| 20 45 4e 44 20 49 46 0a | 43 20 20 20 54 48 49 53 | END IF.|C THIS|
|0002d770| 20 53 50 45 43 49 45 53 | 20 43 41 4e 27 54 20 46 | SPECIES| CAN'T F|
|0002d780| 4f 52 4d 0a 20 20 20 20 | 20 20 43 53 28 4b 29 3d |ORM. | CS(K)=|
|0002d790| 5a 45 52 4f 0a 20 20 20 | 20 20 20 47 4f 54 4f 20 |ZERO. | GOTO |
|0002d7a0| 31 36 30 0a 43 20 20 20 | 54 48 49 53 20 53 50 45 |160.C |THIS SPE|
|0002d7b0| 43 49 45 53 20 43 41 4e | 20 46 4f 52 4d 0a 31 33 |CIES CAN| FORM.13|
|0002d7c0| 35 20 20 20 4e 46 28 4a | 29 3d 4b 0a 20 20 20 20 |5 NF(J|)=K. |
|0002d7d0| 20 20 4a 3d 4a 2b 31 0a | 20 20 20 20 20 20 49 46 | J=J+1.| IF|
|0002d7e0| 28 49 53 54 2e 47 54 2e | 31 29 20 54 48 45 4e 0a |(IST.GT.|1) THEN.|
|0002d7f0| 20 20 20 20 20 20 20 20 | 43 53 28 4b 29 3d 54 45 | |CS(K)=TE|
|0002d800| 4e 2a 2a 28 58 43 28 4b | 29 29 0a 20 20 20 20 20 |N**(XC(K|)). |
|0002d810| 20 20 20 47 4f 54 4f 20 | 31 36 30 0a 20 20 20 20 | GOTO |160. |
|0002d820| 20 20 45 4e 44 20 49 46 | 09 20 20 20 0a 43 20 20 | END IF|. .C |
|0002d830| 20 20 4d 41 4b 45 20 46 | 49 52 53 54 20 45 53 54 | MAKE F|IRST EST|
|0002d840| 49 4d 41 54 45 20 4f 46 | 20 4e 4f 4e 41 51 2e 50 |IMATE OF| NONAQ.P|
|0002d850| 52 4f 44 2e 53 50 45 43 | 49 45 20 43 4f 4e 43 45 |ROD.SPEC|IE CONCE|
|0002d860| 4e 54 52 41 54 49 4f 4e | 20 20 20 20 20 20 0a 20 |NTRATION| . |
|0002d870| 20 20 20 20 20 49 46 28 | 4e 43 41 4c 2e 45 51 2e | IF(|NCAL.EQ.|
|0002d880| 32 2e 41 4e 44 2e 4e 5a | 50 4f 28 49 29 2e 45 51 |2.AND.NZ|PO(I).EQ|
|0002d890| 2e 5a 45 52 4f 29 20 54 | 48 45 4e 0a 43 20 20 20 |.ZERO) T|HEN.C |
|0002d8a0| 20 20 20 41 51 55 45 4f | 55 53 20 50 48 41 53 45 | AQUEO|US PHASE|
|0002d8b0| 20 41 42 53 45 4e 54 3a | 20 42 41 53 45 20 4e 45 | ABSENT:| BASE NE|
|0002d8c0| 55 54 52 41 4c 20 50 52 | 4f 44 55 43 54 20 53 50 |UTRAL PR|ODUCT SP|
|0002d8d0| 45 43 49 45 20 43 4f 4e | 43 4e 2e 4f 4e 20 0a 43 |ECIE CON|CN.ON .C|
|0002d8e0| 20 20 20 20 20 20 20 43 | 4f 4d 50 4e 2e 4f 46 20 | C|OMPN.OF |
|0002d8f0| 4e 4f 4e 41 51 2e 50 48 | 41 53 45 0a 20 20 20 20 |NONAQ.PH|ASE. |
|0002d900| 20 20 20 20 53 50 43 4d | 58 3d 54 48 4f 55 0a 20 | SPCM|X=THOU. |
|0002d910| 20 20 20 20 20 20 20 44 | 4f 20 31 34 30 20 4c 3d | D|O 140 L=|
|0002d920| 31 2c 36 0a 20 20 20 20 | 20 20 20 20 49 46 28 54 |1,6. | IF(T|
|0002d930| 43 53 28 4c 29 2e 47 54 | 2e 5a 45 52 4f 2e 41 4e |CS(L).GT|.ZERO.AN|
|0002d940| 44 2e 52 4f 43 28 4c 2c | 49 29 2e 47 54 2e 5a 45 |D.ROC(L,|I).GT.ZE|
|0002d950| 52 4f 29 20 54 48 45 4e | 0a 43 20 20 20 20 20 20 |RO) THEN|.C |
|0002d960| 20 20 54 48 49 53 20 52 | 45 41 43 54 41 4e 54 20 | THIS R|EACTANT |
|0002d970| 49 53 20 50 52 45 53 45 | 4e 54 20 41 4e 44 20 50 |IS PRESE|NT AND P|
|0002d980| 52 4f 44 55 43 54 20 53 | 50 45 43 49 45 53 20 43 |RODUCT S|PECIES C|
|0002d990| 4f 4e 54 41 49 4e 53 20 | 49 54 20 0a 20 20 20 20 |ONTAINS |IT . |
|0002d9a0| 20 20 20 20 20 20 53 50 | 43 4e 3d 54 43 53 28 4c | SP|CN=TCS(L|
|0002d9b0| 29 2f 28 54 57 4f 2a 52 | 4f 43 28 4c 2c 49 29 29 |)/(TWO*R|OC(L,I))|
|0002d9c0| 0a 20 20 20 20 20 20 20 | 20 20 20 49 46 28 53 50 |. | IF(SP|
|0002d9d0| 43 4e 2e 4c 54 2e 53 50 | 43 4d 58 29 20 54 48 45 |CN.LT.SP|CMX) THE|
|0002d9e0| 4e 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 53 50 |N. | SP|
|0002d9f0| 43 4d 58 3d 53 50 43 4e | 0a 20 20 20 20 20 20 20 |CMX=SPCN|. |
|0002da00| 20 20 20 45 4e 44 20 49 | 46 0a 20 20 20 20 20 20 | END I|F. |
|0002da10| 20 20 45 4e 44 20 49 46 | 0a 31 34 30 20 20 20 20 | END IF|.140 |
|0002da20| 20 43 4f 4e 54 49 4e 55 | 45 0a 20 20 20 20 20 20 | CONTINU|E. |
|0002da30| 20 20 49 46 28 53 50 43 | 4d 58 2e 4c 54 2e 54 48 | IF(SPC|MX.LT.TH|
|0002da40| 4f 55 29 20 54 48 45 4e | 0a 20 20 20 20 20 20 20 |OU) THEN|. |
|0002da50| 20 20 20 43 53 28 4b 29 | 3d 53 50 43 4d 58 0a 20 | CS(K)|=SPCMX. |
|0002da60| 20 20 20 20 20 20 20 45 | 4c 53 45 0a 43 20 20 20 | E|LSE.C |
|0002da70| 20 20 20 20 20 54 48 49 | 53 20 50 52 4f 44 55 43 | THI|S PRODUC|
|0002da80| 54 20 53 50 45 43 49 45 | 53 20 43 4f 4e 54 41 49 |T SPECIE|S CONTAI|
|0002da90| 4e 53 20 4f 4e 4c 59 20 | 57 41 54 45 52 0a 20 20 |NS ONLY |WATER. |
|0002daa0| 20 20 20 20 20 20 20 20 | 43 53 28 4b 29 3d 46 4f | |CS(K)=FO|
|0002dab0| 4b 28 49 29 2a 41 57 47 | 0a 09 20 20 47 4f 54 4f |K(I)*AWG|.. GOTO|
|0002dac0| 20 31 36 30 0a 20 20 20 | 20 20 20 20 20 45 4e 44 | 160. | END|
|0002dad0| 20 49 46 0a 20 20 20 20 | 20 20 45 4e 44 20 49 46 | IF. | END IF|
|0002dae0| 0a 20 20 20 20 20 20 49 | 46 28 4e 43 41 4c 2e 4e |. I|F(NCAL.N|
|0002daf0| 45 2e 32 29 20 54 48 45 | 4e 20 20 20 20 20 20 0a |E.2) THE|N .|
|0002db00| 43 20 20 20 20 20 20 41 | 51 55 45 4f 55 53 20 50 |C A|QUEOUS P|
|0002db10| 48 41 53 45 20 50 52 45 | 53 45 4e 54 0a 43 20 20 |HASE PRE|SENT.C |
|0002db20| 20 20 20 20 20 42 41 53 | 45 20 50 52 4f 44 55 43 | BAS|E PRODUC|
|0002db30| 54 20 53 50 45 43 49 45 | 20 43 4f 4e 43 4e 2e 4f |T SPECIE| CONCN.O|
|0002db40| 4e 20 45 53 54 2e 52 45 | 41 43 54 41 4e 54 20 43 |N EST.RE|ACTANT C|
|0002db50| 4f 4e 43 4e 53 2e 0a 20 | 20 20 20 20 20 20 20 44 |ONCNS.. | D|
|0002db60| 4f 20 31 34 35 20 4c 3d | 31 2c 37 0a 20 20 20 20 |O 145 L=|1,7. |
|0002db70| 20 20 20 20 49 46 28 45 | 4f 43 28 4c 2c 49 29 2e | IF(E|OC(L,I).|
|0002db80| 4e 45 2e 5a 45 52 4f 29 | 20 54 48 45 4e 0a 20 20 |NE.ZERO)| THEN. |
|0002db90| 20 20 20 20 20 20 20 20 | 46 4f 43 28 4c 2c 49 29 | |FOC(L,I)|
|0002dba0| 3d 28 43 53 28 4c 29 2a | 47 28 4c 29 29 2a 2a 45 |=(CS(L)*|G(L))**E|
|0002dbb0| 4f 43 28 4c 2c 49 29 0a | 20 20 20 20 20 20 20 20 |OC(L,I).| |
|0002dbc0| 45 4c 53 45 0a 20 20 20 | 20 20 20 20 20 20 20 46 |ELSE. | F|
|0002dbd0| 4f 43 28 4c 2c 49 29 3d | 4f 4e 45 0a 20 20 20 20 |OC(L,I)=|ONE. |
|0002dbe0| 20 20 20 20 45 4e 44 20 | 49 46 0a 31 34 35 20 20 | END |IF.145 |
|0002dbf0| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 20 20 20 20 | CONTI|NUE. |
|0002dc00| 20 20 20 20 49 46 28 45 | 4f 43 28 38 2c 49 29 2e | IF(E|OC(8,I).|
|0002dc10| 4e 45 2e 5a 45 52 4f 29 | 20 54 48 45 4e 0a 20 20 |NE.ZERO)| THEN. |
|0002dc20| 20 20 20 20 20 20 20 20 | 46 4f 43 28 38 2c 49 29 | |FOC(8,I)|
|0002dc30| 3d 41 57 2a 2a 45 4f 43 | 28 38 2c 49 29 0a 20 20 |=AW**EOC|(8,I). |
|0002dc40| 20 20 20 20 20 20 45 4c | 53 45 0a 20 20 20 20 20 | EL|SE. |
|0002dc50| 20 20 20 20 20 46 4f 43 | 28 38 2c 49 29 3d 4f 4e | FOC|(8,I)=ON|
|0002dc60| 45 0a 20 20 20 20 20 20 | 20 20 45 4e 44 20 49 46 |E. | END IF|
|0002dc70| 0a 20 20 20 20 20 20 20 | 20 49 46 28 43 52 45 46 |. | IF(CREF|
|0002dc80| 2e 45 51 2e 5a 45 52 4f | 29 20 54 48 45 4e 0a 20 |.EQ.ZERO|) THEN. |
|0002dc90| 20 20 20 20 20 20 20 20 | 20 43 53 28 4b 29 3d 46 | | CS(K)=F|
|0002dca0| 4f 4b 28 49 29 2a 46 4f | 43 28 33 2c 49 29 2a 46 |OK(I)*FO|C(3,I)*F|
|0002dcb0| 4f 43 28 34 2c 49 29 2a | 46 4f 43 28 31 2c 49 29 |OC(4,I)*|FOC(1,I)|
|0002dcc0| 2a 46 4f 43 28 32 2c 49 | 29 2a 0a 20 20 20 20 20 |*FOC(2,I|)*. |
|0002dcd0| 26 20 20 20 20 46 4f 43 | 28 35 2c 49 29 2a 46 4f |& FOC|(5,I)*FO|
|0002dce0| 43 28 36 2c 49 29 2a 46 | 4f 43 28 37 2c 49 29 2a |C(6,I)*F|OC(7,I)*|
|0002dcf0| 46 4f 43 28 38 2c 49 29 | 2f 47 28 4b 29 0a 20 20 |FOC(8,I)|/G(K). |
|0002dd00| 20 20 20 20 20 20 45 4c | 53 45 0a 20 20 20 20 20 | EL|SE. |
|0002dd10| 20 20 20 20 20 43 53 28 | 4b 29 3d 46 4f 4b 28 49 | CS(|K)=FOK(I|
|0002dd20| 29 2a 28 28 43 52 45 46 | 2a 47 28 38 2b 49 52 45 |)*((CREF|*G(8+IRE|
|0002dd30| 46 29 29 2a 2a 52 5a 49 | 52 28 49 29 29 2a 46 4f |F))**RZI|R(I))*FO|
|0002dd40| 43 28 33 2c 49 29 2a 0a | 20 20 20 20 20 26 20 20 |C(3,I)*.| & |
|0002dd50| 20 20 46 4f 43 28 34 2c | 49 29 2a 46 4f 43 28 31 | FOC(4,|I)*FOC(1|
|0002dd60| 2c 49 29 2a 46 4f 43 28 | 32 2c 49 29 2a 46 4f 43 |,I)*FOC(|2,I)*FOC|
|0002dd70| 28 35 2c 49 29 2a 46 4f | 43 28 36 2c 49 29 2a 46 |(5,I)*FO|C(6,I)*F|
|0002dd80| 4f 43 28 37 2c 49 29 2a | 0a 20 20 20 20 20 26 20 |OC(7,I)*|. & |
|0002dd90| 20 20 20 46 4f 43 28 38 | 2c 49 29 2f 47 28 4b 29 | FOC(8|,I)/G(K)|
|0002dda0| 0a 20 20 20 20 20 20 20 | 20 45 4e 44 20 49 46 0a |. | END IF.|
|0002ddb0| 43 20 20 20 20 20 20 44 | 4f 45 53 20 54 48 49 53 |C D|OES THIS|
|0002ddc0| 20 43 4f 4e 43 45 4e 54 | 52 41 54 49 4f 4e 20 45 | CONCENT|RATION E|
|0002ddd0| 58 43 45 45 44 20 54 48 | 45 20 54 4f 54 41 4c 20 |XCEED TH|E TOTAL |
|0002dde0| 53 55 50 50 4c 59 20 4f | 46 20 41 0a 43 20 20 20 |SUPPLY O|F A.C |
|0002ddf0| 20 20 20 20 4e 45 45 44 | 45 44 20 52 45 41 43 54 | NEED|ED REACT|
|0002de00| 41 4e 54 3f 0a 20 20 20 | 20 20 20 20 20 44 4f 20 |ANT?. | DO |
|0002de10| 31 35 30 20 4c 3d 31 2c | 32 0a 20 20 20 20 20 20 |150 L=1,|2. |
|0002de20| 20 20 49 46 28 54 43 53 | 28 4c 29 2e 47 54 2e 5a | IF(TCS|(L).GT.Z|
|0002de30| 45 52 4f 2e 41 4e 44 2e | 52 4f 43 28 4c 2c 49 29 |ERO.AND.|ROC(L,I)|
|0002de40| 2e 47 54 2e 5a 45 52 4f | 29 20 54 48 45 4e 0a 43 |.GT.ZERO|) THEN.C|
|0002de50| 20 20 20 20 20 20 20 20 | 54 48 49 53 20 52 45 41 | |THIS REA|
|0002de60| 43 54 41 4e 54 20 49 53 | 20 50 52 45 53 45 4e 54 |CTANT IS| PRESENT|
|0002de70| 20 41 4e 44 20 50 52 4f | 44 55 43 54 20 53 50 45 | AND PRO|DUCT SPE|
|0002de80| 43 49 45 53 20 43 4f 4e | 54 41 49 4e 53 20 49 54 |CIES CON|TAINS IT|
|0002de90| 20 0a 20 20 20 20 20 20 | 20 20 20 20 53 50 43 4d | . | SPCM|
|0002dea0| 58 3d 54 43 53 28 4c 29 | 2f 52 4f 43 28 4c 2c 49 |X=TCS(L)|/ROC(L,I|
|0002deb0| 29 0a 20 20 20 20 20 20 | 20 20 20 20 49 46 28 53 |). | IF(S|
|0002dec0| 50 43 4d 58 2e 4c 54 2e | 43 53 28 4b 29 29 20 54 |PCMX.LT.|CS(K)) T|
|0002ded0| 48 45 4e 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |HEN. | |
|0002dee0| 43 53 28 4b 29 3d 53 50 | 43 4d 58 2f 54 57 4f 0a |CS(K)=SP|CMX/TWO.|
|0002def0| 20 20 20 20 20 20 20 20 | 20 20 45 4e 44 20 49 46 | | END IF|
|0002df00| 0a 20 20 20 20 20 20 20 | 20 45 4e 44 20 49 46 0a |. | END IF.|
|0002df10| 31 35 30 20 20 20 20 20 | 43 4f 4e 54 49 4e 55 45 |150 |CONTINUE|
|0002df20| 0a 20 20 20 20 20 20 20 | 20 44 4f 20 31 35 35 20 |. | DO 155 |
|0002df30| 4c 3d 33 2c 36 0a 20 20 | 20 20 20 20 20 20 49 46 |L=3,6. | IF|
|0002df40| 28 54 43 53 28 4c 29 2e | 47 54 2e 5a 45 52 4f 2e |(TCS(L).|GT.ZERO.|
|0002df50| 41 4e 44 2e 52 4f 43 28 | 4c 2c 49 29 2e 47 54 2e |AND.ROC(|L,I).GT.|
|0002df60| 5a 45 52 4f 29 20 54 48 | 45 4e 0a 43 20 20 20 20 |ZERO) TH|EN.C |
|0002df70| 20 20 20 20 54 48 49 53 | 20 52 45 41 43 54 41 4e | THIS| REACTAN|
|0002df80| 54 20 49 53 20 50 52 45 | 53 45 4e 54 20 41 4e 44 |T IS PRE|SENT AND|
|0002df90| 20 50 52 4f 44 55 43 54 | 20 53 50 45 43 49 45 53 | PRODUCT| SPECIES|
|0002dfa0| 20 43 4f 4e 54 41 49 4e | 53 20 49 54 20 0a 20 20 | CONTAIN|S IT . |
|0002dfb0| 20 20 20 20 20 20 20 20 | 53 50 43 4d 58 3d 28 54 | |SPCMX=(T|
|0002dfc0| 43 53 28 4c 29 2f 52 4f | 43 28 4c 2c 49 29 29 2a |CS(L)/RO|C(L,I))*|
|0002dfd0| 52 41 4f 0a 20 20 20 20 | 20 20 20 20 20 20 49 46 |RAO. | IF|
|0002dfe0| 28 53 50 43 4d 58 2e 4c | 54 2e 43 53 28 4b 29 29 |(SPCMX.L|T.CS(K))|
|0002dff0| 20 54 48 45 4e 0a 20 20 | 20 20 20 20 20 20 20 20 | THEN. | |
|0002e000| 20 20 43 53 28 4b 29 3d | 53 50 43 4d 58 2f 54 57 | CS(K)=|SPCMX/TW|
|0002e010| 4f 0a 20 20 20 20 20 20 | 20 20 20 20 45 4e 44 20 |O. | END |
|0002e020| 49 46 0a 20 20 20 20 20 | 20 20 20 45 4e 44 20 49 |IF. | END I|
|0002e030| 46 0a 31 35 35 20 20 20 | 20 20 43 4f 4e 54 49 4e |F.155 | CONTIN|
|0002e040| 55 45 0a 20 20 20 20 20 | 20 20 20 49 46 28 4e 5a |UE. | IF(NZ|
|0002e050| 50 4f 28 49 29 2e 47 54 | 2e 30 29 20 43 41 53 55 |PO(I).GT|.0) CASU|
|0002e060| 4d 3d 43 41 53 55 4d 2b | 43 53 28 4b 29 2a 4e 5a |M=CASUM+|CS(K)*NZ|
|0002e070| 50 4f 28 49 29 0a 20 20 | 20 20 20 20 20 20 49 46 |PO(I). | IF|
|0002e080| 28 4e 5a 50 4f 28 49 29 | 2e 4c 54 2e 30 29 20 41 |(NZPO(I)|.LT.0) A|
|0002e090| 4e 53 55 4d 3d 41 4e 53 | 55 4d 2d 43 53 28 4b 29 |NSUM=ANS|UM-CS(K)|
|0002e0a0| 2a 4e 5a 50 4f 28 49 29 | 0a 20 20 20 20 20 20 45 |*NZPO(I)|. E|
|0002e0b0| 4e 44 20 49 46 0a 31 36 | 30 20 20 20 43 4f 4e 54 |ND IF.16|0 CONT|
|0002e0c0| 49 4e 55 45 0a 43 0a 20 | 20 20 20 20 20 49 46 28 |INUE.C. | IF(|
|0002e0d0| 49 53 54 2e 47 54 2e 31 | 29 20 47 4f 54 4f 20 32 |IST.GT.1|) GOTO 2|
|0002e0e0| 31 35 0a 43 0a 20 20 20 | 20 20 20 49 46 28 4e 43 |15.C. | IF(NC|
|0002e0f0| 41 4c 2e 45 51 2e 32 29 | 20 54 48 45 4e 0a 43 20 |AL.EQ.2)| THEN.C |
|0002e100| 20 20 20 20 20 41 51 55 | 45 4f 55 53 20 50 48 41 | AQU|EOUS PHA|
|0002e110| 53 45 20 41 42 53 45 4e | 54 0a 20 20 20 20 20 20 |SE ABSEN|T. |
|0002e120| 20 20 49 46 28 4e 52 45 | 46 2e 45 51 2e 31 2e 41 | IF(NRE|F.EQ.1.A|
|0002e130| 4e 44 2e 4e 43 54 52 2e | 45 51 2e 31 29 20 54 48 |ND.NCTR.|EQ.1) TH|
|0002e140| 45 4e 0a 43 20 20 20 20 | 20 20 20 20 45 53 54 49 |EN.C | ESTI|
|0002e150| 4d 41 54 45 20 49 4f 4e | 49 43 20 50 52 4f 44 55 |MATE ION|IC PRODU|
|0002e160| 43 54 20 53 50 45 43 49 | 45 20 43 4f 4e 43 4e 53 |CT SPECI|E CONCNS|
|0002e170| 2e 46 52 4f 4d 20 50 52 | 45 56 49 4f 55 53 20 45 |.FROM PR|EVIOUS E|
|0002e180| 53 54 49 4d 41 54 45 53 | 0a 43 20 20 20 20 20 20 |STIMATES|.C |
|0002e190| 20 20 20 4f 46 20 4e 45 | 55 54 52 41 4c 20 53 50 | OF NE|UTRAL SP|
|0002e1a0| 45 43 49 45 20 43 4f 4e | 43 4e 53 2e 0a 43 0a 43 |ECIE CON|CNS..C.C|
|0002e1b0| 20 20 20 20 20 20 20 20 | 44 45 46 49 4e 45 20 46 | |DEFINE F|
|0002e1c0| 4f 52 4d 41 54 49 4f 4e | 20 52 45 41 43 54 49 4f |ORMATION| REACTIO|
|0002e1d0| 4e 53 20 54 48 41 54 20 | 49 4e 56 4f 4c 56 45 20 |NS THAT |INVOLVE |
|0002e1e0| 4f 4e 4c 59 20 4e 4f 4e | 41 51 55 45 4f 55 53 0a |ONLY NON|AQUEOUS.|
|0002e1f0| 43 20 20 20 20 20 20 20 | 20 20 53 50 45 43 49 45 |C | SPECIE|
|0002e200| 53 0a 20 20 20 20 20 20 | 20 20 20 20 43 41 4c 4c |S. | CALL|
|0002e210| 20 43 4f 4d 42 52 4e 28 | 4e 53 4f 2c 49 52 45 46 | COMBRN(|NSO,IREF|
|0002e220| 2c 49 43 54 52 2c 52 5a | 49 52 2c 46 4f 4b 2c 45 |,ICTR,RZ|IR,FOK,E|
|0002e230| 4f 43 2c 0a 20 20 20 20 | 20 26 20 20 20 20 46 4f |OC,. | & FO|
|0002e240| 43 2c 43 45 4f 43 2c 52 | 46 4f 4b 2c 52 45 4f 43 |C,CEOC,R|FOK,REOC|
|0002e250| 2c 4a 53 2c 53 46 4f 4b | 2c 53 45 4f 43 29 0a 20 |,JS,SFOK|,SEOC). |
|0002e260| 20 20 20 20 20 20 20 20 | 20 49 46 28 4a 53 2e 45 | | IF(JS.E|
|0002e270| 51 2e 30 29 20 54 48 45 | 4e 0a 43 20 20 20 20 20 |Q.0) THE|N.C |
|0002e280| 20 20 20 20 20 4e 4f 20 | 43 4f 4d 42 49 4e 41 54 | NO |COMBINAT|
|0002e290| 49 4f 4e 20 52 45 41 43 | 54 49 4f 4e 53 20 48 41 |ION REAC|TIONS HA|
|0002e2a0| 56 45 20 42 45 45 4e 20 | 46 4f 55 4e 44 20 54 48 |VE BEEN |FOUND TH|
|0002e2b0| 41 54 20 45 4c 49 4d 49 | 4e 41 54 45 0a 43 20 20 |AT ELIMI|NATE.C |
|0002e2c0| 20 20 20 20 20 20 20 20 | 20 54 48 45 20 41 51 55 | | THE AQU|
|0002e2d0| 45 4f 55 53 20 52 45 41 | 43 54 41 4e 54 53 0a 20 |EOUS REA|CTANTS. |
|0002e2e0| 20 20 20 20 20 20 20 20 | 20 20 20 57 52 49 54 45 | | WRITE|
|0002e2f0| 28 39 2c 31 30 30 30 29 | 20 49 50 54 20 0a 31 30 |(9,1000)| IPT .10|
|0002e300| 30 30 20 20 20 20 20 20 | 20 20 46 4f 52 4d 41 54 |00 | FORMAT|
|0002e310| 28 2f 0a 20 20 20 20 20 | 26 20 20 20 20 20 20 31 |(/. |& 1|
|0002e320| 58 2c 27 46 4f 52 20 44 | 41 54 41 20 50 4f 49 4e |X,'FOR D|ATA POIN|
|0002e330| 54 27 2c 49 33 2c 27 3a | 27 2f 0a 20 20 20 20 20 |T',I3,':|'/. |
|0002e340| 26 20 20 20 20 20 20 33 | 58 2c 27 54 48 45 20 43 |& 3|X,'THE C|
|0002e350| 48 4f 53 45 4e 20 4d 4f | 44 45 4c 20 43 41 4e 20 |HOSEN MO|DEL CAN |
|0002e360| 4e 4f 54 20 52 45 50 52 | 45 53 45 4e 54 20 54 48 |NOT REPR|ESENT TH|
|0002e370| 45 20 53 50 45 43 49 46 | 49 45 44 27 2f 0a 20 20 |E SPECIF|IED'/. |
|0002e380| 20 20 20 26 20 20 20 20 | 20 20 33 58 2c 27 43 4f | & | 3X,'CO|
|0002e390| 4d 50 4f 53 49 54 49 4f | 4e 27 2f 29 0a 20 20 20 |MPOSITIO|N'/). |
|0002e3a0| 20 20 20 20 20 20 20 20 | 20 50 41 55 53 45 0a 20 | | PAUSE. |
|0002e3b0| 20 20 20 20 20 20 20 20 | 20 20 20 53 54 4f 50 0a | | STOP.|
|0002e3c0| 20 20 20 20 20 20 20 20 | 20 20 45 4e 44 20 49 46 | | END IF|
|0002e3d0| 0a 43 0a 43 20 20 20 20 | 20 20 20 20 5a 45 52 4f |.C.C | ZERO|
|0002e3e0| 20 41 52 52 41 59 53 20 | 55 53 45 44 20 54 4f 20 | ARRAYS |USED TO |
|0002e3f0| 53 55 4d 20 54 48 45 20 | 4e 55 4d 42 45 52 20 41 |SUM THE |NUMBER A|
|0002e400| 4e 44 20 43 4f 4e 43 45 | 4e 54 52 41 54 49 4f 4e |ND CONCE|NTRATION|
|0002e410| 53 20 4f 46 20 49 4f 4e | 53 0a 20 20 20 20 20 20 |S OF ION|S. |
|0002e420| 20 20 20 20 44 4f 20 31 | 36 31 20 49 3d 31 2c 4e | DO 1|61 I=1,N|
|0002e430| 53 4f 0a 20 20 20 20 20 | 20 20 20 20 20 53 43 50 |SO. | SCP|
|0002e440| 53 49 28 49 29 3d 5a 45 | 52 4f 0a 09 20 20 4e 50 |SI(I)=ZE|RO.. NP|
|0002e450| 53 49 28 49 29 3d 30 0a | 31 36 31 20 20 20 20 20 |SI(I)=0.|161 |
|0002e460| 20 20 43 4f 4e 54 49 4e | 55 45 0a 43 20 20 20 20 | CONTIN|UE.C |
|0002e470| 20 20 20 20 42 45 47 49 | 4e 20 4c 4f 4f 50 20 54 | BEGI|N LOOP T|
|0002e480| 48 52 4f 55 47 48 20 43 | 4f 4d 42 49 4e 41 54 49 |HROUGH C|OMBINATI|
|0002e490| 4f 4e 20 52 45 41 43 54 | 49 4f 4e 53 0a 20 20 20 |ON REACT|IONS. |
|0002e4a0| 20 20 20 20 20 20 20 44 | 4f 20 31 36 34 20 4b 3d | D|O 164 K=|
|0002e4b0| 31 2c 4a 53 0a 20 20 20 | 20 20 20 20 20 20 20 53 |1,JS. | S|
|0002e4c0| 46 43 54 3d 4f 4e 45 0a | 20 20 20 20 20 20 20 20 |FCT=ONE.| |
|0002e4d0| 20 20 51 46 43 54 49 3d | 4f 4e 45 0a 09 20 20 53 | QFCTI=|ONE.. S|
|0002e4e0| 45 58 49 3d 5a 45 52 4f | 0a 43 20 20 20 20 20 20 |EXI=ZERO|.C |
|0002e4f0| 20 20 20 20 57 52 49 54 | 45 28 2a 2c 37 36 35 34 | WRIT|E(*,7654|
|0002e500| 29 0a 43 37 36 35 34 20 | 20 20 20 20 20 46 4f 52 |).C7654 | FOR|
|0002e510| 4d 41 54 28 2f 31 58 2c | 27 20 20 4b 20 20 4c 20 |MAT(/1X,|' K L |
|0002e520| 4e 5a 50 4f 20 20 53 45 | 4f 43 20 20 20 20 20 20 |NZPO SE|OC |
|0002e530| 47 27 2c 0a 43 20 20 20 | 20 20 26 20 20 20 20 27 |G',.C | & '|
|0002e540| 20 20 20 20 20 20 20 20 | 20 20 20 43 53 20 20 20 | | CS |
|0002e550| 20 20 20 20 20 53 50 43 | 54 20 20 20 20 20 20 20 | SPC|T |
|0002e560| 51 46 43 54 49 20 20 20 | 53 45 58 49 27 2f 29 20 |QFCTI |SEXI'/) |
|0002e570| 20 0a 20 20 20 20 20 20 | 20 20 20 20 49 46 28 53 | . | IF(S|
|0002e580| 45 4f 43 28 31 2c 4b 29 | 2e 4e 45 2e 5a 45 52 4f |EOC(1,K)|.NE.ZERO|
|0002e590| 29 20 53 46 43 54 3d 53 | 46 43 54 2a 28 43 53 28 |) SFCT=S|FCT*(CS(|
|0002e5a0| 31 29 2a 47 28 31 29 29 | 2a 2a 53 45 4f 43 28 31 |1)*G(1))|**SEOC(1|
|0002e5b0| 2c 4b 29 0a 43 20 20 20 | 20 20 20 20 20 20 20 57 |,K).C | W|
|0002e5c0| 52 49 54 45 28 2a 2c 37 | 36 35 35 29 20 4b 2c 31 |RITE(*,7|655) K,1|
|0002e5d0| 2c 53 45 4f 43 28 31 2c | 4b 29 2c 47 28 31 29 2c |,SEOC(1,|K),G(1),|
|0002e5e0| 43 53 28 31 29 2c 53 46 | 43 54 0a 43 37 36 35 35 |CS(1),SF|CT.C7655|
|0002e5f0| 20 20 20 20 20 20 46 4f | 52 4d 41 54 28 2f 31 58 | FO|RMAT(/1X|
|0002e600| 2c 32 49 33 2c 35 58 2c | 32 46 37 2e 32 2c 31 50 |,2I3,5X,|2F7.2,1P|
|0002e610| 33 45 31 32 2e 32 2c 30 | 50 46 37 2e 32 29 20 20 |3E12.2,0|PF7.2) |
|0002e620| 0a 20 20 20 20 20 20 20 | 20 20 20 49 46 28 53 45 |. | IF(SE|
|0002e630| 4f 43 28 32 2c 4b 29 2e | 4e 45 2e 5a 45 52 4f 29 |OC(2,K).|NE.ZERO)|
|0002e640| 20 53 46 43 54 3d 53 46 | 43 54 2a 28 43 53 28 32 | SFCT=SF|CT*(CS(2|
|0002e650| 29 2a 47 28 32 29 29 2a | 2a 53 45 4f 43 28 32 2c |)*G(2))*|*SEOC(2,|
|0002e660| 4b 29 0a 43 20 20 20 20 | 20 20 20 20 20 20 57 52 |K).C | WR|
|0002e670| 49 54 45 28 2a 2c 37 36 | 35 35 29 20 4b 2c 32 2c |ITE(*,76|55) K,2,|
|0002e680| 53 45 4f 43 28 32 2c 4b | 29 2c 47 28 32 29 2c 43 |SEOC(2,K|),G(2),C|
|0002e690| 53 28 32 29 2c 53 46 43 | 54 0a 20 20 20 20 20 20 |S(2),SFC|T. |
|0002e6a0| 20 20 20 20 44 4f 20 31 | 36 32 20 4c 3d 39 2c 38 | DO 1|62 L=9,8|
|0002e6b0| 2b 4e 53 4f 0a 09 20 20 | 49 46 28 4e 5a 50 4f 28 |+NSO.. |IF(NZPO(|
|0002e6c0| 4c 2d 38 29 2e 45 51 2e | 30 29 20 54 48 45 4e 0a |L-8).EQ.|0) THEN.|
|0002e6d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 49 46 28 53 | | IF(S|
|0002e6e0| 45 4f 43 28 4c 2c 4b 29 | 2e 4e 45 2e 5a 45 52 4f |EOC(L,K)|.NE.ZERO|
|0002e6f0| 29 20 53 46 43 54 3d 53 | 46 43 54 2a 28 43 53 28 |) SFCT=S|FCT*(CS(|
|0002e700| 4c 29 2a 47 28 4c 29 29 | 2a 2a 53 45 4f 43 28 4c |L)*G(L))|**SEOC(L|
|0002e710| 2c 4b 29 0a 43 20 20 20 | 20 20 20 20 20 20 20 20 |,K).C | |
|0002e720| 20 57 52 49 54 45 28 2a | 2c 37 36 35 35 29 20 4b | WRITE(*|,7655) K|
|0002e730| 2c 4c 2c 53 45 4f 43 28 | 4c 2c 4b 29 2c 47 28 4c |,L,SEOC(|L,K),G(L|
|0002e740| 29 2c 43 53 28 4c 29 2c | 53 46 43 54 0a 20 20 20 |),CS(L),|SFCT. |
|0002e750| 20 20 20 20 20 20 20 20 | 20 45 4c 53 45 0a 20 20 | | ELSE. |
|0002e760| 20 20 20 20 20 20 20 20 | 20 20 49 46 28 53 45 4f | | IF(SEO|
|0002e770| 43 28 4c 2c 4b 29 2e 4e | 45 2e 5a 45 52 4f 29 20 |C(L,K).N|E.ZERO) |
|0002e780| 54 48 45 4e 0a 43 20 20 | 20 20 20 20 20 20 20 20 |THEN.C | |
|0002e790| 20 20 54 48 49 53 20 49 | 53 20 41 4e 20 49 4f 4e | THIS I|S AN ION|
|0002e7a0| 49 43 20 50 52 4f 44 55 | 43 54 20 53 50 45 43 49 |IC PRODU|CT SPECI|
|0002e7b0| 45 53 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ES. | |
|0002e7c0| 20 53 45 58 49 3d 53 45 | 58 49 2b 53 45 4f 43 28 | SEXI=SE|XI+SEOC(|
|0002e7d0| 4c 2c 4b 29 0a 20 20 20 | 20 20 20 20 20 20 20 20 |L,K). | |
|0002e7e0| 20 20 20 51 46 43 54 49 | 3d 51 46 43 54 49 2a 47 | QFCTI|=QFCTI*G|
|0002e7f0| 28 4c 29 2a 2a 53 45 4f | 43 28 4c 2c 4b 29 0a 43 |(L)**SEO|C(L,K).C|
|0002e800| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 57 52 | | WR|
|0002e810| 49 54 45 28 2a 2c 37 36 | 35 36 29 20 4b 2c 4c 2c |ITE(*,76|56) K,L,|
|0002e820| 53 45 4f 43 28 4c 2c 4b | 29 2c 47 28 4c 29 2c 43 |SEOC(L,K|),G(L),C|
|0002e830| 53 28 4c 29 2c 51 46 43 | 54 49 2c 53 45 58 49 0a |S(L),QFC|TI,SEXI.|
|0002e840| 43 37 36 35 36 20 20 20 | 20 20 20 20 20 20 20 46 |C7656 | F|
|0002e850| 4f 52 4d 41 54 28 31 58 | 2c 32 49 33 2c 35 58 2c |ORMAT(1X|,2I3,5X,|
|0002e860| 32 46 37 2e 32 2c 31 50 | 45 31 32 2e 32 2c 31 32 |2F7.2,1P|E12.2,12|
|0002e870| 58 2c 45 31 32 2e 32 2c | 30 50 46 37 2e 32 29 20 |X,E12.2,|0PF7.2) |
|0002e880| 20 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 45 4e | . | EN|
|0002e890| 44 20 49 46 0a 20 20 20 | 20 20 20 20 20 20 20 45 |D IF. | E|
|0002e8a0| 4e 44 20 49 46 0a 31 36 | 32 20 20 20 20 20 20 20 |ND IF.16|2 |
|0002e8b0| 43 4f 4e 54 49 4e 55 45 | 0a 09 20 20 49 46 28 53 |CONTINUE|.. IF(S|
|0002e8c0| 45 58 49 2e 4e 45 2e 5a | 45 52 4f 29 20 54 48 45 |EXI.NE.Z|ERO) THE|
|0002e8d0| 4e 0a 43 20 20 20 20 20 | 20 20 20 20 20 45 53 54 |N.C | EST|
|0002e8e0| 49 4d 41 54 52 45 20 41 | 56 45 45 52 41 47 45 20 |IMATRE A|VEERAGE |
|0002e8f0| 43 4f 4e 43 4e 2e 20 4f | 46 20 49 4f 4e 53 20 49 |CONCN. O|F IONS I|
|0002e900| 4e 56 4f 4c 56 45 44 20 | 49 4e 20 54 48 49 53 20 |NVOLVED |IN THIS |
|0002e910| 52 45 43 54 49 4f 4e 0a | 20 20 20 20 20 20 20 20 |RECTION.| |
|0002e920| 20 20 20 20 43 53 49 3d | 28 4f 4e 45 2f 28 53 46 | CSI=|(ONE/(SF|
|0002e930| 4f 4b 28 4b 29 2a 51 46 | 43 54 49 2a 53 46 43 54 |OK(K)*QF|CTI*SFCT|
|0002e940| 29 29 2a 2a 28 4f 4e 45 | 2f 53 45 58 49 29 0a 20 |))**(ONE|/SEXI). |
|0002e950| 20 20 20 20 20 20 20 20 | 20 45 4c 53 45 0a 09 20 | | ELSE.. |
|0002e960| 20 20 20 43 53 49 3d 5a | 45 52 4f 0a 20 20 20 20 | CSI=Z|ERO. |
|0002e970| 20 20 20 20 20 20 45 4e | 44 20 49 46 0a 43 20 20 | EN|D IF.C |
|0002e980| 20 20 20 20 20 20 20 20 | 57 52 49 54 45 28 2a 2c | |WRITE(*,|
|0002e990| 37 36 35 37 29 20 4b 2c | 43 53 49 0a 43 37 36 35 |7657) K,|CSI.C765|
|0002e9a0| 37 20 20 20 20 20 20 46 | 4f 52 4d 41 54 28 2f 31 |7 F|ORMAT(/1|
|0002e9b0| 58 2c 27 4b 2c 20 43 53 | 49 3a 27 2c 49 33 2c 31 |X,'K, CS|I:',I3,1|
|0002e9c0| 50 45 31 32 2e 32 29 0a | 20 20 20 20 20 20 20 20 |PE12.2).| |
|0002e9d0| 20 20 44 4f 20 31 36 33 | 20 49 3d 31 2c 4e 53 4f | DO 163| I=1,NSO|
|0002e9e0| 0a 09 20 20 49 46 28 4e | 5a 50 4f 28 49 29 2e 45 |.. IF(N|ZPO(I).E|
|0002e9f0| 51 2e 30 2e 4f 52 2e 53 | 45 4f 43 28 38 2b 49 2c |Q.0.OR.S|EOC(8+I,|
|0002ea00| 4b 29 2e 45 51 2e 5a 45 | 52 4f 29 20 47 4f 54 4f |K).EQ.ZE|RO) GOTO|
|0002ea10| 20 31 36 33 0a 43 20 20 | 20 20 20 20 20 20 54 48 | 163.C | TH|
|0002ea20| 49 53 20 49 4f 4e 20 49 | 53 20 49 4e 56 4f 4c 56 |IS ION I|S INVOLV|
|0002ea30| 45 44 20 49 4e 20 52 45 | 41 43 54 49 4f 4e 20 4b |ED IN RE|ACTION K|
|0002ea40| 0a 20 20 20 20 20 20 20 | 20 20 20 53 43 50 53 49 |. | SCPSI|
|0002ea50| 28 49 29 3d 53 43 50 53 | 49 28 49 29 2b 43 53 49 |(I)=SCPS|I(I)+CSI|
|0002ea60| 0a 09 20 20 4e 50 53 49 | 28 49 29 3d 4e 50 53 49 |.. NPSI|(I)=NPSI|
|0002ea70| 28 49 29 2b 31 0a 31 36 | 33 20 20 20 20 20 20 20 |(I)+1.16|3 |
|0002ea80| 43 4f 4e 54 49 4e 55 45 | 0a 31 36 34 20 20 20 20 |CONTINUE|.164 |
|0002ea90| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 20 20 20 20 | CONTI|NUE. |
|0002eaa0| 20 20 20 20 20 20 43 41 | 53 55 4d 3d 5a 45 52 4f | CA|SUM=ZERO|
|0002eab0| 0a 20 20 20 20 20 20 20 | 20 20 20 41 4e 53 55 4d |. | ANSUM|
|0002eac0| 3d 5a 45 52 4f 0a 20 20 | 20 20 20 20 20 20 20 20 |=ZERO. | |
|0002ead0| 44 4f 20 31 36 35 20 49 | 3d 31 2c 4e 53 4f 0a 09 |DO 165 I|=1,NSO..|
|0002eae0| 20 20 49 46 28 4e 50 53 | 49 28 49 29 2e 47 54 2e | IF(NPS|I(I).GT.|
|0002eaf0| 30 29 20 54 48 45 4e 0a | 20 20 20 20 20 20 20 20 |0) THEN.| |
|0002eb00| 20 20 20 20 43 53 28 38 | 2b 49 29 3d 53 43 50 53 | CS(8|+I)=SCPS|
|0002eb10| 49 28 49 29 2f 44 42 4c | 45 28 4e 50 53 49 28 49 |I(I)/DBL|E(NPSI(I|
|0002eb20| 29 29 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 49 |)). | I|
|0002eb30| 46 28 4e 5a 50 4f 28 49 | 29 2e 47 54 2e 30 29 20 |F(NZPO(I|).GT.0) |
|0002eb40| 43 41 53 55 4d 3d 43 41 | 53 55 4d 2b 43 53 28 38 |CASUM=CA|SUM+CS(8|
|0002eb50| 2b 49 29 2a 4e 5a 50 4f | 28 49 29 0a 20 20 20 20 |+I)*NZPO|(I). |
|0002eb60| 20 20 20 20 20 20 20 20 | 49 46 28 4e 5a 50 4f 28 | |IF(NZPO(|
|0002eb70| 49 29 2e 4c 54 2e 30 29 | 20 41 4e 53 55 4d 3d 41 |I).LT.0)| ANSUM=A|
|0002eb80| 4e 53 55 4d 2d 43 53 28 | 38 2b 49 29 2a 4e 5a 50 |NSUM-CS(|8+I)*NZP|
|0002eb90| 4f 28 49 29 0a 20 20 20 | 20 20 20 20 20 20 20 45 |O(I). | E|
|0002eba0| 4e 44 20 49 46 0a 31 36 | 35 20 20 20 20 20 20 20 |ND IF.16|5 |
|0002ebb0| 43 4f 4e 54 49 4e 55 45 | 0a 20 20 20 20 20 20 20 |CONTINUE|. |
|0002ebc0| 20 45 4c 53 45 0a 43 20 | 20 20 20 20 20 20 20 49 | ELSE.C | I|
|0002ebd0| 4f 4e 49 43 20 50 52 4f | 44 55 43 54 20 53 50 45 |ONIC PRO|DUCT SPE|
|0002ebe0| 43 49 45 53 20 43 4f 4e | 43 45 4e 54 52 41 54 49 |CIES CON|CENTRATI|
|0002ebf0| 4f 4e 53 20 41 52 45 20 | 5a 45 52 4f 0a 20 20 20 |ONS ARE |ZERO. |
|0002ec00| 20 20 20 20 20 20 20 44 | 4f 20 31 36 36 20 49 3d | D|O 166 I=|
|0002ec10| 31 2c 4e 53 4f 0a 09 20 | 20 4b 3d 38 2b 49 0a 09 |1,NSO.. | K=8+I..|
|0002ec20| 20 20 49 46 28 4e 5a 50 | 4f 28 49 29 2e 4e 45 2e | IF(NZP|O(I).NE.|
|0002ec30| 30 29 20 54 48 45 4e 0a | 09 20 20 20 20 43 53 28 |0) THEN.|. CS(|
|0002ec40| 4b 29 3d 5a 45 52 4f 0a | 09 20 20 45 4e 44 20 49 |K)=ZERO.|. END I|
|0002ec50| 46 0a 31 36 36 20 20 20 | 20 20 20 20 43 4f 4e 54 |F.166 | CONT|
|0002ec60| 49 4e 55 45 0a 20 20 20 | 20 20 20 20 20 45 4e 44 |INUE. | END|
|0002ec70| 20 49 46 0a 20 20 20 20 | 20 20 45 4e 44 20 49 46 | IF. | END IF|
|0002ec80| 0a 43 0a 43 20 20 20 20 | 20 20 49 46 28 4e 52 45 |.C.C | IF(NRE|
|0002ec90| 46 2e 45 51 2e 31 2e 41 | 4e 44 2e 4e 43 54 52 2e |F.EQ.1.A|ND.NCTR.|
|0002eca0| 45 51 2e 31 29 20 54 48 | 45 4e 0a 43 20 20 20 20 |EQ.1) TH|EN.C |
|0002ecb0| 20 20 20 20 57 52 49 54 | 45 28 39 2c 34 34 34 34 | WRIT|E(9,4444|
|0002ecc0| 29 20 41 4e 53 55 4d 2c | 43 41 53 55 4d 2c 43 53 |) ANSUM,|CASUM,CS|
|0002ecd0| 28 38 2b 49 52 45 46 29 | 2c 43 53 28 38 2b 49 43 |(8+IREF)|,CS(8+IC|
|0002ece0| 54 52 29 0a 43 20 20 20 | 20 20 20 20 20 57 52 49 |TR).C | WRI|
|0002ecf0| 54 45 28 31 32 2c 34 34 | 34 34 29 20 41 4e 53 55 |TE(12,44|44) ANSU|
|0002ed00| 4d 2c 43 41 53 55 4d 2c | 43 53 28 38 2b 49 52 45 |M,CASUM,|CS(8+IRE|
|0002ed10| 46 29 2c 43 53 28 38 2b | 49 43 54 52 29 0a 43 34 |F),CS(8+|ICTR).C4|
|0002ed20| 34 34 34 20 20 20 20 46 | 4f 52 4d 41 54 28 31 58 |444 F|ORMAT(1X|
|0002ed30| 2c 27 20 20 20 20 20 20 | 20 41 4e 53 55 4d 20 20 |,' | ANSUM |
|0002ed40| 20 20 20 20 20 43 41 53 | 55 4d 20 20 43 53 28 38 | CAS|UM CS(8|
|0002ed50| 2b 49 52 45 46 29 27 2c | 0a 43 20 20 20 20 20 26 |+IREF)',|.C &|
|0002ed60| 20 20 27 20 20 43 53 28 | 38 2b 49 43 54 52 29 27 | ' CS(|8+ICTR)'|
|0002ed70| 2f 31 58 2c 31 50 34 45 | 31 32 2e 33 29 0a 43 20 |/1X,1P4E|12.3).C |
|0002ed80| 20 20 20 20 20 45 4e 44 | 20 49 46 0a 43 0a 43 20 | END| IF.C.C |
|0002ed90| 20 20 43 48 45 43 4b 20 | 54 4f 54 41 4c 20 41 4d | CHECK |TOTAL AM|
|0002eda0| 4f 55 4e 54 20 4f 46 20 | 4e 4f 4e 41 51 2e 53 4f |OUNT OF |NONAQ.SO|
|0002edb0| 4c 55 54 45 53 0a 20 20 | 20 20 20 20 53 4d 56 57 |LUTES. | SMVW|
|0002edc0| 52 3d 5a 45 52 4f 0a 20 | 20 20 20 20 20 49 46 28 |R=ZERO. | IF(|
|0002edd0| 49 43 4e 2e 45 51 2e 31 | 29 20 54 48 45 4e 0a 20 |ICN.EQ.1|) THEN. |
|0002ede0| 20 20 20 20 20 20 20 53 | 4d 56 57 52 3d 53 4d 56 | S|MVWR=SMV|
|0002edf0| 57 52 2b 43 53 28 31 29 | 2a 56 28 31 29 0a 20 20 |WR+CS(1)|*V(1). |
|0002ee00| 20 20 20 20 20 20 53 4d | 56 57 52 3d 53 4d 56 57 | SM|VWR=SMVW|
|0002ee10| 52 2b 43 53 28 32 29 2a | 56 28 32 29 0a 20 20 20 |R+CS(2)*|V(2). |
|0002ee20| 20 20 20 45 4e 44 20 49 | 46 0a 20 20 20 20 20 20 | END I|F. |
|0002ee30| 49 46 28 49 43 4e 2e 45 | 51 2e 33 29 20 54 48 45 |IF(ICN.E|Q.3) THE|
|0002ee40| 4e 0a 20 20 20 20 20 20 | 20 20 53 4d 56 57 52 3d |N. | SMVWR=|
|0002ee50| 53 4d 56 57 52 2b 43 53 | 28 31 29 2a 57 28 31 29 |SMVWR+CS|(1)*W(1)|
|0002ee60| 0a 20 20 20 20 20 20 20 | 20 53 4d 56 57 52 3d 53 |. | SMVWR=S|
|0002ee70| 4d 56 57 52 2b 43 53 28 | 32 29 2a 57 28 32 29 0a |MVWR+CS(|2)*W(2).|
|0002ee80| 20 20 20 20 20 20 45 4e | 44 20 49 46 0a 20 20 20 | EN|D IF. |
|0002ee90| 20 20 20 53 4d 56 57 50 | 3d 5a 45 52 4f 0a 20 20 | SMVWP|=ZERO. |
|0002eea0| 20 20 20 20 44 4f 20 31 | 36 37 20 49 3d 31 2c 4e | DO 1|67 I=1,N|
|0002eeb0| 53 4f 0a 20 20 20 20 20 | 20 4b 3d 38 2b 49 0a 20 |SO. | K=8+I. |
|0002eec0| 20 20 20 20 20 49 46 28 | 49 43 4e 2e 45 51 2e 31 | IF(|ICN.EQ.1|
|0002eed0| 29 20 53 4d 56 57 50 3d | 53 4d 56 57 50 2b 43 53 |) SMVWP=|SMVWP+CS|
|0002eee0| 28 4b 29 2a 56 28 4b 29 | 0a 20 20 20 20 20 20 49 |(K)*V(K)|. I|
|0002eef0| 46 28 49 43 4e 2e 45 51 | 2e 33 29 20 53 4d 56 57 |F(ICN.EQ|.3) SMVW|
|0002ef00| 50 3d 53 4d 56 57 50 2b | 43 53 28 4b 29 2a 57 28 |P=SMVWP+|CS(K)*W(|
|0002ef10| 4b 29 0a 31 36 37 20 20 | 20 43 4f 4e 54 49 4e 55 |K).167 | CONTINU|
|0002ef20| 45 0a 20 20 20 20 20 20 | 49 46 28 28 53 4d 56 57 |E. |IF((SMVW|
|0002ef30| 52 2b 53 4d 56 57 50 29 | 2e 47 54 2e 54 48 4f 55 |R+SMVWP)|.GT.THOU|
|0002ef40| 29 20 54 48 45 4e 0a 43 | 20 20 20 20 20 20 54 4f |) THEN.C| TO|
|0002ef50| 54 41 4c 20 41 4d 4f 55 | 4e 54 20 4f 46 20 4e 4f |TAL AMOU|NT OF NO|
|0002ef60| 4e 41 51 55 45 4f 55 53 | 20 53 4f 4c 55 54 45 53 |NAQUEOUS| SOLUTES|
|0002ef70| 20 49 53 20 54 4f 4f 20 | 4c 41 52 47 45 0a 43 20 | IS TOO |LARGE.C |
|0002ef80| 20 20 20 20 20 20 52 45 | 44 55 43 45 20 43 4f 4e | RE|DUCE CON|
|0002ef90| 43 45 4e 54 52 41 54 49 | 4f 4e 20 4f 46 20 50 52 |CENTRATI|ON OF PR|
|0002efa0| 4f 44 55 43 54 20 53 50 | 45 43 49 45 53 0a 20 20 |ODUCT SP|ECIES. |
|0002efb0| 20 20 20 20 20 20 52 46 | 43 54 3d 28 54 48 4f 55 | RF|CT=(THOU|
|0002efc0| 2d 53 4d 56 57 52 29 2f | 28 54 57 4f 2a 53 4d 56 |-SMVWR)/|(TWO*SMV|
|0002efd0| 57 50 29 0a 20 20 20 20 | 20 20 20 20 44 4f 20 31 |WP). | DO 1|
|0002efe0| 37 30 20 49 3d 31 2c 4e | 53 4f 0a 20 20 20 20 20 |70 I=1,N|SO. |
|0002eff0| 20 20 20 43 53 28 38 2b | 49 29 3d 43 53 28 38 2b | CS(8+|I)=CS(8+|
|0002f000| 49 29 2a 52 46 43 54 0a | 31 37 30 20 20 20 20 20 |I)*RFCT.|170 |
|0002f010| 43 4f 4e 54 49 4e 55 45 | 0a 20 20 20 20 20 20 45 |CONTINUE|. E|
|0002f020| 4e 44 20 49 46 0a 43 0a | 43 20 20 20 43 48 45 43 |ND IF.C.|C CHEC|
|0002f030| 4b 20 43 4f 4e 43 4e 53 | 2e 4f 46 20 4e 4f 4e 41 |K CONCNS|.OF NONA|
|0002f040| 51 2e 49 4f 4e 53 0a 20 | 20 20 20 20 20 49 46 28 |Q.IONS. | IF(|
|0002f050| 4e 52 45 46 2e 45 51 2e | 31 2e 41 4e 44 2e 4e 43 |NREF.EQ.|1.AND.NC|
|0002f060| 54 52 2e 45 51 2e 31 29 | 20 54 48 45 4e 0a 43 20 |TR.EQ.1)| THEN.C |
|0002f070| 20 20 20 20 20 49 4f 4e | 53 20 41 52 45 20 46 4f | ION|S ARE FO|
|0002f080| 52 4d 45 44 0a 20 20 20 | 20 20 20 20 20 52 49 45 |RMED. | RIE|
|0002f090| 51 3d 41 4e 53 55 4d 2f | 43 41 53 55 4d 0a 20 20 |Q=ANSUM/|CASUM. |
|0002f0a0| 20 20 20 20 20 20 49 46 | 28 52 49 45 51 2e 47 54 | IF|(RIEQ.GT|
|0002f0b0| 2e 4f 4e 45 29 20 54 48 | 45 4e 0a 43 20 20 20 20 |.ONE) TH|EN.C |
|0002f0c0| 20 20 20 20 54 4f 54 41 | 4c 20 45 53 54 44 2e 43 | TOTA|L ESTD.C|
|0002f0d0| 4f 4e 43 4e 2e 4f 46 20 | 41 4e 49 4f 4e 53 20 45 |ONCN.OF |ANIONS E|
|0002f0e0| 58 43 45 45 44 53 20 54 | 48 41 54 20 4f 46 20 43 |XCEEDS T|HAT OF C|
|0002f0f0| 41 54 49 4f 4e 53 0a 43 | 20 20 20 20 20 20 20 20 |ATIONS.C| |
|0002f100| 20 4c 4f 57 45 52 20 54 | 48 45 20 43 4f 4e 43 4e | LOWER T|HE CONCN|
|0002f110| 2e 4f 46 20 41 4e 49 4f | 4e 53 0a 20 20 20 20 20 |.OF ANIO|NS. |
|0002f120| 20 20 20 20 20 44 4f 20 | 31 37 35 20 49 3d 31 2c | DO |175 I=1,|
|0002f130| 4e 53 4f 0a 20 20 20 20 | 20 20 20 20 20 20 49 46 |NSO. | IF|
|0002f140| 28 4e 5a 50 4f 28 49 29 | 2e 4c 54 2e 5a 45 52 4f |(NZPO(I)|.LT.ZERO|
|0002f150| 29 20 43 53 28 38 2b 49 | 29 3d 43 53 28 38 2b 49 |) CS(8+I|)=CS(8+I|
|0002f160| 29 2f 52 49 45 51 0a 31 | 37 35 20 20 20 20 20 20 |)/RIEQ.1|75 |
|0002f170| 20 43 4f 4e 54 49 4e 55 | 45 20 20 20 20 20 0a 20 | CONTINU|E . |
|0002f180| 20 20 20 20 20 20 20 45 | 4e 44 20 49 46 0a 20 20 | E|ND IF. |
|0002f190| 20 20 20 20 20 20 49 46 | 28 52 49 45 51 2e 4c 54 | IF|(RIEQ.LT|
|0002f1a0| 2e 4f 4e 45 29 20 54 48 | 45 4e 0a 43 20 20 20 20 |.ONE) TH|EN.C |
|0002f1b0| 20 20 20 20 54 4f 54 41 | 4c 20 45 53 54 44 2e 43 | TOTA|L ESTD.C|
|0002f1c0| 4f 4e 43 4e 2e 4f 46 20 | 43 41 54 49 4f 4e 53 20 |ONCN.OF |CATIONS |
|0002f1d0| 45 58 43 45 45 44 53 20 | 54 48 41 54 20 4f 46 20 |EXCEEDS |THAT OF |
|0002f1e0| 41 4e 49 4f 4e 53 0a 43 | 20 20 20 20 20 20 20 20 |ANIONS.C| |
|0002f1f0| 20 4c 4f 57 45 52 20 54 | 48 45 20 43 4f 4e 43 4e | LOWER T|HE CONCN|
|0002f200| 2e 4f 46 20 43 41 54 49 | 4f 4e 53 0a 20 20 20 20 |.OF CATI|ONS. |
|0002f210| 20 20 20 20 20 20 44 4f | 20 31 38 30 20 49 3d 31 | DO| 180 I=1|
|0002f220| 2c 4e 53 4f 0a 20 20 20 | 20 20 20 20 20 20 20 49 |,NSO. | I|
|0002f230| 46 28 4e 5a 50 4f 28 49 | 29 2e 47 54 2e 5a 45 52 |F(NZPO(I|).GT.ZER|
|0002f240| 4f 29 20 43 53 28 38 2b | 49 29 3d 43 53 28 38 2b |O) CS(8+|I)=CS(8+|
|0002f250| 49 29 2a 52 49 45 51 0a | 31 38 30 20 20 20 20 20 |I)*RIEQ.|180 |
|0002f260| 20 20 43 4f 4e 54 49 4e | 55 45 20 20 20 20 20 0a | CONTIN|UE .|
|0002f270| 20 20 20 20 20 20 20 20 | 45 4e 44 20 49 46 0a 20 | |END IF. |
|0002f280| 20 20 20 20 20 20 20 43 | 52 45 46 3d 43 53 28 38 | C|REF=CS(8|
|0002f290| 2b 49 52 45 46 29 0a 20 | 20 20 20 20 20 45 4e 44 |+IREF). | END|
|0002f2a0| 20 49 46 0a 43 0a 20 20 | 20 20 20 20 49 46 28 4e | IF.C. | IF(N|
|0002f2b0| 43 41 4c 2e 45 51 2e 32 | 29 20 54 48 45 4e 0a 43 |CAL.EQ.2|) THEN.C|
|0002f2c0| 20 20 20 20 20 20 45 53 | 54 49 4d 41 54 45 20 43 | ES|TIMATE C|
|0002f2d0| 4f 4e 43 4e 2e 49 4e 20 | 57 41 54 45 52 20 44 52 |ONCN.IN |WATER DR|
|0002f2e0| 4f 50 4c 45 54 20 4f 46 | 20 41 4e 59 20 41 51 2e |OPLET OF| ANY AQ.|
|0002f2f0| 53 50 45 43 49 45 53 20 | 49 4e 56 4f 4c 56 45 44 |SPECIES |INVOLVED|
|0002f300| 0a 20 20 20 20 20 20 20 | 20 44 4f 20 32 31 30 20 |. | DO 210 |
|0002f310| 49 3d 31 2c 4e 53 4f 0a | 20 20 20 20 20 20 20 20 |I=1,NSO.| |
|0002f320| 49 46 28 49 2e 45 51 2e | 49 52 45 46 29 20 47 4f |IF(I.EQ.|IREF) GO|
|0002f330| 54 4f 20 32 31 30 0a 20 | 20 20 20 20 20 20 20 4b |TO 210. | K|
|0002f340| 3d 38 2b 49 20 0a 20 20 | 20 20 20 20 20 20 44 4f |=8+I . | DO|
|0002f350| 20 31 39 30 20 4c 3d 31 | 2c 32 0a 20 20 20 20 20 | 190 L=1|,2. |
|0002f360| 20 20 20 49 46 28 45 4f | 43 28 4c 2c 49 29 2e 4e | IF(EO|C(L,I).N|
|0002f370| 45 2e 5a 45 52 4f 29 20 | 54 48 45 4e 0a 20 20 20 |E.ZERO) |THEN. |
|0002f380| 20 20 20 20 20 20 20 46 | 4f 43 28 4c 2c 49 29 3d | F|OC(L,I)=|
|0002f390| 43 53 28 4c 29 2a 2a 45 | 4f 43 28 4c 2c 49 29 0a |CS(L)**E|OC(L,I).|
|0002f3a0| 20 20 20 20 20 20 20 20 | 45 4c 53 45 0a 20 20 20 | |ELSE. |
|0002f3b0| 20 20 20 20 20 20 20 46 | 4f 43 28 4c 2c 49 29 3d | F|OC(L,I)=|
|0002f3c0| 4f 4e 45 0a 20 20 20 20 | 20 20 20 20 45 4e 44 20 |ONE. | END |
|0002f3d0| 49 46 0a 31 39 30 20 20 | 20 20 20 43 4f 4e 54 49 |IF.190 | CONTI|
|0002f3e0| 4e 55 45 0a 43 20 20 20 | 20 20 20 20 45 53 54 49 |NUE.C | ESTI|
|0002f3f0| 4d 41 54 45 20 51 55 4f | 54 49 45 4e 54 20 4f 46 |MATE QUO|TIENT OF|
|0002f400| 20 41 51 55 45 4f 55 53 | 20 49 4f 4e 53 0a 20 20 | AQUEOUS| IONS. |
|0002f410| 20 20 20 20 20 20 49 46 | 28 4e 5a 50 4f 28 49 29 | IF|(NZPO(I)|
|0002f420| 2e 45 51 2e 30 29 20 54 | 48 45 4e 0a 20 20 20 20 |.EQ.0) T|HEN. |
|0002f430| 20 20 20 20 20 20 41 51 | 54 3d 43 53 28 4b 29 2a | AQ|T=CS(K)*|
|0002f440| 47 28 4b 29 2f 28 46 4f | 4b 28 49 29 2a 46 4f 43 |G(K)/(FO|K(I)*FOC|
|0002f450| 28 31 2c 49 29 2a 46 4f | 43 28 32 2c 49 29 29 0a |(1,I)*FO|C(2,I)).|
|0002f460| 20 20 20 20 20 20 20 20 | 45 4c 53 45 09 0a 20 20 | |ELSE.. |
|0002f470| 20 20 20 20 20 20 20 20 | 41 51 54 3d 43 53 28 4b | |AQT=CS(K|
|0002f480| 29 2a 47 28 4b 29 2f 28 | 28 43 52 45 46 2a 47 28 |)*G(K)/(|(CREF*G(|
|0002f490| 38 2b 49 52 45 46 29 29 | 2a 2a 52 5a 49 52 28 49 |8+IREF))|**RZIR(I|
|0002f4a0| 29 2a 46 4f 4b 28 49 29 | 2a 0a 20 20 20 20 20 26 |)*FOK(I)|*. &|
|0002f4b0| 20 20 20 20 46 4f 43 28 | 31 2c 49 29 2a 46 4f 43 | FOC(|1,I)*FOC|
|0002f4c0| 28 32 2c 49 29 29 0a 20 | 20 20 20 20 20 20 20 45 |(2,I)). | E|
|0002f4d0| 4e 44 20 49 46 0a 43 20 | 20 20 20 20 20 50 52 45 |ND IF.C | PRE|
|0002f4e0| 50 41 52 45 20 54 4f 20 | 45 53 54 49 4d 41 54 45 |PARE TO |ESTIMATE|
|0002f4f0| 20 43 4f 4e 43 4e 2e 4f | 46 20 41 4e 20 41 51 55 | CONCN.O|F AN AQU|
|0002f500| 45 4f 55 53 20 49 4f 4e | 0a 20 20 20 20 20 20 20 |EOUS ION|. |
|0002f510| 20 41 51 46 43 54 3d 4f | 4e 45 0a 20 20 20 20 20 | AQFCT=O|NE. |
|0002f520| 20 20 20 53 4d 45 58 3d | 5a 45 52 4f 0a 20 20 20 | SMEX=|ZERO. |
|0002f530| 20 20 20 20 20 44 4f 20 | 31 39 35 20 4c 3d 33 2c | DO |195 L=3,|
|0002f540| 36 0a 20 20 20 20 20 20 | 20 20 49 46 28 45 4f 43 |6. | IF(EOC|
|0002f550| 28 4c 2c 49 29 2e 4e 45 | 2e 5a 45 52 4f 29 20 54 |(L,I).NE|.ZERO) T|
|0002f560| 48 45 4e 0a 20 20 20 20 | 20 20 20 20 20 20 41 51 |HEN. | AQ|
|0002f570| 46 43 54 3d 41 51 46 43 | 54 2a 52 4f 43 28 4c 2c |FCT=AQFC|T*ROC(L,|
|0002f580| 49 29 2a 2a 45 4f 43 28 | 4c 2c 49 29 0a 20 20 20 |I)**EOC(|L,I). |
|0002f590| 20 20 20 20 20 20 20 53 | 4d 45 58 3d 53 4d 45 58 | S|MEX=SMEX|
|0002f5a0| 2b 45 4f 43 28 4c 2c 49 | 29 0a 20 20 20 20 20 20 |+EOC(L,I|). |
|0002f5b0| 20 20 45 4e 44 20 49 46 | 0a 31 39 35 20 20 20 20 | END IF|.195 |
|0002f5c0| 20 43 4f 4e 54 49 4e 55 | 45 0a 20 20 20 20 20 20 | CONTINU|E. |
|0002f5d0| 20 20 49 46 28 53 4d 45 | 58 2e 4e 45 2e 5a 45 52 | IF(SME|X.NE.ZER|
|0002f5e0| 4f 29 20 54 48 45 4e 0a | 43 20 20 20 20 20 20 20 |O) THEN.|C |
|0002f5f0| 20 54 48 45 52 45 20 49 | 53 20 41 54 20 4c 45 41 | THERE I|S AT LEA|
|0002f600| 53 54 20 4f 4e 45 20 41 | 51 55 45 4f 55 53 20 49 |ST ONE A|QUEOUS I|
|0002f610| 4f 4e 20 49 4e 20 54 48 | 49 53 20 53 50 45 43 49 |ON IN TH|IS SPECI|
|0002f620| 45 53 0a 20 20 20 20 20 | 20 20 20 20 20 45 58 46 |ES. | EXF|
|0002f630| 43 54 3d 4f 4e 45 2f 53 | 4d 45 58 0a 32 30 30 20 |CT=ONE/S|MEX.200 |
|0002f640| 20 20 20 20 20 20 43 48 | 53 56 3d 43 53 28 37 29 | CH|SV=CS(7)|
|0002f650| 0a 20 20 20 20 20 20 20 | 20 20 20 44 4f 20 32 30 |. | DO 20|
|0002f660| 35 20 4c 3d 33 2c 36 0a | 20 20 20 20 20 20 20 20 |5 L=3,6.| |
|0002f670| 20 20 49 46 28 52 4f 43 | 28 4c 2c 49 29 2e 47 54 | IF(ROC|(L,I).GT|
|0002f680| 2e 5a 45 52 4f 2e 41 4e | 44 2e 54 43 53 28 4c 29 |.ZERO.AN|D.TCS(L)|
|0002f690| 2e 47 54 2e 5a 45 52 4f | 29 20 54 48 45 4e 0a 43 |.GT.ZERO|) THEN.C|
|0002f6a0| 20 20 20 20 20 20 20 20 | 20 20 45 53 54 49 4d 41 | | ESTIMA|
|0002f6b0| 54 45 20 41 51 55 45 4f | 55 53 20 43 4f 4e 43 4e |TE AQUEO|US CONCN|
|0002f6c0| 2e 4f 46 20 41 4e 20 49 | 4f 4e 0a 43 0a 43 20 20 |.OF AN I|ON.C.C |
|0002f6d0| 20 20 20 20 20 20 20 20 | 20 20 57 52 49 54 45 28 | | WRITE(|
|0002f6e0| 39 2c 34 33 32 31 29 0a | 43 20 20 20 20 20 26 20 |9,4321).|C & |
|0002f6f0| 20 20 20 20 20 49 50 54 | 2c 4c 2c 49 2c 43 53 28 | IPT|,L,I,CS(|
|0002f700| 4b 29 2c 52 4f 43 28 4c | 2c 49 29 2c 41 51 54 2c |K),ROC(L|,I),AQT,|
|0002f710| 41 51 46 43 54 2c 43 53 | 28 37 29 2c 45 4f 43 28 |AQFCT,CS|(7),EOC(|
|0002f720| 37 2c 49 29 2c 45 58 46 | 43 54 0a 43 20 20 20 20 |7,I),EXF|CT.C |
|0002f730| 20 20 20 20 20 20 20 20 | 57 52 49 54 45 28 31 32 | |WRITE(12|
|0002f740| 2c 34 33 32 31 29 0a 43 | 20 20 20 20 20 26 20 20 |,4321).C| & |
|0002f750| 20 20 20 20 49 50 54 2c | 4c 2c 49 2c 43 53 28 4b | IPT,|L,I,CS(K|
|0002f760| 29 2c 52 4f 43 28 4c 2c | 49 29 2c 41 51 54 2c 41 |),ROC(L,|I),AQT,A|
|0002f770| 51 46 43 54 2c 43 53 28 | 37 29 2c 45 4f 43 28 37 |QFCT,CS(|7),EOC(7|
|0002f780| 2c 49 29 2c 45 58 46 43 | 54 0a 43 34 33 32 31 20 |,I),EXFC|T.C4321 |
|0002f790| 20 20 20 20 20 20 20 46 | 4f 52 4d 41 54 28 31 58 | F|ORMAT(1X|
|0002f7a0| 2c 27 49 50 54 20 20 4c | 20 20 49 20 20 20 20 20 |,'IPT L| I |
|0002f7b0| 43 53 28 4b 29 20 20 52 | 4f 43 28 4c 2c 49 29 20 |CS(K) R|OC(L,I) |
|0002f7c0| 20 20 20 20 20 20 41 51 | 54 27 2c 0a 43 20 20 20 | AQ|T',.C |
|0002f7d0| 20 20 26 20 20 20 20 20 | 20 27 20 20 20 20 20 41 | & | ' A|
|0002f7e0| 51 46 43 54 20 20 20 20 | 20 43 53 28 37 29 20 20 |QFCT | CS(7) |
|0002f7f0| 45 4f 43 28 37 2c 49 29 | 20 20 20 20 20 45 58 46 |EOC(7,I)| EXF|
|0002f800| 43 54 27 2f 0a 43 20 20 | 20 20 20 26 20 20 20 20 |CT'/.C | & |
|0002f810| 20 20 31 58 2c 33 49 33 | 2c 31 50 37 45 31 30 2e | 1X,3I3|,1P7E10.|
|0002f820| 31 29 0a 43 0a 09 20 20 | 20 20 43 53 54 53 54 3d |1).C.. | CSTST=|
|0002f830| 52 4f 43 28 4c 2c 49 29 | 2a 28 41 51 54 2f 28 41 |ROC(L,I)|*(AQT/(A|
|0002f840| 51 46 43 54 2a 43 53 28 | 37 29 2a 2a 45 4f 43 28 |QFCT*CS(|7)**EOC(|
|0002f850| 37 2c 49 29 29 29 2a 2a | 45 58 46 43 54 0a 43 0a |7,I)))**|EXFCT.C.|
|0002f860| 43 09 20 20 20 20 20 57 | 52 49 54 45 28 2a 2c 34 |C. W|RITE(*,4|
|0002f870| 33 32 30 29 20 43 53 54 | 53 54 2c 28 43 53 28 4d |320) CST|ST,(CS(M|
|0002f880| 29 2c 4d 3d 31 2c 36 29 | 2c 28 58 43 28 4d 29 2c |),M=1,6)|,(XC(M),|
|0002f890| 4d 3d 31 2c 36 29 0a 43 | 09 20 20 20 20 20 57 52 |M=1,6).C|. WR|
|0002f8a0| 49 54 45 28 31 37 2c 34 | 33 32 30 29 20 43 53 54 |ITE(17,4|320) CST|
|0002f8b0| 53 54 2c 28 43 53 28 4d | 29 2c 4d 3d 31 2c 36 29 |ST,(CS(M|),M=1,6)|
|0002f8c0| 2c 28 58 43 28 4d 29 2c | 4d 3d 31 2c 36 29 0a 43 |,(XC(M),|M=1,6).C|
|0002f8d0| 34 33 32 30 20 20 20 20 | 20 20 20 20 46 4f 52 4d |4320 | FORM|
|0002f8e0| 41 54 28 31 58 2c 27 43 | 53 54 53 54 3a 27 2c 31 |AT(1X,'C|STST:',1|
|0002f8f0| 50 45 31 33 2e 34 2f 31 | 58 27 43 53 28 4d 29 3a |PE13.4/1|X'CS(M):|
|0002f900| 27 2c 36 45 31 32 2e 33 | 2f 0a 43 20 20 20 20 20 |',6E12.3|/.C |
|0002f910| 26 20 20 20 20 20 20 31 | 58 27 58 43 28 4d 29 3a |& 1|X'XC(M):|
|0002f920| 27 2c 30 50 36 46 31 30 | 2e 35 2f 29 0a 43 20 20 |',0P6F10|.5/).C |
|0002f930| 20 20 20 20 20 20 20 20 | 20 20 50 41 55 53 45 0a | | PAUSE.|
|0002f940| 43 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 49 46 |C. | IF|
|0002f950| 28 43 53 54 53 54 2e 47 | 54 2e 43 53 28 4c 29 29 |(CSTST.G|T.CS(L))|
|0002f960| 20 43 53 28 4c 29 3d 43 | 53 54 53 54 0a 20 20 20 | CS(L)=C|STST. |
|0002f970| 20 20 20 20 20 20 20 45 | 4e 44 20 49 46 0a 32 30 | E|ND IF.20|
|0002f980| 35 20 20 20 20 20 20 20 | 43 4f 4e 54 49 4e 55 45 |5 |CONTINUE|
|0002f990| 0a 43 20 20 20 20 20 20 | 20 20 41 44 4a 55 53 54 |.C | ADJUST|
|0002f9a0| 20 54 48 45 20 43 4f 4e | 43 45 4e 54 52 41 54 49 | THE CON|CENTRATI|
|0002f9b0| 4f 4e 20 4f 46 20 48 2b | 0a 20 20 20 20 20 20 20 |ON OF H+|. |
|0002f9c0| 20 20 20 54 4e 43 3d 52 | 5a 4d 2a 43 53 28 33 29 | TNC=R|ZM*CS(3)|
|0002f9d0| 2b 52 5a 4e 2a 43 53 28 | 34 29 0a 20 20 20 20 20 |+RZN*CS(|4). |
|0002f9e0| 20 20 20 20 20 54 4e 41 | 3d 52 5a 58 2a 43 53 28 | TNA|=RZX*CS(|
|0002f9f0| 35 29 2b 52 5a 59 2a 43 | 53 28 36 29 0a 20 20 20 |5)+RZY*C|S(6). |
|0002fa00| 20 20 20 20 20 20 20 42 | 54 52 4d 3d 28 54 4e 43 | B|TRM=(TNC|
|0002fa10| 2d 54 4e 41 29 2f 54 57 | 4f 0a 20 20 20 20 20 20 |-TNA)/TW|O. |
|0002fa20| 20 20 20 20 43 53 28 37 | 29 3d 2d 42 54 52 4d 2b | CS(7|)=-BTRM+|
|0002fa30| 44 53 51 52 54 28 42 54 | 52 4d 2a 2a 32 2b 52 4b |DSQRT(BT|RM**2+RK|
|0002fa40| 57 29 0a 43 0a 43 20 20 | 20 20 20 20 20 20 20 20 |W).C.C | |
|0002fa50| 57 52 49 54 45 28 2a 2c | 34 33 32 32 29 20 49 50 |WRITE(*,|4322) IP|
|0002fa60| 54 2c 49 2c 43 53 28 33 | 29 2c 54 4e 43 2c 42 54 |T,I,CS(3|),TNC,BT|
|0002fa70| 52 4d 2c 52 4b 57 2c 43 | 53 28 37 29 0a 43 20 20 |RM,RKW,C|S(7).C |
|0002fa80| 20 20 20 20 20 20 20 20 | 57 52 49 54 45 28 31 37 | |WRITE(17|
|0002fa90| 2c 34 33 32 32 29 20 49 | 50 54 2c 49 2c 43 53 28 |,4322) I|PT,I,CS(|
|0002faa0| 33 29 2c 54 4e 43 2c 42 | 54 52 4d 2c 52 4b 57 2c |3),TNC,B|TRM,RKW,|
|0002fab0| 43 53 28 37 29 0a 43 34 | 33 32 32 20 20 20 20 20 |CS(7).C4|322 |
|0002fac0| 20 46 4f 52 4d 41 54 28 | 31 58 2c 27 49 50 54 2c | FORMAT(|1X,'IPT,|
|0002fad0| 49 2c 43 53 28 33 29 2c | 54 4e 43 2c 42 54 52 4d |I,CS(3),|TNC,BTRM|
|0002fae0| 2c 52 4b 57 2c 43 53 28 | 37 29 3d 27 2c 32 49 33 |,RKW,CS(|7)=',2I3|
|0002faf0| 2c 31 50 35 45 31 32 2e | 33 2f 29 0a 43 20 20 20 |,1P5E12.|3/).C |
|0002fb00| 20 20 20 20 20 20 20 50 | 41 55 53 45 0a 43 0a 20 | P|AUSE.C. |
|0002fb10| 20 20 20 20 20 20 20 20 | 20 49 46 28 44 41 42 53 | | IF(DABS|
|0002fb20| 28 4f 4e 45 2d 43 53 28 | 37 29 2f 43 48 53 56 29 |(ONE-CS(|7)/CHSV)|
|0002fb30| 2e 47 54 2e 28 4f 4e 45 | 2f 48 55 4e 44 29 29 20 |.GT.(ONE|/HUND)) |
|0002fb40| 47 4f 54 4f 20 32 30 30 | 0a 20 20 20 20 20 20 20 |GOTO 200|. |
|0002fb50| 20 45 4e 44 20 49 46 0a | 32 31 30 20 20 20 20 20 | END IF.|210 |
|0002fb60| 43 4f 4e 54 49 4e 55 45 | 0a 43 20 20 20 20 20 20 |CONTINUE|.C |
|0002fb70| 43 41 4c 43 55 41 4c 54 | 45 20 54 48 45 20 43 4f |CALCUALT|E THE CO|
|0002fb80| 4e 43 45 4e 54 52 41 54 | 49 4f 4e 20 4f 46 20 4f |NCENTRAT|ION OF O|
|0002fb90| 48 0a 20 20 20 20 20 20 | 20 20 43 53 28 38 29 3d |H. | CS(8)=|
|0002fba0| 52 4b 57 2f 43 53 28 37 | 29 0a 20 20 20 20 20 20 |RKW/CS(7|). |
|0002fbb0| 45 4e 44 20 49 46 0a 43 | 0a 32 31 35 20 20 20 49 |END IF.C|.215 I|
|0002fbc0| 46 28 4e 53 41 2e 45 51 | 2e 30 29 20 47 4f 54 4f |F(NSA.EQ|.0) GOTO|
|0002fbd0| 20 32 34 35 0a 43 0a 43 | 20 20 4d 41 4b 45 20 49 | 245.C.C| MAKE I|
|0002fbe0| 4e 49 54 49 41 4c 20 45 | 53 54 49 4d 41 54 45 20 |NITIAL E|STIMATE |
|0002fbf0| 4f 46 20 41 51 55 45 4f | 55 53 20 50 52 4f 44 2e |OF AQUEO|US PROD.|
|0002fc00| 53 50 45 43 49 45 20 43 | 4f 4e 43 45 4e 54 52 41 |SPECIE C|ONCENTRA|
|0002fc10| 54 49 4f 4e 53 0a 20 20 | 20 20 20 20 44 4f 20 32 |TIONS. | DO 2|
|0002fc20| 34 30 20 49 3d 31 2c 4e | 53 41 0a 20 20 20 20 20 |40 I=1,N|SA. |
|0002fc30| 20 4b 3d 38 2b 4e 53 4f | 2b 49 0a 20 20 20 20 20 | K=8+NSO|+I. |
|0002fc40| 20 49 46 28 46 41 43 28 | 31 2c 49 29 2e 4e 45 2e | IF(FAC(|1,I).NE.|
|0002fc50| 5a 45 52 4f 2e 41 4e 44 | 2e 46 41 43 28 32 2c 49 |ZERO.AND|.FAC(2,I|
|0002fc60| 29 2e 4e 45 2e 5a 45 52 | 4f 2e 41 4e 44 2e 46 41 |).NE.ZER|O.AND.FA|
|0002fc70| 43 28 33 2c 49 29 2e 4e | 45 2e 5a 45 52 4f 2e 0a |C(3,I).N|E.ZERO..|
|0002fc80| 20 20 20 20 20 26 41 4e | 44 2e 46 41 43 28 34 2c | &AN|D.FAC(4,|
|0002fc90| 49 29 2e 4e 45 2e 5a 45 | 52 4f 2e 41 4e 44 2e 46 |I).NE.ZE|RO.AND.F|
|0002fca0| 41 43 28 35 2c 49 29 2e | 4e 45 2e 5a 45 52 4f 2e |AC(5,I).|NE.ZERO.|
|0002fcb0| 41 4e 44 2e 46 41 43 28 | 36 2c 49 29 2e 4e 45 2e |AND.FAC(|6,I).NE.|
|0002fcc0| 5a 45 52 4f 2e 0a 20 20 | 20 20 20 26 41 4e 44 2e |ZERO.. | &AND.|
|0002fcd0| 46 41 43 28 37 2c 49 29 | 2e 4e 45 2e 5a 45 52 4f |FAC(7,I)|.NE.ZERO|
|0002fce0| 29 20 47 4f 54 4f 20 32 | 32 30 0a 43 20 20 20 54 |) GOTO 2|20.C T|
|0002fcf0| 48 49 53 20 53 50 45 43 | 49 45 53 20 43 41 4e 27 |HIS SPEC|IES CAN'|
|0002fd00| 54 20 46 4f 52 4d 0a 20 | 20 20 20 20 20 43 53 28 |T FORM. | CS(|
|0002fd10| 4b 29 3d 5a 45 52 4f 0a | 20 20 20 20 20 20 47 4f |K)=ZERO.| GO|
|0002fd20| 54 4f 20 32 34 30 0a 43 | 20 20 20 54 48 49 53 20 |TO 240.C| THIS |
|0002fd30| 53 50 45 43 49 45 53 20 | 43 41 4e 20 46 4f 52 4d |SPECIES |CAN FORM|
|0002fd40| 0a 32 32 30 20 20 20 4e | 46 28 4a 29 3d 4b 0a 20 |.220 N|F(J)=K. |
|0002fd50| 20 20 20 20 20 4a 3d 4a | 2b 31 0a 20 20 20 20 20 | J=J|+1. |
|0002fd60| 20 49 46 28 49 53 54 2e | 47 54 2e 31 29 20 47 4f | IF(IST.|GT.1) GO|
|0002fd70| 54 4f 20 32 34 30 0a 43 | 20 20 20 20 45 53 54 49 |TO 240.C| ESTI|
|0002fd80| 4d 41 54 45 20 53 50 45 | 43 49 45 20 43 4f 4e 43 |MATE SPE|CIE CONC|
|0002fd90| 45 4e 54 52 41 54 49 4f | 4e 0a 20 20 20 20 20 20 |ENTRATIO|N. |
|0002fda0| 44 4f 20 32 32 35 20 4c | 3d 31 2c 37 0a 20 20 20 |DO 225 L|=1,7. |
|0002fdb0| 20 20 20 49 46 28 45 41 | 43 28 4c 2c 49 29 2e 4e | IF(EA|C(L,I).N|
|0002fdc0| 45 2e 5a 45 52 4f 29 20 | 46 41 43 28 4c 2c 49 29 |E.ZERO) |FAC(L,I)|
|0002fdd0| 3d 28 43 53 28 4c 29 2a | 47 28 4c 29 29 2a 2a 45 |=(CS(L)*|G(L))**E|
|0002fde0| 41 43 28 4c 2c 49 29 0a | 32 32 35 20 20 20 43 4f |AC(L,I).|225 CO|
|0002fdf0| 4e 54 49 4e 55 45 0a 20 | 20 20 20 20 20 49 46 28 |NTINUE. | IF(|
|0002fe00| 45 41 43 28 38 2c 49 29 | 2e 4e 45 2e 5a 45 52 4f |EAC(8,I)|.NE.ZERO|
|0002fe10| 29 20 46 41 43 28 38 2c | 49 29 3d 41 57 2a 2a 45 |) FAC(8,|I)=AW**E|
|0002fe20| 41 43 28 38 2c 49 29 0a | 20 20 20 20 20 20 43 53 |AC(8,I).| CS|
|0002fe30| 28 4b 29 3d 46 41 4b 28 | 49 29 2a 46 41 43 28 33 |(K)=FAK(|I)*FAC(3|
|0002fe40| 2c 49 29 2a 46 41 43 28 | 34 2c 49 29 2a 46 41 43 |,I)*FAC(|4,I)*FAC|
|0002fe50| 28 31 2c 49 29 2a 46 41 | 43 28 32 2c 49 29 2a 0a |(1,I)*FA|C(2,I)*.|
|0002fe60| 20 20 20 20 20 26 46 41 | 43 28 35 2c 49 29 2a 46 | &FA|C(5,I)*F|
|0002fe70| 41 43 28 36 2c 49 29 2a | 46 41 43 28 37 2c 49 29 |AC(6,I)*|FAC(7,I)|
|0002fe80| 2a 46 41 43 28 38 2c 49 | 29 2f 47 28 4b 29 20 20 |*FAC(8,I|)/G(K) |
|0002fe90| 20 20 20 0a 43 20 20 20 | 44 4f 45 53 20 54 48 49 | .C |DOES THI|
|0002fea0| 53 20 43 4f 4e 43 45 4e | 54 52 41 54 49 4f 4e 20 |S CONCEN|TRATION |
|0002feb0| 45 58 43 45 45 44 20 54 | 48 45 20 54 4f 54 41 4c |EXCEED T|HE TOTAL|
|0002fec0| 20 53 55 50 50 4c 59 20 | 4f 46 20 41 0a 43 20 20 | SUPPLY |OF A.C |
|0002fed0| 20 20 4e 45 45 44 45 44 | 20 52 45 41 43 54 41 4e | NEEDED| REACTAN|
|0002fee0| 54 3f 0a 20 20 20 20 20 | 20 44 4f 20 32 33 30 20 |T?. | DO 230 |
|0002fef0| 4c 3d 31 2c 32 0a 20 20 | 20 20 20 20 49 46 28 54 |L=1,2. | IF(T|
|0002ff00| 43 53 28 4c 29 2e 47 54 | 2e 5a 45 52 4f 2e 41 4e |CS(L).GT|.ZERO.AN|
|0002ff10| 44 2e 52 41 43 28 4c 2c | 49 29 2e 47 54 2e 5a 45 |D.RAC(L,|I).GT.ZE|
|0002ff20| 52 4f 29 20 54 48 45 4e | 0a 43 20 20 20 20 20 20 |RO) THEN|.C |
|0002ff30| 50 52 4f 44 55 43 54 20 | 53 50 45 43 49 45 53 20 |PRODUCT |SPECIES |
|0002ff40| 43 4f 4e 54 41 49 4e 53 | 20 54 48 49 53 20 52 45 |CONTAINS| THIS RE|
|0002ff50| 41 43 54 41 4e 54 20 0a | 20 20 20 20 20 20 20 20 |ACTANT .| |
|0002ff60| 53 50 43 4d 58 3d 28 54 | 43 53 28 4c 29 2f 52 41 |SPCMX=(T|CS(L)/RA|
|0002ff70| 43 28 4c 2c 49 29 29 2f | 52 41 4f 0a 20 20 20 20 |C(L,I))/|RAO. |
|0002ff80| 20 20 20 20 49 46 28 53 | 50 43 4d 58 2e 4c 54 2e | IF(S|PCMX.LT.|
|0002ff90| 43 53 28 4b 29 29 20 54 | 48 45 4e 0a 20 20 20 20 |CS(K)) T|HEN. |
|0002ffa0| 20 20 20 20 20 20 43 53 | 28 4b 29 3d 53 50 43 4d | CS|(K)=SPCM|
|0002ffb0| 58 2f 54 57 4f 0a 20 20 | 20 20 20 20 20 20 45 4e |X/TWO. | EN|
|0002ffc0| 44 20 49 46 0a 20 20 20 | 20 20 20 45 4e 44 20 49 |D IF. | END I|
|0002ffd0| 46 0a 32 33 30 20 20 20 | 43 4f 4e 54 49 4e 55 45 |F.230 |CONTINUE|
|0002ffe0| 0a 20 20 20 20 20 20 44 | 4f 20 32 33 35 20 4c 3d |. D|O 235 L=|
|0002fff0| 33 2c 36 0a 20 20 20 20 | 20 20 49 46 28 54 43 53 |3,6. | IF(TCS|
|00030000| 28 4c 29 2e 47 54 2e 5a | 45 52 4f 2e 41 4e 44 2e |(L).GT.Z|ERO.AND.|
|00030010| 52 41 43 28 4c 2c 49 29 | 2e 47 54 2e 5a 45 52 4f |RAC(L,I)|.GT.ZERO|
|00030020| 29 20 54 48 45 4e 0a 43 | 20 20 20 20 20 20 50 52 |) THEN.C| PR|
|00030030| 4f 44 55 43 54 20 53 50 | 45 43 49 45 53 20 43 4f |ODUCT SP|ECIES CO|
|00030040| 4e 54 41 49 4e 53 20 54 | 48 49 53 20 52 45 41 43 |NTAINS T|HIS REAC|
|00030050| 54 41 4e 54 20 0a 20 20 | 20 20 20 20 20 20 53 50 |TANT . | SP|
|00030060| 43 4d 58 3d 54 43 53 28 | 4c 29 2f 52 41 43 28 4c |CMX=TCS(|L)/RAC(L|
|00030070| 2c 49 29 0a 20 20 20 20 | 20 20 20 20 49 46 28 53 |,I). | IF(S|
|00030080| 50 43 4d 58 2e 4c 54 2e | 43 53 28 4b 29 29 20 54 |PCMX.LT.|CS(K)) T|
|00030090| 48 45 4e 0a 20 20 20 20 | 20 20 20 20 20 20 43 53 |HEN. | CS|
|000300a0| 28 4b 29 3d 53 50 43 4d | 58 2f 54 57 4f 0a 20 20 |(K)=SPCM|X/TWO. |
|000300b0| 20 20 20 20 20 20 45 4e | 44 20 49 46 0a 20 20 20 | EN|D IF. |
|000300c0| 20 20 20 45 4e 44 20 49 | 46 0a 32 33 35 20 20 20 | END I|F.235 |
|000300d0| 43 4f 4e 54 49 4e 55 45 | 20 20 20 20 20 20 20 20 |CONTINUE| |
|000300e0| 20 0a 32 34 30 20 20 20 | 43 4f 4e 54 49 4e 55 45 | .240 |CONTINUE|
|000300f0| 0a 43 0a 32 34 35 20 20 | 20 4e 45 51 3d 4a 2d 31 |.C.245 | NEQ=J-1|
|00030100| 0a 43 0a 20 20 20 20 20 | 20 49 46 28 49 53 54 2e |.C. | IF(IST.|
|00030110| 47 54 2e 31 29 20 47 4f | 54 4f 20 32 35 35 0a 43 |GT.1) GO|TO 255.C|
|00030120| 20 53 54 4f 52 45 20 45 | 53 54 49 4d 41 54 45 53 | STORE E|STIMATES|
|00030130| 20 4f 46 20 53 50 45 43 | 49 45 20 43 4f 4e 43 45 | OF SPEC|IE CONCE|
|00030140| 4e 54 52 41 54 49 4f 4e | 53 0a 20 20 20 20 20 20 |NTRATION|S. |
|00030150| 44 4f 20 32 35 30 20 49 | 3d 31 2c 28 38 2b 4e 53 |DO 250 I|=1,(8+NS|
|00030160| 4f 2b 4e 53 41 29 0a 20 | 20 20 20 20 20 49 46 28 |O+NSA). | IF(|
|00030170| 43 53 28 49 29 2e 45 51 | 2e 5a 45 52 4f 29 20 58 |CS(I).EQ|.ZERO) X|
|00030180| 43 28 49 29 3d 58 30 0a | 20 20 20 20 20 20 49 46 |C(I)=X0.| IF|
|00030190| 28 43 53 28 49 29 2e 47 | 54 2e 5a 45 52 4f 29 20 |(CS(I).G|T.ZERO) |
|000301a0| 58 43 28 49 29 3d 44 4c | 4f 47 31 30 28 43 53 28 |XC(I)=DL|OG10(CS(|
|000301b0| 49 29 29 0a 32 35 30 20 | 20 20 43 4f 4e 54 49 4e |I)).250 | CONTIN|
|000301c0| 55 45 0a 32 35 35 20 20 | 20 43 4f 4e 54 49 4e 55 |UE.255 | CONTINU|
|000301d0| 45 0a 43 20 53 45 54 20 | 54 45 4e 54 41 54 49 56 |E.C SET |TENTATIV|
|000301e0| 45 20 56 41 4c 55 45 53 | 20 4f 46 20 4d 41 54 45 |E VALUES| OF MATE|
|000301f0| 52 49 41 4c 20 42 41 4c | 41 4e 43 45 20 46 41 43 |RIAL BAL|ANCE FAC|
|00030200| 54 4f 52 53 0a 20 20 20 | 20 20 20 52 4d 42 41 3d |TORS. | RMBA=|
|00030210| 4f 4e 45 0a 20 20 20 20 | 20 20 52 4d 42 4f 3d 4f |ONE. | RMBO=O|
|00030220| 4e 45 0a 43 0a 20 20 20 | 20 20 20 52 45 54 55 52 |NE.C. | RETUR|
|00030230| 4e 0a 43 0a 43 20 20 43 | 41 4c 4c 45 44 20 46 52 |N.C.C C|ALLED FR|
|00030240| 4f 4d 20 52 45 46 49 4e | 45 4d 45 4e 54 2d 53 55 |OM REFIN|EMENT-SU|
|00030250| 42 52 4f 55 54 49 4e 45 | 20 48 59 42 52 44 32 20 |BROUTINE| HYBRD2 |
|00030260| 20 20 20 20 0a 20 20 20 | 20 20 20 45 4e 54 52 59 | . | ENTRY|
|00030270| 20 45 4e 54 46 43 4e 28 | 4e 45 51 2c 58 43 4c 2c | ENTFCN(|NEQ,XCL,|
|00030280| 46 43 4c 2c 49 45 52 2c | 50 2c 57 2c 56 2c 0a 20 |FCL,IER,|P,W,V,. |
|00030290| 20 20 20 20 26 56 30 2c | 53 56 2c 43 53 2c 52 4f | &V0,|SV,CS,RO|
|000302a0| 43 2c 52 41 43 2c 45 4f | 43 2c 43 45 4f 43 2c 52 |C,RAC,EO|C,CEOC,R|
|000302b0| 45 4f 43 2c 53 45 4f 43 | 2c 45 41 43 2c 46 4f 43 |EOC,SEOC|,EAC,FOC|
|000302c0| 2c 46 41 43 2c 46 4f 4b | 2c 52 46 4f 4b 2c 0a 20 |,FAC,FOK|,RFOK,. |
|000302d0| 20 20 20 20 26 53 46 4f | 4b 2c 46 41 4b 2c 41 4d | &SFO|K,FAK,AM|
|000302e0| 2c 42 4d 2c 43 4d 2c 42 | 30 2c 42 31 2c 42 32 2c |,BM,CM,B|0,B1,B2,|
|000302f0| 43 50 2c 41 4c 50 2c 42 | 50 2c 42 47 2c 42 47 50 |CP,ALP,B|P,BG,BGP|
|00030300| 2c 43 47 2c 0a 20 20 20 | 20 20 26 50 43 43 2c 45 |,CG,. | &PCC,E|
|00030310| 54 48 43 2c 45 54 48 43 | 50 2c 50 41 41 2c 45 54 |THC,ETHC|P,PAA,ET|
|00030320| 48 41 2c 45 54 48 41 50 | 2c 50 43 43 41 2c 50 43 |HA,ETHAP|,PCCA,PC|
|00030330| 41 41 2c 44 43 41 2c 50 | 4e 43 2c 50 4e 41 2c 50 |AA,DCA,P|NC,PNA,P|
|00030340| 4e 4e 2c 5a 41 2c 5a 46 | 41 2c 0a 20 20 20 20 20 |NN,ZA,ZF|A,. |
|00030350| 26 5a 43 2c 5a 46 43 2c | 47 2c 47 4f 2c 47 58 30 |&ZC,ZFC,|G,GO,GX0|
|00030360| 2c 56 52 54 2c 50 48 2c | 50 48 56 2c 58 46 2c 47 |,VRT,PH,|PHV,XF,G|
|00030370| 58 2c 41 43 2c 58 2c 58 | 43 2c 43 41 50 2c 0a 20 |X,AC,X,X|C,CAP,. |
|00030380| 20 20 20 20 26 43 4f 50 | 2c 52 5a 49 52 2c 53 43 | &COP|,RZIR,SC|
|00030390| 50 53 49 2c 4e 43 4f 50 | 2c 4e 43 41 50 2c 4e 46 |PSI,NCOP|,NCAP,NF|
|000303a0| 2c 49 43 41 2c 49 41 4e | 2c 49 4e 55 2c 49 50 54 |,ICA,IAN|,INU,IPT|
|000303b0| 2c 4e 5a 41 2c 4e 5a 50 | 4f 2c 49 59 2c 4e 43 41 |,NZA,NZP|O,IY,NCA|
|000303c0| 4c 2c 0a 20 20 20 20 20 | 26 49 45 51 2c 49 45 48 |L,. |&IEQ,IEH|
|000303d0| 2c 49 43 4e 2c 49 53 54 | 2c 49 44 43 2c 4e 50 53 |,ICN,IST|,IDC,NPS|
|000303e0| 49 29 0a 43 20 20 41 53 | 53 49 47 4e 20 43 55 52 |I).C AS|SIGN CUR|
|000303f0| 52 45 4e 54 20 53 50 45 | 43 49 45 20 43 4f 4e 43 |RENT SPE|CIE CONC|
|00030400| 45 4e 54 52 41 54 49 4f | 4e 53 0a 20 20 20 20 20 |ENTRATIO|NS. |
|00030410| 20 44 4f 20 32 36 30 20 | 4a 3d 31 2c 4e 45 51 20 | DO 260 |J=1,NEQ |
|00030420| 20 20 20 0a 20 20 20 20 | 20 20 49 46 28 4e 46 28 | . | IF(NF(|
|00030430| 4a 29 2e 45 51 2e 31 29 | 20 43 53 28 31 29 3d 54 |J).EQ.1)| CS(1)=T|
|00030440| 45 4e 2a 2a 58 43 4c 28 | 4a 29 2f 52 4e 41 0a 20 |EN**XCL(|J)/RNA. |
|00030450| 20 20 20 20 20 49 46 28 | 4e 46 28 4a 29 2e 45 51 | IF(|NF(J).EQ|
|00030460| 2e 32 29 20 43 53 28 32 | 29 3d 54 45 4e 2a 2a 58 |.2) CS(2|)=TEN**X|
|00030470| 43 4c 28 4a 29 2f 52 4e | 42 0a 20 20 20 20 20 20 |CL(J)/RN|B. |
|00030480| 49 46 28 4e 46 28 4a 29 | 2e 47 54 2e 32 29 20 43 |IF(NF(J)|.GT.2) C|
|00030490| 53 28 4e 46 28 4a 29 29 | 3d 54 45 4e 2a 2a 58 43 |S(NF(J))|=TEN**XC|
|000304a0| 4c 28 4a 29 20 20 20 20 | 20 20 0a 32 36 30 20 20 |L(J) | .260 |
|000304b0| 20 43 4f 4e 54 49 4e 55 | 45 20 0a 20 20 20 20 20 | CONTINU|E . |
|000304c0| 20 49 46 28 4e 43 41 4c | 2e 45 51 2e 32 2e 4f 52 | IF(NCAL|.EQ.2.OR|
|000304d0| 2e 49 45 48 2e 4c 54 2e | 32 29 20 47 4f 54 4f 20 |.IEH.LT.|2) GOTO |
|000304e0| 32 37 30 0a 43 20 20 45 | 53 54 41 42 4c 49 53 48 |270.C E|STABLISH|
|000304f0| 20 43 48 41 52 47 45 20 | 42 41 4c 41 4e 43 45 20 | CHARGE |BALANCE |
|00030500| 49 4e 20 54 48 45 20 41 | 51 55 45 4f 55 53 20 50 |IN THE A|QUEOUS P|
|00030510| 48 41 53 45 20 49 46 20 | 45 51 55 49 4c 49 42 52 |HASE IF |EQUILIBR|
|00030520| 49 55 4d 0a 43 20 20 20 | 48 2b 20 48 41 53 20 42 |IUM.C |H+ HAS B|
|00030530| 45 45 4e 20 53 50 45 43 | 49 46 49 45 44 0a 20 20 |EEN SPEC|IFIED. |
|00030540| 20 20 20 20 46 43 42 3d | 4e 5a 41 28 31 29 2a 43 | FCB=|NZA(1)*C|
|00030550| 53 28 33 29 2b 4e 5a 41 | 28 32 29 2a 43 53 28 34 |S(3)+NZA|(2)*CS(4|
|00030560| 29 2b 43 53 28 37 29 2d | 4e 5a 41 28 34 29 2a 43 |)+CS(7)-|NZA(4)*C|
|00030570| 53 28 35 29 2d 0a 20 20 | 20 20 20 26 4e 5a 41 28 |S(5)-. | &NZA(|
|00030580| 35 29 2a 43 53 28 36 29 | 2d 43 53 28 38 29 0a 20 |5)*CS(6)|-CS(8). |
|00030590| 20 20 20 20 20 44 4f 20 | 32 36 35 20 49 3d 31 2c | DO |265 I=1,|
|000305a0| 4e 53 41 0a 20 20 20 20 | 20 20 46 43 42 3d 46 43 |NSA. | FCB=FC|
|000305b0| 42 2b 4e 5a 41 28 36 2b | 49 29 2a 43 53 28 38 2b |B+NZA(6+|I)*CS(8+|
|000305c0| 4e 53 4f 2b 49 29 0a 32 | 36 35 20 20 20 43 4f 4e |NSO+I).2|65 CON|
|000305d0| 54 49 4e 55 45 0a 20 20 | 20 20 20 20 49 46 28 49 |TINUE. | IF(I|
|000305e0| 45 48 2e 45 51 2e 32 29 | 20 54 48 45 4e 20 0a 20 |EH.EQ.2)| THEN . |
|000305f0| 20 20 20 20 20 20 20 43 | 53 28 33 29 3d 43 53 28 | C|S(3)=CS(|
|00030600| 33 29 2d 46 43 42 2f 4e | 5a 41 28 31 29 0a 20 20 |3)-FCB/N|ZA(1). |
|00030610| 20 20 20 20 20 20 49 46 | 28 43 53 28 33 29 2e 4c | IF|(CS(3).L|
|00030620| 54 2e 5a 45 52 4f 29 20 | 54 48 45 4e 0a 20 20 20 |T.ZERO) |THEN. |
|00030630| 20 20 20 20 20 20 20 57 | 52 49 54 45 28 39 2c 31 | W|RITE(9,1|
|00030640| 30 30 33 29 0a 20 20 20 | 20 20 20 20 20 20 20 57 |003). | W|
|00030650| 52 49 54 45 28 31 32 2c | 31 30 30 33 29 0a 31 30 |RITE(12,|1003).10|
|00030660| 30 33 20 20 46 4f 52 4d | 41 54 28 31 58 2c 27 41 |03 FORM|AT(1X,'A|
|00030670| 51 2e 43 48 41 52 47 45 | 20 42 41 4c 41 4e 43 45 |Q.CHARGE| BALANCE|
|00030680| 20 4e 4f 54 20 4d 41 49 | 4e 54 41 49 4e 45 44 20 | NOT MAI|NTAINED |
|00030690| 49 4e 20 45 4e 54 46 43 | 4e 27 2f 29 0a 20 20 20 |IN ENTFC|N'/). |
|000306a0| 20 20 20 20 20 20 20 50 | 41 55 53 45 0a 20 20 20 | P|AUSE. |
|000306b0| 20 20 20 20 20 20 20 53 | 54 4f 50 0a 20 20 20 20 | S|TOP. |
|000306c0| 20 20 20 20 45 4e 44 20 | 49 46 0a 20 20 20 20 20 | END |IF. |
|000306d0| 20 45 4e 44 20 49 46 0a | 20 20 20 20 20 20 49 46 | END IF.| IF|
|000306e0| 28 49 45 48 2e 45 51 2e | 33 29 20 54 48 45 4e 0a |(IEH.EQ.|3) THEN.|
|000306f0| 20 20 20 20 20 20 20 20 | 43 53 28 34 29 3d 43 53 | |CS(4)=CS|
|00030700| 28 34 29 2d 46 43 42 2f | 4e 5a 41 28 32 29 0a 20 |(4)-FCB/|NZA(2). |
|00030710| 20 20 20 20 20 20 20 49 | 46 28 43 53 28 34 29 2e | I|F(CS(4).|
|00030720| 4c 54 2e 5a 45 52 4f 29 | 20 54 48 45 4e 0a 20 20 |LT.ZERO)| THEN. |
|00030730| 20 20 20 20 20 20 20 20 | 57 52 49 54 45 28 39 2c | |WRITE(9,|
|00030740| 31 30 30 33 29 0a 20 20 | 20 20 20 20 20 20 20 20 |1003). | |
|00030750| 57 52 49 54 45 28 31 32 | 2c 31 30 30 33 29 0a 20 |WRITE(12|,1003). |
|00030760| 20 20 20 20 20 20 20 20 | 20 50 41 55 53 45 0a 20 | | PAUSE. |
|00030770| 20 20 20 20 20 20 20 20 | 20 53 54 4f 50 0a 20 20 | | STOP. |
|00030780| 20 20 20 20 20 20 45 4e | 44 20 49 46 0a 20 20 20 | EN|D IF. |
|00030790| 20 20 20 45 4e 44 20 49 | 46 0a 20 20 20 20 20 20 | END I|F. |
|000307a0| 49 46 28 49 45 48 2e 45 | 51 2e 34 29 20 54 48 45 |IF(IEH.E|Q.4) THE|
|000307b0| 4e 0a 20 20 20 20 20 20 | 20 20 43 53 28 35 29 3d |N. | CS(5)=|
|000307c0| 43 53 28 35 29 2b 46 43 | 42 2f 4e 5a 41 28 34 29 |CS(5)+FC|B/NZA(4)|
|000307d0| 0a 20 20 20 20 20 20 20 | 20 49 46 28 43 53 28 35 |. | IF(CS(5|
|000307e0| 29 2e 4c 54 2e 5a 45 52 | 4f 29 20 54 48 45 4e 0a |).LT.ZER|O) THEN.|
|000307f0| 09 20 20 57 52 49 54 45 | 28 39 2c 31 30 30 33 29 |. WRITE|(9,1003)|
|00030800| 0a 20 20 20 20 20 20 20 | 20 20 20 57 52 49 54 45 |. | WRITE|
|00030810| 28 31 32 2c 31 30 30 33 | 29 0a 20 20 20 20 20 20 |(12,1003|). |
|00030820| 20 20 20 20 50 41 55 53 | 45 0a 20 20 20 20 20 20 | PAUS|E. |
|00030830| 20 20 20 20 53 54 4f 50 | 0a 20 20 20 20 20 20 20 | STOP|. |
|00030840| 20 45 4e 44 20 49 46 0a | 20 20 20 20 20 20 45 4e | END IF.| EN|
|00030850| 44 20 49 46 0a 20 20 20 | 20 20 20 49 46 28 49 45 |D IF. | IF(IE|
|00030860| 48 2e 45 51 2e 35 29 20 | 54 48 45 4e 0a 20 20 20 |H.EQ.5) |THEN. |
|00030870| 20 20 20 20 20 43 53 28 | 36 29 3d 43 53 28 36 29 | CS(|6)=CS(6)|
|00030880| 2b 46 43 42 2f 4e 5a 41 | 28 35 29 0a 20 20 20 20 |+FCB/NZA|(5). |
|00030890| 20 20 20 20 49 46 28 43 | 53 28 36 29 2e 4c 54 2e | IF(C|S(6).LT.|
|000308a0| 5a 45 52 4f 29 20 54 48 | 45 4e 0a 20 20 20 20 20 |ZERO) TH|EN. |
|000308b0| 20 20 20 20 20 57 52 49 | 54 45 28 39 2c 31 30 30 | WRI|TE(9,100|
|000308c0| 33 29 0a 20 20 20 20 20 | 20 20 20 20 20 57 52 49 |3). | WRI|
|000308d0| 54 45 28 31 32 2c 31 30 | 30 33 29 0a 20 20 20 20 |TE(12,10|03). |
|000308e0| 20 20 20 20 20 20 50 41 | 55 53 45 0a 20 20 20 20 | PA|USE. |
|000308f0| 20 20 20 20 20 20 53 54 | 4f 50 0a 20 20 20 20 20 | ST|OP. |
|00030900| 20 20 20 45 4e 44 20 49 | 46 0a 20 20 20 20 20 20 | END I|F. |
|00030910| 45 4e 44 20 49 46 0a 43 | 20 20 45 56 41 4c 55 41 |END IF.C| EVALUA|
|00030920| 54 45 20 41 43 54 49 56 | 49 54 59 20 43 4f 45 46 |TE ACTIV|ITY COEF|
|00030930| 46 49 43 49 45 4e 54 53 | 20 41 4e 44 20 4d 41 54 |FICIENTS| AND MAT|
|00030940| 45 52 49 41 4c 20 42 41 | 4c 41 4e 43 45 20 46 41 |ERIAL BA|LANCE FA|
|00030950| 43 54 4f 52 53 0a 32 37 | 30 20 20 20 49 46 28 4e |CTORS.27|0 IF(N|
|00030960| 43 41 4c 2e 45 51 2e 31 | 2e 4f 52 2e 4e 43 41 4c |CAL.EQ.1|.OR.NCAL|
|00030970| 2e 45 51 2e 32 29 20 54 | 48 45 4e 0a 43 20 20 20 |.EQ.2) T|HEN.C |
|00030980| 20 20 20 4e 4f 4e 41 51 | 55 45 4f 55 53 20 50 48 | NONAQ|UEOUS PH|
|00030990| 41 53 45 20 49 53 20 50 | 52 45 53 45 4e 54 0a 20 |ASE IS P|RESENT. |
|000309a0| 20 20 20 20 20 20 20 43 | 41 4c 4c 20 45 4e 54 4f | C|ALL ENTO|
|000309b0| 41 43 28 50 2c 57 2c 56 | 2c 58 46 2c 47 58 2c 43 |AC(P,W,V|,XF,GX,C|
|000309c0| 53 2c 47 2c 0a 20 20 20 | 20 20 26 20 20 41 43 2c |S,G,. | & AC,|
|000309d0| 47 4f 2c 47 58 30 2c 56 | 52 54 2c 50 48 2c 50 48 |GO,GX0,V|RT,PH,PH|
|000309e0| 56 2c 4e 5a 50 4f 2c 49 | 43 4e 29 0a 20 20 20 20 |V,NZPO,I|CN). |
|000309f0| 20 20 20 20 49 46 28 4e | 43 41 4c 2e 45 51 2e 32 | IF(N|CAL.EQ.2|
|00030a00| 29 20 54 48 45 4e 0a 43 | 20 20 20 20 20 20 20 20 |) THEN.C| |
|00030a10| 4f 4e 4c 59 20 4e 4f 4e | 41 51 55 45 4f 55 53 20 |ONLY NON|AQUEOUS |
|00030a20| 50 48 41 53 45 20 49 53 | 20 50 52 45 53 45 4e 54 |PHASE IS| PRESENT|
|00030a30| 0a 20 20 20 20 20 20 20 | 20 20 20 52 4d 42 4f 3d |. | RMBO=|
|00030a40| 4f 4e 45 0a 20 20 20 20 | 20 20 20 20 45 4c 53 45 |ONE. | ELSE|
|00030a50| 0a 43 20 20 20 20 20 20 | 20 20 42 4f 54 48 20 50 |.C | BOTH P|
|00030a60| 48 41 53 45 53 20 41 52 | 45 20 50 52 45 53 45 4e |HASES AR|E PRESEN|
|00030a70| 54 0a 20 20 20 20 20 20 | 20 20 20 20 49 46 28 49 |T. | IF(I|
|00030a80| 43 4e 2e 45 51 2e 31 29 | 20 52 4d 42 4f 3d 28 54 |CN.EQ.1)| RMBO=(T|
|00030a90| 48 4f 55 2d 54 53 4f 49 | 29 2f 28 54 48 4f 55 2d |HOU-TSOI|)/(THOU-|
|00030aa0| 54 56 53 4f 29 0a 20 20 | 20 20 20 20 20 20 20 20 |TVSO). | |
|00030ab0| 49 46 28 49 43 4e 2e 45 | 51 2e 32 29 20 52 4d 42 |IF(ICN.E|Q.2) RMB|
|00030ac0| 4f 3d 4f 4e 45 0a 20 20 | 20 20 20 20 20 20 20 20 |O=ONE. | |
|00030ad0| 49 46 28 49 43 4e 2e 45 | 51 2e 33 29 20 52 4d 42 |IF(ICN.E|Q.3) RMB|
|00030ae0| 4f 3d 28 54 48 4f 55 2d | 54 53 4f 49 29 2f 28 54 |O=(THOU-|TSOI)/(T|
|00030af0| 48 4f 55 2d 54 57 53 4f | 29 0a 20 20 20 20 20 20 |HOU-TWSO|). |
|00030b00| 20 20 45 4e 44 20 49 46 | 0a 20 20 20 20 20 20 45 | END IF|. E|
|00030b10| 4e 44 20 49 46 0a 20 20 | 20 20 20 20 49 46 28 4e |ND IF. | IF(N|
|00030b20| 43 41 4c 2e 45 51 2e 31 | 2e 4f 52 2e 4e 43 41 4c |CAL.EQ.1|.OR.NCAL|
|00030b30| 2e 45 51 2e 33 29 20 54 | 48 45 4e 0a 43 20 20 20 |.EQ.3) T|HEN.C |
|00030b40| 20 20 20 41 51 55 45 4f | 55 53 20 50 48 41 53 45 | AQUEO|US PHASE|
|00030b50| 20 50 52 45 53 45 4e 54 | 20 20 20 20 20 20 0a 20 | PRESENT| . |
|00030b60| 20 20 20 20 20 20 20 43 | 41 4c 4c 20 45 4e 54 41 | C|ALL ENTA|
|00030b70| 41 43 28 50 2c 57 2c 56 | 2c 56 30 2c 53 56 2c 43 |AC(P,W,V|,V0,SV,C|
|00030b80| 53 2c 41 4d 2c 0a 20 20 | 20 20 20 26 20 20 42 4d |S,AM,. | & BM|
|00030b90| 2c 43 4d 2c 42 30 2c 42 | 31 2c 42 32 2c 43 50 2c |,CM,B0,B|1,B2,CP,|
|00030ba0| 41 4c 50 2c 42 50 2c 42 | 47 2c 42 47 50 2c 43 47 |ALP,BP,B|G,BGP,CG|
|00030bb0| 2c 50 43 43 2c 45 54 48 | 43 2c 45 54 48 43 50 2c |,PCC,ETH|C,ETHCP,|
|00030bc0| 0a 20 20 20 20 20 26 20 | 20 50 41 41 2c 45 54 48 |. & | PAA,ETH|
|00030bd0| 41 2c 45 54 48 41 50 2c | 50 43 43 41 2c 50 43 41 |A,ETHAP,|PCCA,PCA|
|00030be0| 41 2c 44 43 41 2c 50 4e | 43 2c 50 4e 41 2c 50 4e |A,DCA,PN|C,PNA,PN|
|00030bf0| 4e 2c 5a 41 2c 5a 46 41 | 2c 5a 43 2c 5a 46 43 2c |N,ZA,ZFA|,ZC,ZFC,|
|00030c00| 47 2c 0a 20 20 20 20 20 | 26 20 20 49 43 41 2c 49 |G,. |& ICA,I|
|00030c10| 41 4e 2c 49 4e 55 2c 4e | 5a 41 2c 49 43 4e 2c 4e |AN,INU,N|ZA,ICN,N|
|00030c20| 43 41 4c 29 0a 43 0a 20 | 20 20 20 20 20 20 20 49 |CAL).C. | I|
|00030c30| 46 28 4e 43 41 4c 2e 45 | 51 2e 33 29 20 54 48 45 |F(NCAL.E|Q.3) THE|
|00030c40| 4e 0a 43 20 20 20 20 20 | 20 20 20 4f 4e 4c 59 20 |N.C | ONLY |
|00030c50| 41 51 55 45 4f 55 53 20 | 50 48 41 53 45 20 49 53 |AQUEOUS |PHASE IS|
|00030c60| 20 50 52 45 53 45 4e 54 | 0a 20 20 20 20 20 20 20 | PRESENT|. |
|00030c70| 20 20 20 52 4d 42 41 3d | 4f 4e 45 0a 43 20 20 20 | RMBA=|ONE.C |
|00030c80| 20 20 20 20 20 53 41 56 | 45 20 49 4e 49 54 49 41 | SAV|E INITIA|
|00030c90| 4c 20 45 51 55 49 4c 2e | 20 53 4f 4c 55 54 45 20 |L EQUIL.| SOLUTE |
|00030ca0| 56 4f 4c 55 4d 45 0a 20 | 20 20 20 20 20 20 20 20 |VOLUME. | |
|00030cb0| 20 49 46 28 49 43 4e 2e | 45 51 2e 31 29 20 54 53 | IF(ICN.|EQ.1) TS|
|00030cc0| 41 49 3d 54 56 53 41 0a | 20 20 20 20 20 20 20 20 |AI=TVSA.| |
|00030cd0| 45 4c 53 45 0a 20 20 20 | 20 20 20 20 20 20 20 53 |ELSE. | S|
|00030ce0| 57 50 4f 3d 5a 45 52 4f | 0a 20 20 20 20 20 20 20 |WPO=ZERO|. |
|00030cf0| 20 20 20 49 46 28 4e 53 | 4f 2e 47 54 2e 30 29 20 | IF(NS|O.GT.0) |
|00030d00| 54 48 45 4e 0a 43 20 20 | 20 20 20 20 20 20 20 20 |THEN.C | |
|00030d10| 43 41 4c 43 55 4c 41 54 | 45 20 4d 4d 4f 4c 53 20 |CALCULAT|E MMOLS |
|00030d20| 4f 46 20 57 41 54 45 52 | 20 52 45 4c 45 41 53 45 |OF WATER| RELEASE|
|00030d30| 44 20 42 59 20 46 4f 52 | 4d 41 54 49 4f 4e 20 4f |D BY FOR|MATION O|
|00030d40| 46 20 4e 4f 4e 41 51 2e | 0a 43 20 20 20 20 20 20 |F NONAQ.|.C |
|00030d50| 20 20 20 20 20 50 52 4f | 44 2e 53 50 2e 0a 20 20 | PRO|D.SP.. |
|00030d60| 20 20 20 20 20 20 20 20 | 20 20 44 4f 20 32 37 35 | | DO 275|
|00030d70| 20 49 3d 31 2c 4e 53 4f | 0a 20 20 20 20 20 20 20 | I=1,NSO|. |
|00030d80| 20 20 20 20 20 53 57 50 | 4f 3d 53 57 50 4f 2d 45 | SWP|O=SWPO-E|
|00030d90| 4f 43 28 38 2c 49 29 2a | 43 53 28 38 2b 49 29 0a |OC(8,I)*|CS(8+I).|
|00030da0| 32 37 35 20 20 20 20 20 | 20 20 20 20 43 4f 4e 54 |275 | CONT|
|00030db0| 49 4e 55 45 0a 20 20 20 | 20 20 20 20 20 20 20 20 |INUE. | |
|00030dc0| 20 56 57 50 4f 3d 52 4d | 42 4f 2a 50 52 2a 56 57 | VWPO=RM|BO*PR*VW|
|00030dd0| 4d 57 2a 53 57 50 4f 0a | 20 20 20 20 20 20 20 20 |MW*SWPO.| |
|00030de0| 20 20 45 4e 44 20 49 46 | 0a 20 20 20 20 20 20 20 | END IF|. |
|00030df0| 20 20 20 53 57 50 41 3d | 5a 45 52 4f 0a 20 20 20 | SWPA=|ZERO. |
|00030e00| 20 20 20 20 20 20 20 49 | 46 28 4e 53 41 2e 47 54 | I|F(NSA.GT|
|00030e10| 2e 30 29 20 54 48 45 4e | 0a 43 20 20 20 20 20 20 |.0) THEN|.C |
|00030e20| 20 20 20 20 43 41 4c 43 | 55 4c 41 54 45 20 4d 4d | CALC|ULATE MM|
|00030e30| 4f 4c 53 20 4f 46 20 57 | 41 54 45 52 20 52 45 4c |OLS OF W|ATER REL|
|00030e40| 45 41 53 45 44 20 42 59 | 20 46 4f 52 4d 41 54 49 |EASED BY| FORMATI|
|00030e50| 4f 4e 20 4f 46 20 41 51 | 2e 50 52 4f 44 2e 53 50 |ON OF AQ|.PROD.SP|
|00030e60| 2e 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 44 4f |.. | DO|
|00030e70| 20 32 38 30 20 49 3d 31 | 2c 4e 53 41 0a 20 20 20 | 280 I=1|,NSA. |
|00030e80| 20 20 20 20 20 20 20 20 | 20 53 57 50 41 3d 53 57 | | SWPA=SW|
|00030e90| 50 41 2d 45 41 43 28 38 | 2c 49 29 2a 43 53 28 38 |PA-EAC(8|,I)*CS(8|
|00030ea0| 2b 4e 53 4f 2b 49 29 0a | 32 38 30 20 20 20 20 20 |+NSO+I).|280 |
|00030eb0| 20 20 20 20 43 4f 4e 54 | 49 4e 55 45 0a 20 20 20 | CONT|INUE. |
|00030ec0| 20 20 20 20 20 20 20 20 | 20 56 57 50 41 3d 56 57 | | VWPA=VW|
|00030ed0| 4d 57 2a 53 57 50 41 0a | 20 20 20 20 20 20 20 20 |MW*SWPA.| |
|00030ee0| 20 20 45 4e 44 20 49 46 | 0a 20 20 20 20 20 20 20 | END IF|. |
|00030ef0| 20 20 20 49 46 28 49 43 | 4e 2e 45 51 2e 31 29 20 | IF(IC|N.EQ.1) |
|00030f00| 52 4d 42 41 3d 28 54 48 | 4f 55 2d 54 53 41 49 2b |RMBA=(TH|OU-TSAI+|
|00030f10| 56 57 50 4f 29 2f 28 54 | 48 4f 55 2d 54 56 53 41 |VWPO)/(T|HOU-TVSA|
|00030f20| 2d 56 57 50 41 29 0a 20 | 20 20 20 20 20 20 20 20 |-VWPA). | |
|00030f30| 20 49 46 28 49 43 4e 2e | 45 51 2e 32 29 20 52 4d | IF(ICN.|EQ.2) RM|
|00030f40| 42 41 3d 28 54 48 4f 55 | 2b 56 57 50 4f 29 2f 28 |BA=(THOU|+VWPO)/(|
|00030f50| 54 48 4f 55 2d 56 57 50 | 41 29 0a 20 20 20 20 20 |THOU-VWP|A). |
|00030f60| 20 20 20 20 20 49 46 28 | 49 43 4e 2e 45 51 2e 33 | IF(|ICN.EQ.3|
|00030f70| 29 20 52 4d 42 41 3d 28 | 54 48 4f 55 2d 54 53 41 |) RMBA=(|THOU-TSA|
|00030f80| 49 2b 56 57 50 4f 29 2f | 28 54 48 4f 55 2d 54 57 |I+VWPO)/|(THOU-TW|
|00030f90| 53 41 2d 56 57 50 41 29 | 0a 20 20 20 20 20 20 20 |SA-VWPA)|. |
|00030fa0| 20 45 4e 44 20 49 46 0a | 20 20 20 20 20 20 45 4e | END IF.| EN|
|00030fb0| 44 20 49 46 0a 43 20 20 | 41 44 4a 55 53 54 20 43 |D IF.C |ADJUST C|
|00030fc0| 4f 4e 43 45 4e 54 52 41 | 54 49 4f 4e 53 20 4f 46 |ONCENTRA|TIONS OF|
|00030fd0| 20 53 50 45 43 49 45 53 | 20 4e 4f 54 20 42 45 45 | SPECIES| NOT BEE|
|00030fe0| 49 4e 47 20 52 45 46 49 | 4e 45 44 20 54 4f 20 43 |ING REFI|NED TO C|
|00030ff0| 4f 52 52 45 43 54 0a 43 | 20 20 20 46 4f 52 20 56 |ORRECT.C| FOR V|
|00031000| 4f 4c 55 4d 45 20 4f 52 | 20 57 45 49 47 48 54 20 |OLUME OR| WEIGHT |
|00031010| 43 48 41 4e 47 45 53 20 | 4f 46 20 54 48 45 20 54 |CHANGES |OF THE T|
|00031020| 57 4f 20 50 48 41 53 45 | 53 0a 20 20 20 20 20 20 |WO PHASE|S. |
|00031030| 44 4f 20 32 39 30 20 49 | 3d 31 2c 38 0a 20 20 20 |DO 290 I|=1,8. |
|00031040| 20 20 20 49 46 28 49 45 | 51 2e 45 51 2e 31 2e 41 | IF(IE|Q.EQ.1.A|
|00031050| 4e 44 2e 49 2e 47 54 2e | 32 29 20 47 4f 54 4f 20 |ND.I.GT.|2) GOTO |
|00031060| 32 39 30 0a 20 20 20 20 | 20 20 44 4f 20 32 38 35 |290. | DO 285|
|00031070| 20 4a 3d 31 2c 4e 45 51 | 0a 20 20 20 20 20 20 49 | J=1,NEQ|. I|
|00031080| 46 28 4e 46 28 4a 29 2e | 45 51 2e 49 29 20 47 4f |F(NF(J).|EQ.I) GO|
|00031090| 54 4f 20 32 39 30 20 20 | 20 20 20 20 0a 32 38 35 |TO 290 | .285|
|000310a0| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 20 20 20 20 | CONTI|NUE. |
|000310b0| 20 20 49 46 28 49 2e 4c | 45 2e 32 29 20 54 48 45 | IF(I.L|E.2) THE|
|000310c0| 4e 0a 20 20 20 20 20 20 | 20 20 49 46 28 4e 43 41 |N. | IF(NCA|
|000310d0| 4c 2e 4e 45 2e 33 29 20 | 54 48 45 4e 0a 43 20 20 |L.NE.3) |THEN.C |
|000310e0| 20 20 20 20 20 20 20 20 | 57 52 49 54 45 28 2a 2c | |WRITE(*,|
|000310f0| 31 32 33 34 29 20 4e 43 | 41 4c 2c 49 2c 54 43 53 |1234) NC|AL,I,TCS|
|00031100| 28 49 29 2c 52 4d 42 4f | 0a 43 31 32 33 34 20 20 |(I),RMBO|.C1234 |
|00031110| 46 4f 52 4d 41 54 28 31 | 58 2c 27 49 4e 20 46 43 |FORMAT(1|X,'IN FC|
|00031120| 4e 3a 20 4e 43 41 4c 2c | 49 2c 54 43 53 28 49 29 |N: NCAL,|I,TCS(I)|
|00031130| 2c 52 4d 42 4f 3a 27 2c | 32 49 34 2c 31 50 32 45 |,RMBO:',|2I4,1P2E|
|00031140| 31 32 2e 33 2f 29 20 0a | 20 20 20 20 20 20 20 20 |12.3/) .| |
|00031150| 20 20 43 53 28 49 29 3d | 54 43 53 28 49 29 2f 52 | CS(I)=|TCS(I)/R|
|00031160| 4d 42 4f 0a 20 20 20 20 | 20 20 20 20 45 4e 44 20 |MBO. | END |
|00031170| 49 46 0a 09 47 4f 54 4f | 20 32 39 30 0a 20 20 20 |IF..GOTO| 290. |
|00031180| 20 20 20 45 4e 44 20 49 | 46 0a 20 20 20 20 20 20 | END I|F. |
|00031190| 49 46 28 49 2e 47 54 2e | 32 2e 41 4e 44 2e 49 2e |IF(I.GT.|2.AND.I.|
|000311a0| 4c 45 2e 34 2e 41 4e 44 | 2e 4e 5a 41 28 49 2d 32 |LE.4.AND|.NZA(I-2|
|000311b0| 29 2e 4e 45 2e 30 29 20 | 54 48 45 4e 0a 43 09 20 |).NE.0) |THEN.C. |
|000311c0| 57 52 49 54 45 28 2a 2c | 31 32 33 35 29 20 4e 43 |WRITE(*,|1235) NC|
|000311d0| 41 4c 2c 49 2c 4e 5a 41 | 28 49 2d 32 29 2c 54 43 |AL,I,NZA|(I-2),TC|
|000311e0| 53 28 49 29 2c 52 4d 42 | 41 0a 43 31 32 33 35 20 |S(I),RMB|A.C1235 |
|000311f0| 20 46 4f 52 4d 41 54 28 | 31 58 2c 27 49 4e 20 46 | FORMAT(|1X,'IN F|
|00031200| 43 4e 3a 20 4e 43 41 4c | 2c 49 2c 4e 5a 41 2c 54 |CN: NCAL|,I,NZA,T|
|00031210| 43 53 28 49 29 2c 52 4d | 42 41 3a 27 2c 33 49 34 |CS(I),RM|BA:',3I4|
|00031220| 2c 31 50 32 45 31 32 2e | 33 2f 29 20 0a 20 20 20 |,1P2E12.|3/) . |
|00031230| 20 20 20 20 20 43 53 28 | 49 29 3d 54 43 53 28 49 | CS(|I)=TCS(I|
|00031240| 29 2f 52 4d 42 41 0a 09 | 47 4f 54 4f 20 32 39 30 |)/RMBA..|GOTO 290|
|00031250| 0a 20 20 20 20 20 20 45 | 4e 44 20 49 46 0a 20 20 |. E|ND IF. |
|00031260| 20 20 20 20 49 46 28 49 | 2e 47 54 2e 34 2e 41 4e | IF(I|.GT.4.AN|
|00031270| 44 2e 49 2e 4c 45 2e 36 | 2e 41 4e 44 2e 4e 5a 41 |D.I.LE.6|.AND.NZA|
|00031280| 28 49 2d 31 29 2e 4e 45 | 2e 30 29 20 54 48 45 4e |(I-1).NE|.0) THEN|
|00031290| 20 0a 43 20 20 20 20 20 | 20 20 20 57 52 49 54 45 | .C | WRITE|
|000312a0| 28 2a 2c 31 32 33 35 29 | 20 4e 43 41 4c 2c 49 2c |(*,1235)| NCAL,I,|
|000312b0| 4e 5a 41 28 49 2d 31 29 | 2c 54 43 53 28 49 29 2c |NZA(I-1)|,TCS(I),|
|000312c0| 52 4d 42 41 0a 20 20 20 | 20 20 20 20 20 43 53 28 |RMBA. | CS(|
|000312d0| 49 29 3d 54 43 53 28 49 | 29 2f 52 4d 42 41 0a 20 |I)=TCS(I|)/RMBA. |
|000312e0| 20 20 20 20 20 20 20 47 | 4f 54 4f 20 32 39 30 0a | G|OTO 290.|
|000312f0| 20 20 20 20 20 20 45 4e | 44 20 49 46 0a 20 20 20 | EN|D IF. |
|00031300| 20 20 20 49 46 28 49 2e | 45 51 2e 37 29 20 54 48 | IF(I.|EQ.7) TH|
|00031310| 45 4e 0a 20 20 20 20 20 | 20 20 20 49 46 28 54 43 |EN. | IF(TC|
|00031320| 48 2e 47 54 2e 5a 45 52 | 4f 29 20 54 48 45 4e 20 |H.GT.ZER|O) THEN |
|00031330| 0a 43 20 20 20 20 20 20 | 20 20 20 20 57 52 49 54 |.C | WRIT|
|00031340| 45 28 2a 2c 31 32 33 36 | 29 20 4e 43 41 4c 2c 49 |E(*,1236|) NCAL,I|
|00031350| 2c 54 43 48 2c 52 4d 42 | 41 0a 43 31 32 33 36 20 |,TCH,RMB|A.C1236 |
|00031360| 20 46 4f 52 4d 41 54 28 | 31 58 2c 27 49 4e 20 46 | FORMAT(|1X,'IN F|
|00031370| 43 4e 3a 20 4e 43 41 4c | 2c 49 2c 54 43 48 2c 52 |CN: NCAL|,I,TCH,R|
|00031380| 4d 42 41 3a 27 2c 32 49 | 34 2c 31 50 32 45 31 32 |MBA:',2I|4,1P2E12|
|00031390| 2e 33 2f 29 20 0a 09 20 | 20 43 53 28 49 29 3d 54 |.3/) .. | CS(I)=T|
|000313a0| 43 48 2f 52 4d 42 41 0a | 20 20 20 20 20 20 20 20 |CH/RMBA.| |
|000313b0| 45 4e 44 20 49 46 0a 09 | 49 46 28 4e 43 41 4c 2e |END IF..|IF(NCAL.|
|000313c0| 45 51 2e 32 29 20 54 48 | 45 4e 0a 20 20 20 20 20 |EQ.2) TH|EN. |
|000313d0| 20 20 20 20 20 43 53 28 | 49 29 3d 5a 45 52 4f 0a | CS(|I)=ZERO.|
|000313e0| 20 20 20 20 20 20 20 20 | 45 4e 44 20 49 46 0a 20 | |END IF. |
|000313f0| 20 20 20 20 20 20 20 47 | 4f 54 4f 20 32 39 30 0a | G|OTO 290.|
|00031400| 20 20 20 20 20 20 45 4e | 44 20 49 46 0a 20 20 20 | EN|D IF. |
|00031410| 20 20 20 49 46 28 49 2e | 45 51 2e 38 29 20 54 48 | IF(I.|EQ.8) TH|
|00031420| 45 4e 0a 20 20 20 20 20 | 20 20 20 49 46 28 4e 5a |EN. | IF(NZ|
|00031430| 41 28 36 29 2e 4e 45 2e | 30 2e 41 4e 44 2e 54 43 |A(6).NE.|0.AND.TC|
|00031440| 48 2e 4c 54 2e 5a 45 52 | 4f 29 20 54 48 45 4e 0a |H.LT.ZER|O) THEN.|
|00031450| 43 20 20 20 20 20 20 20 | 20 20 20 57 52 49 54 45 |C | WRITE|
|00031460| 28 2a 2c 31 32 33 36 29 | 20 4e 43 41 4c 2c 49 2c |(*,1236)| NCAL,I,|
|00031470| 54 43 48 2c 52 4d 42 41 | 0a 09 20 20 43 53 28 49 |TCH,RMBA|.. CS(I|
|00031480| 29 3d 2d 54 43 48 2f 52 | 4d 42 41 0a 20 20 20 20 |)=-TCH/R|MBA. |
|00031490| 20 20 20 20 45 4e 44 20 | 49 46 0a 09 49 46 28 4e | END |IF..IF(N|
|000314a0| 43 41 4c 2e 45 51 2e 32 | 29 20 54 48 45 4e 0a 20 |CAL.EQ.2|) THEN. |
|000314b0| 20 20 20 20 20 20 20 20 | 20 43 53 28 49 29 3d 5a | | CS(I)=Z|
|000314c0| 45 52 4f 0a 20 20 20 20 | 20 20 20 20 45 4e 44 20 |ERO. | END |
|000314d0| 49 46 0a 20 20 20 20 20 | 20 45 4e 44 20 49 46 0a |IF. | END IF.|
|000314e0| 32 39 30 20 20 20 43 4f | 4e 54 49 4e 55 45 0a 43 |290 CO|NTINUE.C|
|000314f0| 20 20 49 4e 49 54 49 41 | 4c 49 5a 45 20 53 55 4d | INITIA|LIZE SUM|
|00031500| 53 20 46 4f 52 20 41 2c | 20 42 2c 20 4d 2c 20 4e |S FOR A,| B, M, N|
|00031510| 2c 20 58 2c 20 59 2c 20 | 41 4e 44 20 48 0a 20 20 |, X, Y, |AND H. |
|00031520| 20 20 20 20 49 46 28 4e | 43 41 4c 2e 4c 54 2e 33 | IF(N|CAL.LT.3|
|00031530| 29 20 54 48 45 4e 0a 20 | 20 20 20 20 20 20 20 53 |) THEN. | S|
|00031540| 41 30 3d 43 53 28 31 29 | 2a 52 4e 41 2a 52 4d 42 |A0=CS(1)|*RNA*RMB|
|00031550| 4f 0a 20 20 20 20 20 20 | 20 20 53 42 30 3d 43 53 |O. | SB0=CS|
|00031560| 28 32 29 2a 52 4e 42 2a | 52 4d 42 4f 0a 20 20 20 |(2)*RNB*|RMBO. |
|00031570| 20 20 20 45 4c 53 45 0a | 20 20 20 20 20 20 20 20 | ELSE.| |
|00031580| 53 41 30 3d 5a 45 52 4f | 0a 20 20 20 20 20 20 20 |SA0=ZERO|. |
|00031590| 20 53 42 30 3d 5a 45 52 | 4f 09 0a 20 20 20 20 20 | SB0=ZER|O.. |
|000315a0| 20 45 4e 44 20 49 46 0a | 20 20 20 20 20 20 53 4d | END IF.| SM|
|000315b0| 30 3d 43 53 28 33 29 2a | 52 41 4f 2a 52 4d 42 41 |0=CS(3)*|RAO*RMBA|
|000315c0| 0a 20 20 20 20 20 20 53 | 4e 30 3d 43 53 28 34 29 |. S|N0=CS(4)|
|000315d0| 2a 52 41 4f 2a 52 4d 42 | 41 0a 20 20 20 20 20 20 |*RAO*RMB|A. |
|000315e0| 53 58 30 3d 43 53 28 35 | 29 2a 52 41 4f 2a 52 4d |SX0=CS(5|)*RAO*RM|
|000315f0| 42 41 0a 20 20 20 20 20 | 20 53 59 30 3d 43 53 28 |BA. | SY0=CS(|
|00031600| 36 29 2a 52 41 4f 2a 52 | 4d 42 41 0a 20 20 20 20 |6)*RAO*R|MBA. |
|00031610| 20 20 53 48 30 3d 28 43 | 53 28 37 29 2d 43 53 28 | SH0=(C|S(7)-CS(|
|00031620| 38 29 29 2a 52 41 4f 2a | 52 4d 42 41 0a 20 20 20 |8))*RAO*|RMBA. |
|00031630| 20 20 20 53 4d 41 30 3d | 43 53 28 33 29 0a 20 20 | SMA0=|CS(3). |
|00031640| 20 20 20 20 53 4e 41 30 | 3d 43 53 28 34 29 0a 20 | SNA0|=CS(4). |
|00031650| 20 20 20 20 20 53 58 41 | 30 3d 43 53 28 35 29 0a | SXA|0=CS(5).|
|00031660| 20 20 20 20 20 20 53 59 | 41 30 3d 43 53 28 36 29 | SY|A0=CS(6)|
|00031670| 0a 20 20 20 20 20 20 53 | 48 41 30 3d 43 53 28 37 |. S|HA0=CS(7|
|00031680| 29 2d 43 53 28 38 29 0a | 43 0a 20 20 20 20 20 20 |)-CS(8).|C. |
|00031690| 49 46 28 4e 53 4f 2e 45 | 51 2e 30 2e 4f 52 2e 4e |IF(NSO.E|Q.0.OR.N|
|000316a0| 43 41 4c 2e 45 51 2e 33 | 29 20 47 4f 54 4f 20 33 |CAL.EQ.3|) GOTO 3|
|000316b0| 31 35 0a 43 0a 20 20 20 | 20 20 20 44 4f 20 33 31 |15.C. | DO 31|
|000316c0| 30 20 49 3d 31 2c 4e 53 | 4f 0a 20 20 20 20 20 20 |0 I=1,NS|O. |
|000316d0| 44 4f 20 32 39 35 20 4a | 3d 31 2c 4e 45 51 0a 20 |DO 295 J|=1,NEQ. |
|000316e0| 20 20 20 20 20 49 46 28 | 4e 46 28 4a 29 2e 45 51 | IF(|NF(J).EQ|
|000316f0| 2e 28 38 2b 49 29 29 20 | 47 4f 54 4f 20 33 30 30 |.(8+I)) |GOTO 300|
|00031700| 0a 32 39 35 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a |.295 C|ONTINUE.|
|00031710| 20 20 20 20 20 20 47 4f | 54 4f 20 33 31 30 0a 33 | GO|TO 310.3|
|00031720| 30 30 20 20 20 4b 3d 38 | 2b 49 0a 20 20 20 20 20 |00 K=8|+I. |
|00031730| 20 49 46 28 49 2e 45 51 | 2e 49 52 45 46 29 20 47 | IF(I.EQ|.IREF) G|
|00031740| 4f 54 4f 20 33 30 37 0a | 43 20 20 43 41 4c 43 55 |OTO 307.|C CALCU|
|00031750| 4c 41 54 45 20 50 52 4f | 44 55 43 54 20 53 50 45 |LATE PRO|DUCT SPE|
|00031760| 43 49 45 20 43 4f 4e 43 | 45 4e 54 52 41 54 49 4f |CIE CONC|ENTRATIO|
|00031770| 4e 53 20 46 52 4f 4d 20 | 52 45 41 43 54 41 4e 54 |NS FROM |REACTANT|
|00031780| 20 43 4f 4e 43 4e 53 2e | 20 0a 20 20 20 20 20 20 | CONCNS.| . |
|00031790| 44 4f 20 33 30 35 20 4c | 3d 31 2c 37 0a 20 20 20 |DO 305 L|=1,7. |
|000317a0| 20 20 20 49 46 28 45 4f | 43 28 4c 2c 49 29 2e 4e | IF(EO|C(L,I).N|
|000317b0| 45 2e 5a 45 52 4f 29 20 | 54 48 45 4e 0a 09 46 4f |E.ZERO) |THEN..FO|
|000317c0| 43 28 4c 2c 49 29 3d 28 | 43 53 28 4c 29 2a 47 28 |C(L,I)=(|CS(L)*G(|
|000317d0| 4c 29 29 2a 2a 45 4f 43 | 28 4c 2c 49 29 09 0a 20 |L))**EOC|(L,I).. |
|000317e0| 20 20 20 20 20 45 4c 53 | 45 0a 20 20 20 20 20 20 | ELS|E. |
|000317f0| 20 20 46 4f 43 28 4c 2c | 49 29 3d 4f 4e 45 0a 20 | FOC(L,|I)=ONE. |
|00031800| 20 20 20 20 20 45 4e 44 | 20 49 46 0a 33 30 35 20 | END| IF.305 |
|00031810| 20 20 43 4f 4e 54 49 4e | 55 45 0a 20 20 20 20 20 | CONTIN|UE. |
|00031820| 20 49 46 28 45 4f 43 28 | 38 2c 49 29 2e 4e 45 2e | IF(EOC(|8,I).NE.|
|00031830| 5a 45 52 4f 29 20 54 48 | 45 4e 0a 09 46 4f 43 28 |ZERO) TH|EN..FOC(|
|00031840| 38 2c 49 29 3d 41 57 2a | 2a 45 4f 43 28 38 2c 49 |8,I)=AW*|*EOC(8,I|
|00031850| 29 09 0a 20 20 20 20 20 | 20 45 4c 53 45 0a 20 20 |).. | ELSE. |
|00031860| 20 20 20 20 20 20 46 4f | 43 28 38 2c 49 29 3d 4f | FO|C(8,I)=O|
|00031870| 4e 45 0a 20 20 20 20 20 | 20 45 4e 44 20 49 46 0a |NE. | END IF.|
|00031880| 20 20 20 20 20 20 49 46 | 28 52 5a 49 52 28 49 29 | IF|(RZIR(I)|
|00031890| 2e 45 51 2e 5a 45 52 4f | 29 20 54 48 45 4e 0a 20 |.EQ.ZERO|) THEN. |
|000318a0| 20 20 20 20 20 20 20 43 | 4f 50 28 49 29 3d 46 4f | C|OP(I)=FO|
|000318b0| 4b 28 49 29 2a 46 4f 43 | 28 33 2c 49 29 2a 46 4f |K(I)*FOC|(3,I)*FO|
|000318c0| 43 28 34 2c 49 29 2a 46 | 4f 43 28 31 2c 49 29 0a |C(4,I)*F|OC(1,I).|
|000318d0| 20 20 20 20 20 26 20 20 | 2a 46 4f 43 28 32 2c 49 | & |*FOC(2,I|
|000318e0| 29 2a 46 4f 43 28 35 2c | 49 29 2a 46 4f 43 28 36 |)*FOC(5,|I)*FOC(6|
|000318f0| 2c 49 29 2a 46 4f 43 28 | 37 2c 49 29 2a 46 4f 43 |,I)*FOC(|7,I)*FOC|
|00031900| 28 38 2c 49 29 2f 47 28 | 4b 29 0a 20 20 20 20 20 |(8,I)/G(|K). |
|00031910| 20 45 4c 53 45 0a 20 20 | 20 20 20 20 20 20 4c 3d | ELSE. | L=|
|00031920| 38 2b 49 52 45 46 0a 20 | 20 20 20 20 20 20 20 43 |8+IREF. | C|
|00031930| 4f 50 28 49 29 3d 46 4f | 4b 28 49 29 2a 28 43 53 |OP(I)=FO|K(I)*(CS|
|00031940| 28 4c 29 2a 47 28 4c 29 | 29 2a 2a 52 5a 49 52 28 |(L)*G(L)|)**RZIR(|
|00031950| 49 29 2a 46 4f 43 28 33 | 2c 49 29 2a 46 4f 43 28 |I)*FOC(3|,I)*FOC(|
|00031960| 34 2c 49 29 2a 46 4f 43 | 28 31 2c 49 29 0a 20 20 |4,I)*FOC|(1,I). |
|00031970| 20 20 20 26 20 20 2a 46 | 4f 43 28 32 2c 49 29 2a | & *F|OC(2,I)*|
|00031980| 46 4f 43 28 35 2c 49 29 | 2a 46 4f 43 28 36 2c 49 |FOC(5,I)|*FOC(6,I|
|00031990| 29 2a 46 4f 43 28 37 2c | 49 29 2a 46 4f 43 28 38 |)*FOC(7,|I)*FOC(8|
|000319a0| 2c 49 29 2f 47 28 4b 29 | 0a 20 20 20 20 20 20 45 |,I)/G(K)|. E|
|000319b0| 4e 44 20 49 46 0a 43 0a | 43 20 20 20 20 20 20 57 |ND IF.C.|C W|
|000319c0| 52 49 54 45 28 39 2c 33 | 32 31 32 29 20 49 2c 49 |RITE(9,3|212) I,I|
|000319d0| 52 45 46 2c 46 4f 4b 28 | 49 29 2c 52 5a 49 52 28 |REF,FOK(|I),RZIR(|
|000319e0| 49 29 2c 28 43 53 28 4a | 29 2c 4a 3d 31 2c 28 38 |I),(CS(J|),J=1,(8|
|000319f0| 2b 4e 53 4f 29 29 2c 0a | 43 20 20 20 20 20 2c 28 |+NSO)),.|C ,(|
|00031a00| 46 4f 43 28 4a 2c 49 29 | 2c 4a 3d 31 2c 38 29 2c |FOC(J,I)|,J=1,8),|
|00031a10| 0a 43 33 32 31 32 20 20 | 46 4f 52 4d 41 54 28 31 |.C3212 |FORMAT(1|
|00031a20| 58 2c 27 20 20 20 20 49 | 20 49 52 45 46 20 20 20 |X,' I| IREF |
|00031a30| 20 20 46 4f 4b 28 31 29 | 20 20 20 20 52 5a 49 52 | FOK(1)| RZIR|
|00031a40| 28 49 29 27 2f 0a 43 20 | 20 20 20 20 26 31 58 2c |(I)'/.C | &1X,|
|00031a50| 32 49 35 2c 31 50 32 45 | 31 33 2e 34 2f 0a 43 20 |2I5,1P2E|13.4/.C |
|00031a60| 20 20 20 20 26 31 58 2c | 27 43 53 28 4a 2c 49 29 | &1X,|'CS(J,I)|
|00031a70| 27 2f 31 58 2c 36 45 31 | 33 2e 34 2f 31 58 2c 36 |'/1X,6E1|3.4/1X,6|
|00031a80| 45 31 33 2e 34 2f 0a 43 | 20 20 20 20 20 26 31 58 |E13.4/.C| &1X|
|00031a90| 2c 27 46 4f 43 28 4a 2c | 49 29 27 2f 31 58 2c 36 |,'FOC(J,|I)'/1X,6|
|00031aa0| 45 31 33 2e 34 2f 31 58 | 2c 32 45 31 33 2e 34 2f |E13.4/1X|,2E13.4/|
|00031ab0| 29 0a 43 20 20 20 20 20 | 20 57 52 49 54 45 28 39 |).C | WRITE(9|
|00031ac0| 2c 33 32 31 33 29 20 43 | 4f 50 28 49 29 0a 43 33 |,3213) C|OP(I).C3|
|00031ad0| 32 31 33 20 20 46 4f 52 | 4d 41 54 28 31 58 2c 27 |213 FOR|MAT(1X,'|
|00031ae0| 43 4f 50 28 49 29 27 2c | 31 58 2c 31 50 45 31 33 |COP(I)',|1X,1PE13|
|00031af0| 2e 33 29 0a 43 0a 43 20 | 20 41 44 44 20 43 55 52 |.3).C.C | ADD CUR|
|00031b00| 52 45 4e 54 20 53 50 45 | 43 49 45 20 43 4f 4e 43 |RENT SPE|CIE CONC|
|00031b10| 4e 2e 20 54 4f 20 4d 41 | 54 45 52 49 41 4c 20 42 |N. TO MA|TERIAL B|
|00031b20| 41 4c 41 4e 43 45 53 0a | 33 30 37 20 20 20 53 41 |ALANCES.|307 SA|
|00031b30| 30 3d 53 41 30 2b 52 4f | 43 28 31 2c 49 29 2a 43 |0=SA0+RO|C(1,I)*C|
|00031b40| 53 28 4b 29 2a 52 4d 42 | 4f 0a 20 20 20 20 20 20 |S(K)*RMB|O. |
|00031b50| 53 42 30 3d 53 42 30 2b | 52 4f 43 28 32 2c 49 29 |SB0=SB0+|ROC(2,I)|
|00031b60| 2a 43 53 28 4b 29 2a 52 | 4d 42 4f 0a 20 20 20 20 |*CS(K)*R|MBO. |
|00031b70| 20 20 53 4d 30 3d 53 4d | 30 2b 52 4f 43 28 33 2c | SM0=SM|0+ROC(3,|
|00031b80| 49 29 2a 43 53 28 4b 29 | 2a 52 4d 42 4f 0a 20 20 |I)*CS(K)|*RMBO. |
|00031b90| 20 20 20 20 53 4e 30 3d | 53 4e 30 2b 52 4f 43 28 | SN0=|SN0+ROC(|
|00031ba0| 34 2c 49 29 2a 43 53 28 | 4b 29 2a 52 4d 42 4f 0a |4,I)*CS(|K)*RMBO.|
|00031bb0| 20 20 20 20 20 20 53 58 | 30 3d 53 58 30 2b 52 4f | SX|0=SX0+RO|
|00031bc0| 43 28 35 2c 49 29 2a 43 | 53 28 4b 29 2a 52 4d 42 |C(5,I)*C|S(K)*RMB|
|00031bd0| 4f 0a 20 20 20 20 20 20 | 53 59 30 3d 53 59 30 2b |O. |SY0=SY0+|
|00031be0| 52 4f 43 28 36 2c 49 29 | 2a 43 53 28 4b 29 2a 52 |ROC(6,I)|*CS(K)*R|
|00031bf0| 4d 42 4f 0a 20 20 20 20 | 20 20 53 48 30 3d 53 48 |MBO. | SH0=SH|
|00031c00| 30 2b 45 4f 43 28 37 2c | 49 29 2a 43 53 28 4b 29 |0+EOC(7,|I)*CS(K)|
|00031c10| 2a 52 4d 42 4f 0a 43 0a | 43 20 20 20 20 20 20 57 |*RMBO.C.|C W|
|00031c20| 52 49 54 45 28 39 2c 38 | 37 38 29 20 49 2c 4b 2c |RITE(9,8|78) I,K,|
|00031c30| 52 4f 43 28 33 2c 49 29 | 2c 52 4f 43 28 36 2c 49 |ROC(3,I)|,ROC(6,I|
|00031c40| 29 2c 43 53 28 4b 29 0a | 43 38 37 38 20 20 20 46 |),CS(K).|C878 F|
|00031c50| 4f 52 4d 41 54 28 27 20 | 20 49 20 20 4b 20 20 52 |ORMAT(' | I K R|
|00031c60| 4f 43 28 33 2c 49 29 20 | 20 52 4f 43 28 36 2c 49 |OC(3,I) | ROC(6,I|
|00031c70| 29 20 20 20 20 20 20 20 | 43 53 28 4b 29 27 2f 0a |) |CS(K)'/.|
|00031c80| 43 20 20 20 20 20 26 32 | 49 33 2c 32 46 31 30 2e |C &2|I3,2F10.|
|00031c90| 32 2c 46 31 32 2e 38 29 | 0a 43 20 20 20 20 20 20 |2,F12.8)|.C |
|00031ca0| 50 41 55 53 45 0a 43 0a | 33 31 30 20 20 20 43 4f |PAUSE.C.|310 CO|
|00031cb0| 4e 54 49 4e 55 45 0a 43 | 0a 33 31 35 20 20 20 49 |NTINUE.C|.315 I|
|00031cc0| 46 28 4e 53 41 2e 45 51 | 2e 30 2e 4f 52 2e 4e 43 |F(NSA.EQ|.0.OR.NC|
|00031cd0| 41 4c 2e 45 51 2e 32 29 | 20 47 4f 54 4f 20 33 34 |AL.EQ.2)| GOTO 34|
|00031ce0| 30 0a 20 20 20 20 20 20 | 44 4f 20 33 33 35 20 49 |0. |DO 335 I|
|00031cf0| 3d 31 2c 4e 53 41 0a 20 | 20 20 20 20 20 44 4f 20 |=1,NSA. | DO |
|00031d00| 33 32 30 20 4a 3d 31 2c | 4e 45 51 0a 20 20 20 20 |320 J=1,|NEQ. |
|00031d10| 20 20 49 46 28 4e 46 28 | 4a 29 2e 45 51 2e 28 38 | IF(NF(|J).EQ.(8|
|00031d20| 2b 4e 53 4f 2b 49 29 29 | 20 47 4f 54 4f 20 20 33 |+NSO+I))| GOTO 3|
|00031d30| 32 35 0a 33 32 30 20 20 | 20 43 4f 4e 54 49 4e 55 |25.320 | CONTINU|
|00031d40| 45 0a 20 20 20 20 20 20 | 47 4f 54 4f 20 33 33 35 |E. |GOTO 335|
|00031d50| 0a 33 32 35 20 20 20 4b | 3d 38 2b 4e 53 4f 2b 49 |.325 K|=8+NSO+I|
|00031d60| 0a 20 20 20 20 20 20 44 | 4f 20 33 33 30 20 4c 3d |. D|O 330 L=|
|00031d70| 31 2c 37 0a 20 20 20 20 | 20 20 49 46 28 45 41 43 |1,7. | IF(EAC|
|00031d80| 28 4c 2c 49 29 2e 4e 45 | 2e 5a 45 52 4f 29 20 46 |(L,I).NE|.ZERO) F|
|00031d90| 41 43 28 4c 2c 49 29 3d | 28 43 53 28 4c 29 2a 47 |AC(L,I)=|(CS(L)*G|
|00031da0| 28 4c 29 29 2a 2a 45 41 | 43 28 4c 2c 49 29 0a 33 |(L))**EA|C(L,I).3|
|00031db0| 33 30 20 20 20 43 4f 4e | 54 49 4e 55 45 0a 20 20 |30 CON|TINUE. |
|00031dc0| 20 20 20 20 49 46 28 45 | 41 43 28 38 2c 49 29 2e | IF(E|AC(8,I).|
|00031dd0| 4e 45 2e 5a 45 52 4f 29 | 20 46 41 43 28 38 2c 49 |NE.ZERO)| FAC(8,I|
|00031de0| 29 3d 41 57 2a 2a 45 41 | 43 28 38 2c 49 29 0a 20 |)=AW**EA|C(8,I). |
|00031df0| 20 20 20 20 20 43 41 50 | 28 49 29 3d 46 41 4b 28 | CAP|(I)=FAK(|
|00031e00| 49 29 2a 46 41 43 28 33 | 2c 49 29 2a 46 41 43 28 |I)*FAC(3|,I)*FAC(|
|00031e10| 34 2c 49 29 2a 46 41 43 | 28 31 2c 49 29 2a 46 41 |4,I)*FAC|(1,I)*FA|
|00031e20| 43 28 32 2c 49 29 2a 0a | 20 20 20 20 20 26 46 41 |C(2,I)*.| &FA|
|00031e30| 43 28 35 2c 49 29 2a 46 | 41 43 28 36 2c 49 29 2a |C(5,I)*F|AC(6,I)*|
|00031e40| 46 41 43 28 37 2c 49 29 | 2a 46 41 43 28 38 2c 49 |FAC(7,I)|*FAC(8,I|
|00031e50| 29 2f 47 28 4b 29 0a 20 | 20 20 20 20 20 53 41 30 |)/G(K). | SA0|
|00031e60| 3d 53 41 30 2b 52 41 43 | 28 31 2c 49 29 2a 43 53 |=SA0+RAC|(1,I)*CS|
|00031e70| 28 4b 29 2a 52 41 4f 2a | 52 4d 42 41 0a 20 20 20 |(K)*RAO*|RMBA. |
|00031e80| 20 20 20 53 42 30 3d 53 | 42 30 2b 52 41 43 28 32 | SB0=S|B0+RAC(2|
|00031e90| 2c 49 29 2a 43 53 28 4b | 29 2a 52 41 4f 2a 52 4d |,I)*CS(K|)*RAO*RM|
|00031ea0| 42 41 0a 20 20 20 20 20 | 20 53 4d 30 3d 53 4d 30 |BA. | SM0=SM0|
|00031eb0| 2b 52 41 43 28 33 2c 49 | 29 2a 43 53 28 4b 29 2a |+RAC(3,I|)*CS(K)*|
|00031ec0| 52 41 4f 2a 52 4d 42 41 | 0a 20 20 20 20 20 20 49 |RAO*RMBA|. I|
|00031ed0| 46 28 49 45 51 2e 45 51 | 2e 31 29 20 53 4d 41 30 |F(IEQ.EQ|.1) SMA0|
|00031ee0| 3d 53 4d 41 30 2b 52 41 | 43 28 33 2c 49 29 2a 43 |=SMA0+RA|C(3,I)*C|
|00031ef0| 53 28 4b 29 0a 20 20 20 | 20 20 20 53 4e 30 3d 53 |S(K). | SN0=S|
|00031f00| 4e 30 2b 52 41 43 28 34 | 2c 49 29 2a 43 53 28 4b |N0+RAC(4|,I)*CS(K|
|00031f10| 29 2a 52 41 4f 2a 52 4d | 42 41 0a 20 20 20 20 20 |)*RAO*RM|BA. |
|00031f20| 20 49 46 28 49 45 51 2e | 45 51 2e 31 29 20 53 4e | IF(IEQ.|EQ.1) SN|
|00031f30| 41 30 3d 53 4e 41 30 2b | 52 41 43 28 34 2c 49 29 |A0=SNA0+|RAC(4,I)|
|00031f40| 2a 43 53 28 4b 29 0a 20 | 20 20 20 20 20 53 58 30 |*CS(K). | SX0|
|00031f50| 3d 53 58 30 2b 52 41 43 | 28 35 2c 49 29 2a 43 53 |=SX0+RAC|(5,I)*CS|
|00031f60| 28 4b 29 2a 52 41 4f 2a | 52 4d 42 41 0a 20 20 20 |(K)*RAO*|RMBA. |
|00031f70| 20 20 20 49 46 28 49 45 | 51 2e 45 51 2e 31 29 20 | IF(IE|Q.EQ.1) |
|00031f80| 53 58 41 30 3d 53 58 41 | 30 2b 52 41 43 28 35 2c |SXA0=SXA|0+RAC(5,|
|00031f90| 49 29 2a 43 53 28 4b 29 | 0a 20 20 20 20 20 20 53 |I)*CS(K)|. S|
|00031fa0| 59 30 3d 53 59 30 2b 52 | 41 43 28 36 2c 49 29 2a |Y0=SY0+R|AC(6,I)*|
|00031fb0| 43 53 28 4b 29 2a 52 41 | 4f 2a 52 4d 42 41 0a 20 |CS(K)*RA|O*RMBA. |
|00031fc0| 20 20 20 20 20 49 46 28 | 49 45 51 2e 45 51 2e 31 | IF(|IEQ.EQ.1|
|00031fd0| 29 20 53 59 41 30 3d 53 | 59 41 30 2b 52 41 43 28 |) SYA0=S|YA0+RAC(|
|00031fe0| 36 2c 49 29 2a 43 53 28 | 4b 29 0a 20 20 20 20 20 |6,I)*CS(|K). |
|00031ff0| 20 53 48 30 3d 53 48 30 | 2b 45 41 43 28 37 2c 49 | SH0=SH0|+EAC(7,I|
|00032000| 29 2a 43 53 28 4b 29 2a | 52 41 4f 2a 52 4d 42 41 |)*CS(K)*|RAO*RMBA|
|00032010| 0a 20 20 20 20 20 20 49 | 46 28 49 45 51 2e 45 51 |. I|F(IEQ.EQ|
|00032020| 2e 31 29 20 53 48 41 30 | 3d 53 48 41 30 2b 45 41 |.1) SHA0|=SHA0+EA|
|00032030| 43 28 37 2c 49 29 2a 43 | 53 28 4b 29 0a 33 33 35 |C(7,I)*C|S(K).335|
|00032040| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 43 0a 43 20 | CONTI|NUE.C.C |
|00032050| 20 42 45 47 49 4e 20 4c | 4f 4f 50 20 54 48 52 4f | BEGIN L|OOP THRO|
|00032060| 55 47 48 20 54 48 45 20 | 45 51 55 41 54 49 4f 4e |UGH THE |EQUATION|
|00032070| 53 20 54 4f 20 42 45 20 | 53 41 54 49 53 46 49 45 |S TO BE |SATISFIE|
|00032080| 44 0a 33 34 30 20 20 20 | 44 4f 20 33 36 35 20 4a |D.340 |DO 365 J|
|00032090| 3d 31 2c 4e 45 51 0a 43 | 20 20 20 54 45 53 54 20 |=1,NEQ.C| TEST |
|000320a0| 4d 41 54 45 52 49 41 4c | 20 42 41 4c 41 4e 43 45 |MATERIAL| BALANCE|
|000320b0| 53 20 49 4e 56 4f 4c 56 | 49 4e 47 20 52 45 41 43 |S INVOLV|ING REAC|
|000320c0| 54 41 4e 54 53 0a 20 20 | 20 20 20 20 49 46 28 4e |TANTS. | IF(N|
|000320d0| 46 28 4a 29 2e 45 51 2e | 31 29 20 46 43 4c 28 4a |F(J).EQ.|1) FCL(J|
|000320e0| 29 3d 4f 4e 45 2d 53 41 | 30 2f 54 43 41 0a 20 20 |)=ONE-SA|0/TCA. |
|000320f0| 20 20 20 20 49 46 28 4e | 46 28 4a 29 2e 45 51 2e | IF(N|F(J).EQ.|
|00032100| 32 29 20 46 43 4c 28 4a | 29 3d 4f 4e 45 2d 53 42 |2) FCL(J|)=ONE-SB|
|00032110| 30 2f 54 43 42 0a 20 20 | 20 20 20 20 49 46 28 4e |0/TCB. | IF(N|
|00032120| 46 28 4a 29 2e 45 51 2e | 33 2e 41 4e 44 2e 49 45 |F(J).EQ.|3.AND.IE|
|00032130| 51 2e 45 51 2e 30 2e 41 | 4e 44 2e 52 41 4f 2e 47 |Q.EQ.0.A|ND.RAO.G|
|00032140| 54 2e 5a 45 52 4f 29 0a | 20 20 20 20 20 26 46 43 |T.ZERO).| &FC|
|00032150| 4c 28 4a 29 3d 4f 4e 45 | 2d 53 4d 30 2f 28 54 43 |L(J)=ONE|-SM0/(TC|
|00032160| 4d 2a 52 41 4f 29 0a 20 | 20 20 20 20 20 49 46 28 |M*RAO). | IF(|
|00032170| 4e 46 28 4a 29 2e 45 51 | 2e 33 2e 41 4e 44 2e 52 |NF(J).EQ|.3.AND.R|
|00032180| 41 4f 2e 45 51 2e 5a 45 | 52 4f 29 20 46 43 4c 28 |AO.EQ.ZE|RO) FCL(|
|00032190| 4a 29 3d 4f 4e 45 2d 53 | 4d 30 2f 54 43 4d 0a 20 |J)=ONE-S|M0/TCM. |
|000321a0| 20 20 20 20 20 49 46 28 | 4e 46 28 4a 29 2e 45 51 | IF(|NF(J).EQ|
|000321b0| 2e 33 2e 41 4e 44 2e 49 | 45 51 2e 45 51 2e 31 29 |.3.AND.I|EQ.EQ.1)|
|000321c0| 20 46 43 4c 28 4a 29 3d | 4f 4e 45 2d 53 4d 41 30 | FCL(J)=|ONE-SMA0|
|000321d0| 2f 54 43 4d 20 20 20 20 | 20 20 0a 20 20 20 20 20 |/TCM | . |
|000321e0| 20 49 46 28 4e 46 28 4a | 29 2e 45 51 2e 34 2e 41 | IF(NF(J|).EQ.4.A|
|000321f0| 4e 44 2e 49 45 51 2e 45 | 51 2e 30 2e 41 4e 44 2e |ND.IEQ.E|Q.0.AND.|
|00032200| 52 41 4f 2e 47 54 2e 5a | 45 52 4f 29 0a 20 20 20 |RAO.GT.Z|ERO). |
|00032210| 20 20 26 46 43 4c 28 4a | 29 3d 4f 4e 45 2d 53 4e | &FCL(J|)=ONE-SN|
|00032220| 30 2f 28 54 43 4e 2a 52 | 41 4f 29 0a 20 20 20 20 |0/(TCN*R|AO). |
|00032230| 20 20 49 46 28 4e 46 28 | 4a 29 2e 45 51 2e 34 2e | IF(NF(|J).EQ.4.|
|00032240| 41 4e 44 2e 52 41 4f 2e | 45 51 2e 5a 45 52 4f 29 |AND.RAO.|EQ.ZERO)|
|00032250| 20 46 43 4c 28 4a 29 3d | 4f 4e 45 2d 53 4e 30 2f | FCL(J)=|ONE-SN0/|
|00032260| 54 43 4e 0a 20 20 20 20 | 20 20 49 46 28 4e 46 28 |TCN. | IF(NF(|
|00032270| 4a 29 2e 45 51 2e 34 2e | 41 4e 44 2e 49 45 51 2e |J).EQ.4.|AND.IEQ.|
|00032280| 45 51 2e 31 29 20 46 43 | 4c 28 4a 29 3d 4f 4e 45 |EQ.1) FC|L(J)=ONE|
|00032290| 2d 53 4e 41 30 2f 54 43 | 4e 20 20 20 20 20 20 0a |-SNA0/TC|N .|
|000322a0| 20 20 20 20 20 20 49 46 | 28 4e 46 28 4a 29 2e 45 | IF|(NF(J).E|
|000322b0| 51 2e 35 2e 41 4e 44 2e | 49 45 51 2e 45 51 2e 30 |Q.5.AND.|IEQ.EQ.0|
|000322c0| 2e 41 4e 44 2e 52 41 4f | 2e 47 54 2e 5a 45 52 4f |.AND.RAO|.GT.ZERO|
|000322d0| 29 0a 20 20 20 20 20 26 | 46 43 4c 28 4a 29 3d 4f |). &|FCL(J)=O|
|000322e0| 4e 45 2d 53 58 30 2f 28 | 54 43 58 2a 52 41 4f 29 |NE-SX0/(|TCX*RAO)|
|000322f0| 0a 20 20 20 20 20 20 49 | 46 28 4e 46 28 4a 29 2e |. I|F(NF(J).|
|00032300| 45 51 2e 35 2e 41 4e 44 | 2e 52 41 4f 2e 45 51 2e |EQ.5.AND|.RAO.EQ.|
|00032310| 5a 45 52 4f 29 20 46 43 | 4c 28 4a 29 3d 4f 4e 45 |ZERO) FC|L(J)=ONE|
|00032320| 2d 53 58 30 2f 54 43 58 | 0a 20 20 20 20 20 20 49 |-SX0/TCX|. I|
|00032330| 46 28 4e 46 28 4a 29 2e | 45 51 2e 35 2e 41 4e 44 |F(NF(J).|EQ.5.AND|
|00032340| 2e 49 45 51 2e 45 51 2e | 31 29 20 46 43 4c 28 4a |.IEQ.EQ.|1) FCL(J|
|00032350| 29 3d 4f 4e 45 2d 53 58 | 41 30 2f 54 43 58 20 20 |)=ONE-SX|A0/TCX |
|00032360| 20 20 20 20 0a 20 20 20 | 20 20 20 49 46 28 4e 46 | . | IF(NF|
|00032370| 28 4a 29 2e 45 51 2e 36 | 2e 41 4e 44 2e 49 45 51 |(J).EQ.6|.AND.IEQ|
|00032380| 2e 45 51 2e 30 2e 41 4e | 44 2e 52 41 4f 2e 47 54 |.EQ.0.AN|D.RAO.GT|
|00032390| 2e 5a 45 52 4f 29 0a 20 | 20 20 20 20 26 46 43 4c |.ZERO). | &FCL|
|000323a0| 28 4a 29 3d 4f 4e 45 2d | 53 59 30 2f 28 54 43 59 |(J)=ONE-|SY0/(TCY|
|000323b0| 2a 52 41 4f 29 0a 20 20 | 20 20 20 20 49 46 28 4e |*RAO). | IF(N|
|000323c0| 46 28 4a 29 2e 45 51 2e | 36 2e 41 4e 44 2e 52 41 |F(J).EQ.|6.AND.RA|
|000323d0| 4f 2e 45 51 2e 5a 45 52 | 4f 29 20 46 43 4c 28 4a |O.EQ.ZER|O) FCL(J|
|000323e0| 29 3d 4f 4e 45 2d 53 59 | 30 2f 54 43 59 0a 20 20 |)=ONE-SY|0/TCY. |
|000323f0| 20 20 20 20 49 46 28 4e | 46 28 4a 29 2e 45 51 2e | IF(N|F(J).EQ.|
|00032400| 36 2e 41 4e 44 2e 49 45 | 51 2e 45 51 2e 31 29 20 |6.AND.IE|Q.EQ.1) |
|00032410| 46 43 4c 28 4a 29 3d 4f | 4e 45 2d 53 59 41 30 2f |FCL(J)=O|NE-SYA0/|
|00032420| 54 43 59 20 20 20 20 20 | 20 0a 20 20 20 20 20 20 |TCY | . |
|00032430| 49 46 28 4e 46 28 4a 29 | 2e 45 51 2e 37 2e 41 4e |IF(NF(J)|.EQ.7.AN|
|00032440| 44 2e 49 45 51 2e 45 51 | 2e 30 2e 41 4e 44 2e 52 |D.IEQ.EQ|.0.AND.R|
|00032450| 41 4f 2e 47 54 2e 5a 45 | 52 4f 29 0a 20 20 20 20 |AO.GT.ZE|RO). |
|00032460| 20 26 46 43 4c 28 4a 29 | 3d 53 48 30 2d 28 54 43 | &FCL(J)|=SH0-(TC|
|00032470| 48 2a 52 41 4f 29 0a 20 | 20 20 20 20 20 49 46 28 |H*RAO). | IF(|
|00032480| 4e 46 28 4a 29 2e 45 51 | 2e 37 2e 41 4e 44 2e 52 |NF(J).EQ|.7.AND.R|
|00032490| 41 4f 2e 45 51 2e 5a 45 | 52 4f 29 20 54 48 45 4e |AO.EQ.ZE|RO) THEN|
|000324a0| 0a 43 20 20 20 20 20 20 | 49 4e 56 4f 4b 45 20 41 |.C |INVOKE A|
|000324b0| 51 55 45 4f 55 53 20 43 | 48 41 52 47 45 20 42 41 |QUEOUS C|HARGE BA|
|000324c0| 4c 41 4e 43 45 0a 20 20 | 20 20 20 20 20 20 42 54 |LANCE. | BT|
|000324d0| 4e 43 3d 52 5a 4d 2a 43 | 53 28 33 29 2b 52 5a 4e |NC=RZM*C|S(3)+RZN|
|000324e0| 2a 43 53 28 34 29 2b 43 | 53 28 37 29 0a 20 20 20 |*CS(4)+C|S(7). |
|000324f0| 20 20 20 20 20 42 54 4e | 41 3d 52 5a 58 2a 43 53 | BTN|A=RZX*CS|
|00032500| 28 35 29 2d 52 5a 59 2a | 43 53 28 36 29 2b 43 53 |(5)-RZY*|CS(6)+CS|
|00032510| 28 38 29 0a 20 20 20 20 | 20 20 20 20 46 43 4c 28 |(8). | FCL(|
|00032520| 4a 29 3d 4f 4e 45 2d 42 | 54 4e 43 2f 42 54 4e 41 |J)=ONE-B|TNC/BTNA|
|00032530| 09 0a 20 20 20 20 20 20 | 45 4e 44 20 49 46 0a 20 |.. |END IF. |
|00032540| 20 20 20 20 20 49 46 28 | 4e 46 28 4a 29 2e 45 51 | IF(|NF(J).EQ|
|00032550| 2e 37 2e 41 4e 44 2e 49 | 45 51 2e 45 51 2e 31 29 |.7.AND.I|EQ.EQ.1)|
|00032560| 20 46 43 4c 28 4a 29 3d | 53 48 41 30 2d 54 43 48 | FCL(J)=|SHA0-TCH|
|00032570| 0a 20 20 20 20 20 20 49 | 46 28 4e 46 28 4a 29 2e |. I|F(NF(J).|
|00032580| 45 51 2e 38 2e 41 4e 44 | 2e 43 53 28 37 29 2e 47 |EQ.8.AND|.CS(7).G|
|00032590| 54 2e 5a 45 52 4f 2e 41 | 4e 44 2e 43 53 28 38 29 |T.ZERO.A|ND.CS(8)|
|000325a0| 2e 47 54 2e 5a 45 52 4f | 29 0a 20 20 20 20 20 26 |.GT.ZERO|). &|
|000325b0| 46 43 4c 28 4a 29 3d 4f | 4e 45 2d 43 53 28 37 29 |FCL(J)=O|NE-CS(7)|
|000325c0| 2a 43 53 28 38 29 2a 47 | 28 37 29 2a 47 28 38 29 |*CS(8)*G|(7)*G(8)|
|000325d0| 2f 52 4b 57 0a 20 20 20 | 20 20 20 49 46 28 4e 53 |/RKW. | IF(NS|
|000325e0| 4f 2e 45 51 2e 30 29 20 | 47 4f 54 4f 20 33 35 35 |O.EQ.0) |GOTO 355|
|000325f0| 0a 43 20 20 20 54 45 53 | 54 20 43 4f 4e 44 49 54 |.C TES|T CONDIT|
|00032600| 49 4f 4e 53 20 44 45 54 | 45 52 4d 49 4e 49 4e 47 |IONS DET|ERMINING|
|00032610| 20 4e 4f 4e 41 51 2e 50 | 52 4f 44 55 43 54 20 43 | NONAQ.P|RODUCT C|
|00032620| 4f 4e 43 4e 53 2e 0a 20 | 20 20 20 20 20 44 4f 20 |ONCNS.. | DO |
|00032630| 33 35 30 20 49 3d 31 2c | 4e 53 4f 0a 20 20 20 20 |350 I=1,|NSO. |
|00032640| 20 20 49 46 28 49 52 45 | 46 2e 4e 45 2e 30 2e 41 | IF(IRE|F.NE.0.A|
|00032650| 4e 44 2e 4e 46 28 4a 29 | 2e 45 51 2e 28 38 2b 49 |ND.NF(J)|.EQ.(8+I|
|00032660| 52 45 46 29 29 20 54 48 | 45 4e 0a 43 20 20 20 20 |REF)) TH|EN.C |
|00032670| 20 20 54 48 49 53 20 49 | 53 20 54 48 45 20 52 45 | THIS I|S THE RE|
|00032680| 46 45 52 45 4e 43 45 20 | 49 4f 4e 3a 20 49 4e 54 |FERENCE |ION: INT|
|00032690| 52 4f 44 55 43 45 20 43 | 48 41 52 47 45 20 42 41 |RODUCE C|HARGE BA|
|000326a0| 4c 41 4e 43 45 0a 20 20 | 20 20 20 20 20 20 43 48 |LANCE. | CH|
|000326b0| 53 4d 3d 5a 45 52 4f 0a | 20 20 20 20 20 20 20 20 |SM=ZERO.| |
|000326c0| 44 4f 20 33 34 35 20 4c | 3d 31 2c 4e 53 4f 0a 20 |DO 345 L|=1,NSO. |
|000326d0| 20 20 20 20 20 20 20 43 | 48 53 4d 3d 43 48 53 4d | C|HSM=CHSM|
|000326e0| 2b 4e 5a 50 4f 28 4c 29 | 2a 43 53 28 38 2b 4c 29 |+NZPO(L)|*CS(8+L)|
|000326f0| 0a 33 34 35 20 20 20 20 | 20 43 4f 4e 54 49 4e 55 |.345 | CONTINU|
|00032700| 45 0a 20 20 20 20 20 20 | 20 20 46 43 4c 28 4a 29 |E. | FCL(J)|
|00032710| 3d 43 48 53 4d 2f 28 43 | 48 53 4d 2d 43 53 28 38 |=CHSM/(C|HSM-CS(8|
|00032720| 2b 49 52 45 46 29 2a 4e | 5a 50 4f 28 49 52 45 46 |+IREF)*N|ZPO(IREF|
|00032730| 29 29 0a 20 20 20 20 20 | 20 45 4c 53 45 0a 20 20 |)). | ELSE. |
|00032740| 20 20 20 20 20 20 49 46 | 28 4e 46 28 4a 29 2e 45 | IF|(NF(J).E|
|00032750| 51 2e 28 38 2b 49 29 29 | 20 54 48 45 4e 0a 20 20 |Q.(8+I))| THEN. |
|00032760| 20 20 20 20 20 20 20 20 | 46 43 4c 28 4a 29 3d 4f | |FCL(J)=O|
|00032770| 4e 45 2d 43 4f 50 28 49 | 29 2f 43 53 28 4e 46 28 |NE-COP(I|)/CS(NF(|
|00032780| 4a 29 29 0a 43 0a 43 20 | 20 20 20 20 20 49 46 28 |J)).C.C | IF(|
|00032790| 49 2e 45 51 2e 31 2e 41 | 4e 44 2e 49 50 54 2e 45 |I.EQ.1.A|ND.IPT.E|
|000327a0| 51 2e 36 29 20 54 48 45 | 4e 0a 43 20 20 20 20 20 |Q.6) THE|N.C |
|000327b0| 20 57 52 49 54 45 28 2a | 2c 36 37 38 39 29 20 49 | WRITE(*|,6789) I|
|000327c0| 2c 46 4f 4b 28 49 29 2c | 47 28 31 29 2c 47 28 33 |,FOK(I),|G(1),G(3|
|000327d0| 29 2c 47 28 37 29 2c 47 | 28 39 29 2c 0a 43 20 20 |),G(7),G|(9),.C |
|000327e0| 20 20 20 26 43 53 28 31 | 29 2c 43 53 28 33 29 2c | &CS(1|),CS(3),|
|000327f0| 43 53 28 37 29 2c 43 4f | 50 28 49 29 2c 43 53 28 |CS(7),CO|P(I),CS(|
|00032800| 4e 46 28 4a 29 29 0a 43 | 36 37 38 39 20 20 46 4f |NF(J)).C|6789 FO|
|00032810| 52 4d 41 54 28 2f 31 58 | 2c 27 20 20 49 20 20 20 |RMAT(/1X|,' I |
|00032820| 20 20 46 4f 4b 20 20 20 | 20 47 28 31 29 20 20 20 | FOK | G(1) |
|00032830| 20 47 28 33 29 20 20 20 | 20 47 28 37 29 20 20 20 | G(3) | G(7) |
|00032840| 20 47 28 39 29 27 2f 0a | 43 20 20 20 20 20 26 31 | G(9)'/.|C &1|
|00032850| 58 2c 49 33 2c 35 46 38 | 2e 33 2f 0a 43 20 20 20 |X,I3,5F8|.3/.C |
|00032860| 20 20 26 31 58 2c 27 20 | 20 20 20 20 20 20 43 53 | &1X,' | CS|
|00032870| 28 31 29 20 20 20 20 20 | 20 20 43 53 28 33 29 20 |(1) | CS(3) |
|00032880| 20 20 20 20 20 20 43 53 | 28 37 29 20 20 20 20 20 | CS|(7) |
|00032890| 20 43 4f 50 28 49 29 27 | 2c 0a 43 20 20 20 20 20 | COP(I)'|,.C |
|000328a0| 26 27 20 20 20 43 53 28 | 4e 46 28 4a 29 29 27 2f |&' CS(|NF(J))'/|
|000328b0| 31 58 2c 31 50 35 45 31 | 32 2e 33 29 0a 43 20 20 |1X,1P5E1|2.3).C |
|000328c0| 20 20 20 20 50 41 55 53 | 45 0a 43 20 20 20 20 20 | PAUS|E.C |
|000328d0| 20 45 4e 44 20 49 46 0a | 43 0a 20 20 20 20 20 20 | END IF.|C. |
|000328e0| 20 20 45 4e 44 20 49 46 | 0a 20 20 20 20 20 20 45 | END IF|. E|
|000328f0| 4e 44 20 49 46 0a 33 35 | 30 20 20 20 43 4f 4e 54 |ND IF.35|0 CONT|
|00032900| 49 4e 55 45 0a 33 35 35 | 20 20 20 49 46 28 4e 53 |INUE.355| IF(NS|
|00032910| 41 2e 45 51 2e 30 29 20 | 47 4f 54 4f 20 33 36 35 |A.EQ.0) |GOTO 365|
|00032920| 0a 43 20 20 20 54 45 53 | 54 20 43 4f 4e 44 49 54 |.C TES|T CONDIT|
|00032930| 49 4f 4e 53 20 44 45 54 | 45 52 4d 49 4e 49 4e 47 |IONS DET|ERMINING|
|00032940| 20 41 51 2e 20 50 52 4f | 44 55 43 54 20 43 4f 4e | AQ. PRO|DUCT CON|
|00032950| 43 4e 53 2e 0a 20 20 20 | 20 20 20 44 4f 20 33 36 |CNS.. | DO 36|
|00032960| 30 20 49 3d 31 2c 4e 53 | 41 0a 20 20 20 20 20 20 |0 I=1,NS|A. |
|00032970| 49 46 28 4e 46 28 4a 29 | 2e 45 51 2e 28 38 2b 4e |IF(NF(J)|.EQ.(8+N|
|00032980| 53 4f 2b 49 29 29 20 46 | 43 4c 28 4a 29 3d 4f 4e |SO+I)) F|CL(J)=ON|
|00032990| 45 2d 43 41 50 28 49 29 | 2f 43 53 28 4e 46 28 4a |E-CAP(I)|/CS(NF(J|
|000329a0| 29 29 0a 33 36 30 20 20 | 20 43 4f 4e 54 49 4e 55 |)).360 | CONTINU|
|000329b0| 45 0a 33 36 35 20 20 20 | 43 4f 4e 54 49 4e 55 45 |E.365 |CONTINUE|
|000329c0| 0a 43 0a 43 20 20 20 20 | 20 20 57 52 49 54 45 28 |.C.C | WRITE(|
|000329d0| 31 32 2c 31 31 31 34 29 | 20 28 43 53 28 49 29 2c |12,1114)| (CS(I),|
|000329e0| 49 3d 31 2c 38 29 0a 43 | 20 20 20 20 20 20 57 52 |I=1,8).C| WR|
|000329f0| 49 54 45 28 39 2c 31 31 | 31 34 29 20 28 43 53 28 |ITE(9,11|14) (CS(|
|00032a00| 49 29 2c 49 3d 31 2c 38 | 29 0a 43 31 31 31 34 20 |I),I=1,8|).C1114 |
|00032a10| 20 46 4f 52 4d 41 54 28 | 31 58 2c 27 49 54 45 52 | FORMAT(|1X,'ITER|
|00032a20| 41 54 49 4e 47 20 49 4e | 20 46 43 4e 3a 20 43 53 |ATING IN| FCN: CS|
|00032a30| 20 28 48 41 20 42 20 4d | 20 4e 20 58 20 59 20 48 | (HA B M| N X Y H|
|00032a40| 20 4f 48 29 20 3d 27 2f | 0a 43 20 20 20 20 20 26 | OH) ='/|.C &|
|00032a50| 31 58 2c 31 50 38 45 39 | 2e 32 29 0a 43 20 20 20 |1X,1P8E9|.2).C |
|00032a60| 20 20 20 49 46 28 4e 53 | 4f 2e 47 54 2e 30 29 20 | IF(NS|O.GT.0) |
|00032a70| 57 52 49 54 45 28 31 32 | 2c 31 31 31 35 29 20 28 |WRITE(12|,1115) (|
|00032a80| 43 53 28 49 29 2c 49 3d | 39 2c 28 38 2b 4e 53 4f |CS(I),I=|9,(8+NSO|
|00032a90| 29 29 0a 43 31 31 31 35 | 20 20 46 4f 52 4d 41 54 |)).C1115| FORMAT|
|00032aa0| 28 31 58 2c 27 43 53 20 | 28 4e 53 4f 29 20 3d 27 |(1X,'CS |(NSO) ='|
|00032ab0| 2f 31 58 2c 31 50 38 45 | 39 2e 32 29 0a 43 20 20 |/1X,1P8E|9.2).C |
|00032ac0| 20 20 20 20 49 46 28 4e | 53 41 2e 47 54 2e 30 29 | IF(N|SA.GT.0)|
|00032ad0| 20 57 52 49 54 45 28 31 | 32 2c 31 31 31 36 29 20 | WRITE(1|2,1116) |
|00032ae0| 28 43 53 28 49 29 2c 49 | 3d 28 39 2b 4e 53 4f 29 |(CS(I),I|=(9+NSO)|
|00032af0| 2c 28 38 2b 4e 53 4f 2b | 4e 53 41 29 29 0a 43 31 |,(8+NSO+|NSA)).C1|
|00032b00| 31 31 36 20 20 46 4f 52 | 4d 41 54 28 31 58 2c 27 |116 FOR|MAT(1X,'|
|00032b10| 43 53 20 28 4e 53 41 29 | 20 3d 27 2f 31 58 2c 31 |CS (NSA)| ='/1X,1|
|00032b20| 50 38 45 39 2e 32 29 0a | 43 20 20 20 20 20 20 57 |P8E9.2).|C W|
|00032b30| 52 49 54 45 28 31 32 2c | 31 31 31 37 29 20 28 47 |RITE(12,|1117) (G|
|00032b40| 28 49 29 2c 49 3d 31 2c | 38 29 0a 43 31 31 31 37 |(I),I=1,|8).C1117|
|00032b50| 20 20 46 4f 52 4d 41 54 | 28 31 58 2c 27 47 20 28 | FORMAT|(1X,'G (|
|00032b60| 48 41 20 42 20 4d 20 4e | 20 58 20 59 20 48 20 4f |HA B M N| X Y H O|
|00032b70| 48 29 20 3d 27 2f 31 58 | 2c 31 50 38 45 39 2e 32 |H) ='/1X|,1P8E9.2|
|00032b80| 29 0a 43 20 20 20 20 20 | 20 49 46 28 4e 53 4f 2e |).C | IF(NSO.|
|00032b90| 47 54 2e 30 29 20 57 52 | 49 54 45 28 31 32 2c 31 |GT.0) WR|ITE(12,1|
|00032ba0| 31 31 38 29 20 28 47 28 | 49 29 2c 49 3d 39 2c 28 |118) (G(|I),I=9,(|
|00032bb0| 38 2b 4e 53 4f 29 29 0a | 43 31 31 31 38 20 20 46 |8+NSO)).|C1118 F|
|00032bc0| 4f 52 4d 41 54 28 31 58 | 2c 27 47 20 28 4e 53 4f |ORMAT(1X|,'G (NSO|
|00032bd0| 29 20 3d 27 2f 31 58 2c | 31 50 38 45 39 2e 32 29 |) ='/1X,|1P8E9.2)|
|00032be0| 0a 43 20 20 20 20 20 20 | 49 46 28 4e 53 41 2e 47 |.C |IF(NSA.G|
|00032bf0| 54 2e 30 29 20 57 52 49 | 54 45 28 31 32 2c 31 31 |T.0) WRI|TE(12,11|
|00032c00| 31 39 29 20 28 47 28 49 | 29 2c 49 3d 28 39 2b 4e |19) (G(I|),I=(9+N|
|00032c10| 53 4f 29 2c 28 38 2b 4e | 53 4f 2b 4e 53 41 29 29 |SO),(8+N|SO+NSA))|
|00032c20| 0a 43 31 31 31 39 20 20 | 46 4f 52 4d 41 54 28 31 |.C1119 |FORMAT(1|
|00032c30| 58 2c 27 47 20 28 4e 53 | 41 29 20 3d 27 2f 31 58 |X,'G (NS|A) ='/1X|
|00032c40| 2c 31 50 38 45 39 2e 32 | 29 0a 43 20 20 20 20 20 |,1P8E9.2|).C |
|00032c50| 20 57 52 49 54 45 28 39 | 2c 31 31 31 33 29 28 4e | WRITE(9|,1113)(N|
|00032c60| 46 28 49 29 2c 49 3d 31 | 2c 4e 45 51 29 0a 43 20 |F(I),I=1|,NEQ).C |
|00032c70| 20 20 20 20 20 57 52 49 | 54 45 28 31 32 2c 31 31 | WRI|TE(12,11|
|00032c80| 31 33 29 28 4e 46 28 49 | 29 2c 49 3d 31 2c 4e 45 |13)(NF(I|),I=1,NE|
|00032c90| 51 29 0a 43 31 31 31 33 | 20 20 46 4f 52 4d 41 54 |Q).C1113| FORMAT|
|00032ca0| 28 31 58 2c 27 4e 46 20 | 3d 20 27 2c 28 31 30 49 |(1X,'NF |= ',(10I|
|00032cb0| 34 29 29 0a 43 0a 43 20 | 20 20 20 20 20 49 46 28 |4)).C.C | IF(|
|00032cc0| 49 50 54 2e 45 51 2e 31 | 38 35 2e 41 4e 44 2e 4e |IPT.EQ.1|85.AND.N|
|00032cd0| 43 41 4c 2e 45 51 2e 31 | 29 20 54 48 45 4e 0a 43 |CAL.EQ.1|) THEN.C|
|00032ce0| 20 20 20 20 20 20 20 20 | 57 52 49 54 45 28 39 2c | |WRITE(9,|
|00032cf0| 31 31 32 30 29 28 58 43 | 4c 28 49 29 2c 49 3d 31 |1120)(XC|L(I),I=1|
|00032d00| 2c 4e 45 51 29 0a 43 20 | 20 20 20 20 20 20 20 57 |,NEQ).C | W|
|00032d10| 52 49 54 45 28 31 37 2c | 31 31 32 30 29 28 58 43 |RITE(17,|1120)(XC|
|00032d20| 4c 28 49 29 2c 49 3d 31 | 2c 4e 45 51 29 0a 43 31 |L(I),I=1|,NEQ).C1|
|00032d30| 31 32 30 20 20 20 20 46 | 4f 52 4d 41 54 28 31 58 |120 F|ORMAT(1X|
|00032d40| 2c 27 58 43 4c 20 3d 20 | 27 2f 28 31 58 2c 35 46 |,'XCL = |'/(1X,5F|
|00032d50| 31 35 2e 31 30 29 29 0a | 43 20 20 20 20 20 20 20 |15.10)).|C |
|00032d60| 20 57 52 49 54 45 28 39 | 2c 31 31 32 31 29 20 28 | WRITE(9|,1121) (|
|00032d70| 46 43 4c 28 49 29 2c 49 | 3d 31 2c 4e 45 51 29 0a |FCL(I),I|=1,NEQ).|
|00032d80| 43 20 20 20 20 20 20 20 | 20 57 52 49 54 45 28 31 |C | WRITE(1|
|00032d90| 37 2c 31 31 32 31 29 20 | 28 46 43 4c 28 49 29 2c |7,1121) |(FCL(I),|
|00032da0| 49 3d 31 2c 4e 45 51 29 | 0a 43 31 31 32 31 20 20 |I=1,NEQ)|.C1121 |
|00032db0| 20 20 46 4f 52 4d 41 54 | 28 31 58 2c 27 46 43 4c | FORMAT|(1X,'FCL|
|00032dc0| 20 3d 20 27 2f 28 31 58 | 2c 31 50 35 45 31 35 2e | = '/(1X|,1P5E15.|
|00032dd0| 35 29 29 0a 43 20 20 20 | 20 20 20 20 20 57 52 49 |5)).C | WRI|
|00032de0| 54 45 28 31 32 2c 31 31 | 32 32 29 0a 43 31 31 32 |TE(12,11|22).C112|
|00032df0| 32 20 20 20 20 46 4f 52 | 4d 41 54 28 2f 29 0a 43 |2 FOR|MAT(/).C|
|00032e00| 20 20 20 20 20 20 20 20 | 57 52 49 54 45 28 2a 2c | |WRITE(*,|
|00032e10| 32 30 33 33 29 20 28 43 | 53 28 4b 4b 29 2c 4b 4b |2033) (C|S(KK),KK|
|00032e20| 3d 39 2c 28 31 30 2b 4e | 53 4f 29 29 0a 43 20 20 |=9,(10+N|SO)).C |
|00032e30| 20 20 20 20 20 20 57 52 | 49 54 45 28 31 37 2c 32 | WR|ITE(17,2|
|00032e40| 30 33 33 29 20 28 43 53 | 28 4b 4b 29 2c 4b 4b 3d |033) (CS|(KK),KK=|
|00032e50| 39 2c 28 31 30 2b 4e 53 | 4f 29 29 0a 43 32 30 33 |9,(10+NS|O)).C203|
|00032e60| 33 20 20 20 20 46 4f 52 | 4d 41 54 28 31 58 2c 27 |3 FOR|MAT(1X,'|
|00032e70| 43 53 3a 27 2f 28 31 58 | 2c 31 50 36 45 31 33 2e |CS:'/(1X|,1P6E13.|
|00032e80| 32 2f 29 29 0a 43 20 20 | 20 20 20 20 20 20 50 41 |2/)).C | PA|
|00032e90| 55 53 45 0a 43 20 20 20 | 20 20 20 45 4e 44 20 49 |USE.C | END I|
|00032ea0| 46 0a 43 0a 20 20 20 20 | 20 20 52 45 54 55 52 4e |F.C. | RETURN|
|00032eb0| 0a 20 20 20 20 20 20 45 | 4e 44 0a 43 0a 43 0a 63 |. E|ND.C.C.c|
|00032ec0| 0a 43 20 20 53 55 42 52 | 4f 55 54 49 4e 45 20 54 |.C SUBR|OUTINE T|
|00032ed0| 4f 20 43 4f 4d 42 49 4e | 45 20 46 4f 52 4d 41 54 |O COMBIN|E FORMAT|
|00032ee0| 49 4f 4e 20 52 45 41 43 | 54 49 4f 4e 53 20 46 4f |ION REAC|TIONS FO|
|00032ef0| 52 20 4e 4f 4e 41 51 55 | 45 4f 55 53 0a 43 20 20 |R NONAQU|EOUS.C |
|00032f00| 20 50 52 4f 44 55 43 54 | 20 53 50 45 43 49 45 53 | PRODUCT| SPECIES|
|00032f10| 20 54 4f 20 50 52 4f 44 | 55 43 45 20 52 45 41 43 | TO PROD|UCE REAC|
|00032f20| 54 49 4f 4e 53 20 54 48 | 41 54 20 45 58 43 4c 55 |TIONS TH|AT EXCLU|
|00032f30| 44 45 20 41 51 55 45 4f | 55 53 0a 43 20 20 20 52 |DE AQUEO|US.C R|
|00032f40| 45 41 43 54 41 4e 54 20 | 49 4f 4e 53 2e 0a 43 0a |EACTANT |IONS..C.|
|00032f50| 43 0a 20 20 20 20 20 20 | 53 55 42 52 4f 55 54 49 |C. |SUBROUTI|
|00032f60| 4e 45 20 43 4f 4d 42 52 | 4e 28 4e 53 4f 2c 49 52 |NE COMBR|N(NSO,IR|
|00032f70| 45 46 2c 49 43 54 52 2c | 52 5a 49 52 2c 46 4f 4b |EF,ICTR,|RZIR,FOK|
|00032f80| 2c 45 4f 43 2c 0a 20 20 | 20 20 20 26 46 4f 43 2c |,EOC,. | &FOC,|
|00032f90| 43 45 4f 43 2c 52 46 4f | 4b 2c 52 45 4f 43 2c 4a |CEOC,RFO|K,REOC,J|
|00032fa0| 53 2c 53 46 4f 4b 2c 53 | 45 4f 43 29 0a 20 20 20 |S,SFOK,S|EOC). |
|00032fb0| 20 20 20 49 4d 50 4c 49 | 43 49 54 20 52 45 41 4c | IMPLI|CIT REAL|
|00032fc0| 2a 38 28 41 2d 48 2c 4f | 2d 5a 29 0a 20 20 20 20 |*8(A-H,O|-Z). |
|00032fd0| 20 20 53 41 56 45 0a 20 | 20 20 20 20 20 44 49 4d | SAVE. | DIM|
|00032fe0| 45 4e 53 49 4f 4e 20 52 | 5a 49 52 28 2a 29 2c 46 |ENSION R|ZIR(*),F|
|00032ff0| 4f 4b 28 2a 29 2c 45 4f | 43 28 38 2c 2a 29 2c 46 |OK(*),EO|C(8,*),F|
|00033000| 4f 43 28 38 2c 2a 29 2c | 43 45 4f 43 28 2a 29 2c |OC(8,*),|CEOC(*),|
|00033010| 0a 20 20 20 20 20 26 52 | 46 4f 4b 28 35 2c 2a 29 |. &R|FOK(5,*)|
|00033020| 2c 52 45 4f 43 28 35 2c | 38 2b 4e 53 4f 2c 2a 29 |,REOC(5,|8+NSO,*)|
|00033030| 2c 53 46 4f 4b 28 2a 29 | 2c 53 45 4f 43 28 38 2b |,SFOK(*)|,SEOC(8+|
|00033040| 4e 53 4f 2c 2a 29 2c 4a | 49 28 35 29 0a 20 20 20 |NSO,*),J|I(5). |
|00033050| 20 20 20 44 41 54 41 20 | 5a 45 52 4f 2c 4f 4e 45 | DATA |ZERO,ONE|
|00033060| 2c 54 57 4f 2c 54 48 52 | 45 45 2c 46 49 56 45 2c |,TWO,THR|EE,FIVE,|
|00033070| 54 45 4e 2c 48 55 4e 44 | 2c 54 48 4f 55 2f 30 2e |TEN,HUND|,THOU/0.|
|00033080| 30 44 2b 30 30 2c 31 2e | 30 44 2b 30 30 2c 0a 20 |0D+00,1.|0D+00,. |
|00033090| 20 20 20 20 26 32 2e 30 | 44 2b 30 30 2c 33 2e 30 | &2.0|D+00,3.0|
|000330a0| 44 2b 30 30 2c 35 2e 30 | 44 2b 30 30 2c 31 2e 30 |D+00,5.0|D+00,1.0|
|000330b0| 44 2b 30 31 2c 31 2e 30 | 44 2b 30 32 2c 31 2e 30 |D+01,1.0|D+02,1.0|
|000330c0| 44 2b 30 33 2f 0a 43 0a | 43 20 20 20 20 20 20 57 |D+03/.C.|C W|
|000330d0| 52 49 54 45 28 39 2c 31 | 30 30 30 29 0a 43 0a 20 |RITE(9,1|000).C. |
|000330e0| 20 20 20 20 20 49 3d 31 | 0a 20 20 20 20 20 20 4a | I=1|. J|
|000330f0| 52 3d 30 0a 20 20 20 20 | 20 20 4a 53 3d 30 0a 43 |R=0. | JS=0.C|
|00033100| 0a 43 20 20 20 45 4c 49 | 4d 49 4e 41 54 45 20 52 |.C ELI|MINATE R|
|00033110| 45 41 43 54 41 4e 54 20 | 33 0a 43 0a 20 20 20 20 |EACTANT |3.C. |
|00033120| 20 20 44 4f 20 33 30 20 | 4a 3d 31 2c 4e 53 4f 0a | DO 30 |J=1,NSO.|
|00033130| 20 20 20 20 20 20 49 46 | 28 4a 2e 45 51 2e 49 52 | IF|(J.EQ.IR|
|00033140| 45 46 29 20 47 4f 54 4f | 20 33 30 0a 20 20 20 20 |EF) GOTO| 30. |
|00033150| 20 20 4b 3d 30 0a 20 20 | 20 20 20 20 49 46 28 46 | K=0. | IF(F|
|00033160| 4f 43 28 31 2c 4a 29 2e | 45 51 2e 5a 45 52 4f 2e |OC(1,J).|EQ.ZERO.|
|00033170| 4f 52 2e 46 4f 43 28 32 | 2c 4a 29 2e 45 51 2e 5a |OR.FOC(2|,J).EQ.Z|
|00033180| 45 52 4f 2e 4f 52 2e 46 | 4f 43 28 33 2c 4a 29 2e |ERO.OR.F|OC(3,J).|
|00033190| 0a 20 20 20 20 20 26 45 | 51 2e 5a 45 52 4f 2e 4f |. &E|Q.ZERO.O|
|000331a0| 52 2e 46 4f 43 28 34 2c | 4a 29 2e 45 51 2e 5a 45 |R.FOC(4,|J).EQ.ZE|
|000331b0| 52 4f 2e 4f 52 2e 46 4f | 43 28 35 2c 4a 29 2e 45 |RO.OR.FO|C(5,J).E|
|000331c0| 51 2e 5a 45 52 4f 2e 4f | 52 2e 0a 20 20 20 20 20 |Q.ZERO.O|R.. |
|000331d0| 26 46 4f 43 28 36 2c 4a | 29 2e 45 51 2e 5a 45 52 |&FOC(6,J|).EQ.ZER|
|000331e0| 4f 29 20 47 4f 54 4f 20 | 33 30 0a 20 20 20 20 20 |O) GOTO |30. |
|000331f0| 20 49 46 28 45 4f 43 28 | 49 2b 32 2c 4a 29 2e 45 | IF(EOC(|I+2,J).E|
|00033200| 51 2e 5a 45 52 4f 29 20 | 54 48 45 4e 0a 43 20 20 |Q.ZERO) |THEN.C |
|00033210| 20 20 20 20 52 45 41 43 | 54 41 4e 54 20 33 20 49 | REAC|TANT 3 I|
|00033220| 53 20 41 42 53 45 4e 54 | 20 46 52 4f 4d 20 53 50 |S ABSENT| FROM SP|
|00033230| 45 43 49 45 53 20 4a 0a | 20 20 20 20 20 20 20 20 |ECIES J.| |
|00033240| 43 46 4f 4b 3d 46 4f 4b | 28 4a 29 0a 20 20 20 20 |CFOK=FOK|(J). |
|00033250| 20 20 20 20 44 4f 20 35 | 20 4c 3d 31 2c 38 0a 20 | DO 5| L=1,8. |
|00033260| 20 20 20 20 20 20 20 43 | 45 4f 43 28 4c 29 3d 45 | C|EOC(L)=E|
|00033270| 4f 43 28 4c 2c 4a 29 0a | 35 20 20 20 20 20 20 20 |OC(L,J).|5 |
|00033280| 43 4f 4e 54 49 4e 55 45 | 0a 20 20 20 20 20 20 20 |CONTINUE|. |
|00033290| 20 44 4f 20 31 30 20 4d | 3d 31 2c 4e 53 4f 0a 20 | DO 10 M|=1,NSO. |
|000332a0| 20 20 20 20 20 20 20 49 | 46 28 4d 2e 4e 45 2e 4a | I|F(M.NE.J|
|000332b0| 29 20 54 48 45 4e 0a 20 | 20 20 20 20 20 20 20 20 |) THEN. | |
|000332c0| 20 43 45 4f 43 28 38 2b | 4d 29 3d 5a 45 52 4f 0a | CEOC(8+|M)=ZERO.|
|000332d0| 20 20 20 20 20 20 20 20 | 45 4c 53 45 0a 20 20 20 | |ELSE. |
|000332e0| 20 20 20 20 20 20 20 43 | 45 4f 43 28 38 2b 4a 29 | C|EOC(8+J)|
|000332f0| 3d 2d 4f 4e 45 0a 09 20 | 20 49 46 28 52 5a 49 52 |=-ONE.. | IF(RZIR|
|00033300| 28 4a 29 2e 4e 45 2e 5a | 45 52 4f 29 20 43 45 4f |(J).NE.Z|ERO) CEO|
|00033310| 43 28 38 2b 49 52 45 46 | 29 3d 52 5a 49 52 28 4a |C(8+IREF|)=RZIR(J|
|00033320| 29 0a 20 20 20 20 20 20 | 20 20 45 4e 44 20 49 46 |). | END IF|
|00033330| 0a 31 30 20 20 20 20 20 | 20 43 4f 4e 54 49 4e 55 |.10 | CONTINU|
|00033340| 45 0a 20 20 20 20 20 20 | 20 20 43 41 4c 4c 20 43 |E. | CALL C|
|00033350| 4f 4d 42 28 4e 53 4f 2c | 49 2c 4a 2c 4b 2c 43 46 |OMB(NSO,|I,J,K,CF|
|00033360| 4f 4b 2c 43 45 4f 43 2c | 4a 52 2c 52 46 4f 4b 2c |OK,CEOC,|JR,RFOK,|
|00033370| 52 45 4f 43 2c 0a 20 20 | 20 20 20 26 20 20 4a 53 |REOC,. | & JS|
|00033380| 2c 53 46 4f 4b 2c 53 45 | 4f 43 29 0a 20 20 20 20 |,SFOK,SE|OC). |
|00033390| 20 20 45 4c 53 45 0a 43 | 20 20 20 20 20 20 52 45 | ELSE.C| RE|
|000333a0| 41 43 54 41 4e 54 20 49 | 2b 32 20 49 53 20 50 52 |ACTANT I|+2 IS PR|
|000333b0| 45 53 45 4e 54 20 49 4e | 20 53 50 45 43 49 45 53 |ESENT IN| SPECIES|
|000333c0| 20 4a 0a 20 20 20 20 20 | 20 20 20 49 46 28 4a 2e | J. | IF(J.|
|000333d0| 45 51 2e 4e 53 4f 29 20 | 47 4f 54 4f 20 33 30 0a |EQ.NSO) |GOTO 30.|
|000333e0| 43 20 20 20 20 20 20 4c | 4f 4f 4b 20 46 4f 52 20 |C L|OOK FOR |
|000333f0| 52 45 4d 41 49 4e 49 4e | 47 20 53 50 45 43 49 45 |REMAININ|G SPECIE|
|00033400| 53 20 43 4f 4e 54 41 49 | 4e 49 4e 47 20 52 45 41 |S CONTAI|NING REA|
|00033410| 43 54 41 4e 54 20 33 0a | 20 20 20 20 20 20 20 20 |CTANT 3.| |
|00033420| 44 4f 20 32 35 20 4b 3d | 28 4a 2b 31 29 2c 4e 53 |DO 25 K=|(J+1),NS|
|00033430| 4f 0a 20 20 20 20 20 20 | 20 20 49 46 28 4b 2e 45 |O. | IF(K.E|
|00033440| 51 2e 49 52 45 46 29 20 | 47 4f 54 4f 20 32 35 0a |Q.IREF) |GOTO 25.|
|00033450| 20 20 20 20 20 20 20 20 | 49 46 28 46 4f 43 28 31 | |IF(FOC(1|
|00033460| 2c 4b 29 2e 45 51 2e 5a | 45 52 4f 2e 4f 52 2e 46 |,K).EQ.Z|ERO.OR.F|
|00033470| 4f 43 28 32 2c 4b 29 2e | 45 51 2e 5a 45 52 4f 2e |OC(2,K).|EQ.ZERO.|
|00033480| 4f 52 2e 46 4f 43 28 33 | 2c 4b 29 2e 0a 20 20 20 |OR.FOC(3|,K).. |
|00033490| 20 20 26 20 20 45 51 2e | 5a 45 52 4f 2e 4f 52 2e | & EQ.|ZERO.OR.|
|000334a0| 46 4f 43 28 34 2c 4b 29 | 2e 45 51 2e 5a 45 52 4f |FOC(4,K)|.EQ.ZERO|
|000334b0| 2e 4f 52 2e 46 4f 43 28 | 35 2c 4b 29 2e 45 51 2e |.OR.FOC(|5,K).EQ.|
|000334c0| 5a 45 52 4f 2e 4f 52 2e | 0a 20 20 20 20 20 26 20 |ZERO.OR.|. & |
|000334d0| 20 46 4f 43 28 36 2c 4b | 29 2e 45 51 2e 5a 45 52 | FOC(6,K|).EQ.ZER|
|000334e0| 4f 29 20 47 4f 54 4f 20 | 32 35 0a 20 20 20 20 20 |O) GOTO |25. |
|000334f0| 20 20 20 49 46 28 45 4f | 43 28 49 2b 32 2c 4b 29 | IF(EO|C(I+2,K)|
|00033500| 2e 4e 45 2e 5a 45 52 4f | 29 20 54 48 45 4e 0a 43 |.NE.ZERO|) THEN.C|
|00033510| 20 20 20 20 20 20 20 20 | 52 45 41 43 54 41 4e 54 | |REACTANT|
|00033520| 20 49 2b 32 20 49 53 20 | 50 52 45 53 45 4e 54 20 | I+2 IS |PRESENT |
|00033530| 49 4e 20 53 50 45 43 49 | 45 53 20 4b 3a 20 0a 43 |IN SPECI|ES K: .C|
|00033540| 20 20 20 20 20 20 20 20 | 20 55 53 45 20 46 4f 52 | | USE FOR|
|00033550| 4d 41 54 49 4f 4e 20 52 | 45 41 43 54 49 4f 4e 53 |MATION R|EACTIONS|
|00033560| 20 4f 46 20 4a 20 41 4e | 44 20 4b 20 54 4f 20 45 | OF J AN|D K TO E|
|00033570| 4c 49 4d 49 4e 41 54 45 | 20 49 54 20 0a 09 20 20 |LIMINATE| IT .. |
|00033580| 52 46 54 3d 45 4f 43 28 | 49 2b 32 2c 4a 29 2f 45 |RFT=EOC(|I+2,J)/E|
|00033590| 4f 43 28 49 2b 32 2c 4b | 29 0a 09 20 20 43 46 4f |OC(I+2,K|).. CFO|
|000335a0| 4b 3d 46 4f 4b 28 4a 29 | 2f 46 4f 4b 28 4b 29 2a |K=FOK(J)|/FOK(K)*|
|000335b0| 2a 52 46 54 0a 09 20 20 | 44 4f 20 31 35 20 4c 3d |*RFT.. |DO 15 L=|
|000335c0| 31 2c 38 0a 20 20 20 20 | 20 20 20 20 20 20 43 45 |1,8. | CE|
|000335d0| 4f 43 28 4c 29 3d 45 4f | 43 28 4c 2c 4a 29 2d 52 |OC(L)=EO|C(L,J)-R|
|000335e0| 46 54 2a 45 4f 43 28 4c | 2c 4b 29 0a 31 35 20 20 |FT*EOC(L|,K).15 |
|000335f0| 20 20 20 20 20 20 43 4f | 4e 54 49 4e 55 45 0a 20 | CO|NTINUE. |
|00033600| 20 20 20 20 20 20 20 20 | 20 43 45 4f 43 28 38 2b | | CEOC(8+|
|00033610| 49 52 45 46 29 3d 5a 45 | 52 4f 0a 20 20 20 20 20 |IREF)=ZE|RO. |
|00033620| 20 20 20 20 20 44 4f 20 | 32 30 20 4d 3d 31 2c 4e | DO |20 M=1,N|
|00033630| 53 4f 0a 09 20 20 49 46 | 28 4d 2e 45 51 2e 49 52 |SO.. IF|(M.EQ.IR|
|00033640| 45 46 29 20 47 4f 54 4f | 20 32 30 0a 20 20 20 20 |EF) GOTO| 20. |
|00033650| 20 20 20 20 20 20 49 46 | 28 4d 2e 4e 45 2e 4a 2e | IF|(M.NE.J.|
|00033660| 41 4e 44 2e 4d 2e 4e 45 | 2e 4b 29 20 54 48 45 4e |AND.M.NE|.K) THEN|
|00033670| 0a 09 20 20 20 20 43 45 | 4f 43 28 38 2b 4d 29 3d |.. CE|OC(8+M)=|
|00033680| 5a 45 52 4f 0a 20 20 20 | 20 20 20 20 20 20 20 45 |ZERO. | E|
|00033690| 4c 53 45 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |LSE. | |
|000336a0| 49 46 28 4d 2e 45 51 2e | 4a 29 20 54 48 45 4e 0a |IF(M.EQ.|J) THEN.|
|000336b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 43 45 | | CE|
|000336c0| 4f 43 28 38 2b 4a 29 3d | 2d 4f 4e 45 0a 09 20 20 |OC(8+J)=|-ONE.. |
|000336d0| 20 20 20 20 49 46 28 52 | 5a 49 52 28 4a 29 2e 4e | IF(R|ZIR(J).N|
|000336e0| 45 2e 5a 45 52 4f 29 20 | 54 48 45 4e 0a 20 20 20 |E.ZERO) |THEN. |
|000336f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 43 45 4f | | CEO|
|00033700| 43 28 38 2b 49 52 45 46 | 29 3d 43 45 4f 43 28 38 |C(8+IREF|)=CEOC(8|
|00033710| 2b 49 52 45 46 29 2b 52 | 5a 49 52 28 4a 29 09 20 |+IREF)+R|ZIR(J). |
|00033720| 20 20 20 20 20 0a 20 20 | 20 20 20 20 20 20 20 20 | . | |
|00033730| 20 20 20 20 45 4e 44 20 | 49 46 0a 20 20 20 20 20 | END |IF. |
|00033740| 20 20 20 20 20 20 20 45 | 4c 53 45 0a 20 20 20 20 | E|LSE. |
|00033750| 20 20 20 20 20 20 20 20 | 20 20 43 45 4f 43 28 38 | | CEOC(8|
|00033760| 2b 4b 29 3d 52 46 54 0a | 09 20 20 20 20 20 20 49 |+K)=RFT.|. I|
|00033770| 46 28 52 5a 49 52 28 4b | 29 2e 4e 45 2e 5a 45 52 |F(RZIR(K|).NE.ZER|
|00033780| 4f 29 20 54 48 45 4e 0a | 20 20 20 20 20 20 20 20 |O) THEN.| |
|00033790| 20 20 20 20 20 20 20 20 | 43 45 4f 43 28 38 2b 49 | |CEOC(8+I|
|000337a0| 52 45 46 29 3d 43 45 4f | 43 28 38 2b 49 52 45 46 |REF)=CEO|C(8+IREF|
|000337b0| 29 2d 52 46 54 2a 52 5a | 49 52 28 4b 29 09 20 20 |)-RFT*RZ|IR(K). |
|000337c0| 20 20 20 20 0a 20 20 20 | 20 20 20 20 20 20 20 20 | . | |
|000337d0| 20 20 20 45 4e 44 20 49 | 46 0a 20 20 20 20 20 20 | END I|F. |
|000337e0| 20 20 20 20 20 20 45 4e | 44 20 49 46 0a 20 20 20 | EN|D IF. |
|000337f0| 20 20 20 20 20 20 20 45 | 4e 44 20 49 46 0a 32 30 | E|ND IF.20|
|00033800| 20 20 20 20 20 20 20 20 | 43 4f 4e 54 49 4e 55 45 | |CONTINUE|
|00033810| 0a 20 20 20 20 20 20 20 | 20 20 20 43 41 4c 4c 20 |. | CALL |
|00033820| 43 4f 4d 42 28 4e 53 4f | 2c 49 2c 4a 2c 4b 2c 43 |COMB(NSO|,I,J,K,C|
|00033830| 46 4f 4b 2c 43 45 4f 43 | 2c 4a 52 2c 52 46 4f 4b |FOK,CEOC|,JR,RFOK|
|00033840| 2c 52 45 4f 43 2c 0a 20 | 20 20 20 20 26 20 20 20 |,REOC,. | & |
|00033850| 20 4a 53 2c 53 46 4f 4b | 2c 53 45 4f 43 29 0a 20 | JS,SFOK|,SEOC). |
|00033860| 20 20 20 20 20 20 20 45 | 4e 44 20 49 46 0a 32 35 | E|ND IF.25|
|00033870| 20 20 20 20 20 20 43 4f | 4e 54 49 4e 55 45 0a 20 | CO|NTINUE. |
|00033880| 20 20 20 20 20 45 4e 44 | 20 49 46 0a 43 0a 33 30 | END| IF.C.30|
|00033890| 20 20 20 20 43 4f 4e 54 | 49 4e 55 45 0a 43 0a 43 | CONT|INUE.C.C|
|000338a0| 20 20 45 4e 44 20 4c 4f | 4f 50 20 54 48 52 4f 55 | END LO|OP THROU|
|000338b0| 47 48 20 4e 53 4f 20 50 | 52 4f 44 55 43 54 20 53 |GH NSO P|RODUCT S|
|000338c0| 50 45 43 49 45 53 0a 43 | 0a 20 20 20 20 20 20 49 |PECIES.C|. I|
|000338d0| 46 28 4a 52 2e 45 51 2e | 30 29 20 47 4f 54 4f 20 |F(JR.EQ.|0) GOTO |
|000338e0| 36 30 0a 20 20 20 20 20 | 20 4a 49 28 49 29 3d 4a |60. | JI(I)=J|
|000338f0| 52 0a 43 0a 43 20 20 20 | 45 4c 49 4d 49 4e 41 54 |R.C.C |ELIMINAT|
|00033900| 45 20 52 45 41 43 54 41 | 4e 54 53 20 34 20 54 4f |E REACTA|NTS 4 TO|
|00033910| 20 37 0a 43 0a 20 20 20 | 20 20 20 44 4f 20 35 35 | 7.C. | DO 55|
|00033920| 20 49 3d 32 2c 35 0a 20 | 20 20 20 20 20 4a 52 3d | I=2,5. | JR=|
|00033930| 30 0a 20 20 20 20 20 20 | 44 4f 20 35 30 20 4a 3d |0. |DO 50 J=|
|00033940| 31 2c 4a 49 28 49 2d 31 | 29 0a 20 20 20 20 20 20 |1,JI(I-1|). |
|00033950| 4b 3d 30 0a 20 20 20 20 | 20 20 49 46 28 52 45 4f |K=0. | IF(REO|
|00033960| 43 28 49 2d 31 2c 49 2b | 32 2c 4a 29 2e 45 51 2e |C(I-1,I+|2,J).EQ.|
|00033970| 5a 45 52 4f 29 20 54 48 | 45 4e 0a 43 20 20 20 20 |ZERO) TH|EN.C |
|00033980| 20 20 52 45 41 43 54 41 | 4e 54 20 49 2b 32 20 49 | REACTA|NT I+2 I|
|00033990| 53 20 41 42 53 45 4e 54 | 20 46 52 4f 4d 20 54 48 |S ABSENT| FROM TH|
|000339a0| 49 53 20 52 45 41 43 54 | 49 4f 4e 0a 09 43 46 4f |IS REACT|ION..CFO|
|000339b0| 4b 3d 52 46 4f 4b 28 49 | 2d 31 2c 4a 29 0a 09 44 |K=RFOK(I|-1,J)..D|
|000339c0| 4f 20 33 35 20 4c 3d 31 | 2c 28 38 2b 4e 53 4f 29 |O 35 L=1|,(8+NSO)|
|000339d0| 0a 09 43 45 4f 43 28 4c | 29 3d 52 45 4f 43 28 49 |..CEOC(L|)=REOC(I|
|000339e0| 2d 31 2c 4c 2c 4a 29 0a | 33 35 20 20 20 20 20 20 |-1,L,J).|35 |
|000339f0| 43 4f 4e 54 49 4e 55 45 | 0a 20 20 20 20 20 20 20 |CONTINUE|. |
|00033a00| 20 43 41 4c 4c 20 43 4f | 4d 42 28 4e 53 4f 2c 49 | CALL CO|MB(NSO,I|
|00033a10| 2c 4a 2c 4b 2c 43 46 4f | 4b 2c 43 45 4f 43 2c 4a |,J,K,CFO|K,CEOC,J|
|00033a20| 52 2c 52 46 4f 4b 2c 52 | 45 4f 43 2c 0a 20 20 20 |R,RFOK,R|EOC,. |
|00033a30| 20 20 26 20 20 4a 53 2c | 53 46 4f 4b 2c 53 45 4f | & JS,|SFOK,SEO|
|00033a40| 43 29 0a 20 20 20 20 20 | 20 45 4c 53 45 0a 43 20 |C). | ELSE.C |
|00033a50| 20 20 20 20 20 52 45 41 | 43 54 41 4e 54 20 49 2b | REA|CTANT I+|
|00033a60| 32 20 49 53 20 50 52 45 | 53 45 4e 54 20 49 4e 20 |2 IS PRE|SENT IN |
|00033a70| 54 48 49 53 20 52 45 41 | 43 54 49 4f 4e 0a 20 20 |THIS REA|CTION. |
|00033a80| 20 20 20 20 20 20 49 46 | 28 4a 2e 45 51 2e 4a 49 | IF|(J.EQ.JI|
|00033a90| 28 49 2d 31 29 29 20 47 | 4f 54 4f 20 35 30 0a 43 |(I-1)) G|OTO 50.C|
|00033aa0| 20 20 20 20 20 20 4c 4f | 4f 4b 20 46 4f 52 20 52 | LO|OK FOR R|
|00033ab0| 45 4d 41 49 4e 49 4e 47 | 20 52 45 41 43 54 49 4f |EMAINING| REACTIO|
|00033ac0| 4e 53 20 43 4f 4e 54 41 | 49 4e 49 4e 47 20 52 45 |NS CONTA|INING RE|
|00033ad0| 41 43 54 41 4e 54 20 49 | 2b 32 0a 20 20 20 20 20 |ACTANT I|+2. |
|00033ae0| 20 20 20 44 4f 20 34 35 | 20 4b 3d 4a 2b 31 2c 4a | DO 45| K=J+1,J|
|00033af0| 49 28 49 2d 31 29 0a 20 | 20 20 20 20 20 20 20 49 |I(I-1). | I|
|00033b00| 46 28 52 45 4f 43 28 49 | 2d 31 2c 49 2b 32 2c 4b |F(REOC(I|-1,I+2,K|
|00033b10| 29 2e 4e 45 2e 5a 45 52 | 4f 29 20 54 48 45 4e 0a |).NE.ZER|O) THEN.|
|00033b20| 43 20 20 20 20 20 20 20 | 20 52 45 41 43 54 41 4e |C | REACTAN|
|00033b30| 54 20 49 2b 32 20 49 53 | 20 50 52 45 53 45 4e 54 |T I+2 IS| PRESENT|
|00033b40| 20 49 4e 20 54 48 49 53 | 20 43 4f 4d 42 2e 52 43 | IN THIS| COMB.RC|
|00033b50| 54 4e 2e 3a 20 0a 43 20 | 20 20 20 20 20 20 20 20 |TN.: .C | |
|00033b60| 55 53 45 20 43 4f 4d 42 | 2e 52 45 41 43 54 49 4f |USE COMB|.REACTIO|
|00033b70| 4e 53 20 4a 20 41 4e 44 | 20 4b 20 54 4f 20 45 4c |NS J AND| K TO EL|
|00033b80| 49 4d 49 4e 41 54 45 20 | 49 54 20 0a 20 20 20 20 |IMINATE |IT . |
|00033b90| 20 20 20 20 20 20 52 46 | 54 3d 52 45 4f 43 28 49 | RF|T=REOC(I|
|00033ba0| 2d 31 2c 49 2b 32 2c 4a | 29 2f 52 45 4f 43 28 49 |-1,I+2,J|)/REOC(I|
|00033bb0| 2d 31 2c 49 2b 32 2c 4b | 29 20 20 20 0a 20 20 20 |-1,I+2,K|) . |
|00033bc0| 20 20 20 20 20 20 20 43 | 46 4f 4b 3d 52 46 4f 4b | C|FOK=RFOK|
|00033bd0| 28 49 2d 31 2c 4a 29 2f | 52 46 4f 4b 28 49 2d 31 |(I-1,J)/|RFOK(I-1|
|00033be0| 2c 4b 29 2a 2a 52 46 54 | 0a 09 20 20 44 4f 20 34 |,K)**RFT|.. DO 4|
|00033bf0| 30 20 4c 3d 31 2c 28 38 | 2b 4e 53 4f 29 0a 09 20 |0 L=1,(8|+NSO).. |
|00033c00| 20 43 45 4f 43 28 4c 29 | 3d 52 45 4f 43 28 49 2d | CEOC(L)|=REOC(I-|
|00033c10| 31 2c 4c 2c 4a 29 2d 52 | 46 54 2a 52 45 4f 43 28 |1,L,J)-R|FT*REOC(|
|00033c20| 49 2d 31 2c 4c 2c 4b 29 | 0a 34 30 20 20 20 20 20 |I-1,L,K)|.40 |
|00033c30| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 20 20 20 20 | CONTI|NUE. |
|00033c40| 20 20 20 20 20 20 43 41 | 4c 4c 20 43 4f 4d 42 28 | CA|LL COMB(|
|00033c50| 4e 53 4f 2c 49 2c 4a 2c | 4b 2c 43 46 4f 4b 2c 43 |NSO,I,J,|K,CFOK,C|
|00033c60| 45 4f 43 2c 4a 52 2c 52 | 46 4f 4b 2c 52 45 4f 43 |EOC,JR,R|FOK,REOC|
|00033c70| 2c 0a 20 20 20 20 20 26 | 20 20 20 20 4a 53 2c 53 |,. &| JS,S|
|00033c80| 46 4f 4b 2c 53 45 4f 43 | 29 0a 20 20 20 20 20 20 |FOK,SEOC|). |
|00033c90| 20 20 45 4e 44 20 49 46 | 0a 34 35 20 20 20 20 20 | END IF|.45 |
|00033ca0| 20 43 4f 4e 54 49 4e 55 | 45 0a 20 20 20 20 20 20 | CONTINU|E. |
|00033cb0| 45 4e 44 20 49 46 0a 35 | 30 20 20 20 20 43 4f 4e |END IF.5|0 CON|
|00033cc0| 54 49 4e 55 45 0a 43 0a | 43 20 20 45 4e 44 20 4c |TINUE.C.|C END L|
|00033cd0| 4f 4f 50 20 54 48 52 4f | 55 47 48 20 50 52 45 56 |OOP THRO|UGH PREV|
|00033ce0| 49 4f 55 53 20 43 4f 4d | 42 49 4e 41 54 49 4f 4e |IOUS COM|BINATION|
|00033cf0| 20 52 45 41 43 54 49 4f | 4e 53 0a 43 0a 20 20 20 | REACTIO|NS.C. |
|00033d00| 20 20 20 49 46 28 4a 52 | 2e 45 51 2e 30 29 20 47 | IF(JR|.EQ.0) G|
|00033d10| 4f 54 4f 20 36 30 0a 20 | 20 20 20 20 20 4a 49 28 |OTO 60. | JI(|
|00033d20| 49 29 3d 4a 52 0a 43 0a | 35 35 20 20 20 20 43 4f |I)=JR.C.|55 CO|
|00033d30| 4e 54 49 4e 55 45 0a 43 | 0a 43 20 20 45 4e 44 20 |NTINUE.C|.C END |
|00033d40| 4c 4f 4f 50 20 54 48 52 | 4f 55 47 48 20 41 51 55 |LOOP THR|OUGH AQU|
|00033d50| 45 4f 55 53 20 52 45 41 | 43 54 41 4e 54 53 0a 43 |EOUS REA|CTANTS.C|
|00033d60| 0a 36 30 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a |.60 C|ONTINUE.|
|00033d70| 43 0a 43 20 20 20 20 20 | 20 57 52 49 54 45 28 39 |C.C | WRITE(9|
|00033d80| 2c 31 30 34 30 29 20 4a | 53 0a 43 20 20 20 20 20 |,1040) J|S.C |
|00033d90| 20 57 52 49 54 45 28 31 | 31 2c 31 30 34 30 29 20 | WRITE(1|1,1040) |
|00033da0| 4a 53 0a 43 20 20 20 20 | 20 20 49 46 28 4a 53 2e |JS.C | IF(JS.|
|00033db0| 47 54 2e 30 29 20 54 48 | 45 4e 0a 43 20 20 20 20 |GT.0) TH|EN.C |
|00033dc0| 20 20 20 20 57 52 49 54 | 45 28 39 2c 31 30 32 30 | WRIT|E(9,1020|
|00033dd0| 29 0a 43 20 20 20 20 20 | 20 20 20 44 4f 20 37 30 |).C | DO 70|
|00033de0| 20 4a 3d 31 2c 4a 53 0a | 43 20 20 20 20 20 20 20 | J=1,JS.|C |
|00033df0| 20 57 52 49 54 45 28 39 | 2c 31 30 35 30 29 20 4a | WRITE(9|,1050) J|
|00033e00| 2c 53 46 4f 4b 28 4a 29 | 2c 28 53 45 4f 43 28 4c |,SFOK(J)|,(SEOC(L|
|00033e10| 2c 4a 29 2c 4c 3d 31 2c | 28 38 2b 4e 53 4f 29 29 |,J),L=1,|(8+NSO))|
|00033e20| 0a 43 37 30 20 20 20 20 | 20 20 43 4f 4e 54 49 4e |.C70 | CONTIN|
|00033e30| 55 45 0a 43 20 20 20 20 | 20 20 45 4e 44 20 49 46 |UE.C | END IF|
|00033e40| 0a 43 0a 43 31 30 30 30 | 20 20 46 4f 52 4d 41 54 |.C.C1000| FORMAT|
|00033e50| 28 2f 31 58 2c 27 20 20 | 49 20 20 4a 20 20 4b 20 |(/1X,' |I J K |
|00033e60| 4b 49 20 20 20 20 20 20 | 20 20 43 46 4f 4b 20 20 |KI | CFOK |
|00033e70| 20 43 45 31 20 20 20 43 | 45 32 20 20 20 43 45 33 | CE1 C|E2 CE3|
|00033e80| 27 2c 0a 43 20 20 20 20 | 20 26 27 20 20 20 43 45 |',.C | &' CE|
|00033e90| 34 20 20 20 43 45 35 20 | 20 20 43 45 36 20 20 20 |4 CE5 | CE6 |
|00033ea0| 43 45 37 20 20 20 43 45 | 38 27 2f 0a 43 20 20 20 |CE7 CE|8'/.C |
|00033eb0| 20 20 26 34 58 2c 20 20 | 20 20 20 20 27 20 20 20 | &4X, | ' |
|00033ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00033ed0| 20 20 43 45 39 20 20 43 | 45 31 30 20 20 43 45 31 | CE9 C|E10 CE1|
|00033ee0| 31 27 2c 0a 43 20 20 20 | 20 20 26 27 20 20 43 45 |1',.C | &' CE|
|00033ef0| 31 32 20 20 43 45 31 33 | 20 20 43 45 31 34 20 20 |12 CE13| CE14 |
|00033f00| 43 45 31 35 20 20 43 45 | 31 36 27 2f 29 0a 43 31 |CE15 CE|16'/).C1|
|00033f10| 30 32 30 20 20 46 4f 52 | 4d 41 54 28 2f 29 0a 43 |020 FOR|MAT(/).C|
|00033f20| 31 30 34 30 20 20 46 4f | 52 4d 41 54 28 2f 31 58 |1040 FO|RMAT(/1X|
|00033f30| 2c 27 4a 53 20 3d 27 2c | 49 32 29 0a 43 31 30 35 |,'JS =',|I2).C105|
|00033f40| 30 20 20 46 4f 52 4d 41 | 54 28 31 58 2c 49 33 2c |0 FORMA|T(1X,I3,|
|00033f50| 39 58 2c 31 50 45 31 32 | 2e 32 2c 30 50 38 46 36 |9X,1PE12|.2,0P8F6|
|00033f60| 2e 32 2c 28 2f 32 35 58 | 2c 38 46 36 2e 32 29 29 |.2,(/25X|,8F6.2))|
|00033f70| 0a 43 0a 20 20 20 20 20 | 20 52 45 54 55 52 4e 0a |.C. | RETURN.|
|00033f80| 20 20 20 20 20 20 45 4e | 44 0a 43 0a 43 0a 43 0a | EN|D.C.C.C.|
|00033f90| 43 20 20 53 55 42 52 4f | 55 54 49 4e 45 20 54 4f |C SUBRO|UTINE TO|
|00033fa0| 20 53 54 4f 52 45 20 43 | 4f 4d 42 49 4e 41 54 49 | STORE C|OMBINATI|
|00033fb0| 4f 4e 20 52 45 41 43 54 | 49 4f 4e 53 0a 43 0a 20 |ON REACT|IONS.C. |
|00033fc0| 20 20 20 20 20 53 55 42 | 52 4f 55 54 49 4e 45 20 | SUB|ROUTINE |
|00033fd0| 43 4f 4d 42 28 4e 53 4f | 2c 49 47 2c 4a 47 2c 4b |COMB(NSO|,IG,JG,K|
|00033fe0| 47 2c 43 46 4f 4b 2c 43 | 45 4f 43 2c 4a 52 2c 0a |G,CFOK,C|EOC,JR,.|
|00033ff0| 20 20 20 20 20 26 52 46 | 4f 4b 2c 52 45 4f 43 2c | &RF|OK,REOC,|
|00034000| 4a 53 2c 53 46 4f 4b 2c | 53 45 4f 43 29 0a 20 20 |JS,SFOK,|SEOC). |
|00034010| 20 20 20 20 49 4d 50 4c | 49 43 49 54 20 52 45 41 | IMPL|ICIT REA|
|00034020| 4c 2a 38 28 41 2d 48 2c | 4f 2d 5a 29 0a 20 20 20 |L*8(A-H,|O-Z). |
|00034030| 20 20 20 53 41 56 45 0a | 20 20 20 20 20 20 44 49 | SAVE.| DI|
|00034040| 4d 45 4e 53 49 4f 4e 20 | 43 45 4f 43 28 2a 29 2c |MENSION |CEOC(*),|
|00034050| 52 46 4f 4b 28 35 2c 2a | 29 2c 52 45 4f 43 28 35 |RFOK(5,*|),REOC(5|
|00034060| 2c 38 2b 4e 53 4f 2c 2a | 29 2c 53 46 4f 4b 28 2a |,8+NSO,*|),SFOK(*|
|00034070| 29 2c 0a 20 20 20 20 20 | 26 53 45 4f 43 28 38 2b |),. |&SEOC(8+|
|00034080| 4e 53 4f 2c 2a 29 0a 43 | 20 20 20 20 43 48 45 43 |NSO,*).C| CHEC|
|00034090| 4b 20 46 4f 52 20 52 45 | 41 43 54 49 4f 4e 20 54 |K FOR RE|ACTION T|
|000340a0| 48 41 54 20 44 4f 45 53 | 20 4e 4f 54 20 49 4e 56 |HAT DOES| NOT INV|
|000340b0| 4f 4c 56 45 20 41 51 55 | 45 4f 55 53 20 53 50 45 |OLVE AQU|EOUS SPE|
|000340c0| 43 49 45 53 0a 20 20 20 | 20 20 20 53 55 4d 45 3d |CIES. | SUME=|
|000340d0| 5a 45 52 4f 0a 20 20 20 | 20 20 20 44 4f 20 31 30 |ZERO. | DO 10|
|000340e0| 20 4c 3d 33 2c 37 0a 20 | 20 20 20 20 20 53 55 4d | L=3,7. | SUM|
|000340f0| 45 3d 53 55 4d 45 2b 44 | 41 42 53 28 43 45 4f 43 |E=SUME+D|ABS(CEOC|
|00034100| 28 4c 29 29 0a 31 30 20 | 20 20 20 43 4f 4e 54 49 |(L)).10 | CONTI|
|00034110| 4e 55 45 0a 20 20 20 20 | 20 20 49 46 28 53 55 4d |NUE. | IF(SUM|
|00034120| 45 2e 45 51 2e 5a 45 52 | 4f 29 20 54 48 45 4e 0a |E.EQ.ZER|O) THEN.|
|00034130| 43 20 20 20 20 20 20 54 | 48 49 53 20 43 4f 4d 42 |C T|HIS COMB|
|00034140| 49 4e 41 54 49 4f 4e 20 | 52 45 41 43 54 49 4f 4e |INATION |REACTION|
|00034150| 20 49 4e 56 4f 4c 56 45 | 53 20 4e 4f 20 41 51 55 | INVOLVE|S NO AQU|
|00034160| 45 4f 55 53 20 52 45 41 | 43 54 41 4e 54 53 0a 20 |EOUS REA|CTANTS. |
|00034170| 20 20 20 20 20 20 20 49 | 46 28 4a 53 2e 47 54 2e | I|F(JS.GT.|
|00034180| 30 29 20 54 48 45 4e 0a | 43 20 20 20 20 20 20 20 |0) THEN.|C |
|00034190| 20 43 48 45 43 4b 20 46 | 4f 52 20 44 55 50 4c 49 | CHECK F|OR DUPLI|
|000341a0| 43 41 54 45 20 43 4f 4d | 42 49 4e 41 54 49 4f 4e |CATE COM|BINATION|
|000341b0| 20 52 45 41 43 54 49 4f | 4e 0a 20 20 20 20 20 20 | REACTIO|N. |
|000341c0| 20 20 20 20 44 4f 20 33 | 30 20 4a 3d 31 2c 4a 53 | DO 3|0 J=1,JS|
|000341d0| 2d 31 0a 20 20 20 20 20 | 20 20 20 20 20 52 54 53 |-1. | RTS|
|000341e0| 54 3d 5a 45 52 4f 0a 20 | 20 20 20 20 20 20 20 20 |T=ZERO. | |
|000341f0| 20 52 53 56 3d 5a 45 52 | 4f 0a 20 20 20 20 20 20 | RSV=ZER|O. |
|00034200| 20 20 20 20 44 4f 20 32 | 30 20 4c 3d 31 2c 38 2b | DO 2|0 L=1,8+|
|00034210| 4e 53 4f 0a 20 20 20 20 | 20 20 20 20 20 20 49 46 |NSO. | IF|
|00034220| 28 52 54 53 54 2e 4e 45 | 2e 5a 45 52 4f 29 20 52 |(RTST.NE|.ZERO) R|
|00034230| 53 56 3d 52 54 53 54 0a | 20 20 20 20 20 20 20 20 |SV=RTST.| |
|00034240| 20 20 49 46 28 43 45 4f | 43 28 4c 29 2e 4e 45 2e | IF(CEO|C(L).NE.|
|00034250| 5a 45 52 4f 2e 41 4e 44 | 2e 53 45 4f 43 28 4c 2c |ZERO.AND|.SEOC(L,|
|00034260| 4a 29 2e 4e 45 2e 5a 45 | 52 4f 29 20 54 48 45 4e |J).NE.ZE|RO) THEN|
|00034270| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 52 54 53 |. | RTS|
|00034280| 54 3d 43 45 4f 43 28 4c | 29 2f 53 45 4f 43 28 4c |T=CEOC(L|)/SEOC(L|
|00034290| 2c 4a 29 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |,J). | |
|000342a0| 49 46 28 52 53 56 2e 4e | 45 2e 5a 45 52 4f 2e 41 |IF(RSV.N|E.ZERO.A|
|000342b0| 4e 44 2e 52 54 53 54 2e | 4e 45 2e 52 53 56 29 20 |ND.RTST.|NE.RSV) |
|000342c0| 47 4f 54 4f 20 33 30 0a | 20 20 20 20 20 20 20 20 |GOTO 30.| |
|000342d0| 20 20 45 4c 53 45 0a 20 | 20 20 20 20 20 20 20 20 | ELSE. | |
|000342e0| 20 20 20 49 46 28 43 45 | 4f 43 28 4c 29 2e 4e 45 | IF(CE|OC(L).NE|
|000342f0| 2e 53 45 4f 43 28 4c 2c | 4a 29 29 20 47 4f 54 4f |.SEOC(L,|J)) GOTO|
|00034300| 20 33 30 0a 20 20 20 20 | 20 20 20 20 20 20 45 4e | 30. | EN|
|00034310| 44 20 49 46 0a 32 30 20 | 20 20 20 20 20 20 20 43 |D IF.20 | C|
|00034320| 4f 4e 54 49 4e 55 45 0a | 43 20 20 20 20 20 20 20 |ONTINUE.|C |
|00034330| 20 54 48 49 53 20 49 53 | 20 41 20 44 55 50 4c 49 | THIS IS| A DUPLI|
|00034340| 43 41 54 45 20 4f 46 20 | 50 52 45 56 49 4f 55 53 |CATE OF |PREVIOUS|
|00034350| 20 52 45 41 43 54 49 4f | 4e 20 4a 0a 20 20 20 20 | REACTIO|N J. |
|00034360| 20 20 20 20 20 20 52 45 | 54 55 52 4e 0a 33 30 20 | RE|TURN.30 |
|00034370| 20 20 20 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a | C|ONTINUE.|
|00034380| 20 20 20 20 20 20 20 20 | 45 4e 44 20 49 46 0a 43 | |END IF.C|
|00034390| 20 20 20 20 20 20 53 54 | 4f 52 45 20 54 48 49 53 | ST|ORE THIS|
|000343a0| 20 46 49 4e 41 4c 20 43 | 4f 4d 42 49 4e 41 54 49 | FINAL C|OMBINATI|
|000343b0| 4f 4e 20 52 45 41 43 54 | 49 4f 4e 0a 20 20 20 20 |ON REACT|ION. |
|000343c0| 20 20 20 20 4a 53 3d 4a | 53 2b 31 0a 20 20 20 20 | JS=J|S+1. |
|000343d0| 20 20 20 20 53 46 4f 4b | 28 4a 53 29 3d 43 46 4f | SFOK|(JS)=CFO|
|000343e0| 4b 0a 20 20 20 20 20 20 | 20 20 44 4f 20 34 30 20 |K. | DO 40 |
|000343f0| 4d 3d 31 2c 28 38 2b 4e | 53 4f 29 0a 20 20 20 20 |M=1,(8+N|SO). |
|00034400| 20 20 20 20 53 45 4f 43 | 28 4d 2c 4a 53 29 3d 43 | SEOC|(M,JS)=C|
|00034410| 45 4f 43 28 4d 29 0a 34 | 30 20 20 20 20 20 20 43 |EOC(M).4|0 C|
|00034420| 4f 4e 54 49 4e 55 45 0a | 20 20 20 20 20 20 45 4c |ONTINUE.| EL|
|00034430| 53 45 0a 43 20 20 20 20 | 20 20 54 48 49 53 20 43 |SE.C | THIS C|
|00034440| 4f 4d 42 49 4e 41 54 49 | 4f 4e 20 52 45 41 43 54 |OMBINATI|ON REACT|
|00034450| 49 4f 4e 20 53 54 49 4c | 4c 20 49 4e 56 4f 4c 56 |ION STIL|L INVOLV|
|00034460| 45 53 20 41 51 55 45 4f | 55 53 20 52 45 41 43 54 |ES AQUEO|US REACT|
|00034470| 41 4e 54 53 0a 20 20 20 | 20 20 20 20 20 49 46 28 |ANTS. | IF(|
|00034480| 4a 52 2e 47 54 2e 30 29 | 20 54 48 45 4e 0a 43 20 |JR.GT.0)| THEN.C |
|00034490| 20 20 20 20 20 20 20 43 | 48 45 43 4b 20 46 4f 52 | C|HECK FOR|
|000344a0| 20 44 55 50 4c 49 43 41 | 54 45 20 43 4f 4d 42 49 | DUPLICA|TE COMBI|
|000344b0| 4e 41 54 49 4f 4e 20 52 | 45 41 43 54 49 4f 4e 0a |NATION R|EACTION.|
|000344c0| 20 20 20 20 20 20 20 20 | 20 20 44 4f 20 36 30 20 | | DO 60 |
|000344d0| 4a 3d 31 2c 4a 52 2d 31 | 0a 20 20 20 20 20 20 20 |J=1,JR-1|. |
|000344e0| 20 20 20 52 54 53 54 3d | 5a 45 52 4f 0a 20 20 20 | RTST=|ZERO. |
|000344f0| 20 20 20 20 20 20 20 52 | 53 56 3d 5a 45 52 4f 0a | R|SV=ZERO.|
|00034500| 20 20 20 20 20 20 20 20 | 20 20 44 4f 20 35 30 20 | | DO 50 |
|00034510| 4c 3d 31 2c 38 2b 4e 53 | 4f 0a 20 20 20 20 20 20 |L=1,8+NS|O. |
|00034520| 20 20 20 20 49 46 28 52 | 54 53 54 2e 4e 45 2e 5a | IF(R|TST.NE.Z|
|00034530| 45 52 4f 29 20 52 53 56 | 3d 52 54 53 54 0a 20 20 |ERO) RSV|=RTST. |
|00034540| 20 20 20 20 20 20 20 20 | 49 46 28 43 45 4f 43 28 | |IF(CEOC(|
|00034550| 4c 29 2e 4e 45 2e 5a 45 | 52 4f 2e 41 4e 44 2e 52 |L).NE.ZE|RO.AND.R|
|00034560| 45 4f 43 28 49 47 2c 4c | 2c 4a 29 2e 4e 45 2e 5a |EOC(IG,L|,J).NE.Z|
|00034570| 45 52 4f 29 20 54 48 45 | 4e 0a 20 20 20 20 20 20 |ERO) THE|N. |
|00034580| 20 20 20 20 20 20 52 54 | 53 54 3d 43 45 4f 43 28 | RT|ST=CEOC(|
|00034590| 4c 29 2f 52 45 4f 43 28 | 49 47 2c 4c 2c 4a 29 0a |L)/REOC(|IG,L,J).|
|000345a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 49 46 28 52 | | IF(R|
|000345b0| 53 56 2e 4e 45 2e 5a 45 | 52 4f 2e 41 4e 44 2e 52 |SV.NE.ZE|RO.AND.R|
|000345c0| 54 53 54 2e 4e 45 2e 52 | 53 56 29 20 47 4f 54 4f |TST.NE.R|SV) GOTO|
|000345d0| 20 36 30 0a 20 20 20 20 | 20 20 20 20 20 20 45 4c | 60. | EL|
|000345e0| 53 45 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 49 |SE. | I|
|000345f0| 46 28 43 45 4f 43 28 4c | 29 2e 4e 45 2e 52 45 4f |F(CEOC(L|).NE.REO|
|00034600| 43 28 49 47 2c 4c 2c 4a | 29 29 20 47 4f 54 4f 20 |C(IG,L,J|)) GOTO |
|00034610| 36 30 0a 20 20 20 20 20 | 20 20 20 20 20 45 4e 44 |60. | END|
|00034620| 20 49 46 0a 35 30 20 20 | 20 20 20 20 20 20 43 4f | IF.50 | CO|
|00034630| 4e 54 49 4e 55 45 0a 43 | 20 20 20 20 20 20 20 20 |NTINUE.C| |
|00034640| 54 48 49 53 20 49 53 20 | 41 20 44 55 50 4c 49 43 |THIS IS |A DUPLIC|
|00034650| 41 54 45 20 4f 46 20 50 | 52 45 56 49 4f 55 53 20 |ATE OF P|REVIOUS |
|00034660| 52 45 41 43 54 49 4f 4e | 20 4a 0a 20 20 20 20 20 |REACTION| J. |
|00034670| 20 20 20 20 20 52 45 54 | 55 52 4e 0a 36 30 20 20 | RET|URN.60 |
|00034680| 20 20 20 20 20 43 4f 4e | 54 49 4e 55 45 0a 20 20 | CON|TINUE. |
|00034690| 20 20 20 20 20 20 45 4e | 44 20 49 46 0a 43 20 20 | EN|D IF.C |
|000346a0| 20 20 20 20 53 54 4f 52 | 45 20 54 48 49 53 20 46 | STOR|E THIS F|
|000346b0| 49 4e 41 4c 20 43 4f 4d | 42 49 4e 41 54 49 4f 4e |INAL COM|BINATION|
|000346c0| 20 52 45 41 43 54 49 4f | 4e 0a 20 20 20 20 20 20 | REACTIO|N. |
|000346d0| 20 20 4a 52 3d 4a 52 2b | 31 0a 20 20 20 20 20 20 | JR=JR+|1. |
|000346e0| 20 20 52 46 4f 4b 28 49 | 47 2c 4a 52 29 3d 43 46 | RFOK(I|G,JR)=CF|
|000346f0| 4f 4b 0a 20 20 20 20 20 | 20 20 20 44 4f 20 37 30 |OK. | DO 70|
|00034700| 20 4d 3d 31 2c 28 38 2b | 4e 53 4f 29 0a 20 20 20 | M=1,(8+|NSO). |
|00034710| 20 20 20 20 20 52 45 4f | 43 28 49 47 2c 4d 2c 4a | REO|C(IG,M,J|
|00034720| 52 29 3d 43 45 4f 43 28 | 4d 29 0a 37 30 20 20 20 |R)=CEOC(|M).70 |
|00034730| 20 20 43 4f 4e 54 49 4e | 55 45 0a 43 0a 43 20 20 | CONTIN|UE.C.C |
|00034740| 20 20 20 20 20 20 57 52 | 49 54 45 28 39 2c 31 30 | WR|ITE(9,10|
|00034750| 33 30 29 20 0a 43 20 20 | 20 20 20 26 20 20 49 47 |30) .C | & IG|
|00034760| 2c 4a 47 2c 4b 47 2c 4a | 52 2c 52 46 4f 4b 28 49 |,JG,KG,J|R,RFOK(I|
|00034770| 47 2c 4a 52 29 2c 28 52 | 45 4f 43 28 49 47 2c 4c |G,JR),(R|EOC(IG,L|
|00034780| 2c 4a 52 29 2c 4c 3d 31 | 2c 28 38 2b 4e 53 4f 29 |,JR),L=1|,(8+NSO)|
|00034790| 29 0a 43 20 20 20 20 20 | 20 20 20 57 52 49 54 45 |).C | WRITE|
|000347a0| 28 31 31 2c 31 30 33 30 | 29 20 0a 43 20 20 20 20 |(11,1030|) .C |
|000347b0| 20 26 20 20 49 47 2c 4a | 47 2c 4b 47 2c 4a 52 2c | & IG,J|G,KG,JR,|
|000347c0| 52 46 4f 4b 28 49 47 2c | 4a 52 29 2c 28 52 45 4f |RFOK(IG,|JR),(REO|
|000347d0| 43 28 49 47 2c 4c 2c 4a | 52 29 2c 4c 3d 31 2c 28 |C(IG,L,J|R),L=1,(|
|000347e0| 38 2b 4e 53 4f 29 29 0a | 43 20 20 20 20 20 20 20 |8+NSO)).|C |
|000347f0| 20 50 41 55 53 45 0a 43 | 0a 20 20 20 20 20 20 45 | PAUSE.C|. E|
|00034800| 4e 44 20 49 46 0a 43 31 | 30 33 30 20 20 46 4f 52 |ND IF.C1|030 FOR|
|00034810| 4d 41 54 28 31 58 2c 34 | 49 33 2c 31 50 45 31 32 |MAT(1X,4|I3,1PE12|
|00034820| 2e 32 2c 30 50 38 46 36 | 2e 32 2c 28 2f 32 35 58 |.2,0P8F6|.2,(/25X|
|00034830| 2c 38 46 36 2e 32 29 29 | 0a 20 20 20 20 20 20 52 |,8F6.2))|. R|
|00034840| 45 54 55 52 4e 0a 20 20 | 20 20 20 20 45 4e 44 0a |ETURN. | END.|
|00034850| 43 0a 43 0a 43 0a 43 20 | 20 53 55 42 52 4f 55 54 |C.C.C.C | SUBROUT|
|00034860| 49 4e 45 20 46 4f 52 20 | 49 4d 50 52 4f 56 49 4e |INE FOR |IMPROVIN|
|00034870| 47 20 49 4e 49 54 49 41 | 4c 20 56 41 4c 55 45 53 |G INITIA|L VALUES|
|00034880| 20 4f 46 20 53 50 45 43 | 49 45 20 43 4f 4e 43 45 | OF SPEC|IE CONCE|
|00034890| 4e 54 52 41 54 49 4f 4e | 53 0a 43 0a 43 20 20 20 |NTRATION|S.C.C |
|000348a0| 20 57 52 49 54 54 45 4e | 20 42 59 20 57 2e 20 52 | WRITTEN| BY W. R|
|000348b0| 2e 20 42 55 53 49 4e 47 | 0a 43 0a 43 0a 43 0a 43 |. BUSING|.C.C.C.C|
|000348c0| 2d 2d 2d 2d 2d 53 49 4d | 50 4c 45 58 20 4d 45 54 |-----SIM|PLEX MET|
|000348d0| 48 4f 44 20 54 4f 20 4d | 49 4e 49 4d 49 5a 45 20 |HOD TO M|INIMIZE |
|000348e0| 41 20 46 55 4e 43 54 49 | 4f 4e 20 46 54 20 4f 46 |A FUNCTI|ON FT OF|
|000348f0| 20 4e 56 20 50 41 52 41 | 4d 45 54 45 52 53 20 50 | NV PARA|METERS P|
|00034900| 56 0a 43 2d 2d 2d 2d 2d | 4e 20 49 53 20 4e 56 20 |V.C-----|N IS NV |
|00034910| 4f 4e 20 46 49 52 53 54 | 20 45 4e 54 52 59 3b 20 |ON FIRST| ENTRY; |
|00034920| 5a 45 52 4f 20 4f 4e 20 | 4c 41 54 45 52 20 45 4e |ZERO ON |LATER EN|
|00034930| 54 52 49 45 53 2e 0a 43 | 2d 2d 2d 2d 2d 4f 4e 20 |TRIES..C|-----ON |
|00034940| 46 49 52 53 54 20 45 4e | 54 52 59 20 50 56 20 43 |FIRST EN|TRY PV C|
|00034950| 4f 4e 54 41 49 4e 53 20 | 49 4e 49 54 49 41 4c 20 |ONTAINS |INITIAL |
|00034960| 56 41 4c 55 45 53 20 4f | 46 20 49 4e 43 52 45 4d |VALUES O|F INCREM|
|00034970| 45 4e 54 53 20 45 50 2e | 0a 43 2d 2d 2d 2d 2d 2d |ENTS EP.|.C------|
|00034980| 2d 2d 46 54 20 43 4f 4e | 54 41 49 4e 53 20 43 4f |--FT CON|TAINS CO|
|00034990| 4e 56 45 52 47 45 4e 43 | 45 20 43 52 49 54 45 52 |NVERGENC|E CRITER|
|000349a0| 49 4f 4e 20 44 52 08 46 | 2c 41 4e 44 0a 43 2d 2d |ION DR.F|,AND.C--|
|000349b0| 2d 2d 2d 2d 2d 2d 49 52 | 20 43 4f 4e 54 41 49 4e |------IR| CONTAIN|
|000349c0| 53 20 4c 49 4d 49 54 20 | 4f 4e 20 4e 55 4d 42 45 |S LIMIT |ON NUMBE|
|000349d0| 52 20 4f 46 20 43 59 43 | 4c 45 53 20 4e 43 0a 43 |R OF CYC|LES NC.C|
|000349e0| 2d 2d 2d 2d 2d 4f 4e 20 | 53 45 43 4f 4e 44 20 45 |-----ON |SECOND E|
|000349f0| 4e 54 52 59 20 50 56 20 | 43 4f 4e 54 41 49 4e 53 |NTRY PV |CONTAINS|
|00034a00| 20 49 4e 49 54 49 41 4c | 20 56 41 4c 55 45 53 20 | INITIAL| VALUES |
|00034a10| 4f 46 20 50 41 52 41 4d | 45 54 45 52 53 20 50 56 |OF PARAM|ETERS PV|
|00034a20| 20 41 4e 44 0a 43 2d 2d | 2d 2d 2d 2d 2d 2d 46 54 | AND.C--|------FT|
|00034a30| 20 49 53 20 43 41 4c 43 | 55 4c 41 54 45 44 20 56 | IS CALC|ULATED V|
|00034a40| 41 4c 55 45 20 4f 46 20 | 46 55 4e 43 54 49 4f 4e |ALUE OF |FUNCTION|
|00034a50| 2e 0a 43 2d 2d 2d 2d 2d | 4f 4e 20 52 45 54 55 52 |..C-----|ON RETUR|
|00034a60| 4e 20 57 49 54 48 20 49 | 52 2e 45 51 2e 30 20 53 |N WITH I|R.EQ.0 S|
|00034a70| 55 42 52 4f 55 54 49 4e | 45 20 57 41 4e 54 53 20 |UBROUTIN|E WANTS |
|00034a80| 4d 41 49 4e 20 50 52 4f | 47 52 41 4d 20 54 4f 20 |MAIN PRO|GRAM TO |
|00034a90| 43 41 4c 43 55 4c 41 54 | 45 0a 43 2d 2d 2d 2d 2d |CALCULAT|E.C-----|
|00034aa0| 2d 2d 2d 46 54 20 55 53 | 49 4e 47 20 4d 4f 44 49 |---FT US|ING MODI|
|00034ab0| 46 49 45 44 20 50 41 52 | 41 4d 45 54 45 52 53 20 |FIED PAR|AMETERS |
|00034ac0| 50 56 2e 0a 43 2d 2d 2d | 2d 2d 4f 4e 20 52 45 54 |PV..C---|--ON RET|
|00034ad0| 55 52 4e 20 57 49 54 48 | 20 49 52 2e 4e 45 2e 30 |URN WITH| IR.NE.0|
|00034ae0| 20 50 56 20 41 4e 44 20 | 46 54 20 43 4f 4e 54 41 | PV AND |FT CONTA|
|00034af0| 49 4e 20 42 45 53 54 20 | 56 41 4c 55 45 53 0a 43 |IN BEST |VALUES.C|
|00034b00| 2d 2d 2d 2d 2d 4f 4e 20 | 52 45 54 55 52 4e 20 57 |-----ON |RETURN W|
|00034b10| 49 54 48 20 49 52 2e 45 | 51 2e 31 20 43 4f 4e 56 |ITH IR.E|Q.1 CONV|
|00034b20| 45 52 47 45 4e 43 45 20 | 43 52 49 54 45 52 49 4f |ERGENCE |CRITERIO|
|00034b30| 4e 20 48 41 53 20 42 45 | 45 4e 20 4d 45 54 2e 0a |N HAS BE|EN MET..|
|00034b40| 43 2d 2d 2d 2d 2d 4f 4e | 20 52 45 54 55 52 4e 20 |C-----ON| RETURN |
|00034b50| 57 49 54 48 20 49 52 2e | 45 51 2e 32 20 4e 43 20 |WITH IR.|EQ.2 NC |
|00034b60| 43 59 43 4c 45 53 20 48 | 41 56 45 20 42 45 45 4e |CYCLES H|AVE BEEN|
|00034b70| 20 43 4f 4d 50 4c 45 54 | 45 44 2e 0a 20 20 20 20 | COMPLET|ED.. |
|00034b80| 20 20 53 55 42 52 4f 55 | 54 49 4e 45 20 53 4d 50 | SUBROU|TINE SMP|
|00034b90| 4c 58 28 4e 2c 50 56 2c | 46 54 2c 49 52 2c 45 50 |LX(N,PV,|FT,IR,EP|
|00034ba0| 2c 50 54 2c 46 2c 4b 2c | 50 42 29 0a 20 20 20 20 |,PT,F,K,|PB). |
|00034bb0| 20 20 53 41 56 45 0a 20 | 20 20 20 20 20 49 4d 50 | SAVE. | IMP|
|00034bc0| 4c 49 43 49 54 20 52 45 | 41 4c 2a 38 28 41 2d 48 |LICIT RE|AL*8(A-H|
|00034bd0| 2c 4f 2d 5a 29 0a 20 20 | 20 20 20 20 44 49 4d 45 |,O-Z). | DIME|
|00034be0| 4e 53 49 4f 4e 20 50 56 | 28 2a 29 2c 45 50 28 2a |NSION PV|(*),EP(*|
|00034bf0| 29 2c 50 54 28 28 38 2b | 4e 53 4f 2b 4e 53 41 29 |),PT((8+|NSO+NSA)|
|00034c00| 2c 2a 29 2c 46 28 2a 29 | 2c 4b 28 2a 29 2c 50 42 |,*),F(*)|,K(*),PB|
|00034c10| 28 2a 29 0a 20 20 20 20 | 20 20 43 4f 4d 4d 4f 4e |(*). | COMMON|
|00034c20| 2f 4d 44 2f 4e 53 4f 2c | 4e 43 42 4f 2c 49 52 45 |/MD/NSO,|NCBO,IRE|
|00034c30| 46 2c 4e 50 48 2c 4e 50 | 41 2c 4e 53 41 2c 4e 49 |F,NPH,NP|A,NSA,NI|
|00034c40| 4f 2c 4e 49 41 2c 4e 43 | 41 2c 4e 41 4e 2c 4e 4e |O,NIA,NC|A,NAN,NN|
|00034c50| 55 2c 4e 55 50 2c 4e 55 | 4d 0a 20 20 20 20 20 20 |U,NUP,NU|M. |
|00034c60| 44 41 54 41 20 41 2c 42 | 2c 47 2f 31 2e 30 44 2b |DATA A,B|,G/1.0D+|
|00034c70| 30 2c 30 2e 35 44 2b 30 | 2c 32 2e 30 44 2b 30 2f |0,0.5D+0|,2.0D+0/|
|00034c80| 0a 20 20 20 20 20 20 44 | 41 54 41 20 4f 4e 45 2c |. D|ATA ONE,|
|00034c90| 5a 45 52 4f 2f 31 2e 30 | 44 2b 30 2c 30 2e 30 44 |ZERO/1.0|D+0,0.0D|
|00034ca0| 2b 30 2f 0a 20 20 20 20 | 20 20 49 46 28 4e 2e 45 |+0/. | IF(N.E|
|00034cb0| 51 2e 30 29 20 47 4f 20 | 54 4f 20 32 30 0a 43 2d |Q.0) GO |TO 20.C-|
|00034cc0| 2d 2d 2d 2d 46 49 52 53 | 54 20 45 4e 54 52 59 2e |----FIRS|T ENTRY.|
|00034cd0| 20 53 45 54 20 43 4f 4e | 53 54 41 4e 54 53 20 41 | SET CON|STANTS A|
|00034ce0| 4e 44 20 50 49 43 4b 20 | 55 50 20 49 4e 43 52 45 |ND PICK |UP INCRE|
|00034cf0| 4d 45 4e 54 53 0a 20 20 | 20 20 20 20 41 31 3d 4f |MENTS. | A1=O|
|00034d00| 4e 45 2b 41 0a 20 20 20 | 20 20 20 42 31 3d 4f 4e |NE+A. | B1=ON|
|00034d10| 45 2d 42 0a 20 20 20 20 | 20 20 47 31 3d 4f 4e 45 |E-B. | G1=ONE|
|00034d20| 2d 47 0a 20 20 20 20 20 | 20 4e 56 3d 4e 0a 20 20 |-G. | NV=N. |
|00034d30| 20 20 20 20 4e 54 3d 4e | 56 2b 31 0a 20 20 20 20 | NT=N|V+1. |
|00034d40| 20 20 4e 31 3d 4e 54 2b | 31 0a 20 20 20 20 20 20 | N1=NT+|1. |
|00034d50| 4e 32 3d 4e 31 2b 31 0a | 20 20 20 20 20 20 41 56 |N2=N1+1.| AV|
|00034d60| 3d 4e 56 0a 20 20 20 20 | 20 20 41 54 3d 4e 54 0a |=NV. | AT=NT.|
|00034d70| 20 20 20 20 20 20 44 46 | 3d 46 54 0a 20 20 20 20 | DF|=FT. |
|00034d80| 20 20 4e 43 3d 49 52 0a | 20 20 20 20 20 20 44 4f | NC=IR.| DO|
|00034d90| 20 31 30 20 49 3d 31 2c | 4e 56 0a 20 20 20 20 20 | 10 I=1,|NV. |
|00034da0| 20 45 50 28 49 29 3d 50 | 56 28 49 29 0a 31 30 20 | EP(I)=P|V(I).10 |
|00034db0| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 20 20 20 20 | CONTI|NUE. |
|00034dc0| 20 20 49 52 3d 30 0a 20 | 20 20 20 20 20 49 53 3d | IR=0. | IS=|
|00034dd0| 31 0a 20 20 20 20 20 20 | 52 45 54 55 52 4e 0a 43 |1. |RETURN.C|
|00034de0| 2d 2d 2d 2d 2d 4c 41 54 | 45 52 20 45 4e 54 52 49 |-----LAT|ER ENTRI|
|00034df0| 45 53 2e 20 4a 55 4d 50 | 20 54 4f 20 49 4e 53 54 |ES. JUMP| TO INST|
|00034e00| 52 55 43 54 49 4f 4e 20 | 41 46 54 45 52 20 52 45 |RUCTION |AFTER RE|
|00034e10| 54 55 52 4e 0a 20 20 20 | 32 30 20 47 4f 20 54 4f |TURN. |20 GO TO|
|00034e20| 20 28 33 30 2c 37 30 2c | 31 37 30 2c 31 39 30 2c | (30,70,|170,190,|
|00034e30| 32 36 30 2c 33 31 30 29 | 2c 49 53 0a 43 2d 2d 2d |260,310)|,IS.C---|
|00034e40| 2d 2d 53 45 43 4f 4e 44 | 20 45 4e 54 52 59 2e 20 |--SECOND| ENTRY. |
|00034e50| 53 45 54 20 55 50 20 4e | 54 20 50 4f 49 4e 54 53 |SET UP N|T POINTS|
|00034e60| 20 4f 46 20 53 49 4d 50 | 4c 45 58 0a 20 20 20 33 | OF SIMP|LEX. 3|
|00034e70| 30 20 4b 43 3d 31 0a 20 | 20 20 20 20 20 44 4f 20 |0 KC=1. | DO |
|00034e80| 34 30 20 4a 3d 31 2c 4e | 54 0a 20 20 20 20 20 20 |40 J=1,N|T. |
|00034e90| 44 4f 20 33 35 20 49 3d | 31 2c 4e 56 0a 20 20 20 |DO 35 I=|1,NV. |
|00034ea0| 20 20 20 50 54 28 49 2c | 4a 29 3d 50 56 28 49 29 | PT(I,|J)=PV(I)|
|00034eb0| 0a 20 20 20 33 35 20 43 | 4f 4e 54 49 4e 55 45 0a |. 35 C|ONTINUE.|
|00034ec0| 20 20 20 34 30 20 43 4f | 4e 54 49 4e 55 45 0a 20 | 40 CO|NTINUE. |
|00034ed0| 20 20 20 20 20 44 4f 20 | 35 30 20 49 3d 31 2c 4e | DO |50 I=1,N|
|00034ee0| 56 0a 20 20 20 35 30 20 | 50 54 28 49 2c 49 2b 31 |V. 50 |PT(I,I+1|
|00034ef0| 29 3d 50 54 28 49 2c 49 | 2b 31 29 2b 45 50 28 49 |)=PT(I,I|+1)+EP(I|
|00034f00| 29 0a 43 2d 2d 2d 2d 2d | 47 45 54 20 56 41 4c 55 |).C-----|GET VALU|
|00034f10| 45 53 20 46 20 4f 46 20 | 54 48 45 20 46 55 4e 43 |ES F OF |THE FUNC|
|00034f20| 54 49 4f 4e 20 41 54 20 | 54 48 45 53 45 20 50 4f |TION AT |THESE PO|
|00034f30| 49 4e 54 53 0a 20 20 20 | 20 20 20 46 28 31 29 3d |INTS. | F(1)=|
|00034f40| 46 54 0a 20 20 20 20 20 | 20 4a 3d 32 0a 20 20 20 |FT. | J=2. |
|00034f50| 36 30 20 44 4f 20 36 35 | 20 49 3d 31 2c 4e 56 0a |60 DO 65| I=1,NV.|
|00034f60| 20 20 20 36 35 20 50 56 | 28 49 29 3d 50 54 28 49 | 65 PV|(I)=PT(I|
|00034f70| 2c 4a 29 0a 20 20 20 20 | 20 20 49 52 3d 30 0a 20 |,J). | IR=0. |
|00034f80| 20 20 20 20 20 49 53 3d | 32 0a 20 20 20 20 20 20 | IS=|2. |
|00034f90| 52 45 54 55 52 4e 0a 20 | 20 20 37 30 20 46 28 4a |RETURN. | 70 F(J|
|00034fa0| 29 3d 46 54 0a 20 20 20 | 20 20 20 49 46 28 4a 2e |)=FT. | IF(J.|
|00034fb0| 45 51 2e 4e 54 29 20 47 | 4f 20 54 4f 20 38 30 0a |EQ.NT) G|O TO 80.|
|00034fc0| 20 20 20 20 20 20 4a 3d | 4a 2b 31 0a 20 20 20 20 | J=|J+1. |
|00034fd0| 20 20 47 4f 20 54 4f 20 | 36 30 0a 43 2d 2d 2d 2d | GO TO |60.C----|
|00034fe0| 2d 53 45 54 20 50 4f 49 | 4e 54 45 52 53 20 41 53 |-SET POI|NTERS AS|
|00034ff0| 53 4f 43 49 41 54 45 44 | 20 57 49 54 48 20 54 48 |SOCIATED| WITH TH|
|00035000| 45 20 53 49 4d 50 4c 45 | 58 20 41 4e 44 20 54 52 |E SIMPLE|X AND TR|
|00035010| 49 41 4c 20 50 4f 49 4e | 54 53 0a 20 20 20 38 30 |IAL POIN|TS. 80|
|00035020| 20 44 4f 20 39 30 20 49 | 3d 31 2c 4e 32 0a 20 20 | DO 90 I|=1,N2. |
|00035030| 20 39 30 20 4b 28 49 29 | 3d 49 0a 43 2d 2d 2d 2d | 90 K(I)|=I.C----|
|00035040| 2d 53 54 41 52 54 20 43 | 59 43 4c 45 20 42 59 20 |-START C|YCLE BY |
|00035050| 53 4f 52 54 49 4e 47 20 | 4f 4e 20 56 41 4c 55 45 |SORTING |ON VALUE|
|00035060| 53 20 4f 46 20 46 2e 20 | 4f 4e 4c 59 20 54 48 45 |S OF F. |ONLY THE|
|00035070| 20 4b 27 53 20 41 52 45 | 20 4d 4f 56 45 44 0a 20 | K'S ARE| MOVED. |
|00035080| 20 31 30 30 20 44 4f 20 | 31 32 30 20 49 3d 31 2c | 100 DO |120 I=1,|
|00035090| 4e 56 0a 20 20 20 20 20 | 20 49 31 3d 49 2b 31 0a |NV. | I1=I+1.|
|000350a0| 20 20 20 20 20 20 44 4f | 20 31 31 30 20 4a 3d 49 | DO| 110 J=I|
|000350b0| 31 2c 4e 54 0a 20 20 20 | 20 20 20 49 46 28 46 28 |1,NT. | IF(F(|
|000350c0| 4b 28 49 29 29 2e 4c 45 | 2e 46 28 4b 28 4a 29 29 |K(I)).LE|.F(K(J))|
|000350d0| 29 20 47 4f 20 54 4f 20 | 31 31 30 0a 20 20 20 20 |) GO TO |110. |
|000350e0| 20 20 4b 48 3d 4b 28 49 | 29 0a 20 20 20 20 20 20 | KH=K(I|). |
|000350f0| 4b 28 49 29 3d 4b 28 4a | 29 0a 20 20 20 20 20 20 |K(I)=K(J|). |
|00035100| 4b 28 4a 29 3d 4b 48 0a | 20 20 31 31 30 20 43 4f |K(J)=KH.| 110 CO|
|00035110| 4e 54 49 4e 55 45 0a 20 | 20 31 32 30 20 43 4f 4e |NTINUE. | 120 CON|
|00035120| 54 49 4e 55 45 0a 43 2d | 2d 2d 2d 2d 54 45 53 54 |TINUE.C-|----TEST|
|00035130| 20 54 45 52 4d 49 4e 41 | 54 49 4f 4e 20 49 4e 44 | TERMINA|TION IND|
|00035140| 49 43 41 54 4f 52 0a 20 | 20 20 20 20 20 49 46 28 |ICATOR. | IF(|
|00035150| 49 52 2e 45 51 2e 30 29 | 20 47 4f 54 4f 20 31 32 |IR.EQ.0)| GOTO 12|
|00035160| 38 0a 43 2d 2d 2d 2d 2d | 45 58 49 54 20 57 49 54 |8.C-----|EXIT WIT|
|00035170| 48 20 42 45 53 54 20 50 | 41 52 41 4d 45 54 45 52 |H BEST P|ARAMETER|
|00035180| 53 20 50 56 20 41 4e 44 | 20 46 55 4e 43 54 49 4f |S PV AND| FUNCTIO|
|00035190| 4e 20 46 54 0a 20 20 20 | 20 20 20 44 4f 20 31 32 |N FT. | DO 12|
|000351a0| 35 20 49 3d 31 2c 4e 56 | 0a 20 20 31 32 35 20 50 |5 I=1,NV|. 125 P|
|000351b0| 56 28 49 29 3d 50 54 28 | 49 2c 4b 28 49 29 29 0a |V(I)=PT(|I,K(I)).|
|000351c0| 20 20 20 20 20 20 46 54 | 3d 46 28 4b 28 49 29 29 | FT|=F(K(I))|
|000351d0| 0a 20 20 20 20 20 20 52 | 45 54 55 52 4e 0a 43 2d |. R|ETURN.C-|
|000351e0| 2d 2d 2d 2d 43 4f 4d 50 | 55 54 45 20 50 42 2c 20 |----COMP|UTE PB, |
|000351f0| 54 48 45 20 4d 45 41 4e | 20 4f 46 20 54 48 45 20 |THE MEAN| OF THE |
|00035200| 4c 4f 57 45 53 54 20 4e | 56 20 50 4f 49 4e 54 53 |LOWEST N|V POINTS|
|00035210| 0a 20 20 31 32 38 20 44 | 4f 20 31 34 30 20 49 3d |. 128 D|O 140 I=|
|00035220| 31 2c 4e 56 0a 20 20 20 | 20 20 20 50 42 28 49 29 |1,NV. | PB(I)|
|00035230| 3d 5a 45 52 4f 0a 20 20 | 20 20 20 20 44 4f 20 31 |=ZERO. | DO 1|
|00035240| 33 30 20 4a 3d 31 2c 4e | 56 0a 20 20 20 20 20 20 |30 J=1,N|V. |
|00035250| 50 42 28 49 29 3d 50 42 | 28 49 29 2b 50 54 28 49 |PB(I)=PB|(I)+PT(I|
|00035260| 2c 4b 28 4a 29 29 0a 20 | 20 31 33 30 20 43 4f 4e |,K(J)). | 130 CON|
|00035270| 54 49 4e 55 45 0a 20 20 | 31 34 30 20 43 4f 4e 54 |TINUE. |140 CONT|
|00035280| 49 4e 55 45 0a 20 20 20 | 20 20 20 44 4f 20 31 35 |INUE. | DO 15|
|00035290| 30 20 49 3d 31 2c 4e 56 | 0a 20 20 31 35 30 20 50 |0 I=1,NV|. 150 P|
|000352a0| 42 28 49 29 3d 50 42 28 | 49 29 2f 41 56 0a 43 2d |B(I)=PB(|I)/AV.C-|
|000352b0| 2d 2d 2d 2d 50 45 52 46 | 4f 52 4d 20 52 45 46 4c |----PERF|ORM REFL|
|000352c0| 45 43 54 49 4f 4e 20 54 | 4f 20 47 45 54 20 50 4f |ECTION T|O GET PO|
|000352d0| 49 4e 54 20 4e 31 20 41 | 4e 44 20 43 4f 4d 50 55 |INT N1 A|ND COMPU|
|000352e0| 54 45 20 56 41 4c 55 45 | 20 4f 46 20 46 55 4e 43 |TE VALUE| OF FUNC|
|000352f0| 54 49 4f 4e 0a 20 20 20 | 20 20 20 44 4f 20 31 36 |TION. | DO 16|
|00035300| 30 20 49 3d 31 2c 4e 56 | 0a 20 20 20 20 20 20 50 |0 I=1,NV|. P|
|00035310| 54 28 49 2c 4b 28 4e 31 | 29 29 3d 41 31 2a 50 42 |T(I,K(N1|))=A1*PB|
|00035320| 28 49 29 2d 41 2a 50 54 | 28 49 2c 4b 28 4e 54 29 |(I)-A*PT|(I,K(NT)|
|00035330| 29 0a 20 20 20 20 20 20 | 50 56 28 49 29 3d 50 54 |). |PV(I)=PT|
|00035340| 28 49 2c 4b 28 4e 31 29 | 29 0a 20 20 31 36 30 20 |(I,K(N1)|). 160 |
|00035350| 43 4f 4e 54 49 4e 55 45 | 0a 20 20 20 20 20 20 49 |CONTINUE|. I|
|00035360| 52 3d 30 0a 20 20 20 20 | 20 20 49 53 3d 33 0a 20 |R=0. | IS=3. |
|00035370| 20 20 20 20 20 52 45 54 | 55 52 4e 0a 20 20 31 37 | RET|URN. 17|
|00035380| 30 20 46 28 4b 28 4e 31 | 29 29 3d 46 54 0a 43 2d |0 F(K(N1|))=FT.C-|
|00035390| 2d 2d 2d 2d 54 45 53 54 | 20 52 45 46 4c 45 43 54 |----TEST| REFLECT|
|000353a0| 45 44 20 50 4f 49 4e 54 | 20 4e 31 20 41 47 41 49 |ED POINT| N1 AGAI|
|000353b0| 4e 53 54 20 4c 4f 57 45 | 53 54 20 56 41 4c 55 45 |NST LOWE|ST VALUE|
|000353c0| 20 4f 46 20 46 55 4e 43 | 54 49 4f 4e 0a 20 20 20 | OF FUNC|TION. |
|000353d0| 20 20 20 49 46 28 46 28 | 4b 28 4e 31 29 29 2e 47 | IF(F(|K(N1)).G|
|000353e0| 45 2e 46 28 4b 28 31 29 | 29 29 20 47 4f 20 54 4f |E.F(K(1)|)) GO TO|
|000353f0| 20 32 31 30 0a 43 2d 2d | 2d 2d 2d 52 45 46 4c 45 | 210.C--|---REFLE|
|00035400| 43 54 45 44 20 50 4f 49 | 4e 54 20 49 53 20 4c 4f |CTED POI|NT IS LO|
|00035410| 57 45 53 54 2e 20 47 45 | 54 20 45 58 50 41 4e 44 |WEST. GE|T EXPAND|
|00035420| 45 44 20 50 4f 49 4e 54 | 20 4e 32 20 41 4e 44 20 |ED POINT| N2 AND |
|00035430| 49 54 53 20 56 41 4c 55 | 45 0a 20 20 20 20 20 20 |ITS VALU|E. |
|00035440| 44 4f 20 31 38 30 20 49 | 3d 31 2c 4e 56 0a 20 20 |DO 180 I|=1,NV. |
|00035450| 20 20 20 20 50 54 28 49 | 2c 4b 28 4e 32 29 29 3d | PT(I|,K(N2))=|
|00035460| 47 2a 50 54 28 49 2c 4b | 28 4e 31 29 29 2b 47 31 |G*PT(I,K|(N1))+G1|
|00035470| 2a 50 42 28 49 29 0a 20 | 20 20 20 20 20 50 56 28 |*PB(I). | PV(|
|00035480| 49 29 3d 50 54 28 49 2c | 4b 28 4e 32 29 29 0a 20 |I)=PT(I,|K(N2)). |
|00035490| 20 31 38 30 20 43 4f 4e | 54 49 4e 55 45 0a 20 20 | 180 CON|TINUE. |
|000354a0| 20 20 20 20 49 52 3d 30 | 0a 20 20 20 20 20 20 49 | IR=0|. I|
|000354b0| 53 3d 34 0a 20 20 20 20 | 20 20 52 45 54 55 52 4e |S=4. | RETURN|
|000354c0| 0a 20 20 31 39 30 20 46 | 28 4b 28 4e 32 29 29 3d |. 190 F|(K(N2))=|
|000354d0| 46 54 0a 43 2d 2d 2d 2d | 2d 54 45 53 54 20 45 58 |FT.C----|-TEST EX|
|000354e0| 50 41 4e 44 45 44 20 50 | 4f 49 4e 54 20 4e 32 20 |PANDED P|OINT N2 |
|000354f0| 41 47 41 49 4e 53 54 20 | 4c 4f 57 45 53 54 20 50 |AGAINST |LOWEST P|
|00035500| 4f 49 4e 54 0a 20 20 20 | 20 20 20 49 46 28 46 28 |OINT. | IF(F(|
|00035510| 4b 28 4e 32 29 29 2e 47 | 45 2e 46 28 4b 28 31 29 |K(N2)).G|E.F(K(1)|
|00035520| 29 29 20 47 4f 20 54 4f | 20 32 32 30 0a 43 2d 2d |)) GO TO| 220.C--|
|00035530| 2d 2d 2d 45 58 50 41 4e | 44 45 44 20 4f 52 20 43 |---EXPAN|DED OR C|
|00035540| 4f 4e 54 52 41 43 54 45 | 44 20 50 4f 49 4e 54 20 |ONTRACTE|D POINT |
|00035550| 4e 32 20 52 45 50 4c 41 | 43 45 53 20 48 49 47 48 |N2 REPLA|CES HIGH|
|00035560| 45 53 54 20 50 4f 49 4e | 54 20 4e 54 0a 20 20 32 |EST POIN|T NT. 2|
|00035570| 30 30 20 4b 48 3d 4b 28 | 4e 54 29 0a 20 20 20 20 |00 KH=K(|NT). |
|00035580| 20 20 4b 28 4e 54 29 3d | 4b 28 4e 32 29 0a 20 20 | K(NT)=|K(N2). |
|00035590| 20 20 20 20 4b 28 4e 32 | 29 3d 4b 48 0a 20 20 20 | K(N2|)=KH. |
|000355a0| 20 20 20 47 4f 20 54 4f | 20 33 33 30 0a 43 2d 2d | GO TO| 330.C--|
|000355b0| 2d 2d 2d 52 45 46 4c 45 | 43 54 45 44 20 50 4f 49 |---REFLE|CTED POI|
|000355c0| 4e 54 20 49 53 20 4e 4f | 54 20 4c 4f 57 45 53 54 |NT IS NO|T LOWEST|
|000355d0| 2e 20 54 45 53 54 20 49 | 54 20 41 47 41 49 4e 53 |. TEST I|T AGAINS|
|000355e0| 54 20 53 45 43 4f 4e 44 | 20 48 49 47 48 45 53 54 |T SECOND| HIGHEST|
|000355f0| 2c 20 4e 56 0a 20 20 32 | 31 30 20 49 46 28 46 28 |, NV. 2|10 IF(F(|
|00035600| 4b 28 4e 31 29 29 2e 47 | 54 2e 46 28 4b 28 4e 56 |K(N1)).G|T.F(K(NV|
|00035610| 29 29 29 20 47 4f 20 54 | 4f 20 32 33 30 0a 43 2d |))) GO T|O 230.C-|
|00035620| 2d 2d 2d 2d 52 45 46 4c | 45 43 54 45 44 20 50 4f |----REFL|ECTED PO|
|00035630| 49 4e 54 20 4e 31 20 52 | 45 50 4c 41 43 45 53 20 |INT N1 R|EPLACES |
|00035640| 48 49 47 48 45 53 54 20 | 50 4f 49 4e 54 20 4e 54 |HIGHEST |POINT NT|
|00035650| 0a 20 20 32 32 30 20 4b | 48 3d 4b 28 4e 54 29 0a |. 220 K|H=K(NT).|
|00035660| 20 20 20 20 20 20 4b 28 | 4e 54 29 3d 4b 28 4e 31 | K(|NT)=K(N1|
|00035670| 29 0a 20 20 20 20 20 20 | 4b 28 4e 31 29 3d 4b 48 |). |K(N1)=KH|
|00035680| 0a 20 20 20 20 20 20 47 | 4f 20 54 4f 20 33 33 30 |. G|O TO 330|
|00035690| 0a 43 2d 2d 2d 2d 2d 54 | 45 53 54 20 52 45 46 4c |.C-----T|EST REFL|
|000356a0| 45 43 54 45 44 20 50 4f | 49 4e 54 20 4e 31 20 41 |ECTED PO|INT N1 A|
|000356b0| 47 41 49 4e 53 54 20 48 | 49 47 48 45 53 54 20 50 |GAINST H|IGHEST P|
|000356c0| 4f 49 4e 54 20 4e 54 0a | 20 20 32 33 30 20 49 46 |OINT NT.| 230 IF|
|000356d0| 28 46 28 4b 28 4e 31 29 | 29 2e 47 54 2e 46 28 4b |(F(K(N1)|).GT.F(K|
|000356e0| 28 4e 54 29 29 29 20 47 | 4f 20 54 4f 20 32 34 30 |(NT))) G|O TO 240|
|000356f0| 0a 43 2d 2d 2d 2d 2d 52 | 45 46 4c 45 43 54 45 44 |.C-----R|EFLECTED|
|00035700| 20 50 4f 49 4e 54 20 49 | 53 20 4c 4f 57 45 52 2e | POINT I|S LOWER.|
|00035710| 20 53 55 42 53 54 49 54 | 55 54 45 20 49 54 20 46 | SUBSTIT|UTE IT F|
|00035720| 4f 52 20 48 49 47 48 45 | 53 54 20 50 4f 49 4e 54 |OR HIGHE|ST POINT|
|00035730| 0a 20 20 20 20 20 20 4b | 48 3d 4b 28 4e 54 29 0a |. K|H=K(NT).|
|00035740| 20 20 20 20 20 20 4b 28 | 4e 54 29 3d 4b 28 4e 31 | K(|NT)=K(N1|
|00035750| 29 0a 20 20 20 20 20 20 | 4b 28 4e 31 29 3d 4b 48 |). |K(N1)=KH|
|00035760| 0a 43 2d 2d 2d 2d 2d 43 | 4f 4d 50 55 54 45 20 43 |.C-----C|OMPUTE C|
|00035770| 4f 4e 54 52 41 43 54 45 | 44 20 50 4f 49 4e 54 20 |ONTRACTE|D POINT |
|00035780| 4e 32 20 41 4e 44 20 43 | 4f 4d 50 55 54 45 20 56 |N2 AND C|OMPUTE V|
|00035790| 41 4c 55 45 20 4f 46 20 | 46 55 4e 43 54 49 4f 4e |ALUE OF |FUNCTION|
|000357a0| 0a 20 20 32 34 30 20 44 | 4f 20 32 35 30 20 49 3d |. 240 D|O 250 I=|
|000357b0| 31 2c 4e 56 0a 20 20 20 | 20 20 20 50 54 28 49 2c |1,NV. | PT(I,|
|000357c0| 4b 28 4e 32 29 29 3d 42 | 2a 50 54 28 49 2c 4b 28 |K(N2))=B|*PT(I,K(|
|000357d0| 4e 54 29 29 2b 42 31 2a | 50 42 28 49 29 0a 20 20 |NT))+B1*|PB(I). |
|000357e0| 20 20 20 20 50 56 28 49 | 29 3d 50 54 28 49 2c 4b | PV(I|)=PT(I,K|
|000357f0| 28 4e 32 29 29 0a 20 20 | 32 35 30 20 43 4f 4e 54 |(N2)). |250 CONT|
|00035800| 49 4e 55 45 0a 20 20 20 | 20 20 20 49 52 3d 30 0a |INUE. | IR=0.|
|00035810| 20 20 20 20 20 20 49 53 | 3d 35 0a 20 20 20 20 20 | IS|=5. |
|00035820| 20 52 45 54 55 52 4e 0a | 20 20 32 36 30 20 46 28 | RETURN.| 260 F(|
|00035830| 4b 28 4e 32 29 29 3d 46 | 54 0a 43 2d 2d 2d 2d 2d |K(N2))=F|T.C-----|
|00035840| 54 45 53 54 20 43 4f 4e | 54 52 41 43 54 45 44 20 |TEST CON|TRACTED |
|00035850| 50 4f 49 4e 54 20 4e 32 | 20 41 47 41 49 4e 53 54 |POINT N2| AGAINST|
|00035860| 20 48 49 47 48 45 53 54 | 20 56 41 4c 55 45 20 4e | HIGHEST| VALUE N|
|00035870| 54 0a 20 20 20 20 20 20 | 49 46 28 46 28 4b 28 4e |T. |IF(F(K(N|
|00035880| 32 29 29 2e 4c 45 2e 46 | 28 4b 28 4e 54 29 29 29 |2)).LE.F|(K(NT)))|
|00035890| 20 47 4f 20 54 4f 20 32 | 30 30 0a 43 2d 2d 2d 2d | GO TO 2|00.C----|
|000358a0| 2d 50 4f 49 4e 54 20 4e | 32 20 53 54 49 4c 4c 20 |-POINT N|2 STILL |
|000358b0| 48 49 47 48 45 52 20 54 | 48 41 4e 20 4e 54 2e 20 |HIGHER T|HAN NT. |
|000358c0| 52 45 44 55 43 45 20 45 | 4e 54 49 52 45 20 53 49 |REDUCE E|NTIRE SI|
|000358d0| 4d 50 4c 45 58 0a 20 20 | 20 20 20 20 44 4f 20 32 |MPLEX. | DO 2|
|000358e0| 38 30 20 4a 3d 32 2c 4e | 54 0a 20 20 20 20 20 20 |80 J=2,N|T. |
|000358f0| 44 4f 20 32 37 30 20 49 | 3d 31 2c 4e 56 0a 20 20 |DO 270 I|=1,NV. |
|00035900| 20 20 20 20 50 54 28 49 | 2c 4b 28 4a 29 29 3d 30 | PT(I|,K(J))=0|
|00035910| 2e 35 2a 28 50 54 28 49 | 2c 4b 28 4a 29 29 2b 50 |.5*(PT(I|,K(J))+P|
|00035920| 54 28 49 2c 4b 28 31 29 | 29 29 0a 20 20 32 37 30 |T(I,K(1)|)). 270|
|00035930| 20 43 4f 4e 54 49 4e 55 | 45 0a 20 20 32 38 30 20 | CONTINU|E. 280 |
|00035940| 43 4f 4e 54 49 4e 55 45 | 0a 43 2d 2d 2d 2d 2d 43 |CONTINUE|.C-----C|
|00035950| 4f 4d 50 55 54 45 20 56 | 41 4c 55 45 53 20 4f 46 |OMPUTE V|ALUES OF|
|00035960| 20 46 55 4e 43 54 49 4f | 4e 20 41 54 20 52 45 44 | FUNCTIO|N AT RED|
|00035970| 55 43 45 44 20 50 4f 49 | 4e 54 53 0a 20 20 20 20 |UCED POI|NTS. |
|00035980| 20 20 4a 3d 32 0a 20 20 | 32 39 30 20 44 4f 20 33 | J=2. |290 DO 3|
|00035990| 30 30 20 49 3d 31 2c 4e | 56 0a 20 20 33 30 30 20 |00 I=1,N|V. 300 |
|000359a0| 50 56 28 49 29 3d 50 54 | 28 49 2c 4b 28 4a 29 29 |PV(I)=PT|(I,K(J))|
|000359b0| 0a 20 20 20 20 20 20 49 | 52 3d 30 0a 20 20 20 20 |. I|R=0. |
|000359c0| 20 20 49 53 3d 36 0a 20 | 20 20 20 20 20 52 45 54 | IS=6. | RET|
|000359d0| 55 52 4e 0a 20 20 33 31 | 30 20 46 28 4b 28 4a 29 |URN. 31|0 F(K(J)|
|000359e0| 29 3d 46 54 0a 20 20 20 | 20 20 20 49 46 28 4a 2e |)=FT. | IF(J.|
|000359f0| 45 51 2e 4e 54 29 20 47 | 4f 20 54 4f 20 33 33 30 |EQ.NT) G|O TO 330|
|00035a00| 0a 20 20 20 20 20 20 4a | 3d 4a 2b 31 0a 20 20 20 |. J|=J+1. |
|00035a10| 20 20 20 47 4f 20 54 4f | 20 32 39 30 0a 43 2d 2d | GO TO| 290.C--|
|00035a20| 2d 2d 2d 54 45 53 54 20 | 46 4f 52 20 43 4f 4e 56 |---TEST |FOR CONV|
|00035a30| 45 52 47 45 4e 43 45 0a | 20 20 33 33 30 20 53 46 |ERGENCE.| 330 SF|
|00035a40| 3d 5a 45 52 4f 0a 20 20 | 20 20 20 20 46 46 3d 5a |=ZERO. | FF=Z|
|00035a50| 45 52 4f 0a 20 20 20 20 | 20 20 44 4f 20 33 34 30 |ERO. | DO 340|
|00035a60| 20 4a 3d 31 2c 4e 54 0a | 20 20 20 20 20 20 53 46 | J=1,NT.| SF|
|00035a70| 3d 53 46 2b 46 28 4b 28 | 4a 29 29 0a 20 20 20 20 |=SF+F(K(|J)). |
|00035a80| 20 20 46 46 3d 46 46 2b | 46 28 4b 28 4a 29 29 2a | FF=FF+|F(K(J))*|
|00035a90| 2a 32 0a 20 20 33 34 30 | 20 43 4f 4e 54 49 4e 55 |*2. 340| CONTINU|
|00035aa0| 45 0a 20 20 20 20 20 20 | 45 46 3d 28 46 46 2d 53 |E. |EF=(FF-S|
|00035ab0| 46 2a 53 46 2f 41 54 29 | 2f 41 54 0a 43 2d 2d 2d |F*SF/AT)|/AT.C---|
|00035ac0| 2d 2d 54 45 53 54 20 46 | 4f 52 20 54 45 52 4d 49 |--TEST F|OR TERMI|
|00035ad0| 4e 41 54 49 4f 4e 20 41 | 4e 44 20 53 45 54 20 49 |NATION A|ND SET I|
|00035ae0| 4e 44 49 43 41 54 4f 52 | 0a 20 20 20 20 20 20 49 |NDICATOR|. I|
|00035af0| 52 3d 30 0a 20 20 20 20 | 20 20 49 46 28 4b 43 2e |R=0. | IF(KC.|
|00035b00| 47 45 2e 4e 43 29 20 49 | 52 3d 32 0a 20 20 20 20 |GE.NC) I|R=2. |
|00035b10| 20 20 49 46 28 45 46 2e | 4c 45 2e 44 46 29 20 49 | IF(EF.|LE.DF) I|
|00035b20| 52 3d 31 0a 43 2d 2d 2d | 2d 2d 41 44 56 41 4e 43 |R=1.C---|--ADVANC|
|00035b30| 45 20 43 59 43 4c 45 20 | 43 4f 55 4e 54 45 52 20 |E CYCLE |COUNTER |
|00035b40| 41 4e 44 20 43 4f 4e 54 | 49 4e 55 45 0a 20 20 20 |AND CONT|INUE. |
|00035b50| 20 20 20 4b 43 3d 4b 43 | 2b 31 0a 20 20 20 20 20 | KC=KC|+1. |
|00035b60| 20 47 4f 54 4f 20 31 30 | 30 0a 20 20 20 20 20 20 | GOTO 10|0. |
|00035b70| 45 4e 44 0a 43 0a 43 0a | 43 0a 43 43 43 43 43 43 |END.C.C.|C.CCCCCC|
|00035b80| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|00035b90| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|00035ba0| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|00035bb0| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|00035bc0| 43 0a 43 0a 43 20 20 20 | 54 49 54 4c 45 3a 20 48 |C.C.C |TITLE: H|
|00035bd0| 59 42 52 44 32 20 28 4d | 4f 44 49 46 49 45 44 20 |YBRD2 (M|ODIFIED |
|00035be0| 46 52 4f 4d 20 48 59 42 | 52 44 31 20 57 49 54 48 |FROM HYB|RD1 WITH|
|00035bf0| 20 43 4f 4e 53 54 41 4e | 54 20 49 4e 43 52 45 4d | CONSTAN|T INCREM|
|00035c00| 45 4e 54 53 29 0a 43 0a | 43 20 20 20 54 48 49 53 |ENTS).C.|C THIS|
|00035c10| 20 53 55 42 52 4f 55 54 | 49 4e 45 20 54 52 49 45 | SUBROUT|INE TRIE|
|00035c20| 53 20 54 4f 20 46 49 4e | 44 20 41 20 5a 45 52 4f |S TO FIN|D A ZERO|
|00035c30| 20 54 4f 20 41 20 53 59 | 53 54 45 4d 20 4f 46 20 | TO A SY|STEM OF |
|00035c40| 4e 20 45 51 55 41 54 49 | 4f 4e 53 0a 43 20 20 20 |N EQUATI|ONS.C |
|00035c50| 49 4e 20 4e 20 55 4e 4b | 4e 4f 57 4e 53 20 53 50 |IN N UNK|NOWNS SP|
|00035c60| 45 43 49 46 49 45 44 20 | 42 59 20 54 48 45 20 53 |ECIFIED |BY THE S|
|00035c70| 55 42 52 4f 55 54 49 4e | 45 20 46 43 4e 2e 20 54 |UBROUTIN|E FCN. T|
|00035c80| 48 45 20 4d 45 54 48 4f | 44 0a 43 20 20 20 55 53 |HE METHO|D.C US|
|00035c90| 45 44 20 49 53 20 41 20 | 4d 4f 44 49 46 49 43 41 |ED IS A |MODIFICA|
|00035ca0| 54 49 4f 4e 20 4f 46 20 | 50 4f 57 45 4c 4c 27 53 |TION OF |POWELL'S|
|00035cb0| 20 48 59 42 52 49 44 20 | 50 52 4f 43 45 44 55 52 | HYBRID |PROCEDUR|
|00035cc0| 45 2e 0a 43 0a 43 20 20 | 20 54 48 49 53 20 49 53 |E..C.C | THIS IS|
|00035cd0| 20 41 20 53 4c 49 47 48 | 54 4c 59 20 4d 4f 44 49 | A SLIGH|TLY MODI|
|00035ce0| 46 49 45 44 20 56 45 52 | 53 49 4f 4e 20 4f 46 20 |FIED VER|SION OF |
|00035cf0| 48 59 42 52 44 31 0a 43 | 20 20 20 20 20 54 48 45 |HYBRD1.C| THE|
|00035d00| 20 43 48 41 4e 47 45 53 | 20 49 4e 43 4c 55 44 45 | CHANGES| INCLUDE|
|00035d10| 3a 0a 43 20 20 20 20 20 | 20 20 55 53 45 20 4f 46 |:.C | USE OF|
|00035d20| 20 41 20 43 4f 4e 53 54 | 41 4e 54 20 49 4e 43 52 | A CONST|ANT INCR|
|00035d30| 45 4d 45 4e 54 20 48 20 | 3d 20 31 30 2a 2a 2d 36 |EMENT H |= 10**-6|
|00035d40| 20 49 4e 20 53 55 42 52 | 4f 55 54 49 4e 45 20 46 | IN SUBR|OUTINE F|
|00035d50| 44 45 52 0a 43 20 20 20 | 20 20 20 20 4c 49 4d 49 |DER.C | LIMI|
|00035d60| 54 49 4e 47 20 54 48 45 | 20 43 48 41 4e 47 45 20 |TING THE| CHANGE |
|00035d70| 49 4e 20 41 4e 59 20 58 | 20 56 41 4c 55 45 20 54 |IN ANY X| VALUE T|
|00035d80| 4f 20 57 4d 41 58 20 49 | 4e 20 53 55 42 52 4f 55 |O WMAX I|N SUBROU|
|00035d90| 54 49 4e 45 0a 43 20 20 | 20 20 20 20 20 20 48 59 |TINE.C | HY|
|00035da0| 42 52 44 4d 0a 43 20 20 | 20 20 20 20 20 45 58 50 |BRDM.C | EXP|
|00035db0| 41 4e 44 49 4e 47 20 54 | 48 45 20 41 52 47 55 4d |ANDING T|HE ARGUM|
|00035dc0| 45 4e 54 20 4c 49 53 54 | 20 54 4f 20 41 43 43 4f |ENT LIST| TO ACCO|
|00035dd0| 4d 4d 4f 44 41 54 45 20 | 4d 4f 52 45 20 56 41 52 |MMODATE |MORE VAR|
|00035de0| 49 41 42 4c 45 53 0a 43 | 0a 43 20 20 20 54 48 45 |IABLES.C|.C THE|
|00035df0| 20 4f 52 49 47 49 4e 41 | 4c 20 53 55 42 52 4f 55 | ORIGINA|L SUBROU|
|00035e00| 54 49 4e 45 20 53 54 41 | 54 45 4d 45 4e 54 20 57 |TINE STA|TEMENT W|
|00035e10| 41 53 0a 43 0a 43 20 20 | 20 20 20 20 20 53 55 42 |AS.C.C | SUB|
|00035e20| 52 4f 55 54 49 4e 45 20 | 48 59 42 52 44 32 28 4e |ROUTINE |HYBRD2(N|
|00035e30| 2c 46 43 4e 2c 58 2c 46 | 2c 46 54 4f 4c 2c 58 54 |,FCN,X,F|,FTOL,XT|
|00035e40| 4f 4c 2c 4d 41 58 46 45 | 56 2c 49 45 52 2c 4c 57 |OL,MAXFE|V,IER,LW|
|00035e50| 41 2c 57 41 29 0a 43 0a | 43 20 20 20 57 48 45 52 |A,WA).C.|C WHER|
|00035e60| 45 0a 43 0a 43 20 20 20 | 20 20 20 20 4e 20 49 53 |E.C.C | N IS|
|00035e70| 20 41 20 50 4f 53 49 54 | 49 56 45 20 49 4e 54 45 | A POSIT|IVE INTE|
|00035e80| 47 45 52 20 49 4e 50 55 | 54 20 56 41 52 49 41 42 |GER INPU|T VARIAB|
|00035e90| 4c 45 20 57 48 49 43 48 | 20 53 50 45 43 49 46 49 |LE WHICH| SPECIFI|
|00035ea0| 45 53 20 54 48 45 0a 43 | 20 20 20 20 20 20 20 20 |ES THE.C| |
|00035eb0| 20 4e 55 4d 42 45 52 20 | 4f 46 20 56 41 52 49 41 | NUMBER |OF VARIA|
|00035ec0| 42 4c 45 53 20 41 4e 44 | 20 45 51 55 41 54 49 4f |BLES AND| EQUATIO|
|00035ed0| 4e 53 2e 0a 43 0a 43 20 | 20 20 20 20 20 20 46 43 |NS..C.C | FC|
|00035ee0| 4e 20 49 53 20 54 48 45 | 20 4e 41 4d 45 20 4f 46 |N IS THE| NAME OF|
|00035ef0| 20 54 48 45 20 53 55 42 | 52 4f 55 54 49 4e 45 20 | THE SUB|ROUTINE |
|00035f00| 57 48 49 43 48 20 44 45 | 46 49 4e 45 53 20 54 48 |WHICH DE|FINES TH|
|00035f10| 45 20 53 59 53 54 45 4d | 0a 43 20 20 20 20 20 20 |E SYSTEM|.C |
|00035f20| 20 20 20 4f 46 20 45 51 | 55 41 54 49 4f 4e 53 2e | OF EQ|UATIONS.|
|00035f30| 20 54 48 45 20 55 53 45 | 52 20 53 50 45 43 49 46 | THE USE|R SPECIF|
|00035f40| 49 45 53 20 46 43 4e 20 | 42 59 20 57 52 49 54 49 |IES FCN |BY WRITI|
|00035f50| 4e 47 20 41 0a 43 20 20 | 20 20 20 20 20 20 20 53 |NG A.C | S|
|00035f60| 55 42 52 4f 55 54 49 4e | 45 20 46 43 4e 28 4e 2c |UBROUTIN|E FCN(N,|
|00035f70| 58 2c 46 2c 49 45 52 29 | 20 57 48 49 43 48 20 45 |X,F,IER)| WHICH E|
|00035f80| 56 41 4c 55 41 54 45 53 | 20 54 48 45 20 46 55 4e |VALUATES| THE FUN|
|00035f90| 43 54 49 4f 4e 0a 43 20 | 20 20 20 20 20 20 20 20 |CTION.C | |
|00035fa0| 41 54 20 58 20 41 4e 44 | 20 52 45 54 55 52 4e 53 |AT X AND| RETURNS|
|00035fb0| 20 54 48 49 53 20 56 41 | 4c 55 45 20 49 4e 20 46 | THIS VA|LUE IN F|
|00035fc0| 2e 20 49 45 52 20 53 48 | 4f 55 4c 44 20 4e 4f 54 |. IER SH|OULD NOT|
|00035fd0| 20 42 45 0a 43 20 20 20 | 20 20 20 20 20 20 43 48 | BE.C | CH|
|00035fe0| 41 4e 47 45 44 20 55 4e | 4c 45 53 53 20 54 48 45 |ANGED UN|LESS THE|
|00035ff0| 20 55 53 45 52 20 57 41 | 4e 54 53 20 54 4f 20 54 | USER WA|NTS TO T|
|00036000| 45 52 4d 49 4e 41 54 45 | 20 54 48 45 0a 43 20 20 |ERMINATE| THE.C |
|00036010| 20 20 20 20 20 20 20 49 | 54 45 52 41 54 49 4f 4e | I|TERATION|
|00036020| 2e 20 49 4e 20 54 48 49 | 53 20 43 41 53 45 20 53 |. IN THI|S CASE S|
|00036030| 45 54 20 49 45 52 20 54 | 4f 20 41 20 4e 45 47 41 |ET IER T|O A NEGA|
|00036040| 54 49 56 45 20 49 4e 54 | 45 47 45 52 2e 0a 43 0a |TIVE INT|EGER..C.|
|00036050| 43 20 20 20 20 20 20 20 | 58 20 49 53 20 41 20 4c |C |X IS A L|
|00036060| 49 4e 45 41 52 20 41 52 | 52 41 59 20 4f 46 20 4c |INEAR AR|RAY OF L|
|00036070| 45 4e 47 54 48 20 4e 20 | 57 48 49 43 48 20 4d 55 |ENGTH N |WHICH MU|
|00036080| 53 54 20 43 4f 4e 54 41 | 49 4e 20 54 48 45 0a 43 |ST CONTA|IN THE.C|
|00036090| 20 20 20 20 20 20 20 20 | 20 49 4e 49 54 49 41 4c | | INITIAL|
|000360a0| 20 45 53 54 49 4d 41 54 | 45 20 54 4f 20 54 48 45 | ESTIMAT|E TO THE|
|000360b0| 20 5a 45 52 4f 20 4f 46 | 20 54 48 45 20 53 59 53 | ZERO OF| THE SYS|
|000360c0| 54 45 4d 20 4f 46 20 45 | 51 55 41 54 49 4f 4e 53 |TEM OF E|QUATIONS|
|000360d0| 2e 0a 43 20 20 20 20 20 | 20 20 20 20 4f 4e 20 4f |..C | ON O|
|000360e0| 55 54 50 55 54 20 58 20 | 43 4f 4e 54 41 49 4e 53 |UTPUT X |CONTAINS|
|000360f0| 20 54 48 45 20 46 49 4e | 41 4c 20 45 53 54 49 4d | THE FIN|AL ESTIM|
|00036100| 41 54 45 20 54 4f 20 54 | 48 45 20 5a 45 52 4f 0a |ATE TO T|HE ZERO.|
|00036110| 43 20 20 20 20 20 20 20 | 20 20 4f 46 20 54 48 45 |C | OF THE|
|00036120| 20 53 59 53 54 45 4d 20 | 4f 46 20 45 51 55 41 54 | SYSTEM |OF EQUAT|
|00036130| 49 4f 4e 53 2e 0a 43 0a | 43 20 20 20 20 20 20 20 |IONS..C.|C |
|00036140| 46 20 49 53 20 41 20 4c | 49 4e 45 41 52 20 41 52 |F IS A L|INEAR AR|
|00036150| 52 41 59 20 4f 46 20 4c | 45 4e 47 54 48 20 4e 2e |RAY OF L|ENGTH N.|
|00036160| 20 4f 4e 20 4f 55 54 50 | 55 54 20 49 54 20 43 4f | ON OUTP|UT IT CO|
|00036170| 4e 54 41 49 4e 53 20 54 | 48 45 0a 43 20 20 20 20 |NTAINS T|HE.C |
|00036180| 20 20 20 20 20 56 41 4c | 55 45 20 4f 46 20 54 48 | VAL|UE OF TH|
|00036190| 45 20 46 55 4e 43 54 49 | 4f 4e 20 41 54 20 54 48 |E FUNCTI|ON AT TH|
|000361a0| 45 20 4f 55 54 50 55 54 | 20 58 2e 0a 43 0a 43 20 |E OUTPUT| X..C.C |
|000361b0| 20 20 20 20 20 20 46 54 | 4f 4c 20 49 53 20 41 20 | FT|OL IS A |
|000361c0| 4e 4f 4e 4e 45 47 41 54 | 49 56 45 20 49 4e 50 55 |NONNEGAT|IVE INPU|
|000361d0| 54 20 56 41 52 49 41 42 | 4c 45 2e 20 54 45 52 4d |T VARIAB|LE. TERM|
|000361e0| 49 4e 41 54 49 4f 4e 20 | 4f 43 43 55 52 53 0a 43 |INATION |OCCURS.C|
|000361f0| 20 20 20 20 20 20 20 20 | 20 49 46 20 54 48 45 20 | | IF THE |
|00036200| 45 55 43 4c 49 44 45 41 | 4e 20 4e 4f 52 4d 20 4f |EUCLIDEA|N NORM O|
|00036210| 46 20 46 20 49 53 20 41 | 54 20 4d 4f 53 54 20 46 |F F IS A|T MOST F|
|00036220| 54 4f 4c 2e 0a 43 0a 43 | 20 20 20 20 20 20 20 58 |TOL..C.C| X|
|00036230| 54 4f 4c 20 49 53 20 41 | 20 4e 4f 4e 4e 45 47 41 |TOL IS A| NONNEGA|
|00036240| 54 49 56 45 20 49 4e 50 | 55 54 20 56 41 52 49 41 |TIVE INP|UT VARIA|
|00036250| 42 4c 45 2e 20 54 45 52 | 4d 49 4e 41 54 49 4f 4e |BLE. TER|MINATION|
|00036260| 20 4f 43 43 55 52 53 0a | 43 20 20 20 20 20 20 20 | OCCURS.|C |
|00036270| 20 20 49 46 20 54 48 45 | 20 52 45 4c 41 54 49 56 | IF THE| RELATIV|
|00036280| 45 20 45 52 52 4f 52 20 | 42 45 54 57 45 45 4e 20 |E ERROR |BETWEEN |
|00036290| 54 57 4f 20 53 55 43 43 | 45 53 53 49 56 45 20 49 |TWO SUCC|ESSIVE I|
|000362a0| 54 45 52 41 54 45 53 0a | 43 20 20 20 20 20 20 20 |TERATES.|C |
|000362b0| 20 20 49 53 20 41 54 20 | 4d 4f 53 54 20 58 54 4f | IS AT |MOST XTO|
|000362c0| 4c 2e 0a 43 0a 43 20 20 | 20 20 20 20 20 4d 41 58 |L..C.C | MAX|
|000362d0| 46 45 56 20 49 53 20 41 | 20 50 4f 53 49 54 49 56 |FEV IS A| POSITIV|
|000362e0| 45 20 49 4e 54 45 47 45 | 52 20 56 41 52 49 41 42 |E INTEGE|R VARIAB|
|000362f0| 4c 45 2e 20 54 45 52 4d | 49 4e 41 54 49 4f 4e 20 |LE. TERM|INATION |
|00036300| 4f 43 43 55 52 53 0a 43 | 20 20 20 20 20 20 20 20 |OCCURS.C| |
|00036310| 20 49 46 20 41 54 20 54 | 48 45 20 45 4e 44 20 4f | IF AT T|HE END O|
|00036320| 46 20 41 4e 20 49 54 45 | 52 41 54 49 4f 4e 20 54 |F AN ITE|RATION T|
|00036330| 48 45 20 4e 55 4d 42 45 | 52 20 4f 46 20 43 41 4c |HE NUMBE|R OF CAL|
|00036340| 4c 53 0a 43 20 20 20 20 | 20 20 20 20 20 54 4f 20 |LS.C | TO |
|00036350| 46 43 4e 20 49 53 20 41 | 54 20 4c 45 41 53 54 20 |FCN IS A|T LEAST |
|00036360| 4d 41 58 46 45 56 2e 20 | 4f 4e 20 4f 55 54 50 55 |MAXFEV. |ON OUTPU|
|00036370| 54 20 4d 41 58 46 45 56 | 20 49 53 20 54 48 45 0a |T MAXFEV| IS THE.|
|00036380| 43 20 20 20 20 20 20 20 | 20 20 4e 55 4d 42 45 52 |C | NUMBER|
|00036390| 20 4f 46 20 43 41 4c 4c | 53 20 54 4f 20 46 43 4e | OF CALL|S TO FCN|
|000363a0| 20 55 53 45 44 20 49 4e | 20 50 52 4f 44 55 43 49 | USED IN| PRODUCI|
|000363b0| 4e 47 20 58 2e 0a 43 0a | 43 20 20 20 20 20 20 20 |NG X..C.|C |
|000363c0| 49 45 52 20 49 53 20 41 | 4e 20 49 4e 54 45 47 45 |IER IS A|N INTEGE|
|000363d0| 52 20 4f 55 54 50 55 54 | 20 50 41 52 41 4d 45 54 |R OUTPUT| PARAMET|
|000363e0| 45 52 20 53 45 54 20 41 | 53 20 46 4f 4c 4c 4f 57 |ER SET A|S FOLLOW|
|000363f0| 53 3a 20 49 46 20 49 45 | 52 20 49 53 0a 43 20 20 |S: IF IE|R IS.C |
|00036400| 20 20 20 20 20 20 20 4e | 45 47 41 54 49 56 45 20 | N|EGATIVE |
|00036410| 54 48 45 4e 20 55 53 45 | 52 20 54 45 52 4d 49 4e |THEN USE|R TERMIN|
|00036420| 41 54 49 4f 4e 3b 20 4f | 54 48 45 52 57 49 53 45 |ATION; O|THERWISE|
|00036430| 0a 43 0a 43 20 20 20 20 | 20 20 20 20 20 49 45 52 |.C.C | IER|
|00036440| 20 3d 20 30 20 20 20 20 | 49 4d 50 52 4f 50 45 52 | = 0 |IMPROPER|
|00036450| 20 49 4e 50 55 54 20 50 | 41 52 41 4d 45 54 45 52 | INPUT P|ARAMETER|
|00036460| 53 2e 0a 43 0a 43 20 20 | 20 20 20 20 20 20 20 49 |S..C.C | I|
|00036470| 45 52 20 3d 20 31 20 20 | 20 20 45 55 43 4c 49 44 |ER = 1 | EUCLID|
|00036480| 45 41 4e 20 4e 4f 52 4d | 20 4f 46 20 46 20 49 53 |EAN NORM| OF F IS|
|00036490| 20 41 54 20 4d 4f 53 54 | 20 46 54 4f 4c 2e 0a 43 | AT MOST| FTOL..C|
|000364a0| 0a 43 20 20 20 20 20 20 | 20 20 20 49 45 52 20 3d |.C | IER =|
|000364b0| 20 32 20 20 20 20 52 45 | 4c 41 54 49 56 45 20 45 | 2 RE|LATIVE E|
|000364c0| 52 52 4f 52 20 42 45 54 | 57 45 45 4e 20 54 57 4f |RROR BET|WEEN TWO|
|000364d0| 20 53 55 43 43 45 53 53 | 49 56 45 20 49 54 45 52 | SUCCESS|IVE ITER|
|000364e0| 41 54 45 53 0a 43 20 20 | 20 20 20 20 20 20 20 20 |ATES.C | |
|000364f0| 20 20 20 20 20 20 20 20 | 20 20 49 53 20 41 54 20 | | IS AT |
|00036500| 4d 4f 53 54 20 58 54 4f | 4c 2e 0a 43 0a 43 20 20 |MOST XTO|L..C.C |
|00036510| 20 20 20 20 20 20 20 49 | 45 52 20 3d 20 33 20 20 | I|ER = 3 |
|00036520| 20 20 43 4f 4e 44 49 54 | 49 4f 4e 53 20 46 4f 52 | CONDIT|IONS FOR|
|00036530| 20 49 45 52 20 3d 20 31 | 20 41 4e 44 20 49 45 52 | IER = 1| AND IER|
|00036540| 20 3d 20 32 20 48 4f 4c | 44 2e 0a 43 0a 43 20 20 | = 2 HOL|D..C.C |
|00036550| 20 20 20 20 20 20 20 49 | 45 52 20 3d 20 34 20 20 | I|ER = 4 |
|00036560| 20 20 4e 55 4d 42 45 52 | 20 4f 46 20 43 41 4c 4c | NUMBER| OF CALL|
|00036570| 53 20 54 4f 20 46 43 4e | 20 49 53 20 41 54 20 4c |S TO FCN| IS AT L|
|00036580| 45 41 53 54 20 4d 41 58 | 46 45 56 2e 0a 43 0a 43 |EAST MAX|FEV..C.C|
|00036590| 20 20 20 20 20 20 20 20 | 20 49 45 52 20 3d 20 35 | | IER = 5|
|000365a0| 20 20 20 20 49 54 45 52 | 41 54 49 4f 4e 20 48 41 | ITER|ATION HA|
|000365b0| 53 20 46 41 49 4c 45 44 | 20 54 4f 20 52 45 44 55 |S FAILED| TO REDU|
|000365c0| 43 45 20 54 48 45 20 52 | 45 53 49 44 55 41 4c 53 |CE THE R|ESIDUALS|
|000365d0| 20 42 59 0a 43 20 20 20 | 20 20 20 20 20 20 20 20 | BY.C | |
|000365e0| 20 20 20 20 20 20 20 20 | 20 4f 4e 45 20 50 45 52 | | ONE PER|
|000365f0| 43 45 4e 54 20 49 4e 20 | 4e 54 52 59 20 43 4f 4e |CENT IN |NTRY CON|
|00036600| 53 45 43 55 54 49 56 45 | 20 49 54 45 52 41 54 49 |SECUTIVE| ITERATI|
|00036610| 4f 4e 53 2e 0a 43 0a 43 | 20 20 20 20 20 20 20 20 |ONS..C.C| |
|00036620| 20 49 45 52 20 3d 20 36 | 20 20 20 20 49 54 45 52 | IER = 6| ITER|
|00036630| 41 54 49 4f 4e 20 53 45 | 45 4d 53 20 54 4f 20 42 |ATION SE|EMS TO B|
|00036640| 45 20 43 4f 4e 56 45 52 | 47 49 4e 47 20 42 55 54 |E CONVER|GING BUT|
|00036650| 20 54 48 45 20 44 45 53 | 49 52 45 44 0a 43 20 20 | THE DES|IRED.C |
|00036660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00036670| 20 20 41 43 43 55 52 41 | 43 59 20 49 53 20 54 4f | ACCURA|CY IS TO|
|00036680| 4f 20 53 54 52 49 4e 47 | 45 4e 54 20 4f 52 20 54 |O STRING|ENT OR T|
|00036690| 48 45 20 43 4f 4e 56 45 | 52 47 45 4e 43 45 20 49 |HE CONVE|RGENCE I|
|000366a0| 53 0a 43 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |S.C | |
|000366b0| 20 20 20 20 20 20 20 54 | 4f 4f 20 53 4c 4f 57 20 | T|OO SLOW |
|000366c0| 44 55 45 20 54 4f 20 41 | 20 4a 41 43 4f 42 49 41 |DUE TO A| JACOBIA|
|000366d0| 4e 20 53 49 4e 47 55 4c | 41 52 20 4e 45 41 52 20 |N SINGUL|AR NEAR |
|000366e0| 54 48 45 0a 43 20 20 20 | 20 20 20 20 20 20 20 20 |THE.C | |
|000366f0| 20 20 20 20 20 20 20 20 | 20 49 54 45 52 41 54 45 | | ITERATE|
|00036700| 53 20 4f 52 20 44 55 45 | 20 54 4f 20 42 41 44 4c |S OR DUE| TO BADL|
|00036710| 59 20 53 43 41 4c 45 44 | 20 56 41 52 49 41 42 4c |Y SCALED| VARIABL|
|00036720| 45 53 2e 0a 43 0a 43 20 | 20 20 20 20 20 20 20 20 |ES..C.C | |
|00036730| 49 45 52 20 3d 20 37 20 | 20 20 20 49 54 45 52 41 |IER = 7 | ITERA|
|00036740| 54 49 4f 4e 20 49 53 20 | 4e 4f 54 20 41 42 4c 45 |TION IS |NOT ABLE|
|00036750| 20 54 4f 20 50 52 4f 47 | 52 45 53 53 20 41 4e 59 | TO PROG|RESS ANY|
|00036760| 20 46 55 52 54 48 45 52 | 0a 43 20 20 20 20 20 20 | FURTHER|.C |
|00036770| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 42 45 | | BE|
|00036780| 43 41 55 53 45 20 54 48 | 45 20 53 54 45 50 20 42 |CAUSE TH|E STEP B|
|00036790| 4f 55 4e 44 20 49 53 20 | 54 4f 4f 20 53 4d 41 4c |OUND IS |TOO SMAL|
|000367a0| 4c 20 52 45 4c 41 54 49 | 56 45 0a 43 20 20 20 20 |L RELATI|VE.C |
|000367b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000367c0| 54 4f 20 54 48 45 20 53 | 49 5a 45 20 4f 46 20 54 |TO THE S|IZE OF T|
|000367d0| 48 45 20 49 54 45 52 41 | 54 45 53 2e 0a 43 0a 43 |HE ITERA|TES..C.C|
|000367e0| 20 20 20 20 20 20 20 4c | 57 41 20 49 53 20 41 4e | L|WA IS AN|
|000367f0| 20 49 4e 54 45 47 45 52 | 20 56 41 52 49 41 42 4c | INTEGER| VARIABL|
|00036800| 45 20 4e 4f 54 20 4c 45 | 53 53 20 54 48 41 4e 20 |E NOT LE|SS THAN |
|00036810| 28 4e 2a 28 33 2a 4e 2b | 37 29 29 2f 32 2e 0a 43 |(N*(3*N+|7))/2..C|
|00036820| 0a 43 20 20 20 20 20 20 | 20 57 41 20 49 53 20 41 |.C | WA IS A|
|00036830| 20 53 43 52 41 54 43 48 | 20 41 52 52 41 59 20 4f | SCRATCH| ARRAY O|
|00036840| 46 20 4c 45 4e 47 54 48 | 20 4c 57 41 2e 0a 43 0a |F LENGTH| LWA..C.|
|00036850| 43 20 20 20 4a 4f 52 47 | 45 20 4a 2e 20 4d 4f 52 |C JORG|E J. MOR|
|00036860| 45 27 2c 20 41 55 47 55 | 53 54 20 31 39 37 36 0a |E', AUGU|ST 1976.|
|00036870| 43 0a 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |C.CCCCCC|CCCCCCCC|
|00036880| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|00036890| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|000368a0| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|000368b0| 43 43 43 43 43 43 43 43 | 43 0a 43 0a 20 20 20 20 |CCCCCCCC|C.C. |
|000368c0| 20 20 53 55 42 52 4f 55 | 54 49 4e 45 20 48 59 42 | SUBROU|TINE HYB|
|000368d0| 52 44 32 28 4e 2c 46 43 | 4e 2c 58 2c 46 2c 46 54 |RD2(N,FC|N,X,F,FT|
|000368e0| 4f 4c 2c 58 54 4f 4c 2c | 4d 41 58 46 45 56 2c 0a |OL,XTOL,|MAXFEV,.|
|000368f0| 20 20 20 20 20 26 49 45 | 52 2c 4c 57 41 2c 57 41 | &IE|R,LWA,WA|
|00036900| 2c 0a 20 20 20 20 20 26 | 58 50 2c 58 57 2c 58 56 |,. &|XP,XW,XV|
|00036910| 2c 58 56 30 2c 0a 20 20 | 20 20 20 26 58 53 56 2c |,XV0,. | &XSV,|
|00036920| 58 43 53 2c 58 52 4f 43 | 2c 58 52 41 43 2c 58 45 |XCS,XROC|,XRAC,XE|
|00036930| 4f 43 2c 58 43 45 4f 2c | 58 52 45 4f 2c 0a 20 20 |OC,XCEO,|XREO,. |
|00036940| 20 20 20 26 58 53 45 4f | 2c 58 45 41 43 2c 58 46 | &XSEO|,XEAC,XF|
|00036950| 4f 43 2c 58 46 41 43 2c | 58 46 4f 4b 2c 58 52 46 |OC,XFAC,|XFOK,XRF|
|00036960| 4f 2c 58 53 46 4f 2c 0a | 20 20 20 20 20 26 58 46 |O,XSFO,.| &XF|
|00036970| 41 4b 2c 58 41 4d 2c 58 | 42 4d 2c 58 43 4d 2c 58 |AK,XAM,X|BM,XCM,X|
|00036980| 42 30 2c 58 42 31 2c 58 | 42 32 2c 0a 20 20 20 20 |B0,XB1,X|B2,. |
|00036990| 20 26 58 43 50 2c 58 41 | 4c 50 2c 58 42 50 2c 58 | &XCP,XA|LP,XBP,X|
|000369a0| 42 47 2c 58 42 47 50 2c | 58 43 47 2c 58 50 43 43 |BG,XBGP,|XCG,XPCC|
|000369b0| 2c 0a 20 20 20 20 20 26 | 58 45 54 48 43 2c 58 45 |,. &|XETHC,XE|
|000369c0| 54 48 43 50 2c 58 50 41 | 41 2c 58 45 54 48 41 2c |THCP,XPA|A,XETHA,|
|000369d0| 58 45 54 48 41 50 2c 58 | 50 43 43 41 2c 58 50 43 |XETHAP,X|PCCA,XPC|
|000369e0| 41 41 2c 0a 20 20 20 20 | 20 26 58 44 43 41 2c 58 |AA,. | &XDCA,X|
|000369f0| 50 4e 43 2c 58 50 4e 41 | 2c 58 50 4e 4e 2c 58 5a |PNC,XPNA|,XPNN,XZ|
|00036a00| 41 2c 58 5a 46 41 2c 58 | 5a 43 2c 0a 20 20 20 20 |A,XZFA,X|ZC,. |
|00036a10| 20 26 58 5a 46 43 2c 58 | 47 2c 58 47 4f 2c 58 47 | &XZFC,X|G,XGO,XG|
|00036a20| 58 30 2c 58 56 52 54 2c | 58 50 48 2c 58 50 48 56 |X0,XVRT,|XPH,XPHV|
|00036a30| 2c 0a 20 20 20 20 20 26 | 58 58 46 2c 58 47 58 2c |,. &|XXF,XGX,|
|00036a40| 58 41 43 2c 58 58 2c 58 | 58 43 2c 58 43 41 50 2c |XAC,XX,X|XC,XCAP,|
|00036a50| 58 43 4f 50 2c 0a 20 20 | 20 20 20 26 58 52 5a 49 |XCOP,. | &XRZI|
|00036a60| 52 2c 58 53 43 50 53 49 | 2c 4e 58 43 4f 50 2c 4e |R,XSCPSI|,NXCOP,N|
|00036a70| 58 43 41 50 2c 4e 58 46 | 2c 49 58 43 41 2c 49 58 |XCAP,NXF|,IXCA,IX|
|00036a80| 41 4e 2c 0a 20 20 20 20 | 20 26 49 58 4e 55 2c 49 |AN,. | &IXNU,I|
|00036a90| 58 50 54 2c 4e 58 5a 41 | 2c 4e 58 5a 50 4f 2c 49 |XPT,NXZA|,NXZPO,I|
|00036aa0| 58 59 2c 49 58 4e 43 41 | 4c 2c 49 58 45 51 2c 0a |XY,IXNCA|L,IXEQ,.|
|00036ab0| 20 20 20 20 20 26 49 58 | 45 48 2c 49 58 43 4e 2c | &IX|EH,IXCN,|
|00036ac0| 49 58 53 54 2c 49 49 44 | 43 2c 49 4e 50 53 49 29 |IXST,IID|C,INPSI)|
|00036ad0| 0a 20 20 20 20 20 20 53 | 41 56 45 0a 20 20 20 20 |. S|AVE. |
|00036ae0| 20 20 49 4e 54 45 47 45 | 52 20 4e 2c 4d 41 58 46 | INTEGE|R N,MAXF|
|00036af0| 45 56 2c 49 45 52 2c 4c | 57 41 0a 20 20 20 20 20 |EV,IER,L|WA. |
|00036b00| 20 44 4f 55 42 4c 45 20 | 50 52 45 43 49 53 49 4f | DOUBLE |PRECISIO|
|00036b10| 4e 20 46 54 4f 4c 2c 58 | 54 4f 4c 0a 20 20 20 20 |N FTOL,X|TOL. |
|00036b20| 20 20 44 4f 55 42 4c 45 | 20 50 52 45 43 49 53 49 | DOUBLE| PRECISI|
|00036b30| 4f 4e 20 58 28 4e 29 2c | 46 28 4e 29 2c 57 41 28 |ON X(N),|F(N),WA(|
|00036b40| 4c 57 41 29 0a 20 20 20 | 20 20 20 44 4f 55 42 4c |LWA). | DOUBL|
|00036b50| 45 20 50 52 45 43 49 53 | 49 4f 4e 20 58 50 28 2a |E PRECIS|ION XP(*|
|00036b60| 29 2c 58 57 28 2a 29 2c | 58 56 28 2a 29 2c 58 56 |),XW(*),|XV(*),XV|
|00036b70| 30 28 2a 29 2c 58 53 56 | 28 2a 29 2c 58 43 53 28 |0(*),XSV|(*),XCS(|
|00036b80| 2a 29 2c 0a 20 20 20 20 | 20 26 58 52 4f 43 28 38 |*),. | &XROC(8|
|00036b90| 2c 2a 29 2c 58 52 41 43 | 28 38 2c 2a 29 2c 58 45 |,*),XRAC|(8,*),XE|
|00036ba0| 4f 43 28 38 2c 2a 29 2c | 58 43 45 4f 28 2a 29 2c |OC(8,*),|XCEO(*),|
|00036bb0| 58 52 45 4f 28 35 2c 38 | 2b 4e 53 4f 2c 2a 29 2c |XREO(5,8|+NSO,*),|
|00036bc0| 0a 20 20 20 20 20 26 58 | 53 45 4f 28 38 2b 4e 53 |. &X|SEO(8+NS|
|00036bd0| 4f 2c 2a 29 2c 58 45 41 | 43 28 38 2c 2a 29 2c 58 |O,*),XEA|C(8,*),X|
|00036be0| 46 4f 43 28 38 2c 2a 29 | 2c 58 46 41 43 28 38 2c |FOC(8,*)|,XFAC(8,|
|00036bf0| 2a 29 2c 58 46 4f 4b 28 | 2a 29 2c 58 52 46 4f 28 |*),XFOK(|*),XRFO(|
|00036c00| 35 2c 2a 29 2c 0a 20 20 | 20 20 20 26 58 53 46 4f |5,*),. | &XSFO|
|00036c10| 28 2a 29 2c 58 46 41 4b | 28 2a 29 2c 58 41 4d 28 |(*),XFAK|(*),XAM(|
|00036c20| 2a 29 2c 58 42 4d 28 2a | 29 2c 58 43 4d 28 2a 29 |*),XBM(*|),XCM(*)|
|00036c30| 2c 58 42 30 28 2a 29 2c | 58 42 31 28 2a 29 2c 58 |,XB0(*),|XB1(*),X|
|00036c40| 42 32 28 2a 29 2c 0a 20 | 20 20 20 20 26 58 43 50 |B2(*),. | &XCP|
|00036c50| 28 2a 29 2c 58 41 4c 50 | 28 32 2c 2a 29 2c 58 42 |(*),XALP|(2,*),XB|
|00036c60| 50 28 2a 29 2c 58 42 47 | 28 2a 29 2c 58 42 47 50 |P(*),XBG|(*),XBGP|
|00036c70| 28 2a 29 2c 58 43 47 28 | 2a 29 2c 58 50 43 43 28 |(*),XCG(|*),XPCC(|
|00036c80| 2a 29 2c 58 45 54 48 43 | 28 2a 29 2c 0a 20 20 20 |*),XETHC|(*),. |
|00036c90| 20 20 26 58 45 54 48 43 | 50 28 2a 29 2c 58 50 41 | &XETHC|P(*),XPA|
|00036ca0| 41 28 2a 29 2c 58 45 54 | 48 41 28 2a 29 2c 58 45 |A(*),XET|HA(*),XE|
|00036cb0| 54 48 41 50 28 2a 29 2c | 58 50 43 43 41 28 2a 29 |THAP(*),|XPCCA(*)|
|00036cc0| 2c 58 50 43 41 41 28 2a | 29 2c 58 44 43 41 28 2a |,XPCAA(*|),XDCA(*|
|00036cd0| 29 2c 0a 20 20 20 20 20 | 26 58 50 4e 43 28 2a 29 |),. |&XPNC(*)|
|00036ce0| 2c 58 50 4e 41 28 2a 29 | 2c 58 50 4e 4e 28 2a 29 |,XPNA(*)|,XPNN(*)|
|00036cf0| 2c 58 5a 41 28 2a 29 2c | 58 5a 46 41 28 2a 29 2c |,XZA(*),|XZFA(*),|
|00036d00| 58 5a 43 28 2a 29 2c 58 | 5a 46 43 28 2a 29 2c 58 |XZC(*),X|ZFC(*),X|
|00036d10| 47 28 2a 29 2c 0a 20 20 | 20 20 20 26 58 47 4f 28 |G(*),. | &XGO(|
|00036d20| 2a 29 2c 58 47 58 30 28 | 2a 29 2c 58 56 52 54 28 |*),XGX0(|*),XVRT(|
|00036d30| 2a 29 2c 58 50 48 28 2a | 29 2c 58 50 48 56 28 2a |*),XPH(*|),XPHV(*|
|00036d40| 29 2c 58 58 46 28 2a 29 | 2c 58 47 58 28 2a 29 2c |),XXF(*)|,XGX(*),|
|00036d50| 58 41 43 28 2a 29 2c 0a | 20 20 20 20 20 26 58 58 |XAC(*),.| &XX|
|00036d60| 28 31 30 2c 2a 29 2c 58 | 58 43 28 2a 29 2c 58 43 |(10,*),X|XC(*),XC|
|00036d70| 41 50 28 2a 29 2c 58 43 | 4f 50 28 2a 29 2c 58 52 |AP(*),XC|OP(*),XR|
|00036d80| 5a 49 52 28 2a 29 2c 58 | 53 43 50 53 49 28 2a 29 |ZIR(*),X|SCPSI(*)|
|00036d90| 0a 20 20 20 20 20 20 44 | 49 4d 45 4e 53 49 4f 4e |. D|IMENSION|
|00036da0| 20 4e 58 43 4f 50 28 38 | 2c 2a 29 2c 4e 58 43 41 | NXCOP(8|,*),NXCA|
|00036db0| 50 28 37 2c 2a 29 2c 4e | 58 46 28 2a 29 2c 49 58 |P(7,*),N|XF(*),IX|
|00036dc0| 43 41 28 2a 29 2c 49 58 | 41 4e 28 2a 29 2c 0a 20 |CA(*),IX|AN(*),. |
|00036dd0| 20 20 20 20 26 49 58 4e | 55 28 2a 29 2c 4e 58 5a | &IXN|U(*),NXZ|
|00036de0| 41 28 2a 29 2c 4e 58 5a | 50 4f 28 2a 29 2c 49 4e |A(*),NXZ|PO(*),IN|
|00036df0| 50 53 49 28 2a 29 0a 20 | 20 20 20 20 20 43 4f 4d |PSI(*). | COM|
|00036e00| 4d 4f 4e 2f 43 59 43 4c | 45 53 2f 4d 58 48 43 59 |MON/CYCL|ES/MXHCY|
|00036e10| 2c 4e 54 52 59 0a 20 20 | 20 20 20 20 45 58 54 45 |,NTRY. | EXTE|
|00036e20| 52 4e 41 4c 20 46 43 4e | 0a 20 20 20 20 20 20 4c |RNAL FCN|. L|
|00036e30| 4f 47 49 43 41 4c 20 4a | 45 56 41 4c 0a 20 20 20 |OGICAL J|EVAL. |
|00036e40| 20 20 20 49 4e 54 45 47 | 45 52 20 4c 52 57 41 2c | INTEG|ER LRWA,|
|00036e50| 4d 31 2c 4d 32 2c 4e 46 | 45 31 2c 4e 46 45 32 2c |M1,M2,NF|E1,NFE2,|
|00036e60| 4e 48 4f 4c 44 2c 4e 54 | 52 59 0a 20 20 20 20 20 |NHOLD,NT|RY. |
|00036e70| 20 49 45 52 20 3d 20 30 | 0a 20 20 20 20 20 20 4e | IER = 0|. N|
|00036e80| 46 45 31 20 3d 20 30 0a | 20 20 20 20 20 20 4e 46 |FE1 = 0.| NF|
|00036e90| 45 32 20 3d 20 30 0a 20 | 20 20 20 20 20 49 46 20 |E2 = 0. | IF |
|00036ea0| 28 4e 20 2e 4c 45 2e 20 | 30 20 2e 4f 52 2e 20 4c |(N .LE. |0 .OR. L|
|00036eb0| 57 41 20 2e 4c 54 2e 20 | 28 4e 2a 28 33 2a 4e 2b |WA .LT. |(N*(3*N+|
|00036ec0| 37 29 29 2f 32 20 2e 4f | 52 2e 0a 20 20 20 20 20 |7))/2 .O|R.. |
|00036ed0| 31 20 20 20 20 4d 41 58 | 46 45 56 20 2e 4c 45 2e |1 MAX|FEV .LE.|
|00036ee0| 20 30 29 20 47 4f 20 54 | 4f 20 31 30 0a 20 20 20 | 0) GO T|O 10. |
|00036ef0| 20 20 20 4d 31 20 3d 20 | 4e 20 2d 20 31 0a 20 20 | M1 = |N - 1. |
|00036f00| 20 20 20 20 4d 32 20 3d | 20 4e 20 2d 20 31 0a 20 | M2 =| N - 1. |
|00036f10| 20 20 20 20 20 4e 48 4f | 4c 44 20 3d 20 4e 2a 4e | NHO|LD = N*N|
|00036f20| 20 2b 20 33 2a 4e 20 2b | 20 31 0a 20 20 20 20 20 | + 3*N +| 1. |
|00036f30| 20 4c 52 57 41 20 3d 20 | 28 4e 2a 28 4e 20 2b 20 | LRWA = |(N*(N + |
|00036f40| 31 29 29 2f 32 0a 20 20 | 20 20 20 20 4a 45 56 41 |1))/2. | JEVA|
|00036f50| 4c 20 3d 20 2e 54 52 55 | 45 2e 0a 20 20 20 20 20 |L = .TRU|E.. |
|00036f60| 20 4e 46 45 31 20 3d 20 | 4d 41 58 46 45 56 0a 20 | NFE1 = |MAXFEV. |
|00036f70| 20 20 20 20 20 43 41 4c | 4c 20 48 59 42 52 44 4d | CAL|L HYBRDM|
|00036f80| 28 4e 2c 46 43 4e 2c 58 | 2c 46 2c 4d 31 2c 4d 32 |(N,FCN,X|,F,M1,M2|
|00036f90| 2c 46 54 4f 4c 2c 0a 20 | 20 20 20 20 26 58 54 4f |,FTOL,. | &XTO|
|00036fa0| 4c 2c 4e 46 45 31 2c 4a | 45 56 41 4c 2c 4e 54 52 |L,NFE1,J|EVAL,NTR|
|00036fb0| 59 2c 49 45 52 2c 57 41 | 28 33 2a 4e 2b 31 29 2c |Y,IER,WA|(3*N+1),|
|00036fc0| 4c 52 57 41 2c 0a 20 20 | 20 20 20 26 57 41 28 4e |LRWA,. | &WA(N|
|00036fd0| 48 4f 4c 44 29 2c 57 41 | 28 31 29 2c 57 41 28 4e |HOLD),WA|(1),WA(N|
|00036fe0| 2b 31 29 2c 57 41 28 32 | 2a 4e 2b 31 29 2c 0a 20 |+1),WA(2|*N+1),. |
|00036ff0| 20 20 20 20 26 58 50 2c | 58 57 2c 58 56 2c 58 56 | &XP,|XW,XV,XV|
|00037000| 30 2c 0a 20 20 20 20 20 | 26 58 53 56 2c 58 43 53 |0,. |&XSV,XCS|
|00037010| 2c 58 52 4f 43 2c 58 52 | 41 43 2c 58 45 4f 43 2c |,XROC,XR|AC,XEOC,|
|00037020| 58 43 45 4f 2c 58 52 45 | 4f 2c 0a 20 20 20 20 20 |XCEO,XRE|O,. |
|00037030| 26 58 53 45 4f 2c 58 45 | 41 43 2c 58 46 4f 43 2c |&XSEO,XE|AC,XFOC,|
|00037040| 58 46 41 43 2c 58 46 4f | 4b 2c 58 52 46 4f 2c 58 |XFAC,XFO|K,XRFO,X|
|00037050| 53 46 4f 2c 0a 20 20 20 | 20 20 26 58 46 41 4b 2c |SFO,. | &XFAK,|
|00037060| 58 41 4d 2c 58 42 4d 2c | 58 43 4d 2c 58 42 30 2c |XAM,XBM,|XCM,XB0,|
|00037070| 58 42 31 2c 58 42 32 2c | 0a 20 20 20 20 20 26 58 |XB1,XB2,|. &X|
|00037080| 43 50 2c 58 41 4c 50 2c | 58 42 50 2c 58 42 47 2c |CP,XALP,|XBP,XBG,|
|00037090| 58 42 47 50 2c 58 43 47 | 2c 58 50 43 43 2c 0a 20 |XBGP,XCG|,XPCC,. |
|000370a0| 20 20 20 20 26 58 45 54 | 48 43 2c 58 45 54 48 43 | &XET|HC,XETHC|
|000370b0| 50 2c 58 50 41 41 2c 58 | 45 54 48 41 2c 58 45 54 |P,XPAA,X|ETHA,XET|
|000370c0| 48 41 50 2c 58 50 43 43 | 41 2c 58 50 43 41 41 2c |HAP,XPCC|A,XPCAA,|
|000370d0| 0a 20 20 20 20 20 26 58 | 44 43 41 2c 58 50 4e 43 |. &X|DCA,XPNC|
|000370e0| 2c 58 50 4e 41 2c 58 50 | 4e 4e 2c 58 5a 41 2c 58 |,XPNA,XP|NN,XZA,X|
|000370f0| 5a 46 41 2c 58 5a 43 2c | 0a 20 20 20 20 20 26 58 |ZFA,XZC,|. &X|
|00037100| 5a 46 43 2c 58 47 2c 58 | 47 4f 2c 58 47 58 30 2c |ZFC,XG,X|GO,XGX0,|
|00037110| 58 56 52 54 2c 58 50 48 | 2c 58 50 48 56 2c 0a 20 |XVRT,XPH|,XPHV,. |
|00037120| 20 20 20 20 26 58 58 46 | 2c 58 47 58 2c 58 41 43 | &XXF|,XGX,XAC|
|00037130| 2c 58 58 2c 58 58 43 2c | 58 43 41 50 2c 58 43 4f |,XX,XXC,|XCAP,XCO|
|00037140| 50 2c 0a 20 20 20 20 20 | 26 58 52 5a 49 52 2c 58 |P,. |&XRZIR,X|
|00037150| 53 43 50 53 49 2c 4e 58 | 43 4f 50 2c 4e 58 43 41 |SCPSI,NX|COP,NXCA|
|00037160| 50 2c 4e 58 46 2c 49 58 | 43 41 2c 49 58 41 4e 2c |P,NXF,IX|CA,IXAN,|
|00037170| 0a 20 20 20 20 20 26 49 | 58 4e 55 2c 49 58 50 54 |. &I|XNU,IXPT|
|00037180| 2c 4e 58 5a 41 2c 4e 58 | 5a 50 4f 2c 49 58 59 2c |,NXZA,NX|ZPO,IXY,|
|00037190| 49 58 4e 43 41 4c 2c 49 | 58 45 51 2c 0a 20 20 20 |IXNCAL,I|XEQ,. |
|000371a0| 20 20 26 49 58 45 48 2c | 49 58 43 4e 2c 49 58 53 | &IXEH,|IXCN,IXS|
|000371b0| 54 2c 49 49 44 43 2c 49 | 4e 50 53 49 29 0a 20 20 |T,IIDC,I|NPSI). |
|000371c0| 20 20 20 20 49 46 20 28 | 49 45 52 20 2e 4e 45 2e | IF (|IER .NE.|
|000371d0| 20 35 20 2e 41 4e 44 2e | 20 49 45 52 20 2e 4e 45 | 5 .AND.| IER .NE|
|000371e0| 2e 20 37 29 20 47 4f 20 | 54 4f 20 31 30 0a 20 20 |. 7) GO |TO 10. |
|000371f0| 20 20 20 20 4a 45 56 41 | 4c 20 3d 20 2e 46 41 4c | JEVA|L = .FAL|
|00037200| 53 45 2e 0a 20 20 20 20 | 20 20 4e 46 45 32 20 3d |SE.. | NFE2 =|
|00037210| 20 4d 41 58 46 45 56 20 | 2d 20 4e 46 45 31 0a 20 | MAXFEV |- NFE1. |
|00037220| 20 20 20 20 20 43 41 4c | 4c 20 48 59 42 52 44 4d | CAL|L HYBRDM|
|00037230| 28 4e 2c 46 43 4e 2c 58 | 2c 46 2c 4d 31 2c 4d 32 |(N,FCN,X|,F,M1,M2|
|00037240| 2c 46 54 4f 4c 2c 0a 20 | 20 20 20 20 26 58 54 4f |,FTOL,. | &XTO|
|00037250| 4c 2c 4e 46 45 32 2c 4a | 45 56 41 4c 2c 4e 54 52 |L,NFE2,J|EVAL,NTR|
|00037260| 59 2c 49 45 52 2c 57 41 | 28 33 2a 4e 2b 31 29 2c |Y,IER,WA|(3*N+1),|
|00037270| 4c 52 57 41 2c 0a 20 20 | 20 20 20 26 57 41 28 4e |LRWA,. | &WA(N|
|00037280| 48 4f 4c 44 29 2c 57 41 | 28 31 29 2c 57 41 28 4e |HOLD),WA|(1),WA(N|
|00037290| 2b 31 29 2c 57 41 28 32 | 2a 4e 2b 31 29 2c 0a 20 |+1),WA(2|*N+1),. |
|000372a0| 20 20 20 20 26 58 50 2c | 58 57 2c 58 56 2c 58 56 | &XP,|XW,XV,XV|
|000372b0| 30 2c 0a 20 20 20 20 20 | 26 58 53 56 2c 58 43 53 |0,. |&XSV,XCS|
|000372c0| 2c 58 52 4f 43 2c 58 52 | 41 43 2c 58 45 4f 43 2c |,XROC,XR|AC,XEOC,|
|000372d0| 58 43 45 4f 2c 58 52 45 | 4f 2c 0a 20 20 20 20 20 |XCEO,XRE|O,. |
|000372e0| 26 58 53 45 4f 2c 58 45 | 41 43 2c 58 46 4f 43 2c |&XSEO,XE|AC,XFOC,|
|000372f0| 58 46 41 43 2c 58 46 4f | 4b 2c 58 52 46 4f 2c 58 |XFAC,XFO|K,XRFO,X|
|00037300| 53 46 4f 2c 0a 20 20 20 | 20 20 26 58 46 41 4b 2c |SFO,. | &XFAK,|
|00037310| 58 41 4d 2c 58 42 4d 2c | 58 43 4d 2c 58 42 30 2c |XAM,XBM,|XCM,XB0,|
|00037320| 58 42 31 2c 58 42 32 2c | 0a 20 20 20 20 20 26 58 |XB1,XB2,|. &X|
|00037330| 43 50 2c 58 41 4c 50 2c | 58 42 50 2c 58 42 47 2c |CP,XALP,|XBP,XBG,|
|00037340| 58 42 47 50 2c 58 43 47 | 2c 58 50 43 43 2c 0a 20 |XBGP,XCG|,XPCC,. |
|00037350| 20 20 20 20 26 58 45 54 | 48 43 2c 58 45 54 48 43 | &XET|HC,XETHC|
|00037360| 50 2c 58 50 41 41 2c 58 | 45 54 48 41 2c 58 45 54 |P,XPAA,X|ETHA,XET|
|00037370| 48 41 50 2c 58 50 43 43 | 41 2c 58 50 43 41 41 2c |HAP,XPCC|A,XPCAA,|
|00037380| 0a 20 20 20 20 20 26 58 | 44 43 41 2c 58 50 4e 43 |. &X|DCA,XPNC|
|00037390| 2c 58 50 4e 41 2c 58 50 | 4e 4e 2c 58 5a 41 2c 58 |,XPNA,XP|NN,XZA,X|
|000373a0| 5a 46 41 2c 58 5a 43 2c | 0a 20 20 20 20 20 26 58 |ZFA,XZC,|. &X|
|000373b0| 5a 46 43 2c 58 47 2c 58 | 47 4f 2c 58 47 58 30 2c |ZFC,XG,X|GO,XGX0,|
|000373c0| 58 56 52 54 2c 58 50 48 | 2c 58 50 48 56 2c 0a 20 |XVRT,XPH|,XPHV,. |
|000373d0| 20 20 20 20 26 58 58 46 | 2c 58 47 58 2c 58 41 43 | &XXF|,XGX,XAC|
|000373e0| 2c 58 58 2c 58 58 43 2c | 58 43 41 50 2c 58 43 4f |,XX,XXC,|XCAP,XCO|
|000373f0| 50 2c 0a 20 20 20 20 20 | 26 58 52 5a 49 52 2c 58 |P,. |&XRZIR,X|
|00037400| 53 43 50 53 49 2c 4e 58 | 43 4f 50 2c 4e 58 43 41 |SCPSI,NX|COP,NXCA|
|00037410| 50 2c 4e 58 46 2c 49 58 | 43 41 2c 49 58 41 4e 2c |P,NXF,IX|CA,IXAN,|
|00037420| 0a 20 20 20 20 20 26 49 | 58 4e 55 2c 49 58 50 54 |. &I|XNU,IXPT|
|00037430| 2c 4e 58 5a 41 2c 4e 58 | 5a 50 4f 2c 49 58 59 2c |,NXZA,NX|ZPO,IXY,|
|00037440| 49 58 4e 43 41 4c 2c 49 | 58 45 51 2c 0a 20 20 20 |IXNCAL,I|XEQ,. |
|00037450| 20 20 26 49 58 45 48 2c | 49 58 43 4e 2c 49 58 53 | &IXEH,|IXCN,IXS|
|00037460| 54 2c 49 49 44 43 2c 49 | 4e 50 53 49 29 0a 20 31 |T,IIDC,I|NPSI). 1|
|00037470| 30 20 20 20 43 4f 4e 54 | 49 4e 55 45 0a 20 20 20 |0 CONT|INUE. |
|00037480| 20 20 20 4d 41 58 46 45 | 56 20 3d 20 4e 46 45 31 | MAXFE|V = NFE1|
|00037490| 20 2b 20 4e 46 45 32 0a | 20 20 20 20 20 20 52 45 | + NFE2.| RE|
|000374a0| 54 55 52 4e 0a 43 0a 43 | 20 20 20 20 20 4c 41 53 |TURN.C.C| LAS|
|000374b0| 54 20 43 41 52 44 20 4f | 46 20 53 55 42 52 4f 55 |T CARD O|F SUBROU|
|000374c0| 54 49 4e 45 20 48 59 42 | 52 44 32 2e 0a 43 0a 20 |TINE HYB|RD2..C. |
|000374d0| 20 20 20 20 20 45 4e 44 | 0a 43 43 43 43 43 43 43 | END|.CCCCCCC|
|000374e0| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|000374f0| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|00037500| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|00037510| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|00037520| 0a 43 0a 43 20 20 20 54 | 49 54 4c 45 3a 20 48 59 |.C.C T|ITLE: HY|
|00037530| 42 52 44 4d 0a 43 0a 43 | 20 20 20 20 28 55 4e 55 |BRDM.C.C| (UNU|
|00037540| 53 45 44 20 4c 4f 43 41 | 4c 20 56 41 52 49 41 42 |SED LOCA|L VARIAB|
|00037550| 4c 45 20 22 47 4d 22 20 | 44 45 4c 45 54 45 44 29 |LE "GM" |DELETED)|
|00037560| 0a 43 0a 43 20 20 20 54 | 48 49 53 20 53 55 42 52 |.C.C T|HIS SUBR|
|00037570| 4f 55 54 49 4e 45 20 54 | 52 49 45 53 20 54 4f 20 |OUTINE T|RIES TO |
|00037580| 46 49 4e 44 20 41 20 5a | 45 52 4f 20 54 4f 20 41 |FIND A Z|ERO TO A|
|00037590| 20 53 59 53 54 45 4d 20 | 4f 46 20 4e 20 45 51 55 | SYSTEM |OF N EQU|
|000375a0| 41 54 49 4f 4e 53 0a 43 | 20 20 20 49 4e 20 4e 20 |ATIONS.C| IN N |
|000375b0| 55 4e 4b 4e 4f 57 4e 53 | 20 53 50 45 43 49 46 49 |UNKNOWNS| SPECIFI|
|000375c0| 45 44 20 42 59 20 54 48 | 45 20 53 55 42 52 4f 55 |ED BY TH|E SUBROU|
|000375d0| 54 49 4e 45 20 46 43 4e | 2e 20 54 48 45 20 4d 45 |TINE FCN|. THE ME|
|000375e0| 54 48 4f 44 0a 43 20 20 | 20 55 53 45 44 20 49 53 |THOD.C | USED IS|
|000375f0| 20 41 20 4d 4f 44 49 46 | 49 43 41 54 49 4f 4e 20 | A MODIF|ICATION |
|00037600| 4f 46 20 50 4f 57 45 4c | 4c 27 53 20 48 59 42 52 |OF POWEL|L'S HYBR|
|00037610| 49 44 20 50 52 4f 43 45 | 44 55 52 45 2e 0a 43 0a |ID PROCE|DURE..C.|
|00037620| 43 20 20 20 54 48 45 20 | 53 55 42 52 4f 55 54 49 |C THE |SUBROUTI|
|00037630| 4e 45 20 53 54 41 54 45 | 4d 45 4e 54 20 49 53 0a |NE STATE|MENT IS.|
|00037640| 43 0a 43 20 20 20 20 20 | 20 20 53 55 42 52 4f 55 |C.C | SUBROU|
|00037650| 54 49 4e 45 20 48 59 42 | 52 44 4d 28 4e 2c 46 43 |TINE HYB|RDM(N,FC|
|00037660| 4e 2c 58 2c 46 2c 4d 31 | 2c 4d 32 2c 46 54 4f 4c |N,X,F,M1|,M2,FTOL|
|00037670| 2c 58 54 4f 4c 2c 4d 41 | 58 46 45 56 2c 4a 45 56 |,XTOL,MA|XFEV,JEV|
|00037680| 41 4c 2c 4e 54 52 59 2c | 0a 43 20 20 20 20 20 20 |AL,NTRY,|.C |
|00037690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000376a0| 20 20 20 49 45 52 2c 51 | 2c 4c 52 57 41 2c 52 57 | IER,Q|,LRWA,RW|
|000376b0| 41 2c 57 41 31 2c 57 41 | 32 2c 57 41 33 29 0a 43 |A,WA1,WA|2,WA3).C|
|000376c0| 0a 43 20 20 20 57 48 45 | 52 45 0a 43 0a 43 20 20 |.C WHE|RE.C.C |
|000376d0| 20 20 20 20 20 4e 20 49 | 53 20 41 20 50 4f 53 49 | N I|S A POSI|
|000376e0| 54 49 56 45 20 49 4e 54 | 45 47 45 52 20 49 4e 50 |TIVE INT|EGER INP|
|000376f0| 55 54 20 56 41 52 49 41 | 42 4c 45 20 57 48 49 43 |UT VARIA|BLE WHIC|
|00037700| 48 20 53 50 45 43 49 46 | 49 45 53 20 54 48 45 0a |H SPECIF|IES THE.|
|00037710| 43 20 20 20 20 20 20 20 | 20 20 4e 55 4d 42 45 52 |C | NUMBER|
|00037720| 20 4f 46 20 56 41 52 49 | 41 42 4c 45 53 20 41 4e | OF VARI|ABLES AN|
|00037730| 44 20 45 51 55 41 54 49 | 4f 4e 53 2e 0a 43 0a 43 |D EQUATI|ONS..C.C|
|00037740| 20 20 20 20 20 20 20 46 | 43 4e 20 49 53 20 54 48 | F|CN IS TH|
|00037750| 45 20 4e 41 4d 45 20 4f | 46 20 54 48 45 20 53 55 |E NAME O|F THE SU|
|00037760| 42 52 4f 55 54 49 4e 45 | 20 57 48 49 43 48 20 44 |BROUTINE| WHICH D|
|00037770| 45 46 49 4e 45 53 20 54 | 48 45 20 53 59 53 54 45 |EFINES T|HE SYSTE|
|00037780| 4d 0a 43 20 20 20 20 20 | 20 20 20 20 4f 46 20 45 |M.C | OF E|
|00037790| 51 55 41 54 49 4f 4e 53 | 2e 20 54 48 45 20 55 53 |QUATIONS|. THE US|
|000377a0| 45 52 20 53 50 45 43 49 | 46 49 45 53 20 46 43 4e |ER SPECI|FIES FCN|
|000377b0| 20 42 59 20 57 52 49 54 | 49 4e 47 20 41 0a 43 20 | BY WRIT|ING A.C |
|000377c0| 20 20 20 20 20 20 20 20 | 53 55 42 52 4f 55 54 49 | |SUBROUTI|
|000377d0| 4e 45 20 46 43 4e 28 4e | 2c 58 2c 46 2c 49 45 52 |NE FCN(N|,X,F,IER|
|000377e0| 29 20 57 48 49 43 48 20 | 45 56 41 4c 55 41 54 45 |) WHICH |EVALUATE|
|000377f0| 53 20 54 48 45 20 46 55 | 4e 43 54 49 4f 4e 0a 43 |S THE FU|NCTION.C|
|00037800| 20 20 20 20 20 20 20 20 | 20 41 54 20 58 20 41 4e | | AT X AN|
|00037810| 44 20 52 45 54 55 52 4e | 53 20 54 48 49 53 20 56 |D RETURN|S THIS V|
|00037820| 41 4c 55 45 20 49 4e 20 | 46 2e 20 49 45 52 20 53 |ALUE IN |F. IER S|
|00037830| 48 4f 55 4c 44 20 4e 4f | 54 20 42 45 0a 43 20 20 |HOULD NO|T BE.C |
|00037840| 20 20 20 20 20 20 20 43 | 48 41 4e 47 45 44 20 55 | C|HANGED U|
|00037850| 4e 4c 45 53 53 20 54 48 | 45 20 55 53 45 52 20 57 |NLESS TH|E USER W|
|00037860| 41 4e 54 53 20 54 4f 20 | 54 45 52 4d 49 4e 41 54 |ANTS TO |TERMINAT|
|00037870| 45 20 54 48 45 0a 43 20 | 20 20 20 20 20 20 20 20 |E THE.C | |
|00037880| 49 54 45 52 41 54 49 4f | 4e 2e 20 49 4e 20 54 48 |ITERATIO|N. IN TH|
|00037890| 49 53 20 43 41 53 45 20 | 53 45 54 20 49 45 52 20 |IS CASE |SET IER |
|000378a0| 54 4f 20 41 20 4e 45 47 | 41 54 49 56 45 20 49 4e |TO A NEG|ATIVE IN|
|000378b0| 54 45 47 45 52 2e 0a 43 | 0a 43 20 20 20 20 20 20 |TEGER..C|.C |
|000378c0| 20 58 20 49 53 20 41 20 | 4c 49 4e 45 41 52 20 41 | X IS A |LINEAR A|
|000378d0| 52 52 41 59 20 4f 46 20 | 4c 45 4e 47 54 48 20 4e |RRAY OF |LENGTH N|
|000378e0| 20 57 48 49 43 48 20 4d | 55 53 54 20 43 4f 4e 54 | WHICH M|UST CONT|
|000378f0| 41 49 4e 20 54 48 45 0a | 43 20 20 20 20 20 20 20 |AIN THE.|C |
|00037900| 20 20 49 4e 49 54 49 41 | 4c 20 45 53 54 49 4d 41 | INITIA|L ESTIMA|
|00037910| 54 45 20 54 4f 20 54 48 | 45 20 5a 45 52 4f 20 4f |TE TO TH|E ZERO O|
|00037920| 46 20 54 48 45 20 53 59 | 53 54 45 4d 20 4f 46 20 |F THE SY|STEM OF |
|00037930| 45 51 55 41 54 49 4f 4e | 53 2e 0a 43 20 20 20 20 |EQUATION|S..C |
|00037940| 20 20 20 20 20 4f 4e 20 | 4f 55 54 50 55 54 20 58 | ON |OUTPUT X|
|00037950| 20 43 4f 4e 54 41 49 4e | 53 20 54 48 45 20 46 49 | CONTAIN|S THE FI|
|00037960| 4e 41 4c 20 45 53 54 49 | 4d 41 54 45 20 54 4f 20 |NAL ESTI|MATE TO |
|00037970| 54 48 45 20 5a 45 52 4f | 0a 43 20 20 20 20 20 20 |THE ZERO|.C |
|00037980| 20 20 20 4f 46 20 54 48 | 45 20 53 59 53 54 45 4d | OF TH|E SYSTEM|
|00037990| 20 4f 46 20 45 51 55 41 | 54 49 4f 4e 53 2e 0a 43 | OF EQUA|TIONS..C|
|000379a0| 0a 43 20 20 20 20 20 20 | 20 46 20 49 53 20 41 20 |.C | F IS A |
|000379b0| 4c 49 4e 45 41 52 20 41 | 52 52 41 59 20 4f 46 20 |LINEAR A|RRAY OF |
|000379c0| 4c 45 4e 47 54 48 20 4e | 2e 20 4f 4e 20 4f 55 54 |LENGTH N|. ON OUT|
|000379d0| 50 55 54 20 49 54 20 43 | 4f 4e 54 41 49 4e 53 20 |PUT IT C|ONTAINS |
|000379e0| 54 48 45 0a 43 20 20 20 | 20 20 20 20 20 20 56 41 |THE.C | VA|
|000379f0| 4c 55 45 20 4f 46 20 54 | 48 45 20 46 55 4e 43 54 |LUE OF T|HE FUNCT|
|00037a00| 49 4f 4e 20 41 54 20 54 | 48 45 20 4f 55 54 50 55 |ION AT T|HE OUTPU|
|00037a10| 54 20 58 2e 0a 43 0a 43 | 20 20 20 20 20 20 20 4d |T X..C.C| M|
|00037a20| 31 20 49 53 20 41 4e 20 | 49 4e 54 45 47 45 52 20 |1 IS AN |INTEGER |
|00037a30| 56 41 52 49 41 42 4c 45 | 20 57 48 49 43 48 20 53 |VARIABLE| WHICH S|
|00037a40| 50 45 43 49 46 49 45 53 | 20 54 48 45 20 4e 55 4d |PECIFIES| THE NUM|
|00037a50| 42 45 52 20 4f 46 0a 43 | 20 20 20 20 20 20 20 20 |BER OF.C| |
|00037a60| 20 53 55 42 2d 44 49 41 | 47 4f 4e 41 4c 53 20 57 | SUB-DIA|GONALS W|
|00037a70| 49 54 48 49 4e 20 54 48 | 45 20 42 41 4e 44 20 4f |ITHIN TH|E BAND O|
|00037a80| 46 20 54 48 45 20 4a 41 | 43 4f 42 49 41 4e 20 4d |F THE JA|COBIAN M|
|00037a90| 41 54 52 49 58 2e 0a 43 | 20 20 20 20 20 20 20 20 |ATRIX..C| |
|00037aa0| 20 49 46 20 54 48 45 52 | 45 20 49 53 20 4e 4f 20 | IF THER|E IS NO |
|00037ab0| 42 41 4e 44 20 53 45 54 | 20 4d 31 20 54 4f 20 41 |BAND SET| M1 TO A|
|00037ac0| 54 20 4c 45 41 53 54 20 | 4e 20 2d 20 31 2e 0a 43 |T LEAST |N - 1..C|
|00037ad0| 0a 43 20 20 20 20 20 20 | 20 4d 32 20 49 53 20 41 |.C | M2 IS A|
|00037ae0| 4e 20 49 4e 54 45 47 45 | 52 20 56 41 52 49 41 42 |N INTEGE|R VARIAB|
|00037af0| 4c 45 20 57 48 49 43 48 | 20 53 50 45 43 49 46 49 |LE WHICH| SPECIFI|
|00037b00| 45 53 20 54 48 45 20 4e | 55 4d 42 45 52 20 4f 46 |ES THE N|UMBER OF|
|00037b10| 0a 43 20 20 20 20 20 20 | 20 20 20 53 55 50 45 52 |.C | SUPER|
|00037b20| 2d 44 49 41 47 4f 4e 41 | 4c 53 20 57 49 54 48 49 |-DIAGONA|LS WITHI|
|00037b30| 4e 20 54 48 45 20 42 41 | 4e 44 20 4f 46 20 54 48 |N THE BA|ND OF TH|
|00037b40| 45 20 4a 41 43 4f 42 49 | 41 4e 20 4d 41 54 52 49 |E JACOBI|AN MATRI|
|00037b50| 58 2e 0a 43 20 20 20 20 | 20 20 20 20 20 49 46 20 |X..C | IF |
|00037b60| 54 48 45 52 45 20 49 53 | 20 4e 4f 20 42 41 4e 44 |THERE IS| NO BAND|
|00037b70| 20 53 45 54 20 4d 32 20 | 54 4f 20 41 54 20 4c 45 | SET M2 |TO AT LE|
|00037b80| 41 53 54 20 4e 20 2d 20 | 31 2e 0a 43 0a 43 20 20 |AST N - |1..C.C |
|00037b90| 20 20 20 20 20 46 54 4f | 4c 20 49 53 20 41 20 4e | FTO|L IS A N|
|00037ba0| 4f 4e 4e 45 47 41 54 49 | 56 45 20 49 4e 50 55 54 |ONNEGATI|VE INPUT|
|00037bb0| 20 56 41 52 49 41 42 4c | 45 2e 20 54 45 52 4d 49 | VARIABL|E. TERMI|
|00037bc0| 4e 41 54 49 4f 4e 20 4f | 43 43 55 52 53 0a 43 20 |NATION O|CCURS.C |
|00037bd0| 20 20 20 20 20 20 20 20 | 49 46 20 54 48 45 20 45 | |IF THE E|
|00037be0| 55 43 4c 49 44 45 41 4e | 20 4e 4f 52 4d 20 4f 46 |UCLIDEAN| NORM OF|
|00037bf0| 20 46 20 49 53 20 41 54 | 20 4d 4f 53 54 20 46 54 | F IS AT| MOST FT|
|00037c00| 4f 4c 2e 0a 43 0a 43 20 | 20 20 20 20 20 20 58 54 |OL..C.C | XT|
|00037c10| 4f 4c 20 49 53 20 41 20 | 4e 4f 4e 4e 45 47 41 54 |OL IS A |NONNEGAT|
|00037c20| 49 56 45 20 49 4e 50 55 | 54 20 56 41 52 49 41 42 |IVE INPU|T VARIAB|
|00037c30| 4c 45 2e 20 54 45 52 4d | 49 4e 41 54 49 4f 4e 20 |LE. TERM|INATION |
|00037c40| 4f 43 43 55 52 53 0a 43 | 20 20 20 20 20 20 20 20 |OCCURS.C| |
|00037c50| 20 49 46 20 54 48 45 20 | 52 45 4c 41 54 49 56 45 | IF THE |RELATIVE|
|00037c60| 20 45 52 52 4f 52 20 42 | 45 54 57 45 45 4e 20 54 | ERROR B|ETWEEN T|
|00037c70| 57 4f 20 53 55 43 43 45 | 53 53 49 56 45 20 49 54 |WO SUCCE|SSIVE IT|
|00037c80| 45 52 41 54 45 53 0a 43 | 20 20 20 20 20 20 20 20 |ERATES.C| |
|00037c90| 20 49 53 20 41 54 20 4d | 4f 53 54 20 58 54 4f 4c | IS AT M|OST XTOL|
|00037ca0| 2e 0a 43 0a 43 20 20 20 | 20 20 20 20 4d 41 58 46 |..C.C | MAXF|
|00037cb0| 45 56 20 49 53 20 41 20 | 50 4f 53 49 54 49 56 45 |EV IS A |POSITIVE|
|00037cc0| 20 49 4e 54 45 47 45 52 | 20 56 41 52 49 41 42 4c | INTEGER| VARIABL|
|00037cd0| 45 2e 20 54 45 52 4d 49 | 4e 41 54 49 4f 4e 20 4f |E. TERMI|NATION O|
|00037ce0| 43 43 55 52 53 0a 43 20 | 20 20 20 20 20 20 20 20 |CCURS.C | |
|00037cf0| 49 46 20 41 54 20 54 48 | 45 20 45 4e 44 20 4f 46 |IF AT TH|E END OF|
|00037d00| 20 41 4e 20 49 54 45 52 | 41 54 49 4f 4e 20 54 48 | AN ITER|ATION TH|
|00037d10| 45 20 4e 55 4d 42 45 52 | 20 4f 46 20 43 41 4c 4c |E NUMBER| OF CALL|
|00037d20| 53 0a 43 20 20 20 20 20 | 20 20 20 20 54 4f 20 46 |S.C | TO F|
|00037d30| 43 4e 20 49 53 20 41 54 | 20 4c 45 41 53 54 20 4d |CN IS AT| LEAST M|
|00037d40| 41 58 46 45 56 2e 20 4f | 4e 20 4f 55 54 50 55 54 |AXFEV. O|N OUTPUT|
|00037d50| 20 4d 41 58 46 45 56 20 | 49 53 20 54 48 45 0a 43 | MAXFEV |IS THE.C|
|00037d60| 20 20 20 20 20 20 20 20 | 20 4e 55 4d 42 45 52 20 | | NUMBER |
|00037d70| 4f 46 20 43 41 4c 4c 53 | 20 54 4f 20 46 43 4e 20 |OF CALLS| TO FCN |
|00037d80| 55 53 45 44 20 49 4e 20 | 50 52 4f 44 55 43 49 4e |USED IN |PRODUCIN|
|00037d90| 47 20 58 2e 0a 43 0a 43 | 20 20 20 20 20 20 20 4a |G X..C.C| J|
|00037da0| 45 56 41 4c 20 49 53 20 | 41 20 4c 4f 47 49 43 41 |EVAL IS |A LOGICA|
|00037db0| 4c 20 56 41 52 49 41 42 | 4c 45 2e 20 49 46 20 53 |L VARIAB|LE. IF S|
|00037dc0| 45 54 20 54 4f 20 54 52 | 55 45 20 4f 4e 20 49 4e |ET TO TR|UE ON IN|
|00037dd0| 50 55 54 2c 0a 43 20 20 | 20 20 20 20 20 20 20 54 |PUT,.C | T|
|00037de0| 48 45 4e 20 54 48 45 20 | 49 4e 49 54 49 41 4c 20 |HEN THE |INITIAL |
|00037df0| 4a 41 43 4f 42 49 41 4e | 20 41 50 50 52 4f 58 49 |JACOBIAN| APPROXI|
|00037e00| 4d 41 54 49 4f 4e 20 49 | 53 20 4f 42 54 41 49 4e |MATION I|S OBTAIN|
|00037e10| 45 44 20 42 59 0a 43 20 | 20 20 20 20 20 20 20 20 |ED BY.C | |
|00037e20| 44 49 46 46 45 52 45 4e | 43 45 53 3b 20 49 46 20 |DIFFEREN|CES; IF |
|00037e30| 49 54 20 49 53 20 53 45 | 54 20 54 4f 20 46 41 4c |IT IS SE|T TO FAL|
|00037e40| 53 45 2c 20 54 48 45 4e | 20 4f 4e 20 49 4e 50 55 |SE, THEN| ON INPU|
|00037e50| 54 20 54 48 45 0a 43 20 | 20 20 20 20 20 20 20 20 |T THE.C | |
|00037e60| 41 52 52 41 59 53 20 51 | 20 41 4e 44 20 52 57 41 |ARRAYS Q| AND RWA|
|00037e70| 20 4d 55 53 54 20 43 4f | 4e 54 41 49 4e 20 54 48 | MUST CO|NTAIN TH|
|00037e80| 45 20 51 52 20 44 45 43 | 4f 4d 50 4f 53 49 54 49 |E QR DEC|OMPOSITI|
|00037e90| 4f 4e 20 4f 46 0a 43 20 | 20 20 20 20 20 20 20 20 |ON OF.C | |
|00037ea0| 54 48 45 20 49 4e 49 54 | 49 41 4c 20 4a 41 43 4f |THE INIT|IAL JACO|
|00037eb0| 42 49 41 4e 20 41 50 50 | 52 4f 58 49 4d 41 54 49 |BIAN APP|ROXIMATI|
|00037ec0| 4f 4e 2e 0a 43 0a 43 20 | 20 20 20 20 20 20 4e 54 |ON..C.C | NT|
|00037ed0| 52 59 20 49 53 20 41 4e | 20 49 4e 54 45 47 45 52 |RY IS AN| INTEGER|
|00037ee0| 20 56 41 52 49 41 42 4c | 45 20 47 52 45 41 54 45 | VARIABL|E GREATE|
|00037ef0| 52 20 54 48 41 4e 20 4f | 4e 45 2e 20 54 48 45 20 |R THAN O|NE. THE |
|00037f00| 45 55 43 4c 49 44 45 41 | 4e 0a 43 20 20 20 20 20 |EUCLIDEA|N.C |
|00037f10| 20 20 20 20 4e 4f 52 4d | 20 4f 46 20 54 48 45 20 | NORM| OF THE |
|00037f20| 52 45 53 49 44 55 41 4c | 53 20 49 53 20 43 48 45 |RESIDUAL|S IS CHE|
|00037f30| 43 4b 45 44 20 45 56 45 | 52 59 20 4e 54 52 59 20 |CKED EVE|RY NTRY |
|00037f40| 49 54 45 52 41 54 49 4f | 4e 53 2c 0a 43 20 20 20 |ITERATIO|NS,.C |
|00037f50| 20 20 20 20 20 20 41 4e | 44 20 49 46 20 49 54 20 | AN|D IF IT |
|00037f60| 48 41 53 20 4e 4f 54 20 | 44 45 43 52 45 41 53 45 |HAS NOT |DECREASE|
|00037f70| 44 20 42 59 20 4d 4f 52 | 45 20 54 48 41 4e 20 4f |D BY MOR|E THAN O|
|00037f80| 4e 45 20 50 45 52 43 45 | 4e 54 0a 43 20 20 20 20 |NE PERCE|NT.C |
|00037f90| 20 20 20 20 20 53 49 4e | 43 45 20 54 48 45 20 4c | SIN|CE THE L|
|00037fa0| 41 53 54 20 43 48 45 43 | 4b 2c 20 54 48 45 4e 20 |AST CHEC|K, THEN |
|00037fb0| 54 48 45 20 49 54 45 52 | 41 54 49 4f 4e 20 49 53 |THE ITER|ATION IS|
|00037fc0| 20 54 45 52 4d 49 4e 41 | 54 45 44 2e 0a 43 0a 43 | TERMINA|TED..C.C|
|00037fd0| 20 20 20 20 20 20 20 49 | 45 52 20 49 53 20 41 4e | I|ER IS AN|
|00037fe0| 20 49 4e 54 45 47 45 52 | 20 4f 55 54 50 55 54 20 | INTEGER| OUTPUT |
|00037ff0| 50 41 52 41 4d 45 54 45 | 52 20 53 45 54 20 41 53 |PARAMETE|R SET AS|
|00038000| 20 46 4f 4c 4c 4f 57 53 | 3a 20 49 46 20 49 45 52 | FOLLOWS|: IF IER|
|00038010| 20 49 53 0a 43 20 20 20 | 20 20 20 20 20 20 4e 45 | IS.C | NE|
|00038020| 47 41 54 49 56 45 20 54 | 48 45 4e 20 55 53 45 52 |GATIVE T|HEN USER|
|00038030| 20 54 45 52 4d 49 4e 41 | 54 49 4f 4e 3b 20 4f 54 | TERMINA|TION; OT|
|00038040| 48 45 52 57 49 53 45 0a | 43 0a 43 20 20 20 20 20 |HERWISE.|C.C |
|00038050| 20 20 20 20 49 45 52 20 | 3d 20 30 20 20 20 20 49 | IER |= 0 I|
|00038060| 4d 50 52 4f 50 45 52 20 | 49 4e 50 55 54 20 50 41 |MPROPER |INPUT PA|
|00038070| 52 41 4d 45 54 45 52 53 | 2e 0a 43 0a 43 20 20 20 |RAMETERS|..C.C |
|00038080| 20 20 20 20 20 20 49 45 | 52 20 3d 20 31 20 20 20 | IE|R = 1 |
|00038090| 20 45 55 43 4c 49 44 45 | 41 4e 20 4e 4f 52 4d 20 | EUCLIDE|AN NORM |
|000380a0| 4f 46 20 46 20 49 53 20 | 41 54 20 4d 4f 53 54 20 |OF F IS |AT MOST |
|000380b0| 46 54 4f 4c 2e 0a 43 0a | 43 20 20 20 20 20 20 20 |FTOL..C.|C |
|000380c0| 20 20 49 45 52 20 3d 20 | 32 20 20 20 20 52 45 4c | IER = |2 REL|
|000380d0| 41 54 49 56 45 20 45 52 | 52 4f 52 20 42 45 54 57 |ATIVE ER|ROR BETW|
|000380e0| 45 45 4e 20 54 57 4f 20 | 53 55 43 43 45 53 53 49 |EEN TWO |SUCCESSI|
|000380f0| 56 45 20 49 54 45 52 41 | 54 45 53 0a 43 20 20 20 |VE ITERA|TES.C |
|00038100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00038110| 20 49 53 20 41 54 20 4d | 4f 53 54 20 58 54 4f 4c | IS AT M|OST XTOL|
|00038120| 2e 0a 43 0a 43 20 20 20 | 20 20 20 20 20 20 49 45 |..C.C | IE|
|00038130| 52 20 3d 20 33 20 20 20 | 20 43 4f 4e 44 49 54 49 |R = 3 | CONDITI|
|00038140| 4f 4e 53 20 46 4f 52 20 | 49 45 52 20 3d 20 31 20 |ONS FOR |IER = 1 |
|00038150| 41 4e 44 20 49 45 52 20 | 3d 20 32 20 48 4f 4c 44 |AND IER |= 2 HOLD|
|00038160| 2e 0a 43 0a 43 20 20 20 | 20 20 20 20 20 20 49 45 |..C.C | IE|
|00038170| 52 20 3d 20 34 20 20 20 | 20 4e 55 4d 42 45 52 20 |R = 4 | NUMBER |
|00038180| 4f 46 20 43 41 4c 4c 53 | 20 54 4f 20 46 43 4e 20 |OF CALLS| TO FCN |
|00038190| 49 53 20 41 54 20 4c 45 | 41 53 54 20 4d 41 58 46 |IS AT LE|AST MAXF|
|000381a0| 45 56 2e 0a 43 0a 43 20 | 20 20 20 20 20 20 20 20 |EV..C.C | |
|000381b0| 49 45 52 20 3d 20 35 20 | 20 20 20 49 54 45 52 41 |IER = 5 | ITERA|
|000381c0| 54 49 4f 4e 20 48 41 53 | 20 46 41 49 4c 45 44 20 |TION HAS| FAILED |
|000381d0| 54 4f 20 52 45 44 55 43 | 45 20 54 48 45 20 52 45 |TO REDUC|E THE RE|
|000381e0| 53 49 44 55 41 4c 53 20 | 42 59 0a 43 20 20 20 20 |SIDUALS |BY.C |
|000381f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00038200| 4f 4e 45 20 50 45 52 43 | 45 4e 54 20 49 4e 20 4e |ONE PERC|ENT IN N|
|00038210| 54 52 59 20 43 4f 4e 53 | 45 43 55 54 49 56 45 20 |TRY CONS|ECUTIVE |
|00038220| 49 54 45 52 41 54 49 4f | 4e 53 2e 0a 43 0a 43 20 |ITERATIO|NS..C.C |
|00038230| 20 20 20 20 20 20 20 20 | 49 45 52 20 3d 20 36 20 | |IER = 6 |
|00038240| 20 20 20 49 54 45 52 41 | 54 49 4f 4e 20 53 45 45 | ITERA|TION SEE|
|00038250| 4d 53 20 54 4f 20 42 45 | 20 43 4f 4e 56 45 52 47 |MS TO BE| CONVERG|
|00038260| 49 4e 47 20 42 55 54 20 | 54 48 45 20 44 45 53 49 |ING BUT |THE DESI|
|00038270| 52 45 44 0a 43 20 20 20 | 20 20 20 20 20 20 20 20 |RED.C | |
|00038280| 20 20 20 20 20 20 20 20 | 20 41 43 43 55 52 41 43 | | ACCURAC|
|00038290| 59 20 49 53 20 54 4f 4f | 20 53 54 52 49 4e 47 45 |Y IS TOO| STRINGE|
|000382a0| 4e 54 20 4f 52 20 54 48 | 45 20 43 4f 4e 56 45 52 |NT OR TH|E CONVER|
|000382b0| 47 45 4e 43 45 20 49 53 | 0a 43 20 20 20 20 20 20 |GENCE IS|.C |
|000382c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 54 4f | | TO|
|000382d0| 4f 20 53 4c 4f 57 20 44 | 55 45 20 54 4f 20 41 20 |O SLOW D|UE TO A |
|000382e0| 4a 41 43 4f 42 49 41 4e | 20 53 49 4e 47 55 4c 41 |JACOBIAN| SINGULA|
|000382f0| 52 20 4e 45 41 52 20 54 | 48 45 0a 43 20 20 20 20 |R NEAR T|HE.C |
|00038300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00038310| 49 54 45 52 41 54 45 53 | 20 4f 52 20 44 55 45 20 |ITERATES| OR DUE |
|00038320| 54 4f 20 42 41 44 4c 59 | 20 53 43 41 4c 45 44 20 |TO BADLY| SCALED |
|00038330| 56 41 52 49 41 42 4c 45 | 53 2e 0a 43 0a 43 20 20 |VARIABLE|S..C.C |
|00038340| 20 20 20 20 20 20 20 49 | 45 52 20 3d 20 37 20 20 | I|ER = 7 |
|00038350| 20 20 49 54 45 52 41 54 | 49 4f 4e 20 49 53 20 4e | ITERAT|ION IS N|
|00038360| 4f 54 20 41 42 4c 45 20 | 54 4f 20 50 52 4f 47 52 |OT ABLE |TO PROGR|
|00038370| 45 53 53 20 41 4e 59 20 | 46 55 52 54 48 45 52 0a |ESS ANY |FURTHER.|
|00038380| 43 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |C | |
|00038390| 20 20 20 20 20 42 45 43 | 41 55 53 45 20 54 48 45 | BEC|AUSE THE|
|000383a0| 20 53 54 45 50 20 42 4f | 55 4e 44 20 49 53 20 54 | STEP BO|UND IS T|
|000383b0| 4f 4f 20 53 4d 41 4c 4c | 20 52 45 4c 41 54 49 56 |OO SMALL| RELATIV|
|000383c0| 45 0a 43 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |E.C | |
|000383d0| 20 20 20 20 20 20 20 54 | 4f 20 54 48 45 20 53 49 | T|O THE SI|
|000383e0| 5a 45 20 4f 46 20 54 48 | 45 20 49 54 45 52 41 54 |ZE OF TH|E ITERAT|
|000383f0| 45 53 2e 0a 43 0a 43 20 | 20 20 20 20 20 20 51 20 |ES..C.C | Q |
|00038400| 49 53 20 41 4e 20 4e 20 | 42 59 20 4e 20 41 52 52 |IS AN N |BY N ARR|
|00038410| 41 59 2e 20 49 46 20 4a | 45 56 41 4c 20 49 53 20 |AY. IF J|EVAL IS |
|00038420| 53 45 54 20 54 4f 20 54 | 52 55 45 20 54 48 45 4e |SET TO T|RUE THEN|
|00038430| 20 4f 4e 0a 43 20 20 20 | 20 20 20 20 20 20 49 4e | ON.C | IN|
|00038440| 50 55 54 20 51 20 4d 55 | 53 54 20 43 4f 4e 54 41 |PUT Q MU|ST CONTA|
|00038450| 49 4e 20 54 48 45 20 4f | 52 54 48 4f 47 4f 4e 41 |IN THE O|RTHOGONA|
|00038460| 4c 20 50 41 52 54 20 4f | 46 20 54 48 45 20 51 52 |L PART O|F THE QR|
|00038470| 0a 43 20 20 20 20 20 20 | 20 20 20 44 45 43 4f 4d |.C | DECOM|
|00038480| 50 4f 53 49 54 49 4f 4e | 20 4f 46 20 54 48 45 20 |POSITION| OF THE |
|00038490| 49 4e 49 54 49 41 4c 20 | 4a 41 43 4f 42 49 41 4e |INITIAL |JACOBIAN|
|000384a0| 20 41 50 50 52 4f 58 49 | 4d 41 54 49 4f 4e 2e 0a | APPROXI|MATION..|
|000384b0| 43 20 20 20 20 20 20 20 | 20 20 4f 4e 20 4f 55 54 |C | ON OUT|
|000384c0| 50 55 54 20 51 20 43 4f | 4e 54 41 49 4e 53 20 54 |PUT Q CO|NTAINS T|
|000384d0| 48 45 20 4f 52 54 48 4f | 47 4f 4e 41 4c 20 50 41 |HE ORTHO|GONAL PA|
|000384e0| 52 54 20 4f 46 20 54 48 | 45 20 51 52 0a 43 20 20 |RT OF TH|E QR.C |
|000384f0| 20 20 20 20 20 20 20 44 | 45 43 4f 4d 50 4f 53 49 | D|ECOMPOSI|
|00038500| 54 49 4f 4e 20 4f 46 20 | 54 48 45 20 41 50 50 52 |TION OF |THE APPR|
|00038510| 4f 58 49 4d 41 54 45 20 | 4a 41 43 4f 42 49 41 4e |OXIMATE |JACOBIAN|
|00038520| 20 41 54 20 54 48 45 20 | 4f 55 54 50 55 54 20 58 | AT THE |OUTPUT X|
|00038530| 2e 0a 43 0a 43 20 20 20 | 20 20 20 20 4c 52 57 41 |..C.C | LRWA|
|00038540| 20 49 53 20 41 4e 20 49 | 4e 54 45 47 45 52 20 56 | IS AN I|NTEGER V|
|00038550| 41 52 49 41 42 4c 45 20 | 4e 4f 54 20 4c 45 53 53 |ARIABLE |NOT LESS|
|00038560| 20 54 48 41 4e 20 28 4e | 2a 28 4e 2b 31 29 29 2f | THAN (N|*(N+1))/|
|00038570| 32 2e 0a 43 0a 43 20 20 | 20 20 20 20 20 52 57 41 |2..C.C | RWA|
|00038580| 20 49 53 20 41 20 4c 49 | 4e 45 41 52 20 41 52 52 | IS A LI|NEAR ARR|
|00038590| 41 59 20 4f 46 20 4c 45 | 4e 47 54 48 20 4c 52 57 |AY OF LE|NGTH LRW|
|000385a0| 41 2e 20 49 46 20 4a 45 | 56 41 4c 20 49 53 20 54 |A. IF JE|VAL IS T|
|000385b0| 52 55 45 20 4f 4e 0a 43 | 20 20 20 20 20 20 20 20 |RUE ON.C| |
|000385c0| 20 49 4e 50 55 54 20 54 | 48 45 4e 20 52 57 41 20 | INPUT T|HEN RWA |
|000385d0| 4d 55 53 54 20 43 4f 4e | 54 41 49 4e 20 54 48 45 |MUST CON|TAIN THE|
|000385e0| 20 55 50 50 45 52 20 54 | 52 49 41 4e 47 55 4c 41 | UPPER T|RIANGULA|
|000385f0| 52 20 50 41 52 54 20 4f | 46 0a 43 20 20 20 20 20 |R PART O|F.C |
|00038600| 20 20 20 20 54 48 45 20 | 51 52 20 44 45 43 4f 4d | THE |QR DECOM|
|00038610| 50 4f 53 49 54 49 4f 4e | 20 4f 46 20 54 48 45 20 |POSITION| OF THE |
|00038620| 49 4e 49 54 49 41 4c 20 | 4a 41 43 4f 42 49 41 4e |INITIAL |JACOBIAN|
|00038630| 20 41 50 50 52 4f 58 49 | 4d 41 54 49 4f 4e 2e 0a | APPROXI|MATION..|
|00038640| 43 20 20 20 20 20 20 20 | 20 20 4f 4e 20 4f 55 54 |C | ON OUT|
|00038650| 50 55 54 20 52 57 41 20 | 43 4f 4e 54 41 49 4e 53 |PUT RWA |CONTAINS|
|00038660| 20 54 48 45 20 55 50 50 | 45 52 20 54 52 49 41 4e | THE UPP|ER TRIAN|
|00038670| 47 55 4c 41 52 20 50 41 | 52 54 20 4f 46 20 54 48 |GULAR PA|RT OF TH|
|00038680| 45 20 51 52 0a 43 20 20 | 20 20 20 20 20 20 20 44 |E QR.C | D|
|00038690| 45 43 4f 4d 50 4f 53 49 | 54 49 4f 4e 20 4f 46 20 |ECOMPOSI|TION OF |
|000386a0| 54 48 45 20 41 50 50 52 | 4f 58 49 4d 41 54 45 20 |THE APPR|OXIMATE |
|000386b0| 4a 41 43 4f 42 49 41 4e | 20 41 54 20 54 48 45 20 |JACOBIAN| AT THE |
|000386c0| 4f 55 54 50 55 54 0a 43 | 20 20 20 20 20 20 20 20 |OUTPUT.C| |
|000386d0| 20 58 2e 20 54 48 45 20 | 53 54 4f 52 41 47 45 20 | X. THE |STORAGE |
|000386e0| 49 53 20 42 59 20 52 4f | 57 53 20 53 4f 20 54 48 |IS BY RO|WS SO TH|
|000386f0| 41 54 20 54 48 45 20 28 | 49 2c 4a 29 20 45 4c 45 |AT THE (|I,J) ELE|
|00038700| 4d 45 4e 54 0a 43 20 20 | 20 20 20 20 20 20 20 4f |MENT.C | O|
|00038710| 46 20 52 20 49 53 20 49 | 4e 20 50 4f 53 49 54 49 |F R IS I|N POSITI|
|00038720| 4f 4e 20 28 28 28 49 2d | 31 29 2a 28 32 2a 4e 2d |ON (((I-|1)*(2*N-|
|00038730| 4a 29 29 2f 32 29 2b 4a | 20 4f 46 20 52 57 41 2e |J))/2)+J| OF RWA.|
|00038740| 0a 43 0a 43 20 20 20 20 | 20 20 20 57 31 2c 57 32 |.C.C | W1,W2|
|00038750| 2c 20 41 4e 44 20 57 33 | 20 41 52 45 20 4c 49 4e |, AND W3| ARE LIN|
|00038760| 45 41 52 20 53 43 52 41 | 54 43 48 20 41 52 52 41 |EAR SCRA|TCH ARRA|
|00038770| 59 53 20 4f 46 20 4c 45 | 4e 47 54 48 20 4e 2e 0a |YS OF LE|NGTH N..|
|00038780| 43 0a 43 20 20 20 4a 4f | 52 47 45 20 4a 2e 20 4d |C.C JO|RGE J. M|
|00038790| 4f 52 45 27 2c 20 41 55 | 47 55 53 54 20 31 39 37 |ORE', AU|GUST 197|
|000387a0| 36 0a 43 0a 43 43 43 43 | 43 43 43 43 43 43 43 43 |6.C.CCCC|CCCCCCCC|
|000387b0| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|000387c0| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|000387d0| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|000387e0| 43 43 43 43 43 43 43 43 | 43 43 43 0a 43 0a 20 20 |CCCCCCCC|CCC.C. |
|000387f0| 20 20 20 20 53 55 42 52 | 4f 55 54 49 4e 45 20 48 | SUBR|OUTINE H|
|00038800| 59 42 52 44 4d 28 4e 2c | 46 43 4e 2c 58 2c 46 2c |YBRDM(N,|FCN,X,F,|
|00038810| 4d 31 2c 4d 32 2c 46 54 | 4f 4c 2c 0a 20 20 20 20 |M1,M2,FT|OL,. |
|00038820| 20 26 58 54 4f 4c 2c 4d | 41 58 46 45 56 2c 4a 45 | &XTOL,M|AXFEV,JE|
|00038830| 56 41 4c 2c 4e 54 52 59 | 2c 49 45 52 2c 51 2c 4c |VAL,NTRY|,IER,Q,L|
|00038840| 52 57 41 2c 0a 20 20 20 | 20 20 26 52 57 41 2c 57 |RWA,. | &RWA,W|
|00038850| 41 31 2c 57 41 32 2c 57 | 41 33 2c 0a 20 20 20 20 |A1,WA2,W|A3,. |
|00038860| 20 26 58 50 2c 58 57 2c | 58 56 2c 58 56 30 2c 0a | &XP,XW,|XV,XV0,.|
|00038870| 20 20 20 20 20 26 58 53 | 56 2c 58 43 53 2c 58 52 | &XS|V,XCS,XR|
|00038880| 4f 43 2c 58 52 41 43 2c | 58 45 4f 43 2c 58 43 45 |OC,XRAC,|XEOC,XCE|
|00038890| 4f 2c 58 52 45 4f 2c 0a | 20 20 20 20 20 26 58 53 |O,XREO,.| &XS|
|000388a0| 45 4f 2c 58 45 41 43 2c | 58 46 4f 43 2c 58 46 41 |EO,XEAC,|XFOC,XFA|
|000388b0| 43 2c 58 46 4f 4b 2c 58 | 52 46 4f 2c 58 53 46 4f |C,XFOK,X|RFO,XSFO|
|000388c0| 2c 0a 20 20 20 20 20 26 | 58 46 41 4b 2c 58 41 4d |,. &|XFAK,XAM|
|000388d0| 2c 58 42 4d 2c 58 43 4d | 2c 58 42 30 2c 58 42 31 |,XBM,XCM|,XB0,XB1|
|000388e0| 2c 58 42 32 2c 0a 20 20 | 20 20 20 26 58 43 50 2c |,XB2,. | &XCP,|
|000388f0| 58 41 4c 50 2c 58 42 50 | 2c 58 42 47 2c 58 42 47 |XALP,XBP|,XBG,XBG|
|00038900| 50 2c 58 43 47 2c 58 50 | 43 43 2c 0a 20 20 20 20 |P,XCG,XP|CC,. |
|00038910| 20 26 58 45 54 48 43 2c | 58 45 54 48 43 50 2c 58 | &XETHC,|XETHCP,X|
|00038920| 50 41 41 2c 58 45 54 48 | 41 2c 58 45 54 48 41 50 |PAA,XETH|A,XETHAP|
|00038930| 2c 58 50 43 43 41 2c 58 | 50 43 41 41 2c 0a 20 20 |,XPCCA,X|PCAA,. |
|00038940| 20 20 20 26 58 44 43 41 | 2c 58 50 4e 43 2c 58 50 | &XDCA|,XPNC,XP|
|00038950| 4e 41 2c 58 50 4e 4e 2c | 58 5a 41 2c 58 5a 46 41 |NA,XPNN,|XZA,XZFA|
|00038960| 2c 58 5a 43 2c 0a 20 20 | 20 20 20 26 58 5a 46 43 |,XZC,. | &XZFC|
|00038970| 2c 58 47 2c 58 47 4f 2c | 58 47 58 30 2c 58 56 52 |,XG,XGO,|XGX0,XVR|
|00038980| 54 2c 58 50 48 2c 58 50 | 48 56 2c 0a 20 20 20 20 |T,XPH,XP|HV,. |
|00038990| 20 26 58 58 46 2c 58 47 | 58 2c 58 41 43 2c 58 58 | &XXF,XG|X,XAC,XX|
|000389a0| 2c 58 58 43 2c 58 43 41 | 50 2c 58 43 4f 50 2c 0a |,XXC,XCA|P,XCOP,.|
|000389b0| 20 20 20 20 20 26 58 52 | 5a 49 52 2c 58 53 43 50 | &XR|ZIR,XSCP|
|000389c0| 53 49 2c 4e 58 43 4f 50 | 2c 4e 58 43 41 50 2c 4e |SI,NXCOP|,NXCAP,N|
|000389d0| 58 46 2c 49 58 43 41 2c | 49 58 41 4e 2c 0a 20 20 |XF,IXCA,|IXAN,. |
|000389e0| 20 20 20 26 49 58 4e 55 | 2c 49 58 50 54 2c 4e 58 | &IXNU|,IXPT,NX|
|000389f0| 5a 41 2c 4e 58 5a 50 4f | 2c 49 58 59 2c 49 58 4e |ZA,NXZPO|,IXY,IXN|
|00038a00| 43 41 4c 2c 49 58 45 51 | 2c 0a 20 20 20 20 20 26 |CAL,IXEQ|,. &|
|00038a10| 49 58 45 48 2c 49 58 43 | 4e 2c 49 58 53 54 2c 49 |IXEH,IXC|N,IXST,I|
|00038a20| 49 44 43 2c 49 4e 50 53 | 49 29 0a 20 20 20 20 20 |IDC,INPS|I). |
|00038a30| 20 53 41 56 45 0a 20 20 | 20 20 20 20 4c 4f 47 49 | SAVE. | LOGI|
|00038a40| 43 41 4c 20 4a 45 56 41 | 4c 0a 20 20 20 20 20 20 |CAL JEVA|L. |
|00038a50| 49 4e 54 45 47 45 52 20 | 4e 2c 4d 31 2c 4d 32 2c |INTEGER |N,M1,M2,|
|00038a60| 4d 41 58 46 45 56 2c 4e | 54 52 59 2c 49 45 52 2c |MAXFEV,N|TRY,IER,|
|00038a70| 4c 52 57 41 0a 20 20 20 | 20 20 20 44 4f 55 42 4c |LRWA. | DOUBL|
|00038a80| 45 20 50 52 45 43 49 53 | 49 4f 4e 20 46 54 4f 4c |E PRECIS|ION FTOL|
|00038a90| 2c 58 54 4f 4c 0a 20 20 | 20 20 20 20 44 4f 55 42 |,XTOL. | DOUB|
|00038aa0| 4c 45 20 50 52 45 43 49 | 53 49 4f 4e 20 58 28 4e |LE PRECI|SION X(N|
|00038ab0| 29 2c 46 28 4e 29 2c 51 | 28 4e 2c 4e 29 2c 52 57 |),F(N),Q|(N,N),RW|
|00038ac0| 41 28 4c 52 57 41 29 2c | 57 41 31 28 4e 29 2c 57 |A(LRWA),|WA1(N),W|
|00038ad0| 41 32 28 4e 29 2c 57 41 | 33 28 4e 29 0a 20 20 20 |A2(N),WA|3(N). |
|00038ae0| 20 20 20 44 4f 55 42 4c | 45 20 50 52 45 43 49 53 | DOUBL|E PRECIS|
|00038af0| 49 4f 4e 20 58 50 28 2a | 29 2c 58 57 28 2a 29 2c |ION XP(*|),XW(*),|
|00038b00| 58 56 28 2a 29 2c 58 56 | 30 28 2a 29 2c 58 53 56 |XV(*),XV|0(*),XSV|
|00038b10| 28 2a 29 2c 58 43 53 28 | 2a 29 2c 0a 20 20 20 20 |(*),XCS(|*),. |
|00038b20| 20 26 58 52 4f 43 28 38 | 2c 2a 29 2c 58 52 41 43 | &XROC(8|,*),XRAC|
|00038b30| 28 38 2c 2a 29 2c 58 45 | 4f 43 28 38 2c 2a 29 2c |(8,*),XE|OC(8,*),|
|00038b40| 58 43 45 4f 28 2a 29 2c | 58 52 45 4f 28 35 2c 38 |XCEO(*),|XREO(5,8|
|00038b50| 2b 4e 53 4f 2c 2a 29 2c | 0a 20 20 20 20 20 26 58 |+NSO,*),|. &X|
|00038b60| 53 45 4f 28 38 2b 4e 53 | 4f 2c 2a 29 2c 58 45 41 |SEO(8+NS|O,*),XEA|
|00038b70| 43 28 38 2c 2a 29 2c 58 | 46 4f 43 28 38 2c 2a 29 |C(8,*),X|FOC(8,*)|
|00038b80| 2c 58 46 41 43 28 38 2c | 2a 29 2c 58 46 4f 4b 28 |,XFAC(8,|*),XFOK(|
|00038b90| 2a 29 2c 58 52 46 4f 28 | 35 2c 2a 29 2c 0a 20 20 |*),XRFO(|5,*),. |
|00038ba0| 20 20 20 26 58 53 46 4f | 28 2a 29 2c 58 46 41 4b | &XSFO|(*),XFAK|
|00038bb0| 28 2a 29 2c 58 41 4d 28 | 2a 29 2c 58 42 4d 28 2a |(*),XAM(|*),XBM(*|
|00038bc0| 29 2c 58 43 4d 28 2a 29 | 2c 58 42 30 28 2a 29 2c |),XCM(*)|,XB0(*),|
|00038bd0| 58 42 31 28 2a 29 2c 58 | 42 32 28 2a 29 2c 0a 20 |XB1(*),X|B2(*),. |
|00038be0| 20 20 20 20 26 58 43 50 | 28 2a 29 2c 58 41 4c 50 | &XCP|(*),XALP|
|00038bf0| 28 32 2c 2a 29 2c 58 42 | 50 28 2a 29 2c 58 42 47 |(2,*),XB|P(*),XBG|
|00038c00| 28 2a 29 2c 58 42 47 50 | 28 2a 29 2c 58 43 47 28 |(*),XBGP|(*),XCG(|
|00038c10| 2a 29 2c 58 50 43 43 28 | 2a 29 2c 58 45 54 48 43 |*),XPCC(|*),XETHC|
|00038c20| 28 2a 29 2c 0a 20 20 20 | 20 20 26 58 45 54 48 43 |(*),. | &XETHC|
|00038c30| 50 28 2a 29 2c 58 50 41 | 41 28 2a 29 2c 58 45 54 |P(*),XPA|A(*),XET|
|00038c40| 48 41 28 2a 29 2c 58 45 | 54 48 41 50 28 2a 29 2c |HA(*),XE|THAP(*),|
|00038c50| 58 50 43 43 41 28 2a 29 | 2c 58 50 43 41 41 28 2a |XPCCA(*)|,XPCAA(*|
|00038c60| 29 2c 58 44 43 41 28 2a | 29 2c 0a 20 20 20 20 20 |),XDCA(*|),. |
|00038c70| 26 58 50 4e 43 28 2a 29 | 2c 58 50 4e 41 28 2a 29 |&XPNC(*)|,XPNA(*)|
|00038c80| 2c 58 50 4e 4e 28 2a 29 | 2c 58 5a 41 28 2a 29 2c |,XPNN(*)|,XZA(*),|
|00038c90| 58 5a 46 41 28 2a 29 2c | 58 5a 43 28 2a 29 2c 58 |XZFA(*),|XZC(*),X|
|00038ca0| 5a 46 43 28 2a 29 2c 58 | 47 28 2a 29 2c 0a 20 20 |ZFC(*),X|G(*),. |
|00038cb0| 20 20 20 26 58 47 4f 28 | 2a 29 2c 58 47 58 30 28 | &XGO(|*),XGX0(|
|00038cc0| 2a 29 2c 58 56 52 54 28 | 2a 29 2c 58 50 48 28 2a |*),XVRT(|*),XPH(*|
|00038cd0| 29 2c 58 50 48 56 28 2a | 29 2c 58 58 46 28 2a 29 |),XPHV(*|),XXF(*)|
|00038ce0| 2c 58 47 58 28 2a 29 2c | 58 41 43 28 2a 29 2c 0a |,XGX(*),|XAC(*),.|
|00038cf0| 20 20 20 20 20 26 58 58 | 28 31 30 2c 2a 29 2c 58 | &XX|(10,*),X|
|00038d00| 58 43 28 2a 29 2c 58 43 | 41 50 28 2a 29 2c 58 43 |XC(*),XC|AP(*),XC|
|00038d10| 4f 50 28 2a 29 2c 58 52 | 5a 49 52 28 2a 29 2c 58 |OP(*),XR|ZIR(*),X|
|00038d20| 53 43 50 53 49 28 2a 29 | 0a 20 20 20 20 20 20 44 |SCPSI(*)|. D|
|00038d30| 49 4d 45 4e 53 49 4f 4e | 20 4e 58 43 4f 50 28 38 |IMENSION| NXCOP(8|
|00038d40| 2c 2a 29 2c 4e 58 43 41 | 50 28 37 2c 2a 29 2c 4e |,*),NXCA|P(7,*),N|
|00038d50| 58 46 28 2a 29 2c 49 58 | 43 41 28 2a 29 2c 49 58 |XF(*),IX|CA(*),IX|
|00038d60| 41 4e 28 2a 29 2c 0a 20 | 20 20 20 20 26 49 58 4e |AN(*),. | &IXN|
|00038d70| 55 28 2a 29 2c 4e 58 5a | 41 28 2a 29 2c 4e 58 5a |U(*),NXZ|A(*),NXZ|
|00038d80| 50 4f 28 2a 29 2c 49 4e | 50 53 49 28 2a 29 0a 20 |PO(*),IN|PSI(*). |
|00038d90| 20 20 20 20 20 45 58 54 | 45 52 4e 41 4c 20 46 43 | EXT|ERNAL FC|
|00038da0| 4e 0a 43 0a 20 20 20 20 | 20 20 4c 4f 47 49 43 41 |N.C. | LOGICA|
|00038db0| 4c 20 53 49 4e 47 0a 20 | 20 20 20 20 20 49 4e 54 |L SING. | INT|
|00038dc0| 45 47 45 52 20 49 2c 49 | 49 2c 49 4a 2c 49 50 31 |EGER I,I|I,IJ,IP1|
|00038dd0| 2c 49 54 45 52 2c 4a 2c | 4b 2c 4d 33 2c 4e 43 4f |,ITER,J,|K,M3,NCO|
|00038de0| 4e 56 2c 4e 43 53 55 43 | 2c 4e 43 46 41 49 4c 2c |NV,NCSUC|,NCFAIL,|
|00038df0| 4e 46 45 56 41 4c 0a 20 | 20 20 20 20 20 49 4e 54 |NFEVAL. | INT|
|00038e00| 45 47 45 52 20 4d 4f 44 | 0a 20 20 20 20 20 20 44 |EGER MOD|. D|
|00038e10| 4f 55 42 4c 45 20 50 52 | 45 43 49 53 49 4f 4e 20 |OUBLE PR|ECISION |
|00038e20| 41 4c 50 48 41 2c 41 4e | 47 4c 45 2c 44 45 4c 54 |ALPHA,AN|GLE,DELT|
|00038e30| 41 2c 45 50 53 2c 45 50 | 53 4d 43 48 2c 46 50 31 |A,EPS,EP|SMCH,FP1|
|00038e40| 4e 2c 46 4e 2c 0a 20 20 | 20 20 20 31 20 20 20 20 |N,FN,. | 1 |
|00038e50| 20 44 57 41 31 2c 48 4e | 2c 4f 4e 45 2c 50 31 2c | DWA1,HN|,ONE,P1,|
|00038e60| 50 35 2c 50 30 31 2c 50 | 30 30 30 31 2c 50 4e 2c |P5,P01,P|0001,PN,|
|00038e70| 51 4e 2c 52 41 54 49 4f | 2c 52 47 4e 2c 53 55 4d |QN,RATIO|,RGN,SUM|
|00038e80| 2c 0a 20 20 20 20 20 32 | 20 20 20 20 20 54 45 4d |,. 2| TEM|
|00038e90| 50 2c 54 45 4d 50 31 2c | 54 45 4d 50 32 2c 57 4d |P,TEMP1,|TEMP2,WM|
|00038ea0| 41 58 2c 58 4d 41 58 2c | 58 4e 2c 5a 45 52 4f 0a |AX,XMAX,|XN,ZERO.|
|00038eb0| 20 20 20 20 20 20 44 4f | 55 42 4c 45 20 50 52 45 | DO|UBLE PRE|
|00038ec0| 43 49 53 49 4f 4e 20 44 | 41 42 53 2c 44 4d 49 4e |CISION D|ABS,DMIN|
|00038ed0| 31 2c 44 4d 41 58 31 2c | 44 53 51 52 54 2c 45 4e |1,DMAX1,|DSQRT,EN|
|00038ee0| 4f 52 4d 0a 20 20 20 20 | 20 20 43 4f 4d 4d 4f 4e |ORM. | COMMON|
|00038ef0| 2f 4d 43 48 50 52 53 2f | 45 50 53 4d 43 48 0a 20 |/MCHPRS/|EPSMCH. |
|00038f00| 20 20 20 20 20 44 41 54 | 41 20 5a 45 52 4f 2c 4f | DAT|A ZERO,O|
|00038f10| 4e 45 2c 50 31 2c 50 35 | 2c 50 30 31 2c 50 30 30 |NE,P1,P5|,P01,P00|
|00038f20| 30 31 2c 57 4d 41 58 2f | 0a 20 20 20 20 20 31 20 |01,WMAX/|. 1 |
|00038f30| 20 20 20 20 30 2e 44 30 | 2c 31 2e 44 30 2c 31 2e | 0.D0|,1.D0,1.|
|00038f40| 44 2d 31 2c 35 2e 44 2d | 31 2c 31 2e 44 2d 32 2c |D-1,5.D-|1,1.D-2,|
|00038f50| 31 2e 44 2d 34 2c 30 2e | 35 44 30 2f 0a 43 0a 43 |1.D-4,0.|5D0/.C.C|
|00038f60| 20 20 20 20 20 45 50 53 | 4d 43 48 20 49 53 20 54 | EPS|MCH IS T|
|00038f70| 48 45 20 4d 41 43 48 49 | 4e 45 20 50 52 45 43 49 |HE MACHI|NE PRECI|
|00038f80| 53 49 4f 4e 2e 0a 43 0a | 43 20 20 20 20 20 54 45 |SION..C.|C TE|
|00038f90| 53 54 20 49 4e 50 55 54 | 20 50 41 52 41 4d 45 54 |ST INPUT| PARAMET|
|00038fa0| 45 52 53 2e 0a 43 0a 20 | 20 20 20 20 20 49 45 52 |ERS..C. | IER|
|00038fb0| 20 3d 20 30 0a 20 20 20 | 20 20 20 4e 46 45 56 41 | = 0. | NFEVA|
|00038fc0| 4c 20 3d 20 30 0a 20 20 | 20 20 20 20 49 46 20 28 |L = 0. | IF (|
|00038fd0| 4e 20 2e 4c 45 2e 20 30 | 20 2e 4f 52 2e 20 4d 31 |N .LE. 0| .OR. M1|
|00038fe0| 20 2e 4c 54 2e 20 30 20 | 2e 4f 52 2e 20 4d 32 20 | .LT. 0 |.OR. M2 |
|00038ff0| 2e 4c 54 2e 20 30 20 2e | 4f 52 2e 20 4d 41 58 46 |.LT. 0 .|OR. MAXF|
|00039000| 45 56 20 2e 4c 45 2e 20 | 30 0a 20 20 20 20 20 31 |EV .LE. |0. 1|
|00039010| 20 20 20 20 2e 4f 52 2e | 20 46 54 4f 4c 20 2e 4c | .OR.| FTOL .L|
|00039020| 54 2e 20 5a 45 52 4f 20 | 2e 4f 52 2e 20 58 54 4f |T. ZERO |.OR. XTO|
|00039030| 4c 20 2e 4c 54 2e 20 5a | 45 52 4f 0a 20 20 20 20 |L .LT. Z|ERO. |
|00039040| 20 32 20 20 20 20 2e 4f | 52 2e 20 4e 54 52 59 20 | 2 .O|R. NTRY |
|00039050| 2e 4c 45 2e 20 31 20 2e | 4f 52 2e 20 4c 52 57 41 |.LE. 1 .|OR. LRWA|
|00039060| 20 2e 4c 54 2e 20 28 4e | 2a 28 4e 2b 31 29 2f 32 | .LT. (N|*(N+1)/2|
|00039070| 29 29 20 47 4f 20 54 4f | 20 33 32 30 0a 20 20 20 |)) GO TO| 320. |
|00039080| 20 20 20 43 41 4c 4c 20 | 46 43 4e 28 4e 2c 58 2c | CALL |FCN(N,X,|
|00039090| 46 2c 49 45 52 2c 0a 20 | 20 20 20 20 26 58 50 2c |F,IER,. | &XP,|
|000390a0| 58 57 2c 58 56 2c 58 56 | 30 2c 0a 20 20 20 20 20 |XW,XV,XV|0,. |
|000390b0| 26 58 53 56 2c 58 43 53 | 2c 58 52 4f 43 2c 58 52 |&XSV,XCS|,XROC,XR|
|000390c0| 41 43 2c 58 45 4f 43 2c | 58 43 45 4f 2c 58 52 45 |AC,XEOC,|XCEO,XRE|
|000390d0| 4f 2c 0a 20 20 20 20 20 | 26 58 53 45 4f 2c 58 45 |O,. |&XSEO,XE|
|000390e0| 41 43 2c 58 46 4f 43 2c | 58 46 41 43 2c 58 46 4f |AC,XFOC,|XFAC,XFO|
|000390f0| 4b 2c 58 52 46 4f 2c 58 | 53 46 4f 2c 0a 20 20 20 |K,XRFO,X|SFO,. |
|00039100| 20 20 26 58 46 41 4b 2c | 58 41 4d 2c 58 42 4d 2c | &XFAK,|XAM,XBM,|
|00039110| 58 43 4d 2c 58 42 30 2c | 58 42 31 2c 58 42 32 2c |XCM,XB0,|XB1,XB2,|
|00039120| 0a 20 20 20 20 20 26 58 | 43 50 2c 58 41 4c 50 2c |. &X|CP,XALP,|
|00039130| 58 42 50 2c 58 42 47 2c | 58 42 47 50 2c 58 43 47 |XBP,XBG,|XBGP,XCG|
|00039140| 2c 58 50 43 43 2c 0a 20 | 20 20 20 20 26 58 45 54 |,XPCC,. | &XET|
|00039150| 48 43 2c 58 45 54 48 43 | 50 2c 58 50 41 41 2c 58 |HC,XETHC|P,XPAA,X|
|00039160| 45 54 48 41 2c 58 45 54 | 48 41 50 2c 58 50 43 43 |ETHA,XET|HAP,XPCC|
|00039170| 41 2c 58 50 43 41 41 2c | 0a 20 20 20 20 20 26 58 |A,XPCAA,|. &X|
|00039180| 44 43 41 2c 58 50 4e 43 | 2c 58 50 4e 41 2c 58 50 |DCA,XPNC|,XPNA,XP|
|00039190| 4e 4e 2c 58 5a 41 2c 58 | 5a 46 41 2c 58 5a 43 2c |NN,XZA,X|ZFA,XZC,|
|000391a0| 0a 20 20 20 20 20 26 58 | 5a 46 43 2c 58 47 2c 58 |. &X|ZFC,XG,X|
|000391b0| 47 4f 2c 58 47 58 30 2c | 58 56 52 54 2c 58 50 48 |GO,XGX0,|XVRT,XPH|
|000391c0| 2c 58 50 48 56 2c 0a 20 | 20 20 20 20 26 58 58 46 |,XPHV,. | &XXF|
|000391d0| 2c 58 47 58 2c 58 41 43 | 2c 58 58 2c 58 58 43 2c |,XGX,XAC|,XX,XXC,|
|000391e0| 58 43 41 50 2c 58 43 4f | 50 2c 0a 20 20 20 20 20 |XCAP,XCO|P,. |
|000391f0| 26 58 52 5a 49 52 2c 58 | 53 43 50 53 49 2c 4e 58 |&XRZIR,X|SCPSI,NX|
|00039200| 43 4f 50 2c 4e 58 43 41 | 50 2c 4e 58 46 2c 49 58 |COP,NXCA|P,NXF,IX|
|00039210| 43 41 2c 49 58 41 4e 2c | 0a 20 20 20 20 20 26 49 |CA,IXAN,|. &I|
|00039220| 58 4e 55 2c 49 58 50 54 | 2c 4e 58 5a 41 2c 4e 58 |XNU,IXPT|,NXZA,NX|
|00039230| 5a 50 4f 2c 49 58 59 2c | 49 58 4e 43 41 4c 2c 49 |ZPO,IXY,|IXNCAL,I|
|00039240| 58 45 51 2c 0a 20 20 20 | 20 20 26 49 58 45 48 2c |XEQ,. | &IXEH,|
|00039250| 49 58 43 4e 2c 49 58 53 | 54 2c 49 49 44 43 2c 49 |IXCN,IXS|T,IIDC,I|
|00039260| 4e 50 53 49 29 0a 20 20 | 20 20 20 20 4e 46 45 56 |NPSI). | NFEV|
|00039270| 41 4c 20 3d 20 31 0a 20 | 20 20 20 20 20 49 46 20 |AL = 1. | IF |
|00039280| 28 49 45 52 20 2e 4c 54 | 2e 20 30 29 20 47 4f 20 |(IER .LT|. 0) GO |
|00039290| 54 4f 20 33 32 30 0a 20 | 20 20 20 20 20 46 4e 3d |TO 320. | FN=|
|000392a0| 45 4e 4f 52 4d 28 4e 2c | 46 29 0a 20 20 20 20 20 |ENORM(N,|F). |
|000392b0| 20 49 45 52 20 3d 20 31 | 0a 20 20 20 20 20 20 49 | IER = 1|. I|
|000392c0| 46 20 28 46 4e 20 2e 4c | 45 2e 20 46 54 4f 4c 29 |F (FN .L|E. FTOL)|
|000392d0| 20 47 4f 20 54 4f 20 33 | 32 30 0a 43 0a 43 20 20 | GO TO 3|20.C.C |
|000392e0| 20 20 20 49 4e 49 54 49 | 41 4c 49 5a 45 20 53 4f | INITI|ALIZE SO|
|000392f0| 4d 45 20 56 41 52 49 41 | 42 4c 45 53 2e 0a 43 0a |ME VARIA|BLES..C.|
|00039300| 20 20 20 20 20 20 4d 33 | 20 3d 20 4d 31 20 2b 20 | M3| = M1 + |
|00039310| 4d 32 20 2b 20 31 0a 20 | 20 20 20 20 20 49 46 20 |M2 + 1. | IF |
|00039320| 28 4d 33 20 2e 47 54 2e | 20 4e 29 20 4d 33 20 3d |(M3 .GT.| N) M3 =|
|00039330| 20 4e 0a 20 20 20 20 20 | 20 49 45 52 20 3d 20 30 | N. | IER = 0|
|00039340| 0a 20 20 20 20 20 20 49 | 54 45 52 20 3d 20 30 0a |. I|TER = 0.|
|00039350| 20 20 20 20 20 20 4e 43 | 4f 4e 56 20 3d 20 30 0a | NC|ONV = 0.|
|00039360| 20 20 20 20 20 20 4e 43 | 53 55 43 20 3d 20 30 0a | NC|SUC = 0.|
|00039370| 20 20 20 20 20 20 4e 43 | 46 41 49 4c 20 3d 20 30 | NC|FAIL = 0|
|00039380| 0a 20 20 20 20 20 20 53 | 49 4e 47 20 3d 20 2e 54 |. S|ING = .T|
|00039390| 52 55 45 2e 0a 20 20 20 | 20 20 20 45 50 53 20 3d |RUE.. | EPS =|
|000393a0| 20 44 53 51 52 54 28 45 | 50 53 4d 43 48 29 0a 20 | DSQRT(E|PSMCH). |
|000393b0| 20 20 20 20 20 58 4e 3d | 45 4e 4f 52 4d 28 4e 2c | XN=|ENORM(N,|
|000393c0| 58 29 0a 20 20 20 20 20 | 20 44 45 4c 54 41 20 3d |X). | DELTA =|
|000393d0| 20 58 4e 0a 20 20 20 20 | 20 20 49 46 20 28 58 4e | XN. | IF (XN|
|000393e0| 20 2e 45 51 2e 20 5a 45 | 52 4f 29 20 44 45 4c 54 | .EQ. ZE|RO) DELT|
|000393f0| 41 20 3d 20 4f 4e 45 0a | 43 2a 2a 2a 2a 2a 2a 2a |A = ONE.|C*******|
|00039400| 2a 2a 2a 0a 43 0a 43 20 | 20 20 20 20 53 54 41 52 |***.C.C | STAR|
|00039410| 54 20 4f 46 20 4d 41 49 | 4e 20 4c 4f 4f 50 2e 0a |T OF MAI|N LOOP..|
|00039420| 43 0a 43 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 20 31 |C.C*****|*****. 1|
|00039430| 30 20 20 20 43 4f 4e 54 | 49 4e 55 45 0a 20 20 20 |0 CONT|INUE. |
|00039440| 20 20 20 49 54 45 52 20 | 3d 20 49 54 45 52 20 2b | ITER |= ITER +|
|00039450| 20 31 0a 20 20 20 20 20 | 20 49 46 20 28 2e 4e 4f | 1. | IF (.NO|
|00039460| 54 2e 20 4a 45 56 41 4c | 29 20 47 4f 20 54 4f 20 |T. JEVAL|) GO TO |
|00039470| 32 30 0a 43 0a 43 20 20 | 20 20 20 46 4f 52 4d 20 |20.C.C | FORM |
|00039480| 54 48 45 20 41 50 50 52 | 4f 58 49 4d 41 54 45 20 |THE APPR|OXIMATE |
|00039490| 4a 41 43 4f 42 49 41 4e | 20 4d 41 54 52 49 58 20 |JACOBIAN| MATRIX |
|000394a0| 4a 20 41 4e 44 20 53 54 | 4f 52 45 20 49 4e 20 51 |J AND ST|ORE IN Q|
|000394b0| 2e 0a 43 0a 20 20 20 20 | 20 20 43 41 4c 4c 20 46 |..C. | CALL F|
|000394c0| 44 45 52 28 4e 2c 46 43 | 4e 2c 58 2c 46 2c 4d 31 |DER(N,FC|N,X,F,M1|
|000394d0| 2c 4d 32 2c 51 2c 57 41 | 31 2c 57 41 32 2c 57 41 |,M2,Q,WA|1,WA2,WA|
|000394e0| 33 2c 49 45 52 2c 0a 20 | 20 20 20 20 26 58 50 2c |3,IER,. | &XP,|
|000394f0| 58 57 2c 58 56 2c 58 56 | 30 2c 0a 20 20 20 20 20 |XW,XV,XV|0,. |
|00039500| 26 58 53 56 2c 58 43 53 | 2c 58 52 4f 43 2c 58 52 |&XSV,XCS|,XROC,XR|
|00039510| 41 43 2c 58 45 4f 43 2c | 58 43 45 4f 2c 58 52 45 |AC,XEOC,|XCEO,XRE|
|00039520| 4f 2c 0a 20 20 20 20 20 | 26 58 53 45 4f 2c 58 45 |O,. |&XSEO,XE|
|00039530| 41 43 2c 58 46 4f 43 2c | 58 46 41 43 2c 58 46 4f |AC,XFOC,|XFAC,XFO|
|00039540| 4b 2c 58 52 46 4f 2c 58 | 53 46 4f 2c 0a 20 20 20 |K,XRFO,X|SFO,. |
|00039550| 20 20 26 58 46 41 4b 2c | 58 41 4d 2c 58 42 4d 2c | &XFAK,|XAM,XBM,|
|00039560| 58 43 4d 2c 58 42 30 2c | 58 42 31 2c 58 42 32 2c |XCM,XB0,|XB1,XB2,|
|00039570| 0a 20 20 20 20 20 26 58 | 43 50 2c 58 41 4c 50 2c |. &X|CP,XALP,|
|00039580| 58 42 50 2c 58 42 47 2c | 58 42 47 50 2c 58 43 47 |XBP,XBG,|XBGP,XCG|
|00039590| 2c 58 50 43 43 2c 0a 20 | 20 20 20 20 26 58 45 54 |,XPCC,. | &XET|
|000395a0| 48 43 2c 58 45 54 48 43 | 50 2c 58 50 41 41 2c 58 |HC,XETHC|P,XPAA,X|
|000395b0| 45 54 48 41 2c 58 45 54 | 48 41 50 2c 58 50 43 43 |ETHA,XET|HAP,XPCC|
|000395c0| 41 2c 58 50 43 41 41 2c | 0a 20 20 20 20 20 26 58 |A,XPCAA,|. &X|
|000395d0| 44 43 41 2c 58 50 4e 43 | 2c 58 50 4e 41 2c 58 50 |DCA,XPNC|,XPNA,XP|
|000395e0| 4e 4e 2c 58 5a 41 2c 58 | 5a 46 41 2c 58 5a 43 2c |NN,XZA,X|ZFA,XZC,|
|000395f0| 0a 20 20 20 20 20 26 58 | 5a 46 43 2c 58 47 2c 58 |. &X|ZFC,XG,X|
|00039600| 47 4f 2c 58 47 58 30 2c | 58 56 52 54 2c 58 50 48 |GO,XGX0,|XVRT,XPH|
|00039610| 2c 58 50 48 56 2c 0a 20 | 20 20 20 20 26 58 58 46 |,XPHV,. | &XXF|
|00039620| 2c 58 47 58 2c 58 41 43 | 2c 58 58 2c 58 58 43 2c |,XGX,XAC|,XX,XXC,|
|00039630| 58 43 41 50 2c 58 43 4f | 50 2c 0a 20 20 20 20 20 |XCAP,XCO|P,. |
|00039640| 26 58 52 5a 49 52 2c 58 | 53 43 50 53 49 2c 4e 58 |&XRZIR,X|SCPSI,NX|
|00039650| 43 4f 50 2c 4e 58 43 41 | 50 2c 4e 58 46 2c 49 58 |COP,NXCA|P,NXF,IX|
|00039660| 43 41 2c 49 58 41 4e 2c | 0a 20 20 20 20 20 26 49 |CA,IXAN,|. &I|
|00039670| 58 4e 55 2c 49 58 50 54 | 2c 4e 58 5a 41 2c 4e 58 |XNU,IXPT|,NXZA,NX|
|00039680| 5a 50 4f 2c 49 58 59 2c | 49 58 4e 43 41 4c 2c 49 |ZPO,IXY,|IXNCAL,I|
|00039690| 58 45 51 2c 0a 20 20 20 | 20 20 26 49 58 45 48 2c |XEQ,. | &IXEH,|
|000396a0| 49 58 43 4e 2c 49 58 53 | 54 2c 49 49 44 43 2c 49 |IXCN,IXS|T,IIDC,I|
|000396b0| 4e 50 53 49 29 0a 43 0a | 20 20 20 20 20 20 4e 46 |NPSI).C.| NF|
|000396c0| 45 56 41 4c 20 3d 20 4e | 46 45 56 41 4c 20 2b 20 |EVAL = N|FEVAL + |
|000396d0| 4d 33 0a 20 20 20 20 20 | 20 49 46 20 28 49 45 52 |M3. | IF (IER|
|000396e0| 20 2e 4c 54 2e 20 30 29 | 20 52 45 54 55 52 4e 0a | .LT. 0)| RETURN.|
|000396f0| 20 20 20 20 20 20 4a 45 | 56 41 4c 20 3d 20 2e 46 | JE|VAL = .F|
|00039700| 41 4c 53 45 2e 0a 43 0a | 43 20 20 20 20 20 43 4f |ALSE..C.|C CO|
|00039710| 4d 50 55 54 45 20 54 48 | 45 20 51 52 20 44 45 43 |MPUTE TH|E QR DEC|
|00039720| 4f 4d 50 4f 53 49 54 49 | 4f 4e 20 4f 46 20 4a 20 |OMPOSITI|ON OF J |
|00039730| 41 4e 44 20 53 54 4f 52 | 45 20 49 4e 20 51 20 41 |AND STOR|E IN Q A|
|00039740| 4e 44 20 52 2e 0a 43 0a | 20 20 20 20 20 20 43 41 |ND R..C.| CA|
|00039750| 4c 4c 20 51 52 44 43 4f | 4d 28 4e 2c 51 2c 4c 52 |LL QRDCO|M(N,Q,LR|
|00039760| 57 41 2c 52 57 41 2c 57 | 41 31 2c 53 49 4e 47 29 |WA,RWA,W|A1,SING)|
|00039770| 0a 43 0a 20 32 30 20 20 | 20 43 4f 4e 54 49 4e 55 |.C. 20 | CONTINU|
|00039780| 45 0a 20 20 20 20 20 20 | 49 46 20 28 2e 4e 4f 54 |E. |IF (.NOT|
|00039790| 2e 20 53 49 4e 47 29 20 | 47 4f 20 54 4f 20 35 30 |. SING) |GO TO 50|
|000397a0| 0a 43 0a 43 20 20 20 20 | 20 49 46 20 4a 20 49 53 |.C.C | IF J IS|
|000397b0| 20 53 49 4e 47 55 4c 41 | 52 2c 20 4d 4f 44 49 46 | SINGULA|R, MODIF|
|000397c0| 59 20 54 48 45 20 5a 45 | 52 4f 20 44 49 41 47 4f |Y THE ZE|RO DIAGO|
|000397d0| 4e 41 4c 20 45 4c 45 4d | 45 4e 54 53 20 4f 46 20 |NAL ELEM|ENTS OF |
|000397e0| 52 2e 0a 43 0a 20 20 20 | 20 20 20 44 4f 20 34 30 |R..C. | DO 40|
|000397f0| 20 49 20 3d 20 31 2c 4e | 0a 20 20 20 20 20 20 20 | I = 1,N|. |
|00039800| 20 20 49 49 20 3d 20 28 | 28 49 20 2d 20 31 29 2a | II = (|(I - 1)*|
|00039810| 28 32 2a 4e 20 2d 20 49 | 29 29 2f 32 20 2b 20 49 |(2*N - I|))/2 + I|
|00039820| 0a 20 20 20 20 20 20 20 | 20 20 49 46 20 28 52 57 |. | IF (RW|
|00039830| 41 28 49 49 29 20 2e 4e | 45 2e 20 5a 45 52 4f 29 |A(II) .N|E. ZERO)|
|00039840| 20 47 4f 20 54 4f 20 34 | 30 0a 20 20 20 20 20 20 | GO TO 4|0. |
|00039850| 20 20 20 49 4a 20 3d 20 | 49 49 0a 20 20 20 20 20 | IJ = |II. |
|00039860| 20 20 20 20 54 45 4d 50 | 20 3d 20 5a 45 52 4f 0a | TEMP| = ZERO.|
|00039870| 20 20 20 20 20 20 20 20 | 20 44 4f 20 33 30 20 4a | | DO 30 J|
|00039880| 20 3d 20 49 2c 4e 0a 20 | 20 20 20 20 20 20 20 20 | = I,N. | |
|00039890| 20 20 20 54 45 4d 50 20 | 3d 20 44 4d 41 58 31 28 | TEMP |= DMAX1(|
|000398a0| 54 45 4d 50 2c 44 41 42 | 53 28 52 57 41 28 49 4a |TEMP,DAB|S(RWA(IJ|
|000398b0| 29 29 29 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |))). | |
|000398c0| 49 4a 20 3d 20 49 4a 20 | 2b 20 31 0a 20 33 30 20 |IJ = IJ |+ 1. 30 |
|000398d0| 20 20 20 20 20 20 20 20 | 43 4f 4e 54 49 4e 55 45 | |CONTINUE|
|000398e0| 0a 20 20 20 20 20 20 20 | 20 20 54 45 4d 50 20 3d |. | TEMP =|
|000398f0| 20 45 50 53 4d 43 48 2a | 54 45 4d 50 0a 20 20 20 | EPSMCH*|TEMP. |
|00039900| 20 20 20 20 20 20 49 46 | 20 28 54 45 4d 50 20 2e | IF| (TEMP .|
|00039910| 45 51 2e 20 5a 45 52 4f | 29 20 54 45 4d 50 20 3d |EQ. ZERO|) TEMP =|
|00039920| 20 45 50 53 4d 43 48 0a | 20 20 20 20 20 20 20 20 | EPSMCH.| |
|00039930| 20 52 57 41 28 49 49 29 | 20 3d 20 54 45 4d 50 0a | RWA(II)| = TEMP.|
|00039940| 20 34 30 20 20 20 20 20 | 20 43 4f 4e 54 49 4e 55 | 40 | CONTINU|
|00039950| 45 0a 20 35 30 20 20 20 | 43 4f 4e 54 49 4e 55 45 |E. 50 |CONTINUE|
|00039960| 0a 43 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0a 43 0a 43 |.C******|****.C.C|
|00039970| 20 20 20 20 20 43 41 4c | 43 55 4c 41 54 49 4f 4e | CAL|CULATION|
|00039980| 20 4f 46 20 54 48 45 20 | 44 49 52 45 43 54 49 4f | OF THE |DIRECTIO|
|00039990| 4e 20 50 2e 20 54 48 45 | 20 44 49 52 45 43 54 49 |N P. THE| DIRECTI|
|000399a0| 4f 4e 20 49 53 0a 43 20 | 20 20 20 20 53 54 4f 52 |ON IS.C | STOR|
|000399b0| 45 44 20 49 4e 20 54 48 | 45 20 41 52 52 41 59 20 |ED IN TH|E ARRAY |
|000399c0| 57 41 31 20 41 4e 44 20 | 49 54 53 20 4c 45 4e 47 |WA1 AND |ITS LENG|
|000399d0| 54 48 20 49 4e 20 50 4e | 2e 0a 43 0a 43 2a 2a 2a |TH IN PN|..C.C***|
|000399e0| 2a 2a 2a 2a 2a 2a 2a 0a | 20 20 20 20 20 20 41 4c |*******.| AL|
|000399f0| 50 48 41 20 3d 20 4f 4e | 45 0a 43 0a 43 20 20 20 |PHA = ON|E.C.C |
|00039a00| 20 20 53 54 4f 52 45 20 | 2d 28 51 20 54 52 41 4e | STORE |-(Q TRAN|
|00039a10| 53 50 4f 53 45 29 2a 46 | 20 49 4e 20 57 41 32 2e |SPOSE)*F| IN WA2.|
|00039a20| 20 5a 45 52 4f 20 4f 55 | 54 20 57 41 33 2e 0a 43 | ZERO OU|T WA3..C|
|00039a30| 0a 20 20 20 20 20 20 44 | 4f 20 37 30 20 4a 20 3d |. D|O 70 J =|
|00039a40| 20 31 2c 4e 0a 20 20 20 | 20 20 20 20 20 20 53 55 | 1,N. | SU|
|00039a50| 4d 20 3d 20 5a 45 52 4f | 0a 20 20 20 20 20 20 20 |M = ZERO|. |
|00039a60| 20 20 44 4f 20 36 30 20 | 49 20 3d 20 31 2c 4e 0a | DO 60 |I = 1,N.|
|00039a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 55 4d 20 | | SUM |
|00039a80| 3d 20 53 55 4d 20 2b 20 | 51 28 49 2c 4a 29 2a 46 |= SUM + |Q(I,J)*F|
|00039a90| 28 49 29 0a 20 36 30 20 | 20 20 20 20 20 20 20 20 |(I). 60 | |
|00039aa0| 43 4f 4e 54 49 4e 55 45 | 0a 20 20 20 20 20 20 20 |CONTINUE|. |
|00039ab0| 20 20 57 41 32 28 4a 29 | 20 3d 20 2d 53 55 4d 0a | WA2(J)| = -SUM.|
|00039ac0| 20 20 20 20 20 20 20 20 | 20 57 41 33 28 4a 29 20 | | WA3(J) |
|00039ad0| 3d 20 5a 45 52 4f 0a 20 | 37 30 20 20 20 20 20 20 |= ZERO. |70 |
|00039ae0| 43 4f 4e 54 49 4e 55 45 | 0a 43 0a 43 20 20 20 20 |CONTINUE|.C.C |
|00039af0| 20 43 41 4c 43 55 4c 41 | 54 45 20 54 48 45 20 4e | CALCULA|TE THE N|
|00039b00| 45 57 54 4f 4e 20 44 49 | 52 45 43 54 49 4f 4e 20 |EWTON DI|RECTION |
|00039b10| 42 59 20 53 4f 4c 56 49 | 4e 47 20 52 2a 57 41 31 |BY SOLVI|NG R*WA1|
|00039b20| 20 3d 20 57 41 32 20 46 | 4f 52 20 57 41 31 2e 0a | = WA2 F|OR WA1..|
|00039b30| 43 20 20 20 20 20 4e 4f | 54 45 20 54 48 41 54 20 |C NO|TE THAT |
|00039b40| 57 41 32 20 49 53 20 55 | 4e 43 48 41 4e 47 45 44 |WA2 IS U|NCHANGED|
|00039b50| 2e 0a 43 0a 20 20 20 20 | 20 20 49 49 20 3d 20 28 |..C. | II = (|
|00039b60| 4e 2a 28 4e 20 2b 20 31 | 29 29 2f 32 0a 20 20 20 |N*(N + 1|))/2. |
|00039b70| 20 20 20 57 41 31 28 4e | 29 20 3d 20 57 41 32 28 | WA1(N|) = WA2(|
|00039b80| 4e 29 2f 52 57 41 28 49 | 49 29 0a 20 20 20 20 20 |N)/RWA(I|I). |
|00039b90| 20 49 46 20 28 4e 20 2e | 45 51 2e 20 31 29 20 47 | IF (N .|EQ. 1) G|
|00039ba0| 4f 20 54 4f 20 31 30 30 | 0a 20 20 20 20 20 20 44 |O TO 100|. D|
|00039bb0| 4f 20 39 30 20 4b 20 3d | 20 32 2c 4e 0a 20 20 20 |O 90 K =| 2,N. |
|00039bc0| 20 20 20 20 20 20 49 20 | 3d 20 4e 20 2d 20 4b 20 | I |= N - K |
|00039bd0| 2b 20 31 0a 20 20 20 20 | 20 20 20 20 20 49 50 31 |+ 1. | IP1|
|00039be0| 20 3d 20 49 20 2b 20 31 | 0a 20 20 20 20 20 20 20 | = I + 1|. |
|00039bf0| 20 20 49 49 20 3d 20 49 | 49 20 2d 20 4b 0a 20 20 | II = I|I - K. |
|00039c00| 20 20 20 20 20 20 20 53 | 55 4d 20 3d 20 5a 45 52 | S|UM = ZER|
|00039c10| 4f 0a 20 20 20 20 20 20 | 20 20 20 49 4a 20 3d 20 |O. | IJ = |
|00039c20| 49 49 0a 20 20 20 20 20 | 20 20 20 20 44 4f 20 38 |II. | DO 8|
|00039c30| 30 20 4a 20 3d 20 49 50 | 31 2c 4e 0a 20 20 20 20 |0 J = IP|1,N. |
|00039c40| 20 20 20 20 20 20 20 20 | 49 4a 20 3d 20 49 4a 20 | |IJ = IJ |
|00039c50| 2b 20 31 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |+ 1. | |
|00039c60| 53 55 4d 20 3d 20 53 55 | 4d 20 2b 20 52 57 41 28 |SUM = SU|M + RWA(|
|00039c70| 49 4a 29 2a 57 41 31 28 | 4a 29 0a 20 38 30 20 20 |IJ)*WA1(|J). 80 |
|00039c80| 20 20 20 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a | C|ONTINUE.|
|00039c90| 20 20 20 20 20 20 20 20 | 20 57 41 31 28 49 29 20 | | WA1(I) |
|00039ca0| 3d 20 28 57 41 32 28 49 | 29 20 2d 20 53 55 4d 29 |= (WA2(I|) - SUM)|
|00039cb0| 2f 52 57 41 28 49 49 29 | 0a 20 39 30 20 20 20 20 |/RWA(II)|. 90 |
|00039cc0| 20 20 43 4f 4e 54 49 4e | 55 45 0a 20 31 30 30 20 | CONTIN|UE. 100 |
|00039cd0| 20 43 4f 4e 54 49 4e 55 | 45 0a 20 20 20 20 20 20 | CONTINU|E. |
|00039ce0| 51 4e 3d 45 4e 4f 52 4d | 28 4e 2c 57 41 31 29 0a |QN=ENORM|(N,WA1).|
|00039cf0| 20 20 20 20 20 20 49 46 | 20 28 49 54 45 52 20 2e | IF| (ITER .|
|00039d00| 45 51 2e 20 31 29 20 44 | 45 4c 54 41 20 3d 20 44 |EQ. 1) D|ELTA = D|
|00039d10| 4d 49 4e 31 28 51 4e 2c | 44 45 4c 54 41 2f 50 30 |MIN1(QN,|DELTA/P0|
|00039d20| 31 29 0a 43 0a 43 20 20 | 20 20 20 54 45 53 54 20 |1).C.C | TEST |
|00039d30| 57 48 45 54 48 45 52 20 | 54 48 45 20 4e 45 57 54 |WHETHER |THE NEWT|
|00039d40| 4f 4e 20 44 49 52 45 43 | 54 49 4f 4e 20 49 53 20 |ON DIREC|TION IS |
|00039d50| 41 43 43 45 50 54 41 42 | 4c 45 2e 0a 43 0a 20 20 |ACCEPTAB|LE..C. |
|00039d60| 20 20 20 20 49 46 20 28 | 51 4e 20 2e 4c 45 2e 20 | IF (|QN .LE. |
|00039d70| 44 45 4c 54 41 29 20 47 | 4f 20 54 4f 20 31 39 30 |DELTA) G|O TO 190|
|00039d80| 0a 43 0a 43 20 20 20 20 | 20 43 41 4c 43 55 4c 41 |.C.C | CALCULA|
|00039d90| 54 45 20 54 48 45 20 20 | 47 52 41 44 49 45 4e 54 |TE THE |GRADIENT|
|00039da0| 20 44 49 52 45 43 54 49 | 4f 4e 20 42 59 20 43 4f | DIRECTI|ON BY CO|
|00039db0| 4d 50 55 54 49 4e 47 0a | 43 20 20 20 20 20 28 52 |MPUTING.|C (R|
|00039dc0| 20 54 52 41 4e 53 50 4f | 53 45 29 2a 57 41 32 20 | TRANSPO|SE)*WA2 |
|00039dd0| 41 4e 44 20 53 54 4f 52 | 49 4e 47 20 54 48 45 20 |AND STOR|ING THE |
|00039de0| 52 45 53 55 4c 54 20 49 | 4e 20 57 41 32 2e 0a 43 |RESULT I|N WA2..C|
|00039df0| 0a 20 20 20 20 20 20 41 | 4c 50 48 41 20 3d 20 5a |. A|LPHA = Z|
|00039e00| 45 52 4f 0a 20 20 20 20 | 20 20 49 4a 20 3d 20 30 |ERO. | IJ = 0|
|00039e10| 0a 20 20 20 20 20 20 44 | 4f 20 31 32 30 20 49 20 |. D|O 120 I |
|00039e20| 3d 20 31 2c 4e 0a 20 20 | 20 20 20 20 20 20 20 54 |= 1,N. | T|
|00039e30| 45 4d 50 20 3d 20 57 41 | 32 28 49 29 0a 20 20 20 |EMP = WA|2(I). |
|00039e40| 20 20 20 20 20 20 44 4f | 20 31 31 30 20 4a 20 3d | DO| 110 J =|
|00039e50| 20 49 2c 4e 0a 20 20 20 | 20 20 20 20 20 20 20 20 | I,N. | |
|00039e60| 20 49 4a 20 3d 20 49 4a | 20 2b 20 31 0a 20 20 20 | IJ = IJ| + 1. |
|00039e70| 20 20 20 20 20 20 20 20 | 20 57 41 33 28 4a 29 20 | | WA3(J) |
|00039e80| 3d 20 57 41 33 28 4a 29 | 20 2b 20 52 57 41 28 49 |= WA3(J)| + RWA(I|
|00039e90| 4a 29 2a 54 45 4d 50 0a | 20 31 31 30 20 20 20 20 |J)*TEMP.| 110 |
|00039ea0| 20 20 20 20 43 4f 4e 54 | 49 4e 55 45 0a 20 20 20 | CONT|INUE. |
|00039eb0| 20 20 20 20 20 20 57 41 | 32 28 49 29 20 3d 20 57 | WA|2(I) = W|
|00039ec0| 41 33 28 49 29 0a 20 31 | 32 30 20 20 20 20 20 43 |A3(I). 1|20 C|
|00039ed0| 4f 4e 54 49 4e 55 45 0a | 43 0a 43 20 20 20 20 20 |ONTINUE.|C.C |
|00039ee0| 4e 4f 52 4d 41 4c 49 5a | 45 20 54 48 45 20 47 52 |NORMALIZ|E THE GR|
|00039ef0| 41 44 49 45 4e 54 20 44 | 49 52 45 43 54 49 4f 4e |ADIENT D|IRECTION|
|00039f00| 2e 0a 43 0a 20 20 20 20 | 20 20 47 4e 3d 45 4e 4f |..C. | GN=ENO|
|00039f10| 52 4d 28 4e 2c 57 41 32 | 29 0a 20 20 20 20 20 20 |RM(N,WA2|). |
|00039f20| 44 4f 20 31 33 30 20 49 | 20 3d 20 31 2c 4e 0a 20 |DO 130 I| = 1,N. |
|00039f30| 20 20 20 20 20 20 20 20 | 57 41 32 28 49 29 20 3d | |WA2(I) =|
|00039f40| 20 57 41 32 28 49 29 2f | 47 4e 0a 20 31 33 30 20 | WA2(I)/|GN. 130 |
|00039f50| 20 20 20 20 43 4f 4e 54 | 49 4e 55 45 0a 20 20 20 | CONT|INUE. |
|00039f60| 20 20 20 41 4e 47 4c 45 | 20 3d 20 28 46 4e 2f 47 | ANGLE| = (FN/G|
|00039f70| 4e 29 2a 28 46 4e 2f 51 | 4e 29 0a 43 0a 43 20 20 |N)*(FN/Q|N).C.C |
|00039f80| 20 20 20 43 41 4c 43 55 | 4c 41 54 45 20 50 4f 49 | CALCU|LATE POI|
|00039f90| 4e 54 20 41 4c 4f 4e 47 | 20 54 48 45 20 47 52 41 |NT ALONG| THE GRA|
|00039fa0| 44 49 45 4e 54 20 41 54 | 20 57 48 49 43 48 20 54 |DIENT AT| WHICH T|
|00039fb0| 48 45 20 51 55 41 44 52 | 41 54 49 43 0a 43 20 20 |HE QUADR|ATIC.C |
|00039fc0| 20 20 20 49 53 20 4d 49 | 4e 49 4d 49 5a 45 44 2e | IS MI|NIMIZED.|
|00039fd0| 0a 43 0a 20 20 20 20 20 | 20 49 4a 20 3d 20 30 0a |.C. | IJ = 0.|
|00039fe0| 20 20 20 20 20 20 44 4f | 20 31 35 30 20 49 20 3d | DO| 150 I =|
|00039ff0| 20 31 2c 4e 0a 20 20 20 | 20 20 20 20 20 20 53 55 | 1,N. | SU|
|0003a000| 4d 20 3d 20 5a 45 52 4f | 0a 20 20 20 20 20 20 20 |M = ZERO|. |
|0003a010| 20 20 44 4f 20 31 34 30 | 20 4a 20 3d 20 49 2c 4e | DO 140| J = I,N|
|0003a020| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 49 4a 20 |. | IJ |
|0003a030| 3d 20 49 4a 20 2b 20 31 | 0a 20 20 20 20 20 20 20 |= IJ + 1|. |
|0003a040| 20 20 20 20 20 53 55 4d | 20 3d 20 53 55 4d 20 2b | SUM| = SUM +|
|0003a050| 20 52 57 41 28 49 4a 29 | 2a 57 41 32 28 4a 29 0a | RWA(IJ)|*WA2(J).|
|0003a060| 20 31 34 30 20 20 20 20 | 20 20 20 20 43 4f 4e 54 | 140 | CONT|
|0003a070| 49 4e 55 45 0a 20 20 20 | 20 20 20 20 20 20 57 41 |INUE. | WA|
|0003a080| 33 28 49 29 20 3d 20 53 | 55 4d 0a 20 31 35 30 20 |3(I) = S|UM. 150 |
|0003a090| 20 20 20 20 43 4f 4e 54 | 49 4e 55 45 0a 20 20 20 | CONT|INUE. |
|0003a0a0| 20 20 20 52 47 4e 3d 45 | 4e 4f 52 4d 28 4e 2c 57 | RGN=E|NORM(N,W|
|0003a0b0| 41 33 29 0a 20 20 20 20 | 20 20 48 4e 20 3d 20 28 |A3). | HN = (|
|0003a0c0| 47 4e 2f 52 47 4e 29 2f | 52 47 4e 0a 43 0a 43 20 |GN/RGN)/|RGN.C.C |
|0003a0d0| 20 20 20 20 54 45 53 54 | 20 57 48 45 54 48 45 52 | TEST| WHETHER|
|0003a0e0| 20 54 48 45 20 47 52 41 | 44 49 45 4e 54 20 44 49 | THE GRA|DIENT DI|
|0003a0f0| 52 45 43 54 49 4f 4e 20 | 49 53 20 41 43 43 45 50 |RECTION |IS ACCEP|
|0003a100| 54 41 42 4c 45 2e 0a 43 | 0a 20 20 20 20 20 20 49 |TABLE..C|. I|
|0003a110| 46 20 28 48 4e 20 2e 4c | 54 2e 20 44 45 4c 54 41 |F (HN .L|T. DELTA|
|0003a120| 29 20 47 4f 20 54 4f 20 | 31 37 30 0a 43 0a 43 20 |) GO TO |170.C.C |
|0003a130| 20 20 20 20 47 52 41 44 | 49 45 4e 54 20 44 49 52 | GRAD|IENT DIR|
|0003a140| 45 43 54 49 4f 4e 20 49 | 53 20 41 43 43 45 50 54 |ECTION I|S ACCEPT|
|0003a150| 41 42 4c 45 2e 0a 43 0a | 20 20 20 20 20 20 44 4f |ABLE..C.| DO|
|0003a160| 20 31 36 30 20 49 20 3d | 20 31 2c 4e 0a 20 20 20 | 160 I =| 1,N. |
|0003a170| 20 20 20 20 20 20 57 41 | 31 28 49 29 20 3d 20 44 | WA|1(I) = D|
|0003a180| 45 4c 54 41 2a 57 41 32 | 28 49 29 0a 20 31 36 30 |ELTA*WA2|(I). 160|
|0003a190| 20 20 20 20 20 43 4f 4e | 54 49 4e 55 45 0a 20 20 | CON|TINUE. |
|0003a1a0| 20 20 20 20 47 4f 20 54 | 4f 20 31 39 30 0a 43 0a | GO T|O 190.C.|
|0003a1b0| 43 20 20 20 20 20 43 41 | 4c 43 55 4c 41 54 45 20 |C CA|LCULATE |
|0003a1c0| 50 4f 49 4e 54 20 41 4c | 4f 4e 47 20 54 48 45 20 |POINT AL|ONG THE |
|0003a1d0| 44 4f 47 2d 4c 45 47 20 | 41 54 20 57 48 49 43 48 |DOG-LEG |AT WHICH|
|0003a1e0| 20 54 48 45 20 51 55 41 | 44 52 41 54 49 43 0a 43 | THE QUA|DRATIC.C|
|0003a1f0| 20 20 20 20 20 49 53 20 | 4d 49 4e 49 4d 49 5a 45 | IS |MINIMIZE|
|0003a200| 44 2e 0a 43 0a 20 31 37 | 30 20 20 43 4f 4e 54 49 |D..C. 17|0 CONTI|
|0003a210| 4e 55 45 0a 20 20 20 20 | 20 20 54 45 4d 50 20 3d |NUE. | TEMP =|
|0003a220| 20 41 4e 47 4c 45 2a 28 | 48 4e 2f 44 45 4c 54 41 | ANGLE*(|HN/DELTA|
|0003a230| 29 0a 20 20 20 20 20 20 | 41 4c 50 48 41 20 3d 20 |). |ALPHA = |
|0003a240| 44 53 51 52 54 28 28 54 | 45 4d 50 20 2d 20 28 44 |DSQRT((T|EMP - (D|
|0003a250| 45 4c 54 41 2f 51 4e 29 | 29 2a 2a 32 20 2b 0a 20 |ELTA/QN)|)**2 +. |
|0003a260| 20 20 20 20 31 20 20 20 | 20 20 20 20 20 20 20 20 | 1 | |
|0003a270| 20 20 28 4f 4e 45 20 2d | 20 28 44 45 4c 54 41 2f | (ONE -| (DELTA/|
|0003a280| 51 4e 29 2a 2a 32 29 2a | 28 4f 4e 45 20 2d 20 28 |QN)**2)*|(ONE - (|
|0003a290| 48 4e 2f 44 45 4c 54 41 | 29 2a 2a 32 29 29 0a 20 |HN/DELTA|)**2)). |
|0003a2a0| 20 20 20 20 20 41 4c 50 | 48 41 20 3d 20 28 28 44 | ALP|HA = ((D|
|0003a2b0| 45 4c 54 41 2f 51 4e 29 | 2a 28 4f 4e 45 20 2d 20 |ELTA/QN)|*(ONE - |
|0003a2c0| 28 48 4e 2f 44 45 4c 54 | 41 29 2a 2a 32 29 29 2f |(HN/DELT|A)**2))/|
|0003a2d0| 0a 20 20 20 20 20 31 20 | 20 20 20 20 20 20 20 20 |. 1 | |
|0003a2e0| 28 28 54 45 4d 50 20 2d | 20 28 44 45 4c 54 41 2f |((TEMP -| (DELTA/|
|0003a2f0| 51 4e 29 2a 28 48 4e 2f | 44 45 4c 54 41 29 2a 2a |QN)*(HN/|DELTA)**|
|0003a300| 32 29 20 2b 20 41 4c 50 | 48 41 29 0a 20 20 20 20 |2) + ALP|HA). |
|0003a310| 20 20 54 45 4d 50 20 3d | 20 28 4f 4e 45 20 2d 20 | TEMP =| (ONE - |
|0003a320| 41 4c 50 48 41 29 2a 48 | 4e 0a 20 20 20 20 20 20 |ALPHA)*H|N. |
|0003a330| 44 4f 20 31 38 30 20 49 | 20 3d 20 31 2c 4e 0a 20 |DO 180 I| = 1,N. |
|0003a340| 20 20 20 20 20 20 20 20 | 57 41 31 28 49 29 20 3d | |WA1(I) =|
|0003a350| 20 54 45 4d 50 2a 57 41 | 32 28 49 29 20 2b 20 41 | TEMP*WA|2(I) + A|
|0003a360| 4c 50 48 41 2a 57 41 31 | 28 49 29 0a 20 31 38 30 |LPHA*WA1|(I). 180|
|0003a370| 20 20 20 20 20 43 4f 4e | 54 49 4e 55 45 0a 20 31 | CON|TINUE. 1|
|0003a380| 39 30 20 20 43 4f 4e 54 | 49 4e 55 45 0a 20 20 20 |90 CONT|INUE. |
|0003a390| 20 20 20 50 4e 20 3d 20 | 44 4d 49 4e 31 28 44 45 | PN = |DMIN1(DE|
|0003a3a0| 4c 54 41 2c 51 4e 29 0a | 43 2a 2a 2a 2a 2a 2a 2a |LTA,QN).|C*******|
|0003a3b0| 2a 2a 2a 0a 43 0a 43 20 | 20 20 20 20 54 45 53 54 |***.C.C | TEST|
|0003a3c0| 20 46 4f 52 20 53 55 43 | 43 45 53 53 46 55 4c 20 | FOR SUC|CESSFUL |
|0003a3d0| 49 54 45 52 41 54 49 4f | 4e 20 41 4e 44 20 43 48 |ITERATIO|N AND CH|
|0003a3e0| 41 4e 47 45 20 4f 46 20 | 49 54 45 52 41 54 45 2e |ANGE OF |ITERATE.|
|0003a3f0| 20 54 48 45 20 54 45 53 | 54 0a 43 20 20 20 20 20 | THE TES|T.C |
|0003a400| 44 45 54 45 52 4d 49 4e | 45 53 20 54 48 45 20 52 |DETERMIN|ES THE R|
|0003a410| 41 54 49 4f 20 4f 46 20 | 41 43 54 55 41 4c 20 54 |ATIO OF |ACTUAL T|
|0003a420| 4f 20 50 52 45 44 49 43 | 54 45 44 20 52 45 44 55 |O PREDIC|TED REDU|
|0003a430| 43 54 49 4f 4e 2e 0a 43 | 0a 43 2a 2a 2a 2a 2a 2a |CTION..C|.C******|
|0003a440| 2a 2a 2a 2a 0a 43 0a 43 | 20 20 20 20 20 4c 49 4d |****.C.C| LIM|
|0003a450| 49 54 20 54 48 45 20 4d | 41 47 4e 49 54 55 44 45 |IT THE M|AGNITUDE|
|0003a460| 20 4f 46 20 57 41 49 20 | 49 46 20 4e 45 43 45 53 | OF WAI |IF NECES|
|0003a470| 53 41 52 59 0a 43 0a 20 | 20 20 20 20 20 58 4d 41 |SARY.C. | XMA|
|0003a480| 58 20 3d 20 57 4d 41 58 | 20 0a 20 20 20 20 20 20 |X = WMAX| . |
|0003a490| 44 4f 20 31 39 32 20 49 | 20 3d 20 31 2c 4e 0a 20 |DO 192 I| = 1,N. |
|0003a4a0| 20 20 20 20 20 44 57 41 | 31 3d 44 41 42 53 28 57 | DWA|1=DABS(W|
|0003a4b0| 41 31 28 49 29 29 0a 20 | 20 20 20 20 20 49 46 28 |A1(I)). | IF(|
|0003a4c0| 44 57 41 31 2e 47 54 2e | 58 4d 41 58 29 20 58 4d |DWA1.GT.|XMAX) XM|
|0003a4d0| 41 58 20 3d 20 44 57 41 | 31 0a 20 31 39 32 20 20 |AX = DWA|1. 192 |
|0003a4e0| 43 4f 4e 54 49 4e 55 45 | 0a 20 20 20 20 20 20 44 |CONTINUE|. D|
|0003a4f0| 4f 20 31 39 34 20 49 20 | 3d 20 31 2c 4e 0a 20 20 |O 194 I |= 1,N. |
|0003a500| 20 20 20 20 57 41 31 28 | 49 29 20 3d 20 57 41 31 | WA1(|I) = WA1|
|0003a510| 28 49 29 20 2a 20 57 4d | 41 58 2f 58 4d 41 58 0a |(I) * WM|AX/XMAX.|
|0003a520| 20 31 39 34 20 20 43 4f | 4e 54 49 4e 55 45 0a 43 | 194 CO|NTINUE.C|
|0003a530| 0a 43 0a 43 20 20 20 20 | 20 54 45 4d 50 4f 52 41 |.C.C | TEMPORA|
|0003a540| 52 49 4c 59 20 53 54 4f | 52 45 20 58 20 2b 20 50 |RILY STO|RE X + P|
|0003a550| 20 49 4e 20 57 41 32 2e | 0a 43 0a 20 20 20 20 20 | IN WA2.|.C. |
|0003a560| 20 44 4f 20 32 30 30 20 | 49 20 3d 20 31 2c 4e 0a | DO 200 |I = 1,N.|
|0003a570| 20 20 20 20 20 20 20 20 | 20 57 41 32 28 49 29 20 | | WA2(I) |
|0003a580| 3d 20 58 28 49 29 20 2b | 20 57 41 31 28 49 29 0a |= X(I) +| WA1(I).|
|0003a590| 20 32 30 30 20 20 20 20 | 20 43 4f 4e 54 49 4e 55 | 200 | CONTINU|
|0003a5a0| 45 0a 43 0a 43 20 20 20 | 20 20 45 56 41 4c 55 41 |E.C.C | EVALUA|
|0003a5b0| 54 45 20 46 20 41 54 20 | 58 20 2b 20 50 20 41 4e |TE F AT |X + P AN|
|0003a5c0| 44 20 43 41 4c 43 55 4c | 41 54 45 20 54 48 45 20 |D CALCUL|ATE THE |
|0003a5d0| 4e 4f 52 4d 20 4f 46 20 | 46 28 58 2b 50 29 2e 0a |NORM OF |F(X+P)..|
|0003a5e0| 43 0a 20 20 20 20 20 20 | 43 41 4c 4c 20 46 43 4e |C. |CALL FCN|
|0003a5f0| 28 4e 2c 57 41 32 2c 57 | 41 33 2c 49 45 52 2c 0a |(N,WA2,W|A3,IER,.|
|0003a600| 20 20 20 20 20 26 58 50 | 2c 58 57 2c 58 56 2c 58 | &XP|,XW,XV,X|
|0003a610| 56 30 2c 0a 20 20 20 20 | 20 26 58 53 56 2c 58 43 |V0,. | &XSV,XC|
|0003a620| 53 2c 58 52 4f 43 2c 58 | 52 41 43 2c 58 45 4f 43 |S,XROC,X|RAC,XEOC|
|0003a630| 2c 58 43 45 4f 2c 58 52 | 45 4f 2c 0a 20 20 20 20 |,XCEO,XR|EO,. |
|0003a640| 20 26 58 53 45 4f 2c 58 | 45 41 43 2c 58 46 4f 43 | &XSEO,X|EAC,XFOC|
|0003a650| 2c 58 46 41 43 2c 58 46 | 4f 4b 2c 58 52 46 4f 2c |,XFAC,XF|OK,XRFO,|
|0003a660| 58 53 46 4f 2c 0a 20 20 | 20 20 20 26 58 46 41 4b |XSFO,. | &XFAK|
|0003a670| 2c 58 41 4d 2c 58 42 4d | 2c 58 43 4d 2c 58 42 30 |,XAM,XBM|,XCM,XB0|
|0003a680| 2c 58 42 31 2c 58 42 32 | 2c 0a 20 20 20 20 20 26 |,XB1,XB2|,. &|
|0003a690| 58 43 50 2c 58 41 4c 50 | 2c 58 42 50 2c 58 42 47 |XCP,XALP|,XBP,XBG|
|0003a6a0| 2c 58 42 47 50 2c 58 43 | 47 2c 58 50 43 43 2c 0a |,XBGP,XC|G,XPCC,.|
|0003a6b0| 20 20 20 20 20 26 58 45 | 54 48 43 2c 58 45 54 48 | &XE|THC,XETH|
|0003a6c0| 43 50 2c 58 50 41 41 2c | 58 45 54 48 41 2c 58 45 |CP,XPAA,|XETHA,XE|
|0003a6d0| 54 48 41 50 2c 58 50 43 | 43 41 2c 58 50 43 41 41 |THAP,XPC|CA,XPCAA|
|0003a6e0| 2c 0a 20 20 20 20 20 26 | 58 44 43 41 2c 58 50 4e |,. &|XDCA,XPN|
|0003a6f0| 43 2c 58 50 4e 41 2c 58 | 50 4e 4e 2c 58 5a 41 2c |C,XPNA,X|PNN,XZA,|
|0003a700| 58 5a 46 41 2c 58 5a 43 | 2c 0a 20 20 20 20 20 26 |XZFA,XZC|,. &|
|0003a710| 58 5a 46 43 2c 58 47 2c | 58 47 4f 2c 58 47 58 30 |XZFC,XG,|XGO,XGX0|
|0003a720| 2c 58 56 52 54 2c 58 50 | 48 2c 58 50 48 56 2c 0a |,XVRT,XP|H,XPHV,.|
|0003a730| 20 20 20 20 20 26 58 58 | 46 2c 58 47 58 2c 58 41 | &XX|F,XGX,XA|
|0003a740| 43 2c 58 58 2c 58 58 43 | 2c 58 43 41 50 2c 58 43 |C,XX,XXC|,XCAP,XC|
|0003a750| 4f 50 2c 0a 20 20 20 20 | 20 26 58 52 5a 49 52 2c |OP,. | &XRZIR,|
|0003a760| 58 53 43 50 53 49 2c 4e | 58 43 4f 50 2c 4e 58 43 |XSCPSI,N|XCOP,NXC|
|0003a770| 41 50 2c 4e 58 46 2c 49 | 58 43 41 2c 49 58 41 4e |AP,NXF,I|XCA,IXAN|
|0003a780| 2c 0a 20 20 20 20 20 26 | 49 58 4e 55 2c 49 58 50 |,. &|IXNU,IXP|
|0003a790| 54 2c 4e 58 5a 41 2c 4e | 58 5a 50 4f 2c 49 58 59 |T,NXZA,N|XZPO,IXY|
|0003a7a0| 2c 49 58 4e 43 41 4c 2c | 49 58 45 51 2c 0a 20 20 |,IXNCAL,|IXEQ,. |
|0003a7b0| 20 20 20 26 49 58 45 48 | 2c 49 58 43 4e 2c 49 58 | &IXEH|,IXCN,IX|
|0003a7c0| 53 54 2c 49 49 44 43 2c | 49 4e 50 53 49 29 0a 20 |ST,IIDC,|INPSI). |
|0003a7d0| 20 20 20 20 20 4e 46 45 | 56 41 4c 20 3d 20 4e 46 | NFE|VAL = NF|
|0003a7e0| 45 56 41 4c 20 2b 20 31 | 0a 20 20 20 20 20 20 49 |EVAL + 1|. I|
|0003a7f0| 46 20 28 49 45 52 20 2e | 4c 54 2e 20 30 29 20 47 |F (IER .|LT. 0) G|
|0003a800| 4f 20 54 4f 20 33 32 30 | 0a 20 20 20 20 20 20 46 |O TO 320|. F|
|0003a810| 50 31 4e 3d 45 4e 4f 52 | 4d 28 4e 2c 57 41 33 29 |P1N=ENOR|M(N,WA3)|
|0003a820| 0a 43 0a 43 20 20 20 20 | 20 44 45 54 45 52 4d 49 |.C.C | DETERMI|
|0003a830| 4e 45 20 54 48 45 20 52 | 41 54 49 4f 20 4f 46 20 |NE THE R|ATIO OF |
|0003a840| 41 43 54 55 41 4c 20 54 | 4f 20 50 52 45 44 49 43 |ACTUAL T|O PREDIC|
|0003a850| 54 45 44 20 52 45 44 55 | 43 54 49 4f 4e 2e 0a 43 |TED REDU|CTION..C|
|0003a860| 0a 20 20 20 20 20 20 52 | 41 54 49 4f 20 3d 20 5a |. R|ATIO = Z|
|0003a870| 45 52 4f 0a 20 20 20 20 | 20 20 49 46 20 28 46 50 |ERO. | IF (FP|
|0003a880| 31 4e 20 2e 47 45 2e 20 | 46 4e 29 20 47 4f 20 54 |1N .GE. |FN) GO T|
|0003a890| 4f 20 32 31 30 0a 20 20 | 20 20 20 20 54 45 4d 50 |O 210. | TEMP|
|0003a8a0| 20 3d 20 5a 45 52 4f 0a | 20 20 20 20 20 20 49 46 | = ZERO.| IF|
|0003a8b0| 20 28 51 4e 20 2e 47 54 | 2e 20 44 45 4c 54 41 29 | (QN .GT|. DELTA)|
|0003a8c0| 20 54 45 4d 50 20 3d 0a | 20 20 20 20 20 31 20 20 | TEMP =.| 1 |
|0003a8d0| 20 28 28 4f 4e 45 20 2d | 20 41 4c 50 48 41 29 2a | ((ONE -| ALPHA)*|
|0003a8e0| 2a 32 29 2a 28 4f 4e 45 | 20 2d 20 28 28 47 4e 2f |*2)*(ONE| - ((GN/|
|0003a8f0| 52 47 4e 29 2f 46 4e 29 | 2a 2a 32 29 0a 20 20 20 |RGN)/FN)|**2). |
|0003a900| 20 20 20 49 46 20 28 54 | 45 4d 50 20 2e 4c 54 2e | IF (T|EMP .LT.|
|0003a910| 20 4f 4e 45 29 20 52 41 | 54 49 4f 20 3d 20 28 4f | ONE) RA|TIO = (O|
|0003a920| 4e 45 20 2d 20 28 46 50 | 31 4e 2f 46 4e 29 2a 2a |NE - (FP|1N/FN)**|
|0003a930| 32 29 2f 28 4f 4e 45 20 | 2d 20 54 45 4d 50 29 0a |2)/(ONE |- TEMP).|
|0003a940| 20 32 31 30 20 20 43 4f | 4e 54 49 4e 55 45 0a 43 | 210 CO|NTINUE.C|
|0003a950| 0a 43 20 20 20 20 20 43 | 48 41 4e 47 45 20 4f 46 |.C C|HANGE OF|
|0003a960| 20 49 54 45 52 41 54 45 | 2e 0a 43 0a 20 20 20 20 | ITERATE|..C. |
|0003a970| 20 20 49 46 20 28 52 41 | 54 49 4f 20 2e 47 45 2e | IF (RA|TIO .GE.|
|0003a980| 20 50 30 30 30 31 29 20 | 20 47 4f 20 54 4f 20 32 | P0001) | GO TO 2|
|0003a990| 33 30 0a 43 0a 43 20 20 | 20 20 20 49 4e 53 55 46 |30.C.C | INSUF|
|0003a9a0| 46 49 43 49 45 4e 54 20 | 44 45 43 52 45 41 53 45 |FICIENT |DECREASE|
|0003a9b0| 20 4f 46 20 52 45 53 49 | 44 55 41 4c 53 2e 0a 43 | OF RESI|DUALS..C|
|0003a9c0| 20 20 20 20 20 43 4f 4d | 50 55 54 45 20 59 20 3d | COM|PUTE Y =|
|0003a9d0| 20 46 28 58 2b 50 29 20 | 2d 20 46 28 58 29 20 41 | F(X+P) |- F(X) A|
|0003a9e0| 4e 44 20 53 54 4f 52 45 | 20 49 4e 20 57 41 32 2e |ND STORE| IN WA2.|
|0003a9f0| 0a 43 0a 20 20 20 20 20 | 20 44 4f 20 32 32 30 20 |.C. | DO 220 |
|0003aa00| 49 20 3d 20 31 2c 4e 0a | 20 20 20 20 20 20 20 20 |I = 1,N.| |
|0003aa10| 20 57 41 32 28 49 29 20 | 3d 20 57 41 33 28 49 29 | WA2(I) |= WA3(I)|
|0003aa20| 20 2d 20 46 28 49 29 0a | 20 32 32 30 20 20 20 20 | - F(I).| 220 |
|0003aa30| 20 43 4f 4e 54 49 4e 55 | 45 0a 20 20 20 20 20 20 | CONTINU|E. |
|0003aa40| 47 4f 20 54 4f 20 32 35 | 30 0a 43 0a 43 20 20 20 |GO TO 25|0.C.C |
|0003aa50| 20 20 53 55 46 46 49 43 | 49 45 4e 54 20 44 45 43 | SUFFIC|IENT DEC|
|0003aa60| 52 45 41 53 45 20 4f 46 | 20 52 45 53 49 44 55 41 |REASE OF| RESIDUA|
|0003aa70| 4c 53 2e 0a 43 20 20 20 | 20 20 43 4f 4d 50 55 54 |LS..C | COMPUT|
|0003aa80| 45 20 59 20 41 4e 44 20 | 55 50 44 41 54 45 20 58 |E Y AND |UPDATE X|
|0003aa90| 20 41 4e 44 20 46 2e 0a | 43 0a 20 32 33 30 20 20 | AND F..|C. 230 |
|0003aaa0| 43 4f 4e 54 49 4e 55 45 | 0a 20 20 20 20 20 20 44 |CONTINUE|. D|
|0003aab0| 4f 20 32 34 30 20 49 20 | 3d 20 31 2c 4e 0a 20 20 |O 240 I |= 1,N. |
|0003aac0| 20 20 20 20 20 20 20 58 | 28 49 29 20 3d 20 57 41 | X|(I) = WA|
|0003aad0| 32 28 49 29 0a 20 20 20 | 20 20 20 20 20 20 57 41 |2(I). | WA|
|0003aae0| 32 28 49 29 20 3d 20 57 | 41 33 28 49 29 20 2d 20 |2(I) = W|A3(I) - |
|0003aaf0| 46 28 49 29 0a 20 20 20 | 20 20 20 20 20 20 46 28 |F(I). | F(|
|0003ab00| 49 29 20 3d 20 57 41 33 | 28 49 29 0a 20 32 34 30 |I) = WA3|(I). 240|
|0003ab10| 20 20 20 20 20 43 4f 4e | 54 49 4e 55 45 0a 20 20 | CON|TINUE. |
|0003ab20| 20 20 20 20 58 4e 3d 45 | 4e 4f 52 4d 28 4e 2c 58 | XN=E|NORM(N,X|
|0003ab30| 29 0a 20 20 20 20 20 20 | 46 4e 20 3d 20 46 50 31 |). |FN = FP1|
|0003ab40| 4e 0a 43 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 43 0a |N.C*****|*****.C.|
|0003ab50| 43 20 20 20 20 20 43 4f | 4e 56 45 52 47 45 4e 43 |C CO|NVERGENC|
|0003ab60| 45 20 54 45 53 54 53 2e | 0a 43 0a 43 2a 2a 2a 2a |E TESTS.|.C.C****|
|0003ab70| 2a 2a 2a 2a 2a 2a 0a 20 | 20 20 20 20 20 49 46 20 |******. | IF |
|0003ab80| 28 46 4e 20 2e 4c 45 2e | 20 46 54 4f 4c 29 20 49 |(FN .LE.| FTOL) I|
|0003ab90| 45 52 20 3d 20 31 0a 20 | 20 20 20 20 20 49 46 20 |ER = 1. | IF |
|0003aba0| 28 51 4e 20 2e 4c 45 2e | 20 58 54 4f 4c 2a 58 4e |(QN .LE.| XTOL*XN|
|0003abb0| 29 20 49 45 52 20 3d 20 | 32 0a 20 20 20 20 20 20 |) IER = |2. |
|0003abc0| 49 46 20 28 46 4e 20 2e | 4c 45 2e 20 46 54 4f 4c |IF (FN .|LE. FTOL|
|0003abd0| 20 2e 41 4e 44 2e 20 49 | 45 52 20 2e 45 51 2e 20 | .AND. I|ER .EQ. |
|0003abe0| 32 29 20 49 45 52 20 3d | 20 33 0a 20 20 20 20 20 |2) IER =| 3. |
|0003abf0| 20 49 46 20 28 49 45 52 | 20 2e 4e 45 2e 20 30 29 | IF (IER| .NE. 0)|
|0003ac00| 20 47 4f 20 54 4f 20 33 | 32 30 0a 20 32 35 30 20 | GO TO 3|20. 250 |
|0003ac10| 20 43 4f 4e 54 49 4e 55 | 45 0a 43 2a 2a 2a 2a 2a | CONTINU|E.C*****|
|0003ac20| 2a 2a 2a 2a 2a 0a 43 0a | 43 20 20 20 20 20 55 50 |*****.C.|C UP|
|0003ac30| 44 41 54 49 4e 47 20 53 | 54 45 50 20 42 4f 55 4e |DATING S|TEP BOUN|
|0003ac40| 44 2e 0a 43 0a 43 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |D..C.C**|********|
|0003ac50| 0a 20 20 20 20 20 20 49 | 46 20 28 52 41 54 49 4f |. I|F (RATIO|
|0003ac60| 20 2e 47 45 2e 20 50 31 | 29 20 47 4f 20 54 4f 20 | .GE. P1|) GO TO |
|0003ac70| 32 36 30 0a 43 0a 43 20 | 20 20 20 20 55 4e 53 55 |260.C.C | UNSU|
|0003ac80| 43 43 45 53 53 46 55 4c | 20 49 54 45 52 41 54 49 |CCESSFUL| ITERATI|
|0003ac90| 4f 4e 2e 0a 43 0a 20 20 | 20 20 20 20 4e 43 53 55 |ON..C. | NCSU|
|0003aca0| 43 20 3d 20 30 0a 20 20 | 20 20 20 20 4e 43 46 41 |C = 0. | NCFA|
|0003acb0| 49 4c 20 3d 20 4e 43 46 | 41 49 4c 20 2b 20 31 0a |IL = NCF|AIL + 1.|
|0003acc0| 20 20 20 20 20 20 44 45 | 4c 54 41 20 3d 20 50 35 | DE|LTA = P5|
|0003acd0| 2a 44 45 4c 54 41 0a 20 | 20 20 20 20 20 47 4f 20 |*DELTA. | GO |
|0003ace0| 54 4f 20 32 37 30 0a 43 | 0a 43 20 20 20 20 20 53 |TO 270.C|.C S|
|0003acf0| 55 43 43 45 53 53 46 55 | 4c 20 49 54 45 52 41 54 |UCCESSFU|L ITERAT|
|0003ad00| 49 4f 4e 2e 0a 43 0a 20 | 32 36 30 20 20 43 4f 4e |ION..C. |260 CON|
|0003ad10| 54 49 4e 55 45 0a 20 20 | 20 20 20 20 4e 43 46 41 |TINUE. | NCFA|
|0003ad20| 49 4c 20 3d 20 30 0a 20 | 20 20 20 20 20 4e 43 53 |IL = 0. | NCS|
|0003ad30| 55 43 20 3d 20 4e 43 53 | 55 43 20 2b 20 31 0a 20 |UC = NCS|UC + 1. |
|0003ad40| 20 20 20 20 20 49 46 20 | 28 4e 43 53 55 43 20 2e | IF |(NCSUC .|
|0003ad50| 47 54 2e 20 31 20 2e 4f | 52 2e 20 52 41 54 49 4f |GT. 1 .O|R. RATIO|
|0003ad60| 20 2e 47 45 2e 20 4f 4e | 45 29 0a 20 20 20 20 20 | .GE. ON|E). |
|0003ad70| 31 20 20 20 20 44 45 4c | 54 41 20 3d 20 44 4d 41 |1 DEL|TA = DMA|
|0003ad80| 58 31 28 44 45 4c 54 41 | 2c 50 4e 2f 50 35 29 0a |X1(DELTA|,PN/P5).|
|0003ad90| 20 32 37 30 20 20 43 4f | 4e 54 49 4e 55 45 0a 43 | 270 CO|NTINUE.C|
|0003ada0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0a 43 0a 43 20 20 |********|**.C.C |
|0003adb0| 20 20 20 55 50 44 41 54 | 49 4e 47 20 4f 46 20 4a | UPDAT|ING OF J|
|0003adc0| 41 43 4f 42 49 41 4e 20 | 41 50 50 52 4f 58 49 4d |ACOBIAN |APPROXIM|
|0003add0| 41 54 49 4f 4e 2e 0a 43 | 0a 43 2a 2a 2a 2a 2a 2a |ATION..C|.C******|
|0003ade0| 2a 2a 2a 2a 0a 43 0a 43 | 20 20 20 20 20 43 41 4c |****.C.C| CAL|
|0003adf0| 43 55 4c 41 54 45 20 28 | 51 20 54 52 41 4e 53 50 |CULATE (|Q TRANSP|
|0003ae00| 4f 53 45 29 2a 59 20 41 | 4e 44 20 53 54 4f 52 45 |OSE)*Y A|ND STORE|
|0003ae10| 20 54 48 45 20 52 45 53 | 55 4c 54 20 49 4e 20 57 | THE RES|ULT IN W|
|0003ae20| 41 33 2e 0a 43 0a 20 20 | 20 20 20 20 44 4f 20 32 |A3..C. | DO 2|
|0003ae30| 39 30 20 4a 20 3d 20 31 | 2c 4e 0a 20 20 20 20 20 |90 J = 1|,N. |
|0003ae40| 20 20 20 20 53 55 4d 20 | 3d 20 5a 45 52 4f 0a 20 | SUM |= ZERO. |
|0003ae50| 20 20 20 20 20 20 20 20 | 44 4f 20 32 38 30 20 49 | |DO 280 I|
|0003ae60| 20 3d 20 31 2c 4e 0a 20 | 20 20 20 20 20 20 20 20 | = 1,N. | |
|0003ae70| 20 20 20 53 55 4d 20 3d | 20 53 55 4d 20 2b 20 51 | SUM =| SUM + Q|
|0003ae80| 28 49 2c 4a 29 2a 57 41 | 32 28 49 29 0a 20 32 38 |(I,J)*WA|2(I). 28|
|0003ae90| 30 20 20 20 20 20 20 20 | 20 43 4f 4e 54 49 4e 55 |0 | CONTINU|
|0003aea0| 45 0a 20 20 20 20 20 20 | 20 20 20 57 41 33 28 4a |E. | WA3(J|
|0003aeb0| 29 20 3d 20 53 55 4d 0a | 20 32 39 30 20 20 20 20 |) = SUM.| 290 |
|0003aec0| 20 43 4f 4e 54 49 4e 55 | 45 0a 43 0a 43 20 20 20 | CONTINU|E.C.C |
|0003aed0| 20 20 43 41 4c 43 55 4c | 41 54 45 20 28 28 51 20 | CALCUL|ATE ((Q |
|0003aee0| 54 52 41 4e 53 50 4f 53 | 45 29 2a 59 20 2d 20 52 |TRANSPOS|E)*Y - R|
|0003aef0| 2a 50 29 2f 50 4e 20 41 | 4e 44 20 53 54 4f 52 45 |*P)/PN A|ND STORE|
|0003af00| 20 49 4e 20 57 41 32 2e | 0a 43 20 20 20 20 20 4e | IN WA2.|.C N|
|0003af10| 4f 52 4d 41 4c 49 5a 45 | 20 54 48 45 20 44 49 52 |ORMALIZE| THE DIR|
|0003af20| 45 43 54 49 4f 4e 20 50 | 2e 0a 43 0a 20 20 20 20 |ECTION P|..C. |
|0003af30| 20 20 49 4a 20 3d 20 30 | 0a 20 20 20 20 20 20 44 | IJ = 0|. D|
|0003af40| 4f 20 33 31 30 20 49 20 | 3d 20 31 2c 4e 0a 20 20 |O 310 I |= 1,N. |
|0003af50| 20 20 20 20 20 20 20 53 | 55 4d 20 3d 20 5a 45 52 | S|UM = ZER|
|0003af60| 4f 0a 20 20 20 20 20 20 | 20 20 20 44 4f 20 33 30 |O. | DO 30|
|0003af70| 30 20 4a 20 3d 20 49 2c | 4e 0a 20 20 20 20 20 20 |0 J = I,|N. |
|0003af80| 20 20 20 20 20 20 49 4a | 20 3d 20 49 4a 20 2b 20 | IJ| = IJ + |
|0003af90| 31 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 53 55 |1. | SU|
|0003afa0| 4d 20 3d 20 53 55 4d 20 | 2b 20 52 57 41 28 49 4a |M = SUM |+ RWA(IJ|
|0003afb0| 29 2a 57 41 31 28 4a 29 | 0a 20 33 30 30 20 20 20 |)*WA1(J)|. 300 |
|0003afc0| 20 20 20 20 20 43 4f 4e | 54 49 4e 55 45 0a 20 20 | CON|TINUE. |
|0003afd0| 20 20 20 20 20 20 20 57 | 41 32 28 49 29 20 3d 20 | W|A2(I) = |
|0003afe0| 28 57 41 33 28 49 29 20 | 2d 20 53 55 4d 29 2f 50 |(WA3(I) |- SUM)/P|
|0003aff0| 4e 0a 20 20 20 20 20 20 | 20 20 20 57 41 31 28 49 |N. | WA1(I|
|0003b000| 29 20 3d 20 57 41 31 28 | 49 29 2f 50 4e 0a 20 33 |) = WA1(|I)/PN. 3|
|0003b010| 31 30 20 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a |10 C|ONTINUE.|
|0003b020| 43 0a 43 20 20 20 20 20 | 43 4f 4d 50 55 54 45 20 |C.C |COMPUTE |
|0003b030| 54 48 45 20 4e 45 57 20 | 51 52 20 44 45 43 4f 4d |THE NEW |QR DECOM|
|0003b040| 50 4f 53 49 54 49 4f 4e | 20 4f 46 20 41 50 50 52 |POSITION| OF APPR|
|0003b050| 4f 58 49 4d 41 54 45 20 | 4a 41 43 4f 42 49 41 4e |OXIMATE |JACOBIAN|
|0003b060| 2e 0a 43 0a 20 20 20 20 | 20 20 43 41 4c 4c 20 51 |..C. | CALL Q|
|0003b070| 52 4d 44 46 59 28 4e 2c | 51 2c 4c 52 57 41 2c 52 |RMDFY(N,|Q,LRWA,R|
|0003b080| 57 41 2c 57 41 31 2c 57 | 41 32 2c 53 49 4e 47 29 |WA,WA1,W|A2,SING)|
|0003b090| 0a 43 0a 43 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 43 |.C.C****|******.C|
|0003b0a0| 0a 43 20 20 20 20 20 44 | 45 54 45 52 4d 49 4e 45 |.C D|ETERMINE|
|0003b0b0| 20 54 48 45 20 50 52 4f | 47 52 45 53 53 20 4f 46 | THE PRO|GRESS OF|
|0003b0c0| 20 54 48 45 20 49 54 45 | 52 41 54 49 4f 4e 2e 0a | THE ITE|RATION..|
|0003b0d0| 43 0a 43 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 20 20 |C.C*****|*****. |
|0003b0e0| 20 20 20 20 4e 43 4f 4e | 56 20 3d 20 4e 43 4f 4e | NCON|V = NCON|
|0003b0f0| 56 20 2b 20 31 0a 20 20 | 20 20 20 20 49 46 20 28 |V + 1. | IF (|
|0003b100| 46 4e 20 2e 47 54 2e 20 | 45 50 53 20 2e 41 4e 44 |FN .GT. |EPS .AND|
|0003b110| 2e 20 51 4e 20 2e 47 54 | 2e 20 45 50 53 2a 58 4e |. QN .GT|. EPS*XN|
|0003b120| 29 20 4e 43 4f 4e 56 20 | 3d 20 30 0a 20 20 20 20 |) NCONV |= 0. |
|0003b130| 20 20 49 46 20 28 4d 4f | 44 28 4e 43 53 55 43 2c | IF (MO|D(NCSUC,|
|0003b140| 35 29 20 2e 4c 45 2e 20 | 31 29 20 54 45 4d 50 31 |5) .LE. |1) TEMP1|
|0003b150| 20 3d 20 46 4e 0a 20 20 | 20 20 20 20 49 46 20 28 | = FN. | IF (|
|0003b160| 4d 4f 44 28 49 54 45 52 | 2c 4e 54 52 59 29 20 2e |MOD(ITER|,NTRY) .|
|0003b170| 45 51 2e 20 31 29 20 54 | 45 4d 50 32 20 3d 20 46 |EQ. 1) T|EMP2 = F|
|0003b180| 4e 0a 43 0a 43 20 20 20 | 20 20 43 52 49 54 45 52 |N.C.C | CRITER|
|0003b190| 49 41 20 46 4f 52 20 45 | 56 41 4c 55 41 54 49 4f |IA FOR E|VALUATIO|
|0003b1a0| 4e 20 4f 46 20 54 48 45 | 20 4a 41 43 4f 42 49 41 |N OF THE| JACOBIA|
|0003b1b0| 4e 20 41 50 50 52 4f 58 | 49 4d 41 54 49 4f 4e 2e |N APPROX|IMATION.|
|0003b1c0| 0a 43 0a 20 20 20 20 20 | 20 49 46 20 28 4d 4f 44 |.C. | IF (MOD|
|0003b1d0| 28 4e 43 53 55 43 2c 31 | 30 29 20 2e 45 51 2e 20 |(NCSUC,1|0) .EQ. |
|0003b1e0| 30 20 2e 41 4e 44 2e 20 | 4e 43 53 55 43 20 2e 4e |0 .AND. |NCSUC .N|
|0003b1f0| 45 2e 20 30 0a 20 20 20 | 20 20 31 20 20 20 20 2e |E. 0. | 1 .|
|0003b200| 41 4e 44 2e 20 46 4e 20 | 2e 47 45 2e 20 50 31 2a |AND. FN |.GE. P1*|
|0003b210| 54 45 4d 50 31 29 20 4a | 45 56 41 4c 20 3d 20 2e |TEMP1) J|EVAL = .|
|0003b220| 54 52 55 45 2e 0a 20 20 | 20 20 20 20 49 46 20 28 |TRUE.. | IF (|
|0003b230| 4e 43 46 41 49 4c 20 2e | 45 51 2e 20 32 29 20 4a |NCFAIL .|EQ. 2) J|
|0003b240| 45 56 41 4c 20 3d 20 2e | 54 52 55 45 2e 0a 43 0a |EVAL = .|TRUE..C.|
|0003b250| 43 20 20 20 20 20 43 52 | 49 54 45 52 49 41 20 46 |C CR|ITERIA F|
|0003b260| 4f 52 20 54 45 52 4d 49 | 4e 41 54 49 4f 4e 2e 0a |OR TERMI|NATION..|
|0003b270| 43 0a 20 20 20 20 20 20 | 49 46 20 28 4e 46 45 56 |C. |IF (NFEV|
|0003b280| 41 4c 20 2e 47 45 2e 20 | 4d 41 58 46 45 56 29 20 |AL .GE. |MAXFEV) |
|0003b290| 49 45 52 20 3d 20 34 0a | 20 20 20 20 20 20 49 46 |IER = 4.| IF|
|0003b2a0| 20 28 4d 4f 44 28 49 54 | 45 52 2c 4e 54 52 59 29 | (MOD(IT|ER,NTRY)|
|0003b2b0| 20 2e 45 51 2e 20 30 20 | 2e 41 4e 44 2e 20 54 45 | .EQ. 0 |.AND. TE|
|0003b2c0| 4d 50 32 2d 46 4e 20 2e | 4c 54 2e 20 50 30 31 2a |MP2-FN .|LT. P01*|
|0003b2d0| 54 45 4d 50 32 29 20 49 | 45 52 20 3d 20 35 0a 20 |TEMP2) I|ER = 5. |
|0003b2e0| 20 20 20 20 20 49 46 20 | 28 4e 43 4f 4e 56 20 2e | IF |(NCONV .|
|0003b2f0| 45 51 2e 20 31 35 29 20 | 49 45 52 20 3d 20 36 0a |EQ. 15) |IER = 6.|
|0003b300| 20 20 20 20 20 20 49 46 | 20 28 44 45 4c 54 41 20 | IF| (DELTA |
|0003b310| 2e 4c 45 2e 20 45 50 53 | 4d 43 48 2a 58 4e 29 20 |.LE. EPS|MCH*XN) |
|0003b320| 49 45 52 20 3d 20 37 0a | 43 2a 2a 2a 2a 2a 2a 2a |IER = 7.|C*******|
|0003b330| 2a 2a 2a 0a 43 0a 43 20 | 20 20 20 20 45 4e 44 20 |***.C.C | END |
|0003b340| 4f 46 20 4d 41 49 4e 20 | 4c 4f 4f 50 2e 0a 43 0a |OF MAIN |LOOP..C.|
|0003b350| 43 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0a 20 20 20 20 |C*******|***. |
|0003b360| 20 20 49 46 20 28 49 45 | 52 20 2e 45 51 2e 20 30 | IF (IE|R .EQ. 0|
|0003b370| 29 20 47 4f 20 54 4f 20 | 31 30 0a 20 33 32 30 20 |) GO TO |10. 320 |
|0003b380| 20 43 4f 4e 54 49 4e 55 | 45 0a 20 20 20 20 20 20 | CONTINU|E. |
|0003b390| 4d 41 58 46 45 56 20 3d | 20 4e 46 45 56 41 4c 0a |MAXFEV =| NFEVAL.|
|0003b3a0| 20 20 20 20 20 20 52 45 | 54 55 52 4e 0a 43 0a 43 | RE|TURN.C.C|
|0003b3b0| 20 20 20 20 20 4c 41 53 | 54 20 43 41 52 44 20 4f | LAS|T CARD O|
|0003b3c0| 46 20 53 55 42 52 4f 55 | 54 49 4e 45 20 48 59 42 |F SUBROU|TINE HYB|
|0003b3d0| 52 44 4d 2e 0a 43 0a 20 | 20 20 20 20 20 45 4e 44 |RDM..C. | END|
|0003b3e0| 0a 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |.CCCCCCC|CCCCCCCC|
|0003b3f0| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|0003b400| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|0003b410| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|0003b420| 43 43 43 43 43 43 43 43 | 0a 43 0a 43 20 20 20 54 |CCCCCCCC|.C.C T|
|0003b430| 49 54 4c 45 3a 20 51 52 | 4d 44 46 59 0a 43 0a 43 |ITLE: QR|MDFY.C.C|
|0003b440| 20 20 20 47 49 56 45 4e | 20 4e 20 42 59 20 4e 20 | GIVEN| N BY N |
|0003b450| 4d 41 54 52 49 43 45 53 | 20 51 20 41 4e 44 20 52 |MATRICES| Q AND R|
|0003b460| 20 57 49 54 48 20 51 20 | 4f 52 54 48 4f 47 4f 4e | WITH Q |ORTHOGON|
|0003b470| 41 4c 20 41 4e 44 20 52 | 20 55 50 50 45 52 0a 43 |AL AND R| UPPER.C|
|0003b480| 20 20 20 54 52 49 41 4e | 47 55 4c 41 52 2c 20 41 | TRIAN|GULAR, A|
|0003b490| 4e 44 20 56 45 43 54 4f | 52 53 20 57 41 31 20 41 |ND VECTO|RS WA1 A|
|0003b4a0| 4e 44 20 57 41 32 20 4f | 46 20 4c 45 4e 47 54 48 |ND WA2 O|F LENGTH|
|0003b4b0| 20 4e 2c 20 44 45 46 49 | 4e 45 0a 43 0a 43 20 20 | N, DEFI|NE.C.C |
|0003b4c0| 20 20 20 20 20 20 42 20 | 3d 20 51 2a 28 52 20 2b | B |= Q*(R +|
|0003b4d0| 20 28 57 41 32 29 2a 28 | 57 41 31 29 27 29 0a 43 | (WA2)*(|WA1)').C|
|0003b4e0| 0a 43 20 20 20 54 48 49 | 53 20 53 55 42 52 4f 55 |.C THI|S SUBROU|
|0003b4f0| 54 49 4e 45 20 55 53 45 | 53 20 50 4c 41 4e 45 20 |TINE USE|S PLANE |
|0003b500| 52 4f 54 41 54 49 4f 4e | 53 20 54 4f 20 4f 42 54 |ROTATION|S TO OBT|
|0003b510| 41 49 4e 20 54 48 45 20 | 51 52 20 44 45 43 4f 4d |AIN THE |QR DECOM|
|0003b520| 50 4f 53 49 54 49 4f 4e | 0a 43 20 20 20 4f 46 20 |POSITION|.C OF |
|0003b530| 42 2e 20 54 48 55 53 20 | 4f 4e 20 4f 55 54 50 55 |B. THUS |ON OUTPU|
|0003b540| 54 20 51 20 41 4e 44 20 | 52 20 41 52 45 20 54 52 |T Q AND |R ARE TR|
|0003b550| 41 4e 53 46 4f 52 4d 45 | 44 20 53 4f 20 54 48 41 |ANSFORME|D SO THA|
|0003b560| 54 20 42 20 3d 20 51 2a | 52 2e 20 54 48 45 0a 43 |T B = Q*|R. THE.C|
|0003b570| 20 20 20 4c 4f 47 49 43 | 41 4c 20 56 41 52 49 41 | LOGIC|AL VARIA|
|0003b580| 42 4c 45 20 53 49 4e 47 | 20 49 53 20 53 45 54 20 |BLE SING| IS SET |
|0003b590| 54 4f 20 54 52 55 45 20 | 49 46 20 41 4e 59 20 4f |TO TRUE |IF ANY O|
|0003b5a0| 46 20 54 48 45 20 44 49 | 41 47 4f 4e 41 4c 0a 43 |F THE DI|AGONAL.C|
|0003b5b0| 20 20 20 45 4c 45 4d 45 | 4e 54 53 20 4f 46 20 54 | ELEME|NTS OF T|
|0003b5c0| 48 45 20 46 49 4e 41 4c | 20 52 20 41 52 45 20 5a |HE FINAL| R ARE Z|
|0003b5d0| 45 52 4f 2e 0a 43 0a 43 | 20 20 20 49 46 20 57 45 |ERO..C.C| IF WE|
|0003b5e0| 20 41 52 45 20 47 49 56 | 45 4e 20 54 48 45 20 51 | ARE GIV|EN THE Q|
|0003b5f0| 52 20 44 45 43 4f 4d 50 | 4f 53 49 54 49 4f 4e 20 |R DECOMP|OSITION |
|0003b600| 4f 46 20 41 20 4d 41 54 | 52 49 58 20 41 20 28 54 |OF A MAT|RIX A (T|
|0003b610| 48 41 54 20 49 53 2c 20 | 51 20 41 4e 44 0a 43 20 |HAT IS, |Q AND.C |
|0003b620| 20 20 52 20 53 55 43 48 | 20 54 48 41 54 20 41 20 | R SUCH| THAT A |
|0003b630| 3d 20 51 2a 52 29 20 41 | 4e 44 20 56 45 43 54 4f |= Q*R) A|ND VECTO|
|0003b640| 52 53 20 55 20 41 4e 44 | 20 56 2c 20 54 48 45 4e |RS U AND| V, THEN|
|0003b650| 20 54 48 49 53 20 53 55 | 42 52 4f 55 54 49 4e 45 | THIS SU|BROUTINE|
|0003b660| 20 43 41 4e 0a 43 20 20 | 20 41 4c 53 4f 20 42 45 | CAN.C | ALSO BE|
|0003b670| 20 55 53 45 44 20 54 4f | 20 43 4f 4d 50 55 54 45 | USED TO| COMPUTE|
|0003b680| 20 54 48 45 20 51 52 20 | 44 45 43 4f 4d 50 4f 53 | THE QR |DECOMPOS|
|0003b690| 49 54 49 4f 4e 20 4f 46 | 20 42 20 3d 20 41 20 2b |ITION OF| B = A +|
|0003b6a0| 20 55 2a 56 27 2e 20 54 | 4f 0a 43 20 20 20 44 4f | U*V'. T|O.C DO|
|0003b6b0| 20 54 48 49 53 20 43 41 | 4c 4c 20 54 48 45 20 53 | THIS CA|LL THE S|
|0003b6c0| 55 42 52 4f 55 54 49 4e | 45 20 57 49 54 48 20 57 |UBROUTIN|E WITH W|
|0003b6d0| 41 32 20 3d 20 51 27 2a | 55 20 41 4e 44 20 57 41 |A2 = Q'*|U AND WA|
|0003b6e0| 31 20 3d 20 56 2e 0a 43 | 0a 43 20 20 20 54 48 45 |1 = V..C|.C THE|
|0003b6f0| 20 53 55 42 52 4f 55 54 | 49 4e 45 20 53 54 41 54 | SUBROUT|INE STAT|
|0003b700| 45 4d 45 4e 54 20 49 53 | 0a 43 0a 43 20 20 20 20 |EMENT IS|.C.C |
|0003b710| 20 20 20 53 55 42 52 4f | 55 54 49 4e 45 20 51 52 | SUBRO|UTINE QR|
|0003b720| 4d 44 46 59 28 4e 2c 51 | 2c 4c 52 57 41 2c 52 57 |MDFY(N,Q|,LRWA,RW|
|0003b730| 41 2c 57 41 31 2c 57 41 | 32 2c 53 49 4e 47 29 0a |A,WA1,WA|2,SING).|
|0003b740| 43 0a 43 20 20 20 57 48 | 45 52 45 0a 43 0a 43 20 |C.C WH|ERE.C.C |
|0003b750| 20 20 20 20 20 20 4e 20 | 49 53 20 41 20 50 4f 53 | N |IS A POS|
|0003b760| 49 54 49 56 45 20 49 4e | 54 45 47 45 52 20 56 41 |ITIVE IN|TEGER VA|
|0003b770| 52 49 41 42 4c 45 2e 0a | 43 0a 43 20 20 20 20 20 |RIABLE..|C.C |
|0003b780| 20 20 51 20 49 53 20 41 | 4e 20 4e 20 42 59 20 4e | Q IS A|N N BY N|
|0003b790| 20 41 52 52 41 59 2e 20 | 4f 4e 20 49 4e 50 55 54 | ARRAY. |ON INPUT|
|0003b7a0| 20 51 20 4d 55 53 54 20 | 42 45 20 4f 52 54 48 4f | Q MUST |BE ORTHO|
|0003b7b0| 47 4f 4e 41 4c 2e 20 4f | 4e 0a 43 20 20 20 20 20 |GONAL. O|N.C |
|0003b7c0| 20 20 20 20 4f 55 54 50 | 55 54 20 51 20 57 49 4c | OUTP|UT Q WIL|
|0003b7d0| 4c 20 42 45 20 43 48 41 | 4e 47 45 44 20 41 53 20 |L BE CHA|NGED AS |
|0003b7e0| 45 58 50 4c 41 49 4e 45 | 44 20 41 42 4f 56 45 2e |EXPLAINE|D ABOVE.|
|0003b7f0| 0a 43 0a 43 20 20 20 20 | 20 20 20 4c 52 57 41 20 |.C.C | LRWA |
|0003b800| 49 53 20 41 4e 20 49 4e | 54 45 47 45 52 20 56 41 |IS AN IN|TEGER VA|
|0003b810| 52 49 41 42 4c 45 20 4e | 4f 54 20 4c 45 53 53 20 |RIABLE N|OT LESS |
|0003b820| 54 48 41 4e 20 28 4e 2a | 28 4e 2b 31 29 29 2f 32 |THAN (N*|(N+1))/2|
|0003b830| 2e 0a 43 0a 43 20 20 20 | 20 20 20 20 52 57 41 20 |..C.C | RWA |
|0003b840| 49 53 20 41 20 4c 49 4e | 45 41 52 20 41 52 52 41 |IS A LIN|EAR ARRA|
|0003b850| 59 20 4f 46 20 4c 45 4e | 47 54 48 20 4c 52 57 41 |Y OF LEN|GTH LRWA|
|0003b860| 2e 20 4f 4e 20 49 4e 50 | 55 54 20 52 57 41 20 53 |. ON INP|UT RWA S|
|0003b870| 48 4f 55 4c 44 0a 43 20 | 20 20 20 20 20 20 20 20 |HOULD.C | |
|0003b880| 43 4f 4e 54 41 49 4e 20 | 54 48 45 20 55 50 50 45 |CONTAIN |THE UPPE|
|0003b890| 52 20 54 52 49 41 4e 47 | 55 4c 41 52 20 4d 41 54 |R TRIANG|ULAR MAT|
|0003b8a0| 52 49 58 20 52 20 53 54 | 4f 52 45 44 20 42 59 20 |RIX R ST|ORED BY |
|0003b8b0| 52 4f 57 53 3b 0a 43 20 | 20 20 20 20 20 20 20 20 |ROWS;.C | |
|0003b8c0| 54 48 55 53 20 54 48 45 | 20 28 49 2c 4a 29 20 45 |THUS THE| (I,J) E|
|0003b8d0| 4c 45 4d 45 4e 54 20 4f | 46 20 52 20 53 48 4f 55 |LEMENT O|F R SHOU|
|0003b8e0| 4c 44 20 42 45 20 49 4e | 20 50 4f 53 49 54 49 4f |LD BE IN| POSITIO|
|0003b8f0| 4e 0a 43 20 20 20 20 20 | 20 20 20 20 28 28 49 2d |N.C | ((I-|
|0003b900| 31 29 2a 28 32 2a 4e 2d | 49 29 29 2f 32 2b 4a 20 |1)*(2*N-|I))/2+J |
|0003b910| 4f 46 20 52 57 41 2e 20 | 4f 4e 20 49 4e 50 55 54 |OF RWA. |ON INPUT|
|0003b920| 20 52 57 41 20 57 49 4c | 4c 20 42 45 20 43 48 41 | RWA WIL|L BE CHA|
|0003b930| 4e 47 45 44 0a 43 20 20 | 20 20 20 20 20 20 20 41 |NGED.C | A|
|0003b940| 53 20 45 58 50 4c 41 49 | 4e 45 44 20 41 42 4f 56 |S EXPLAI|NED ABOV|
|0003b950| 45 2e 0a 43 0a 43 20 20 | 20 20 20 20 20 57 41 31 |E..C.C | WA1|
|0003b960| 20 49 53 20 41 20 4c 49 | 4e 45 41 52 20 41 52 52 | IS A LI|NEAR ARR|
|0003b970| 41 59 20 4f 46 20 4c 45 | 4e 47 54 48 20 4e 2e 20 |AY OF LE|NGTH N. |
|0003b980| 51 52 4d 44 46 59 20 57 | 49 4c 4c 20 4e 4f 54 20 |QRMDFY W|ILL NOT |
|0003b990| 43 48 41 4e 47 45 0a 43 | 20 20 20 20 20 20 20 20 |CHANGE.C| |
|0003b9a0| 20 54 48 45 20 43 4f 4e | 54 45 4e 54 53 20 4f 46 | THE CON|TENTS OF|
|0003b9b0| 20 57 41 31 2e 0a 43 0a | 43 20 20 20 20 20 20 20 | WA1..C.|C |
|0003b9c0| 57 41 32 20 49 53 20 41 | 20 4c 49 4e 45 41 52 20 |WA2 IS A| LINEAR |
|0003b9d0| 41 52 52 41 59 20 4f 46 | 20 4c 45 4e 47 54 48 20 |ARRAY OF| LENGTH |
|0003b9e0| 4e 2e 20 51 52 4d 44 46 | 59 20 57 49 4c 4c 20 44 |N. QRMDF|Y WILL D|
|0003b9f0| 45 53 54 52 4f 59 20 54 | 48 45 0a 43 20 20 20 20 |ESTROY T|HE.C |
|0003ba00| 20 20 20 20 20 43 4f 4e | 54 45 4e 54 53 20 4f 46 | CON|TENTS OF|
|0003ba10| 20 57 41 32 2e 0a 43 0a | 43 20 20 20 20 20 20 20 | WA2..C.|C |
|0003ba20| 53 49 4e 47 20 49 53 20 | 41 20 4c 4f 47 49 43 41 |SING IS |A LOGICA|
|0003ba30| 4c 20 56 41 52 49 41 42 | 4c 45 20 57 48 49 43 48 |L VARIAB|LE WHICH|
|0003ba40| 20 49 53 20 53 45 54 20 | 54 4f 20 54 52 55 45 20 | IS SET |TO TRUE |
|0003ba50| 49 46 20 41 4e 59 20 4f | 46 0a 43 20 20 20 20 20 |IF ANY O|F.C |
|0003ba60| 20 20 20 20 54 48 45 20 | 44 49 41 47 4f 4e 41 4c | THE |DIAGONAL|
|0003ba70| 20 45 4c 45 4d 45 4e 54 | 53 20 4f 46 20 54 48 45 | ELEMENT|S OF THE|
|0003ba80| 20 4f 55 54 50 55 54 20 | 52 20 41 52 45 20 20 5a | OUTPUT |R ARE Z|
|0003ba90| 45 52 4f 3b 0a 43 20 20 | 20 20 20 20 20 20 20 4f |ERO;.C | O|
|0003baa0| 54 48 45 52 57 49 53 45 | 20 49 54 20 49 53 20 53 |THERWISE| IT IS S|
|0003bab0| 45 54 20 54 4f 20 46 41 | 4c 53 45 2e 0a 43 0a 43 |ET TO FA|LSE..C.C|
|0003bac0| 20 20 20 4a 4f 52 47 45 | 20 4a 2e 20 4d 4f 52 45 | JORGE| J. MORE|
|0003bad0| 27 2c 20 41 55 47 55 53 | 54 20 31 39 37 36 0a 43 |', AUGUS|T 1976.C|
|0003bae0| 0a 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |.CCCCCCC|CCCCCCCC|
|0003baf0| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|0003bb00| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|0003bb10| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|0003bb20| 43 43 43 43 43 43 43 43 | 0a 43 0a 20 20 20 20 20 |CCCCCCCC|.C. |
|0003bb30| 20 53 55 42 52 4f 55 54 | 49 4e 45 20 51 52 4d 44 | SUBROUT|INE QRMD|
|0003bb40| 46 59 28 4e 2c 51 2c 4c | 52 57 41 2c 52 57 41 2c |FY(N,Q,L|RWA,RWA,|
|0003bb50| 57 41 31 2c 57 41 32 2c | 53 49 4e 47 29 0a 20 20 |WA1,WA2,|SING). |
|0003bb60| 20 20 20 20 53 41 56 45 | 0a 20 20 20 20 20 20 4c | SAVE|. L|
|0003bb70| 4f 47 49 43 41 4c 20 53 | 49 4e 47 0a 20 20 20 20 |OGICAL S|ING. |
|0003bb80| 20 20 49 4e 54 45 47 45 | 52 20 4e 2c 4c 52 57 41 | INTEGE|R N,LRWA|
|0003bb90| 0a 20 20 20 20 20 20 44 | 4f 55 42 4c 45 20 50 52 |. D|OUBLE PR|
|0003bba0| 45 43 49 53 49 4f 4e 20 | 51 28 4e 2c 4e 29 2c 52 |ECISION |Q(N,N),R|
|0003bbb0| 57 41 28 4c 52 57 41 29 | 2c 57 41 31 28 4e 29 2c |WA(LRWA)|,WA1(N),|
|0003bbc0| 57 41 32 28 4e 29 0a 43 | 0a 20 20 20 20 20 20 49 |WA2(N).C|. I|
|0003bbd0| 4e 54 45 47 45 52 20 49 | 2c 4a 2c 4b 2c 4b 4a 2c |NTEGER I|,J,K,KJ,|
|0003bbe0| 4b 4d 31 44 2c 4b 4d 31 | 4a 2c 4b 4e 2c 4b 4d 31 |KM1D,KM1|J,KN,KM1|
|0003bbf0| 2c 4e 4d 31 0a 20 20 20 | 20 20 20 44 4f 55 42 4c |,NM1. | DOUBL|
|0003bc00| 45 20 50 52 45 43 49 53 | 49 4f 4e 20 43 2c 53 2c |E PRECIS|ION C,S,|
|0003bc10| 4f 4e 45 2c 5a 45 52 4f | 2c 54 45 4d 50 0a 20 20 |ONE,ZERO|,TEMP. |
|0003bc20| 20 20 20 20 44 4f 55 42 | 4c 45 20 50 52 45 43 49 | DOUB|LE PRECI|
|0003bc30| 53 49 4f 4e 20 44 41 42 | 53 2c 44 53 51 52 54 0a |SION DAB|S,DSQRT.|
|0003bc40| 20 20 20 20 20 20 44 41 | 54 41 20 5a 45 52 4f 2c | DA|TA ZERO,|
|0003bc50| 4f 4e 45 20 2f 30 2e 44 | 30 2c 31 2e 44 30 2f 0a |ONE /0.D|0,1.D0/.|
|0003bc60| 20 20 20 20 20 20 53 49 | 4e 47 20 3d 20 2e 46 41 | SI|NG = .FA|
|0003bc70| 4c 53 45 2e 0a 20 20 20 | 20 20 20 49 46 20 28 4e |LSE.. | IF (N|
|0003bc80| 20 2e 45 51 2e 20 31 29 | 20 20 47 4f 20 54 4f 20 | .EQ. 1)| GO TO |
|0003bc90| 36 30 0a 20 20 20 20 20 | 20 4e 4d 31 20 3d 20 4e |60. | NM1 = N|
|0003bca0| 20 2d 20 31 0a 43 0a 43 | 20 20 20 20 20 52 45 44 | - 1.C.C| RED|
|0003bcb0| 55 43 45 20 51 27 2a 42 | 20 54 4f 20 55 50 50 45 |UCE Q'*B| TO UPPE|
|0003bcc0| 52 20 48 45 53 53 45 4e | 42 45 52 47 20 46 4f 52 |R HESSEN|BERG FOR|
|0003bcd0| 4d 20 42 59 20 41 20 53 | 45 51 55 45 4e 43 45 20 |M BY A S|EQUENCE |
|0003bce0| 4f 46 20 50 4c 41 4e 45 | 0a 43 20 20 20 20 20 52 |OF PLANE|.C R|
|0003bcf0| 4f 54 41 54 49 4f 4e 53 | 2e 0a 43 0a 20 20 20 20 |OTATIONS|..C. |
|0003bd00| 20 20 4b 4d 31 44 20 3d | 20 28 4e 2a 28 4e 20 2b | KM1D =| (N*(N +|
|0003bd10| 20 31 29 29 2f 32 0a 20 | 20 20 20 20 20 44 4f 20 | 1))/2. | DO |
|0003bd20| 35 30 20 4b 4e 20 3d 20 | 31 2c 4e 4d 31 0a 20 20 |50 KN = |1,NM1. |
|0003bd30| 20 20 20 20 20 20 20 4b | 4d 31 20 3d 20 4e 20 2d | K|M1 = N -|
|0003bd40| 20 4b 4e 0a 20 20 20 20 | 20 20 20 20 20 4b 20 3d | KN. | K =|
|0003bd50| 20 4b 4d 31 20 2b 20 31 | 0a 20 20 20 20 20 20 20 | KM1 + 1|. |
|0003bd60| 20 20 4b 4d 31 44 20 3d | 20 4b 4d 31 44 20 2d 20 | KM1D =| KM1D - |
|0003bd70| 4e 20 2b 20 4b 20 2d 20 | 32 0a 43 0a 43 20 20 20 |N + K - |2.C.C |
|0003bd80| 20 20 20 20 20 44 45 54 | 45 52 4d 49 4e 45 20 41 | DET|ERMINE A|
|0003bd90| 20 52 4f 54 41 54 49 4f | 4e 20 54 4f 20 41 4e 4e | ROTATIO|N TO ANN|
|0003bda0| 49 48 49 4c 41 54 45 20 | 54 48 45 20 4b 2d 54 48 |IHILATE |THE K-TH|
|0003bdb0| 20 45 4c 45 4d 45 4e 54 | 20 4f 46 20 57 41 32 0a | ELEMENT| OF WA2.|
|0003bdc0| 43 0a 20 20 20 20 20 20 | 20 20 20 49 46 20 28 57 |C. | IF (W|
|0003bdd0| 41 32 28 4b 29 20 2e 45 | 51 2e 20 5a 45 52 4f 29 |A2(K) .E|Q. ZERO)|
|0003bde0| 20 47 4f 20 54 4f 20 35 | 30 0a 20 20 20 20 20 20 | GO TO 5|0. |
|0003bdf0| 20 20 20 49 46 20 28 44 | 41 42 53 28 57 41 32 28 | IF (D|ABS(WA2(|
|0003be00| 4b 4d 31 29 29 20 2e 4c | 45 2e 20 44 41 42 53 28 |KM1)) .L|E. DABS(|
|0003be10| 57 41 32 28 4b 29 29 29 | 20 47 4f 20 54 4f 20 31 |WA2(K)))| GO TO 1|
|0003be20| 30 0a 20 20 20 20 20 20 | 20 20 20 54 45 4d 50 20 |0. | TEMP |
|0003be30| 3d 20 57 41 32 28 4b 29 | 2f 57 41 32 28 4b 4d 31 |= WA2(K)|/WA2(KM1|
|0003be40| 29 0a 20 20 20 20 20 20 | 20 20 20 43 20 3d 20 4f |). | C = O|
|0003be50| 4e 45 2f 44 53 51 52 54 | 28 4f 4e 45 20 2b 20 54 |NE/DSQRT|(ONE + T|
|0003be60| 45 4d 50 2a 54 45 4d 50 | 29 0a 20 20 20 20 20 20 |EMP*TEMP|). |
|0003be70| 20 20 20 53 20 3d 20 54 | 45 4d 50 2a 43 0a 20 20 | S = T|EMP*C. |
|0003be80| 20 20 20 20 20 20 20 47 | 4f 20 54 4f 20 32 30 0a | G|O TO 20.|
|0003be90| 20 31 30 20 20 20 20 20 | 20 54 45 4d 50 20 3d 20 | 10 | TEMP = |
|0003bea0| 57 41 32 28 4b 4d 31 29 | 2f 57 41 32 28 4b 29 0a |WA2(KM1)|/WA2(K).|
|0003beb0| 20 20 20 20 20 20 20 20 | 20 53 20 3d 20 4f 4e 45 | | S = ONE|
|0003bec0| 2f 44 53 51 52 54 28 4f | 4e 45 20 2b 20 54 45 4d |/DSQRT(O|NE + TEM|
|0003bed0| 50 2a 54 45 4d 50 29 0a | 20 20 20 20 20 20 20 20 |P*TEMP).| |
|0003bee0| 20 43 20 3d 20 54 45 4d | 50 2a 53 0a 20 32 30 20 | C = TEM|P*S. 20 |
|0003bef0| 20 20 20 20 20 57 41 32 | 28 4b 4d 31 29 20 3d 20 | WA2|(KM1) = |
|0003bf00| 43 2a 57 41 32 28 4b 4d | 31 29 20 2b 20 53 2a 57 |C*WA2(KM|1) + S*W|
|0003bf10| 41 32 28 4b 29 0a 43 0a | 43 20 20 20 20 20 20 20 |A2(K).C.|C |
|0003bf20| 20 43 4f 4d 50 55 54 45 | 20 54 48 45 20 50 52 4f | COMPUTE| THE PRO|
|0003bf30| 44 55 43 54 20 4f 46 20 | 54 48 45 20 52 4f 54 41 |DUCT OF |THE ROTA|
|0003bf40| 54 49 4f 4e 20 41 4e 44 | 20 51 2e 0a 43 0a 20 20 |TION AND| Q..C. |
|0003bf50| 20 20 20 20 20 20 20 44 | 4f 20 33 30 20 49 20 3d | D|O 30 I =|
|0003bf60| 20 31 2c 4e 0a 20 20 20 | 20 20 20 20 20 20 20 20 | 1,N. | |
|0003bf70| 20 54 45 4d 50 20 3d 20 | 51 28 49 2c 4b 4d 31 29 | TEMP = |Q(I,KM1)|
|0003bf80| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 51 28 49 |. | Q(I|
|0003bf90| 2c 4b 4d 31 29 20 3d 20 | 43 2a 54 45 4d 50 20 2b |,KM1) = |C*TEMP +|
|0003bfa0| 20 53 2a 51 28 49 2c 4b | 29 0a 20 20 20 20 20 20 | S*Q(I,K|). |
|0003bfb0| 20 20 20 20 20 20 51 28 | 49 2c 4b 29 20 3d 20 53 | Q(|I,K) = S|
|0003bfc0| 2a 54 45 4d 50 20 2d 20 | 43 2a 51 28 49 2c 4b 29 |*TEMP - |C*Q(I,K)|
|0003bfd0| 0a 20 33 30 20 20 20 20 | 20 20 20 20 20 43 4f 4e |. 30 | CON|
|0003bfe0| 54 49 4e 55 45 0a 43 0a | 43 20 20 20 20 20 20 20 |TINUE.C.|C |
|0003bff0| 20 43 4f 4d 50 55 54 45 | 20 54 48 45 20 50 52 4f | COMPUTE| THE PRO|
|0003c000| 44 55 43 54 20 4f 46 20 | 54 48 45 20 52 4f 54 41 |DUCT OF |THE ROTA|
|0003c010| 54 49 4f 4e 20 41 4e 44 | 20 52 2e 0a 43 0a 20 20 |TION AND| R..C. |
|0003c020| 20 20 20 20 20 20 20 4b | 4d 31 4a 20 3d 20 4b 4d | K|M1J = KM|
|0003c030| 31 44 0a 20 20 20 20 20 | 20 20 20 20 4b 4a 20 3d |1D. | KJ =|
|0003c040| 20 4b 4d 31 44 20 2b 20 | 4e 20 2d 20 4b 4d 31 0a | KM1D + |N - KM1.|
|0003c050| 20 20 20 20 20 20 20 20 | 20 44 4f 20 34 30 20 4a | | DO 40 J|
|0003c060| 20 3d 20 4b 2c 4e 0a 20 | 20 20 20 20 20 20 20 20 | = K,N. | |
|0003c070| 20 20 20 4b 4d 31 4a 20 | 3d 20 4b 4d 31 4a 20 2b | KM1J |= KM1J +|
|0003c080| 20 31 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 4b | 1. | K|
|0003c090| 4a 20 3d 20 4b 4a 20 2b | 20 31 0a 20 20 20 20 20 |J = KJ +| 1. |
|0003c0a0| 20 20 20 20 20 20 20 54 | 45 4d 50 20 3d 20 52 57 | T|EMP = RW|
|0003c0b0| 41 28 4b 4d 31 4a 29 0a | 20 20 20 20 20 20 20 20 |A(KM1J).| |
|0003c0c0| 20 20 20 20 52 57 41 28 | 4b 4d 31 4a 29 20 3d 20 | RWA(|KM1J) = |
|0003c0d0| 43 2a 54 45 4d 50 20 2b | 20 53 2a 52 57 41 28 4b |C*TEMP +| S*RWA(K|
|0003c0e0| 4a 29 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 52 |J). | R|
|0003c0f0| 57 41 28 4b 4a 29 20 3d | 20 53 2a 54 45 4d 50 20 |WA(KJ) =| S*TEMP |
|0003c100| 2d 20 43 2a 52 57 41 28 | 4b 4a 29 0a 20 34 30 20 |- C*RWA(|KJ). 40 |
|0003c110| 20 20 20 20 20 20 20 20 | 43 4f 4e 54 49 4e 55 45 | |CONTINUE|
|0003c120| 0a 43 0a 43 20 20 20 20 | 20 20 20 20 53 55 42 44 |.C.C | SUBD|
|0003c130| 49 41 47 4f 4e 41 4c 20 | 45 4c 45 4d 45 4e 54 53 |IAGONAL |ELEMENTS|
|0003c140| 20 41 52 45 20 53 54 4f | 52 45 44 20 49 4e 20 57 | ARE STO|RED IN W|
|0003c150| 41 32 2e 0a 43 0a 20 20 | 20 20 20 20 20 20 20 54 |A2..C. | T|
|0003c160| 45 4d 50 20 3d 20 52 57 | 41 28 4b 4d 31 44 29 0a |EMP = RW|A(KM1D).|
|0003c170| 20 20 20 20 20 20 20 20 | 20 52 57 41 28 4b 4d 31 | | RWA(KM1|
|0003c180| 44 29 20 3d 20 43 2a 54 | 45 4d 50 0a 20 20 20 20 |D) = C*T|EMP. |
|0003c190| 20 20 20 20 20 57 41 32 | 28 4b 29 20 3d 20 53 2a | WA2|(K) = S*|
|0003c1a0| 54 45 4d 50 0a 20 35 30 | 20 20 20 20 20 20 43 4f |TEMP. 50| CO|
|0003c1b0| 4e 54 49 4e 55 45 0a 43 | 0a 43 20 20 20 20 20 4d |NTINUE.C|.C M|
|0003c1c0| 4f 44 49 46 59 20 46 49 | 52 53 54 20 52 4f 57 20 |ODIFY FI|RST ROW |
|0003c1d0| 4f 46 20 52 2e 0a 43 0a | 20 36 30 20 20 20 43 4f |OF R..C.| 60 CO|
|0003c1e0| 4e 54 49 4e 55 45 0a 20 | 20 20 20 20 20 4b 4a 20 |NTINUE. | KJ |
|0003c1f0| 3d 20 31 0a 20 20 20 20 | 20 20 44 4f 20 37 30 20 |= 1. | DO 70 |
|0003c200| 4a 20 3d 20 31 2c 4e 0a | 20 20 20 20 20 20 20 20 |J = 1,N.| |
|0003c210| 20 52 57 41 28 4b 4a 29 | 20 3d 20 52 57 41 28 4b | RWA(KJ)| = RWA(K|
|0003c220| 4a 29 20 2b 20 57 41 32 | 28 31 29 2a 57 41 31 28 |J) + WA2|(1)*WA1(|
|0003c230| 4a 29 0a 20 20 20 20 20 | 20 20 20 20 4b 4a 20 3d |J). | KJ =|
|0003c240| 20 4b 4a 20 2b 20 31 0a | 20 37 30 20 20 20 20 20 | KJ + 1.| 70 |
|0003c250| 20 43 4f 4e 54 49 4e 55 | 45 0a 43 0a 43 20 20 20 | CONTINU|E.C.C |
|0003c260| 20 20 52 45 44 55 43 45 | 20 54 48 45 20 55 50 50 | REDUCE| THE UPP|
|0003c270| 45 52 20 48 45 53 53 45 | 4e 42 45 52 47 20 4d 41 |ER HESSE|NBERG MA|
|0003c280| 54 52 49 58 20 57 48 49 | 43 48 20 43 4f 4e 53 49 |TRIX WHI|CH CONSI|
|0003c290| 53 54 53 20 4f 46 20 52 | 20 41 4e 44 0a 43 20 20 |STS OF R| AND.C |
|0003c2a0| 20 20 20 57 41 32 20 54 | 4f 20 55 50 50 45 52 20 | WA2 T|O UPPER |
|0003c2b0| 54 52 49 41 4e 47 55 4c | 41 52 20 46 4f 52 4d 20 |TRIANGUL|AR FORM |
|0003c2c0| 42 59 20 41 20 53 45 51 | 55 45 4e 43 45 20 4f 46 |BY A SEQ|UENCE OF|
|0003c2d0| 20 50 4c 41 4e 45 20 52 | 4f 54 41 54 49 4f 4e 53 | PLANE R|OTATIONS|
|0003c2e0| 2e 0a 43 0a 20 20 20 20 | 20 20 4b 4d 31 44 20 3d |..C. | KM1D =|
|0003c2f0| 20 31 0a 20 20 20 20 20 | 20 49 46 20 28 4e 20 2e | 1. | IF (N .|
|0003c300| 45 51 2e 20 31 29 20 47 | 4f 20 54 4f 20 31 34 30 |EQ. 1) G|O TO 140|
|0003c310| 0a 20 20 20 20 20 20 44 | 4f 20 31 33 30 20 4b 20 |. D|O 130 K |
|0003c320| 3d 20 32 2c 4e 0a 20 20 | 20 20 20 20 20 20 20 4b |= 2,N. | K|
|0003c330| 4d 31 20 3d 20 4b 20 2d | 20 31 0a 43 0a 43 20 20 |M1 = K -| 1.C.C |
|0003c340| 20 20 20 20 20 20 44 45 | 54 45 52 4d 49 4e 45 20 | DE|TERMINE |
|0003c350| 41 20 52 4f 54 41 54 49 | 4f 4e 20 54 4f 20 41 4e |A ROTATI|ON TO AN|
|0003c360| 4e 49 48 49 4c 41 54 45 | 20 54 48 45 20 4b 2d 54 |NIHILATE| THE K-T|
|0003c370| 48 20 45 4c 45 4d 45 4e | 54 20 4f 46 20 57 41 32 |H ELEMEN|T OF WA2|
|0003c380| 2e 0a 43 0a 20 20 20 20 | 20 20 20 20 20 49 46 20 |..C. | IF |
|0003c390| 28 57 41 32 28 4b 29 20 | 2e 45 51 2e 20 5a 45 52 |(WA2(K) |.EQ. ZER|
|0003c3a0| 4f 20 2e 41 4e 44 2e 20 | 52 57 41 28 4b 4d 31 44 |O .AND. |RWA(KM1D|
|0003c3b0| 29 20 2e 45 51 2e 20 5a | 45 52 4f 29 0a 20 20 20 |) .EQ. Z|ERO). |
|0003c3c0| 20 20 31 20 20 20 20 20 | 20 20 53 49 4e 47 20 3d | 1 | SING =|
|0003c3d0| 20 2e 54 52 55 45 2e 0a | 20 20 20 20 20 20 20 20 | .TRUE..| |
|0003c3e0| 20 49 46 20 28 57 41 32 | 28 4b 29 20 2e 45 51 2e | IF (WA2|(K) .EQ.|
|0003c3f0| 20 5a 45 52 4f 29 20 47 | 4f 20 54 4f 20 31 32 30 | ZERO) G|O TO 120|
|0003c400| 0a 20 20 20 20 20 20 20 | 20 20 49 46 20 28 44 41 |. | IF (DA|
|0003c410| 42 53 28 52 57 41 28 4b | 4d 31 44 29 29 20 2e 4c |BS(RWA(K|M1D)) .L|
|0003c420| 45 2e 20 44 41 42 53 28 | 57 41 32 28 4b 29 29 29 |E. DABS(|WA2(K)))|
|0003c430| 20 47 4f 20 54 4f 20 38 | 30 0a 20 20 20 20 20 20 | GO TO 8|0. |
|0003c440| 20 20 20 54 45 4d 50 20 | 3d 20 57 41 32 28 4b 29 | TEMP |= WA2(K)|
|0003c450| 2f 52 57 41 28 4b 4d 31 | 44 29 0a 20 20 20 20 20 |/RWA(KM1|D). |
|0003c460| 20 20 20 20 43 20 3d 20 | 4f 4e 45 2f 44 53 51 52 | C = |ONE/DSQR|
|0003c470| 54 28 4f 4e 45 20 2b 20 | 54 45 4d 50 2a 54 45 4d |T(ONE + |TEMP*TEM|
|0003c480| 50 29 0a 20 20 20 20 20 | 20 20 20 20 53 20 3d 20 |P). | S = |
|0003c490| 54 45 4d 50 2a 43 0a 20 | 20 20 20 20 20 20 20 20 |TEMP*C. | |
|0003c4a0| 47 4f 20 54 4f 20 39 30 | 0a 20 38 30 20 20 20 20 |GO TO 90|. 80 |
|0003c4b0| 20 20 54 45 4d 50 20 3d | 20 52 57 41 28 4b 4d 31 | TEMP =| RWA(KM1|
|0003c4c0| 44 29 2f 57 41 32 28 4b | 29 0a 20 20 20 20 20 20 |D)/WA2(K|). |
|0003c4d0| 20 20 20 53 20 3d 20 4f | 4e 45 2f 44 53 51 52 54 | S = O|NE/DSQRT|
|0003c4e0| 28 4f 4e 45 20 2b 20 54 | 45 4d 50 2a 54 45 4d 50 |(ONE + T|EMP*TEMP|
|0003c4f0| 29 0a 20 20 20 20 20 20 | 20 20 20 43 20 3d 20 54 |). | C = T|
|0003c500| 45 4d 50 2a 53 0a 20 39 | 30 20 20 20 20 20 20 52 |EMP*S. 9|0 R|
|0003c510| 57 41 28 4b 4d 31 44 29 | 20 3d 20 43 2a 52 57 41 |WA(KM1D)| = C*RWA|
|0003c520| 28 4b 4d 31 44 29 20 2b | 20 53 2a 57 41 32 28 4b |(KM1D) +| S*WA2(K|
|0003c530| 29 0a 20 20 20 20 20 20 | 20 20 20 49 46 20 28 52 |). | IF (R|
|0003c540| 57 41 28 4b 4d 31 44 29 | 20 2e 45 51 2e 20 5a 45 |WA(KM1D)| .EQ. ZE|
|0003c550| 52 4f 29 20 53 49 4e 47 | 20 3d 20 2e 54 52 55 45 |RO) SING| = .TRUE|
|0003c560| 2e 0a 43 0a 43 20 20 20 | 20 20 20 20 20 43 4f 4d |..C.C | COM|
|0003c570| 50 55 54 45 20 54 48 45 | 20 50 52 4f 44 55 43 54 |PUTE THE| PRODUCT|
|0003c580| 20 4f 46 20 54 48 45 20 | 52 4f 54 41 54 49 4f 4e | OF THE |ROTATION|
|0003c590| 20 41 4e 44 20 52 2e 0a | 43 0a 20 20 20 20 20 20 | AND R..|C. |
|0003c5a0| 20 20 20 4b 4d 31 4a 20 | 3d 20 4b 4d 31 44 0a 20 | KM1J |= KM1D. |
|0003c5b0| 20 20 20 20 20 20 20 20 | 4b 4a 20 3d 20 4b 4d 31 | |KJ = KM1|
|0003c5c0| 44 20 2b 20 4e 20 2d 20 | 4b 4d 31 0a 20 20 20 20 |D + N - |KM1. |
|0003c5d0| 20 20 20 20 20 44 4f 20 | 31 30 30 20 4a 20 3d 20 | DO |100 J = |
|0003c5e0| 4b 2c 4e 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |K,N. | |
|0003c5f0| 4b 4d 31 4a 20 3d 20 4b | 4d 31 4a 20 2b 20 31 0a |KM1J = K|M1J + 1.|
|0003c600| 20 20 20 20 20 20 20 20 | 20 20 20 20 4b 4a 20 3d | | KJ =|
|0003c610| 20 4b 4a 20 2b 20 31 0a | 20 20 20 20 20 20 20 20 | KJ + 1.| |
|0003c620| 20 20 20 20 54 45 4d 50 | 20 3d 20 52 57 41 28 4b | TEMP| = RWA(K|
|0003c630| 4d 31 4a 29 0a 20 20 20 | 20 20 20 20 20 20 20 20 |M1J). | |
|0003c640| 20 52 57 41 28 4b 4d 31 | 4a 29 20 3d 20 43 2a 54 | RWA(KM1|J) = C*T|
|0003c650| 45 4d 50 20 2b 20 53 2a | 52 57 41 28 4b 4a 29 0a |EMP + S*|RWA(KJ).|
|0003c660| 20 20 20 20 20 20 20 20 | 20 20 20 20 52 57 41 28 | | RWA(|
|0003c670| 4b 4a 29 20 3d 20 53 2a | 54 45 4d 50 20 2d 20 43 |KJ) = S*|TEMP - C|
|0003c680| 2a 52 57 41 28 4b 4a 29 | 0a 20 31 30 30 20 20 20 |*RWA(KJ)|. 100 |
|0003c690| 20 20 20 20 20 43 4f 4e | 54 49 4e 55 45 0a 43 0a | CON|TINUE.C.|
|0003c6a0| 43 20 20 20 20 20 20 20 | 20 43 4f 4d 50 55 54 45 |C | COMPUTE|
|0003c6b0| 20 54 48 45 20 50 52 4f | 44 55 43 54 20 4f 46 20 | THE PRO|DUCT OF |
|0003c6c0| 54 48 45 20 52 4f 54 41 | 54 49 4f 4e 20 41 4e 44 |THE ROTA|TION AND|
|0003c6d0| 20 51 2e 0a 43 0a 20 20 | 20 20 20 20 20 20 20 44 | Q..C. | D|
|0003c6e0| 4f 20 31 31 30 20 49 20 | 3d 20 31 2c 4e 0a 20 20 |O 110 I |= 1,N. |
|0003c6f0| 20 20 20 20 20 20 20 20 | 20 20 54 45 4d 50 20 3d | | TEMP =|
|0003c700| 20 51 28 49 2c 4b 4d 31 | 29 0a 20 20 20 20 20 20 | Q(I,KM1|). |
|0003c710| 20 20 20 20 20 20 51 28 | 49 2c 4b 4d 31 29 20 3d | Q(|I,KM1) =|
|0003c720| 20 43 2a 54 45 4d 50 20 | 2b 20 53 2a 51 28 49 2c | C*TEMP |+ S*Q(I,|
|0003c730| 4b 29 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 51 |K). | Q|
|0003c740| 28 49 2c 4b 29 20 3d 20 | 53 2a 54 45 4d 50 20 2d |(I,K) = |S*TEMP -|
|0003c750| 20 43 2a 51 28 49 2c 4b | 29 0a 20 31 31 30 20 20 | C*Q(I,K|). 110 |
|0003c760| 20 20 20 20 20 20 43 4f | 4e 54 49 4e 55 45 0a 20 | CO|NTINUE. |
|0003c770| 31 32 30 20 20 20 20 20 | 43 4f 4e 54 49 4e 55 45 |120 |CONTINUE|
|0003c780| 0a 20 20 20 20 20 20 20 | 20 20 4b 4d 31 44 20 3d |. | KM1D =|
|0003c790| 20 4b 4d 31 44 20 2b 20 | 4e 20 2d 20 4b 20 2b 20 | KM1D + |N - K + |
|0003c7a0| 32 0a 20 31 33 30 20 20 | 20 20 20 43 4f 4e 54 49 |2. 130 | CONTI|
|0003c7b0| 4e 55 45 0a 20 31 34 30 | 20 20 49 46 20 28 52 57 |NUE. 140| IF (RW|
|0003c7c0| 41 28 4b 4d 31 44 29 20 | 2e 45 51 2e 20 5a 45 52 |A(KM1D) |.EQ. ZER|
|0003c7d0| 4f 29 20 53 49 4e 47 20 | 3d 20 2e 54 52 55 45 2e |O) SING |= .TRUE.|
|0003c7e0| 0a 20 20 20 20 20 20 52 | 45 54 55 52 4e 0a 43 0a |. R|ETURN.C.|
|0003c7f0| 43 20 20 20 20 20 4c 41 | 53 54 20 43 41 52 44 20 |C LA|ST CARD |
|0003c800| 4f 46 20 53 55 42 52 4f | 55 54 49 4e 45 20 51 52 |OF SUBRO|UTINE QR|
|0003c810| 4d 44 46 59 2e 0a 43 0a | 20 20 20 20 20 20 45 4e |MDFY..C.| EN|
|0003c820| 44 0a 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |D.CCCCCC|CCCCCCCC|
|0003c830| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|0003c840| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|0003c850| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|0003c860| 43 43 43 43 43 43 43 43 | 43 0a 43 0a 43 20 20 20 |CCCCCCCC|C.C.C |
|0003c870| 54 49 54 4c 45 3a 20 51 | 52 44 43 4f 4d 0a 43 0a |TITLE: Q|RDCOM.C.|
|0003c880| 43 20 20 20 47 49 56 45 | 4e 20 41 4e 20 4e 20 42 |C GIVE|N AN N B|
|0003c890| 59 20 4e 20 4d 41 54 52 | 49 58 20 41 20 54 48 49 |Y N MATR|IX A THI|
|0003c8a0| 53 20 53 55 42 52 4f 55 | 54 49 4e 45 20 57 49 4c |S SUBROU|TINE WIL|
|0003c8b0| 4c 20 43 41 4c 43 55 4c | 41 54 45 20 49 54 53 20 |L CALCUL|ATE ITS |
|0003c8c0| 51 52 0a 43 20 20 20 44 | 45 43 4f 4d 50 4f 53 49 |QR.C D|ECOMPOSI|
|0003c8d0| 54 49 4f 4e 3b 20 54 48 | 41 54 20 49 53 2c 20 41 |TION; TH|AT IS, A|
|0003c8e0| 4e 20 4f 52 54 48 4f 47 | 4f 4e 41 4c 20 4d 41 54 |N ORTHOG|ONAL MAT|
|0003c8f0| 52 49 58 20 51 20 41 4e | 44 20 41 4e 20 55 50 50 |RIX Q AN|D AN UPP|
|0003c900| 45 52 0a 43 20 20 20 54 | 52 49 41 4e 47 55 4c 41 |ER.C T|RIANGULA|
|0003c910| 52 20 4d 41 54 52 49 58 | 20 52 20 53 55 43 48 20 |R MATRIX| R SUCH |
|0003c920| 54 48 41 54 20 41 20 3d | 20 51 2a 52 2e 20 4f 4e |THAT A =| Q*R. ON|
|0003c930| 20 4f 55 54 50 55 54 20 | 51 20 49 53 20 4f 56 45 | OUTPUT |Q IS OVE|
|0003c940| 52 57 52 49 54 54 45 4e | 0a 43 20 20 20 4f 4e 20 |RWRITTEN|.C ON |
|0003c950| 41 20 41 4e 44 20 52 20 | 49 53 20 53 54 4f 52 45 |A AND R |IS STORE|
|0003c960| 44 20 42 59 20 52 4f 57 | 53 20 49 4e 20 54 48 45 |D BY ROW|S IN THE|
|0003c970| 20 4c 49 4e 45 41 52 20 | 41 52 52 41 59 20 52 57 | LINEAR |ARRAY RW|
|0003c980| 41 2e 20 54 48 45 0a 43 | 20 20 20 4c 4f 47 49 43 |A. THE.C| LOGIC|
|0003c990| 41 4c 20 56 41 52 49 41 | 42 4c 45 20 53 49 4e 47 |AL VARIA|BLE SING|
|0003c9a0| 20 49 53 20 53 45 54 20 | 54 4f 20 54 52 55 45 20 | IS SET |TO TRUE |
|0003c9b0| 49 46 20 41 4e 59 20 4f | 46 20 54 48 45 20 44 49 |IF ANY O|F THE DI|
|0003c9c0| 41 47 4f 4e 41 4c 0a 43 | 20 20 20 45 4c 45 4d 45 |AGONAL.C| ELEME|
|0003c9d0| 4e 54 53 20 4f 46 20 52 | 20 41 52 45 20 5a 45 52 |NTS OF R| ARE ZER|
|0003c9e0| 4f 2e 0a 43 0a 43 20 20 | 20 54 48 45 20 53 55 42 |O..C.C | THE SUB|
|0003c9f0| 52 4f 55 54 49 4e 45 20 | 53 54 41 54 45 4d 45 4e |ROUTINE |STATEMEN|
|0003ca00| 54 20 49 53 0a 43 0a 43 | 20 20 20 20 20 20 20 53 |T IS.C.C| S|
|0003ca10| 55 42 52 4f 55 54 49 4e | 45 20 51 52 44 43 4f 4d |UBROUTIN|E QRDCOM|
|0003ca20| 28 4e 2c 41 2c 4c 52 57 | 41 2c 52 57 41 2c 57 41 |(N,A,LRW|A,RWA,WA|
|0003ca30| 2c 53 49 4e 47 29 0a 43 | 0a 43 20 20 20 57 48 45 |,SING).C|.C WHE|
|0003ca40| 52 45 0a 43 0a 43 20 20 | 20 20 20 20 20 4e 20 49 |RE.C.C | N I|
|0003ca50| 53 20 41 20 50 4f 53 49 | 54 49 56 45 20 49 4e 54 |S A POSI|TIVE INT|
|0003ca60| 45 47 45 52 20 56 41 52 | 49 41 42 4c 45 2e 0a 43 |EGER VAR|IABLE..C|
|0003ca70| 0a 43 20 20 20 20 20 20 | 20 41 20 49 53 20 41 4e |.C | A IS AN|
|0003ca80| 20 4e 20 42 59 20 4e 20 | 41 52 52 41 59 2e 20 51 | N BY N |ARRAY. Q|
|0003ca90| 52 44 43 4f 4d 20 57 49 | 4c 4c 20 43 4f 4d 50 55 |RDCOM WI|LL COMPU|
|0003caa0| 54 45 20 54 48 45 20 51 | 52 0a 43 20 20 20 20 20 |TE THE Q|R.C |
|0003cab0| 20 20 20 20 44 45 43 4f | 4d 50 4f 53 49 54 49 4f | DECO|MPOSITIO|
|0003cac0| 4e 20 4f 46 20 54 48 45 | 20 49 4e 50 55 54 20 41 |N OF THE| INPUT A|
|0003cad0| 2e 20 4f 4e 20 4f 55 54 | 50 55 54 20 41 20 43 4f |. ON OUT|PUT A CO|
|0003cae0| 4e 54 41 49 4e 53 0a 43 | 20 20 20 20 20 20 20 20 |NTAINS.C| |
|0003caf0| 20 54 48 45 20 4f 52 54 | 48 4f 47 4f 4e 41 4c 20 | THE ORT|HOGONAL |
|0003cb00| 50 41 52 54 20 4f 46 20 | 54 48 45 20 51 52 20 44 |PART OF |THE QR D|
|0003cb10| 45 43 4f 4d 50 4f 53 49 | 54 49 4f 4e 20 4f 46 20 |ECOMPOSI|TION OF |
|0003cb20| 41 2e 0a 43 0a 43 20 20 | 20 20 20 20 20 4c 52 57 |A..C.C | LRW|
|0003cb30| 41 20 49 53 20 41 4e 20 | 49 4e 54 45 47 45 52 20 |A IS AN |INTEGER |
|0003cb40| 56 41 52 49 41 42 4c 45 | 20 4e 4f 54 20 4c 45 53 |VARIABLE| NOT LES|
|0003cb50| 53 20 54 48 41 4e 20 28 | 4e 2a 28 4e 2b 31 29 29 |S THAN (|N*(N+1))|
|0003cb60| 2f 32 2e 0a 43 0a 43 20 | 20 20 20 20 20 20 52 57 |/2..C.C | RW|
|0003cb70| 41 20 49 53 20 41 20 4c | 49 4e 45 41 52 20 41 52 |A IS A L|INEAR AR|
|0003cb80| 52 41 59 20 4f 46 20 4c | 45 4e 47 54 48 20 4c 52 |RAY OF L|ENGTH LR|
|0003cb90| 57 41 2e 20 4f 4e 20 4f | 55 54 50 55 54 20 52 57 |WA. ON O|UTPUT RW|
|0003cba0| 41 0a 43 20 20 20 20 20 | 20 20 20 20 43 4f 4e 54 |A.C | CONT|
|0003cbb0| 41 49 4e 53 20 54 48 45 | 20 55 50 50 45 52 20 54 |AINS THE| UPPER T|
|0003cbc0| 52 49 41 4e 47 55 4c 41 | 52 20 50 41 52 54 20 4f |RIANGULA|R PART O|
|0003cbd0| 46 20 54 48 45 20 51 52 | 20 44 45 43 4f 4d 50 4f |F THE QR| DECOMPO|
|0003cbe0| 53 49 54 49 4f 4e 0a 43 | 20 20 20 20 20 20 20 20 |SITION.C| |
|0003cbf0| 20 4f 46 20 54 48 45 20 | 49 4e 50 55 54 20 41 2e | OF THE |INPUT A.|
|0003cc00| 20 54 48 45 20 53 54 4f | 52 41 47 45 20 49 53 20 | THE STO|RAGE IS |
|0003cc10| 42 59 20 52 4f 57 53 20 | 53 4f 20 54 48 41 54 20 |BY ROWS |SO THAT |
|0003cc20| 54 48 45 20 28 49 2c 4a | 29 0a 43 20 20 20 20 20 |THE (I,J|).C |
|0003cc30| 20 20 20 20 45 4c 45 4d | 45 4e 54 20 4f 46 20 52 | ELEM|ENT OF R|
|0003cc40| 20 49 53 20 49 4e 20 50 | 4f 53 49 54 49 4f 4e 20 | IS IN P|OSITION |
|0003cc50| 28 28 49 2d 31 29 2a 28 | 32 2a 4e 2d 4a 29 29 2f |((I-1)*(|2*N-J))/|
|0003cc60| 32 2b 4a 20 4f 46 20 52 | 57 41 2e 0a 43 0a 43 20 |2+J OF R|WA..C.C |
|0003cc70| 20 20 20 20 20 20 57 41 | 20 49 53 20 41 20 4c 49 | WA| IS A LI|
|0003cc80| 4e 45 41 52 20 53 43 52 | 41 54 43 48 20 41 52 52 |NEAR SCR|ATCH ARR|
|0003cc90| 41 59 20 4f 46 20 4c 45 | 4e 47 54 48 20 4e 2e 0a |AY OF LE|NGTH N..|
|0003cca0| 43 0a 43 20 20 20 20 20 | 20 20 53 49 4e 47 20 49 |C.C | SING I|
|0003ccb0| 53 20 41 20 4c 4f 47 49 | 43 41 4c 20 56 41 52 49 |S A LOGI|CAL VARI|
|0003ccc0| 41 42 4c 45 20 57 48 49 | 43 48 20 49 53 20 53 45 |ABLE WHI|CH IS SE|
|0003ccd0| 54 20 54 4f 20 54 52 55 | 45 20 49 46 20 41 4e 59 |T TO TRU|E IF ANY|
|0003cce0| 20 4f 46 0a 43 20 20 20 | 20 20 20 20 20 20 54 48 | OF.C | TH|
|0003ccf0| 45 20 44 49 41 47 4f 4e | 41 4c 20 45 4c 45 4d 45 |E DIAGON|AL ELEME|
|0003cd00| 4e 54 53 20 4f 46 20 52 | 20 41 52 45 20 5a 45 52 |NTS OF R| ARE ZER|
|0003cd10| 4f 3b 20 4f 54 48 45 52 | 57 49 53 45 20 49 54 20 |O; OTHER|WISE IT |
|0003cd20| 49 53 20 53 45 54 0a 43 | 20 20 20 20 20 20 20 20 |IS SET.C| |
|0003cd30| 20 54 4f 20 46 41 4c 53 | 45 2e 0a 43 0a 43 20 20 | TO FALS|E..C.C |
|0003cd40| 20 4a 4f 52 47 45 20 4a | 2e 20 4d 4f 52 45 27 2c | JORGE J|. MORE',|
|0003cd50| 20 41 55 47 55 53 54 20 | 31 39 37 36 0a 43 0a 43 | AUGUST |1976.C.C|
|0003cd60| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|0003cd70| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|0003cd80| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|0003cd90| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|0003cda0| 43 43 43 43 43 43 0a 43 | 0a 20 20 20 20 20 20 53 |CCCCCC.C|. S|
|0003cdb0| 55 42 52 4f 55 54 49 4e | 45 20 51 52 44 43 4f 4d |UBROUTIN|E QRDCOM|
|0003cdc0| 28 4e 2c 41 2c 4c 52 57 | 41 2c 52 57 41 2c 57 41 |(N,A,LRW|A,RWA,WA|
|0003cdd0| 2c 53 49 4e 47 29 0a 20 | 20 20 20 20 20 53 41 56 |,SING). | SAV|
|0003cde0| 45 0a 20 20 20 20 20 20 | 4c 4f 47 49 43 41 4c 20 |E. |LOGICAL |
|0003cdf0| 53 49 4e 47 0a 20 20 20 | 20 20 20 49 4e 54 45 47 |SING. | INTEG|
|0003ce00| 45 52 20 4e 2c 4c 52 57 | 41 0a 20 20 20 20 20 20 |ER N,LRW|A. |
|0003ce10| 44 4f 55 42 4c 45 20 50 | 52 45 43 49 53 49 4f 4e |DOUBLE P|RECISION|
|0003ce20| 20 41 28 4e 2c 4e 29 2c | 52 57 41 28 4c 52 57 41 | A(N,N),|RWA(LRWA|
|0003ce30| 29 2c 57 41 28 4e 29 0a | 43 0a 20 20 20 20 20 20 |),WA(N).|C. |
|0003ce40| 49 4e 54 45 47 45 52 20 | 49 2c 49 4a 2c 4a 2c 4b |INTEGER |I,IJ,J,K|
|0003ce50| 2c 4b 4d 4e 2c 4b 50 31 | 2c 4e 4d 31 0a 20 20 20 |,KMN,KP1|,NM1. |
|0003ce60| 20 20 20 44 4f 55 42 4c | 45 20 50 52 45 43 49 53 | DOUBL|E PRECIS|
|0003ce70| 49 4f 4e 20 41 4b 4d 41 | 58 2c 4f 4e 45 2c 53 2c |ION AKMA|X,ONE,S,|
|0003ce80| 53 55 4d 2c 54 45 4d 50 | 2c 5a 45 52 4f 0a 20 20 |SUM,TEMP|,ZERO. |
|0003ce90| 20 20 20 20 44 4f 55 42 | 4c 45 20 50 52 45 43 49 | DOUB|LE PRECI|
|0003cea0| 53 49 4f 4e 20 44 41 42 | 53 2c 44 4d 41 58 31 2c |SION DAB|S,DMAX1,|
|0003ceb0| 44 53 51 52 54 0a 20 20 | 20 20 20 20 44 41 54 41 |DSQRT. | DATA|
|0003cec0| 20 5a 45 52 4f 2c 4f 4e | 45 20 2f 30 2e 44 30 2c | ZERO,ON|E /0.D0,|
|0003ced0| 31 2e 44 30 2f 0a 20 20 | 20 20 20 20 53 49 4e 47 |1.D0/. | SING|
|0003cee0| 20 3d 20 2e 46 41 4c 53 | 45 2e 0a 20 20 20 20 20 | = .FALS|E.. |
|0003cef0| 20 4e 4d 31 20 3d 20 4e | 20 2d 20 31 0a 43 0a 43 | NM1 = N| - 1.C.C|
|0003cf00| 20 20 20 20 20 52 45 44 | 55 43 54 49 4f 4e 20 4f | RED|UCTION O|
|0003cf10| 46 20 41 20 54 4f 20 55 | 50 50 45 52 20 54 52 49 |F A TO U|PPER TRI|
|0003cf20| 41 4e 47 55 4c 41 52 20 | 46 4f 52 4d 2e 0a 43 0a |ANGULAR |FORM..C.|
|0003cf30| 20 20 20 20 20 20 49 46 | 20 28 4e 20 2e 45 51 2e | IF| (N .EQ.|
|0003cf40| 20 31 29 20 20 47 4f 20 | 54 4f 20 37 30 0a 20 20 | 1) GO |TO 70. |
|0003cf50| 20 20 20 20 44 4f 20 36 | 30 20 4b 20 3d 20 31 2c | DO 6|0 K = 1,|
|0003cf60| 4e 4d 31 0a 20 20 20 20 | 20 20 20 20 20 4b 50 31 |NM1. | KP1|
|0003cf70| 20 3d 20 4b 20 2b 20 31 | 0a 20 20 20 20 20 20 20 | = K + 1|. |
|0003cf80| 20 20 41 4b 4d 41 58 20 | 3d 20 5a 45 52 4f 0a 20 | AKMAX |= ZERO. |
|0003cf90| 20 20 20 20 20 20 20 20 | 44 4f 20 31 30 20 49 20 | |DO 10 I |
|0003cfa0| 3d 20 4b 2c 4e 0a 20 20 | 20 20 20 20 20 20 20 20 |= K,N. | |
|0003cfb0| 20 20 41 4b 4d 41 58 20 | 3d 20 44 4d 41 58 31 28 | AKMAX |= DMAX1(|
|0003cfc0| 44 41 42 53 28 41 28 49 | 2c 4b 29 29 2c 41 4b 4d |DABS(A(I|,K)),AKM|
|0003cfd0| 41 58 29 0a 20 31 30 20 | 20 20 20 20 20 20 20 20 |AX). 10 | |
|0003cfe0| 43 4f 4e 54 49 4e 55 45 | 0a 20 20 20 20 20 20 20 |CONTINUE|. |
|0003cff0| 20 20 57 41 28 4b 29 20 | 3d 20 5a 45 52 4f 0a 20 | WA(K) |= ZERO. |
|0003d000| 20 20 20 20 20 20 20 20 | 49 46 20 28 41 4b 4d 41 | |IF (AKMA|
|0003d010| 58 20 2e 45 51 2e 20 5a | 45 52 4f 29 20 47 4f 20 |X .EQ. Z|ERO) GO |
|0003d020| 54 4f 20 36 30 0a 20 20 | 20 20 20 20 20 20 20 53 |TO 60. | S|
|0003d030| 20 3d 20 5a 45 52 4f 0a | 20 20 20 20 20 20 20 20 | = ZERO.| |
|0003d040| 20 44 4f 20 32 30 20 49 | 20 3d 20 4b 2c 4e 0a 20 | DO 20 I| = K,N. |
|0003d050| 20 20 20 20 20 20 20 20 | 20 20 20 41 28 49 2c 4b | | A(I,K|
|0003d060| 29 20 3d 20 41 28 49 2c | 4b 29 2f 41 4b 4d 41 58 |) = A(I,|K)/AKMAX|
|0003d070| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 53 20 3d |. | S =|
|0003d080| 20 53 20 2b 20 41 28 49 | 2c 4b 29 2a 41 28 49 2c | S + A(I|,K)*A(I,|
|0003d090| 4b 29 0a 20 32 30 20 20 | 20 20 20 20 20 20 20 43 |K). 20 | C|
|0003d0a0| 4f 4e 54 49 4e 55 45 0a | 20 20 20 20 20 20 20 20 |ONTINUE.| |
|0003d0b0| 20 53 20 3d 20 44 53 51 | 52 54 28 53 29 0a 20 20 | S = DSQ|RT(S). |
|0003d0c0| 20 20 20 20 20 20 20 49 | 46 20 28 41 28 4b 2c 4b | I|F (A(K,K|
|0003d0d0| 29 20 2e 4c 54 2e 20 5a | 45 52 4f 29 20 53 20 3d |) .LT. Z|ERO) S =|
|0003d0e0| 20 2d 53 0a 20 20 20 20 | 20 20 20 20 20 41 28 4b | -S. | A(K|
|0003d0f0| 2c 4b 29 20 3d 20 53 20 | 2b 20 41 28 4b 2c 4b 29 |,K) = S |+ A(K,K)|
|0003d100| 0a 20 20 20 20 20 20 20 | 20 20 57 41 28 4b 29 20 |. | WA(K) |
|0003d110| 3d 20 2d 41 4b 4d 41 58 | 2a 53 0a 20 20 20 20 20 |= -AKMAX|*S. |
|0003d120| 20 20 20 20 44 4f 20 35 | 30 20 4a 20 3d 20 4b 50 | DO 5|0 J = KP|
|0003d130| 31 2c 4e 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |1,N. | |
|0003d140| 53 55 4d 20 3d 20 5a 45 | 52 4f 0a 20 20 20 20 20 |SUM = ZE|RO. |
|0003d150| 20 20 20 20 20 20 20 44 | 4f 20 33 30 20 49 20 3d | D|O 30 I =|
|0003d160| 20 4b 2c 4e 0a 20 20 20 | 20 20 20 20 20 20 20 20 | K,N. | |
|0003d170| 20 20 20 20 53 55 4d 20 | 3d 20 53 55 4d 20 2b 20 | SUM |= SUM + |
|0003d180| 41 28 49 2c 4b 29 2a 41 | 28 49 2c 4a 29 0a 20 33 |A(I,K)*A|(I,J). 3|
|0003d190| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 43 4f 4e |0 | CON|
|0003d1a0| 54 49 4e 55 45 0a 20 20 | 20 20 20 20 20 20 20 20 |TINUE. | |
|0003d1b0| 20 20 54 45 4d 50 20 3d | 20 53 55 4d 2f 28 53 2a | TEMP =| SUM/(S*|
|0003d1c0| 41 28 4b 2c 4b 29 29 0a | 20 20 20 20 20 20 20 20 |A(K,K)).| |
|0003d1d0| 20 20 20 20 44 4f 20 34 | 30 20 49 20 3d 20 4b 2c | DO 4|0 I = K,|
|0003d1e0| 4e 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |N. | |
|0003d1f0| 20 41 28 49 2c 4a 29 20 | 3d 20 41 28 49 2c 4a 29 | A(I,J) |= A(I,J)|
|0003d200| 20 2d 20 54 45 4d 50 2a | 41 28 49 2c 4b 29 0a 20 | - TEMP*|A(I,K). |
|0003d210| 34 30 20 20 20 20 20 20 | 20 20 20 20 20 20 43 4f |40 | CO|
|0003d220| 4e 54 49 4e 55 45 0a 20 | 35 30 20 20 20 20 20 20 |NTINUE. |50 |
|0003d230| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 20 36 30 20 | CONTI|NUE. 60 |
|0003d240| 20 20 20 20 20 43 4f 4e | 54 49 4e 55 45 0a 20 37 | CON|TINUE. 7|
|0003d250| 30 20 20 20 57 41 28 4e | 29 20 3d 20 41 28 4e 2c |0 WA(N|) = A(N,|
|0003d260| 4e 29 0a 43 20 20 20 20 | 20 53 54 4f 52 45 20 54 |N).C | STORE T|
|0003d270| 48 45 20 55 50 50 45 52 | 20 54 52 49 41 4e 47 55 |HE UPPER| TRIANGU|
|0003d280| 4c 41 52 20 4d 41 54 52 | 49 58 20 49 4e 20 52 2e |LAR MATR|IX IN R.|
|0003d290| 0a 43 0a 43 0a 20 20 20 | 20 20 20 44 4f 20 39 30 |.C.C. | DO 90|
|0003d2a0| 20 4a 20 3d 20 31 2c 4e | 0a 20 20 20 20 20 20 20 | J = 1,N|. |
|0003d2b0| 20 20 54 45 4d 50 20 3d | 20 41 28 4a 2c 4a 29 0a | TEMP =| A(J,J).|
|0003d2c0| 20 20 20 20 20 20 20 20 | 20 41 28 4a 2c 4a 29 20 | | A(J,J) |
|0003d2d0| 3d 20 57 41 28 4a 29 0a | 20 20 20 20 20 20 20 20 |= WA(J).| |
|0003d2e0| 20 49 4a 20 3d 20 4a 0a | 20 20 20 20 20 20 20 20 | IJ = J.| |
|0003d2f0| 20 44 4f 20 38 30 20 49 | 20 3d 20 31 2c 4a 0a 20 | DO 80 I| = 1,J. |
|0003d300| 20 20 20 20 20 20 20 20 | 20 20 20 52 57 41 28 49 | | RWA(I|
|0003d310| 4a 29 20 3d 20 41 28 49 | 2c 4a 29 0a 20 20 20 20 |J) = A(I|,J). |
|0003d320| 20 20 20 20 20 20 20 20 | 49 4a 20 3d 20 49 4a 20 | |IJ = IJ |
|0003d330| 2b 20 4e 20 2d 20 49 0a | 20 20 20 20 20 20 20 20 |+ N - I.| |
|0003d340| 20 20 20 20 41 28 49 2c | 4a 29 20 3d 20 5a 45 52 | A(I,|J) = ZER|
|0003d350| 4f 0a 20 38 30 20 20 20 | 20 20 20 20 20 20 43 4f |O. 80 | CO|
|0003d360| 4e 54 49 4e 55 45 0a 20 | 20 20 20 20 20 20 20 20 |NTINUE. | |
|0003d370| 41 28 4a 2c 4a 29 20 3d | 20 54 45 4d 50 0a 20 20 |A(J,J) =| TEMP. |
|0003d380| 20 20 20 20 20 20 20 49 | 46 20 28 57 41 28 4a 29 | I|F (WA(J)|
|0003d390| 20 2e 45 51 2e 20 5a 45 | 52 4f 29 20 53 49 4e 47 | .EQ. ZE|RO) SING|
|0003d3a0| 20 3d 20 2e 54 52 55 45 | 2e 0a 20 39 30 20 20 20 | = .TRUE|.. 90 |
|0003d3b0| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 43 0a 43 0a | CONTI|NUE.C.C.|
|0003d3c0| 43 20 20 20 20 20 43 4f | 4d 50 55 54 45 20 51 20 |C CO|MPUTE Q |
|0003d3d0| 41 53 20 54 48 45 20 50 | 52 4f 44 55 43 54 20 4f |AS THE P|RODUCT O|
|0003d3e0| 46 20 45 4c 45 4d 45 4e | 54 41 52 59 20 52 45 46 |F ELEMEN|TARY REF|
|0003d3f0| 4c 45 43 54 49 4f 4e 53 | 2e 0a 43 0a 20 20 20 20 |LECTIONS|..C. |
|0003d400| 20 20 41 28 4e 2c 4e 29 | 20 3d 20 4f 4e 45 0a 20 | A(N,N)| = ONE. |
|0003d410| 20 20 20 20 20 49 46 20 | 28 4e 20 2e 45 51 2e 20 | IF |(N .EQ. |
|0003d420| 31 29 20 52 45 54 55 52 | 4e 0a 20 20 20 20 20 20 |1) RETUR|N. |
|0003d430| 44 4f 20 31 34 30 20 4b | 4d 4e 20 3d 20 31 2c 4e |DO 140 K|MN = 1,N|
|0003d440| 4d 31 0a 20 20 20 20 20 | 20 20 20 20 4b 20 3d 20 |M1. | K = |
|0003d450| 4e 20 2d 20 4b 4d 4e 0a | 20 20 20 20 20 20 20 20 |N - KMN.| |
|0003d460| 20 53 20 3d 20 5a 45 52 | 4f 0a 20 20 20 20 20 20 | S = ZER|O. |
|0003d470| 20 20 20 44 4f 20 31 30 | 30 20 49 20 3d 20 4b 2c | DO 10|0 I = K,|
|0003d480| 4e 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 57 41 |N. | WA|
|0003d490| 28 49 29 20 3d 20 41 28 | 49 2c 4b 29 0a 20 20 20 |(I) = A(|I,K). |
|0003d4a0| 20 20 20 20 20 20 20 20 | 20 53 20 3d 20 53 20 2b | | S = S +|
|0003d4b0| 20 57 41 28 49 29 2a 57 | 41 28 49 29 0a 20 20 20 | WA(I)*W|A(I). |
|0003d4c0| 20 20 20 20 20 20 20 20 | 20 41 28 49 2c 4b 29 20 | | A(I,K) |
|0003d4d0| 3d 20 5a 45 52 4f 0a 20 | 31 30 30 20 20 20 20 20 |= ZERO. |100 |
|0003d4e0| 20 20 20 43 4f 4e 54 49 | 4e 55 45 0a 20 20 20 20 | CONTI|NUE. |
|0003d4f0| 20 20 20 20 20 41 28 4b | 2c 4b 29 20 3d 20 4f 4e | A(K|,K) = ON|
|0003d500| 45 0a 20 20 20 20 20 20 | 20 20 20 49 46 20 28 53 |E. | IF (S|
|0003d510| 20 2e 45 51 2e 20 5a 45 | 52 4f 29 20 47 4f 20 54 | .EQ. ZE|RO) GO T|
|0003d520| 4f 20 31 34 30 0a 20 20 | 20 20 20 20 20 20 20 44 |O 140. | D|
|0003d530| 4f 20 31 33 30 20 4a 20 | 3d 20 4b 2c 4e 0a 20 20 |O 130 J |= K,N. |
|0003d540| 20 20 20 20 20 20 20 20 | 20 20 53 55 4d 20 3d 20 | | SUM = |
|0003d550| 5a 45 52 4f 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ZERO. | |
|0003d560| 20 44 4f 20 31 31 30 20 | 49 20 3d 20 4b 2c 4e 0a | DO 110 |I = K,N.|
|0003d570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 53 | | S|
|0003d580| 55 4d 20 3d 20 53 55 4d | 20 2b 20 41 28 49 2c 4a |UM = SUM| + A(I,J|
|0003d590| 29 2a 57 41 28 49 29 0a | 20 31 31 30 20 20 20 20 |)*WA(I).| 110 |
|0003d5a0| 20 20 20 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a | C|ONTINUE.|
|0003d5b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 54 45 4d 50 | | TEMP|
|0003d5c0| 20 3d 20 28 53 55 4d 20 | 2b 20 53 55 4d 29 2f 53 | = (SUM |+ SUM)/S|
|0003d5d0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 44 4f 20 |. | DO |
|0003d5e0| 31 32 30 20 49 20 3d 20 | 4b 2c 4e 0a 20 20 20 20 |120 I = |K,N. |
|0003d5f0| 20 20 20 20 20 20 20 20 | 20 20 20 41 28 49 2c 4a | | A(I,J|
|0003d600| 29 20 3d 20 41 28 49 2c | 4a 29 20 2d 20 54 45 4d |) = A(I,|J) - TEM|
|0003d610| 50 2a 57 41 28 49 29 0a | 20 31 32 30 20 20 20 20 |P*WA(I).| 120 |
|0003d620| 20 20 20 20 20 20 20 43 | 4f 4e 54 49 4e 55 45 0a | C|ONTINUE.|
|0003d630| 20 31 33 30 20 20 20 20 | 20 20 20 20 43 4f 4e 54 | 130 | CONT|
|0003d640| 49 4e 55 45 0a 20 31 34 | 30 20 20 20 20 20 43 4f |INUE. 14|0 CO|
|0003d650| 4e 54 49 4e 55 45 0a 20 | 20 20 20 20 20 52 45 54 |NTINUE. | RET|
|0003d660| 55 52 4e 0a 43 0a 43 20 | 20 20 20 20 4c 41 53 54 |URN.C.C | LAST|
|0003d670| 20 43 41 52 44 20 4f 46 | 20 53 55 42 52 4f 55 54 | CARD OF| SUBROUT|
|0003d680| 49 4e 45 20 51 52 44 43 | 4f 4d 2e 0a 43 0a 20 20 |INE QRDC|OM..C. |
|0003d690| 20 20 20 20 45 4e 44 0a | 43 43 43 43 43 43 43 43 | END.|CCCCCCCC|
|0003d6a0| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|0003d6b0| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|0003d6c0| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|0003d6d0| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 0a |CCCCCCCC|CCCCCCC.|
|0003d6e0| 43 0a 43 20 20 20 54 49 | 54 4c 45 3a 20 46 44 45 |C.C TI|TLE: FDE|
|0003d6f0| 52 0a 43 0a 43 20 20 20 | 47 49 56 45 4e 20 41 20 |R.C.C |GIVEN A |
|0003d700| 4c 49 4e 45 41 52 20 41 | 52 52 41 59 20 58 20 4f |LINEAR A|RRAY X O|
|0003d710| 46 20 4c 45 4e 47 54 48 | 20 4e 2c 20 54 48 49 53 |F LENGTH| N, THIS|
|0003d720| 20 53 55 42 52 4f 55 54 | 49 4e 45 20 43 4f 4d 50 | SUBROUT|INE COMP|
|0003d730| 55 54 45 53 0a 43 20 20 | 20 41 20 46 4f 52 57 41 |UTES.C | A FORWA|
|0003d740| 52 44 2d 44 49 46 46 45 | 52 45 4e 43 45 20 41 50 |RD-DIFFE|RENCE AP|
|0003d750| 50 52 4f 58 49 4d 41 54 | 49 4f 4e 20 54 4f 20 54 |PROXIMAT|ION TO T|
|0003d760| 48 45 20 4a 41 43 4f 42 | 49 41 4e 20 4d 41 54 52 |HE JACOB|IAN MATR|
|0003d770| 49 58 0a 43 20 20 20 28 | 45 56 41 4c 55 41 54 45 |IX.C (|EVALUATE|
|0003d780| 44 20 41 54 20 58 29 20 | 4f 46 20 54 48 45 20 46 |D AT X) |OF THE F|
|0003d790| 55 4e 43 54 49 4f 4e 20 | 44 45 46 49 4e 45 44 20 |UNCTION |DEFINED |
|0003d7a0| 42 59 20 54 48 45 20 53 | 55 42 52 4f 55 54 49 4e |BY THE S|UBROUTIN|
|0003d7b0| 45 0a 43 20 20 20 46 43 | 4e 2e 20 54 48 49 53 20 |E.C FC|N. THIS |
|0003d7c0| 41 50 50 52 4f 58 49 4d | 41 54 49 4f 4e 20 49 53 |APPROXIM|ATION IS|
|0003d7d0| 20 53 54 4f 52 45 44 20 | 49 4e 20 54 48 45 20 41 | STORED |IN THE A|
|0003d7e0| 52 52 41 59 20 41 2e 20 | 49 46 20 54 48 45 0a 43 |RRAY A. |IF THE.C|
|0003d7f0| 20 20 20 4a 41 43 4f 42 | 49 41 4e 20 48 41 53 20 | JACOB|IAN HAS |
|0003d800| 41 20 42 41 4e 44 45 44 | 20 46 4f 52 4d 20 54 48 |A BANDED| FORM TH|
|0003d810| 45 4e 20 54 48 49 53 20 | 53 55 42 52 4f 55 54 49 |EN THIS |SUBROUTI|
|0003d820| 4e 45 20 57 49 4c 4c 20 | 53 41 56 45 0a 43 20 20 |NE WILL |SAVE.C |
|0003d830| 20 46 55 4e 43 54 49 4f | 4e 20 45 56 41 4c 55 41 | FUNCTIO|N EVALUA|
|0003d840| 54 49 4f 4e 53 20 42 59 | 20 4f 4e 4c 59 20 41 50 |TIONS BY| ONLY AP|
|0003d850| 50 52 4f 58 49 4d 41 54 | 49 4e 47 20 54 48 45 20 |PROXIMAT|ING THE |
|0003d860| 4e 4f 4e 2d 5a 45 52 4f | 20 54 45 52 4d 53 2e 0a |NON-ZERO| TERMS..|
|0003d870| 43 0a 43 20 20 20 54 48 | 45 20 53 55 42 52 4f 55 |C.C TH|E SUBROU|
|0003d880| 54 49 4e 45 20 53 54 41 | 54 45 4d 45 4e 54 20 49 |TINE STA|TEMENT I|
|0003d890| 53 0a 43 0a 43 20 20 20 | 20 20 20 20 53 55 42 52 |S.C.C | SUBR|
|0003d8a0| 4f 55 54 49 4e 45 20 46 | 44 45 52 28 4e 2c 46 43 |OUTINE F|DER(N,FC|
|0003d8b0| 4e 2c 58 2c 46 2c 4d 31 | 2c 4d 32 2c 41 2c 57 41 |N,X,F,M1|,M2,A,WA|
|0003d8c0| 31 2c 57 41 32 2c 57 41 | 33 2c 49 45 52 29 0a 43 |1,WA2,WA|3,IER).C|
|0003d8d0| 0a 43 20 20 20 57 48 45 | 52 45 0a 43 0a 43 20 20 |.C WHE|RE.C.C |
|0003d8e0| 20 20 20 20 20 4e 20 49 | 53 20 41 20 50 4f 53 49 | N I|S A POSI|
|0003d8f0| 54 49 56 45 20 49 4e 54 | 45 47 45 52 20 56 41 52 |TIVE INT|EGER VAR|
|0003d900| 49 41 42 4c 45 2e 0a 43 | 0a 43 20 20 20 20 20 20 |IABLE..C|.C |
|0003d910| 20 46 43 4e 20 49 53 20 | 54 48 45 20 4e 41 4d 45 | FCN IS |THE NAME|
|0003d920| 20 4f 46 20 54 48 45 20 | 53 55 42 52 4f 55 54 49 | OF THE |SUBROUTI|
|0003d930| 4e 45 20 57 48 49 43 48 | 20 44 45 46 49 4e 45 53 |NE WHICH| DEFINES|
|0003d940| 20 54 48 45 20 46 55 4e | 43 54 49 4f 4e 2e 0a 43 | THE FUN|CTION..C|
|0003d950| 20 20 20 20 20 20 20 20 | 20 54 48 45 20 53 55 42 | | THE SUB|
|0003d960| 52 4f 55 54 49 4e 45 20 | 53 54 41 54 45 4d 45 4e |ROUTINE |STATEMEN|
|0003d970| 54 20 4f 46 20 46 43 4e | 20 53 48 4f 55 4c 44 20 |T OF FCN| SHOULD |
|0003d980| 42 45 20 46 43 4e 28 4e | 2c 58 2c 46 2c 49 45 52 |BE FCN(N|,X,F,IER|
|0003d990| 29 2c 0a 43 20 20 20 20 | 20 20 20 20 20 41 4e 44 |),.C | AND|
|0003d9a0| 20 54 48 45 20 45 58 45 | 43 55 54 49 4f 4e 20 4f | THE EXE|CUTION O|
|0003d9b0| 46 20 54 48 49 53 20 53 | 55 42 52 4f 55 54 49 4e |F THIS S|UBROUTIN|
|0003d9c0| 45 20 53 48 4f 55 4c 44 | 20 46 49 4c 4c 20 54 48 |E SHOULD| FILL TH|
|0003d9d0| 45 0a 43 20 20 20 20 20 | 20 20 20 20 41 52 52 41 |E.C | ARRA|
|0003d9e0| 59 20 46 20 57 49 54 48 | 20 54 48 45 20 56 41 4c |Y F WITH| THE VAL|
|0003d9f0| 55 45 20 4f 46 20 54 48 | 45 20 46 55 4e 43 54 49 |UE OF TH|E FUNCTI|
|0003da00| 4f 4e 20 45 56 41 4c 55 | 41 54 45 44 20 41 54 20 |ON EVALU|ATED AT |
|0003da10| 58 2e 0a 43 20 20 20 20 | 20 20 20 20 20 49 45 52 |X..C | IER|
|0003da20| 20 53 48 4f 55 4c 44 20 | 4e 4f 54 20 42 45 20 43 | SHOULD |NOT BE C|
|0003da30| 48 41 4e 47 45 44 20 55 | 4e 4c 45 53 53 20 54 48 |HANGED U|NLESS TH|
|0003da40| 45 20 55 53 45 52 20 57 | 41 4e 54 53 20 54 4f 0a |E USER W|ANTS TO.|
|0003da50| 43 20 20 20 20 20 20 20 | 20 20 54 45 52 4d 49 4e |C | TERMIN|
|0003da60| 41 54 45 20 54 48 45 20 | 43 41 4c 4c 20 54 4f 20 |ATE THE |CALL TO |
|0003da70| 46 44 45 52 2e 20 49 4e | 20 54 48 49 53 20 43 41 |FDER. IN| THIS CA|
|0003da80| 53 45 20 53 45 54 20 49 | 45 52 20 54 4f 20 41 0a |SE SET I|ER TO A.|
|0003da90| 43 20 20 20 20 20 20 20 | 20 20 4e 45 47 41 54 49 |C | NEGATI|
|0003daa0| 56 45 20 49 4e 54 45 47 | 45 52 2e 0a 43 0a 43 20 |VE INTEG|ER..C.C |
|0003dab0| 20 20 20 20 20 20 58 20 | 49 53 20 41 20 4c 49 4e | X |IS A LIN|
|0003dac0| 45 41 52 20 41 52 52 41 | 59 20 4f 46 20 4c 45 4e |EAR ARRA|Y OF LEN|
|0003dad0| 47 54 48 20 4e 2e 0a 43 | 0a 43 20 20 20 20 20 20 |GTH N..C|.C |
|0003dae0| 20 46 20 49 53 20 41 20 | 4c 49 4e 45 41 52 20 41 | F IS A |LINEAR A|
|0003daf0| 52 52 41 59 20 4f 46 20 | 4c 45 4e 47 54 48 20 4e |RRAY OF |LENGTH N|
|0003db00| 2e 20 4f 4e 20 49 4e 50 | 55 54 20 49 54 20 53 48 |. ON INP|UT IT SH|
|0003db10| 4f 55 4c 44 20 43 4f 4e | 54 41 49 4e 0a 43 20 20 |OULD CON|TAIN.C |
|0003db20| 20 20 20 20 20 20 20 54 | 48 45 20 56 41 4c 55 45 | T|HE VALUE|
|0003db30| 20 4f 46 20 54 48 45 20 | 46 55 4e 43 54 49 4f 4e | OF THE |FUNCTION|
|0003db40| 20 45 56 41 4c 55 41 54 | 45 44 20 41 54 20 58 2e | EVALUAT|ED AT X.|
|0003db50| 0a 43 0a 43 20 20 20 20 | 20 20 20 4d 31 20 49 53 |.C.C | M1 IS|
|0003db60| 20 41 4e 20 49 4e 54 45 | 47 45 52 20 56 41 52 49 | AN INTE|GER VARI|
|0003db70| 41 42 4c 45 20 57 48 49 | 43 48 20 53 50 45 43 49 |ABLE WHI|CH SPECI|
|0003db80| 46 49 45 53 20 54 48 45 | 20 4e 55 4d 42 45 52 20 |FIES THE| NUMBER |
|0003db90| 4f 46 0a 43 20 20 20 20 | 20 20 20 20 20 53 55 42 |OF.C | SUB|
|0003dba0| 2d 44 49 41 47 4f 4e 41 | 4c 53 20 57 49 54 48 49 |-DIAGONA|LS WITHI|
|0003dbb0| 4e 20 54 48 45 20 42 41 | 4e 44 20 4f 46 20 54 48 |N THE BA|ND OF TH|
|0003dbc0| 45 20 4a 41 43 4f 42 49 | 41 4e 20 4d 41 54 52 49 |E JACOBI|AN MATRI|
|0003dbd0| 58 2e 0a 43 20 20 20 20 | 20 20 20 20 20 49 46 20 |X..C | IF |
|0003dbe0| 54 48 45 52 45 20 49 53 | 20 4e 4f 20 42 41 4e 44 |THERE IS| NO BAND|
|0003dbf0| 20 53 45 54 20 4d 31 20 | 54 4f 20 41 54 20 4c 45 | SET M1 |TO AT LE|
|0003dc00| 41 53 54 20 4e 20 2d 20 | 31 2e 0a 43 0a 43 20 20 |AST N - |1..C.C |
|0003dc10| 20 20 20 20 20 4d 32 20 | 49 53 20 41 4e 20 49 4e | M2 |IS AN IN|
|0003dc20| 54 45 47 45 52 20 56 41 | 52 49 41 42 4c 45 20 57 |TEGER VA|RIABLE W|
|0003dc30| 48 49 43 48 20 53 50 45 | 43 49 46 49 45 53 20 54 |HICH SPE|CIFIES T|
|0003dc40| 48 45 20 4e 55 4d 42 45 | 52 20 4f 46 0a 43 20 20 |HE NUMBE|R OF.C |
|0003dc50| 20 20 20 20 20 20 20 53 | 55 50 45 52 2d 44 49 41 | S|UPER-DIA|
|0003dc60| 47 4f 4e 41 4c 53 20 57 | 49 54 48 49 4e 20 54 48 |GONALS W|ITHIN TH|
|0003dc70| 45 20 42 41 4e 44 20 4f | 46 20 54 48 45 20 4a 41 |E BAND O|F THE JA|
|0003dc80| 43 4f 42 49 41 4e 20 4d | 41 54 52 49 58 2e 0a 43 |COBIAN M|ATRIX..C|
|0003dc90| 20 20 20 20 20 20 20 20 | 20 49 46 20 54 48 45 52 | | IF THER|
|0003dca0| 45 20 49 53 20 4e 4f 20 | 42 41 4e 44 20 53 45 54 |E IS NO |BAND SET|
|0003dcb0| 20 4d 32 20 54 4f 20 41 | 54 20 4c 45 41 53 54 20 | M2 TO A|T LEAST |
|0003dcc0| 4e 20 2d 20 31 2e 0a 43 | 0a 43 20 20 20 20 20 20 |N - 1..C|.C |
|0003dcd0| 20 41 20 49 53 20 41 4e | 20 4e 20 42 59 20 4e 20 | A IS AN| N BY N |
|0003dce0| 41 52 52 41 59 2e 20 54 | 48 45 20 41 50 50 52 4f |ARRAY. T|HE APPRO|
|0003dcf0| 58 49 4d 41 54 49 4f 4e | 20 54 4f 20 54 48 45 20 |XIMATION| TO THE |
|0003dd00| 4a 41 43 4f 42 49 41 4e | 0a 43 20 20 20 20 20 20 |JACOBIAN|.C |
|0003dd10| 20 20 20 4d 41 54 52 49 | 58 20 49 53 20 53 54 4f | MATRI|X IS STO|
|0003dd20| 52 45 44 20 49 4e 20 41 | 2e 0a 43 0a 43 20 20 20 |RED IN A|..C.C |
|0003dd30| 20 20 20 20 57 41 31 2c | 57 41 32 2c 20 41 4e 44 | WA1,|WA2, AND|
|0003dd40| 20 57 41 33 20 41 52 45 | 20 4c 49 4e 45 41 52 20 | WA3 ARE| LINEAR |
|0003dd50| 53 43 52 41 54 43 48 20 | 41 52 52 41 59 53 20 4f |SCRATCH |ARRAYS O|
|0003dd60| 46 20 4c 45 4e 47 54 48 | 20 4e 2e 20 49 46 0a 43 |F LENGTH| N. IF.C|
|0003dd70| 20 20 20 20 20 20 20 20 | 20 4d 31 20 2b 20 4d 32 | | M1 + M2|
|0003dd80| 20 2b 20 31 20 49 53 20 | 41 54 20 4c 45 41 53 54 | + 1 IS |AT LEAST|
|0003dd90| 20 4e 20 54 48 45 4e 20 | 54 48 45 53 45 20 41 52 | N THEN |THESE AR|
|0003dda0| 52 41 59 53 20 4d 41 59 | 0a 43 20 20 20 20 20 20 |RAYS MAY|.C |
|0003ddb0| 20 20 20 4f 43 43 55 50 | 59 20 54 48 45 20 53 41 | OCCUP|Y THE SA|
|0003ddc0| 4d 45 20 53 54 4f 52 41 | 47 45 2e 0a 43 0a 43 20 |ME STORA|GE..C.C |
|0003ddd0| 20 20 20 20 20 20 49 45 | 52 20 49 53 20 41 4e 20 | IE|R IS AN |
|0003dde0| 49 4e 54 45 47 45 52 20 | 56 41 52 49 41 42 4c 45 |INTEGER |VARIABLE|
|0003ddf0| 2e 20 49 54 20 43 41 4e | 20 42 45 20 55 53 45 44 |. IT CAN| BE USED|
|0003de00| 20 54 4f 20 54 45 52 4d | 49 4e 41 54 45 0a 43 20 | TO TERM|INATE.C |
|0003de10| 20 20 20 20 20 20 20 20 | 54 48 45 20 43 41 4c 4c | |THE CALL|
|0003de20| 20 54 4f 20 46 44 45 52 | 3b 20 53 45 45 20 54 48 | TO FDER|; SEE TH|
|0003de30| 45 20 44 49 53 43 55 53 | 49 4f 4e 20 55 4e 44 45 |E DISCUS|ION UNDE|
|0003de40| 52 20 46 43 4e 2e 0a 43 | 0a 43 20 20 20 4a 4f 52 |R FCN..C|.C JOR|
|0003de50| 47 45 20 4a 2e 20 4d 4f | 52 45 27 2c 20 41 55 47 |GE J. MO|RE', AUG|
|0003de60| 55 53 54 20 31 39 37 36 | 0a 43 0a 43 43 43 43 43 |UST 1976|.C.CCCCC|
|0003de70| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|0003de80| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|0003de90| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|0003dea0| 43 43 43 43 43 43 43 43 | 43 43 43 43 43 43 43 43 |CCCCCCCC|CCCCCCCC|
|0003deb0| 43 43 0a 43 0a 20 20 20 | 20 20 20 53 55 42 52 4f |CC.C. | SUBRO|
|0003dec0| 55 54 49 4e 45 20 46 44 | 45 52 28 4e 2c 46 43 4e |UTINE FD|ER(N,FCN|
|0003ded0| 2c 58 2c 46 2c 4d 31 2c | 4d 32 2c 41 2c 0a 20 20 |,X,F,M1,|M2,A,. |
|0003dee0| 20 20 20 26 57 41 31 2c | 57 41 32 2c 57 41 33 2c | &WA1,|WA2,WA3,|
|0003def0| 49 45 52 2c 0a 20 20 20 | 20 20 26 58 50 2c 58 57 |IER,. | &XP,XW|
|0003df00| 2c 58 56 2c 58 56 30 2c | 0a 20 20 20 20 20 26 58 |,XV,XV0,|. &X|
|0003df10| 53 56 2c 58 43 53 2c 58 | 52 4f 43 2c 58 52 41 43 |SV,XCS,X|ROC,XRAC|
|0003df20| 2c 58 45 4f 43 2c 58 43 | 45 4f 2c 58 52 45 4f 2c |,XEOC,XC|EO,XREO,|
|0003df30| 0a 20 20 20 20 20 26 58 | 53 45 4f 2c 58 45 41 43 |. &X|SEO,XEAC|
|0003df40| 2c 58 46 4f 43 2c 58 46 | 41 43 2c 58 46 4f 4b 2c |,XFOC,XF|AC,XFOK,|
|0003df50| 58 52 46 4f 2c 58 53 46 | 4f 2c 0a 20 20 20 20 20 |XRFO,XSF|O,. |
|0003df60| 26 58 46 41 4b 2c 58 41 | 4d 2c 58 42 4d 2c 58 43 |&XFAK,XA|M,XBM,XC|
|0003df70| 4d 2c 58 42 30 2c 58 42 | 31 2c 58 42 32 2c 0a 20 |M,XB0,XB|1,XB2,. |
|0003df80| 20 20 20 20 26 58 43 50 | 2c 58 41 4c 50 2c 58 42 | &XCP|,XALP,XB|
|0003df90| 50 2c 58 42 47 2c 58 42 | 47 50 2c 58 43 47 2c 58 |P,XBG,XB|GP,XCG,X|
|0003dfa0| 50 43 43 2c 0a 20 20 20 | 20 20 26 58 45 54 48 43 |PCC,. | &XETHC|
|0003dfb0| 2c 58 45 54 48 43 50 2c | 58 50 41 41 2c 58 45 54 |,XETHCP,|XPAA,XET|
|0003dfc0| 48 41 2c 58 45 54 48 41 | 50 2c 58 50 43 43 41 2c |HA,XETHA|P,XPCCA,|
|0003dfd0| 58 50 43 41 41 2c 0a 20 | 20 20 20 20 26 58 44 43 |XPCAA,. | &XDC|
|0003dfe0| 41 2c 58 50 4e 43 2c 58 | 50 4e 41 2c 58 50 4e 4e |A,XPNC,X|PNA,XPNN|
|0003dff0| 2c 58 5a 41 2c 58 5a 46 | 41 2c 58 5a 43 2c 0a 20 |,XZA,XZF|A,XZC,. |
|0003e000| 20 20 20 20 26 58 5a 46 | 43 2c 58 47 2c 58 47 4f | &XZF|C,XG,XGO|
|0003e010| 2c 58 47 58 30 2c 58 56 | 52 54 2c 58 50 48 2c 58 |,XGX0,XV|RT,XPH,X|
|0003e020| 50 48 56 2c 0a 20 20 20 | 20 20 26 58 58 46 2c 58 |PHV,. | &XXF,X|
|0003e030| 47 58 2c 58 41 43 2c 58 | 58 2c 58 58 43 2c 58 43 |GX,XAC,X|X,XXC,XC|
|0003e040| 41 50 2c 58 43 4f 50 2c | 0a 20 20 20 20 20 26 58 |AP,XCOP,|. &X|
|0003e050| 52 5a 49 52 2c 58 53 43 | 50 53 49 2c 4e 58 43 4f |RZIR,XSC|PSI,NXCO|
|0003e060| 50 2c 4e 58 43 41 50 2c | 4e 58 46 2c 49 58 43 41 |P,NXCAP,|NXF,IXCA|
|0003e070| 2c 49 58 41 4e 2c 0a 20 | 20 20 20 20 26 49 58 4e |,IXAN,. | &IXN|
|0003e080| 55 2c 49 58 50 54 2c 4e | 58 5a 41 2c 4e 58 5a 50 |U,IXPT,N|XZA,NXZP|
|0003e090| 4f 2c 49 58 59 2c 49 58 | 4e 43 41 4c 2c 49 58 45 |O,IXY,IX|NCAL,IXE|
|0003e0a0| 51 2c 0a 20 20 20 20 20 | 26 49 58 45 48 2c 49 58 |Q,. |&IXEH,IX|
|0003e0b0| 43 4e 2c 49 58 53 54 2c | 49 49 44 43 2c 49 4e 50 |CN,IXST,|IIDC,INP|
|0003e0c0| 53 49 29 0a 20 20 20 20 | 20 20 53 41 56 45 0a 20 |SI). | SAVE. |
|0003e0d0| 20 20 20 20 20 49 4e 54 | 45 47 45 52 20 4e 2c 4d | INT|EGER N,M|
|0003e0e0| 31 2c 4d 32 2c 49 45 52 | 0a 20 20 20 20 20 20 44 |1,M2,IER|. D|
|0003e0f0| 4f 55 42 4c 45 20 50 52 | 45 43 49 53 49 4f 4e 20 |OUBLE PR|ECISION |
|0003e100| 58 28 4e 29 2c 46 28 4e | 29 2c 41 28 4e 2c 4e 29 |X(N),F(N|),A(N,N)|
|0003e110| 2c 57 41 31 28 4e 29 2c | 57 41 32 28 4e 29 2c 57 |,WA1(N),|WA2(N),W|
|0003e120| 41 33 28 4e 29 0a 20 20 | 20 20 20 20 44 4f 55 42 |A3(N). | DOUB|
|0003e130| 4c 45 20 50 52 45 43 49 | 53 49 4f 4e 20 58 50 28 |LE PRECI|SION XP(|
|0003e140| 2a 29 2c 58 57 28 2a 29 | 2c 58 56 28 2a 29 2c 58 |*),XW(*)|,XV(*),X|
|0003e150| 56 30 28 2a 29 2c 58 53 | 56 28 2a 29 2c 58 43 53 |V0(*),XS|V(*),XCS|
|0003e160| 28 2a 29 2c 0a 20 20 20 | 20 20 26 58 52 4f 43 28 |(*),. | &XROC(|
|0003e170| 38 2c 2a 29 2c 58 52 41 | 43 28 38 2c 2a 29 2c 58 |8,*),XRA|C(8,*),X|
|0003e180| 45 4f 43 28 38 2c 2a 29 | 2c 58 43 45 4f 28 2a 29 |EOC(8,*)|,XCEO(*)|
|0003e190| 2c 58 52 45 4f 28 35 2c | 38 2b 4e 53 4f 2c 2a 29 |,XREO(5,|8+NSO,*)|
|0003e1a0| 2c 0a 20 20 20 20 20 26 | 58 53 45 4f 28 38 2b 4e |,. &|XSEO(8+N|
|0003e1b0| 53 4f 2c 2a 29 2c 58 45 | 41 43 28 38 2c 2a 29 2c |SO,*),XE|AC(8,*),|
|0003e1c0| 58 46 4f 43 28 38 2c 2a | 29 2c 58 46 41 43 28 38 |XFOC(8,*|),XFAC(8|
|0003e1d0| 2c 2a 29 2c 58 46 4f 4b | 28 2a 29 2c 58 52 46 4f |,*),XFOK|(*),XRFO|
|0003e1e0| 28 35 2c 2a 29 2c 0a 20 | 20 20 20 20 26 58 53 46 |(5,*),. | &XSF|
|0003e1f0| 4f 28 2a 29 2c 58 46 41 | 4b 28 2a 29 2c 58 41 4d |O(*),XFA|K(*),XAM|
|0003e200| 28 2a 29 2c 58 42 4d 28 | 2a 29 2c 58 43 4d 28 2a |(*),XBM(|*),XCM(*|
|0003e210| 29 2c 58 42 30 28 2a 29 | 2c 58 42 31 28 2a 29 2c |),XB0(*)|,XB1(*),|
|0003e220| 58 42 32 28 2a 29 2c 0a | 20 20 20 20 20 26 58 43 |XB2(*),.| &XC|
|0003e230| 50 28 2a 29 2c 58 41 4c | 50 28 32 2c 2a 29 2c 58 |P(*),XAL|P(2,*),X|
|0003e240| 42 50 28 2a 29 2c 58 42 | 47 28 2a 29 2c 58 42 47 |BP(*),XB|G(*),XBG|
|0003e250| 50 28 2a 29 2c 58 43 47 | 28 2a 29 2c 58 50 43 43 |P(*),XCG|(*),XPCC|
|0003e260| 28 2a 29 2c 58 45 54 48 | 43 28 2a 29 2c 0a 20 20 |(*),XETH|C(*),. |
|0003e270| 20 20 20 26 58 45 54 48 | 43 50 28 2a 29 2c 58 50 | &XETH|CP(*),XP|
|0003e280| 41 41 28 2a 29 2c 58 45 | 54 48 41 28 2a 29 2c 58 |AA(*),XE|THA(*),X|
|0003e290| 45 54 48 41 50 28 2a 29 | 2c 58 50 43 43 41 28 2a |ETHAP(*)|,XPCCA(*|
|0003e2a0| 29 2c 58 50 43 41 41 28 | 2a 29 2c 58 44 43 41 28 |),XPCAA(|*),XDCA(|
|0003e2b0| 2a 29 2c 0a 20 20 20 20 | 20 26 58 50 4e 43 28 2a |*),. | &XPNC(*|
|0003e2c0| 29 2c 58 50 4e 41 28 2a | 29 2c 58 50 4e 4e 28 2a |),XPNA(*|),XPNN(*|
|0003e2d0| 29 2c 58 5a 41 28 2a 29 | 2c 58 5a 46 41 28 2a 29 |),XZA(*)|,XZFA(*)|
|0003e2e0| 2c 58 5a 43 28 2a 29 2c | 58 5a 46 43 28 2a 29 2c |,XZC(*),|XZFC(*),|
|0003e2f0| 58 47 28 2a 29 2c 0a 20 | 20 20 20 20 26 58 47 4f |XG(*),. | &XGO|
|0003e300| 28 2a 29 2c 58 47 58 30 | 28 2a 29 2c 58 56 52 54 |(*),XGX0|(*),XVRT|
|0003e310| 28 2a 29 2c 58 50 48 28 | 2a 29 2c 58 50 48 56 28 |(*),XPH(|*),XPHV(|
|0003e320| 2a 29 2c 58 58 46 28 2a | 29 2c 58 47 58 28 2a 29 |*),XXF(*|),XGX(*)|
|0003e330| 2c 58 41 43 28 2a 29 2c | 0a 20 20 20 20 20 26 58 |,XAC(*),|. &X|
|0003e340| 58 28 31 30 2c 2a 29 2c | 58 58 43 28 2a 29 2c 58 |X(10,*),|XXC(*),X|
|0003e350| 43 41 50 28 2a 29 2c 58 | 43 4f 50 28 2a 29 2c 58 |CAP(*),X|COP(*),X|
|0003e360| 52 5a 49 52 28 2a 29 2c | 58 53 43 50 53 49 28 2a |RZIR(*),|XSCPSI(*|
|0003e370| 29 0a 20 20 20 20 20 20 | 43 4f 4d 4d 4f 4e 2f 4d |). |COMMON/M|
|0003e380| 43 48 50 52 53 2f 45 50 | 53 0a 20 20 20 20 20 20 |CHPRS/EP|S. |
|0003e390| 44 49 4d 45 4e 53 49 4f | 4e 20 4e 58 43 4f 50 28 |DIMENSIO|N NXCOP(|
|0003e3a0| 38 2c 2a 29 2c 4e 58 43 | 41 50 28 37 2c 2a 29 2c |8,*),NXC|AP(7,*),|
|0003e3b0| 4e 58 46 28 2a 29 2c 49 | 58 43 41 28 2a 29 2c 49 |NXF(*),I|XCA(*),I|
|0003e3c0| 58 41 4e 28 2a 29 2c 0a | 20 20 20 20 20 26 49 58 |XAN(*),.| &IX|
|0003e3d0| 4e 55 28 2a 29 2c 4e 58 | 5a 41 28 2a 29 2c 4e 58 |NU(*),NX|ZA(*),NX|
|0003e3e0| 5a 50 4f 28 2a 29 2c 49 | 4e 50 53 49 28 2a 29 0a |ZPO(*),I|NPSI(*).|
|0003e3f0| 43 0a 20 20 20 20 20 20 | 49 4e 54 45 47 45 52 20 |C. |INTEGER |
|0003e400| 49 2c 4a 2c 4b 2c 4d 33 | 0a 20 20 20 20 20 20 44 |I,J,K,M3|. D|
|0003e410| 4f 55 42 4c 45 20 50 52 | 45 43 49 53 49 4f 4e 20 |OUBLE PR|ECISION |
|0003e420| 45 50 53 2c 48 2c 54 45 | 4d 50 2c 5a 45 52 4f 0a |EPS,H,TE|MP,ZERO.|
|0003e430| 20 20 20 20 20 20 44 4f | 55 42 4c 45 20 50 52 45 | DO|UBLE PRE|
|0003e440| 43 49 53 49 4f 4e 20 44 | 41 42 53 2c 44 53 51 52 |CISION D|ABS,DSQR|
|0003e450| 54 0a 20 20 20 20 20 20 | 44 41 54 41 20 5a 45 52 |T. |DATA ZER|
|0003e460| 4f 2c 48 20 2f 30 2e 44 | 30 2c 31 2e 30 44 2d 36 |O,H /0.D|0,1.0D-6|
|0003e470| 2f 0a 20 20 20 20 20 20 | 4d 33 20 3d 20 4d 31 20 |/. |M3 = M1 |
|0003e480| 2b 20 4d 32 20 2b 20 31 | 0a 20 20 20 20 20 20 49 |+ M2 + 1|. I|
|0003e490| 46 20 28 4d 33 20 2e 4c | 54 2e 20 4e 29 20 47 4f |F (M3 .L|T. N) GO|
|0003e4a0| 20 54 4f 20 33 30 0a 43 | 0a 43 20 20 20 20 20 43 | TO 30.C|.C C|
|0003e4b0| 4f 4d 50 55 54 41 54 49 | 4f 4e 20 4f 46 20 44 45 |OMPUTATI|ON OF DE|
|0003e4c0| 4e 53 45 20 41 50 50 52 | 4f 58 49 4d 41 54 45 20 |NSE APPR|OXIMATE |
|0003e4d0| 4a 41 43 4f 42 49 41 4e | 2e 0a 43 0a 20 20 20 20 |JACOBIAN|..C. |
|0003e4e0| 20 20 44 4f 20 32 30 20 | 4a 20 3d 20 31 2c 4e 0a | DO 20 |J = 1,N.|
|0003e4f0| 20 20 20 20 20 20 20 20 | 20 54 45 4d 50 20 3d 20 | | TEMP = |
|0003e500| 58 28 4a 29 0a 20 20 20 | 20 20 20 20 20 20 58 28 |X(J). | X(|
|0003e510| 4a 29 20 3d 20 54 45 4d | 50 20 2b 20 48 0a 20 20 |J) = TEM|P + H. |
|0003e520| 20 20 20 20 20 20 20 43 | 41 4c 4c 20 46 43 4e 28 | C|ALL FCN(|
|0003e530| 4e 2c 58 2c 57 41 31 2c | 49 45 52 2c 0a 20 20 20 |N,X,WA1,|IER,. |
|0003e540| 20 20 26 58 50 2c 58 57 | 2c 58 56 2c 58 56 30 2c | &XP,XW|,XV,XV0,|
|0003e550| 0a 20 20 20 20 20 26 58 | 53 56 2c 58 43 53 2c 58 |. &X|SV,XCS,X|
|0003e560| 52 4f 43 2c 58 52 41 43 | 2c 58 45 4f 43 2c 58 43 |ROC,XRAC|,XEOC,XC|
|0003e570| 45 4f 2c 58 52 45 4f 2c | 0a 20 20 20 20 20 26 58 |EO,XREO,|. &X|
|0003e580| 53 45 4f 2c 58 45 41 43 | 2c 58 46 4f 43 2c 58 46 |SEO,XEAC|,XFOC,XF|
|0003e590| 41 43 2c 58 46 4f 4b 2c | 58 52 46 4f 2c 58 53 46 |AC,XFOK,|XRFO,XSF|
|0003e5a0| 4f 2c 0a 20 20 20 20 20 | 26 58 46 41 4b 2c 58 41 |O,. |&XFAK,XA|
|0003e5b0| 4d 2c 58 42 4d 2c 58 43 | 4d 2c 58 42 30 2c 58 42 |M,XBM,XC|M,XB0,XB|
|0003e5c0| 31 2c 58 42 32 2c 0a 20 | 20 20 20 20 26 58 43 50 |1,XB2,. | &XCP|
|0003e5d0| 2c 58 41 4c 50 2c 58 42 | 50 2c 58 42 47 2c 58 42 |,XALP,XB|P,XBG,XB|
|0003e5e0| 47 50 2c 58 43 47 2c 58 | 50 43 43 2c 0a 20 20 20 |GP,XCG,X|PCC,. |
|0003e5f0| 20 20 26 58 45 54 48 43 | 2c 58 45 54 48 43 50 2c | &XETHC|,XETHCP,|
|0003e600| 58 50 41 41 2c 58 45 54 | 48 41 2c 58 45 54 48 41 |XPAA,XET|HA,XETHA|
|0003e610| 50 2c 58 50 43 43 41 2c | 58 50 43 41 41 2c 0a 20 |P,XPCCA,|XPCAA,. |
|0003e620| 20 20 20 20 26 58 44 43 | 41 2c 58 50 4e 43 2c 58 | &XDC|A,XPNC,X|
|0003e630| 50 4e 41 2c 58 50 4e 4e | 2c 58 5a 41 2c 58 5a 46 |PNA,XPNN|,XZA,XZF|
|0003e640| 41 2c 58 5a 43 2c 0a 20 | 20 20 20 20 26 58 5a 46 |A,XZC,. | &XZF|
|0003e650| 43 2c 58 47 2c 58 47 4f | 2c 58 47 58 30 2c 58 56 |C,XG,XGO|,XGX0,XV|
|0003e660| 52 54 2c 58 50 48 2c 58 | 50 48 56 2c 0a 20 20 20 |RT,XPH,X|PHV,. |
|0003e670| 20 20 26 58 58 46 2c 58 | 47 58 2c 58 41 43 2c 58 | &XXF,X|GX,XAC,X|
|0003e680| 58 2c 58 58 43 2c 58 43 | 41 50 2c 58 43 4f 50 2c |X,XXC,XC|AP,XCOP,|
|0003e690| 0a 20 20 20 20 20 26 58 | 52 5a 49 52 2c 58 53 43 |. &X|RZIR,XSC|
|0003e6a0| 50 53 49 2c 4e 58 43 4f | 50 2c 4e 58 43 41 50 2c |PSI,NXCO|P,NXCAP,|
|0003e6b0| 4e 58 46 2c 49 58 43 41 | 2c 49 58 41 4e 2c 0a 20 |NXF,IXCA|,IXAN,. |
|0003e6c0| 20 20 20 20 26 49 58 4e | 55 2c 49 58 50 54 2c 4e | &IXN|U,IXPT,N|
|0003e6d0| 58 5a 41 2c 4e 58 5a 50 | 4f 2c 49 58 59 2c 49 58 |XZA,NXZP|O,IXY,IX|
|0003e6e0| 4e 43 41 4c 2c 49 58 45 | 51 2c 0a 20 20 20 20 20 |NCAL,IXE|Q,. |
|0003e6f0| 26 49 58 45 48 2c 49 58 | 43 4e 2c 49 58 53 54 2c |&IXEH,IX|CN,IXST,|
|0003e700| 49 49 44 43 2c 49 4e 50 | 53 49 29 0a 20 20 20 20 |IIDC,INP|SI). |
|0003e710| 20 20 20 20 49 46 20 28 | 49 45 52 20 2e 4c 54 2e | IF (|IER .LT.|
|0003e720| 20 30 29 20 52 45 54 55 | 52 4e 0a 20 20 20 20 20 | 0) RETU|RN. |
|0003e730| 20 20 20 20 44 4f 20 31 | 30 20 49 20 3d 20 31 2c | DO 1|0 I = 1,|
|0003e740| 4e 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 41 28 |N. | A(|
|0003e750| 49 2c 4a 29 20 3d 20 28 | 57 41 31 28 49 29 20 2d |I,J) = (|WA1(I) -|
|0003e760| 20 46 28 49 29 29 2f 48 | 0a 20 31 30 20 20 20 20 | F(I))/H|. 10 |
|0003e770| 20 20 20 20 20 43 4f 4e | 54 49 4e 55 45 0a 20 20 | CON|TINUE. |
|0003e780| 20 20 20 20 20 20 20 58 | 28 4a 29 20 3d 20 54 45 | X|(J) = TE|
|0003e790| 4d 50 0a 20 32 30 20 20 | 20 20 20 20 43 4f 4e 54 |MP. 20 | CONT|
|0003e7a0| 49 4e 55 45 0a 20 20 20 | 20 20 20 52 45 54 55 52 |INUE. | RETUR|
|0003e7b0| 4e 0a 43 0a 43 20 20 20 | 20 20 43 4f 4d 50 55 54 |N.C.C | COMPUT|
|0003e7c0| 41 54 49 4f 4e 20 4f 46 | 20 42 41 4e 44 45 44 20 |ATION OF| BANDED |
|0003e7d0| 41 50 50 52 4f 58 49 4d | 41 54 45 20 4a 41 43 4f |APPROXIM|ATE JACO|
|0003e7e0| 42 49 41 4e 2e 0a 43 0a | 20 33 30 20 20 20 43 4f |BIAN..C.| 30 CO|
|0003e7f0| 4e 54 49 4e 55 45 0a 20 | 20 20 20 20 20 44 4f 20 |NTINUE. | DO |
+--------+-------------------------+-------------------------+--------+--------+
Only 250.0 KB of data is shown above.
