github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-01-13 15:17:03 +00:00
Code Issues Releases Wiki Activity
retro-software.B5500-software/PASCAL-Heriot-Watt/HMSS2.TEST.lst

686 lines
37 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

LABEL 000000000LINES 00186226?RUN PASCAL/DISK PASCAL /DISK
PASCAL(2.3)/B-5700 14/08/86 17:57 PAGE 1
00001=> (*$L+,C-,A+*)
00002=> PROGRAM HMSS2 (OUTPUT);
00003=> (*----------------------------------------------------------------------
00004=> CHE 342
00005=> CHIMNEY TEMPERATURE PROFILE PROBLEM
00006=> VERSION 1 1 MAY 1969 P. KIMPEL
00007=> -----------------------------------------------------------------------
00008=> MODIFICATION LOG.
00009=> 92/04/01 P.KIMPEL
00010=> CONVERT FROM SDS-9300 FORTRAN TO MS-DOS PASCAL VER 3.32.
00011=> 92/11/15 P.KIMPEL
00012=> ADD TNEW ARRAY TO HOLD INTERMEDIATE RESULTS DURING CALCULATIONS.
00013=> 2016-07-02 P.KIMPEL
00014=> CONVERT TO HERIOT-WATT PASCAL FOR THE BURROUGHS B5500.
00015=> ---------------------------------------------------------------------*)
00016=>
00017=> CONST
00018=> TAIR= 20.0;
00019=> TWALL= 350.0;
00020=> H= 2.0;
00021=> DELTAX= 0.02;
00022=> K= 0.6;
00023=> EPSILON= 0.5;
00024=> XMAX= 50;
00025=> YMAX= 100;
00026=> FLUEXMIN= 25;
00027=> FLUEXMAX= 50;
00028=> FLUEYMIN= 25;
00029=> FLUEYMAX= 75;
00030=>
00031=> VAR
00032=> I: INTEGER;
00033=> J: INTEGER;
00034=> T: ARRAY [0..XMAX, 0..YMAX] OF REAL;
00035=> TNEW: ARRAY [0..XMAX, 0..YMAX] OF REAL;
00036=> CODE: PACKED ARRAY [0..27] OF CHAR;
00037=> PASS: INTEGER;
00038=> RMAX: REAL;
00039=> XNU: REAL;
00040=> XNUTAIR: REAL;
00041=> ET: REAL;
00042=>
00043=> (*--------------------------------------------------------------------*)
00044=> PROCEDURE RESIDUAL (I, J: INTEGER; TCELL: REAL);
00045=> VAR
00046=> R: REAL;
00047=>
00048=> BEGIN (*RESIDUAL*) B1
00049=> R:= ABS (TCELL - T[I,J]);
00050=> IF R > RMAX THEN
00051=> RMAX:= R;
00052=>
00053=> TNEW[I,J]:= TCELL;
00054=> END (*RESIDUAL*); E1
00055=>
00056=> (*--------------------------------------------------------------------*)
PASCAL(2.3)/B-5700 14/08/86 17:57 PAGE 2
00057=> BEGIN (*HMSS*) B2
00058=> ET:= TIME;
00059=>
00060=> PASS:= 0;
00061=> FOR I:= 0 TO 27 DO
00062=> CODE[I]:= " ";
00063=> FOR I:= 1 TO 9 DO
00064=> CODE[I*2-1]:= CHR (ORD ("A") + I-1);
00065=> FOR I:= 10 TO 14 DO
00066=> CODE[I*2-1]:= CHR (ORD ("J") + I-10);
00067=>
00068=> (*INITIAL CONDITIONS -- LINEAR PROFILE*)
00069=> FOR I:= 0 TO FLUEXMIN DO
00070=> FOR J:= 0 TO YMAX DO
00071=> TNEW[I,J]:= (TWALL - TAIR) * I/XMAX + TAIR;
00072=>
00073=> FOR J:= FLUEYMIN TO FLUEYMAX DO
00074=> TNEW[FLUEXMIN,J]:= TWALL;
00075=>
00076=> FOR I:= FLUEXMIN TO FLUEXMAX DO
00077=> BEGIN B3
00078=> TNEW[I,FLUEYMIN]:= TWALL;
00079=> TNEW[I,FLUEYMAX]:= TWALL;
00080=> FOR J:= 0 TO FLUEYMIN DO
00081=> TNEW[I,J]:= (TWALL - TAIR) * I/XMAX + TAIR;
00082=> FOR J:= FLUEYMIN+1 TO FLUEYMAX-1 DO
00083=> TNEW[I,J]:= TWALL + 20.0;
00084=> FOR J:= FLUEYMAX TO YMAX DO
00085=> TNEW[I,J]:= (TWALL - TAIR) * I/XMAX + TAIR;
00086=> END (*FOR I*); E3
00087=>
00088=> XNU:= H * DELTAX / K;
00089=> XNUTAIR:= XNU * TAIR;
00090=>
00091=> REPEAT R1
00092=> PASS:= PASS+1;
00093=> WRITE (" PASS", PASS:5, ": ");
00094=> RMAX:= 0.0;
00095=>
00096=> (*MOVE TNEW[*,*] VALUES TO T[*,*]*)
00097=> FOR I:= 0 TO XMAX DO
00098=> FOR J:= 0 TO YMAX DO
00099=> T[I,J]:= TNEW[I,J];
00100=>
00101=> FOR I:= 1 TO XMAX-1 DO
00102=> BEGIN B4
00103=> FOR J:= 1 TO YMAX-1 DO
00104=> BEGIN B5
00105=> IF (I < FLUEXMIN) OR (J < FLUEYMIN) OR (J > FLUEYMAX) THEN
00106=> RESIDUAL (I, J,
00107=> 0.25 * (T[I+1,J] + T[I-1,J] + T[I,J+1] + T[I,J-1]));
00108=> END (*FOR J*); E5
00109=>
00110=> (*FREE BOUNDARY AT Y=0: AIR*)
00111=> RESIDUAL (I, 0,
00112=> (XNUTAIR + 0.5 * (2.0 * T[I,1] + T[I+1,0] + T[I-1,0])) /
PASCAL(2.3)/B-5700 14/08/86 17:57 PAGE 3
00113=> (XNU + 2.0));
00114=>
00115=> (*INSULATED BOUNDARY AT Y=YMAX: HOUSE WALL*)
00116=> RESIDUAL (I, YMAX,
00117=> 0.25 * (T[I+1,YMAX] + T[I-1,YMAX] + 2.0 * T[I,YMAX-1]));
00118=> END (*FOR I*); E4
00119=>
00120=> FOR J:= 1 TO YMAX-1 DO
00121=> BEGIN B6
00122=> (*FREE BOUNDARY AT X=0*)
00123=> RESIDUAL (0, J,
00124=> (XNUTAIR + 0.5 * (2.0 * T[1,J] + T[0,J+1] + T[0,J-1])) /
00125=> (XNU + 2.0));
00126=>
00127=> (*SYMMETRY BOUNDARY AT X=XMAX (DT/DX=0: ERGO, INSULATED)*)
00128=> IF (J < FLUEYMIN) OR (J > FLUEYMAX) THEN
00129=> RESIDUAL (XMAX, J, 0.25 * (T[XMAX,J+1] + T[XMAX,J-1] +
00130=> 2.0 * T[XMAX-1,J]));
00131=> END (*FOR J*); E6
00132=>
00133=> (*CORNER BOUNDARY AT X=XMAX, Y=YMAX*)
00134=> RESIDUAL (XMAX, YMAX, 0.50 * (T[XMAX-1,YMAX] + T[XMAX,YMAX-1]));
00135=>
00136=> (*CORNER BOUNDARY AT X=0, Y=YMAX*)
00137=> RESIDUAL (0, YMAX, (XNUTAIR - T[0,YMAX-1] + T[1,YMAX]) / XNU);
00138=>
00139=> (*CORNER BOUNARY AT X=XMAX, Y=0*)
00140=> RESIDUAL (XMAX, 0, (XNUTAIR - T[XMAX-1,0] + T[XMAX,1]) / XNU);
00141=>
00142=> (*CORNER BOUNDARY AT X=0, Y=0*)
00143=> RESIDUAL (0, 0,
00144=> (2.0 * XNUTAIR + T[1,0] + T[0,1]) / 2.0 / (XNU + 1.0));
00145=>
00146=> WRITELN ("RMAX = ", RMAX:8:4);
00147=> UNTIL RMAX <= EPSILON; U1
00148=>
00149=> WRITELN;
00150=> WRITELN (" FINAL RMAX = ", RMAX);
00151=> WRITELN;
00152=> WRITELN (" TIMES: ET=", (TIME-ET):8:2, ", PT=", ELAPSED:8:2,
00153=> ", IO=", IOTIME:8:2);
00154=> WRITELN;
00155=> WRITELN (" TEMPERATURE PROFILE");
00156=> WRITELN (" KEY A = 21- 40");
00157=> WRITELN (" B = 61- 80");
00158=> WRITELN (" C = 101-120");
00159=> WRITELN (" D = 141-160");
00160=> WRITELN (" E = 181-200");
00161=> WRITELN (" F = 221-240");
00162=> WRITELN (" G = 261-280");
00163=> WRITELN (" H = 301-320");
00164=> WRITELN (" I = 341-360");
00165=> WRITELN;
00166=>
00167=> FOR J:= 0 TO YMAX DO
00168=> BEGIN B7
PASCAL(2.3)/B-5700 14/08/86 17:57 PAGE 4
00169=> WRITE (J:4, " ");
00170=> FOR I:= 0 TO XMAX DO
00171=> WRITE (CODE[TRUNC(T[I,J]/20)]);
00172=> (* REFLECT SYMMETRY OF RIGHT HALF OF CHIMNEY *)
00173=> FOR I:= XMAX-1 DOWNTO 0 DO
00174=> WRITE (CODE[TRUNC(T[I,J]/20)]);
00175=>
00176=> WRITELN;
00177=> END (*FOR J*); E7
00178=>
00179=> WRITELN;
00180=> WRITELN (" TIMES: ET=", (TIME-ET):8:2, ", PT=", ELAPSED:8:2,
00181=> ", IO=", IOTIME:8:2);
00182=> END (*HMSS*). E2
NO ERRORS DETECTED.
LABEL 000000000LINES 00186226?RUN PASCAL/DISK PASCAL /DISK
LABEL 000000000LINE 00186226?RUN OBJECT/LISTER;COMMON=1;FILE DISK=0000000/LINE SERIAL;END~ OBJECT /LISTER
BURROUGHS B-5700 XALGOL COMPILER MARK XV.3.00 THURSDAY, 08/14/86, 5:58 PM.
HMSS2 /0000000
===============
REAL V01025,V01033;ARRAY V01051[0:050,0:100],V01980[0:050,0:100],V01142 00000044 C 0312
[0:027];REAL V01479,V01290,V01384,V01833,V01398;PROCEDU V01794(V02025, 00000044 C 0316
V02033,V02931);VALUE V02025,V02033,V02931;REAL V02025,V02033,V02931; 00000045 C 0317
BEGIN REAL V02041;INTEGER T01,T02,T03,T04,T05;BEGIN V02041 := ABS ( 00000049 C 0317
START OF SEGMENT ********** 12
V02931 -V01051 [V02025 ,V02033 ]);IF V02041 >V01290 THEN V01290 := 00000051 C 0000
V02041 ;V01980 [V02025 ,V02033 ]:=V02931 ;; END END ;INTEGER T01,T02, 00000057 C 0003
12 IS 11 LONG, NEXT SEG 2
T03,T04,T05;INIT(FALSE);BEGIN V01398 :=(TIME( 1)/60) ;V01479 :=0;BEGIN 00000061 C 0317
V01025~0;T01~027;FOR V01025~V01025 UPTO T01 DO V01142 [V01025 ]:=048 00000062 C 0321
END ;BEGIN V01025~1;T01~9;FOR V01025~V01025 UPTO T01 DO V01142 [ 00000064 C 0324
V01025 |2-1]:=CHECK( (017)+V01025 -1,0,063,064) END ;BEGIN V01025~010; 00000065 C 0330
T01~014;FOR V01025~V01025 UPTO T01 DO V01142 [V01025 |2-1]:=CHECK( (033 00000066 C 0337
)+V01025 -010,0,063,066) END ;BEGIN V01025~0;T01~025;FOR V01025~V01025 00000070 C 0340
UPTO T01 DO BEGIN V01033~0;T02~100;FOR V01033~V01033 UPTO T02 DO 00000071 C 0347
V01980 [V01025 ,V01033 ]:=(3500000.000000@-04-2000000.000000@-05)| 00000071 C 0351
V01025 /050+2000000.000000@-05 END END ;BEGIN V01033~025;T01~075;FOR 00000074 C 0353
V01033~V01033 UPTO T01 DO V01980 [025,V01033 ]:=3500000.000000@-04 END 00000074 C 0361
;BEGIN V01025~025;T01~050;FOR V01025~V01025 UPTO T01 DO BEGIN V01980 [ 00000078 C 0368
V01025 ,025]:=3500000.000000@-04;V01980 [V01025 ,075]:= 00000079 C 0372
3500000.000000@-04;BEGIN V01033~0;T02~025;FOR V01033~V01033 UPTO T02 00000081 C 0375
DO V01980 [V01025 ,V01033 ]:=(3500000.000000@-04- 00000081 C 0377
2000000.000000@-05)|V01025 /050+2000000.000000@-05 END ;BEGIN V01033~ 00000082 C 0381
025+1;T02~075-1;FOR V01033~V01033 UPTO T02 DO V01980 [V01025 ,V01033 ] 00000083 C 0386
:=3500000.000000@-04+2000000.000000@-05 END ;BEGIN V01033~075;T02~100; 00000085 C 0393
FOR V01033~V01033 UPTO T02 DO V01980 [V01025 ,V01033 ]:=( 00000085 C 0398
3500000.000000@-04-2000000.000000@-05)|V01025 /050+ 00000085 C 0402
2000000.000000@-05 END ;; END END ;V01384 :=2000000.000000@-06| 00000088 C 0404
2000000.000003@-08/6000000.000000@-07;V01833 :=V01384 | 00000089 C 0409
2000000.000000@-05;DO BEGIN V01479 :=V01479 +1; BEGIN PWRITE(F00742, 00000093 C 0411
V00742,I00742," PASS ",5,5,-1,093);PWRITE(F00742,V00742,I00742,V01479 00000093 C 0415
,1,5,-1,093);PWRITE(F00742,V00742,I00742,": ",5,2,-1,093);END ; 00000094 C 0419
V01290 :=0;BEGIN V01025~0;T01~050;FOR V01025~V01025 UPTO T01 DO BEGIN 00000098 C 0424
V01033~0;T02~100;FOR V01033~V01033 UPTO T02 DO V01051 [V01025 ,V01033 ] 00000099 C 0435
:=V01980 [V01025 ,V01033 ] END END ;BEGIN V01025~1;T01~050-1;FOR 00000102 C 0439
V01025~V01025 UPTO T01 DO BEGIN BEGIN V01033~1;T02~100-1;FOR V01033~ 00000104 C 0447
V01033 UPTO T02 DO BEGIN IF (V01025 <025) OR (V01033 <025) OR ( 00000105 C 0451
V01033 >075) THEN V01794 (V01025 ,V01033 ,2500000.000000@-07|(V01051 [ 00000107 C 0453
V01025 +1,V01033 ]+V01051 [V01025 -1,V01033 ]+V01051 [V01025 ,V01033 +1 00000107 C 0456
]+V01051 [V01025 ,V01033 -1]));; END END ;V01794 (V01025 ,0,(V01833 + 00000113 C 0461
5000000.000000@-07|(2000000.000000@-06|V01051 [V01025 ,1]+V01051 [ 00000113 C 0467
V01025 +1,0]+V01051 [V01025 -1,0]))/(V01384 +2000000.000000@-06)); 00000117 C 0469
V01794 (V01025 ,100,2500000.000000@-07|(V01051 [V01025 +1,100]+V01051 [ 00000117 C 0475
V01025 -1,100]+2000000.000000@-06|V01051 [V01025 ,100-1]));; END END ; 00000120 C 0478
BEGIN V01033~1;T01~100-1;FOR V01033~V01033 UPTO T01 DO BEGIN V01794 (0, 00000125 C 0485
V01033 ,(V01833 +5000000.000000@-07|(2000000.000000@-06|V01051 [1, 00000125 C 0492
V01033 ]+V01051 [0,V01033 +1]+V01051 [0,V01033 -1]))/(V01384 + 00000125 C 0494
2000000.000000@-06));IF (V01033 <025) OR (V01033 >075) THEN V01794 ( 00000130 C 0499
050,V01033 ,2500000.000000@-07|(V01051 [050,V01033 +1]+V01051 [050, 00000130 C 0503
V01033 -1]+2000000.000000@-06|V01051 [050-1,V01033 ]));; END END ; 00000134 C 0506
V01794 (050,100,5000000.000000@-07|(V01051 [050-1,100]+V01051 [050,100- 00000134 C 0513
1]));V01794 (0,100,(V01833 -V01051 [0,100-1]+V01051 [1,100])/V01384 ); 00000140 C 0516
V01794 (050,0,(V01833 -V01051 [050-1,0]+V01051 [050,1])/V01384 ); 00000144 C 0523
V01794 (0,0,(2000000.000000@-06|V01833 +V01051 [1,0]+V01051 [0,1])/ 00000144 C 0528
2000000.000000@-06/(V01384 +1000000.000000@-06)); BEGIN PWRITE(F00742, 00000146 C 0533
V00742,I00742,"RMAX = ",5,7,-1,146);PWRITE(F00742,V00742,I00742,V01290 00000146 C 0535
,2,8,4,146);WLINE(F00742,V00742,I00742)END ;; END UNTIL V01290 { 00000147 C 0540
5000000.000000@-07; BEGIN WLINE(F00742,V00742,I00742)END ; BEGIN WALFA( 00000150 C 0544
F00742,V00742,I00742," FINAL ","RMAX = ",0,0,0,0,0,0,0,0,0,0,014,150); 00000150 C 0547
PWRITE(F00742,V00742,I00742,V01290 ,2,016,-1,150);WLINE(F00742,V00742, 00000150 C 0552
I00742)END ; BEGIN WLINE(F00742,V00742,I00742)END ; BEGIN WALFA(F00742, 00000152 C 0557
V00742,I00742," TIMES:"," ET= = ",0,0,0,0,0,0,0,0,0,0,011,152);PWRITE( 00000152 C 0560
F00742,V00742,I00742,((TIME( 1)/60) -V01398 ),2,8,2,152);PWRITE(F00742, 00000152 C 0565
V00742,I00742,", PT= ",5,5,-1,152);PWRITE(F00742,V00742,I00742,(TIME( 00000152 C 0571
2)/60) ,2,8,2,152);PWRITE(F00742,V00742,I00742,", IO= ",5,5,-1,153); 00000153 C 0575
PWRITE(F00742,V00742,I00742,(TIME( 3)/60) ,2,8,2,153);WLINE(F00742, 00000153 C 0581
V00742,I00742)END ; BEGIN WLINE(F00742,V00742,I00742)END ; BEGIN WALFA( 00000155 C 0586
F00742,V00742,I00742," TEMPER","ATURE P","ROFILE0",0,0,0,0,0,0,0,0,0, 00000155 C 0590
020,155);WLINE(F00742,V00742,I00742)END ; BEGIN WALFA(F00742,V00742, 00000156 C 0594
I00742," KEY ","A = 21","- 40LE0",0,0,0,0,0,0,0,0,0,018,156);WLINE( 00000156 C 0612
F00742,V00742,I00742)END ; BEGIN WALFA(F00742,V00742,I00742," ", 00000157 C 0616
"B = 61","- 80LE0",0,0,0,0,0,0,0,0,0,018,157);WLINE(F00742,V00742, 00000157 C 0620
I00742)END ; BEGIN WALFA(F00742,V00742,I00742," ","C = 101", 00000158 C 0625
"-120LE0",0,0,0,0,0,0,0,0,0,018,158);WLINE(F00742,V00742,I00742)END ; 00000159 C 0628
BEGIN WALFA(F00742,V00742,I00742," ","D = 141","-160LE0",0,0,0, 00000159 C 0633
0,0,0,0,0,0,018,159);WLINE(F00742,V00742,I00742)END ; BEGIN WALFA( 00000160 C 0636
F00742,V00742,I00742," ","E = 181","-200LE0",0,0,0,0,0,0,0,0,0, 00000160 C 0641
018,160);WLINE(F00742,V00742,I00742)END ; BEGIN WALFA(F00742,V00742, 00000161 C 0645
I00742," ","F = 221","-240LE0",0,0,0,0,0,0,0,0,0,018,161);WLINE( 00000161 C 0650
F00742,V00742,I00742)END ; BEGIN WALFA(F00742,V00742,I00742," ", 00000162 C 0654
"G = 261","-280LE0",0,0,0,0,0,0,0,0,0,018,162);WLINE(F00742,V00742, 00000162 C 0658
I00742)END ; BEGIN WALFA(F00742,V00742,I00742," ","H = 301", 00000163 C 0663
"-320LE0",0,0,0,0,0,0,0,0,0,018,163);WLINE(F00742,V00742,I00742)END ; 00000164 C 0665
BEGIN WALFA(F00742,V00742,I00742," ","I = 341","-360LE0",0,0,0, 00000164 C 0671
0,0,0,0,0,0,018,164);WLINE(F00742,V00742,I00742)END ; BEGIN WLINE( 00000165 C 0674
F00742,V00742,I00742)END ;BEGIN V01033~0;T01~100;FOR V01033~V01033 00000168 C 0678
UPTO T01 DO BEGIN BEGIN PWRITE(F00742,V00742,I00742,V01033 ,1,4,-1,169 00000169 C 0682
);PWRITE(F00742,V00742,I00742,048,4,1,-1,169);END ;BEGIN V01025~0;T02~ 00000170 C 0706
050;FOR V01025~V01025 UPTO T02 DO BEGIN PWRITE(F00742,V00742,I00742, 00000171 C 0710
V01142 [ TRUNC (V01051 [V01025 ,V01033 ]/020,171)],4,1,-1,171);END 00000171 C 0714
END ;BEGIN V01025~050-1;T02~0;FOR V01025~V01025 DOWNTO T02 DO BEGIN 00000174 C 0719
PWRITE(F00742,V00742,I00742,V01142 [ TRUNC (V01051 [V01025 ,V01033 ]/ 00000174 C 0724
020,174)],4,1,-1,174);END END ; BEGIN WLINE(F00742,V00742,I00742)END ; 00000177 C 0727
; END END ; BEGIN WLINE(F00742,V00742,I00742)END ; BEGIN WALFA(F00742, 00000180 C 0734
V00742,I00742," TIMES:"," ET=341",0,0,0,0,0,0,0,0,0,0,011,180);PWRITE( 00000180 C 0739
F00742,V00742,I00742,((TIME( 1)/60) -V01398 ),2,8,2,180);PWRITE(F00742, 00000180 C 0744
V00742,I00742,", PT= ",5,5,-1,180);PWRITE(F00742,V00742,I00742,(TIME( 00000180 C 0749
2)/60) ,2,8,2,180);PWRITE(F00742,V00742,I00742,", IO= ",5,5,-1,181); 00000181 C 0754
PWRITE(F00742,V00742,I00742,(TIME( 3)/60) ,2,8,2,181);WLINE(F00742, 00000181 C 0760
V00742,I00742)END ;; END 00000182 C 0765
; TERMINATE: END OF PASCAL PROGRAM. C 0766
2 IS 775 LONG, NEXT SEG 1
1 IS 2 LONG, NEXT SEG 0
25 IS 69 LONG, NEXT SEG 0
NUMBER OF ERRORS DETECTED = 0. COMPILATION TIME = 35 SECONDS.
PRT SIZE = 112; TOTAL SEGMENT SIZE = 1736 WORDS; DISK SIZE = 88 SEGS; NO. PGM. SEGS = 25
ESTIMATED CORE STORAGE REQUIRED = 6769 WORDS.
ESTIMATED AUXILIARY MEMORY REQUIRED = 0 WORDS.
NUMBER OF CARD-IMAGES PROCESSED = 573.
LABEL 000000000LINE 00186226?RUN OBJECT/LISTER;COMMON=1;FILE DISK=0000000/LINE SERIAL;END~ OBJECT /LISTER
LABEL 000000000OUTPUT 00186226CC USER=0000000; COMPILE HMSS2/0000000 XALGOL ;XALGOL FILE CARD=PASC63 HMSS2 /0000000
PASS 1: RMAX = 231.0000
PASS 2: RMAX = 106.9839
PASS 3: RMAX = 30.0786
PASS 4: RMAX = 23.8685
PASS 5: RMAX = 15.8328
PASS 6: RMAX = 12.3433
PASS 7: RMAX = 10.9879
PASS 8: RMAX = 9.1398
PASS 9: RMAX = 8.5020
PASS 10: RMAX = 7.3267
PASS 11: RMAX = 6.9743
PASS 12: RMAX = 6.1473
PASS 13: RMAX = 5.9338
PASS 14: RMAX = 5.3136
PASS 15: RMAX = 5.1764
PASS 16: RMAX = 4.6904
PASS 17: RMAX = 4.5987
PASS 18: RMAX = 4.2054
PASS 19: RMAX = 4.1424
PASS 20: RMAX = 3.8467
PASS 21: RMAX = 3.7723
PASS 22: RMAX = 3.5496
PASS 23: RMAX = 3.4656
PASS 24: RMAX = 3.2966
PASS 25: RMAX = 3.2135
PASS 26: RMAX = 3.0785
PASS 27: RMAX = 3.0047
PASS 28: RMAX = 2.8883
PASS 29: RMAX = 2.8223
PASS 30: RMAX = 2.7210
PASS 31: RMAX = 2.6616
PASS 32: RMAX = 2.5726
PASS 33: RMAX = 2.5187
PASS 34: RMAX = 2.4400
PASS 35: RMAX = 2.3909
PASS 36: RMAX = 2.3207
PASS 37: RMAX = 2.2759
PASS 38: RMAX = 2.2129
PASS 39: RMAX = 2.1717
PASS 40: RMAX = 2.1149
PASS 41: RMAX = 2.0769
PASS 42: RMAX = 2.0254
PASS 43: RMAX = 1.9902
PASS 44: RMAX = 1.9434
PASS 45: RMAX = 1.9107
PASS 46: RMAX = 1.8678
PASS 47: RMAX = 1.8374
PASS 48: RMAX = 1.7981
PASS 49: RMAX = 1.7696
PASS 50: RMAX = 1.7334
PASS 51: RMAX = 1.7068
PASS 52: RMAX = 1.6733
PASS 53: RMAX = 1.6483
PASS 54: RMAX = 1.6173
PASS 55: RMAX = 1.5938
PASS 56: RMAX = 1.5650
PASS 57: RMAX = 1.5428
PASS 58: RMAX = 1.5160
PASS 59: RMAX = 1.4950
PASS 60: RMAX = 1.4700
PASS 61: RMAX = 1.4502
PASS 62: RMAX = 1.4267
PASS 63: RMAX = 1.4079
PASS 64: RMAX = 1.3869
PASS 65: RMAX = 1.3681
PASS 66: RMAX = 1.3504
PASS 67: RMAX = 1.3305
PASS 68: RMAX = 1.3159
PASS 69: RMAX = 1.2949
PASS 70: RMAX = 1.2831
PASS 71: RMAX = 1.2612
PASS 72: RMAX = 1.2518
PASS 73: RMAX = 1.2297
PASS 74: RMAX = 1.2221
PASS 75: RMAX = 1.2010
PASS 76: RMAX = 1.1937
PASS 77: RMAX = 1.1737
PASS 78: RMAX = 1.1666
PASS 79: RMAX = 1.1475
PASS 80: RMAX = 1.1407
PASS 81: RMAX = 1.1225
PASS 82: RMAX = 1.1159
PASS 83: RMAX = 1.0985
PASS 84: RMAX = 1.0922
PASS 85: RMAX = 1.0755
PASS 86: RMAX = 1.0694
PASS 87: RMAX = 1.0534
PASS 88: RMAX = 1.0476
PASS 89: RMAX = 1.0323
PASS 90: RMAX = 1.0266
PASS 91: RMAX = 1.0119
PASS 92: RMAX = 1.0064
PASS 93: RMAX = 0.9923
PASS 94: RMAX = 0.9870
PASS 95: RMAX = 0.9734
PASS 96: RMAX = 0.9683
PASS 97: RMAX = 0.9553
PASS 98: RMAX = 0.9503
PASS 99: RMAX = 0.9377
PASS 100: RMAX = 0.9329
PASS 101: RMAX = 0.9208
PASS 102: RMAX = 0.9161
PASS 103: RMAX = 0.9045
PASS 104: RMAX = 0.8999
PASS 105: RMAX = 0.8887
PASS 106: RMAX = 0.8843
PASS 107: RMAX = 0.8735
PASS 108: RMAX = 0.8692
PASS 109: RMAX = 0.8587
PASS 110: RMAX = 0.8545
PASS 111: RMAX = 0.8444
PASS 112: RMAX = 0.8404
PASS 113: RMAX = 0.8310
PASS 114: RMAX = 0.8267
PASS 115: RMAX = 0.8183
PASS 116: RMAX = 0.8134
PASS 117: RMAX = 0.8059
PASS 118: RMAX = 0.8005
PASS 119: RMAX = 0.7939
PASS 120: RMAX = 0.7880
PASS 121: RMAX = 0.7822
PASS 122: RMAX = 0.7758
PASS 123: RMAX = 0.7708
PASS 124: RMAX = 0.7641
PASS 125: RMAX = 0.7597
PASS 126: RMAX = 0.7526
PASS 127: RMAX = 0.7490
PASS 128: RMAX = 0.7415
PASS 129: RMAX = 0.7385
PASS 130: RMAX = 0.7307
PASS 131: RMAX = 0.7283
PASS 132: RMAX = 0.7204
PASS 133: RMAX = 0.7183
PASS 134: RMAX = 0.7107
PASS 135: RMAX = 0.7086
PASS 136: RMAX = 0.7012
PASS 137: RMAX = 0.6992
PASS 138: RMAX = 0.6919
PASS 139: RMAX = 0.6899
PASS 140: RMAX = 0.6829
PASS 141: RMAX = 0.6809
PASS 142: RMAX = 0.6741
PASS 143: RMAX = 0.6721
PASS 144: RMAX = 0.6654
PASS 145: RMAX = 0.6636
PASS 146: RMAX = 0.6570
PASS 147: RMAX = 0.6552
PASS 148: RMAX = 0.6488
PASS 149: RMAX = 0.6470
PASS 150: RMAX = 0.6408
PASS 151: RMAX = 0.6390
PASS 152: RMAX = 0.6329
PASS 153: RMAX = 0.6312
PASS 154: RMAX = 0.6252
PASS 155: RMAX = 0.6235
PASS 156: RMAX = 0.6177
PASS 157: RMAX = 0.6160
PASS 158: RMAX = 0.6104
PASS 159: RMAX = 0.6087
PASS 160: RMAX = 0.6032
PASS 161: RMAX = 0.6016
PASS 162: RMAX = 0.5962
PASS 163: RMAX = 0.5946
PASS 164: RMAX = 0.5893
PASS 165: RMAX = 0.5877
PASS 166: RMAX = 0.5825
PASS 167: RMAX = 0.5810
PASS 168: RMAX = 0.5759
PASS 169: RMAX = 0.5744
PASS 170: RMAX = 0.5696
PASS 171: RMAX = 0.5680
PASS 172: RMAX = 0.5635
PASS 173: RMAX = 0.5617
PASS 174: RMAX = 0.5576
PASS 175: RMAX = 0.5555
PASS 176: RMAX = 0.5517
PASS 177: RMAX = 0.5494
PASS 178: RMAX = 0.5460
PASS 179: RMAX = 0.5434
PASS 180: RMAX = 0.5403
PASS 181: RMAX = 0.5376
PASS 182: RMAX = 0.5348
PASS 183: RMAX = 0.5319
PASS 184: RMAX = 0.5293
PASS 185: RMAX = 0.5263
PASS 186: RMAX = 0.5240
PASS 187: RMAX = 0.5207
PASS 188: RMAX = 0.5187
PASS 189: RMAX = 0.5153
PASS 190: RMAX = 0.5136
PASS 191: RMAX = 0.5100
PASS 192: RMAX = 0.5085
PASS 193: RMAX = 0.5048
PASS 194: RMAX = 0.5035
PASS 195: RMAX = 0.4997
FINAL RMAX = 4.99680577E-01
TIMES: ET= 514.65, PT= 504.07, IO= 15.77
TEMPERATURE PROFILE
KEY A = 21- 40
B = 61- 80
C = 101-120
D = 141-160
E = 181-200
F = 221-240
G = 261-280
H = 301-320
I = 341-360
0 BBBBBB CCCCC DDDDD EEEEEEEEEEEEEEEEEEEEE DDDDD CCCCC BBBBBB
1 BBBBBB CCCCC DDDDD EEEEEEE EEEEEEE DDDDD CCCCC BBBBBB
2 BBBBB CCCCC DDDD EEEEE EEEEE DDDD CCCCC BBBBB
3 BBBBBB CCCCC DDDD EEEEE FFFFFFFFFFF EEEEE DDDD CCCCC BBBBBB
4 BBBBBB CCCC DDDD EEEE FFFFFFFFFFFFFFFFFFF EEEE DDDD CCCC BBBBBB
5 BBBBB CCCC DDDD EEEEE FFFFFFF FFFFFFF EEEEE DDDD CCCC BBBBB
6 BBBBBB CCCC DDDD EEEE FFFFF FFFFF EEEE DDDD CCCC BBBBBB
7 BBBBBB CCCC DDDD EEE FFFFF FFFFF EEE DDDD CCCC BBBBBB
8 BBBBB CCCC DDD EEE FFFFF GGGGGGGGG FFFFF EEE DDD CCCC BBBBB
9 BBBBBB CCCC DDDD EEEE FFFFF GGGGGGGGGGGGG FFFFF EEEE DDDD CCCC BBBBBB
10 BBBBBB CCC DDD EEE FFFF GGGGGGGGGGGGGGGGG FFFF EEE DDD CCC BBBBBB
11 BBBBB CCCC DDDD EEEE FFFF GGGGGGGGG GGGGGGGGG FFFF EEEE DDDD CCCC BBBBB
12 BBBBB CCCC DDD EEE FFF GGGGGG GGGGGG FFF EEE DDD CCCC BBBBB
13 BBBBBB CCC DDD EEEE FFFF GGGGG GGGGG FFFF EEEE DDD CCC BBBBBB
14 BBBBBB CCC DDDD EEE FFF GGGGG GGGGG FFF EEE DDDD CCC BBBBBB
15 BBBBBB CCC DDD EEE FFF GGGG GGGG FFF EEE DDD CCC BBBBBB
16 BBBBB CCCC DDD EEEE FFFF GGGGG GGGGG FFFF EEEE DDD CCCC BBBBB
17 BBBBB CCC DDD EEE FFFF GGGG HHH GGGG FFFF EEE DDD CCC BBBBB
18 BBBBB CCC DDD EEEE FFF GGGG HHHHHHH GGGG FFF EEEE DDD CCC BBBBB
19 BBBBB CCC DD EEEE FFF GGG HHHHHHHHH GGG FFF EEEE DD CCC BBBBB
20 BBBBB CCC DDD EEEE FFF GGG HHHHHHHHHHH GGG FFF EEEE DDD CCC BBBBB
21 BBBBB CCC DD EEEEE FFF GGGG HHHHHHHHHHH GGGG FFF EEEEE DD CCC BBBBB
22 BBBBB CCC DD EEEE FFF GGGG HHHHHH HHHHHH GGGG FFF EEEE DD CCC BBBBB
23 BBBBBB CCC DD EE FFF GGG HHHH HHHH GGG FFF EE DD CCC BBBBBB
24 BBBBBB CCC DD EE E FFF GGG HHHH HHHH GGG FFF E EE DD CCC BBBBBB
25 BBBBB CC D EE FFFEEE FFF GGG HHH III HHH GGG FFF EEEFFF EE D CC BBBBB
26 BBBBB CC DD E F G G F E DD CC BBBBB
27 BBBBB CCC DD EE F G G F EE DD CCC BBBBB
28 BBBBB CCC DD E F GH HG F E DD CCC BBBBB
29 BBBBB CCC D E F G H H G F E D CCC BBBBB
30 BBBBB CC DD E F G HI IH G F E DD CC BBBBB
31 BBBBB CC DD EE F G HI IH G F EE DD CC BBBBB
32 BBBBB CC DD E F G I I G F E DD CC BBBBB
33 BBBBB CC DD E F G I I G F E DD CC BBBBB
34 BBBBB CC DD E FF H I I H FF E DD CC BBBBB
35 BBBBB CC D E F G H I I H G F E D CC BBBBB
36 BBBBB CC D E F G H I I H G F E D CC BBBBB
37 BBBBB CC D E F G H I I H G F E D CC BBBBB
38 BBBBB CC D E F G H I I H G F E D CC BBBBB
39 BBBBB CC D E F G H I I H G F E D CC BBBBB
40 BBBBB CC D E F G H I I H G F E D CC BBBBB
41 BBBBB CC D E F G H I I H G F E D CC BBBBB
42 BBBBB CC D E F G H I I H G F E D CC BBBBB
43 BBBBB CC D E F G H I I H G F E D CC BBBBB
44 BBBBB CC D E F G H I I H G F E D CC BBBBB
45 BBBBB CC D E F G H I I H G F E D CC BBBBB
46 BBBBB CC D E F G H I I H G F E D CC BBBBB
47 BBBBB CC D E F G H I I H G F E D CC BBBBB
48 BBBBB CC D E F G H I I H G F E D CC BBBBB
49 BBBBB CCC D E F G H I I H G F E D CCC BBBBB
50 BBBBB CCC D E F G H I I H G F E D CCC BBBBB
51 BBBBB CCC D E F G H I I H G F E D CCC BBBBB
52 BBBBB CC D E F G H I I H G F E D CC BBBBB
53 BBBBB CC D E F G H I I H G F E D CC BBBBB
54 BBBBB CC D E F G H I I H G F E D CC BBBBB
55 BBBBB CC D E F G H I I H G F E D CC BBBBB
56 BBBBB CC D E F G H I I H G F E D CC BBBBB
57 BBBBB CC D E F G H I I H G F E D CC BBBBB
58 BBBBB CC D E F G H I I H G F E D CC BBBBB
59 BBBBB CC D E F G H I I H G F E D CC BBBBB
60 BBBBB CC D E F G H I I H G F E D CC BBBBB
61 BBBBB CC D E F G H I I H G F E D CC BBBBB
62 BBBBB CC D E F G H I I H G F E D CC BBBBB
63 BBBBB CC D E F G H I I H G F E D CC BBBBB
64 BBBBB CC D E F G H I I H G F E D CC BBBBB
65 BBBBB CC D E F G H I I H G F E D CC BBBBB
66 BBBBB CC DD E FF H I I H FF E DD CC BBBBB
67 BBBBB CC DD E F G I I G F E DD CC BBBBB
68 BBBBB CC DD E F G I I G F E DD CC BBBBB
69 BBBBB CC DD EE F G HI IH G F EE DD CC BBBBB
70 BBBBB CC DD E F G HI IH G F E DD CC BBBBB
71 BBBBB CCC D E F G H H G F E D CCC BBBBB
72 BBBBB CCC DD E F GH HG F E DD CCC BBBBB
73 BBBBB CCC DD EE F G G F EE DD CCC BBBBB
74 BBBBB CC DD E F G G F E DD CC BBBBB
75 BBBBB CC D EE FFFEEE FFF GGG HHH III HHH GGG FFF EEEFFF EE D CC BBBBB
76 BBBBB CCC DD EE E FFF GGG HHHH HHHH GGG FFF E EE DD CCC BBBBB
77 BBBBBB CCC DD EEE FFF GGG HHH HHH GGG FFF EEE DD CCC BBBBBB
78 BBBBBB CCC DDD EEEE FFFF GGG HHHHH HHHHH GGG FFFF EEEE DDD CCC BBBBBB
79 BBBBB CCC DD EEEEE FFFF GGGG HHHHHHHHHHHHH GGGG FFFF EEEEE DD CCC BBBBB
80 BBBBB CCC DDD EEEE FFFF GGGG HHHHHHHHHHH GGGG FFFF EEEE DDD CCC BBBBB
81 BBBBB CCC DD EEEE FFFF GGGG HHHHHHHHHHH GGGG FFFF EEEE DD CCC BBBBB
82 BBBBB CCC DDD EEEE FFFF GGGG HHHHHHHHH GGGG FFFF EEEE DDD CCC BBBBB
83 BBBBB CCC DDD EEEE FFFF GGGG HHHHHHHHH GGGG FFFF EEEE DDD CCC BBBBB
84 BBBBB CCC DDD EEE FFF GGGG HHHHHHH GGGG FFF EEE DDD CCC BBBBB
85 BBBBB CCC DDD EEE FFF GGGG HHHHHHH GGGG FFF EEE DDD CCC BBBBB
86 BBBBB CCCC DDD EEE FFF GGGG HHHHH GGGG FFF EEE DDD CCCC BBBBB
87 BBBBB CCCC DDD EEE FFF GGGG HHH GGGG FFF EEE DDD CCCC BBBBB
88 BBBBB CCCC DDD EEEE FFF GGGG HHH GGGG FFF EEEE DDD CCCC BBBBB
89 BBBBB CCCC DDD EEEE FFF GGGG GGGG FFF EEEE DDD CCCC BBBBB
90 BBBBB CCCC DDD EEEE FFF GGGG GGGG FFF EEEE DDD CCCC BBBBB
91 BBBBB CCCC DDD EEE FFF GGGG GGGG FFF EEE DDD CCCC BBBBB
92 BBBBB CCCC DDD EEE FFF GGGG GGGG FFF EEE DDD CCCC BBBBB
93 BBBBB CCCC DDD EEE FFF GGGG GGGG FFF EEE DDD CCCC BBBBB
94 BBBBB CCC DDDD EEE FFF GGGG GGGG FFF EEE DDDD CCC BBBBB
95 BBBBB CCC DDDD EEE FFF GGGG GGGG FFF EEE DDDD CCC BBBBB
96 BBBBBB CCC DDDD EEE FFF GGGG GGGG FFF EEE DDDD CCC BBBBBB
97 BBBBBB CCC DDDD EEE FFF GGGG GGGG FFF EEE DDDD CCC BBBBBB
98 BBBBBB CCC DDDD EEE FFF GGGG GGGG FFF EEE DDDD CCC BBBBBB
99 BBBBBB CCC DDDD EEE FFF GGGG GGGG FFF EEE DDDD CCC BBBBBB
100 BBBBBB CCC DDDD EEE FFF GGGG GGGG FFF EEE DDDD CCC BBBBBB
TIMES: ET= 553.40, PT= 542.67, IO= 16.35
LABEL 000000000OUTPUT 00186226CC USER=0000000; COMPILE HMSS2/0000000 XALGOL ;XALGOL FILE CARD=PASC63 HMSS2 /0000000
Reference in New Issue View Git Blame Copy Permalink