
Sat, Jun 30, 2018 16:57:09, SYSTEM SERIAL: 4448, LX100 MCP: *SYSTEM/511/051-1A-45/DELTA/MCP. 51.190.8474, HOSTNAME: MCPVMMA




                                         W O R K   F L O W   S T A T E M E N T S


        00000100  BEGIN JOB BALGOL/EX3;
        00000200  JOBSUMMARY = UNCONDITIONAL;
        00000210  PRINTDEFAULTS = (PRINTDISPOSITION=EOJ, DESTINATION="DCMAIL",
        00000220      NOTE="DC-EA=PAUL.KIMPEL@DIGM.COM; DC-EX=TXT; DC-ES=CANDE PRINT OUTPUT");
        00000300
        00000400  COMPILE OBJECT/BALGOL/EXAMPLE3 ALGOL GO;
        00000450      OPTION = (DSED, FAULT, ARRAY);
        00000500      ALGOL DATA
        00062000  ?DATA DATA
        00099000  ? END JOB


                                                 J O B   S U M M A R Y

Sat, Jun 30, 2018

   16:57:08    BOJ   6444 BALGOL/EX3.
                          JOB ENTERED SYSTEM: 06/30/2018 16:57:08 FROM WFL 51.189
                          QUEUE: 0, ORIGINATING LSN: 224 MCS: 16
                          STACK NUMBER: 0B92, PRIORITY: 50, SOURCENAME: NXEDIT/IP192_168_251_200/1.
                          USERCODE: PAUL.  REALUSERCODE: PAUL.
                          INITIATING MCS: SYSTEM/NXEDIT/SUPPORT.
   16:57:08    BOT   6445 *SYSTEM/ALGOL.
                          CODE COMPILED: 09/07/2005 15:02:44 BY ALGOL 51.190
                          RELEASE ID: IC ALGOL-051.1A.4 [51.190.004] (51.190.8023)
                          TASK TYPE: COROUTINE (CALL)
                          STACK NUMBER: 0B94, PRIORITY: 50, SOURCENAME: NXEDIT/IP192_168_251_200/1.
                          CODEFILE: OBJECT/BALGOL/EXAMPLE3.
                          USERCODE: PAUL.  REALUSERCODE: PAUL.
                          INITIATING MCS: SYSTEM/NXEDIT/SUPPORT.
   16:57:09    BOT   6446 (PAUL)OBJECT/BALGOL/EXAMPLE3 ON OPS.
                          CODE COMPILED: 06/30/2018 16:57:08 BY ALGOL 51.190
                          TASK TYPE: DEPENDENT TASK (PROCESS)
                          STACK NUMBER: 0B96, PRIORITY: 50, SOURCENAME: NXEDIT/IP192_168_251_200/1.
                          USERCODE: PAUL.  REALUSERCODE: PAUL.
                          INITIATING MCS: SYSTEM/NXEDIT/SUPPORT.
   16:57:09          6446 MESSAGE: STACK EXTENDED FROM 1555 TO 1805 WORDS.
   16:57:09    EOT   6445 *SYSTEM/ALGOL.
                          RELEASE ID:IC ALGOL-051.1A.4 [51.190.004] (51.190.8023)
                          USERCODE: PAUL.  REALUSERCODE: PAUL.
                          STACK NUMBER: 0B94             AVERAGE DISK SECTORS IN USE BY PERMANENT FILES: 1030.
                          PROCESSOR TIME: 00:00:00.5082  CARDS READ: 62.
                          I/O       TIME: 00:00:00.1002  LINES PRINTED: 80.
                          READYQ    TIME: 00:00:00.1174  NUMBER OF ARRAY RESIZES: 4.
                          INITPBIT  TIME: 00:00:00.2427  AVERAGE MEMORY USAGE: CODE=21280, DATA=68814
                          ELAPSED   TIME: 00:00:01.0673  MEMORY INTEGRAL: CODE=12.949, DATA=41.873
                                                         INITIAL PBITS: 432.
                                                         MAXIMUM NUMBER OF ASDS USED: 158.
                                                         MAXIMUM SAVE MEMORY USED: 11488.

   16:57:09          6446 MESSAGE: STACK EXTENDED FROM 1805 TO 2055 WORDS.
   16:57:09    EOT   6446 (PAUL)OBJECT/BALGOL/EXAMPLE3 ON OPS.
                          USERCODE: PAUL.  REALUSERCODE: PAUL.
                          STACK NUMBER: 0B96             AVERAGE DISK SECTORS IN USE BY PERMANENT FILES: 66.
                          PROCESSOR TIME: 00:00:00.1049  CARDS READ: 26.
                          I/O       TIME: 00:00:00.0050  LINES PRINTED: 9.
                          READYQ    TIME: 00:00:00.1328  NUMBER OF ARRAY RESIZES: 5.
                          INITPBIT  TIME: 00:00:00.0156  AVERAGE MEMORY USAGE: CODE=125, DATA=4509
                          ELAPSED   TIME: 00:00:00.3447  MEMORY INTEGRAL: CODE=0.014, DATA=0.496
                                                         INITIAL PBITS: 110.
                                                         MAXIMUM NUMBER OF ASDS USED: 60.
                                                         MAXIMUM SAVE MEMORY USED: 8382.

   16:57:09    EOJ   6444 BALGOL/EX3.
                          USERCODE: PAUL.  REALUSERCODE: PAUL.
                          STACK NUMBER: 0B92             NUMBER OF ARRAY RESIZES: 1.
                          PROCESSOR TIME: 00:00:00.0156  AVERAGE MEMORY USAGE: CODE=88, DATA=1924
                          I/O       TIME: 00:00:00.0047  MEMORY INTEGRAL: CODE=0.002, DATA=0.039
                          READYQ    TIME: 00:00:00.0136  INITIAL PBITS: 38.
                          ELAPSED   TIME: 00:00:01.3030  MAXIMUM NUMBER OF ASDS USED: 10.
                                                         MAXIMUM SAVE MEMORY USED: 1808.


