IMD 1.16: 31/08/2007 11:39:40 fortran programs  ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååLGDSDDååååååååååååååååååååååååååå �un Q€@SIMUL FORTMAT PRN€ TMAT REL TMAT PRN€TMAT BAK TMAT PRN!EQUIL0 FOR TMAT COM` !"#$CALCN0 FOR TMAT FOR%&EQUILX PRN€')*+,-./EQUILX REL2(1:EEQUILX PRN€02345678EQUILX PRN€9;<=>?@AEQUILX PRN0BCDååååååEQKON2 $$0EQKON2 BAK qEQKON2 FOR rååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååEQUILX COMuKLMOPQRSEQUILX FOR+FGHEQUILX BAK+IJNEQKON1 PRN6Z]^_BDERV BAKTBDERV FOR USIDERV BAKVSIDERV FOR WEQKON BAKXEQKON FORYEQKON1 REL \EQKON1 COMƒü2; B˜Í[›AÀ™µ U±µ8bâ*Ö@7X«T€:ÏiSÒqåTÀæ"àb­`#uа(øFf7ºÏiSÒqåt@…Z°Fë`PðŒÌoužÒ§¤ãÊ€@ °kH‹\sXdü#3Ä[@U®9ü2~™�â-¤*Ú�Ž“ ˆµÐ«i:ÅZèæ#9 °HøFf7Ÿ@ëW1ýh§ÆZ¬nÊ[HR)„~dE®[@R)ˆµÐ«T€:Ä%€6ºÅZè2ôá–m«k€mÀ˜¥ µ€�Ö*À á˜Þë=¥OIÇ•ý€-¨*À á˜Þ+m`"Ö­`#m€²k HGI€DZàU¬!&k V¸?ÌÆ÷X02 ***** 022E' ADD HL,DE ***** 022F' LD A,(HL) ***** 0230' INC HL ***** 0231' LD H,(HL) ***** 0232' LD L,A ***** 0233' LD (IROWK),HL ***** 0236' LD HL,(T:000000) ***** 0239' LD DE,JCOL-0002 ***** 023C' ADD HL,DE ***** 023D' LD A,(HL) ***** 023E' INC HL ***** 023F' LD H,(HL) ***** 0240' LD L,A ***** 0241' LD (JCOLK),HL ***** 0244' LD HL,PIVOT ***** 0247' CALL $L3 ***** 024A' LD HL,DETER ***** 024D' CALL $MU ***** 0250' LD HL,DETER ***** 0253' CALL $T3 36 14 A(IROWK,J) = A(IROWK,J)/PI 02AA' CALL $M9 ***** 02AD' EX DE,HL ***** 02AE' LD HL,(T:000000) ***** 02B1' ADD HL,DE ***** 02B2' LD DE,A-0060 ***** 02B5' ADD HL,DE ***** 02B6' LD (T:010000),HL ***** 02B9' LD HL,[ 00 00 00 81] ***** 02BC' CALL $L1 ***** 02BF' CALL $CK ***** 02C2' LD HL,PIVOT ***** 02C5' CALL $DU ***** 02C8' LD HL,(T:010000) ***** 02CB' CALL $T3 39 AIJCK = A(I,JCOLK) ***** 02CE' LD HL,0001 ***** 02D1' LD (I),HL 40 IF ( I.EQ.IROWK) GO TO 18 ***** 02D4' LD HL,(I) ***** 02D7' ADD HL,HL ****L ***** 013D' LD A,D ***** 013E' SBC H ***** 013F' JP P,00C1' ***** 0142' LD HL,(I) ***** 0145' ADD HL,HL ***** 0146' ADD HL,HL ***** 0147' ADD HL,HL ***** 0148' LD (T:000000),HL ***** 014B' LD HL,(J) ***** 014E' EX DE,HL ***** 014F' LD HL,0058 ***** 0152' CALL $M9 ***** 0155' EX DE,HL ***** 0156' LD HL,(T:000000) ***** 0159' ADD HL,DE ***** 015A' LD DE,A-0060 ***** 015D' ADD HL,DE ***** 015E' LD (T:010000),HL ***** 0161' LD HL,PIVOT ***** 0164' CALL DABS ***** 0167' LD HL,T:000003 ******** 01C0' LD (HL),D ***** 01C1' LD HL,(T:010000) ***** 01C4' LD DE,JCOL-0002 ***** 01C7' ADD HL,DE ***** 01C8' LD (T:030000),HL ***** 01CB' LD HL,(J) ***** 01CE' EX DE,HL ***** 01CF' LD HL,(T:030000) ***** 01D2' LD (HL),E ***** 01D3' INC HL ***** 01D4' LD (HL),D 29 IF (DABS(PIVOT) .GT. EPS) GO TO 13 ***** 01D5' LD HL,(J) ***** 01D8' INC HL ***** 01D9' EX DE,HL ***** 01DA' LD HL,(N) ***** 01DD' LD A,(HL) ***** 01DE' INC HL ***** 01DF' LD H,(HL) ***** 01E0' LD L,A ***** 01E1' EX D¼fÙÀVºfÖP¼f€Ö2>2Õ` v kH¤R"×­dë– Ú¦ëk€ÈGІY ‡ €3kX«V DZè#šÀ"-ˆ*Ö±VÄ9ˆÎB­tÏà‘Æk X«cÄg)Œ«YÝb¬ ~™�î³ÚTôœyZpV°ºÅXü#3Ýg´©é8ò´ *Í® "¬Í®à#Ö±ý>2Õ` v!² Û&ͲÀÍ´à,™ˆ�«V DZà#šÀ'á˜Þ"Ù­pÏà“ðŒÌol fÚ f€ͤ BE¬€[ R)ˆµÀ«Y:Ä%€6Ê€ºÅZà2ôᑺfÔ€!f€­tͪ€B­d#uеH¬ö•='UdU²"‘H‹\ ¶P¬BX3kh¬U®!Aþk  tfÑ€&máPm‚k mˆ€@-`*Ö‘H¤E®[(Ö!,¶¬ Ö*×�� ÿ ³kà4ìÀh*Ö±VÈ=¥Mç¤áœúZ¹�ëF°>2Õ` v*ÖšÀ'á˜Þ"Û€­pÏà“ðŒÌomàVÜŠE!*k€V°ŠE"-t*ÛÀ± `Í¥ Î±Vº „}øe›PÁ…Zà›RA…ZÈFë`PðŒÌoužÒ§¤ãʾ@ ²kH¤R"×­dë– Ûz ëk€ÈGІDZèU¬€"‘HG €Y·$U®€·<U¬€n±V?ÌÆ÷Yí*zN<¯@0«XÝb¬ ~™�î³ÚTôœyW`afÑPvL»€b°-L—p #@Àœ *Éâ$Ž)–¦Ê;À# Q Nct3P Œ†€2DIŠØ^dŠæQ–Hœ‰<d‰†1“ð6H†—dІqŸÀfHšs·dŠj±”�vH˜gNd‰ª±”P6Hˆ«ôdˆk1Ÿ &H¨cwd‰Ê±›6Hš¥Sdˆ‡3U`xèSIMULœž‘HG €Y·$U®€·<U¬€n±V?ÌÆ÷Yí*zN<¯@0«XÝb¬ ~™�î³ÚTôœyW`afÑPvL»€b°-L—p #@Àœ *Éâ$Ž) 0281' CALL $DU ***** 0284' LD HL,(T:010000) ***** 0287' CALL $T3 ***** 028A' LD HL,(J) ***** 028D' INC HL ***** 028E' EX DE,HL ***** 028F' LD HL,(MAX) ***** 0292' EX DE,HL ***** 0293' LD A,E ***** 0294' SUB L ***** 0295' LD A,D ***** 0296' SBC H ***** 0297' JP P,0259' 38 DO 18 I = 1,N ***** 029A' LD HL,(IROWK) ***** 029D' ADD HL,HL ***** 029E' ADD HL,HL ***** 029F' ADD HL,HL ***** 02A0' LD (T:000000),HL ***** 02A3' LD HL,(JCOLK) ***** 02A6' EX DE,HL ***** 02A7' LD HL,0058 ********* 011B' LD (T:000002),A 23 8 CONTINUE ***** 011E' OR A ***** 011F' JP NZ,11L 24 9 IF (DABS(A(I,J)).LE.DABS(PIVOT)) GO TO 11 ***** 0122' LD HL,(JSCAN) ***** 0125' INC HL ***** 0126' EX DE,HL ***** 0127' LD HL,(KM1) ***** 012A' EX DE,HL ***** 012B' LD A,E ***** 012C' SUB L ***** 012D' LD A,D ***** 012E' SBC H ***** 012F' JP P,00C7' ***** 0132' LD HL,(ISCAN) ***** 0135' INC HL ***** 0136' EX DE,HL ***** 0137' LD HL,(KM1) ***** 013A' EX DE,HL ***** 013B' LD A,E ***** 013C' SUB ** 0191' LD HL,0058 ***** 0194' CALL $M9 ***** 0197' EX DE,HL ***** 0198' LD HL,(T:000000) ***** 019B' ADD HL,DE ***** 019C' LD DE,A-0060 ***** 019F' ADD HL,DE ***** 01A0' CALL $L3 ***** 01A3' LD HL,PIVOT ***** 01A6' CALL $T3 ***** 01A9' LD HL,(K) ***** 01AC' ADD HL,HL ***** 01AD' LD (T:010000),HL ***** 01B0' LD DE,IROW-0002 ***** 01B3' ADD HL,DE ***** 01B4' LD (T:020000),HL ***** 01B7' LD HL,(I) ***** 01BA' EX DE,HL ***** 01BB' LD HL,(T:020000) ***** 01BE' LD (HL),E ***** 01BF' INC HL  DEC A ***** 020A' SUB 7F ***** 020C' SBC A ***** 020D' LD (T:000002),A 30 SIMUL = 0. ***** 0210' OR A ***** 0211' JP NZ,13L 31 RETURN ***** 0214' LD HL,[ 00 00 00 00] ***** 0217' CALL $L1 ***** 021A' CALL $CK ***** 021D' LD HL,SIMUL ***** 0220' CALL $T3 ***** 0223' RET 32 13 IROWK = IROW(K) 33 JCOLK = JCOL(K) 34 DETER = DETER*PIVOT 35 DO 14 J= 1, MAX ***** 0224' LD HL,(K) ***** 0227' ADD HL,HL ***** 0228' LD (T:000000),HL ***** 022B' LD DE,IROW-00«]„fcyí*o=' çÐ:ÕÌZÇéñ–«[°€V²„t˜dE®Â31¼E¶€ZÀRÒ`‘º?ÌÆ÷X«\Äg!VÚuеÐÌFrm@‹jL{ZÈFë`PðŒÌoužÒ§¤ãÊØ µ€�Ö*ÚÀ³ÚTôœyZ`AVÔuˆ@@h)uж í*o=' çÐ:ÕÌZ1Ÿéñ–«[²€ f×`FmºàÐm|˜·аHøFf7Ÿ@ëW1ýh=c Sã-V·aÍ®€¢ͯ ¬™Œ¨(„k "Ö­`)k€Žk Ÿ„fcx‹h µÀG?€OÂ31¼E´€[HR)„p¨dE®[@R)ˆµÐ«Y:Ä%€6µ:ÅZè2ôá–m›k€m¡k¬U�@Â31½Ö{Jž“�+Z !€ZÀU¬"‘H‹\ µ�¬BX3op+¬U®!Aþk V¸áPË6ýеÐ6€ µ€�Ö*À á˜Þë=¥OIÇ•k ¬U�@Â31½Ö{Jž“�+N !€ZÀBµ�«Y DZà#VOT ***** 0256' LD HL,0001 ***** 0259' LD (J),HL 37 A(IROWK,JCOLK) = 1./PIVOT ***** 025C' LD HL,(IROWK) ***** 025F' ADD HL,HL ***** 0260' ADD HL,HL ***** 0261' ADD HL,HL ***** 0262' LD (T:000000),HL ***** 0265' LD HL,(J) ***** 0268' EX DE,HL ***** 0269' LD HL,0058 ***** 026C' CALL $M9 ***** 026F' EX DE,HL ***** 0270' LD HL,(T:000000) ***** 0273' ADD HL,DE ***** 0274' LD DE,A-0060 ***** 0277' ADD HL,DE ***** 0278' LD (T:010000),HL ***** 027B' CALL $L3 ***** 027E' LD HL,PIVOT *****  ***** 0531' LD H,(HL) ***** 0532' LD L,A ***** 0533' EX DE,HL ***** 0534' LD A,E ***** 0535' SUB L ***** 0536' LD A,D ***** 0537' SBC H ***** 0538' JP P,04B0' ***** 053B' LD HL,(I) ***** 053E' INC HL ***** 053F' EX DE,HL ***** 0540' LD HL,(NM1) ***** 0543' EX DE,HL ***** 0544' LD A,E ***** 0545' SUB L ***** 0546' LD A,D ***** 0547' SBC H ***** 0548' JP P,04A6' ***** 054B' LD HL,(INTCH) ***** 054E' EX DE,HL ***** 054F' LD HL,0002 ***** 0552' CALL $D9 ***** 0555' ADD HL,HL ***** 0556'6 DO 27 I=1,N ***** 05A4' LD HL,0001 ***** 05A7' LD (J),HL 67 IROWI = IROW(I) ***** 05AA' LD HL,0001 ***** 05AD' LD (I),HL 68 JCOLI = JCOL(I) 69 27 Y(JCOLI) = A(IROWI,J) ***** 05B0' LD HL,(I) ***** 05B3' ADD HL,HL ***** 05B4' LD (T:000000),HL ***** 05B7' LD DE,IROW-0002 ***** 05BA' ADD HL,DE ***** 05BB' LD A,(HL) ***** 05BC' INC HL ***** 05BD' LD H,(HL) ***** 05BE' LD L,A ***** 05BF' LD (IROWI),HL ***** 05C2' LD HL,(T:000000) ***** 05C5' LD DE,JCOL-0002 ***** 05C13' JP P,05AD' 71 28 A(I,J) = Y(I) ***** 0616' LD HL,0001 ***** 0619' LD (I),HL 72 DO 30 I=1,N ***** 061C' LD HL,(I) ***** 061F' ADD HL,HL ***** 0620' ADD HL,HL ***** 0621' ADD HL,HL ***** 0622' LD (T:000000),HL ***** 0625' LD HL,(J) ***** 0628' EX DE,HL ***** 0629' LD HL,0058 ***** 062C' CALL $M9 ***** 062F' EX DE,HL ***** 0630' LD HL,(T:000000) ***** 0633' ADD HL,DE ***** 0634' LD DE,A-0060 ***** 0637' ADD HL,DE ***** 0638' LD (T:010000),HL ***** 063B' LD HL,(T:000000) ******** 0689' ADD HL,DE ***** 068A' LD A,(HL) ***** 068B' INC HL ***** 068C' LD H,(HL) ***** 068D' LD L,A ***** 068E' LD (IROWJ),HL ***** 0691' LD HL,(T:000000) ***** 0694' LD DE,JCOL-0002 ***** 0697' ADD HL,DE ***** 0698' LD A,(HL) ***** 0699' INC HL ***** 069A' LD H,(HL) ***** 069B' LD L,A ***** 069C' LD (JCOLJ),HL 77 DO 30 J=1,N ***** 069F' LD HL,(IROWJ) ***** 06A2' ADD HL,HL ***** 06A3' ADD HL,HL ***** 06A4' ADD HL,HL ***** 06A5' LD DE,Y-0008 ***** 06A8' ADD HL,DE ***** 06A9' LALL $M9 ***** 06FE' EX DE,HL ***** 06FF' LD HL,(T:000000) ***** 0702' ADD HL,DE ***** 0703' LD DE,A-0060 ***** 0706' ADD HL,DE ***** 0707' LD (T:010000),HL ***** 070A' LD HL,(J) ***** 070D' ADD HL,HL ***** 070E' ADD HL,HL ***** 070F' ADD HL,HL ***** 0710' LD DE,Y-0008 ***** 0713' ADD HL,DE ***** 0714' CALL $L3 ***** 0717' LD HL,(T:010000) ***** 071A' CALL $T3 ***** 071D' LD HL,(J) ***** 0720' INC HL ***** 0721' EX DE,HL ***** 0722' LD HL,(N) ***** 0725' LD A,(HL) ***** 0726' INC HL ***095" MAX 00A9" T:000002 00AB" K 00AC" KM1 00AE" I 00B0" J 00B2" ISCAN 00B4" JSCAN 00B6" T:000000 00B8" T:010000 00BA" T:000003 00BC" T:020000 00C4" T:030000 00C6" IROWK 00C8" JCOLK 00CA" AIJCK 00CC" IROWI 00D0" JCOLI 00D2" INTCH 00D4" NM1 00D6" IP1 00D8" JTEMP 00DA" IROWJ 00DC" JCOLJ 00DE" COMMON Length / /0418 (1048) Labels: 5L 0073' 200L 00E0" 18L 03D2' 11L 01D5' 9L 0142' 8L 0122' 13L 0224' 14L 025C' 17L 0356' 20L 0435' 22L 0527' 26L 05A4' **** 057F' LD HL,(INDIC) ***** 0582' LD A,(HL) ***** 0583' INC HL ***** 0584' LD H,(HL) ***** 0585' LD L,A ***** 0586' LD A,L ***** 0587' RLCA ***** 0588' OR L ***** 0589' AND 7F ***** 058B' OR H ***** 058C' DEC A ***** 058D' ADD 81 ***** 058F' SBC A ***** 0590' LD (T:000002),A 63 SIMUL = DETER ***** 0593' OR A ***** 0594' JP NZ,26L 64 RETURN ***** 0597' LD HL,DETER ***** 059A' CALL $L3 ***** 059D' LD HL,SIMUL ***** 05A0' CALL $T3 ***** 05A3' RET 65 26 DO 28 J=1,N 6 HL,0058 ***** 05ED' CALL $M9 ***** 05F0' EX DE,HL ***** 05F1' LD HL,(T:010000) ***** 05F4' ADD HL,DE ***** 05F5' LD DE,A-0060 ***** 05F8' ADD HL,DE ***** 05F9' CALL $L3 ***** 05FC' LD HL,(T:000000) ***** 05FF' CALL $T3 ***** 0602' LD HL,(I) ***** 0605' INC HL ***** 0606' EX DE,HL ***** 0607' LD HL,(N) ***** 060A' LD A,(HL) ***** 060B' INC HL ***** 060C' LD H,(HL) ***** 060D' LD L,A ***** 060E' EX DE,HL ***** 060F' LD A,E ***** 0610' SUB L ***** 0611' LD A,D ***** 0612' SBC H ***** 060667' LD A,(HL) ***** 0668' INC HL ***** 0669' LD H,(HL) ***** 066A' LD L,A ***** 066B' EX DE,HL ***** 066C' LD A,E ***** 066D' SUB L ***** 066E' LD A,D ***** 066F' SBC H ***** 0670' JP P,05A7' 73 DO 29 J=1,N ***** 0673' LD HL,0001 ***** 0676' LD (I),HL 74 IROWJ= IROW(J) ***** 0679' LD HL,0001 ***** 067C' LD (J),HL 75 JCOLJ = JCOL(J) 76 29 Y(IROWJ) = A(I,JCOLJ) ***** 067F' LD HL,(J) ***** 0682' ADD HL,HL ***** 0683' LD (T:000000),HL ***** 0686' LD DE,IROW-0002 HL,(N) ***** 06D9' LD A,(HL) ***** 06DA' INC HL ***** 06DB' LD H,(HL) ***** 06DC' LD L,A ***** 06DD' EX DE,HL ***** 06DE' LD A,E ***** 06DF' SUB L ***** 06E0' LD A,D ***** 06E1' SBC H ***** 06E2' JP P,067C' 78 30 A(I,J) = Y(J) ***** 06E5' LD HL,0001 ***** 06E8' LD (J),HL 79 RETURN ***** 06EB' LD HL,(I) ***** 06EE' ADD HL,HL ***** 06EF' ADD HL,HL ***** 06F0' ADD HL,HL ***** 06F1' LD (T:000000),HL ***** 06F4' LD HL,(J) ***** 06F7' EX DE,HL ***** 06F8' LD HL,0058 ***** 06FB' C** 074B' RET 80 200 FORMAT (10H0N TOO BIG ) 81 END ***** 074C' 00000081 ***** 0750' 00000000 ***** 0754' 0600 Program Unit Length=0756 (1878) Bytes Data Area Length=00EF (239) Bytes Subroutines Referenced: DABS $AT $W2 $ND $L1 $CK $T3 $M9 $SU $L3 $MU $DU $CY $T1 $NU $MR $D9 Variables: SIMUL 0001" N 0005" EPS 0007" INDIC 0009" NRC 000B" A / /+0000 X / /+03C8 DETER 000D" PIVOT 0015" Y 001D" IROW 006D" JCOL 0081" JORD 0 EX DE,HL ***** 0557' LD HL,(INTCH) ***** 055A' LD A,E ***** 055B' SUB L ***** 055C' LD L,A ***** 055D' LD A,D ***** 055E' SBC H ***** 055F' LD H,A ***** 0560' LD A,L ***** 0561' RLCA ***** 0562' OR L ***** 0563' AND 7F ***** 0565' OR H ***** 0566' ADD FF ***** 0568' SBC A ***** 0569' LD (T:000002),A ***** 056C' OR A ***** 056D' JP Z,0000 62 IF (INDIC.LE.0) GO TO 26 ***** 0570' LD HL,DETER ***** 0573' CALL $L3 ***** 0576' CALL $NU ***** 0579' LD HL,DETER ***** 057C' CALL $T3 *8' ADD HL,DE ***** 05C9' LD A,(HL) ***** 05CA' INC HL ***** 05CB' LD H,(HL) ***** 05CC' LD L,A ***** 05CD' LD (JCOLI),HL 70 DO 28 I = 1,N ***** 05D0' LD HL,(JCOLI) ***** 05D3' ADD HL,HL ***** 05D4' ADD HL,HL ***** 05D5' ADD HL,HL ***** 05D6' LD DE,Y-0008 ***** 05D9' ADD HL,DE ***** 05DA' LD (T:000000),HL ***** 05DD' LD HL,(IROWI) ***** 05E0' ADD HL,HL ***** 05E1' ADD HL,HL ***** 05E2' ADD HL,HL ***** 05E3' LD (T:010000),HL ***** 05E6' LD HL,(J) ***** 05E9' EX DE,HL ***** 05EA' LD** 063E' LD DE,Y-0008 ***** 0641' ADD HL,DE ***** 0642' CALL $L3 ***** 0645' LD HL,(T:010000) ***** 0648' CALL $T3 ***** 064B' LD HL,(I) ***** 064E' INC HL ***** 064F' EX DE,HL ***** 0650' LD HL,(N) ***** 0653' LD A,(HL) ***** 0654' INC HL ***** 0655' LD H,(HL) ***** 0656' LD L,A ***** 0657' EX DE,HL ***** 0658' LD A,E ***** 0659' SUB L ***** 065A' LD A,D ***** 065B' SBC H ***** 065C' JP P,0619' ***** 065F' LD HL,(J) ***** 0662' INC HL ***** 0663' EX DE,HL ***** 0664' LD HL,(N) ***** D (T:000000),HL ***** 06AC' LD HL,(I) ***** 06AF' ADD HL,HL ***** 06B0' ADD HL,HL ***** 06B1' ADD HL,HL ***** 06B2' LD (T:010000),HL ***** 06B5' LD HL,(JCOLJ) ***** 06B8' EX DE,HL ***** 06B9' LD HL,0058 ***** 06BC' CALL $M9 ***** 06BF' EX DE,HL ***** 06C0' LD HL,(T:010000) ***** 06C3' ADD HL,DE ***** 06C4' LD DE,A-0060 ***** 06C7' ADD HL,DE ***** 06C8' CALL $L3 ***** 06CB' LD HL,(T:000000) ***** 06CE' CALL $T3 ***** 06D1' LD HL,(J) ***** 06D4' INC HL ***** 06D5' EX DE,HL ***** 06D6' LD ** 0727' LD H,(HL) ***** 0728' LD L,A ***** 0729' EX DE,HL ***** 072A' LD A,E ***** 072B' SUB L ***** 072C' LD A,D ***** 072D' SBC H ***** 072E' JP P,06E8' ***** 0731' LD HL,(I) ***** 0734' INC HL ***** 0735' EX DE,HL ***** 0736' LD HL,(N) ***** 0739' LD A,(HL) ***** 073A' INC HL ***** 073B' LD H,(HL) ***** 073C' LD L,A ***** 073D' EX DE,HL ***** 073E' LD A,E ***** 073F' SUB L ***** 0740' LD A,D ***** 0741' SBC H ***** 0742' JP P,0676' ***** 0745' LD HL,SIMUL ***** 0748' CALL $L3 *** Íf*3#ë*,ë{•zœòçÍ!!*.}µæ´ÆÿŸ20·Âb¤!ž ÍÅÍ!!!"3I!ž ÍÅ!"5*3)))"7*5ë!XÍ ë*7£"9*9ë!ž >Íf*5#ë*,ë{•zœòG Í!!*3#ë*,ë{•zœò8 ÃbÍü.(10H0N TOO BIG)"¥ ë"§ >!© Í)(*¥ ~#fo"I *© ~#fo}µæ´?Ÿ2K ·ÊË *¥ ~#fo#"I *¥ ~#foÎÿ}µæ´=Æ�Ÿ2K ·Â € !äÍÅÍ!!!àÍh'Í}!¡ ͙ͣ*X ÍŸ*P #ë*¥ ~#foë{•zœò�!"t *¥ ~#fo+"v !"P *P #"x "R *R )3 "X *P )3 "Z *X ~#foë*Z ~#fo{•ozœg}µæ´?Ÿ2K ·Â·*R )3 "X ~#fo"z *P )3 "Z ~#foë*X s#r*z ë*Z s#r*t #"t *R #ë*¥ ~#foë{•zœò@*P #ë*v ë{•zœò6*t ë!ÍÁ)ë*t {•ozœg}µæ´ÆÿŸ2K ·Ê!­ Í™ÍH!­ ÍŸ*© ~#fo}µæ´=Æ�Ÿ2K ·Â4!­ Í™!¡ ÍŸÉ!"R !"P *P )"X  ~#fo"p *X  ~#fo"r *r )))µ "X *p )))"Z *R ë!XÍ ë*Z £Í™*X ÍŸ*P #ë*¥ ~#foë{•zœò=!"P *P )))"X *R ë!XÍ ë*X £"Z *X µ Í™*Z ÍŸ*P #ë*¥ ~#foë{•zœò©*R #ë*¥ ~#foë{•zœáÍt!¨0Ã÷åͦáÍh'Í}à åͦáÍtÍl!¨0Ãçy2®0!¤0Ý/~q+Â6ÉqåÖÚWáåNsY+ÂLÃBÆ W¯áÈå~w+ÂaÃZ!¤0Ã^Í¡Ã}Íh'¯!ž0w#ƒÉÍ’}É͙͛ðÍ™Í(!¡0F#^#V#NÃì&Ͱ}É!¢0Íh'>�¸ÊçÒÅÍT.�Í‘'ÍõÍ'ëÈë!¦06€Í5g>˜�Í(|ÔöëÉ>€©²³Â¿akÉÍh'ÈõüHÍ:ñúHØ'͉'ÊVõ͘'Ê^áÍ=ò&ÅÕÍ=ÑÁõÍtá|Ít'ÁÑÒ2!HåÌCÍ=ÍÂÁÑÍÈÃe>¡OÉ!¥0~·È+>€®wØ'�QYÃq'ñúäØ':¥0þˆÒœþhÚ”Í=Í:Æ�ÁÑÊœõÍ͵!¥Í"ÁJÃÌ�QYÃq'͘'ú 'ÃÛ&|ˆYtà—&wÄz^Pc|þu~r1€�Íq'âÌÍT.Š>€2¥0¨õ!éÍ"ñÍ=oŸgÍ¡ÁÑÃS Øî”‚©ª}„}™¿†{å(‡ŠqÀ‡n•$Ãø!~0¨0·Žw# ÂÉ:†0·Ê@*·/DM*µ/"¡0*³/ ë*¬/Í_å`i"·/á"¬/É*µ/DM!€"¡0*¬/ë*³/ Í_`i"µ/ëÃ<:}0õå*¡0+}‘|˜áÒ§ñåÕ:†0·Â�*¡0"µ/>; Ñá*³/Ã_>; *µ/"¡0*³/ëááÃ_w#ñ=Âbå*°/+"°/|µáÂ_É<þÚÈ>G!¹/60#åÅÍ&Á!Ð/4á:…0æÆ0wÍÑ&ÂÎ"{0~€þ:ÚÖ w+Ãòwë!¹/|ºÂ}»Â!Ð/4ëþ#"Ó/|/W}/_*{0"{0É>þ¯2Î/:}0þÚÍ+%:Ï/G:•0·úI€þx2Í/ÍÀ:•0·òX¯2Ò/Í[!:•0·òyõ0Í©!!Í/5ÊŠñ<Âgõ:Í/·úŠÊŠÍ6!ÃzE:Î/·Ê•DÍ©!:Ð/!•0–2Ð/úª+ñ-/<2Ð/Í©!:Ð/_! ÍÑ'ñå{Æ0GÍ©!ã}Æ0GÍ©!ñÉ:}0þÚÍ+%:Ï/G!Ð/:•0†w€·úòÍÀ¯2Ò/:Ï/2Í/:Ð/·ë*Rùëé!¨0~0w#Â!É!~0¨0à !:›0!²/w·Ê”":†0·À>þ !Í/5øÂG!:y0·*ú©!!{050ú©!*Ó/F#"Ó/é!!i0~�!–0–!Í/–2y0Êy!òš!†2Í//ò•!:–0·-Ä©!!Ò/5ò�!.Í©!ÉÍ6!Â!ÍT.É Í©!!y05š!Ãy!*µ/ë*·/{•zœÚÊ!#"·/ë*³/+p!w05ÀÃÎ!ÍT.áá:x0·À:“0·Ê$ÃÜ"!ˆ0~4·Êì!ÍT. *{0"‰0*“0"�0Ã$!ÿ"w0*u0ë*m0:†0·Ê2"~þ'Ê#"åÕÍÑáw#Ã"#~þ'Ê"ë"u0Ã$~þ'ÊI"GåÍ©!*u0#"u0á#Ã2"ë*u0#"u0ë#~þ'Ê8"Ã$:ˆ0=òp"!™04!"u0Ãé"2ˆ0Â$*�0+"�0|µÊ$*‰0"u0!ˆ04Ã$!²/6:†0·Â¸":k0·Â¸"*·/ëz³Â±"*³/6 ë"µ/ÍÈ%:²/2·/2¸/·È:†0·ÂÐ"!„"µ/Ä\#!"·/Ã$!™0~·Êé"¯wÃø"*°/+"°/|·øµÈÃø":™0·Â�"*À À€4ÀÃß&á¯go"¢0"¤0É:ã.·À<2ã.!/6P#6#"f/6 :D'=G!±(¯w#Â6'2Ñ(¯2-É Ã--Ã-Ã-Ã-â(â(â(â(â(åÍ'ás#r#q#pÑ'͉'åÍt'áÉÍ‘'ë"¢0ë`i"¤0É*¢0ë*¤0DMÉ^#V#N#F#x·Èyà':¥0·È:¤0Ÿ·7ÀÆÉÍç#Í!Íç#ÍÍ!Íö#͹'Íç#Íç#Íç#!Ð/4É|/G}/O!>õ·Ãì'õå Òë'ñ7>á{_zW}o|gñ=Ââ'|·g}oÉÖÚ(CZQÃ(Æ o¯-ÈyOzW{_xGÃ(ë`iN#F#ëq#p#ë=Â,(É2¨/"‹0ë"�0`i"©/¯2«/ÉåÕ:«/þÒd(!‹0‡_Ãx(õ:¨/þ*©/Ú}(ñÖ‡_~#foõñ:«/<2«/W:¨/ºÑÒ�(áÉãáÉW2 27 IF (INDIC.NE.0) GO TO 1 ***** 0288' LD HL,0001 *****°0FORTDATÚ°+3+ +Û*Ñ*ß(¬*!°(:œ0_~É!¹(:*X £"Z Í™!µ Í *Z ÍŸ*R #ë*I ë{•zœòé *h )))"X *j ë!XÍ ë*X £"Z !ÜÍh'Í}!µ Í *Z ÍŸ!"P *P )))"X *j ë!XÍ ë*X £Í™Í›!l ÍY'*P ë*h {•ozœg}µæ´ÖŸ2K ·Âb*P )))"X *j ë!XÍ ë*X £"Z !l Íh'Í}!µ Í ÍH*Z ÍŸ!"R *R ë*j {•ozœg}µæ´ÆÿŸ2K ·ÊR*P )))"X *R ë!XÍ "Z ë*X £"d *h )))"f *Z ë*f £Í™!l Ím*d ÍçÍH*d ÍŸ*R #ë*I ë{•zœòã *P #ë*¥ ~#foë{•zœòa *L #ë*¥ ~#foë{•zœò !"P *P )"X  ~#fo"p *X  ~#fo"r *p )3 "Z *r ë*Z s#r*© ~#fo}µæ´?Ÿ2K ·Ê*r )))Ã"X *p )))"Z *I ë!XÍ ë*Z ‚Ê ':¥0·Ê '!®0N#FÍÍ)q·ÕÊ<ÅGÜnÍlxÁ Â%ÑÂç!¤0ÍHÃ4²jöô¢0 TeÂB׳]�Âh!¢ÚI�.›kÁ‘ €�åͦáÍh'Í}ÃåͦáÍt!¨0ÃÿÍT.!¥0ÿq#~æ€ö++w+qžØ'€DNnƒù"~€‚`Þù3ó5�zÏÑ÷r1{ÏÑ÷r1€Àh!¢ÚI‚Í‚ʘ'yî€O2®0ÃýÍ‚ʘ':¥0·Êl�Ò/<õÍlñþ9Ò˜'õ:®0OÍ(G¯2§0ñ!®0Í@:§02�0x!¨0ž0·òŽÍwÒFë4Íl:�0·üZ!¦0~æ€++®wØ'!ž04À#Â_4ʉ+6€É!¨0ž0¯Ž# Âwɯž# „É̈́ҧ/!�0¯Oyžw#Ÿ¯G:¤0·ÂÐ!�0Vwz# µxÖþÀ¨à '!�0Íã·òÈx·ÊF!¥0†wÒ 'ÃF~w# ÂåÉåͦáÍh'Í}Ãåͦ}™OÉÍ=Ít'ÁÑÉ|µÈë|µÈDM!>)ë)ëÒ# =ÂÉ!¤0~7w?##wy7O®É*¢0ãå*¤0ãéáã"¤0áã"¢0É õ>Ãiõ>Ãiõ>Ãiõ>2}0ñÍ;(ÍO(~#fo"g0ÍO(Ø"¬/*g0"°/:›0·Ê”ÍÃzÍø"ÃzÍT.¯É>þ¯2†0¯2‡0<2k0ÃÛ>2†0Ãʯ2†0<ÃÊ>þ¯2†0¯2‡0¯2k0~#fo"œ0!Ö/"³/ë~#¶+Âé!"m0!9##"R:‡0·Â go"o0"q0"s0Ã8!o0>Í)(*o0~#¶Â go"o0*q0~#¶Â.go"q0*s0~#fo"s0¯2ˆ02™02›02•02x02Î/go"u0"°/Í'*m0|µÊpÍj#*u0"‰0þ(ÊÃ"ÍT.ˆ2·/2¸/2µ/2¶/<2›0:†0·È>þ Í&ÍÞú¡þ š> Í$wÃ�:Ð//<ú³ʳÍ$=¬2Ð/:}0þÊ%/Æ Ê%Í$=ÃÁÍ&:Ð/·úæÊæ õÍ©!ñ=ÂÚ2Ð/õ:}0þÂø>Í$=Âñ:~0GÍ©!Í&è':}0=Ê=ÊÍT.š:~0oŸg"~0¯go"€0"‚02„0>¸2…0Í+%:Ð/ÍÀ:Ð/2Í/2Ò/Í[!Í_ ÃVÍþ ÂV>0þ0Úgþ:ÒgÖ02š0·É>ÿ·É¯2Ï/2Ñ/2j0Í_ þ-Â…>2–0Êþ+Â�Í_ ·ú%*·/+"·/!w04Í& :š0þ.µ>2Ñ/2Ð/Í& :š0·úþEÊÅþDÂÊÍ_ þ+ÊÙþ-ÂÞ>2²/Í_ y2j0*·/+"·/!w04ÅÍFÁú Oxþ Ú ÍT.> ··€�GÃï:²/·xÊ /<2Ð/G!Ï/~�wÃÍLø:…0æðÂ& Í!ÍÀ&ÍÀ&ÍÍÀ&:š0!¨0w¯#wÂK Í!Ï/:Ð/†wÃ& Íþ Ê_ É:i02w0Í_ úþFÊ� þTÂ>ÿþ¯2~0Íò… Ã%!~0~·Ê™ >T>Fw> #w#w#w>2}0ÃË> ø > ø >O}2œ0þO!D':œ0¾Òš·Êš=_^#Vë ^#Vëä ÕéÚô È*q0|µÂ!ÍT.�*o0|µÂ!ÍT.…*:}0G*¬/~0þÂ%‚0w#Â%"¬/*“0|µÊ$ÃÜ"!…0~·Êµ%Öx2²/¯w:}0=ÊT%=ÊT%+>€¦2–0>€¶wÃk%!0~·ò°%/W+~/_s#r>2–07Ô¨'ÍK&!²/~�wÈòl%Æò‡%Í&Ão%¨%!ž0~0Í !Í&Òo%!~0ž0Í !!Ð/4¯/ÆGÍÔ#É+¶Âk%2²/!~0w#½%!Ð/4É>þ *“0ë*·/"·/„y•xœÒ$ÍT. *µ/"·/Ã$å Í©!*“0+"“0|µÂð%áÃ$:}0æG:i0�2Ð/É!²/>†w!Ð/5ÍÔ#Í!ÍÔ#ÃajSXÍu&Ê 'JS\E!¥0–Ò '/ÑF+N+Å=ÂÆëé!¨0ÃÚ!ž0>ÑÁq#p#=ÂÝëé!ž0Ãÿá"Ö/ÍÑÍÀͬ*Ö/é͇² †­z… ��ƒëÍ=ÕÍ'ÍÈáÍ"ÁÑÃÈëÍ=ë~õ#Íh'ñÁÑ=ÈÕÅõåx±ÍÅá͉'åÍSáÃ-ͳÃP͉'ʘ':¥0·Êq'�Òc/<ÍþÒ˜'õÍ(gñåÍ(ñ·!¢0ò•~ƒ_#~ŠW#~‰OÒìÊÛ&.Í(Ãì&¯�G~›_#~šW#~™OÜðÃ.&ͳò͉'ʘ'>€©OÃSͳÃÅ͉'Êt'͘'ÈÍyÅ+FÅ+FÅ+FÅw`hã|·ÊgyãÒö:¢0‰O|g}oxGã-|Âêáã}·ÂåÑÃ.&áElaOÃä!¥0~€G¨xò2Æ€Ê 'wÍ(w+É·áúÛ&à 'Í'xþ˜{Òt'!¦06€Í5wgúXz³ÂW >˜�Í(|Ôþ&{õ>˜2¥0Í.&ñØ/<Éx±Ê˜'! 'å͘'y/È!¤0®~ðÍ�©É#~¸À+~¹À+~ºÀ+“ÀááÉLUX)!�€"¥0ÜðÃ.&ëÍ=ëÍ¡ÁÑÍÉëz³Êäz·Büè|¨G|µÈ|·ëüèÅÍÑ'ñ·üèëÉÍT.‰¯O“_yšWÉ!¦0~/w¯o�G}›_}šWú 2Ò/!Í/†wÍ[!õ:Ð//·ú5*{0"y0!ÿÿ"{0Í6!!Ð/4Â%*y0"{0Í6!Ã5:}0þÚÍ+%:Ð/·ú<!Ï//<†ú<FÅw!i0~õÖw2w0!•0~õ¯w<2x0ÍÞñ2•0ñ2i0ñ2Ï/¯2x0>2w0õ Í©!È*u0ë*m0DM*“0åÕÅÍÁÑá+|µÂ�"“0ë"u0Ã$*u0ë*m0FåÍ©!*u0#"u0*“0+"“0|µá#ÂÁÃ$*·/DM!w05Ê*µ/+}‘|˜Ú *³/ ~2š0·`i"·/É>ÿÃû> ÃûÍÞÊþ À!w04Ã:l0þIÂj:}0=Ê2=Â9:Ï/·Ê=ÍT.š!€0¯¶ÊNÍT.ÃS#ÂC:–0·Ê%*~0|/g}/o#"~0Ã%>À2²/:}0þÒ{ÍT.š!Ï/:Ñ/·Â�:j0·Â�:Õ/w~/œg"~0|µxÉ·!…0~w+ ÂÚ#ÂÔ#É!…0·~w+Âí#É!¯0Íê#Âø#Éõ0!~0w# $6 ñÉÍj#"“0Â5$þ,Ê$þ/Ê�"þ)Ê\"þ'Êû!þPÂC$:~02•0Ã$õ|·òS$ÍT.!"“0ñ2l0!Ñ$¾Êl$# þ Â]$ÍT.€yO!ï$:†0·Ê|$!Û$ ^#Vë"‘0yþÒ™$ë*u0"{0!ÿ"w0ëéÍj#£$ÍT.�}2i0¯2Õ/yþ ÚÃ$:š0þ.ÂÍ$Íj#*~0}2Õ/*u0+"u0ÃÜ"ÍT.‚XH(AILEFGDÍ%�ß!Škh kkkkï%¹ß!ËŽ -Ó; …QTURS# EU%0A€`P`ÐK”@®Õë9üæ-—åË B8lެb‰ÎÐ`"Í 1k€š3@ˆ!¢€ Ú.Í£@CH G6€i`øÍ´˜#J@4Ô›HÀ9´CPÀÀ&m:fÓЈ!©€ ڌͪ€CV€´¼B³x«7€ E"�Žùÿ ˆ³ˆ«8€:Ä5˜|f€¬Þ#uгH¬ö•='U¸›X5ŒC`ÀµtB³x«7€ E"�Žùÿ ˆ³ˆ«8€:Ä6„|fØ€VoºÅY¤Ö{Jž“�+Rͳ`EœÀ ‹:€sX‡€3@"Íà<!·À ÛH!€YÜU›À"‘H‹8€ ³¸¬BX3@X«8€B0M ÿ ˆ³È«<€:Ä7Ü|fÜ0Vw�� Qð8ò¿à Û¬*Íà1ð*>'WÀ\öœÀ%©@2çÐ Ö-Jç°ŽQæ�hÍ9„š@hƧÆYün †“³oÐ6�€°èàÅ´BH†—ØdІq–0H¦£¡dŠj±œÀH˜gÒdˆ*³]à)È…PÐSÓ T4Ä4è À! `X‹€K�@Z!€X$B°X«€ E"‘ `°X„°f€±V „`šAþ`ðÍ «€3@V �� Qð8ò¢¬#Ò£àqåB€ 6›3iȇ€3iø„fÕðmbõ€mhÕÀmnf×°f×pˆ! „`�V ŠE!Ãü2ë`È‹€ °h¬CcÀ&h*Á 1ð*>'VPšK„@&1 ÜP pˆ nEŒÃAL·B0:ÅX2"Á Öͯ  Û*Á  К}À 6ÃEX«€DX<B0:ÅX2Í 4á�mæ`ðmüá�mÝñ&m‚±V ˆ±„ uаdEˆÀ"€¬U€@",J!b¬bpV%fÐàV'fÑ@)fÑ V#fÔÀÍ8Ä***** 00F6' LD HL,[ 01 00] ***** 00F9' CALL $W2 21 2 CONTINUE ***** 00FC' LD HL,0001 ***** 00FF' LD (J),HL ***** 0102' LD HL,(I) ***** 0105' ADD HL,HL ***** 0106' ADD HL,HL ***** 0107' ADD HL,HL ***** 0108' LD (T:000000),HL ***** 010B' LD HL,(J) ***** 010E' EX DE,HL ***** 010F' LD HL,0058 ***** 0112' CALL $M9 ***** 0115' EX DE,HL ***** 0116' LD HL,(T:000000) ***** 0119' ADD HL,DE ***** 011A' LD DE,A-0060 ***** 011D' ADD HL,DE ***** 011E' LD (T:010000),HL ***** 0121' LD HL,(T:010000)  ***** 0181' LD (ITCON),HL 28 IF (DABS(XINC(I)).GT.EPS2) ITCON = 0 ***** 0184' LD HL,0001 ***** 0187' LD (I),HL ***** 018A' LD HL,(I) ***** 018D' ADD HL,HL ***** 018E' ADD HL,HL ***** 018F' ADD HL,HL ***** 0190' LD DE,XINC-0008 ***** 0193' ADD HL,DE ***** 0194' LD (T:000000),HL ***** 0197' LD HL,(T:000000) ***** 019A' CALL DABS ***** 019D' LD HL,EPS2 ***** 01A0' CALL $SU ***** 01A3' DEC A ***** 01A4' SUB 7F ***** 01A6' SBC A ***** 01A7' LD (T:000002),A ***** 01AA' OR A ***** 01AB**** 0204' LD A,02 ***** 0206' CALL $I3 ***** 0209' LD DE,N ***** 020C' LD HL,[ 01 00] ***** 020F' LD A,02 ***** 0211' CALL $I0 ***** 0214' CALL $ND ***** 0217' LD DE,306L ***** 021A' LD HL,[ 01 00] ***** 021D' CALL $W2 32 IF (ITCON.EQ.0) GO TO 9 ***** 0220' LD HL,0001 ***** 0223' LD (I),HL ***** 0226' LD HL,(I) ***** 0229' ADD HL,HL ***** 022A' ADD HL,HL ***** 022B' ADD HL,HL ***** 022C' LD DE,XOLD-0008 ***** 022F' ADD HL,DE ***** 0230' LD (T:000000),HL ***** 0233' LD HL,(T:00000HL ***** 0292' ADD HL,HL ***** 0293' ADD HL,HL ***** 0294' LD DE,XOLD-0008 ***** 0297' ADD HL,DE ***** 0298' LD (T:000000),HL ***** 029B' LD HL,(T:000000) ***** 029E' EX DE,HL ***** 029F' LD HL,[ 01 00] ***** 02A2' LD A,02 ***** 02A4' CALL $I3 ***** 02A7' LD HL,(I) ***** 02AA' INC HL ***** 02AB' EX DE,HL ***** 02AC' LD HL,(N) ***** 02AF' EX DE,HL ***** 02B0' LD A,E ***** 02B1' SUB L ***** 02B2' LD A,D ***** 02B3' SBC H ***** 02B4' JP P,028B' ***** 02B7' CALL $ND 36 9 CONTINUE ****JB€z GñˆÀ� "J„R�€@= £À¸j/ ‰€@ €°O&H¸\.,É„A@°’2 I‘L·p ]ú1f–îK¿@!¡ `S*�ÈdR™LŒU&dòqXŠR#‘IÄ2(€^1’¡¤ ¢a$f/ ‰€@ €°O&H¸\.,É„A@°’2 I‘L·p \ 1ΖîK”E© @N'ˆdòqXŠR#‘IÄ2(¦[¸.d˜ˆ€Kw¥Ì€"�©`X'!’¤ÒI ‚LJ%RI0’B)J¤Ñ ‚L!•I„¡$žNŠe»€Rè°ˆè·p ](Œ Á9@˜E ”È¢I8 U* ÅRiŠRÈÂIPŠR • $òqLN)–îK­f*àÝÀ)u  b0, åa‚S"ˆ $â�T¨ )•%"¡$œGˆ$©¦'Ëw¥Û3)nà»`P8"ŒFá ¦[¸(àŒÒ�2D“8ËÐ$I0ŒÍ€ÄD%9Žˆ¤‰)É*‘�@&H®e×d‰È‘–�H¤eë¨h)ˆiÑ‘0HšsTªi)ª©‘•p ***** 00CD' EX DE,HL ***** 00CE' LD A,E ***** 00CF' SUB L ***** 00D0' LD A,D ***** 00D1' SBC H ***** 00D2' JP P,00A9' ***** 00D5' CALL $ND 17 DO 9 ITER = 1,ITMAX ***** 00D8' LD HL,0001 ***** 00DB' LD (INDIC),HL 18 CALL CALCN(XOLD,NRC ) ***** 00DE' LD HL,0001 ***** 00E1' LD (ITER),HL 19 DO 2 I=1,7 ***** 00E4' LD DE,NRC ***** 00E7' LD HL,XOLD ***** 00EA' CALL CALCN 20 WRITE (1,306) (A(I,J),J=1,8) ***** 00ED' LD HL,0001 ***** 00F0' LD (I),HL ***** 00F3' LD DE,306L **** 014D' LD DE,EPS1 ***** 0150' LD HL,N ***** 0153' CALL SIMUL ***** 0156' CALL $CK ***** 0159' LD HL,DETER ***** 015C' CALL $T3 ***** 015F' LD HL,0000 ***** 0162' CALL $SQ ***** 0165' ADD FF ***** 0167' SBC A ***** 0168' LD (T:000002),A 24 WRITE (1,201) ***** 016B' OR A ***** 016C' JP NZ,3L ***** 016F' LD DE,201L ***** 0172' LD HL,[ 01 00] ***** 0175' CALL $W2 25 GO TO 1 ***** 0178' CALL $ND 26 3 ITCON = 1 ***** 017B' JP 1L 27 DO 5 I=1,N ***** 017E' LD HL,0001 HL,(T:010000) ***** 01D7' CALL $T3 ***** 01DA' LD HL,(I) ***** 01DD' INC HL ***** 01DE' EX DE,HL ***** 01DF' LD HL,(N) ***** 01E2' EX DE,HL ***** 01E3' LD A,E ***** 01E4' SUB L ***** 01E5' LD A,D ***** 01E6' SBC H ***** 01E7' JP P,0187' ***** 01EA' LD DE,202L ***** 01ED' LD HL,[ 01 00] ***** 01F0' CALL $W2 31 WRITE(1,306) (XOLD(I),I=1,N) ***** 01F3' LD DE,ITER ***** 01F6' LD HL,[ 01 00] ***** 01F9' LD A,02 ***** 01FB' CALL $I0 ***** 01FE' LD DE,DETER ***** 0201' LD HL,[ 01 00] *002),A 33 WRITE (1,203) ITER,N ***** 0261' OR A ***** 0262' JP NZ,9L ***** 0265' LD DE,203L ***** 0268' LD HL,[ 01 00] ***** 026B' CALL $W2 34 WRITE (1,306) (XOLD(I),I=1,N) ***** 026E' LD BC,N ***** 0271' LD DE,ITER ***** 0274' LD HL,[ 01 00] ***** 0277' LD A,03 ***** 0279' CALL $I0 ***** 027C' CALL $ND ***** 027F' LD DE,306L ***** 0282' LD HL,[ 01 00] ***** 0285' CALL $W2 35 GO TO 1 ***** 0288' LD HL,0001 ***** 028B' LD (I),HL ***** 028E' LD HL,(I) ***** 0291' ADD HL,´„fðVoŠE!€gVqf€²Í­cú|eŸÀì B´ưU›À"‘H‹8€wÏødEž@YÄ#ðÃ,ÐUž@ «<€3jè«7€Ýb¬Òë=¥OIÇ•‡€æÍ®À!ê!½À#à6¨€s†û€�€LÚVÍ >3oà 6¼€„o ††�3oˆ„fðVoŠE!óþgVquˆhØøÍ àB¬Þ#uгH¬ö•='TŒ ›E@…ZúZ¹�ëF°>2Ïà v4à ›G€€9¤#�@5¤|fÑ &mPÑ€! ufÖÀ!"Íà¬Þ)ŠB;çü2"Î ¬âëØ0!ð ›O@…Y¼Fëf�Yí*zN<¬X6¾�0èàÅŒU�@n±VmužÒ§¤ãÊð€@  fØ`&m¸aÑÀ tÅ[¸.‚ ‰#1L·p ]1p–îK¡À1Á `M • D’À€’SI„Ái žN"J„’y8ŠDÊB™$œG*“%!L·p ]d1ë–îK¬€� `I* LD DE,306L ***** 00A0' LD HL,[ 01 00] ***** 00A3' CALL $W2 16 INDIC=1 ***** 00A6' LD HL,0001 ***** 00A9' LD (I),HL ***** 00AC' LD HL,(I) ***** 00AF' ADD HL,HL ***** 00B0' ADD HL,HL ***** 00B1' ADD HL,HL ***** 00B2' LD DE,XOLD-0008 ***** 00B5' ADD HL,DE ***** 00B6' LD (T:000000),HL ***** 00B9' LD HL,(T:000000) ***** 00BC' EX DE,HL ***** 00BD' LD HL,[ 01 00] ***** 00C0' LD A,02 ***** 00C2' CALL $I3 ***** 00C5' LD HL,(I) ***** 00C8' INC HL ***** 00C9' EX DE,HL ***** 00CA' LD HL,(N)  ***** 0124' EX DE,HL ***** 0125' LD HL,[ 01 00] ***** 0128' LD A,02 ***** 012A' CALL $I3 ***** 012D' LD HL,(J) ***** 0130' INC HL ***** 0131' LD A,08 ***** 0133' SUB L ***** 0134' LD A,00 ***** 0136' SBC H ***** 0137' JP P,00FF' ***** 013A' CALL $ND 22 DETER = SIMUL(N,EPS1,INDIC,NRC) ***** 013D' LD HL,(I) ***** 0140' INC HL ***** 0141' LD A,07 ***** 0143' SUB L ***** 0144' LD A,00 ***** 0146' SBC H ***** 0147' JP P,00F0' 23 IF (DETER.NE.0) GO TO 3 ***** 014A' LD BC,007B" *' JP Z,0000 29 5 XOLD(I) = XOLD(I) + XINC(I) ***** 01AE' LD HL,0000 ***** 01B1' LD (ITCON),HL 30 WRITE(1,202) ITER,DETER,N ***** 01B4' LD HL,(I) ***** 01B7' ADD HL,HL ***** 01B8' ADD HL,HL ***** 01B9' ADD HL,HL ***** 01BA' LD (T:000000),HL ***** 01BD' LD DE,XOLD-0008 ***** 01C0' ADD HL,DE ***** 01C1' LD (T:010000),HL ***** 01C4' LD HL,(T:000000) ***** 01C7' LD DE,XINC-0008 ***** 01CA' ADD HL,DE ***** 01CB' CALL $L3 ***** 01CE' LD HL,(T:010000) ***** 01D1' CALL $AU ***** 01D4' LD0) ***** 0236' EX DE,HL ***** 0237' LD HL,[ 01 00] ***** 023A' LD A,02 ***** 023C' CALL $I3 ***** 023F' LD HL,(I) ***** 0242' INC HL ***** 0243' EX DE,HL ***** 0244' LD HL,(N) ***** 0247' EX DE,HL ***** 0248' LD A,E ***** 0249' SUB L ***** 024A' LD A,D ***** 024B' SBC H ***** 024C' JP P,0223' ***** 024F' CALL $ND ***** 0252' LD HL,(ITCON) ***** 0255' LD A,L ***** 0256' RLCA ***** 0257' OR L ***** 0258' AND 7F ***** 025A' OR H ***** 025B' SUB 01 ***** 025D' SBC A ***** 025E' LD (T:000 HL,A+0218 ***** 01E9' CALL $T3 ***** 01EC' LD HL,0010 ***** 01EF' EX DE,HL ***** 01F0' LD HL,(XOLD) ***** 01F3' ADD HL,DE ***** 01F4' LD (T:060000),HL ***** 01F7' LD HL,0018 ***** 01FA' EX DE,HL ***** 01FB' LD HL,(XOLD) ***** 01FE' ADD HL,DE ***** 01FF' LD (T:070000),HL ***** 0202' LD HL,0020 ***** 0205' EX DE,HL ***** 0206' LD HL,(XOLD) ***** 0209' ADD HL,DE ***** 020A' LD (T:080000),HL ***** 020D' LD HL,0030 ***** 0210' EX DE,HL ***** 0211' LD HL,(XOLD) ***** 0214' ADD HL,DE ***** 021L3 ***** 028C' LD HL,0002 ***** 028F' CALL $EQ ***** 0292' LD HL,T:050003 ***** 0295' CALL $T3 ***** 0298' LD HL,[ 00 00 00 81] ***** 029B' CALL $L1 ***** 029E' CALL $CK ***** 02A1' LD HL,T:050003 ***** 02A4' CALL $DU ***** 02A7' LD HL,A+0220 ***** 02AA' CALL $T3 ***** 02AD' LD HL,0008 ***** 02B0' EX DE,HL ***** 02B1' LD HL,(XOLD) ***** 02B4' ADD HL,DE ***** 02B5' LD (T:0A0000),HL ***** 02B8' LD HL,0020 ***** 02BB' EX DE,HL ***** 02BC' LD HL,(XOLD) ***** 02BF' ADD HL,DE ***** 02C0' LD (¬U€@"-J!b¬jp`ë`È‹T€DX«€YµUª@¶U©À´ U©@´8U€@´PCr�¶T ›VÀÄ> ›u�!€¬U€@,Ú !€µô C�@µ0C�@µCÊ´¤B :ÅX2ͦ€¢›Q�Y´ŒCöµ0B:ÅX2࢛ͪN�D 6®‚ˆp(6¾‚ˆp(6Á‚а6°‚y€ 6³ˆBX«€YµÄB3lH+6°ˆ|@ 6Ê‚ˆDX«€DZ¬B:ÅX2"Õ ÀÖ*À –m €À Úî !À  ÛL !À  Û¸ *À Û !Õà Û^ *Õ  Û  *Õ` ÛÐ !´`¬ÛÄ !Õà Úþ!òLÛÜ !b¬fß@Q0fÐÀa`ë`Ë6‹ƒ@mfÚ�QˆfÑÐaVfÒ€aàfÓpa ë`Ë6žƒiX36—3iˆ0‡œ³j0„0uаdE­À €¬U€@"-r!b¬fÔàaVfß Q»fÕÐaV¹f×àaV·f8' CALL $L1 ***** 02FB' CALL $CK ***** 02FE' LD HL,A+0018 ***** 0301' CALL $T3 ***** 0304' LD HL,[ 40 C0 87 92] ***** 0307' CALL $L1 ***** 030A' CALL $CK ***** 030D' LD HL,A+0070 ***** 0310' CALL $T3 ***** 0313' LD HL,[ 80 C2 98 91] ***** 0316' CALL $L1 ***** 0319' CALL $CK ***** 031C' LD HL,A+00C8 ***** 031F' CALL $T3 ***** 0322' LD HL,[ 00 DE 13 8F] ***** 0325' CALL $L1 ***** 0328' CALL $CK ***** 032B' LD HL,A+0120 ***** 032E' CALL $T3 ***** 0331' LD HL,[ 00 AC 03 8E] ***** 0334' CALL ***** 03A6' EX DE,HL ***** 03A7' LD HL,(XOLD) ***** 03AA' ADD HL,DE ***** 03AB' LD (T:0F0000),HL ***** 03AE' LD HL,0010 ***** 03B1' EX DE,HL ***** 03B2' LD HL,(XOLD) ***** 03B5' ADD HL,DE ***** 03B6' LD (T:100000),HL ***** 03B9' LD HL,0018 ***** 03BC' EX DE,HL ***** 03BD' LD HL,(XOLD) ***** 03C0' ADD HL,DE ***** 03C1' LD (T:110000),HL ***** 03C4' LD HL,0020 ***** 03C7' EX DE,HL ***** 03C8' LD HL,(XOLD) ***** 03CB' ADD HL,DE ***** 03CC' LD (T:120000),HL ***** 03CF' LD HL,0030 ***** 03D2' 0442' LD HL,(T:0F0000) ***** 0445' CALL $L3 ***** 0448' LD HL,[ 40 C0 07 92] ***** 044B' CALL $MR ***** 044E' LD HL,T:0C0003 ***** 0451' CALL $T3 ***** 0454' LD HL,[ 00 4A 61 8F] ***** 0457' CALL $L1 ***** 045A' CALL $CK ***** 045D' LD HL,(XOLD) ***** 0460' CALL $MU ***** 0463' LD HL,T:0C0003 ***** 0466' CALL $AU ***** 0469' LD HL,T:0B0003 ***** 046C' CALL $AU ***** 046F' LD HL,T:0A0003 ***** 0472' CALL $SU ***** 0475' LD HL,T:090003 ***** 0478' CALL $SU ***** 047B' LD HL,T:080003 ***** **** 0251' CALL $T3 ***** 0254' LD HL,[ 00 00 00 81] ***** 0257' CALL $L1 ***** 025A' CALL $CK ***** 025D' LD HL,A+0010 ***** 0260' CALL $T3 ***** 0263' LD HL,[ 00 00 00 81] ***** 0266' CALL $L1 ***** 0269' CALL $CK ***** 026C' LD HL,A+0068 ***** 026F' CALL $T3 ***** 0272' LD HL,[ 00 00 00 81] ***** 0275' CALL $L1 ***** 0278' CALL $CK ***** 027B' LD HL,A+0170 ***** 027E' CALL $T3 ***** 0281' LD HL,0030 ***** 0284' EX DE,HL ***** 0285' LD HL,(XOLD) ***** 0288' ADD HL,DE ***** 0289' CALL $b›EÀÙ´h CÈY´€ B3i06”�ˆ{À 6—�ˆFX«€DY|B3i¨6œвø6í�3j`‡è³ið„PuаdE˜@#¬U€@,Û!¶@C˜Àµ„ U˜@µÜ CSÙ´ÜB3@cfÕ€1(fØ01 ë`È‹5€BX«€DY´B:ÅX2"ÍàÖ*À ‘qŒ±V ˆ³˜„Puаe›b@Ä60 ›cÀÅYÌ›fÀÄ9Ô›h@Ä6H ›SÀÙµH UœÀ·¼ CŸ@·Ô Uœ@·Œ CL€Ù·¤ C¡@´(U›À´@CHÀÙ´XC£@´pU›@´ˆB3i@ ‡J€3ip «5€3i  „fÓ A�fÔAÍ¿`lÛü*À ÐC§@µ$C¥@µœC£@·´C¡@µÌCŸ@µäC�@µ´Cà™µHCsÀ™µ`›VÁ<€›bÁ68›dA¶PCÞ¶hCgA¶€›hÁ?@›jA6°›kÁ¶ÈCÊY¶àCnÁ¶ø›pA>›qÁ €T:0B0000),HL ***** 02C3' LD HL,0030 ***** 02C6' EX DE,HL ***** 02C7' LD HL,(XOLD) ***** 02CA' ADD HL,DE ***** 02CB' LD (T:0C0000),HL ***** 02CE' LD HL,[ 00 00 00 81] ***** 02D1' CALL $L1 ***** 02D4' CALL $CK ***** 02D7' LD HL,(T:0C0000) ***** 02DA' CALL $DU ***** 02DD' LD HL,(T:0B0000) ***** 02E0' CALL $SU ***** 02E3' LD HL,(T:0A0000) ***** 02E6' CALL $SU ***** 02E9' LD HL,(XOLD) ***** 02EC' CALL $SU ***** 02EF' LD HL,A+0278 ***** 02F2' CALL $T3 ***** 02F5' LD HL,[ 00 4A E1 8F] ***** 02F:0E0000),HL ***** 036E' LD HL,0030 ***** 0371' EX DE,HL ***** 0372' LD HL,(XOLD) ***** 0375' ADD HL,DE ***** 0376' CALL $L3 ***** 0379' LD HL,0002 ***** 037C' CALL $EQ ***** 037F' LD HL,T:060003 ***** 0382' CALL $T3 ***** 0385' LD HL,(T:0E0000) ***** 0388' CALL $L3 ***** 038B' LD HL,[ 00 08 27 8E] ***** 038E' CALL $MR ***** 0391' LD HL,[ 00 D0 52 8E] ***** 0394' CALL $SR ***** 0397' LD HL,T:060003 ***** 039A' CALL $DU ***** 039D' LD HL,A+0228 ***** 03A0' CALL $T3 ***** 03A3' LD HL,0008 T:080003 ***** 0409' CALL $T3 ***** 040C' LD HL,(T:120000) ***** 040F' CALL $L3 ***** 0412' LD HL,[ 00 AC 03 8E] ***** 0415' CALL $MR ***** 0418' LD HL,T:090003 ***** 041B' CALL $T3 ***** 041E' LD HL,(T:110000) ***** 0421' CALL $L3 ***** 0424' LD HL,[ 00 DE 13 8F] ***** 0427' CALL $MR ***** 042A' LD HL,T:0A0003 ***** 042D' CALL $T3 ***** 0430' LD HL,(T:100000) ***** 0433' CALL $L3 ***** 0436' LD HL,[ 80 C2 18 91] ***** 0439' CALL $MR ***** 043C' LD HL,T:0B0003 ***** 043F' CALL $T3 ***** 5' LD (T:090000),HL ***** 0218' LD HL,[ 00 00 00 82] ***** 021B' CALL $L1 ***** 021E' CALL $CK ***** 0221' LD HL,(T:090000) ***** 0224' CALL $DU ***** 0227' LD HL,T:040003 ***** 022A' CALL $T3 ***** 022D' LD HL,(T:080000) ***** 0230' CALL $L3 ***** 0233' LD HL,[ 00 00 00 82] ***** 0236' CALL $MR ***** 0239' LD HL,T:040003 ***** 023C' CALL $SU ***** 023F' LD HL,(T:070000) ***** 0242' CALL $AU ***** 0245' LD HL,(T:060000) ***** 0248' CALL $AU ***** 024B' CALL $NU ***** 024E' LD HL,A+0270 *›VEX›W€D5„›YD8ÄšqH4bm|fÞhfÖ  ÑfÝ@m×û€m‘Ù@m—fÙ fÚ sfÚ`m©ö€m¯Œ±V ³k€„fÐ 9fÛà ²fÛPm¸ã�mRñ€&mÕ„±V ˆ²„0uаdE�À"¬U€@",Š!b¬dp ØfݰmÞdpmää�mêdPmÉÑ�&h!É Û*È` Û*È Ú†ͱ`"àÍ¥`BFÍ£€LÚ>!â Ú¤!ª LÚ°Í«`BÐͬ BÈͬàLÚÔ!î,Úà!b¬fÓ!͹à"¢Í¯àBæÍ®ÀLÚò!Ê ÚJ!äLÛ,!b¬e�€ë`È‹-€FX«€DYtCf@™¶p ›gÀ…Yt›i@…Yl›O@…Yd›x@…X›yÀ„=à ›jÀ„ 6é3n¨‡Œ3o˜„fß�&mü÷m€ ÚÍ¡`b�Í¢ Ø@a QfÕ@a»fÐ`a˜fØ fL£ 3fÉLæ#  13 �p$d‰§1œÐFH˜cÐdˆiqš€fH¨g1zÌx$W2Œá€2DäI‰ ALUA£ >cì%8Qó�B’˜‚��t”ÄÜ $f"€ha#1%7‚hùˆ˜ XGLy€À�::cðh‘Ó VÄ\’˜½€Çô0$¦3 ÆÖ(™dˆŠ±•pfHœ«�d‰†q�`VHŠ£vdˆŠQ‘ VH‚«¢dŠj±™ÀfHš¥ dŠjQ™`fHš«5õŽ€T4Ä4éÀ…TÒSUS U4”ÕTÈ À! `PX‹€€BÍXü#3ÄZ¤U‚@Â31¼úZ¹�ë@¸ý>2Õ` vP*À á˜Þ#j� ‰p«€„fcxEœÿ Ÿ@ëW1ýh=c Sã-V·aB3@h! 4àhɘª€@mgfÖ  f×"Õ€­X+jà df×pmzáPm€€@-`!€Z$L1 ***** 0337' CALL $CK ***** 033A' LD HL,A+0178 ***** 033D' CALL $T3 ***** 0340' LD HL,0030 ***** 0343' EX DE,HL ***** 0344' LD HL,(XOLD) ***** 0347' ADD HL,DE ***** 0348' LD (T:0D0000),HL ***** 034B' LD HL,[ 00 08 27 8E] ***** 034E' CALL $L1 ***** 0351' CALL $CK ***** 0354' LD HL,(T:0D0000) ***** 0357' CALL $DU ***** 035A' CALL $NU ***** 035D' LD HL,A+01D0 ***** 0360' CALL $T3 ***** 0363' LD HL,0028 ***** 0366' EX DE,HL ***** 0367' LD HL,(XOLD) ***** 036A' ADD HL,DE ***** 036B' LD (TEX DE,HL ***** 03D3' LD HL,(XOLD) ***** 03D6' ADD HL,DE ***** 03D7' LD (T:130000),HL ***** 03DA' LD HL,0028 ***** 03DD' EX DE,HL ***** 03DE' LD HL,(XOLD) ***** 03E1' ADD HL,DE ***** 03E2' CALL $L3 ***** 03E5' LD HL,[ 00 08 27 8E] ***** 03E8' CALL $MR ***** 03EB' LD HL,(T:130000) ***** 03EE' CALL $DU ***** 03F1' LD HL,T:070003 ***** 03F4' CALL $T3 ***** 03F7' LD HL,[ 00 D0 52 8E] ***** 03FA' CALL $L1 ***** 03FD' CALL $CK ***** 0400' LD HL,(T:130000) ***** 0403' CALL $DU ***** 0406' LD HL,  0066' CALL $L1 ***** 0069' CALL $CK ***** 006C' LD HL,SIMUL ***** 006F' CALL $T3 ***** 0072' RET 12 5 DETER = 1. 13 DO 18 K=1,N ***** 0073' LD HL,[ 00 00 00 81] ***** 0076' CALL $L1 ***** 0079' CALL $CK ***** 007C' LD HL,DETER ***** 007F' CALL $T3 14 KM1=K-1 ***** 0082' LD HL,0001 ***** 0085' LD (K),HL 15 PIVOT = 0. 16 DO 11 I=1,N ***** 0088' LD HL,(K) ***** 008B' DEC HL ***** 008C' LD (KM1),HL ***** 008F' LD HL,[ 00 00 00 00] ***** 0092' CALL $L1 ****3' LD A,D ***** 00E4' SBC H ***** 00E5' LD H,A ***** 00E6' LD A,L ***** 00E7' RLCA ***** 00E8' OR L ***** 00E9' AND 7F ***** 00EB' OR H ***** 00EC' SUB 01 ***** 00EE' SBC A ***** 00EF' LD (T:000002),A 22 IF (J.EQ.JCOL(JSCAN)) GO TO 11 ***** 00F2' OR A ***** 00F3' JP NZ,11L ***** 00F6' LD HL,(JSCAN) ***** 00F9' ADD HL,HL ***** 00FA' LD DE,JCOL-0002 ***** 00FD' ADD HL,DE ***** 00FE' LD (T:000000),HL ***** 0101' LD HL,(J) ***** 0104' EX DE,HL ***** 0105' LD HL,(T:000000) ***** 0108HL ***** 014B' LD HL,(J) ***** 014E' EX DE,HL ***** 014F' LD HL,0058 ***** 0152' CALL $M9 ***** 0155' EX DE,HL ***** 0156' LD HL,(T:000000) ***** 0159' ADD HL,DE ***** 015A' LD DE,A-0060 ***** 015D' ADD HL,DE ***** 015E' LD (T:010000),HL ***** 0161' LD HL,PIVOT ***** 0164' CALL DABS ***** 0167' LD HL,T:000003 ***** 016A' CALL $T3 ***** 016D' LD HL,(T:010000) ***** 0170' CALL DABS ***** 0173' LD HL,T:000003 ***** 0176' CALL $SU ***** 0179' DEC A ***** 017A' ADD 81 ***** 017C' SBC A ****[ R)ˆµÀ«Y:Ä%€6Ê€ºÅZà2ôᑺfÔ€!f€­tͪ€B­d#uеH¬ö•='UdU²"‘H‹\ ¶P¬BX3kh¬U®!Aþk  tfÑ€&máPm‚k mˆ€@-`*Ö‘H¤E®[(Ö!,¶¬ Ö*×�� ÿ ³kà4ìÀh*Ö±VÈ=¥Mç¤áœúZ¹�ëF°>2Õ` v*Ö‘H¤E®[(Ö!,·” Ö*×�� ÿ ˆµÐ‡f3mè6àp¨6ã3@VºfÜÀ!"Ö@­dël ÚTÞzNÏ u«˜þ´c?Óã-V·e­`)ŠDZàU¬€bÀ›J€ÄZèÖ*×�� ÿ ˆ¶ «d E"‘Æk X«cB>ƒü2; B˜Í[›AÀ™µ U±µ8bâ*Ö@7X«T€:ÏiSÒqåTÀæ"àb­`#uа(øFf7ºÏiSÒqåt@…Z°Fë`PðŒÌoužÒ§¤ãÊ€@ °kH‹\sXdü#3Ä[@U$L3 ***** 01A3' LD HL,PIVOT ***** 01A6' CALL $T3 ***** 01A9' LD HL,(K) ***** 01AC' ADD HL,HL ***** 01AD' LD (T:010000),HL ***** 01B0' LD DE,IROW-0002 ***** 01B3' ADD HL,DE ***** 01B4' LD (T:020000),HL ***** 01B7' LD HL,(I) ***** 01BA' EX DE,HL ***** 01BB' LD HL,(T:020000) ***** 01BE' LD (HL),E ***** 01BF' INC HL ***** 01C0' LD (HL),D ***** 01C1' LD HL,(T:010000) ***** 01C4' LD DE,JCOL-0002 ***** 01C7' ADD HL,DE ***** 01C8' LD (T:030000),HL ***** 01CB' LD HL,(J) ***** 01CE' EX DE,HL ****0 00] ***** 0217' CALL $L1 ***** 021A' CALL $CK ***** 021D' LD HL,SIMUL ***** 0220' CALL $T3 ***** 0223' RET 32 13 IROWK = IROW(K) 33 JCOLK = JCOL(K) 34 DETER = DETER*PIVOT 35 DO 14 J= 1, MAX ***** 0224' LD HL,(K) ***** 0227' ADD HL,HL ***** 0228' LD (T:000000),HL ***** 022B' LD DE,IROW-0002 ***** 022E' ADD HL,DE ***** 022F' LD A,(HL) ***** 0230' INC HL ***** 0231' LD H,(HL) ***** 0232' LD L,A ***** 0233' LD (IROWK),HL ***** 0236' LD HL,(T:000000) ***** 0239' LD,KM1 ***** 00BE' LD HL,0001 ***** 00C1' LD (ISCAN),HL 21 IF ( I.EQ.IROW(ISCAN)) GO TO 11 ***** 00C4' LD HL,0001 ***** 00C7' LD (JSCAN),HL ***** 00CA' LD HL,(ISCAN) ***** 00CD' ADD HL,HL ***** 00CE' LD DE,IROW-0002 ***** 00D1' ADD HL,DE ***** 00D2' LD (T:000000),HL ***** 00D5' LD HL,(I) ***** 00D8' EX DE,HL ***** 00D9' LD HL,(T:000000) ***** 00DC' LD A,(HL) ***** 00DD' INC HL ***** 00DE' LD H,(HL) ***** 00DF' LD L,A ***** 00E0' LD A,E ***** 00E1' SUB L ***** 00E2' LD L,A ***** 00E HL ***** 0126' EX DE,HL ***** 0127' LD HL,(KM1) ***** 012A' EX DE,HL ***** 012B' LD A,E ***** 012C' SUB L ***** 012D' LD A,D ***** 012E' SBC H ***** 012F' JP P,00C7' ***** 0132' LD HL,(ISCAN) ***** 0135' INC HL ***** 0136' EX DE,HL ***** 0137' LD HL,(KM1) ***** 013A' EX DE,HL ***** 013B' LD A,E ***** 013C' SUB L ***** 013D' LD A,D ***** 013E' SBC H ***** 013F' JP P,00C1' ***** 0142' LD HL,(I) ***** 0145' ADD HL,HL ***** 0146' ADD HL,HL ***** 0147' ADD HL,HL ***** 0148' LD (T:000000),ÈU«gÐ:ÕÌZ5€)ñ–«[°€"Ö€E­€ZÐRÍ`‘¸kX«\„fcyí*o=' çÐ:ÕÌZ5€)ñ–«[°€V¶„sødE®ZÈÖ*×á˜Þ{J›ÏIÃ9ôµsÖ�` |eªÀì+è*ÖÀ7X«W:ÏiSÒqåqÀZÐFëjàYí*zN<®ÆðU¬"‘H‹\ µ�¬BX3@X«\B0M ÿ ˆµÐ‡ €3@¼fÙÀVºfÖP¼f€Ö2>2Õ` v kH¤R"×­dë– Ú¦ëk€ÈGІY ‡ €3kX«V DZè#šÀ"-ˆ*Ö±VÄ9ˆÎB­tÏà‘Æk X«cÄg)Œ«YÝb¬ ~™�î³ÚTôœyZpV°ºÅXü#3Ýg´©é8ò´ *Í® "¬Í®à#Ö±ý>2Õ` v!² Û&ͲÀÍ´à,™ˆ�«V DZà#šÀ'á˜Þ"Ù­pÏà“ðŒÌol fÚ f€ͤ BE¬€?€OÂ31¼E´€[HR)„p¨dE®[@R)ˆµÐ«Y:Ä%€6µ:ÅZè2ôá–m›k€m¡k¬U�@Â31½Ö{Jž“�+Z !€ZÀU¬"‘H‹\ µ�¬BX3op+¬U®!Aþk V¸áPË6ýеÐ6€ µ€�Ö*À á˜Þë=¥OIÇ•k ¬U�@Â31½Ö{Jž“�+N !€ZÀBµ�«Y DZà#šÀ'á˜Þ"Û€­pÏà“ðŒÌomàVÜŠE!*k€V°ŠE"-t*ÛÀ± `Í¥ Î±Vº „}øe›PÁ…Zà›RA…ZÈFë`PðŒÌoužÒ§¤ãʾ@ ²kH¤R"×­dë– Ûz ëk€ÈGІDZèU¬€"‘HG €Y·$U®€·<U¬€n±V?ÌÆ÷Yí*zN<¯@0«XÝb¬ ~™�î³ÚTôœyW`a fÑPqfѰvL»€b°-R—p #@Àœ *Éâ$Ž)–©Ê;À# Q Nct3P  LD HL,(N) ***** 01F1' LD A,(HL) ***** 01F2' INC HL ***** 01F3' LD H,(HL) ***** 01F4' LD L,A ***** 01F5' EX DE,HL ***** 01F6' LD A,E ***** 01F7' SUB L ***** 01F8' LD A,D ***** 01F9' SBC H ***** 01FA' JP P,00A1' ***** 01FD' LD HL,PIVOT ***** 0200' CALL DABS ***** 0203' LD HL,(EPS) ***** 0206' CALL $SU ***** 0209' DEC A ***** 020A' SUB 7F ***** 020C' SBC A ***** 020D' LD (T:000002),A 30 SIMUL = 0. ***** 0210' OR A ***** 0211' JP NZ,13L 31 RETURN ***** 0214' LD HL,[ 00 00 0* 0095' CALL $CK ***** 0098' LD HL,PIVOT ***** 009B' CALL $T3 17 DO 11 J=1,N ***** 009E' LD HL,0001 ***** 00A1' LD (I),HL 18 IF (K.EQ.1) GO TO 9 ***** 00A4' LD HL,0001 ***** 00A7' LD (J),HL ***** 00AA' LD HL,(K) ***** 00AD' DEC HL ***** 00AE' LD A,L ***** 00AF' RLCA ***** 00B0' OR L ***** 00B1' AND 7F ***** 00B3' OR H ***** 00B4' SUB 01 ***** 00B6' SBC A ***** 00B7' LD (T:000002),A 19 DO 8 ISCAN = 1,KM1 ***** 00BA' OR A ***** 00BB' JP NZ,9L 20 DO 8 JSCAN = 1' LD A,(HL) ***** 0109' INC HL ***** 010A' LD H,(HL) ***** 010B' LD L,A ***** 010C' LD A,E ***** 010D' SUB L ***** 010E' LD L,A ***** 010F' LD A,D ***** 0110' SBC H ***** 0111' LD H,A ***** 0112' LD A,L ***** 0113' RLCA ***** 0114' OR L ***** 0115' AND 7F ***** 0117' OR H ***** 0118' SUB 01 ***** 011A' SBC A ***** 011B' LD (T:000002),A 23 8 CONTINUE ***** 011E' OR A ***** 011F' JP NZ,11L 24 9 IF (DABS(A(I,J)).LE.DABS(PIVOT)) GO TO 11 ***** 0122' LD HL,(JSCAN) ***** 0125' INC* 017D' LD (T:000002),A 25 PIVOT = A(I,J) ***** 0180' OR A ***** 0181' JP NZ,11L 26 IROW(K) = I 27 JCOL(K) = J 28 11 CONTINUE ***** 0184' LD HL,(I) ***** 0187' ADD HL,HL ***** 0188' ADD HL,HL ***** 0189' ADD HL,HL ***** 018A' LD (T:000000),HL ***** 018D' LD HL,(J) ***** 0190' EX DE,HL ***** 0191' LD HL,0058 ***** 0194' CALL $M9 ***** 0197' EX DE,HL ***** 0198' LD HL,(T:000000) ***** 019B' ADD HL,DE ***** 019C' LD DE,A-0060 ***** 019F' ADD HL,DE ***** 01A0' CALL ®9ü2~™�â-¤*Ú�Ž“ ˆµÐ«i:ÅZèæ#9 °HøFf7Ÿ@ëW1ýh§ÆZ¬nÊ[HR)„~dE®[@R)ˆµÐ«T€:Ä%€6ºÅZè2ôá–m«k€mÀ˜¥ µ€�Ö*À á˜Þë=¥OIÇ•ý€-¨*À á˜Þ+m`"Ö­`#m€²k HGI€DZàU¬!&k V¸?ÌÆ÷X«]„fcyí*o=' çÐ:ÕÌZÇéñ–«[°€V²„t˜dE®Â31¼E¶€ZÀRÒ`‘º?ÌÆ÷X«\Äg!VÚuеÐÌFrm@‹jL{ZÈFë`PðŒÌoužÒ§¤ãÊØ µ€�Ö*ÚÀ³ÚTôœyZ`AVÔuˆ@@h)uж í*o=' çÐ:ÕÌZ1Ÿéñ–«[²€ f×`FmºàÐm|˜·аHøFf7Ÿ@ëW1ýh=c Sã-V·aÍ®€¢ͯ ¬™Œ¨(„k "Ö­`)k€Žk Ÿ„fcx‹h µÀG* 01CF' LD HL,(T:030000) ***** 01D2' LD (HL),E ***** 01D3' INC HL ***** 01D4' LD (HL),D 29 IF (DABS(PIVOT) .GT. EPS) GO TO 13 ***** 01D5' LD HL,(J) ***** 01D8' INC HL ***** 01D9' EX DE,HL ***** 01DA' LD HL,(N) ***** 01DD' LD A,(HL) ***** 01DE' INC HL ***** 01DF' LD H,(HL) ***** 01E0' LD L,A ***** 01E1' EX DE,HL ***** 01E2' LD A,E ***** 01E3' SUB L ***** 01E4' LD A,D ***** 01E5' SBC H ***** 01E6' JP P,00A7' ***** 01E9' LD HL,(I) ***** 01EC' INC HL ***** 01ED' EX DE,HL ***** 01EE'  4BA' ADD HL,DE ***** 04BB' LD (T:000000),HL ***** 04BE' LD HL,(I) ***** 04C1' ADD HL,HL ***** 04C2' LD DE,JORD-0002 ***** 04C5' ADD HL,DE ***** 04C6' LD (T:010000),HL ***** 04C9' LD HL,(T:000000) ***** 04CC' LD A,(HL) ***** 04CD' INC HL ***** 04CE' LD H,(HL) ***** 04CF' LD L,A ***** 04D0' EX DE,HL ***** 04D1' LD HL,(T:010000) ***** 04D4' LD A,(HL) ***** 04D5' INC HL ***** 04D6' LD H,(HL) ***** 04D7' LD L,A ***** 04D8' LD A,E ***** 04D9' SUB L ***** 04DA' LD L,A ***** 04DB' LD A,D *****0000) ***** 051D' LD (HL),E ***** 051E' INC HL ***** 051F' LD (HL),D ***** 0520' LD HL,(INTCH) ***** 0523' INC HL ***** 0524' LD (INTCH),HL 61 IF ( INTCH/2*2.NE.INTCH ) DETER = -DETER ***** 0527' LD HL,(J) ***** 052A' INC HL ***** 052B' EX DE,HL ***** 052C' LD HL,(N) ***** 052F' LD A,(HL) ***** 0530' INC HL ***** 0531' LD H,(HL) ***** 0532' LD L,A ***** 0533' EX DE,HL ***** 0534' LD A,E ***** 0535' SUB L ***** 0536' LD A,D ***** 0537' SBC H ***** 0538' JP P,04B0' ***** 053B' LD 7F ***** 058B' OR H ***** 058C' DEC A ***** 058D' ADD 81 ***** 058F' SBC A ***** 0590' LD (T:000002),A 63 SIMUL = DETER ***** 0593' OR A ***** 0594' JP NZ,26L 64 RETURN ***** 0597' LD HL,DETER ***** 059A' CALL $L3 ***** 059D' LD HL,SIMUL ***** 05A0' CALL $T3 ***** 05A3' RET 65 26 DO 28 J=1,N 66 DO 27 I=1,N ***** 05A4' LD HL,0001 ***** 05A7' LD (J),HL 67 IROWI = IROW(I) ***** 05AA' LD HL,0001 ***** 05AD' LD (I),HL 68 JCOLI = JCOL(I) 69 27 Y(JC05FC' LD HL,(T:000000) ***** 05FF' CALL $T3 ***** 0602' LD HL,(I) ***** 0605' INC HL ***** 0606' EX DE,HL ***** 0607' LD HL,(N) ***** 060A' LD A,(HL) ***** 060B' INC HL ***** 060C' LD H,(HL) ***** 060D' LD L,A ***** 060E' EX DE,HL ***** 060F' LD A,E ***** 0610' SUB L ***** 0611' LD A,D ***** 0612' SBC H ***** 0613' JP P,05AD' 71 28 A(I,J) = Y(I) ***** 0616' LD HL,0001 ***** 0619' LD (I),HL 72 DO 30 I=1,N ***** 061C' LD HL,(I) ***** 061F' ADD HL,HL ***** 0620' ADD HL,HL **** 0670' JP P,05A7' 73 DO 29 J=1,N ***** 0673' LD HL,0001 ***** 0676' LD (I),HL 74 IROWJ= IROW(J) ***** 0679' LD HL,0001 ***** 067C' LD (J),HL 75 JCOLJ = JCOL(J) 76 29 Y(IROWJ) = A(I,JCOLJ) ***** 067F' LD HL,(J) ***** 0682' ADD HL,HL ***** 0683' LD (T:000000),HL ***** 0686' LD DE,IROW-0002 ***** 0689' ADD HL,DE ***** 068A' LD A,(HL) ***** 068B' INC HL ***** 068C' LD H,(HL) ***** 068D' LD L,A ***** 068E' LD (IROWJ),HL ***** 0691' LD HL,(T:000000) ***** 0694' LD DE,1' SBC H ***** 06E2' JP P,067C' 78 30 A(I,J) = Y(J) ***** 06E5' LD HL,0001 ***** 06E8' LD (J),HL 79 SIMUL=DETER ***** 06EB' LD HL,(I) ***** 06EE' ADD HL,HL ***** 06EF' ADD HL,HL ***** 06F0' ADD HL,HL ***** 06F1' LD (T:000000),HL ***** 06F4' LD HL,(J) ***** 06F7' EX DE,HL ***** 06F8' LD HL,0058 ***** 06FB' CALL $M9 ***** 06FE' EX DE,HL ***** 06FF' LD HL,(T:000000) ***** 0702' ADD HL,DE ***** 0703' LD DE,A-0060 ***** 0706' ADD HL,DE ***** 0707' LD (T:010000),HL ***** 070A' LD H 04F9' LD A,(HL) ***** 04FA' INC HL ***** 04FB' LD H,(HL) ***** 04FC' LD L,A ***** 04FD' LD (JTEMP),HL ***** 0500' LD HL,(I) ***** 0503' ADD HL,HL ***** 0504' LD DE,JORD-0002 ***** 0507' ADD HL,DE ***** 0508' LD (T:010000),HL ***** 050B' LD A,(HL) ***** 050C' INC HL ***** 050D' LD H,(HL) ***** 050E' LD L,A ***** 050F' EX DE,HL ***** 0510' LD HL,(T:000000) ***** 0513' LD (HL),E ***** 0514' INC HL ***** 0515' LD (HL),D ***** 0516' LD HL,(JTEMP) ***** 0519' EX DE,HL ***** 051A' LD HL,(T:0161' RLCA ***** 0562' OR L ***** 0563' AND 7F ***** 0565' OR H ***** 0566' ADD FF ***** 0568' SBC A ***** 0569' LD (T:000002),A ***** 056C' OR A ***** 056D' JP Z,0000 62 IF (INDIC.LE.0) GO TO 26 ***** 0570' LD HL,DETER ***** 0573' CALL $L3 ***** 0576' CALL $NU ***** 0579' LD HL,DETER ***** 057C' CALL $T3 ***** 057F' LD HL,(INDIC) ***** 0582' LD A,(HL) ***** 0583' INC HL ***** 0584' LD H,(HL) ***** 0585' LD L,A ***** 0586' LD A,L ***** 0587' RLCA ***** 0588' OR L ***** 0589' AND  05D3' ADD HL,HL ***** 05D4' ADD HL,HL ***** 05D5' ADD HL,HL ***** 05D6' LD DE,Y-0008 ***** 05D9' ADD HL,DE ***** 05DA' LD (T:000000),HL ***** 05DD' LD HL,(IROWI) ***** 05E0' ADD HL,HL ***** 05E1' ADD HL,HL ***** 05E2' ADD HL,HL ***** 05E3' LD (T:010000),HL ***** 05E6' LD HL,(J) ***** 05E9' EX DE,HL ***** 05EA' LD HL,0058 ***** 05ED' CALL $M9 ***** 05F0' EX DE,HL ***** 05F1' LD HL,(T:010000) ***** 05F4' ADD HL,DE ***** 05F5' LD DE,A-0060 ***** 05F8' ADD HL,DE ***** 05F9' CALL $L3 *****  ***** 0650' LD HL,(N) ***** 0653' LD A,(HL) ***** 0654' INC HL ***** 0655' LD H,(HL) ***** 0656' LD L,A ***** 0657' EX DE,HL ***** 0658' LD A,E ***** 0659' SUB L ***** 065A' LD A,D ***** 065B' SBC H ***** 065C' JP P,0619' ***** 065F' LD HL,(J) ***** 0662' INC HL ***** 0663' EX DE,HL ***** 0664' LD HL,(N) ***** 0667' LD A,(HL) ***** 0668' INC HL ***** 0669' LD H,(HL) ***** 066A' LD L,A ***** 066B' EX DE,HL ***** 066C' LD A,E ***** 066D' SUB L ***** 066E' LD A,D ***** 066F' SBC H ****HL ***** 06B9' LD HL,0058 ***** 06BC' CALL $M9 ***** 06BF' EX DE,HL ***** 06C0' LD HL,(T:010000) ***** 06C3' ADD HL,DE ***** 06C4' LD DE,A-0060 ***** 06C7' ADD HL,DE ***** 06C8' CALL $L3 ***** 06CB' LD HL,(T:000000) ***** 06CE' CALL $T3 ***** 06D1' LD HL,(J) ***** 06D4' INC HL ***** 06D5' EX DE,HL ***** 06D6' LD HL,(N) ***** 06D9' LD A,(HL) ***** 06DA' INC HL ***** 06DB' LD H,(HL) ***** 06DC' LD L,A ***** 06DD' EX DE,HL ***** 06DE' LD A,E ***** 06DF' SUB L ***** 06E0' LD A,D ***** 06E 04DC' SBC H ***** 04DD' LD H,A ***** 04DE' LD A,L ***** 04DF' RLCA ***** 04E0' OR L ***** 04E1' AND 7F ***** 04E3' OR H ***** 04E4' RLA ***** 04E5' CCF ***** 04E6' SBC A ***** 04E7' LD (T:000002),A 56 JTEMP = JORD(J) ***** 04EA' OR A ***** 04EB' JP NZ,22L 57 JORD(J)=JORD(I) 58 JORD(I)=JTEMP 59 INTCH = INTCH + 1 60 22 CONTINUE ***** 04EE' LD HL,(J) ***** 04F1' ADD HL,HL ***** 04F2' LD DE,JORD-0002 ***** 04F5' ADD HL,DE ***** 04F6' LD (T:000000),HL *****HL,(I) ***** 053E' INC HL ***** 053F' EX DE,HL ***** 0540' LD HL,(NM1) ***** 0543' EX DE,HL ***** 0544' LD A,E ***** 0545' SUB L ***** 0546' LD A,D ***** 0547' SBC H ***** 0548' JP P,04A6' ***** 054B' LD HL,(INTCH) ***** 054E' EX DE,HL ***** 054F' LD HL,0002 ***** 0552' CALL $D9 ***** 0555' ADD HL,HL ***** 0556' EX DE,HL ***** 0557' LD HL,(INTCH) ***** 055A' LD A,E ***** 055B' SUB L ***** 055C' LD L,A ***** 055D' LD A,D ***** 055E' SBC H ***** 055F' LD H,A ***** 0560' LD A,L ***** 05OLI) = A(IROWI,J) ***** 05B0' LD HL,(I) ***** 05B3' ADD HL,HL ***** 05B4' LD (T:000000),HL ***** 05B7' LD DE,IROW-0002 ***** 05BA' ADD HL,DE ***** 05BB' LD A,(HL) ***** 05BC' INC HL ***** 05BD' LD H,(HL) ***** 05BE' LD L,A ***** 05BF' LD (IROWI),HL ***** 05C2' LD HL,(T:000000) ***** 05C5' LD DE,JCOL-0002 ***** 05C8' ADD HL,DE ***** 05C9' LD A,(HL) ***** 05CA' INC HL ***** 05CB' LD H,(HL) ***** 05CC' LD L,A ***** 05CD' LD (JCOLI),HL 70 DO 28 I = 1,N ***** 05D0' LD HL,(JCOLI) ******* 0621' ADD HL,HL ***** 0622' LD (T:000000),HL ***** 0625' LD HL,(J) ***** 0628' EX DE,HL ***** 0629' LD HL,0058 ***** 062C' CALL $M9 ***** 062F' EX DE,HL ***** 0630' LD HL,(T:000000) ***** 0633' ADD HL,DE ***** 0634' LD DE,A-0060 ***** 0637' ADD HL,DE ***** 0638' LD (T:010000),HL ***** 063B' LD HL,(T:000000) ***** 063E' LD DE,Y-0008 ***** 0641' ADD HL,DE ***** 0642' CALL $L3 ***** 0645' LD HL,(T:010000) ***** 0648' CALL $T3 ***** 064B' LD HL,(I) ***** 064E' INC HL ***** 064F' EX DE,HL JCOL-0002 ***** 0697' ADD HL,DE ***** 0698' LD A,(HL) ***** 0699' INC HL ***** 069A' LD H,(HL) ***** 069B' LD L,A ***** 069C' LD (JCOLJ),HL 77 DO 30 J=1,N ***** 069F' LD HL,(IROWJ) ***** 06A2' ADD HL,HL ***** 06A3' ADD HL,HL ***** 06A4' ADD HL,HL ***** 06A5' LD DE,Y-0008 ***** 06A8' ADD HL,DE ***** 06A9' LD (T:000000),HL ***** 06AC' LD HL,(I) ***** 06AF' ADD HL,HL ***** 06B0' ADD HL,HL ***** 06B1' ADD HL,HL ***** 06B2' LD (T:010000),HL ***** 06B5' LD HL,(JCOLJ) ***** 06B8' EX DE,  K) JCOLK = JCOL(K) DETER = DETER*PIVOT DO 14 J= 1, MAX 14 A(IROWK,J) = A(IROWK,J)/PIVOT A(IROWK,JCOLK) = 1./PIVOT DO 18 I = 1,N AIJCK = A(I,JCOLK) IF ( I.EQ.IROWK) GO TO 18 A(I,JCOLK) = -AIJCK/PIVOT DO 17 J=1,MAX 17 IF (J.NE.JCOLK ) A(I,J) =A(I,J) - AIJCK*A(IROWK,J) 18 CONTINUE DO 20 I=1,N IROWI = IROW(I) JCOLI = JCOL(I) JORD(IROWI) = JCOLI 20 IF ( INDIC.GE.0 ) X(JCOLI) = A(IROWI,MAX)  DO 8 JSCAN = 1,KM1 IF ( I.EQ.IROW(ISCAN)) GO TO 11 IF (J.EQ.JCOL(JSCAN)) GO TO 11 8 CONTINUE 9 IF (DABS(A(I,J)).LE.DABS(PIVOT)) GO TO 11 PIVOT = A(I,J) IROW(K) = I JCOL(K) = J 11 CONTINUE IF (DABS(PIVOT) .GT. EPS) GO TO 13 SIMUL = 0. RETURN 13 IROWK = IROW(K) JCOLK = JCOL(K) DETER = DETER*PIVOT DO 14 J= 1, MAX 14 A(IROWK,J) = A(IROWK,J)/PIVOT A(IROWK,JCOLK) = 1./PIVOT DO 18 I DITIONED OR SINGULAR ) 202 FORMAT ( 10H0ITER = ,I8/ 10H DETER = , E18.5/ 2 26H XOLD(1)...XOLD(, I2, 1H) / (1H ,1P4E16.6) ) 203 FORMAT ( 24H0SUCCESSFUL CONVERGENCE / 10H0ITER = , I3/ 2 26H0 XOLD(1)...XOLD(, I2, 1H) / 1H / (1H ,1P4E16.6) ) 204 FORMAT ( 15H NO CONVERGENCE ) 300 FORMAT (5X,'CHEMICAL EQUILIBRIUM CALCULATION') 301 FORMAT (10X,'PLEASE INPUT NUMBER OF ITERATIONS') 305 FORMAT (10X,'PLEASE INPUT STARTING VALUES') 306 FORMAT (8E10.4)09.*XOLD(2) + 78213.*XOLD(3) 1 -18927.*XOLD(4) - 8427.*XOLD(5) - 13492./XOLD(7) + 10690. 2 *XOLD(6)/XOLD(7) A(5,1)= 1.0 A(5,2)=1.0 A(5,3)=1.0 A(5,4)=1.0 A(5,5)=1.0 A(5,8)= 1.0-XOLD(1)- XOLD(2)-XOLD(3)-XOLD(4)-XOLD(5) A(6,1)=P*P*XOLD(4)**3 A(6,3)= -1.78375E5*XOLD(5) A(6,4)= 3.0*P*P*XOLD(1)*XOLD(4)**2 A(6,5)= -1.7837E5*XOLD(3) A(6,8)= 1.7837E5*XOLD(5)*XOLD(3)-P*P*XOLD(1)*XOLD(4)**3 A(7,1)=XOLD(3) Ãû:Ú¯<7¯=¯:PGõ!o~6·xÌæQñÉ!^4!~þ Ê32PÉ:£·>/Â/ͨUþCÊ<!6 æïþ Â6> Ã/:ÃþÊkÍò*¡åÍÞ&>2Ã>2¾:ë2a2‹*("ª**"¨*,"¦*Á"Ø"¡ÍëÍWáÍ8@>2ÃÍWÃ;@>Í,ÍÃÍÏ!úÚ5:Ú·ÊÓÍò‡<2ÚÃxa5Í-MÍgW͵#*¡"Çͼb͵#*¡"Éͼb͵#*¡"ËØ': =²Ê@ÕÍÍæQÑþ ÊGÖ'Ê&y·É: =Ê#ÕÍÍæQÑÖ'Ê#yÖ ÂEÕÍÏѯÉÍò{¯õÍÏò~Ö0_:«æðÊlñÂk<õÕÍòÑõÍ‚#Ân!¤~³wÃMþAÚŠÖ7þÚUñ>'ÍÃbÃÏÍ‘':Ã=ÈÍòm>!l6 #=¤ɯ2Q<Ã�';þÐÍòiÍÊ·ÄU:÷ɯ2Ã2û2 og"0"2͘ ¯2¾ÍÏúÎ OG:¾·9!"„#"†!× Í2$ÍŽ+¦!× Í2$ÍŽ+�!× Í/$ˆ!× >ÍÁ#ÍŽ+�!× Í2$ˆ!× >ÍÁ#ÍŽ+Ï!× Í2$ÍŽ+ó!× Í/$!"Š*Š)))"Œ*Œë!× >ÍÓ#*Š#ë*„ë{•zœòiÍŽ+ó!× Í2$!"Š*Š)))"Œ*Œë!× >ÍÓ#*Š#ë*„ë{•zœò¤ÍŽ+!"Ž!"�†!Í� !"Šó!× Í2$!"’*Š)))"Œ*’ë!XÍz#ë*Œ£"”*”ë!× >ÍÓ#*’#>•>œòúÍŽ+*Š#>•>œòë–l!„Í‚Íê!|Í !Í…ÆÿŸ2š·Ây¢!× Í2$ÍŽ+Ã!"›!"Š*Š)))Ã"Œ*ŒÍÞ!tÍT=ÖŸ2š·Ê¯!"›*Š)))"Œ"”*ŒÃÍ*”Íd*”Í *Š#ë*„ë{•zœò‚Í!× Í2$�!× >ÍÁ#|!× >N 28 A(I,J) = Y(I) DO 30 I=1,N DO 29 J=1,N IROWJ= IROW(J) JCOLJ = JCOL(J) 29 Y(IROWJ) = A(I,JCOLJ) DO 30 J=1,N 30 A(I,J) = Y(J) SIMUL=DETER RETURN 200 FORMAT (10H0N TOO BIG ) END KM1=K-1 PIVOT = 0. DO 11 I=1,N DO 11 J=1,N IF (K.EQ.1) GO TO 9 DO 8 ISCAN = 1,KM1  (1,306) (A(I,J),J=1,8) 2 CONTINUE DETER = SIMUL(N,EPS1,INDIC,NRC) IF (DETER.NE.0) GO TO 3 WRITE (1,201) GO TO 1 3 ITCON = 1 DO 5 I=1,N IF (DABS(XINC(I)).GT.EPS2) ITCON = 0 5 XOLD(I) = XOLD(I) + XINC(I) WRITE(1,202) ITER,DETER,N,(XOLD(I),I=1,N) IF (ITCON.EQ.0) GO TO 9 WRITE (1,203) ITER,N,(XOLD(I),I=1,N) GO TO 1 9 CONTINUE WRITE (1,204) GO TO 1 100 FORMAT ( 2I3) 201 FORMAT ( 38H0MATRIX IS ILL-CON A(2,3)= 1.0 A(2,4)= 1.0 A(2,5)= 2.0 A(2,7)=2.0/XOLD(7)**2 A(2,8)=-XOLD(3)-XOLD(4)-2.0*XOLD(5) + 2.0/XOLD(7) A(3,1)= 1.0 A(3,2)=1.0 A(3,5)=1.0 A(3,7)= 1.0/XOLD(7)**2 A(3,8)=-XOLD(1)-XOLD(2)-XOLD(5) + 1.0/XOLD(7) A(4,1)= -28837. A(4,2)=-139009. A(4,3)= -78213. A(4,4)= 18927. A(4,5)= 8427. A(4,6)= -10690./XOLD(7) A(4,7)= (-13492. + 10690.*XOLD(6))/XOLD(7)**2 A(4,8)= 28837.*XOLD(1) + 1390R = 1. DO 18 K=1,N KM1=K-1 PIVOT = 0. DO 11 I=1,N DO 11 J=1,N IF (K.EQ.1) GO TO 9 DO 8 ISCAN = 1,KM1 DO 8 JSCAN = 1,KM1 IF ( I.EQ.IROW(ISCAN)) GO TO 11 IF (J.EQ.JCOL(JSCAN)) GO TO 11 8 CONTINUE 9 IF (DABS(A(I,J)).LE.DABS(PIVOT)) GO TO 11 PIVOT = A(I,J) IROW(K) = I JCOL(K) = J 11 CONTINUE IF (DABS(PIVOT) .GT. EPS) GO TO 13 SIMUL = 0. RETURN 13 IROWK = IROW(K) !>ÿ2ª2«>2‹=2Ã<2¾ÍÏñ ÍÏþ.Êù!Ã!xÚe!yÖHÂ!2¾>2‹=2 *ª|µ*¨´µÂ!*¦}´Â!*¤|·Â!"ª:0þ-´ ÍòmôÕí½Îþæ[_„GG¬Å'p‡Ú!†Ú!Ú!w:PÖ0†Ú!ú!wކg":(2I3)(38H0MATRIX IS ILL-CONDITIONED OR SINGULAR)(10H0ITER = ,I8/10H DETER = ,E18.5/26H XOLD(1)...XOLD(,I2,1H))(24H0SUCCESSFUL CONVERGENCE /10H0ITER = ,I3/26H0 XOLD(1)...XOLD(,I2,1H))(15H NO CONVERGENCE)(5X,'CHEMICAL EQUILIBRIUM CALCULATION')(10X,'PLEASE INPUT NUMBER OF ITERATIONS')(10X,'PLEASE INPUT STARTING VALUES')(8E10.4)ÃQ INTCH = 0 NM1 = N-1 DO 22 I=1, NM1 IP1 = I+1 DO 22 J=IP1,N IF (JORD(J).GE.JORD(I)) GO TO 22 JTEMP = JORD(J) JORD(J)=JORD(I) JORD(I)=JTEMP INTCH = INTCH + 1 22 CONTINUE IF ( INTCH/2*2.NE.INTCH ) DETER = -DETER IF (INDIC.LE.0) GO TO 26 SIMUL = DETER RETURN 26 DO 28 J=1,N DO 27 I=1,N IROWI = IROW(I) JCOLI = JCOL(I) 27 Y(JCOLI) = A(IROWI,J) DO 28 I = 1, PROGRAM EQUIL C SEE CARNAHAN P325 DOUBLE PRECISION XOLD,XINC,A,EPS1,EPS2,DETER DIMENSION XOLD(10) COMMON //A(11,11),XINC(10) DATA EPS1,EPS2 /1.D-10,1.D-5/ N=7 NRC=N+1 WRITE (1,300) 1 WRITE (1,301) READ (1,100) ITMAX WRITE (1,100) ITMAX WRITE (1,305) READ (1,306) (XOLD(I),I=1,N) WRITE (1,306) (XOLD(I),I=1,N) INDIC=1 DO 9 ITER = 1,ITMAX CALL CALCN(XOLD,NRC ) DO 2 I=1,7 WRITE END SUBROUTINE CALCN( XOLD, NRC) DOUBLE PRECISION XOLD,A,X DIMENSION XOLD(10) COMMON //A(11,11),X(10) DATA P / 20. / DO 1 I =1,7 DO 1 J=1,8 1 A(I,J) = 0. C COMPUTE NONZERO ELEMENTS OF DERIVATIVE MATRIX A(1,1) = 0.5 A(1,2)=1.0 A(1,3)=0.5 WRITE (1,300) (XOLD(I),I=1,7) 300 FORMAT (7E10.4) A(1,6)= -1.0/XOLD(7) A(1,7)= XOLD(6)/XOLD(7)**2 A(1,8)=-XOLD(1)/2.-XOLD(2)-XOLD(3)/2. + XOLD(6)/XOLD(7)  A(7,2)= -2.6058*XOLD(4) A(7,3) = XOLD(1) A(7,4) = -2.6058*XOLD(2) A(7,8) = 2.6058*XOLD(4)*XOLD(2)-XOLD(1)*XOLD(3) RETURN END FUNCTION SIMUL(N,EPS,INDIC,NRC) C SEE PAGE 290 OF CARNAHAN REAL*8 A,X,EPS,SIMUL, DETER, PIVOT,Y DIMENSION IROW(10), JCOL(10), JORD(10), Y(10) COMMON //A(11,11),X(10) MAX=N IF (INDIC.GE.0) MAX=N+1 IF (N.LE.50) GO TO 5 WRITE (6,200) SIMUL=0. RETURN 5 DETEÂÿ 22<2¾>2‹yþ.ʯ!:÷Â"yÖ' 2¾=2 >2ÃÉ:0·Â :·Ê8 yþ+ʼ þ-ʼ xÚ± yþZÊH þXÂz ÅÍÏÁþ'Âw ÍK*¨|µ*ª´µÂ!*¤"ª¯2¾<2Ã<2‹ñ 2o!¾6yþIÚ‹ þOÒ‹ 5>2Ãù!«yʸ w+åÅÍÏÁáÒ– þ$Ê– >€2‹Í[B:ÃÉÍòu20Ãß:02P2oñ !Ã6:«æðÂã!24Í‘#¯Íª :PÖ02¬Ío#ÒãÍ`#>€2«ÃãxÚ�":PþEÊ.!þDÊ$!>ÿ2ûÃe!:£·Âê]Íòh>2¾>2‹ÍÏúg"þ-Ê]"þ+Êa":¾þÊ!2o:û·Ê!ÍÏþQÂ!ÍÏþ.Â!> 2‰¯2¾>2‹*ª|µ*¨´µÂ!*¦}´Â!*¤|·ú!"ª:0þ-*ªÌõB"ª:û·Ê± ò´ 2oÍŽBô ÍÏúÎ Ú�">2û:÷Â!<2o:PþNÊ©!>Ís!¯�Í3 Ê "!¯†Í3   "�QYÃÞ1Í2úy1ÃH1|ˆYtà—&wÄz^Pc|þu~r1€�ÍÞ1â9!ÍÁ8Š>€2;¨õ!V!Í�!ñͪ#oŸgÍ#ÁÑÃÀ! Øî”‚©ª}„}™¿†{å(‡ŠqÀ‡n•‡² †­z… ��ƒëͪ#ÕÍì1Í5"áÍ�!ÁÑÃ5"ëͪ#ë~õ#ÍÕ1ñÁÑ=ÈÕÅõåx±Í2"áÍö1åÍÀ!áÚ!Í #ý!Íö1Ê2:;·ÊÞ1�ÒÐ!/<Íq#þÒ2õÍ•#gñåÍr2ñ·!;ò"~ƒ_#~ŠW#~‰OÒY1#4ÊH1.͈2ÃY1¯�G~›_#~šW#~™OÜ]#Û0Í #Ã"Íö1Ê2>€©OÃÀ!Í #Ã2"Íö1Êá1Í2È͇"yÅ+FÅ+FÅ+FÅw`hã|·Ê"gyãÒc":;‰O|g}oxGã-|ÂW"áã}·ÂR"ÑÛ0áElaOÃQ"!;~€G¨xòŸ"Æ€Êx1wÍ•#w+É·áúH1Ãy1Íì1xþ˜{Òá1!;6€Í¢#wgúÅ"z³ÂÄ" >˜�Ír2|Ôk1{õ>˜2;Í›0ñØ/<Éx±Ê2! 2åÍ2y/È!;®~ðÍü"©É#~¸ÀDÍ,:=:!;–2=:ú'+Ã'-/<2=:Í,:=:_! Í>2ñå{Æ0GÍ,ã}Æ0GÍ,ñÉ:ê:þÚ})͘/:<:G!=::;†w€·ú_'Í-&¯2?::<:2:::=:·úx'2?:!::†wÍÈ+õ:=:/·ú¢'*è:"æ:!ÿÿ"è:Í£+!=:4Â’'*æ:"è:Í£+â':ê:þÚ})͘/:=:·ú©&!<:/<†ú©&FÅw!Ö:~õÖw2ä:!;~õ¯w<2å:ÍK'ñ2;ñ2Ö:ñ2<:¯2å:>2ä:õ Í,Ãõ'*â:ë*Ú:DM*;åÕÅÍ|(ÁÑá+|µÂ (";ë"â:Ã….*â:ë*Ú:FåÍ,*â:#"â:*;+";|µá#Â.(Ã….*$:DM!ä:5Êr(*":+}‘|˜Úw(* : ~2;·`i"$:É>ÿÃh(> Ãh(ÍK(Ê…(þ À!ä:4Ã|(:Ù:þIÂ×(:ê:=ÊŸ(=¦(:<:·Êª(ÍÁ8š!í:¯¶Ê»(ÍÁ8ÃÀ(#°(:;·Êp/*ë:|/g}/o#"ë:Ãp/>À2::ê:þÒè(ÍÁ8š!<::>:·Âý(:×:·Âý(:B:w~/<:ó:·Â%-:Ø:·Â%-*$:ëz³Â-* :6 ë"":Í50::2$:2%:·È:ó:·Â=-!„"":ÄÉ-!"$:Ã….!;~·ÊV-¯wÃe-*:+":|·øµÈÃe-:;·Âü,*;|µÊ….+";:B:2<:¯2;2=:2:go"ë:"í:"ï:"ñ::Ö:!ä:w:ó:·Ê©-4*þ:é:ê:G*:ë:þ»-ï:~#»-":Ã¥-:Ø:·Ê++!„"":ɯ2:go"ë:*â:ë*Ú:~#þ Êè-þ-Âÿ-: îÃè-ë"â:2;GÖ0ú!.þ Ò!.*ë:T])))_ÃÝ-*ë:|µÂ,.#xÉ::·Ê=.¯•o>œg"ë:|µxÉ·!ò:~w+ ÂG.ÂA.É!ò:·~w+ÂZ.É!;ÍW.Âe.Éõì:!ë:w#Ây.6 ñÉÍ×-";¢.þ,Ê….þ/Êü,þ)ÊÉ,þ'Êh,þP°.:ë:2;Ã….õ|·òÀ.ÍÁ8!";ñ2Ù:!>/¾ÊÙ.# þ ÂÊ.ÍÁ8€yO!\/:ó:·Êé.!H/ ^#Vë"þ:yþÒ/ë*â:"è:!ÿD¯2.ÑÕ*Á"ÄëÍõB¯õëÍ~^ÁÂ6MÅ~æþÊ�^þÊ�^þ Ú'PþÚ�^Áx·ÂoP<õë*;FORTDATÃ$6 5z5H5>5L35!3: ;_~É!&3: ;‡_^#VÉõ¯2<32=3Í]3·ô¯4æ@~Â94: ;_!36*g9 7|’©3}“ʬ3"?3ë"g9Íi3*à:|µÊÁ3+)ñ7õ|! w#¯w#ÂÊ3ñõÒ�4ÕÍd7Í<ÑÂì3Í<ÊL3Íi3*à:}´Ê4}=æ! ¾Äý5wÂ4WñõÄý5r¯2=3go"à:7õÍ]3ñÑ:<3Ò54öõå: ;_!3ráñöÀwÉå2<3*à:}´Ê•4+)LÍi3! y¾Êf4åõÍý5Í5ñáwáñ7õÀ3! ~<ò™4Í]3æÊ™4*à:+}æ<ò‰4ÑñõÕÊ™4)Íi3! yÃT4áñ~ÉáÃì3Íd7ÍÍ]36€ñ7Ãx3å*A3ë!þ2: ;‡O s#r!€åÍi3Ñr+së6#C3w#·ÂÖ4: ;GÖ ŸÆ1wxþ Úï4¯Æ0#w> #w#G3w#·÷8:O9<2O9þÒi9ñÐÃi9IDF0MPIRFWITEXDOMLDZLGSQIBTLOBDEISBEINOVCNGLGSSNA2IODTBIRCEF ¯2O92P9!f9"g9*+ù`iéÉ~9!q9å*g9é> ÍÕ9> ÍÕ9ÃÉP «'·Ê†VñõͦV:Õ'<†VñÉñÃn1:X·È> ÍeV> ÃeV#>O¸ÒõU> Ã_Võæå!Xþ ÂÂV4~æ²V5> 4áñÃö2þ�9ÅÕåõ_ÍñáÑÁÉå*Ó9~þ Ìõ9#~"Ó9áÉÅÕ 9Í!€9^ë#6 #> ÍÕ9wëÑÁÉ�¶*¡w:aG:¾°ë!öë+w+ëÕ*]ër++ë*për+s+«w+ Â9W:¾<·âLW>2b:ÃþÑÀ*Øër+s*]ë++r+sÉ:ã=ÈþÈ=‚W:ûþÊ}W·À>·ÃüB>}ÍüB>ÍüB>µÍüB>æÍüB>Í4C>´ÃüBõÖúµW!~·ÂµW4ÍQÍ}Qñ*¡"2!0åwþ ÚÊW5Í-M*Í’ áÈ~!¾ÚiY*|µÂÿW:0þ ÊÿW:Úåþ Â%> Íp.wÃú$:=:/<ú %Ê %Íp.=Â%2=::ê:þÊp//Æ Êp/Íp.=Ã.%Ír0:=:·úS%ÊS% õÍ,ñ=ÂG%2=:õ:ê:þÂe%>Íp.=Â^%:ë:GÍ,Íp.Ãe%!ë:;·Žw# Â{%É:ó:·Ê­%*$:DM*":";* : ë*:ÍÌ%å`i"$:á":É*":DM!€";*:ë* : ÍÌ%`i"":ëé%:ê:õå*;+}‘|˜áÒ&ñåÕ:ó:·Âý%*;"":>Í++Ñá* :ÃÌ%>Í++*":";* :ëááÃÌ%w#ñ=ÂÏ%å*:+":|µáÂÌ%É<þÚ5&>G!&:60#åÅÍ€0Á!=:4á:ò:æÆ0wÍ>1Â;&"è:~€þ:Úo&Ö w+Ã_&wë!&:|ºÂ„&}»Â„&!=:4ëþ#"@:|/W}/_*è:"è:É>þ¯2;::ê:þÚ})͘/:<:G:;·ú¶&€þx2::Í-&:;·òÅ&¯2?:ÍÈ+:;·òæ&õ0Í,!::5Ê÷&ñ<ÂÔ&õ:::·ú÷&Ê÷&Í£+Ãç&E:;:·Ê'Ê+>T>Fw> #w#w#w>2ê:Ã8%> Ã%+> Ã%+>O}2 ;þO!±1: ;¾Ò$·Ê$=_^#Vë ^#VëQ+ÕéÚa+È*Þ:|µÂm+ÍÁ8�*Ü:|µÂm+ÍÁ8…ë*¿#ùëé!;ë:w#Â|+É!ë:;Ãz+:;!:w·Ê-:ó:·À>Ã++!::5øÂ´+:æ:·*ú,!è:50ú,*@:F#"@:Ã,!Ö:~�!;–!::–2æ:Êæ+ò,†2::/ò,:;·-Ä,!?:5òü+.Í,ÉÍ£+Ãï+ÍÁ8É Í,!æ:5Â,Ãæ+*":ë*$:{•zœÚ7,#"$:ë* :+p!ä:5ÀÃ;,ÍÁ8áá:å:·À:;·Ê….ÃI-!õ:~4·ÊY,ÍÁ8 *è:"ö:*;"ü:Ã….!ÿ"ä:*â:ë*Ú::ó:·ÊŸ,~þ'Ê�,åÕÍ|(Ñáw#Ã},#~þ'ʃ,ë"â:Ã….~þ'ʶ,GåÍ,*â:#"â:á#ß,ë*â:#"â:ë#~þ'Ê¥,Ã….:õ:=òÝ,!;4!"â:ÃV-2õ:Â….*ü:+"ü:|µÊ….*ö:"â:!õ:4Ã….!:6Ã1ch|·ú$1{_zW}o|gÃ1"í:ë"ë:xÉå!ë:·~w#Â41áÉÍ-1Â@1Éa1ÕÍÁ8ÿÿJ!;qÉx!;·ük1F#~怩OÃÞ1ÀÀ À€4ÀÃL1á¯go";";É:P9·À<2P9!96P#6#"Ó96 :±1=G!3¯w#£12>3¯2€7É 08ƒ7080808O3O3O3O3O3åÍì1ás#r#q#pÃþ1Íö1åÍá1áÉÍþ1ë";ë`i";É*;ë*;DMÉ^#V#N#F#x·Èyà 2:;·È:;Ÿ·7ÀÆÉÍT.Ít+ÍT.Ír%Ít+Íc.Ír%Â&2ÍT.ÍT.ÍT.!=:4É|/G}/O!>õ·ÃY2õå ÒX2ñ7>á{_zW}o|gñ=ÂO2|·g}oÉÖÚ�2CZQÃt2Æ o¯-ÈyOzW{_xGÄ2ë`iN#F#ëq#p#ë=™2É2:"ø:ë"ú:`i":¯2:ÉåÕ::þÒÑ2!ø:‡_Ãå2õ::þ*:Úê2ñÖ‡_~#foõñ::<2:W::ºÑÒý2áÉãáÉ>3Í]3æûwÑá¯wÉ!3~‡Õ{2 ;ü5Ñ{þ Â7É~þ ÒL32 ;ÕÅ̓1Í]3·ô¯4ÁÍi3ëÑ w ·ÊR7#wÂF7: ;‡_!±1O3p+qÉÅÕÍq7ÍÑÁÉ: ;‡_!þ2^#VÉT*Ð7Ó7Ð7Ð7Ð7Ð7‘7:€7·ÊÐ7> Í8Í/8¯2€7É:€7·*�7åÈ> Í8> Ã8*g9¥7|’ÂÈ7}“ÊË7"�7ë"g9ÉÃ$:€7·Ì'8:":·È* :=õ> Í8~þ+Ê 8þ1Âü7> Í8à 8> Í8~þ0 8> Í8ñ#Èõ~#Í8ñ=Ã8åõæ_ÍñáÉ>2€7͸7ÉC8r8@8@8>8>8>8¯ÉÃ$¯2":Íä9æþ ÊG8õ*":&ë* :ñwë"":þ È}þ€ÚG8ÍÁ8¯É:":·È* :=õ> ÍÕ9~þ+Ê©8þ1”8> ÍÕ9é8> ÍÕ9~þ Ê©8þ0©8> ÍÕ9ñ#Èõ~#ÍÕ9ñ=ë8B!Û6*[#á~#å·õO!9 ^#Vë"»8!·86 #6 #6*#6*###6*#6*#6 #6 !·8 Å~ÍÕ9Á#Âå+~¹À+~ºÀ+“ÀááÉLUX)!�€";Ü]#Û0ëͪ#ëÍ#ÁÑÍq#Éëz³ÊQ#z·BüU#|¨G|µÈ|·ëüU#ÅÍ>2ñ·üU#ëÉÍÁ8‰¯O“_yšWÉ!;~/w¯o�G}›_}šW}™OÉͪ#Íá1ÁÑÉ|µÈë|µÈDM!>)ë)ëÒ�# =ˆ#É!;~7w?##wy7O®É*;ãå*;ãéáã";áã";É:õ>ÃÖ#õ>ÃÖ#õ>ÃÖ#õ>2ê:ñͨ2ͼ2~#fo"Ô:ͼ2Ø":*Ô:"::;·Ê$Í…%Ãç#Íe-Ãç#ÍÁ8¯É>þ¯2ó:¯2ô:<2Ø:ÃH$>2ó:Ã7$¯2ó:<Ã7$>þ¯2ó:¯2ô:¯2Ø:~#fo" ;!C:" :ë~#¶+ÂV$!"Ú:!9##"¿#:ô:·Âw$go"Ü:"Þ:"à:Ã¥$!Ü:>Í–2*Ü:~#¶Â�$go"Ü:*Þ:~#¶Â›$go"Þ:*à:~#fo"à:¯2õ:2;2;2;2å:2;:go"â:":̓1*Ú:|µÊÝ$Í×-*â:"ö:þ(Ê0-ÍÁ8ˆ2$:2%:2":2#:<2;:ó:·È>Ã++Ír0ÍK(ú%G:×:·x )!;–2=:͸0:ò:·Êp/!:~�w:=:·Âh)!ë::ê:þÂ9)!ï:~#~Î+w#Â;)ÒM)!:4:ñ:æo:;·Ê^)}ö€o::g"ñ:Ãp/!)åò€0Ã2:ê:=Ê�)=ÊŒ)ÍÁ8š:ë:oŸg"ë:¯go"í:"ï:2ñ:>¸2ò:͘/:=:Í-&:=:2::2?:ÍÈ+ÍÌ*ÃÃ)Í|(þ ÂÃ)>0þ0ÚÔ)þ:ÒÔ)Ö02;·É>ÿ·É¯2<:2>:2×:ÍÌ*þ-Âò)>2;Ã÷)þ+Âú)ÍÌ*·úp/*$:+"$:!ä:4Í“*:;þ.Â"*>2>:2=:Í“*:;·úŒ(þEÊ2*þDÂ7*ÍÌ*þ+ÊF*þ-ÂK*>2:ÍÌ*y2×:*$:+"$:!ä:4Åͳ)Áú|*Oxþ Úq*ÍÁ8> ··€�GÃ\*::·xʆ*/<2=:G!<:~�wÃŒ(͹)ø:ò:æð“*Ít+Í-1Í-1Ír%Í-1:;!;w¯#w¸*Ír%!<::=:†wÓ*Í|(þ ÊÌ*É:Ö:2ä:ÍÌ*ú})þFÊî*þTÂ})>ÿþ¯2ë:Í|(òò*Ãp/!ë:~·"ä:ëéÍ×-Â/ÍÁ8�}2Ö:¯2B:yþ Ú0/:;þ.Â:/Í×-*ë:}2B:*â:+"â:ÃI-ÍÁ8‚XH(AILEFGD:0ý'L,÷$Ø)Õ*Ø)Ø)Ø)Ø)\0&(L,8%r)û*š&@'¨'—&:ê:G*:ë:þ‚/ï:w#‚/":*;|µÊ….ÃI-!ò:~·Ê"0Öx2:¯w:ê:=ÊÁ/=ÊÁ/+>€¦2;>€¶wÃØ/!ì:~·ò0/W+~/_s#r>2;7Ô2͸0!:~�wÈòÙ/Æòô/Í€0ÃÜ/Â0! ;ë:Íz+Í€0ÒÜ/!ë: ;Íz+!=:4¯/ÆGÍA.É+¶ÂØ/2:!ë:w#Â*0!=:4É>Ã++*;ë*$:"$:„y•xœÒ….ÍÁ8 *":"$:Ã….å Í,*;+";|µÂ]0áÃ….:ê:æG:Ö:�2=:É!:>†w!=:5ÍA.Ít+ÍA.Ãr%ajSXÍâ0Êy1JS\E!;–Òy1/€wT]öÿ 6ëÉÍ]3‡òL36€‡ò*5‡üÅ6Íi3Íd7ÕͯÑ! wÉÍ]3æ@Ä5¯É¯Íx3æÏö(w* :åë*":&ë¯úh5w#Ã_5ÑÍÍi3Í·È7É7ŸÍx3æÏö8w* :ëÍÍi3>€2":Í·Èþ?ɯÍx3¯2>3:":·Èå* :ã~æõ~æÏö4wñ:":áõ~þ+Êã5þ1ÂÕ5> Í£6Ãã5þ0> Ì£6ñõ> Ä£6ñ#=Êñ5õ~Í£6Ãã5> Í£6:>3·È7Éõ:=3·Â6åÕÍ]3æÄÎ6Í]32<3Ñá<2=3ñÉ7ŸÍx3æÏö w¯2":2>3Íg6Ú\6þÊe6õ*":&ë* :ñwë"":þ Ê\6}þ€Ú.6ÍÁ8¯É:>3·Èþ?É·É!3: ;_~·ÌŠ6Ø5!þ2/Æ�†_#>ŽW·ÉåÕÍd7Íi3Í2>3·Ñá>€wÈ7Éåõ!3: ;_~·üò64!þ2†_#>ŽWñáɇúÎ6>Í£6!3: ;_~·6ÈõÍq7ño&·úñ66#<Ãæ6+åÕÍd7Íi3Í2·ÂÿW:Q·ÊÿWÍò²*Í’ Ê+X:ÚµÍüB>æÍüB>Í4C>´ÃüBõÖúµW!~·ÂµW4ÍQÍ}Qñ*¡"2!0åwþ ÚÊW5Í-M*Í’ áÈ~!¾ÚiY*|µÂÿW:0þ ÊÿW:Úåååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå   SUBROUTINE EQKON(TX) COMMON /AB2/ T,P,R,XK(8) DIMENSION VAR(6,5) DATA VAR/-7.65, 3.87E-3, 3.43E5, 71959.3, -93.68, 2 -4.8, 2.21E-3, 4.5E5, 53742.2, -66.41, 3 -2.1, 0.6E-3, 5.42E5, 33417.3, -42.264, 4 4.36, -4.93E-3, 3.2E5, 11992.4, 5.42, 5 -1.9, 2.18E-3, 0.7E5, -5095.62, -7.66 6 3.36, -2.62E-3, 5.55E5, -6323.94, 0.551/ T2=ALOG(T) T3=2.*T*T T4=T/2 CR=1.987 DO 10 I=1,6 XK(I)=VAR(I,4)/T + VAR(I,5) -VAR(I,1)*T2 -Våå IF(T.EQ.0) GO TO 1000 ***** 0027' LD DE,T ***** 002A' LD HL,[ 01 00] ***** 002D' LD A,02 ***** 002F' CALL $I1 ***** 0032' CALL $ND ***** 0035' LD HL,T ***** 0038' CALL $L1 ***** 003B' LD HL,0000 ***** 003E' CALL $SA ***** 0041' SUB 01 ***** 0043' SBC A ***** 0044' LD (T:000002),A 7 300 FORMAT (5X,'SILICON EQUILIBRIUM CONSTANTS') ***** 0047' OR A ***** 0048' JP NZ,1000L 8 310 FORMAT (5X,'PLEASE INPUT TEMPERATURE IN KELVIN') 9 320 FORMAT (F7.1) 10 TX=1. 11 P=.001 12  PROGRAM SIKIL COMMON /AB2/ T,P,R,XK(8) WRITE (1,300) 300 FORMAT (5X,'SILICON EQUILIBRIUM CONSTANTS') TX=1. T=1400. P=.001 R= .01 CALL EQKON(TX) DO 10 I=1,6 WRITE (1,301) I, XK(I) 10 CONTINUE 301 FORMAT(5X,I5,E12.4) END SUBROUTINE EQKON(TX) DIMENSION VAR(6,5) COMMON /AB2/ T,P,R,XK(8) DATA VAR/-7.65, -4.8, -2.1, 4.36, -1.9, 3.36, 2 3.87E-3, 2.21E-3, .6E-3,-4.93E-3, 2.18E-3, -2.62E-3, 3ååAR(I,2)*T4 -VAR(I,3)/T3 XK(I)=EXP(XK(I)/CR) 10 CONTINUE XK(7)=R XK(8)=P RETURN END ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååCromemco FORTRAN 1978 v. 03.21 -- Bytes: 24247 Created: 28-Feb-79 1 PROGRAM SIKIL 2 COMMON /AB2/ T,P,R,XK(8) ***** 0000' LD BC,$$L ***** 0003' JP $INIT 3 WRITE (1,300) ***** 0006' LD DE,300L ***** 0009' LD HL,[ 01 00] ***** 000C' CALL $W2 4 5 WRITE (1,310) ***** 000F' CALL $ND ***** 0012' LD DE,310L ***** 0015' LD HL,[ 01 00] ***** 0018' CALL $W2 5 READ (1,320) T ***** 001B' CALL $ND ***** 001E' LD DE,320L ***** 0021' LD HL,[ 01 00] ***** 0024' CALL $R2 6 007E' LD HL,[ 01 00] ***** 0081' CALL $W2 16 10 CONTINUE ***** 0084' LD DE,I ***** 0087' LD HL,[ 01 00] ***** 008A' LD A,02 ***** 008C' CALL $I0 ***** 008F' LD HL,(I) ***** 0092' ADD HL,HL ***** 0093' ADD HL,HL ***** 0094' LD DE,XK-0004 ***** 0097' ADD HL,DE ***** 0098' LD (T:000000),HL ***** 009B' LD HL,(T:000000) ***** 009E' EX DE,HL ***** 009F' LD HL,[ 01 00] ***** 00A2' LD A,02 ***** 00A4' CALL $I1 ***** 00A7' CALL $ND 17 301 FORMAT(5X,I5,E12.4) ***** 00AA' LD HL,(I) ***** 00ADN END ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååAR(I,2)*T4 -VAR(I,3)/T3 XK(I)=EXP(-XK(I)/CR) 10 CONTINUE XK(7)=R XK(8)=P RETURN END åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå SUBROUTINE EQKON(TX) COMMON /AB2/ T,P,R,XK(8) DIMENSION VAR(6,5) DATA VAR/-7.65, 3.87E-3, 3.43E5, 71959.3, -93.68, 2 -4.8, 2.21E-3, 4.5E5, 53742.2, -66.41, 3 -2.1, 0.6E-3, 5.42E5, 33417.3, -42.264, 4 4.36, -4.93E-3, 3.2E5, 11992.4, 5.42, 5 -1.9, 2.18E-3, 0.7E5, -5095.62, -7.66 6 3.36, -2.62E-3, 5.55E5, -6323.94, 0.551/ T2=ALOG(T) T3=2.*T*T T4=T/2 CR=1.987 DO 10 I=1,6 XK(I)=VAR(I,4)/T + VAR(I,5) -VAR(I,1)*T2 -Vå R= .01 13 CALL EQKON(TX) 14 DO 10 I=1,6 ***** 004B' LD HL,[ 00 00 00 81] ***** 004E' CALL $L1 ***** 0051' LD HL,TX ***** 0054' CALL $T1 ***** 0057' LD HL,[ 6E 12 03 77] ***** 005A' CALL $L1 ***** 005D' LD HL,P ***** 0060' CALL $T1 ***** 0063' LD HL,[ 0A D7 23 7A] ***** 0066' CALL $L1 ***** 0069' LD HL,R ***** 006C' CALL $T1 ***** 006F' LD HL,TX ***** 0072' CALL EQKON 15 WRITE (1,301) I, XK(I) ***** 0075' LD HL,0001 ***** 0078' LD (I),HL ***** 007B' LD DE,301L *****  3.43E5, 4.5E5, 5.42E5, 3.2E5,.7E5, 5.55E5, 4 71959.3, 53742.2, 33417.3, 11992.4, -5095.62, -6323.94, 5 -93.68, -66.41, -42.264, -5.42, -7.66, 0.551/ T2=ALOG(T) T3=2.*T*T T4=T/2 CR=1.987 DO 10 I=1,6 XK(I)=VAR(I,4)/T + VAR(I,5) -VAR(I,1)*T2 -VAR(I,2)*T4 -VAR(I,3)/T3 XK(I)=EXP(XK(I)/CR) 10 CONTINUE XK(7)=R XK(8)=P DO 100 I=1,6 WRITE (1,300) (VAR(I,J),J=1,5) 100 CONTINUE 300 FORMAT (5X, 5(E14.7, 5X)) RETUR   PROGRAM SIKIL COMMON /AB2/ T,P,R,XK(8) WRITE (1,300) 5 WRITE (1,310) READ (1,320) T IF(T.EQ.0) GO TO 1000 300 FORMAT (5X,'SILICON EQUILIBRIUM CONSTANTS') 310 FORMAT (5X,'PLEASE INPUT TEMPERATURE IN KELVIN') 320 FORMAT (F7.1) TX=1. P=.001 R= .01 CALL EQKON(TX) DO 10 I=1,6 WRITE (1,301) I, XK(I) 10 CONTINUE 301 FORMAT(5X,I5,E12.4) GO TO 5 1000 CONTINUE END SUBROUTINE EQKON(TX) DIMENSIå‰ÓT #2`‘%XÂ3IÓ‘c/‘A!38‰SÌ£4 ‘A%<Ú32I#2‘AA3‰ÔTŒã¬à‘Q92Љ L£,@‘563ÉUc) ‘93DÉ•c3à ‘MV2¸‰T�Pã0 ‘aQ:’QUS§�‘ÑÌL!dDÄôs ¨ˆt"&'£˜˜3@ a€@ÝRØ-—�ñ�ˆ˜ž�d‰ª³€�ÓÔáDD4õ9¨`t"!§©³@Í`d"($§™FAÀ" ¬d(")¤§Æ@@!"j2là�ÒS bDE4”ãQM%:kˆŠi)ÑÐ0 Hˆ¦’œbÍ 4f€ К3@h! 4z¾©p„fÑÀ¥Ñ�hñzRÀ >a€—“1~Ja£IÇÓZ˜X†]¯èeXNWžNˆ ráîS Þ(BÒB `¢¨&s3S(syMZ;q�Dht‹ÈZ1s—T¨f B¢mÉ(8È$MFMŒ‚bDDc%˜È8$MUŒÍ¢@rÃ¥@ Ð|>NÍåÂ0Z~&§™ËöÉÔr~®È&ZHÆ~˜Ààñ$$}ºÅ vc0˜Q‚Tê¥R¨T€€‚Œ�€BDÔdØÉà$MMFŒƒ€BD38Èx$DSQR2Œ“€RDDôäXÈØ$MAFŒ�BDDÓ(É $DIVFŒ¨2DXÉ€$DPLXŒ™€bDDÄå3(ɰ$SUŒ¦€bDED$cˆÊP$MUŒ£€bDDÄôs(ʘ$ERRŒ¢2D49À�QRSŒaTDÔ”ã¨Xt¢&¤§³@ðš0ÀÈ$ATIŒƒbDDÔ„ÈH$NUœ�QPV `bDDÔ„U5`Æj`¨‰¨+1Ð@ Hˆš‚°‚Íã ›G 6Ž6€hÔ¡` :Í ÐuA@ì�>@+Žì˜Èè$ATRŒ�€bDÕd$xÉ $DAC0Œ”€RD$s(È$ATIŒ‹€BDÔdȈ$SAFŒŠbDD4ôÕ À�‰ÓÓT bDD4ÕU =5BjtĈˆiéªÐ Hˆ†š `Í inʦ@ Ð6'²©¸5V$DTP12�‰ÔTŒà2EC8‘A%<Ê$DPIO6�IÓ‘`RDÕTÄh ‘0Î$DOVF� Œ BDDcH‘ÉA&$DLOG2�‰”Ì BDDÓ(‘MEHÊ$DPI€ÉT 2DÕY 1UQ2kz‹dˆ*±Ý Hˆ¤œ‰{dŠj±Ó°,Hˆœ¤š™Ĉ*¨(ˆ‘Ù€*H‚ˆˆ�yĈŠiÉ‘×p,Hˆ¦�Œ‡Ĉ*¨(ŠqÑP*H‚ª¦§îĈŠIȈ1Ûp*H¦ª„�ždŠjQÚÀ&H¦£‚dˆ*QÙ&H‚£Ä‹*H(qÑ` H𬂤�-„‰¨É±Ó0Hšš�:„‰¨(ÑÔHšŒƒF¤ˆ‰ÈêQÔ� HˆœŽ¤aN¤ˆŠ 1Õ@ Hˆ ��e¤ˆŠ 1Ö° Hˆ  �|„Šj(ÑØ H°¨�“d‰ª±Ý� Hˆ¨ beáĈŠj*FqÓ0H¨géÄˆŠ )æQß Hˆ ’žmù¤ˆ‰éȱÑpHšª˜�-d‰†qÑÐHˆž¬�;„ˆˆÆQÔ°HˆŒiCĈˆÆJ 1Ö°Hˆ˜žŽecĈ‰‰ÊfQÕ0Hˆše[Ĉ¡TDÔÄEi¨¸t"&¦"+F@„€ü8†Å`V dÆ@€)" ’9”d ¡™FB1""¢1¼à�IÒ bDE4…$(‘M!I6DSHRššG@)""šB”t°")¤)!GB1""šB’iÅÊÖ6¨¸…Ê Ç2Ȭ*¡€ :Æ•Õî«!ʃçqXu…H@thB€,:<-„ˆ(fS€€ÉÐà2D4¸ ‘ j$CX€ÉÖ`2D4¨M92DBLE�RQS•!dD$Ä4ôé©àt’!¡ÇB@"\tX’!­GG€"Ätœ’!¬ÇMÀ"Tt�)§#¦GA€""b,tl¤¢$§*3@ f€`"¼BÄ`Vd³hðõ’Í´œ†3hà4€axFV“˜`6‘Y1“€H†‘(„Šª q’°H‚†a5„ŠIÈ‘�H†ƒ „ˆˆ(q�pHŒ‚©%„‰¨É³€�PSRSŒ!TԔ㠨Ht ¦¤§3@hÃ# ‘Q&2‰RSŒ # à‘1Rp� 10 CONTINUE XK(7)=R XK(8)=P RETURN END 00A9" COMMON Length /AB2/002C (44) Labels: 10L 00FE' 100L 0172' 300L 00AB" ubroutines Referenced: $I1 Aåååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå³@ÐÉŒ‚2DåXÈ$MFMœ…‘USŒ dDDã)@ÕhªÍ,ªˆõr¿ 4z¿*ˆ4z·hÍ-*^! 6…€<_TàâðaÒЋÕâ!T¨†3hxf€†H€ãû˜ wdÆT€)" ’9”e’ ªÆE€1""zj„dt’"$«#FO!""‚Ldœ"($§™FH1""¢ r e,"©)F@€!"j2le&« ©#ÆM€"r¬dü’)ªÆF€1" ’ e<- ¡Ç@2" ¢ q”à…QUS TDDè‘Q9P5ª†Ì#¢5>À €BmŒ„>‰˜¦ÁpŒ>¦ `¤êäVº>€EiQ8�c>š“�Ó��’’?*iFc1˜L? Òê¥R©Tª?¿ßï÷ûýþ@3@à:ÈÕgÙ°+4€ Ú”Í 4eW0••Ú@+4€ КkØ4Õðh͵”C@`„fØÐ!uø2  PÌã5 ‘V2ÖiNgð ôz‹€@�Ò®ƒÐ ^iD L££âÅF¼BåÁHíT8@³@ 2f€ üˆi[€ñ!µl€ 4 ÐuUÀÈU¸z³@h!µ›T@4š3@h!£ ÐBY 4f€ˆ4f€š3kð†Í€3@¸"`†Ò0éØ4} 03l Q“c-à ‘5V3( PÌã.@‘A!2¨I“£+ ‘ Ò2´Ic,À ‘9V2Ø Œ£/‘A1b2ö £0€‘A1f3ÉÕc1À‘53"I£6`‘=93<ÉUc4 ‘ME3N‰U�T‘ã5 ‘IÊ3r ÐQ£7€‘i30IU‘£6‘5U12ÒIQ£7à‘=Yp�ÑáDDÄôy¬xt"&'£³@UR€á²\õ€ ÐB3@h!´šh¨6Œj°4€ ÐB3@‰¼.Ÿ3³@Å)©èt’"#&)@pŒŒÍ±²áêü¦@>\$ Åø+Æ@èz³@hÁ<<ãÆH†‘€†«q*š€2c"@‘ Ê2 Tã#‘M!J28‰“‘c$‘ Â2f Pã$à‘9I522T ÐQ§�I RDEŘY 1A1fjx¤ˆŠ ‹ÑP Hˆ ˜²" 4Pmf€ 0üõ¹D4(š8\¬ÐÂ/ë!êåÑ hár³@$Œ—€2D£È $DPHFŒƒ€BE5hÈ€$DPPAŒ‰€RDÕTÄhÈè$MMFŒ‘BDÔdØÉ�$MUŒ›€2DYÀ€ÉU`RDE$äH ‘MV$DNRML�‰UPQ RDDDh‘M!2$DSHFC�‰UPQàRDU58‘I9$SUBF€ÉÔ 2E5 ‘J$AQ�‰T�PàbDÕd$x‘56$MMF� PQ BDÔd‘9J$DNGR0�I`RDE„h‘AA$DPPF� ÔQ BE…Dh ‘'³@:¼d ÎìÐ|z³@hÍ 4€ ЛD€ Äz¢À3B!Žì0š"ã ‘562 PÌã% ‘520I£#`‘A!2<IU‘£$ ‘AA2HIQ£$à‘Ê2TÉUc&‘AA2† T”£(‘52vIT‘Ìç�SÑ!DDÔôI©pt"&§¢5Y …š2€hÍ Õø3@‹ò‹3@hÍ  Œ�BDÔdØÈ0$MVARGŒ„€BE4hÈ`$DPHFŒ‡€RDE„È�$DIVFŒŽ€2DåXÈÈ$DFLRŒ�RDEÉ$MULFŒ“BDÔhÉH$DPPFŒ–RE5T$iÀ�QÒQÓ¡TE4”t鍨t¢)¤£§5Y …�Í ùò¢À c» ©˜tH2 Q“c à‘5YI2 PÌ£"€‘Mp�P”áDD%9¨8t" ¡)…RDE„hÈh$DFLRŒˆRDEɰ$NUŒ‹RDDDhÉx$DF4Œ”€2E5XÈø$SAFŒ“BDDc(Éà$DPLXŒ™2DYÀ€ÉU`2DU( ‘FDBLEXPš¹GG"*¬t’"©GC€"*‹•š8Y 4aÑ`+6�8Y 4€ ÐB2€hʬ@Wà! Uš8Y´Ìâòª` Ðê!  µ€ ÌçÑy¼F" à¬;^>` €ÕÔTœ›}B¾:ì*x :ì*x :çáxðŽ:¦@«sà ¦ˆi"Xe|ÀÙ êÃ�-ÙV¼,CFAOɸꦂ­ØVœCDA@ÀqÕUàB€gฌüÎ Îâ0+ ½´¬`(†­�@˜þoPU»*΂Ÿ^ÈxêÄ‚™ÄV4‡kÂÄ5<Êò·áŒ0u[G¬«€ =e\°Vm$M«8)¼.Ÿ3ˆ®*¼Îo^ AtZ QòàeTÁY·\,uXYµ°uwÁFVÌ elÀÀmfаvfÛ°Gð�…@�‡ÃðÁµDÁŸÃ¦•k V nÉ?Öì•xÊ”Œ©X(Ê ‚³hX;øZ¦ ÃàÊÉ‚°é°!+v; YðƒâÕ•q…b+X:§ £*¯R`�•VP“9¼EqAÄW8EtADWPuB6¬ î:®+vUè  €Hꩃ‘ÅWà#r‚_ÀFú Ý“ðHF°¯ÐHŠö„°ï H꤭ÙU¨B„«ÐK%^2¸¡&sxŠøŠ©�K¬Ul‚'áMü eRp§ðµ…O‚€4`(tœ)Ö"¤C+Ü Gk U€)ü iV¡U *E"�Ȥ¾Xtp(UTB�‹Vk ž#ªj·eWÀ¥zTÞ>' â*Â|Zž àBÜCuÁ�Á󸬰Á@V€ dˆl Px·?Îâ°ë Ì…2BÀAͲÁAV¤ d½B †½€á£¸Œ&a[€¡°�âÉfÑ`¡µ a^§ð±•qŸÂöU;  YT %ü'eZp‡ñA…{‡VÐ(eRAXw)ê|[¼¯øS6Ê„ Šäª(4-ÞTèðÉ‹vtZ°ªØÉ…Yl*ÚÉ2šŠe€0!‡]a a×@ "ƒÅ»êÄ€ÂåóÐ\®} ›Ï�s8‡]@@¬D1’H”q5ÄŠi F†1“à H¦�”¤cŽd‰F1˜ H”g„‰ÊI‘Ôp Hœž¤a„‰ÉêQ‘PH´‚‡„ˆ(fq‘°H¤œ‰8…TÒQ• bE4„£C‘M!)HÆ$SHJR4”MFÀ¢<[Ÿ‚çqu…AÀ,�°›@¬*&ÉŽ‰€bE4„£Cè$SHJR1Žˆ€bE4„¥#HÈ$J1œ…”“‘Õ‘ BDõdh‘=YÂ$RND0� “‘ RE$äC@ÔÀ#F@¬Ð&¿ÉBâÉ<hhÝùHÀÂ3ó™©'°Àã(À0È£t’)¤)GE€)"šB‘Œà…�T‘Õ“ 2DH‘Q&$ATR”MZ€fI8FFºÎ"3€�Ö=aP0Hȱ`4ˆ€xÈd¹Z£ªFþ4©Ø†‹!Ëá`e‡SÀ£ª&þ ¨øjª$˜Uú“eT€uˆ©°%†°Ý™i@Ý�*¯Qð5›eÀÏá[*Ä€?†,*ò>3l¸Ä€�LÛ.~ V$| fÙpˆ��õ?Ù¶\â=aذ+ÕÌ/ƒ€¬Ð(âád�€#,ͦ  ˜Êè$BFŒ¬2D$ÈÊP$CLSFLŒ§bD”ôU%(ð$OPNFLŽ€d� Ô 2DTh ‘$FL� T BBDTè ‘B$FW€ÉÑ BBD“�‘$Ê$IM€ÉŒ`2D£( ‘(Î$J4€ÉQ 2E( ‘A2$PR€ÉàRDTdÄx ‘M$SG€ÉÕà2ED8 ‘QN$DTBFA�I‘ bDED$c‘Q Î$DTBF5�‰‘�àbDED$cˆ‘$DAC0�IT‘Ì BD$x‘IÊ$ARG3€É�`2D£h ‘(Þ$J8�IÓÑ¥2à p¸ \.—K‚€%Á`àÐ px¸D\J.&KŠ%Å â  qX¸´\\./—€KŒÀ%Æ ã` qðºü]‚.—a€K±%Ø ìp vH»,]š.Ï—hK´@%Ú`íP v°»\]°.Ù—mK¶À%Û€íÐ vð»|]À.á—q€K¹@%Üàî� wX»´]Ü.ï—x€K¼€%Þ`ï@ w¨»Ø]ò.ú—~K¿@%ßÀïð p ¸\.�2Dð$A2�€2D8ð0$AD�€2D$hðh$BL�· ŸUT CwÀÆ aƒêª„ ®(F"¿ ì:ª!¢ ç䀆–%„7Œ,2½`ìªJò¨Áa•¼ª@ꆄ-ÀÂÖ%UÞ°Q«Ê�„…ÌÚªÉfÞ v.fÚ�p#$ fÕP� °ª0C’„ ¬¸#¬UdÁ�iSÒqµ]‚b*´ëZ @Ȭà!£ãV½3j@9ÂáRÀE»u_�쫈ñ"Ì~-ÙV`!›]¢«è"¢ "«"w(Bÿ«x@ª»‚:ÅU¨2:» ëvUÞ??„쫞åj³mØ#EÂw„Øvð &#??„ì«„ëZà†Ä ??„ì«êGr³j¨@ªì„ÄW¨!Â#aÝà‡Xª÷ÄWÜ!Ö#??„ì«Èø�C«=yQÀ‘ é@ ûaÙP‘• a\@¡U¢ˆ©Iñjʸ�B«8"¢á":4aÜ@¡ ÑGVØ!n¬�#ªö·aV@‘Ueuž–l*ºV��°�Ö"ªÁ Úè:§�#*ž2’€V€•» uPBVì*ø!BU|%‰B„ е„°î P†ˆŸ–ì«*¯;°í Hª±� ÄVX$ø·|-Y ;H:±š dˆ*q›ÀH‚©„ˆ*‰1’pH‚¨¥XdˆH1œÆH„‹Y dˆHÑ™0ÆH„™– dˆh‘›&H†©J „ˆˆ(q‘ð†Hˆ‡9¤ˆˆièÑ›°–Hˆ‰Ç dˆˆ±•`fHˆ� „ˆ‰*Ñ’ð†Hˆ™dˆŠ˜P Hˆ¨„�.dˆŠÑ›€ÆHˆ¯Œdˆ¨Ñ��ªHŠŒ˜�]dˆ©Ñ˜ðÈHФ¥ dˆÈq’@¦HŒ™t dˆÊ”¶HŒ¯}dˆèÑÐH’ad‰&1ÐÀH’ed‰&q– 8H’ˆ­² d‰)±Ô` H’žŠ¤¥ĉ)é)É1–PÆH”c d‰FQœÐ–H”gd‰F‘›ð¶H”kÓ d‰Fñ�€¶H”qlÄ‰Š©ÊˆQ‘ð¶Hš�³ĉ©H*HñÜÐvHœ‰ „‰ÉêQÔÀHž‰Od‰è±š Hž ©5 dŠQ’ð–H ™' dŠ Q’à¶H §ndŠFQÕàH¤k¦ dŠHqÖ vH¤‹ℊH¨qЀ¨H¤Š‰ê dŠhÑ‘PÆH¦�¢ ÄŠi)†‘Ù0¬H¦�”˜cëÄŠi JF1™0,H¦�”¤i¥ dŠjñ•à¶H¨‡Îdp²Y´àÖ"fHˆdЍè¬UHÀ„ÖIxFV“„daánÈ<°Àè$T1Ž“BDÕ$éÀ$MRM1އ€BDÔØèx$L1Ž˜BDÕ$ØèØ$MAR0އ€BDdHÉ8$ACŒ•€BD3(èÀ$MARŒž€RE4cÀ„ÔÐQ BE4h‘MÂ$SAF1”MD@Ý�:éõ¸Ý€Æ²c À‘ Ê2 PÌã ‘M: IÐQŒ#¡‘MÆp„ÑU BDD•i@Ô¤š3@mf€ Ú³@m °¨ˆ6ƒ€3hà6�€@£&: U£$@‘M!)0Æ2‰R�T‘ã" ‘)I2$‰ÒS #$  ‘p„ÒQ BD”Ei@ÔÐø/#ŸEäð„^«vz¹A-*4ñ�œ'°¹|ô+ŸBæóà\Îñ°¨ˆñn3ŸCæöLt$¢+N„ÔÒ BE4…(‘M!HÂ$SHR1”MIÀ°!µCÀe¢ˆ8à@ `I½^-dCäóÐ|®{—Ïò;‰G@!"šB”›I€ÁAòeE™ PÝ�þÙ*öm5WŒ±ðê©-ÙQUBqŸœÁ©ùÌÏ{ ïÕfp½OÏá[*Ð?†,+$>3kÐ?†àS2°¼^£àS°¼DcÖU®zŸ™µ€ ‡h‡ÀÖm`cà» nÉzޱèÝ…vœ­Vms–, ›F€Xð¢á ±èÅ’7O³i¨™žöÕã*ö2ÇÀ ÚHÚ£ oàÓ*‘½EW˜LuŠ«`eâw ºÄWà ü eQ�3ëùÚ½`LÐ$¯dޱðÝ�þÙ+vH‡ €¬àX_ Ÿ–ìʎ؈w÷ød2/c PÅñøŽ+†–ì—+U›HA´˜f�@,|·h¸GÈ» nÉr½D8LuJÂÀødü·~Zð1 ‡†C(bøŒ|GÞ!' %ú±`càÓ6°ˆp˜ê³…€ðÉùn62¬Ú\ñ7‰€•»ê×�€1ãÑ�ŠÜ­Vm!fÒ`pUš ±ð6�9Ÿgv‹…^wd„@  Ÿ�íSØÊÇ�¿.° D&{ØW4 ’~ÚT$eu€Ú¬VhÍ£@ w¥l`³i0­¢ ;��a¥»*‡‚,!¢  T ß&K¥“ ĈiŠhÉ‘àHЇ¤‰)É*‘à H’žŒ˜�8…VU DU„•H ‘b$EXIT�‰ÓÑ“%@Q` p–€h@”U€#àk4™´,†2c a%R:ÉV# ‘a%R<‰ÓÑ“#"‘QQe=R0ÉS§…PÔRSàbEEE””è‘QQe=R$LNPTR�‰ÔP‘ bDÄ”ä$iB°ÕŠÕr½AÀ"û4 x¸Z,K”U•ÏàS2�ÏÂ,¨ád±Z àPG3@ /€°ÈŒl ��LÚwu´X,™p@ —*` èx$TTYINŽ€bEEE”õHò $LNPTR�bD5Ô$hð$LINBFœ…‘“Ô‘U 2D ‘Ê$A3€ÉQ 2D$h ‘ 2$POS€ÉÒà2ETè‘ Â$AC� PÌ BD38‘ Ò$POS2� P`2D8 ‘ $CD€ÉÕ 2DD8 ‘$DE€É 2DE�‘J$DV€Éà2E$8 ‘$REC3øV§ ÌÚ·}Zð±U®ˆ©ð0†â‚ ·HuCÁŸÂæaFTpeyAY·HuS–ï«–þ"ƒ€ ªâ þ"0«°36…ƒƒ€/á[*ƒ?…¬+ >Œ¬ð+6…ƒƒ€'‘•T aXŠÇƒj(0Ð b³o�+õnÁ‰ç‡ð)µl™¶ô>­Âëpº.�#°ìØ0êÁƒ-Ï «Š / ªÈ1CFA�É»å‚3oÀ+àuvA\ÏÒfÛ0vhͼ@ÌÛbͼ Ãª¾ !¶ 'ux#;�XWÜ›l@D7(uq��ÇvÒfÛ°Gð�•BÁÙ#ªH2²ÀÌÚú·€¯â3*–ƒ¿ŠŒ+x >¿•ã+� Í·`�*bõáb^~[²ª(8ø¨ŽãáŒî#;ˆÎãàÊÙ°ë¸øì€ãàc²��óèÊÁ?‰âuYÁ×Í*Œ·eT`è¾Ã%áYÖKÂ2³¬#dÚ®–Õ d ®Àñjµ€ìÛV �\ âÕ…kÙ¶t ë`Ë­Ò!¾ ÁvŽâ0˜…nÁÙ"n¶€ì;r:¥@"x w[²ªHê�-Øà3µˆo@(Õð¾`㫸«È[6‹ ¯8QôeUBÅTà,V"®l;Í©�h"Á PA$“¤b9¼†SÀKM€h¸5¢àÔ\‹ƒQpk6YA,XEw¶ ´èì�Wð;Îu€‡W¤$Ž* aAÒþ0®XFü†Žâ0˜…pBÄVÐ,UB�‹VUÄ aØ€‘ ” ?-ÙU„1¬xVÀ¥yÜulǬª=ePÁXù¦Œ­øHù¶;°è¸`†Ø…–ï*¸/+ŠÏÂòøLæ#9€#+î7jZðVmPÞ ³ò@îÈyQ€Æ0 åLöü1‡FÃUP0Bm¸[6܃³mø`]¥FÃ4è0#MöäCp‚FŠñ{GfئH­l¢áƒ*>!¨á€`AÜFaV�Á P 2GÀ&j\зXªÁ„†DUø0„R§„ãJâ3kÐX0UD„V1‡qœ a6ª„ «Ð`¬Ehƒ‹Vœ p°î Pêó…¹�äqÕQ H «€c$CXƒÀD1ÜCo ` 6À3m˜8ͰL;bÊ „„ˆ(1–иHHˆ¥•„„ˆ©ÑšxHHŠ¥L„„‰&1“°¸HH’eE„ˆ(fÛH‚ˆ”¤�È„ˆ*HñšPªH‚¤Žg‡A# ‘=Y:IÕ‘Œ#"`‘ Î2  T”££ ‘I9Â:" “‘#$ ‘5J:FI“‘ g„Ö�PàRE¤3‘iP5 p«Ìæñ"1�PH‚‡„ˆ(fQÐ H´‚†a„‹H(s€…’SÒS’U bD”ô”ä™@Ô¸t-ØÁ•€b€Œlˆ€°(tHâ^w�XT€d+Æ@&2‰ÔP‘£$à‘M-J2:‰““ã à‘%=1:‰SÒS’c‘1%9 2&‰”£#‘1U9Q 2V‰Ô‘“'…SS• bDÅTåD)@ÔT‚€Pp…€PÐ D@#! ‘IXÎ:‰S•£"`M-IZ2“•§…PU  RD”C)@Ô,ü#3Ýgá˜ÞëdÇ@)"J ¡”à…“ÑÕ 2EC‘5I$MRM1� PS`2DÑ5I6$MAR0� �U BDÔ)@ÔüÊͤÀ˜Œä#8ˆÎ :pͦVm °à«J­ƒ�íVm!f�@Æ‹ Ô€‚ÌÐ(xÊ¡ ÚL*® Õ£*ê€G®cø„@ ¯˜–èî¹`w‹Õ‰n€ŽJñ–=3›ÄV´nõfÑ ‹Du�WÈìz¹GU,¾p˜däáx½˜vK”e�WHú´eU X¤˜Í¤À`2y_2© •êÍ·@LÛ¬ñp�Ü/»Õ‡O@"dü@Ê…Ð Ùþ l–mC¼¨HÙ‡y^p;òÁ³i08 ͤ �Vh¯hˆA€ÉÝ’Í£@bë«Ù*öm5s3Þƒ¸¨rºÅ@˜ë «Ã¡ÇÕ%;ˆØtp ¢ 3@ m&Y PÝ�7d�ÓìÚjæg½‡qU�lÐ(ÅDE%iÀ…•Q• RDE%c9@Ö‰€T D(p¡À öK WŒ€hæ?¿�Lª.õQP0Ö*/¸MÖ"¤`àk úþ@6¨¸4 +Ù#ªb·d ©Hõê>³@óøVʯ á‹ ²�ŒÚžÃ¯ àS6¯€ŸÂUy Uä| fÖpˆ��õ?ÙµÜâ=a×°Ȉ$IOERRŒ¡€2D$ÈÊ@$BFŒž€BDU%(ÈÀ$TTYINŒÀbEEE”õHè$DRV3œ„ÑT” BDU%)@PÖ8Â~¹Váw©< Õ IxFVuˆ° ‡ �¢1°(F6ÆÂ¡ŒF6ÆÂ¡Ø#„8 bŸ™  #aS`Ð<T ðQ¤€2ìÍ·Èþ?ɯÍB¯2:ì·Èå*êã~æõ~æÏö4wñ:ìáõ~þ+Ê­þ1Ÿ> Ímíþ0> Ìmñõ> Ämñ#=Ê»õ~Ímí> Ím:·È7Éõ:·ÂååÕÍ'æĘÍ'2Ñá<2ñÉ7ŸÍBæÏö w¯2ì2Í1Ú&þÊ/õ*ì&ë*êñwë"ìþ Ê&}þ€ÚøÍ‹¯É:·Èþ?É·É!Ý:Ó_~·ÌTØ5!È/Æ�†_#>ŽW·ÉåÕÍ.Í3Í2·Ñá>€wÈ7Éåõ!Ý:Ó_~·ü¼4!Ȇ_#>ŽWñáɇú˜>Ím!Ý:Ó_~·6ÈõÍ;ño&·ú»6#<ð+åÕÍ.Í3Í2Í'æûwÑá¯wÉ!ç~‡Õ{2ÓüãÑ{þ ÂÚÉ~þ Ò2ÓÕÅÍMÍåRN END ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååVAR/-7.65, -4.8, -2.1, 4.36, -1.9, 3.36, 2 3.87E-3, 2.21E-3, .6E-3,-4.93E-3, 2.18E-3, -2.62E-3, 3 3.43E5, 4.5E5, 5.42E5, 3.2E5,.7E5, 5.55E5, 4 71959.3, 53742.2, 33417.3, 11992.4, -5095.62, -6323.94, 5 -93.68, -66.41, -42.264, +5.42, -7.66, 0.551/ T2=ALOG(T) T3=2.*T*T T4=T/2 CR=1.987 DO 10 I=1,6 XK(I)=VAR(I,4)/T + VAR(I,5) -VAR(I,1)*T2 -VAR(I,2)*T4 -VAR(I,3)/T3 XK(I)=EXP(XK(I)/CR) 10 CONTINUE XK(7)=R XK(8)=P RETååEINOVCNGLGSSNA2IODTBIRCEFAs¯22!0"1*+ù`iéÉH!;å*1é> ÍŸ> ÍŸÃÉP this StatemenôMissing Do TerminatioîCode Output in BLOCK DATÁUndefined Labels HavKÅÕåõ_ÍñáÑÁÉå*�~þ Ì¿#~"�áÉÅÕ IÍ!J^ë#6 #> ÍŸwëÑÁÉand UsagåFunction with no ParameteòHexConstant Overflo÷Division by ZerïØArray Name ExpecteäIllegal Argument to ENCODE/DECODÅÍcVÅå:°'·Âˆ;|Íc;}Íc;áÁÉÅG:°'·ÂŸ;xÍz;xÍz;ÁÉæÆ0þ:ÚeVÆÃeV¯Ã“;¯)�)�)�Íz; ÂŽ;áÁÉå¯`Ñ;å*ÔþåÍO;>'ÍeVáÉå*›þåÍO;>"ò;åÅÕ<>·õëN#F#ë¯å;|Íc;}Íc;áÁÉÅG:°'·ÂŸ;xAR/-7.65, -4.8, -2.1, 4.36, -1.9, 3.36, 2 3.87E-3, 2.21E-3, .6E-3,-4.93E-3, 2.18E-3, -2.62E-3, 3 3.43E5, 4.5E5, 5.42E5, 3.2E5,.7E5, 5.55E5, 4 71959.3, 53742.2, 33417.3, 11992.4, -5095.62, -6323.94, 5 -93.68, -66.41, -42.264, +5.42, -7.66, 0.551/ T2=ALOG(T) T3=2.*T*T T4=T/2 CR=1.987 DO 10 I=1,6 XK(I)=VAR(I,4)/T + VAR(I,5) -VAR(I,1)*T2 -VAR(I,2)*T4 -VAR(I,3)/T3 XK(I)=EXP(XK(I)/CR) 10 CONTINUE XK(7)=R XK(8)=P RETU PROGRAM SIKIL COMMON /AB2/ T,P,R,XK(8) CALL OPEN (7,SILICON1DAT,0) T=1000. DT=20. TX=1. P=.001 R= .01 DO 30 FOR I=1,26 CALL EQKON(TX) DO 10 I=1,6 WRITE (1,301) I, XK(I) WRITE (7,302) T,I,XK(I) 10 CONTINUE T=T+DT 30 CONTINUE 301 FORMAT(5X,I5,E12.4) 302 FORMAT (F7.1,I2,E12.4) ENDFILE 7 END SUBROUTINE EQKON(TX) DIMENSION VAR(6,5) COMMON /AB2/ T,P,R,XK(8) DATA åå'·ôyÁÍ3ëÑ w ·Ê#wÂ:Ó‡_!{p+qÉÅÕÍ;ÍÑÁÉ:Ó‡_!È^#VÉreš�šššš[:J·Êš> ÍäÍù¯2JÉ:J·*KåÈ> Íä> Ãä*1o|’Â’}“Ê•"Kë"1ÉÃÑ:J·Ìñ:ì·È*ê=õ> Íä~þ+ÊÖþ1ÂÆ> ÍäÃÖ> Íä~þ0ÂÖ> Íäñ#Èõ~#Íäñ=ÃØåõæ_ÍñáÉ>2JÍ‚É <  ¯ÉÃѯ2ìÍ®æþ Êõ*ì&ë*êñwë"ìþ È}þ€ÚÍ‹¯É:ì·È*ê=õ> ÍŸ~þ+Êsþ1Â^> ÍŸÃs> ÍŸ~þ Êsþ0Âs> ÍŸñ#Èõ~#ÍŸñ=ÃuNot Alloweá~#å·õO!Ý ^#Vë"…!�6 #6 #6*#6*###6*#6*#6 #6 !� Å~ÍŸÁ#ÂÁ:<2þÒ3ñÐÃ3IDF0MPIRFWITEXDOMLDZLGSQIBTLOBDEISB PROGRAM SIKIL COMMON /AB2/ T,P,R,XK(8) CALL OPEN(7,SILICON1DAT,0) T=1000. DT=20. TX=1. P=.001 R= .01 DO 30 FOR I=1,26 CALL EQKON(TX) DO 10 I=1,6 WRITE (1,301) I, XK(I) WRITE (7,302) T,I,XK(I) 10 CONTINUE T=T+DT 30 CONTINUE 301 FORMAT(5X,I5,E12.4) 302 FORMAT (F7.1,I2,E12.4) ENDFILE 7 END SUBROUTINE EQKON(TX) DIMENSION VAR(6,5) COMMON /AB2/ T,P,R,XK(8) DATA VåURN END ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå åååååååååååååååå åååååååååååååååå åååååååååååååååå åååååååååååååååå åååååååååååååååå åååååååååååååååå åååååååååååååååå åååååååååååååååå åååååååååååååååå åååååååååååååååå åååååååååååååååå åååååååååååååååå åååååååååååååååå åååååååååååååååå åååååååååååååååå åååååååååååååååå  åååååååååååååååå! åååååååååååååååå" åååååååååååååååå# åååååååååååååååå$ åååååååååååååååå% åååååååååååååååå& åååååååååååååååå' åååååååååååååååå( åååååååååååååååå) åååååååååååååååå* åååååååååååååååå+ åååååååååååååååå, åååååååååååååååå- åååååååååååååååå. åååååååååååååååå/ åååååååååååååååå0 åååååååååååååååå1 åååååååååååååååå2 åååååååååååååååå3 åååååååååååååååå4 åååååååååååååååå5 åååååååååååååååå6 åååååååååååååååå7 åååååååååååååååå8 åååååååååååååååå9 åååååååååååååååå: åååååååååååååååå; åååååååååååååååå< åååååååååååååååå= åååååååååååååååå> åååååååååååååååå? åååååååååååååååå@ ååååååååååååååååA ååååååååååååååååB ååååååååååååååååC ååååååååååååååååD ååååååååååååååååE ååååååååååååååååF ååååååååååååååååG ååååååååååååååååH ååååååååååååååååI ååååååååååååååååJ ååååååååååååååååK ååååååååååååååååL åååååååååååååååå