data; param :Aij: A := ".Z...." "...100" -3280. "....01" "...100" .506 "....04" "...100" 1. "....05" "...100" .182 "....55" "...100" .312 ".Z...." "...101" -3280. "....01" "...101" .638 "....04" "...101" 1. "....05" "...101" .05 "....55" "...101" .312 ".Z...." "...102" 3310. "....01" "...102" -1. ".Z...." "...103" -1890. "....05" "...103" .92 "....30" "...103" 1. "....49" "...103" -9.5 "....52" "...103" -.042 "....53" "...103" -.063 "....55" "...103" .08 "....34" "...104" .825 "....35" "...104" .175 "....40" "...104" 1. "....51" "...104" 16. "....35" "...105" .175 "....40" "...105" 1. "....46" "...105" .825 "....51" "...105" 21. ".Z...." "...106" -1890. "....06" "...106" 1. "....30" "...106" 1. "....49" "...106" 3.6 "....52" "...106" -.042 "....53" "...106" -.063 ".Z...." "...107" -903. "....06" "...107" 1. "....38" "...107" 1. "....06" "...108" 1. "....50" "...108" -.8 ".Z...." "...109" 432. "....31" "...109" -1.23 "....42" "...109" .23 ".Z...." "...110" 432. "....32" "...110" -1.23 "....43" "...110" .23 "....56" "...110" 1. ".Z...." "...111" 432. "....33" "...111" -1.23 "....44" "...111" .23 "....56" "...111" 1. ".Z...." "...112" 446. "....07" "...112" 1. "....31" "...112" -1. ".Z...." "...113" 446. "....07" "...113" 1. "....32" "...113" -1. ".Z...." "...114" 446. "....07" "...114" 1. "....33" "...114" -1. ".Z...." "...115" 450. "....08" "...115" 1. "....31" "...115" -.95 "....42" "...115" -.05 ".Z...." "...116" 450. "....08" "...116" 1. "....32" "...116" -.95 "....43" "...116" -.05 ".Z...." "...117" 450. "....08" "...117" 1. "....33" "...117" -.95 "....44" "...117" -.05 ".Z...." "...118" 459. "....09" "...118" 1. "....31" "...118" -.79 "....42" "...118" -.21 ".Z...." "...119" 459. "....09" "...119" 1. "....32" "...119" -.79 "....43" "...119" -.21 ".Z...." "...120" 459. "....09" "...120" 1. "....33" "...120" -.79 "....44" "...120" -.21 ".Z...." "...121" 483. "....11" "...121" 1. "....31" "...121" -.42 "....42" "...121" -.58 ".Z...." "...122" 483. "....11" "...122" 1. "....32" "...122" -.42 "....43" "...122" -.58 ".Z...." "...123" 483. "....11" "...123" 1. "....33" "...123" -.42 "....44" "...123" -.58 ".Z...." "...124" 500. "....12" "...124" 1. "....31" "...124" -.05 "....42" "...124" -.95 ".Z...." "...125" 500. "....12" "...125" 1. "....32" "...125" -.05 "....43" "...125" -.95 ".Z...." "...126" 500. "....12" "...126" 1. "....33" "...126" -.05 "....44" "...126" -.95 ".Z...." "...127" 493. "....13" "...127" 1. "....31" "...127" -.26 "....42" "...127" -.74 ".Z...." "...128" 493. "....13" "...128" 1. "....32" "...128" -.26 "....43" "...128" -.74 ".Z...." "...129" 493. "....13" "...129" 1. "....33" "...129" -.26 "....44" "...129" -.74 ".Z...." "...130" -1890. "....14" "...130" 1. "....30" "...130" 1. "....49" "...130" -3.2 "....52" "...130" -.042 "....53" "...130" -.063 ".Z...." "...131" -903. "....14" "...131" 1. "....38" "...131" 1. ".Z...." "...132" 506. "....17" "...132" 1. "....31" "...132" .26 "....42" "...132" -1.26 "....14" "...133" 1. "....50" "...133" -.8 ".Z...." "...134" 506. "....17" "...134" 1. "....32" "...134" .26 "....43" "...134" -1.26 ".Z...." "...135" 506. "....17" "...135" 1. "....33" "...135" .26 "....44" "...135" -1.26 ".Z...." "...136" 505. "....15" "...136" 1. "....31" "...136" .16 "....42" "...136" -1.16 ".Z...." "...137" 505. "....15" "...137" 1. "....32" "...137" .16 "....43" "...137" -1.16 ".Z...." "...138" 505. "....15" "...138" 1. "....33" "...138" .16 "....44" "...138" -1.16 ".Z...." "...139" 499. "....16" "...139" 1. "....31" "...139" -.16 "....42" "...139" -.84 ".Z...." "...140" 499. "....16" "...140" 1. "....32" "...140" -.16 "....43" "...140" -.84 ".Z...." "...141" 499. "....16" "...141" 1. "....33" "...141" -.16 "....44" "...141" -.84 "....10" "...142" -1. "....02" "...143" 1. "....03" "...143" .79 "....10" "...143" 37. "....28" "...143" .494 "....34" "...143" .506 "....54" "...143" 2.27424 "....02" "...144" 1. "....03" "...144" .53 "....10" "...144" 47. "....28" "...144" .492 "....46" "...144" .508 "....54" "...144" 2.2632 ".Z...." "...145" 512. "....18" "...145" 1. "....31" "...145" .62 "....42" "...145" -1.62 ".Z...." "...146" 512. "....18" "...146" 1. "....32" "...146" .62 "....43" "...146" -1.62 ".Z...." "...147" 512. "....18" "...147" 1. "....33" "...147" .62 "....44" "...147" -1.62 ".Z...." "...148" 70.9 "....01" "...148" -.247 "....06" "...148" .1726 "....14" "...148" -.3122 "....20" "...148" 1.783 "....28" "...148" .4703 "....50" "...148" -.0928 "....54" "...148" 1.40015 ".Z...." "...149" 39.8 "....01" "...149" -.157 "....14" "...149" -.2399 "....20" "...149" 1. "....28" "...149" .4273 "....50" "...149" -.0361 "....54" "...149" 1.20404 ".Z...." "...150" 39.8 "....01" "...150" -.157 "....14" "...150" -.2789 "....20" "...150" 1. "....28" "...150" .4663 "....50" "...150" -.0361 "....54" "...150" 1.43498 ".Z...." "...151" 2.04 "....26" "...151" 1. "....28" "...151" .55 "....50" "...151" -.52 "....54" "...151" .6 "....28" "...152" 1. "....50" "...152" -1. "....54" "...152" 1.8 ".Z...." "...153" 1.8 "....03" "...153" -.33 "....21" "...153" 1. "....50" "...153" .017 ".Z...." "...154" 1.8 "....21" "...154" 1. "....37" "...154" -.33 ".Z...." "...155" -2600. "....01" "...155" .2 "....14" "...155" .73 "....29" "...155" 1. "....55" "...155" .07 ".Z...." "...156" -2600. "....14" "...156" .72 "....29" "...156" 1. "....47" "...156" .2 "....55" "...156" .08 ".Z...." "...157" 10.4 "....02" "...157" 1. "....03" "...157" .25 "....10" "...157" 45. "....22" "...157" .875 "....28" "...157" .3675 "....34" "...157" .6325 "....50" "...157" .02536 "....54" "...157" 1.614 ".Z...." "...158" 10.4 "....02" "...158" 1. "....03" "...158" .2 "....10" "...158" 55. "....22" "...158" .875 "....28" "...158" .365 "....46" "...158" .635 "....50" "...158" .02538 "....54" "...158" 1.59 ".Z...." "...159" 28.8 "....19" "...159" 1. "....28" "...159" -.828 "....31" "...159" 1. "....34" "...159" -.095 "....35" "...159" -.02 "....50" "...159" .012 "....54" "...159" -1.42 "....55" "...159" -.0467 ".Z...." "...160" 43.4 "....01" "...160" -.0022 "....06" "...160" -.0192 "....19" "...160" 1. "....27" "...160" .679 "....28" "...160" -.808 "....32" "...160" 1. "....34" "...160" -.095 "....35" "...160" -.02 "....50" "...160" .0205 "....54" "...160" -1.84 "....55" "...160" -.0467 ".Z...." "...161" 30.4 "....01" "...161" -.0022 "....06" "...161" -.0192 "....24" "...161" 1. "....27" "...161" .679 "....28" "...161" -.808 "....33" "...161" 1. "....34" "...161" -.095 "....35" "...161" -.02 "....50" "...161" .0205 "....54" "...161" -1.84 "....55" "...161" -.0467 "....28" "...162" -1. "....34" "...162" 1. "....54" "...162" -5.2 "....28" "...163" -1. "....35" "...163" 1. "....54" "...163" -6.7 ".Z...." "...164" -1218. "....35" "...164" 1. "....48" "...164" 1. "....35" "...165" 1. "....50" "...165" -.8 "....28" "...166" .482 "....34" "...166" .498 "....35" "...166" .02 "....36" "...166" 1. "....37" "...166" .79 "....54" "...166" 2.217 "....28" "...167" .474 "....35" "...167" .02 "....36" "...167" 1. "....37" "...167" .53 "....46" "...167" .506 "....54" "...167" 2.18 ".Z...." "...168" -1322. "....06" "...168" .07 "....35" "...168" .1 "....39" "...168" 1. "....55" "...168" .83 ".Z...." "...169" -1322. "....35" "...169" .07 "....39" "...169" 1. "....46" "...169" .33 "....55" "...169" .6 ".Z...." "...170" -1322. "....34" "...170" .33 "....35" "...170" .07 "....39" "...170" 1. "....55" "...170" .6 ".Z...." "...171" -1660. "....22" "...171" .625 "....28" "...171" -.125 "....34" "...171" 1.125 "....41" "...171" 1. "....50" "...171" .01812 "....54" "...171" -.65 ".Z...." "...172" -1670. "....41" "...172" 1. "....46" "...172" 1. ".Z...." "...173" 14.8 "....22" "...173" 1.25 "....28" "...173" -.25 "....34" "...173" 1.03125 "....35" "...173" .21875 "....40" "...173" 1. "....50" "...173" .03625 "....51" "...173" 30. "....54" "...173" -1.36562 ".Z...." "...174" 14.8 "....22" "...174" 1.25 "....28" "...174" -.25 "....35" "...174" .21875 "....40" "...174" 1. "....46" "...174" 1.03125 "....50" "...174" .03625 "....51" "...174" 35. "....54" "...174" -1.38375 ".Z...." "...175" 28.8 "....19" "...175" 1.072 "....28" "...175" -.706 "....35" "...175" -.027 "....42" "...175" 1. "....46" "...175" -.128 "....50" "...175" .0129 "....54" "...175" -1.61 "....55" "...175" -.1203 ".Z...." "...176" 43. "....01" "...176" -.0012 "....06" "...176" -.0159 "....19" "...176" 1.072 "....27" "...176" .534 "....28" "...176" -.69 "....35" "...176" -.027 "....43" "...176" 1. "....46" "...176" -.128 "....50" "...176" .0195 "....54" "...176" -1.84 "....55" "...176" -.1203 ".Z...." "...177" 30. "....01" "...177" -.0012 "....06" "...177" -.0159 "....24" "...177" 1. "....27" "...177" .534 "....28" "...177" -.69 "....35" "...177" -.027 "....44" "...177" 1. "....46" "...177" -.128 "....50" "...177" .0195 "....54" "...177" -1.84 "....55" "...177" -.1203 ".Z...." "...178" -1763. "....05" "...178" .181 "....45" "...178" 1. "....47" "...178" .11 "....55" "...178" .709 ".Z...." "...179" -1722. "....05" "...179" .051 "....45" "...179" 1. "....47" "...179" .055 "....55" "...179" .894 ".Z...." "...180" -1680. "....05" "...180" .036 "....45" "...180" 1. "....55" "...180" .964 "....28" "...181" -1. "....46" "...181" 1. "....54" "...181" -5.3 ".Z...." "...182" -1890. "....30" "...182" 1. "....47" "...182" .92 "....49" "...182" -10.1 "....52" "...182" -.042 "....53" "...182" -.063 "....55" "...182" .08 ".Z...." "...183" 1780. "....02" "...183" 1. "....03" "...183" .4 "....10" "...183" 45. ".Z...." "...184" 1600. "....28" "...184" -1. "....54" "...184" -4.35 ".Z...." "...185" 903. "....28" "...185" -1. "....54" "...185" -2.1 ".Z...." "...186" 1760. "....36" "...186" 1. "....37" "...186" .8 ".Z...." "...187" 2100. "....40" "...187" 1. "....51" "...187" 24. ".Z...." "...188" 1000. "....49" "...188" -64.3 "....52" "...188" 1. ".Z...." "...189" 1000. "....49" "...189" -27.4 "....53" "...189" 1. ".Z...." "...190" -1890. "....30" "...190" 1. "....49" "...190" 9.1 "....52" "...190" -.042 "....53" "...190" -.063 "....55" "...190" 1. ".Z...." "...191" 92.1 "....05" "...191" -.36 "....23" "...191" 1. "....28" "...191" -.026 "....47" "...191" -.134 "....50" "...191" -.182 "....54" "...191" -.1742 "....55" "...191" .826 ".Z...." "...192" -903. "....38" "...192" 1. "....55" "...192" 1. ".Z...." "...193" 78.7 "....55" "...193" 1. ".Z...." "...194" -1218. "....48" "...194" 1. "....55" "...194" 1. ".Z...." "...195" 15.6 "....05" "...195" -.396 "....25" "...195" 1. "....28" "...195" -.029 "....47" "...195" -.147 "....50" "...195" -.119 "....54" "...195" -.194 "....55" "...195" .81 "....50" "...196" -.8 "....55" "...196" 1. ; param b := "....02" 52.6 "....03" 22.7 "....04" 23.4 "....07" 108. "....08" 50. "....09" 13. "....10" 2366. "....11" 200. "....12" 265. "....13" 300. "....15" 31. "....16" 60. "....17" 134. "....18" 34. "....19" 413. "....20" 41.5 "....21" 15. "....22" 20.6 "....23" 13.5 "....24" 440. "....26" 16. "....27" 290. "....28" -524.9 "....29" 3.1 "....30" 9.1 "....36" 43. "....37" 34.4 "....38" 15.6 "....39" 19.2 "....40" 44.9 "....41" 6.1 "....45" 13.2 "....48" 31.2 "....50" 2.5 "....51" 1080. "....54" -1231.6 "....56" 107. ; param lb := ; param :I1: ctype := ".Z...." N "....01" L "....02" E "....03" L "....04" L "....05" L "....06" L "....07" L "....08" L "....09" L "....10" E "....11" L "....12" L "....13" L "....14" L "....15" L "....16" L "....17" L "....18" L "....19" L "....20" L "....21" L "....22" L "....23" L "....24" L "....25" E "....26" L "....27" L "....28" E "....29" L "....30" L "....31" E "....32" E "....33" E "....34" L "....35" L "....36" E "....37" L "....38" L "....39" L "....40" E "....41" L "....42" E "....43" E "....44" E "....45" L "....46" L "....47" L "....48" L "....49" E "....50" E "....51" G "....52" L "....53" L "....54" E "....55" L "....56" L ; end;