Unisys ClearPath LX Series SYSTEMS BDMSALGOL COMPILER, VERSION 51.190.8023, SATURDAY, 06/30/2018, 04:57 PM.



                         ( P A U L ) O B J E C T / B A L G O L / E X A M P L E 4   O N   O P S
                         = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =


                BEGIN                                                                                     0000:0000:0
                                                                                              BLOCK#1 IS SEGMENT 0003
                COMMENT THIRD EXAMPLE PROGRAM FROM BALGOL MANUAL, MARCH 1963.               1             0003:0000:1
                                                                                                          0003:0000:1
                THE SHORT PROGRAM WHICH FOLLOWS IS FOR A REDUCTION OF A SQUARE MATRIX                     0003:0000:1
                TO TRIDIAGONAL FORM, USING THE METHOD OF HOUSEHOLDER;                                     0003:0000:1
                                                                                                          0003:0000:1
                COMMENT HOUSEHOLDER REDUCTION TO TRIDIAGONAL FORM;                                        0003:0000:1
                INTEGER I, J, K, L, R, N;                                                                 0003:0000:1
                ARRAY A[0:50,0:50], X[0:50], P[0:50];                                                     0003:0000:1
                REAL Q, S;                                                                                0003:0006:3
                LABEL IN;                                                                                 0003:0006:3
                FILE                                                                                      0003:0006:3
                  DATA (KIND=READER, MAXRECSIZE=80, FRAMESIZE=8, FILEUSE=IN),                             0003:0006:3
                                                                                           DATA LENGTH IN WORDS IS 000E
                  LINE (KIND=PRINTER, MAXRECSIZE=120, FRAMESIZE=8, FILEUSE=OUT);                          0003:0006:3
                                                                                           DATA LENGTH IN WORDS IS 000E
                FORMAT                                                                                    0003:0006:3
                  AF (X10, F10.5),                                                                        0003:0006:3
                  BF (X40, F10.5);                                                                        0003:0006:3
                                                                                                          0003:0006:3
                  N:= 5;                                                                                  0003:0006:3
                IN:                                                                                       0003:0007:2
                  READ (DATA, /, I, J, Q);                                                                0003:0007:2
                  IF I ^= 0 THEN                                                                          0003:0015:4
                    BEGIN                                                                                 0003:0016:2
                    A[I,J]:= Q;                                                             2             0003:0016:5
                    GO TO IN                                                                              0003:0018:4
                    END;                                                                                  0003:0019:1
                                                                                            2             0003:0019:1
                  FOR R:= 1 STEP 1 UNTIL N-1 DO                                                           0003:0019:1
                    BEGIN                                                                                 0003:001B:1
                    WRITE (LINE, AF, A[R,R]);                                               2             0003:001B:1
                    L:= R+1;                                                                              0003:0023:4
                    S:= 0;                                                                                0003:0025:0
                    FOR J:= L STEP 1 UNTIL N DO                                                           0003:0025:4
                      S:= S + A[R,J]**2;                                                                  0003:0026:3
                                                                                                          0003:002B:2
                    S:= SIGN(A[R,L])/(2*SQRT(S));                                                         0003:002B:2
                    WRITE (LINE, BF, -0.5/S);                                                             0003:0030:2
                    X[L]:= SQRT(0.5 + A[R,L]*S);                                                          0003:0038:4
                    S:= S/X[L];                                                                           0003:003D:1
                    FOR J:= R+2 STEP 1 UNTIL N DO                                                         0003:003F:0
                      X[J]:= S*A[R,J];                                                                    0003:0040:3
                    FOR J:= R STEP 1 UNTIL N DO                                                           0003:0045:3
                      BEGIN                                                                               0003:0046:2
                      S:= 0;                                                                3             0003:0046:2
                      FOR K:= L STEP 1 UNTIL N DO                                                         0003:0047:0
                        S:= S + A[MIN(J,K), MAX(J,K)]*X[K];                                               0003:0047:5
                      P[J]:= S                                                                            0003:004E:4
                      END;                                                                                0003:004F:3
                                                                                            3             0003:0052:1
                    S:= 0;                                                                                0003:0052:1
                    FOR J:= L STEP 1 UNTIL N DO                                                           0003:0052:5
                      S:= S + X[J]*P[J];                % X[J] WAS K[J]                                   0003:0053:4
                    FOR J:= L STEP 1 UNTIL N DO                                                           0003:0058:4
                      P[J]:= P[J] - S*X[J];                                                               0003:0059:3
                    FOR J:= L STEP 1 UNTIL N DO                                                           0003:005F:0
                      FOR K:= J STEP 1 UNTIL N DO                                                         0003:005F:5
                        A[J,K]:= A[J,K] - 2*(X[J]*P[K] + X[K]*P[J])                                       0003:0060:4
                    END;                                                                                  0003:0067:0
                                                                                            2             0003:006D:3
                  WRITE (LINE, AF, A[R,R]);                                                               0003:006D:3
                END.                                                                                      0003:0075:4
                                                                                  BLOCK#1(0003) LENGTH IN WORDS IS 008B
                                                                                           DATA LENGTH IN WORDS IS 0008
====================================================================================================================================
NUMBER OF ERRORS DETECTED = 0.
NUMBER OF WARNINGS ISSUED = 1.
NUMBER OF SEGMENTS = 8.  TOTAL SEGMENT SIZE = 175 WORDS.  CORE ESTIMATE = 1110 WORDS.  STACK ESTIMATE = 19
PROGRAM SIZE = 61 CARDS, 463 SYNTACTIC ITEMS, 18 DISK SECTORS.
PROGRAM FILE NAME:  (PAUL)OBJECT/BALGOL/EXAMPLE3 ON OPS.
COMPILATION TIME = 0.530 SECONDS ELAPSED;  0.270 SECONDS PROCESSING;  0.094 SECONDS I/O.
====================================================================================================================================

             4.00000
                                          -3.16228
             3.30000
                                          -1.30767
            -0.42281
                                          -1.88627
             0.53947
                                           1.81621
             1.58333
