*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 



*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 




 OOO   PPPP   EEEEE  RRRR    AAA   TTTTT   OOO   RRRR 
O   O  P   P  E      R   R  A   A    T    O   O  R   R
O   O  P   P  E      R   R  A   A    T    O   O  R   R
O   O  PPPP   EEEE   RRRR   A   A    T    O   O  RRRR 
O   O  P      E      R R    AAAAA    T    O   O  R R  
O   O  P      E      R  R   A   A    T    O   O  R  R 
 OOO   P      EEEEE  R   R  A   A    T     OOO   R   R




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 



*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 



*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 



*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 



*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 



*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 



*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 



*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 



*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 



*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 




00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000011111111112222222222333333333344444444445555555555666666666677777777778
12345678901234567890123456789012345678901234567890123456789012345678901234567890
*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 



*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 




 OOO   PPPP   EEEEE  RRRR    AAA   TTTTT   OOO   RRRR 
O   O  P   P  E      R   R  A   A    T    O   O  R   R
O   O  P   P  E      R   R  A   A    T    O   O  R   R
O   O  PPPP   EEEE   RRRR   A   A    T    O   O  RRRR 
O   O  P      E      R R    AAAAA    T    O   O  R R  
O   O  P      E      R  R   A   A    T    O   O  R  R 
 OOO   P      EEEEE  R   R  A   A    T     OOO   R   R




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 



*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 



*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 



*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 



*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 



*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 



*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 



*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 



*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 




00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000011111111112222222222333333333344444444445555555555666666666677777777778
12345678901234567890123456789012345678901234567890123456789012345678901234567890
    11          000000      TTTTTTTTTT      SSSSSSSS    TTTTTTTTTT
    11          000000      TTTTTTTTTT      SSSSSSSS    TTTTTTTTTT
  1111        00      00        TT        SS                TT    
  1111        00      00        TT        SS                TT    
    11        00    0000        TT        SS                TT    
    11        00    0000        TT        SS                TT    
    11        00  00  00        TT          SSSSSS          TT    
    11        00  00  00        TT          SSSSSS          TT    
    11        0000    00        TT                SS        TT    
    11        0000    00        TT                SS        TT    
    11        00      00        TT                SS        TT    
    11        00      00        TT                SS        TT    
  111111        000000          TT        SSSSSSSS          TT    
  111111        000000          TT        SSSSSSSS          TT    




DDDDDDDD        IIIIII      RRRRRRRR  
DDDDDDDD        IIIIII      RRRRRRRR  
DD      DD        II        RR      RR
DD      DD        II        RR      RR
DD      DD        II        RR      RR
DD      DD        II        RR      RR
DD      DD        II        RRRRRRRR  
DD      DD        II        RRRRRRRR  
DD      DD        II        RR  RR    
DD      DD        II        RR  RR    
DD      DD        II        RR    RR  
DD      DD        II        RR    RR  
DDDDDDDD        IIIIII      RR      RR
DDDDDDDD        IIIIII      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:10TST.DIR[1,2,FOROTS], created: 11-Dec-81 16:07:59,
        printed: 14-Aug-7 12:26:58
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
    11          000000      TTTTTTTTTT      SSSSSSSS    TTTTTTTTTT
    11          000000      TTTTTTTTTT      SSSSSSSS    TTTTTTTTTT
  1111        00      00        TT        SS                TT    
  1111        00      00        TT        SS                TT    
    11        00    0000        TT        SS                TT    
    11        00    0000        TT        SS                TT    
    11        00  00  00        TT          SSSSSS          TT    
    11        00  00  00        TT          SSSSSS          TT    
    11        0000    00        TT                SS        TT    
    11        0000    00        TT                SS        TT    
    11        00      00        TT                SS        TT    
    11        00      00        TT                SS        TT    
  111111        000000          TT        SSSSSSSS          TT    
  111111        000000          TT        SSSSSSSS          TT    




DDDDDDDD        IIIIII      RRRRRRRR  
DDDDDDDD        IIIIII      RRRRRRRR  
DD      DD        II        RR      RR
DD      DD        II        RR      RR
DD      DD        II        RR      RR
DD      DD        II        RR      RR
DD      DD        II        RRRRRRRR  
DD      DD        II        RRRRRRRR  
DD      DD        II        RR  RR    
DD      DD        II        RR  RR    
DD      DD        II        RR    RR  
DD      DD        II        RR    RR  
DDDDDDDD        IIIIII      RR      RR
DDDDDDDD        IIIIII      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:10TST.DIR[1,2,FOROTS], created: 11-Dec-81 16:07:59,
        printed: 14-Aug-7 12:26:58
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII

10TST   DIR     2  <055>   011532  11-Dec-81    DSKC:   [10,5564,FORTST]
ARRAYS  FOR     2  <055>   367642  25-Mar-81
ASCII   FOR     4  <055>   366011  25-Mar-81
BINARY  FOR     3  <055>   451673  25-Mar-81
DO      FOR     2  <055>   722456  25-Mar-81
F10TST  CTL     9  <055>   420033  22-Jul-81
FORTRA  VER    15  <055>   423563  22-Jul-81
GOTO    FOR     2  <055>   027163  25-Mar-81
IF      FOR     3  <055>   302245  25-Mar-81
IMAGE   FOR     2  <055>   661310  25-Mar-81
LIB     FOR     4  <055>   644556  25-Mar-81
RANDOM  FOR     4  <055>   154710  12-Apr-70
SUBFUN  FOR     3  <055>   165450  25-Mar-81
T4DDT   FOR     1  <055>   307077  25-Mar-81
  Total of 56 blocks in 14 files Checksum = 517005 on DSKC: [10,5564,FORTST]
  AAAAAA      RRRRRRRR      RRRRRRRR        AAAAAA      YY      YY    
  AAAAAA      RRRRRRRR      RRRRRRRR        AAAAAA      YY      YY    
AA      AA    RR      RR    RR      RR    AA      AA    YY      YY    
AA      AA    RR      RR    RR      RR    AA      AA    YY      YY    
AA      AA    RR      RR    RR      RR    AA      AA      YY  YY      
AA      AA    RR      RR    RR      RR    AA      AA      YY  YY      
AA      AA    RRRRRRRR      RRRRRRRR      AA      AA        YY        
AA      AA    RRRRRRRR      RRRRRRRR      AA      AA        YY        
AAAAAAAAAA    RR  RR        RR  RR        AAAAAAAAAA        YY        
AAAAAAAAAA    RR  RR        RR  RR        AAAAAAAAAA        YY        
AA      AA    RR    RR      RR    RR      AA      AA        YY        
AA      AA    RR    RR      RR    RR      AA      AA        YY        
AA      AA    RR      RR    RR      RR    AA      AA        YY        
AA      AA    RR      RR    RR      RR    AA      AA        YY        




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:ARRAYS.FOR[1,2,FOROTS], created: 25-Mar-81 16:59:59,
        printed: 14-Aug-7 12:26:58
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
  AAAAAA      RRRRRRRR      RRRRRRRR        AAAAAA      YY      YY    
  AAAAAA      RRRRRRRR      RRRRRRRR        AAAAAA      YY      YY    
AA      AA    RR      RR    RR      RR    AA      AA    YY      YY    
AA      AA    RR      RR    RR      RR    AA      AA    YY      YY    
AA      AA    RR      RR    RR      RR    AA      AA      YY  YY      
AA      AA    RR      RR    RR      RR    AA      AA      YY  YY      
AA      AA    RRRRRRRR      RRRRRRRR      AA      AA        YY        
AA      AA    RRRRRRRR      RRRRRRRR      AA      AA        YY        
AAAAAAAAAA    RR  RR        RR  RR        AAAAAAAAAA        YY        
AAAAAAAAAA    RR  RR        RR  RR        AAAAAAAAAA        YY        
AA      AA    RR    RR      RR    RR      AA      AA        YY        
AA      AA    RR    RR      RR    RR      AA      AA        YY        
AA      AA    RR      RR    RR      RR    AA      AA        YY        
AA      AA    RR      RR    RR      RR    AA      AA        YY        




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:ARRAYS.FOR[1,2,FOROTS], created: 25-Mar-81 16:59:59,
        printed: 14-Aug-7 12:26:59
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
        PROGRAM ARRAYS

! This software is furnished under a license and may only be used
! or copied in accordance with the terms of such license.

! Copyright (C) 1981 by Digital Equipment Corporation

!       Version 6       ARRAYS.FOR      March 81

!       Basic test of arrays.
!       Assignments are made to several arrays of different
!       dimensions, then checked for their accuracy.

        INTEGER IN(5),IIII(5,5)
        REAL XX(5,5,5)
        DOUBLE PRECISION DD(5)

        DO 100 I=1,5            !Assignment
                IN(I)=I
                DD(I)=I+.0000000001
                DO 200 J=1,5
                        IIII(I,J)=J+I
                        DO 300 K=1,5
                                XX(I,J,K)=IN(I)+K
300                     CONTINUE
200             CONTINUE
100     CONTINUE

!       Check assignments to the arrays

        DO 500 I=1,5
                IF (IN(I).NE.I) TYPE 710,I,IN(I),I
                D=I+.0000000001
                IF (DD(I).NE.(I+.0000000001)) TYPE 720,I,DD(I),D
                DO 600 J=1,5
                        KK=J+I
                        IF (IIII(I,J).NE.KK) TYPE 730,I,J,IIII(I,J),KK
                        DO 700 K=1,5
                                KKK=IN(I)+K
                                IF (XX(I,J,K).NE.KKK) TYPE 740,
        1                       I,J,K,XX(I,J,K),KK
700                     CONTINUE
600             CONTINUE
500     CONTINUE

710     FORMAT(' ?Error IN('I2')='I', should ='I2)
720     FORMAT(' ?Error DD('I2')='D', Should ='D)
730     FORMAT(' ?Error IIII('I2','I2')='I', should = 'I)
740     FORMAT(' ?Error DD('I2','I2','I2')='D', should = 'D)

        STOP
        END
  AAAAAA        SSSSSSSS      CCCCCCCC      IIIIII        IIIIII  
  AAAAAA        SSSSSSSS      CCCCCCCC      IIIIII        IIIIII  
AA      AA    SS            CC                II            II    
AA      AA    SS            CC                II            II    
AA      AA    SS            CC                II            II    
AA      AA    SS            CC                II            II    
AA      AA      SSSSSS      CC                II            II    
AA      AA      SSSSSS      CC                II            II    
AAAAAAAAAA            SS    CC                II            II    
AAAAAAAAAA            SS    CC                II            II    
AA      AA            SS    CC                II            II    
AA      AA            SS    CC                II            II    
AA      AA    SSSSSSSS        CCCCCCCC      IIIIII        IIIIII  
AA      AA    SSSSSSSS        CCCCCCCC      IIIIII        IIIIII  




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:ASCII.FOR[1,2,FOROTS], created: 25-Mar-81 22:35:59,
        printed: 14-Aug-7 12:26:59
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
  AAAAAA        SSSSSSSS      CCCCCCCC      IIIIII        IIIIII  
  AAAAAA        SSSSSSSS      CCCCCCCC      IIIIII        IIIIII  
AA      AA    SS            CC                II            II    
AA      AA    SS            CC                II            II    
AA      AA    SS            CC                II            II    
AA      AA    SS            CC                II            II    
AA      AA      SSSSSS      CC                II            II    
AA      AA      SSSSSS      CC                II            II    
AAAAAAAAAA            SS    CC                II            II    
AAAAAAAAAA            SS    CC                II            II    
AA      AA            SS    CC                II            II    
AA      AA            SS    CC                II            II    
AA      AA    SSSSSSSS        CCCCCCCC      IIIIII        IIIIII  
AA      AA    SSSSSSSS        CCCCCCCC      IIIIII        IIIIII  




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:ASCII.FOR[1,2,FOROTS], created: 25-Mar-81 22:35:59,
        printed: 14-Aug-7 12:26:59
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
        PROGRAM ASCII

! This software is furnished under a license and may only be used
! or copied in accordance with the terms of such license.

! Copyright (C) 1981 by Digital Equipment Corporation

!       Version 6       ASCII.FOR       March 81

!       Basic ASCII I/O test.

        DOUBLE PRECISION D,DD,DHIGH,DLOW

!       Data to be written out.

        I=1234; X=456.789; D=123456789.0123
        XLOW=456.7885; XHIGH=456.7895
        DLOW=123456789.012299995; DHIGH=123456789.012300005

!       No OPEN statement (Implicit OPEN)

100     WRITE(20,105) I,X,D
        CLOSE(20)
        READ(20,105) II,XX,DD
        IF (I.NE.II) TYPE 110,I,II
        IF (XX.LT.XLOW .OR. XX.GT.XHIGH) TYPE 120,X,XX
        IF (DD.LT.DLOW .OR. DD.GT.DHIGH) TYPE 130,D,DD

105     FORMAT(I,F,D)
110     FORMAT(' ?Error line 100.  Implicit OPEN.',/
        1       '  I='I' II='I)
120     FORMAT(' ?Error line 100.  Implicit OPEN.',/
        1       '  X='F' XX='F)
130     FORMAT(' ?Error line 100.  Implicit OPEN.',/
        1       '  D='D' DD='D)

!       OPEN statement, no MODE= specified.

        OPEN(UNIT=21)
200     WRITE(21,205) I,X,D
        CLOSE(21)
        OPEN(UNIT=21)
        READ(21,205) II,XX,DD
        IF (I.NE.II) TYPE 210,I,II
        IF (XX.LT.XLOW .OR. XX.GT.XHIGH) TYPE 220,X,XX
        IF (DD.LT.DLOW .OR. DD.GT.DHIGH) TYPE 230,D,DD

205     FORMAT(I,F,D)
210     FORMAT(' ?Error line 200.  Default OPEN statement.',/
        1       '  I='I' II='I)
220     FORMAT(' ?Error line 200.  Default OPEN statement.',/
        1       '  X='F' XX='F)
230     FORMAT(' ?Error line 200.  Default OPEN statement.',/
        1       '  D='D' DD='D)
        CLOSE(UNIT=21)

!       OPEN statement with MODE= and ACCESS= specified.

        OPEN(22,MODE='ASCII',ACCESS='SEQOUT')
300     WRITE(22,305) I,X,D






        CLOSE(22)
        OPEN(22,MODE='ASCII',ACCESS='SEQIN')
        READ(22,305)
        IF (I.NE.II) TYPE 310,I,II
        IF (XX.LT.XLOW .OR. XX.GT.XHIGH) TYPE 320,X,XX
        IF (DD.LT.DLOW .OR. DD.GT.DHIGH) TYPE 330,D,DD

305     FORMAT(I,F,D)
310     FORMAT(' ?Error line 300.  MODE= and ACCESS=.',/
        1       '  I='I' II='I)
320     FORMAT(' ?Error line 300.  MODE= and ACCESS=.',/
        1       '  X='F' XX='F)
330     FORMAT(' ?Error line 300.  MODE= and ACCESS=.',/
        1       '  D='D' DD='D)
        CLOSE(22)

        STOP
        END
BBBBBBBB        IIIIII      NN      NN      AAAAAA      RRRRRRRR      
BBBBBBBB        IIIIII      NN      NN      AAAAAA      RRRRRRRR      
BB      BB        II        NN      NN    AA      AA    RR      RR    
BB      BB        II        NN      NN    AA      AA    RR      RR    
BB      BB        II        NNNN    NN    AA      AA    RR      RR    
BB      BB        II        NNNN    NN    AA      AA    RR      RR    
BBBBBBBB          II        NN  NN  NN    AA      AA    RRRRRRRR      
BBBBBBBB          II        NN  NN  NN    AA      AA    RRRRRRRR      
BB      BB        II        NN    NNNN    AAAAAAAAAA    RR  RR        
BB      BB        II        NN    NNNN    AAAAAAAAAA    RR  RR        
BB      BB        II        NN      NN    AA      AA    RR    RR      
BB      BB        II        NN      NN    AA      AA    RR    RR      
BBBBBBBB        IIIIII      NN      NN    AA      AA    RR      RR    
BBBBBBBB        IIIIII      NN      NN    AA      AA    RR      RR    




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:BINARY.FOR[1,2,FOROTS], created: 25-Mar-81 16:59:59,
        printed: 14-Aug-7 12:26:59
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
BBBBBBBB        IIIIII      NN      NN      AAAAAA      RRRRRRRR      
BBBBBBBB        IIIIII      NN      NN      AAAAAA      RRRRRRRR      
BB      BB        II        NN      NN    AA      AA    RR      RR    
BB      BB        II        NN      NN    AA      AA    RR      RR    
BB      BB        II        NNNN    NN    AA      AA    RR      RR    
BB      BB        II        NNNN    NN    AA      AA    RR      RR    
BBBBBBBB          II        NN  NN  NN    AA      AA    RRRRRRRR      
BBBBBBBB          II        NN  NN  NN    AA      AA    RRRRRRRR      
BB      BB        II        NN    NNNN    AAAAAAAAAA    RR  RR        
BB      BB        II        NN    NNNN    AAAAAAAAAA    RR  RR        
BB      BB        II        NN      NN    AA      AA    RR    RR      
BB      BB        II        NN      NN    AA      AA    RR    RR      
BBBBBBBB        IIIIII      NN      NN    AA      AA    RR      RR    
BBBBBBBB        IIIIII      NN      NN    AA      AA    RR      RR    




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:BINARY.FOR[1,2,FOROTS], created: 25-Mar-81 16:59:59,
        printed: 14-Aug-7 12:26:59
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
        PROGRAM BINARY

! This software is furnished under a license and may only be used
! or copied in accordance with the terms of such license.

! Copyright (C) 1981 by Digital Equipment Corporation

!       Version 6       BINARY.FOR      March 81

!       Basic BINARY I/O test.

        DOUBLE PRECISION D,DD

!       Data to be written out.

        I=1234; X=456.789; D=123456789.0123

!       No OPEN statement (implicit OPEN).

100     WRITE(20) I,X,D
        CLOSE(20)
        READ(20) II,XX,DD
        IF (I.NE.II) TYPE 110,I,II
        IF (X.NE.XX) TYPE 120,X,XX
        IF (D.NE.DD) TYPE 130,D,DD

110     FORMAT(' ?Error line 100.  Implicit OPEN.',/
        1       '  I='I' II='I)
120     FORMAT(' ?Error line 100.  Implicit OPEN.',/
        1       '  X='F' XX='F)
130     FORMAT(' ?Error line 100.  Implicit OPEN.',/
        1       '  D='D' DD='D)

!       OPEN statement, no MODE= specified.

        OPEN(UNIT=21)

200     WRITE(21) I,X,D
        CLOSE(21)
        OPEN(UNIT=21)
        READ(21) II,XX,DD
        IF (I.NE.II) TYPE 210,I,II
        IF (X.NE.XX) TYPE 220,X,XX
        IF (D.NE.DD) TYPE 230,D,DD

210     FORMAT(' ?Error line 200.  Default OPEN statement.',/
        1       '  I='I' II='I)
220     FORMAT(' ?Error line 200.  Default OPEN statement.',/
        1       '  X='F' XX='F)
230     FORMAT(' ?Error line 200.  Default OPEN statement.',/
        1       '  D='D' DD='D)
        CLOSE(UNIT=21)

!       OPEN statement with MODE= and ACESS= specified.

        OPEN(22,MODE='BINARY',ACCESS='SEQOUT')
300     WRITE(22) I,X,D
        CLOSE(22)
        OPEN(22,MODE='BINARY',ACCESS='SEQIN')
        READ(22) II,XX,DD






        IF (I.NE.II) TYPE 310,I,II
        IF (X.NE.XX) TYPE 320,X,XX
        IF (D.NE.DD) TYPE 330,D,DD

310     FORMAT(' ?Error line 300.  MODE= and ACCESS=.',/
        1       '  I='I' II='I)
320     FORMAT(' ?Error line 300.  MODE= and ACCESS=.',/
        1       '  X='F' XX='F)
330     FORMAT(' ?Error line 300.  MODE= and ACCESS=.',/
        1       '  D='D' DD='D)
        CLOSE(22)

        STOP
        END
DDDDDDDD        OOOOOO  
DDDDDDDD        OOOOOO  
DD      DD    OO      OO
DD      DD    OO      OO
DD      DD    OO      OO
DD      DD    OO      OO
DD      DD    OO      OO
DD      DD    OO      OO
DD      DD    OO      OO
DD      DD    OO      OO
DD      DD    OO      OO
DD      DD    OO      OO
DDDDDDDD        OOOOOO  
DDDDDDDD        OOOOOO  




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:DO.FOR[1,2,FOROTS], created: 25-Mar-81 17:00:59,
        printed: 14-Aug-7 12:26:59
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
DDDDDDDD        OOOOOO  
DDDDDDDD        OOOOOO  
DD      DD    OO      OO
DD      DD    OO      OO
DD      DD    OO      OO
DD      DD    OO      OO
DD      DD    OO      OO
DD      DD    OO      OO
DD      DD    OO      OO
DD      DD    OO      OO
DD      DD    OO      OO
DD      DD    OO      OO
DDDDDDDD        OOOOOO  
DDDDDDDD        OOOOOO  




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:DO.FOR[1,2,FOROTS], created: 25-Mar-81 17:00:59,
        printed: 14-Aug-7 12:26:59
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
        PROGRAM DO

! This software is furnished under a license and may only be used
! or copied in accordance with the terms of such license.

! Copyright (C) 1981 by Digital Equipment Corporation

!       Version 6       DO.FOR  March 81

!       Basic testing of DO loops.
!       The number of times the loop is executed is counted
!       then checked.

        ICOUNT=0
        DO 100 I=1,10
        ICOUNT=ICOUNT+1
100     CONTINUE
        IF (ICOUNT.NE.10) TYPE 110,ICOUNT
110     FORMAT(' ?Error line 100 ICOUNT='I6', should =10.')

        ICOUNT=0
        DO 200 I=100,11,-1
        ICOUNT=ICOUNT+1
200     CONTINUE
        IF (ICOUNT.NE.90) TYPE 210,ICOUNT
210     FORMAT(' ?Error line 200 ICOUNT='I6', should = 90.')


!       Simple implied DO loops and repeating Formats

300     WRITE(23,310) (I, I=1,20,2)
310     FORMAT(I)
        CLOSE(23)

        IEXPT=1
        DO 320 I=1,10
        READ(23,310) IVAR
        IF (IVAR.NE.IEXPT) TYPE 330,IVAR,IEXPT
        IEXPT=IEXPT+2
320     CONTINUE
330     FORMAT(' ?Error line 300 - Implied Do loops.')

        STOP
        END
FFFFFFFFFF        11          000000      TTTTTTTTTT      SSSSSSSS    
FFFFFFFFFF        11          000000      TTTTTTTTTT      SSSSSSSS    
FF              1111        00      00        TT        SS            
FF              1111        00      00        TT        SS            
FF                11        00    0000        TT        SS            
FF                11        00    0000        TT        SS            
FFFFFFFF          11        00  00  00        TT          SSSSSS      
FFFFFFFF          11        00  00  00        TT          SSSSSS      
FF                11        0000    00        TT                SS    
FF                11        0000    00        TT                SS    
FF                11        00      00        TT                SS    
FF                11        00      00        TT                SS    
FF              111111        000000          TT        SSSSSSSS      
FF              111111        000000          TT        SSSSSSSS      




  CCCCCCCC    TTTTTTTTTT    LL        
  CCCCCCCC    TTTTTTTTTT    LL        
CC                TT        LL        
CC                TT        LL        
CC                TT        LL        
CC                TT        LL        
CC                TT        LL        
CC                TT        LL        
CC                TT        LL        
CC                TT        LL        
CC                TT        LL        
CC                TT        LL        
  CCCCCCCC        TT        LLLLLLLLLL
  CCCCCCCC        TT        LLLLLLLLLL




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:F10TST.CTL[1,2,FOROTS], created: 22-Jul-81 15:41:00,
        printed: 14-Aug-7 12:26:59
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
FFFFFFFFFF        11          000000      TTTTTTTTTT      SSSSSSSS    
FFFFFFFFFF        11          000000      TTTTTTTTTT      SSSSSSSS    
FF              1111        00      00        TT        SS            
FF              1111        00      00        TT        SS            
FF                11        00    0000        TT        SS            
FF                11        00    0000        TT        SS            
FFFFFFFF          11        00  00  00        TT          SSSSSS      
FFFFFFFF          11        00  00  00        TT          SSSSSS      
FF                11        0000    00        TT                SS    
FF                11        0000    00        TT                SS    
FF                11        00      00        TT                SS    
FF                11        00      00        TT                SS    
FF              111111        000000          TT        SSSSSSSS      
FF              111111        000000          TT        SSSSSSSS      




  CCCCCCCC    TTTTTTTTTT    LL        
  CCCCCCCC    TTTTTTTTTT    LL        
CC                TT        LL        
CC                TT        LL        
CC                TT        LL        
CC                TT        LL        
CC                TT        LL        
CC                TT        LL        
CC                TT        LL        
CC                TT        LL        
CC                TT        LL        
CC                TT        LL        
  CCCCCCCC        TT        LLLLLLLLLL
  CCCCCCCC        TT        LLLLLLLLLL




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:F10TST.CTL[1,2,FOROTS], created: 22-Jul-81 15:41:00,
        printed: 14-Aug-7 12:26:59
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
;       Job to test the FORTRAN system on the DECsystem-10
;       SUBMIT F10TST.CTL/TIME:0:02:00


;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

;COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION

;       VERSION 6         F10TST.CTL    March 81

; Control file to run a small version of the Fortran version 6 test
; system and confirm that all essential parts of Fortran are present
; on tapes sent to field testing.

; Files needed on DSK:
;       F10TST.CTL      This file

;       FORTRA.EXE
;       FORTRA.HLP
;       FORTB.EXE
;       FORTC.EXE
;       FORTD.EXE
;       FORTE.EXE
;       FORTF.EXE
;       FORTG.EXE
;       FORLIB.REL
;       FOROT6.EXE
;       FORDDT.HLP
;       FORDDT.REL
;       SINGLE.EXE

;       ARRAYS.FOR
;       ASCII.FOR
;       BINARY.FOR
;       DO.FOR
;       GOTO.FOR
;       IF.FOR
;       IMAGE.FOR
;       LIB.FOR
;       RANDOM.FOR
;       SUBFUN.FOR
;       T4DDT.FOR

;       Get private copies of necessary system software.

.COPY = SYS:DDT.REL
.COPY = SYS:DIRECT.EXE
.COPY = SYS:COMPIL.EXE
.COPY = SYS:LINK.EXE
.COPY = SYS:LNK???.EXE
.COPY = SYS:PIP.EXE

;       Setup libraries.

.ASSIGN DSK: SYS:
.ASSIGN DSK: HLP:

;       Clean out.







.NOERROR
.DELETE ARRAYS.REL,ASCII.LST,ASCII.REL,BINARY.REL,DO.REL,GOTO.REL,IF.REL
.DELETE IMAGE.REL,LIB.REL,RANDOM.REL,SUBFUN.REL,T4DDT.REL
.DELETE FOR20.DAT,FOR21.DAT,FOR22.DAT,FOR23.DAT
.ERROR

;       Check for all required FORTRAN components.

.ERROR %
.DIRECT DSK:FORTRA.EXE,DSK:FORTRA.HLP,DSK:FORTB.EXE,DSK:FORTC.EXE
.DIRECT DSK:FORTD.EXE,DSK:FORTE.EXE,DSK:FORTF.EXE,DSK:FORTG.EXE
.DIRECT DSK:FORLIB.REL,DSK:FOROT6.EXE,DSK:FORDDT.HLP,DSK:FORDDT.REL
.ERROR
.IF (ERROR) .GOTO UERR


;       Warnings are not permitted either.
.ERROR %



;       Generate a binary (.REL) and listing (.LST) file
;        and verify that they were produced.
;       Also check the compiler HELP facility.

.R FORTRA
*ASCII,ASCII=ASCII.FOR
.IF (ERROR) .GOTO UERR
*/HELP
.IF (ERROR) .GOTO UERR
*^Z

.DIRECT ASCII.LST
.IF (ERROR) .GOTO UERR
.DIRECT ASCII.REL
.IF (ERROR) .GOTO UERR


;       Test to see that all intrinsic functions and Fortran supplied
;       subroutines exist in FORLIB. If LINK produces an error such
;       as "Undefined Globals", then some of the routines are missing.
;       Program is merely loaded, not executed.

.COMPILE LIB.FOR
.LOAD LIB.REL
.IF (ERROR) .GOTO UERR


;       Run FORDDT & make sure it works minimally.
;       No errors of any type should appear.

.DEBUG T4DDT.FOR /DEBUG:ALL
*T4DDT
*HELP
*PAUSE 10
*START
*TYPE X
*MODE I
*TYPE I
*STOP






.IF (ERROR) .GOTO UERR


;       Test non-sharable FOROTS.
;       ASCII previously compiled.

.R LINK
*ASCII.REL /OTS:NONSHAR /GO
.START
.IF (ERROR) .GOTO UERR


;       Try FORDDT with the non-sharable FOROTS.

.COMPILE T4DDT.FOR /COMP /DEB:(DIM,BOU)
.R LINK
*T4DDT.REL /SEG:LOW  /DEBUG:FORTRA /OTS:NONSHAR /GO
*T4DDT
*PAUSE 10
*START
*TYPE X
*CONTINUE
.IF (ERROR) .GOTO UERR


;       Test arrays.
 
.EXECUTE ARRAYS.FOR
.IF (ERROR) .GOTO UERR
.EXECUTE ARRAYS.FOR /COMP /OPT
.IF (ERROR) .GOTO UERR
 
 
;       Test ASCII I/O.
 
.EXECUTE ASCII.FOR /COMP
.IF (ERROR) .GOTO UERR
.EXECUTE ASCII.FOR /COMP /OPT
.IF (ERROR) .GOTO UERR
 
 
;       Test BINARY I/O.
 
.EXECUTE BINARY.FOR
.IF (ERROR) .GOTO UERR
.EXECUTE BINARY.FOR /COMP /OPT
.IF (ERROR) .GOTO UERR
 
 
;       Test DO loops.
 
.EXECUTE DO.FOR
.IF (ERROR) .GOTO UERR
.EXECUTE DO.FOR /COMP /OPT
.IF (ERROR) .GOTO UERR
 
 
;       Test GO TO statements.

.EXECUTE GOTO.FOR






.IF (ERROR) .GOTO UERR
.EXECUTE GOTO.FOR /COMP /OPT
.IF (ERROR) .GOTO UERR
 
 
;       Test IF statements.
 
.EXECUTE IF.FOR
.IF (ERROR) .GOTO UERR
.EXECUTE IF.FOR /COMP /OPT
.IF (ERROR) .GOTO UERR
 
 
;       Test IMAGE I/O.
 
.EXECUTE IMAGE.FOR
.IF (ERROR) .GOTO UERR
.EXECUTE IMAGE.FOR /COMP /OPT
.IF (ERROR) .GOTO UERR
 
 
;       Test RANDOM access I/O.
 
.EXECUTE RANDOM.FOR
.IF (ERROR) .GOTO UERR
.EXECUTE RANDOM.FOR /COMP /OPT
.IF (ERROR) .GOTO UERR
 
 
;       Test subroutines and functions.
 
.EXECUTE SUBFUN.FOR
.IF (ERROR) .GOTO UERR
.EXECUTE SUBFUN.FOR /COMP /OPT
.IF (ERROR) .GOTO UERR
 
 
;       Check out single segment compiler (unsupported).

.DIRECT DSK:SINGLE.EXE
.IF (ERROR) .GOTO UERR

.NOERROR
.DELETE ASCII.LST,ASCII.REL
.ERROR %

.R SINGLE
*ASCII,ASCII=ASCII.FOR
.IF (ERROR) .GOTO UERR
*^Z

.DIRECT ASCII.LST
.IF (ERROR) .GOTO UERR
.DIRECT ASCII.REL
.IF (ERROR) .GOTO UERR

.EXECUTE ASCII.REL
.IF (ERROR) .GOTO UERR

.R SINGLE






*ASCII=ASCII.FOR /OPT
.IF (ERROR) .GOTO UERR
*^Z
.EXECUTE ASCII.REL
.IF (ERROR) .GOTO UERR


.GOTO END



%CERR::
.GOTO UERR

%ERR::
.GOTO UERR

UERR::
;       *****************************************************
;       *****************************************************
;       *                                                   *
;       *       ?Unexpected error - should not occur        *
;       *                                                   *
;       *****************************************************
;       *****************************************************
.GOTO END

END::
;       Cleanup.
.
.DEASSIGN SYS:
.NOERROR
.DELETE DDT.REL,DIRECT.EXE,COMPIL.EXE,LINK.EXE,LNK???.EXE,PIP.EXE
.DELETE ARRAYS.REL,ASCII.LST,ASCII.REL,BINARY.REL,DO.REL,GOTO.REL,IF.REL
.DELETE IMAGE.REL,LIB.REL,RANDOM.REL,SUBFUN.REL,T4DDT.REL
.DELETE FOR20.DAT,FOR21.DAT,FOR22.DAT,FOR23.DAT
.ERROR

%FIN::

;       [End F10TST.CTL]
FFFFFFFFFF      OOOOOO      RRRRRRRR      TTTTTTTTTT    RRRRRRRR      
FFFFFFFFFF      OOOOOO      RRRRRRRR      TTTTTTTTTT    RRRRRRRR      
FF            OO      OO    RR      RR        TT        RR      RR    
FF            OO      OO    RR      RR        TT        RR      RR    
FF            OO      OO    RR      RR        TT        RR      RR    
FF            OO      OO    RR      RR        TT        RR      RR    
FFFFFFFF      OO      OO    RRRRRRRR          TT        RRRRRRRR      
FFFFFFFF      OO      OO    RRRRRRRR          TT        RRRRRRRR      
FF            OO      OO    RR  RR            TT        RR  RR        
FF            OO      OO    RR  RR            TT        RR  RR        
FF            OO      OO    RR    RR          TT        RR    RR      
FF            OO      OO    RR    RR          TT        RR    RR      
FF              OOOOOO      RR      RR        TT        RR      RR    
FF              OOOOOO      RR      RR        TT        RR      RR    




VV      VV    EEEEEEEEEE    RRRRRRRR  
VV      VV    EEEEEEEEEE    RRRRRRRR  
VV      VV    EE            RR      RR
VV      VV    EE            RR      RR
VV      VV    EE            RR      RR
VV      VV    EE            RR      RR
VV      VV    EEEEEEEE      RRRRRRRR  
VV      VV    EEEEEEEE      RRRRRRRR  
VV      VV    EE            RR  RR    
VV      VV    EE            RR  RR    
  VV  VV      EE            RR    RR  
  VV  VV      EE            RR    RR  
    VV        EEEEEEEEEE    RR      RR
    VV        EEEEEEEEEE    RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:FORTRA.VER[1,2,FOROTS], created: 22-Jul-81 15:42:00,
        printed: 14-Aug-7 12:27:00
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
FFFFFFFFFF      OOOOOO      RRRRRRRR      TTTTTTTTTT    RRRRRRRR      
FFFFFFFFFF      OOOOOO      RRRRRRRR      TTTTTTTTTT    RRRRRRRR      
FF            OO      OO    RR      RR        TT        RR      RR    
FF            OO      OO    RR      RR        TT        RR      RR    
FF            OO      OO    RR      RR        TT        RR      RR    
FF            OO      OO    RR      RR        TT        RR      RR    
FFFFFFFF      OO      OO    RRRRRRRR          TT        RRRRRRRR      
FFFFFFFF      OO      OO    RRRRRRRR          TT        RRRRRRRR      
FF            OO      OO    RR  RR            TT        RR  RR        
FF            OO      OO    RR  RR            TT        RR  RR        
FF            OO      OO    RR    RR          TT        RR    RR      
FF            OO      OO    RR    RR          TT        RR    RR      
FF              OOOOOO      RR      RR        TT        RR      RR    
FF              OOOOOO      RR      RR        TT        RR      RR    




VV      VV    EEEEEEEEEE    RRRRRRRR  
VV      VV    EEEEEEEEEE    RRRRRRRR  
VV      VV    EE            RR      RR
VV      VV    EE            RR      RR
VV      VV    EE            RR      RR
VV      VV    EE            RR      RR
VV      VV    EEEEEEEE      RRRRRRRR  
VV      VV    EEEEEEEE      RRRRRRRR  
VV      VV    EE            RR  RR    
VV      VV    EE            RR  RR    
  VV  VV      EE            RR    RR  
  VV  VV      EE            RR    RR  
    VV        EEEEEEEEEE    RR      RR
    VV        EEEEEEEEEE    RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:FORTRA.VER[1,2,FOROTS], created: 22-Jul-81 15:42:00,
        printed: 14-Aug-7 12:27:00
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII

;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

;COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION

;       VERSION 6         FORTRA.VER    March 81

;       Mini-test of Fortran using UETP

.R SETSRC
*CP [5,33,FORTRA]
*LIB:[5,33]
*SCAN
*^Z

.SET DEFAULT PROTECTION <000>


BEGIN::

; Files needed in the UTP: area:
;       FORTRA.VER      This file
;       FORTRA.SFD      Work area must be protected <777>
;       ARRAYS.FOR
;       ASCII.FOR
;       BINARY.FOR
;       DO.FOR
;       GOTO.FOR
;       IF.FOR
;       IMAGE.FOR
;       LIB.FOR
;       RANDOM.FOR
;       SUBFUN.FOR
;       T4DDT.FOR

.RUN UTP:SENDER
*TYPE START
*BLABEL BEGIN:
*TEST FORTRA
*SEND Start of Fortran test.
*EXIT

;       Clean up

.NOERROR
.DELETE ARRAYS.REL,ASCII.LST,ASCII.REL,BINARY.REL,DO.REL,GOTO.REL,IF.REL
.DELETE IMAGE.REL,LIB.REL,RANDOM.REL,SUBFUN.REL,T4DDT.REL
.DELETE FOR20.DAT,FOR21.DAT,FOR22.DAT,FOR23.DAT
.ERROR

;       Check for all required FORTRAN components on this system.

.GET SYS:FORTRA
.IF (ERROR) .GOTO NOFOR
.VERSION
.GET SYS:FORTB.EXE
.IF (ERROR) .GOTO NOFOR
.VERSION
.GET SYS:FORTC.EXE






.IF (ERROR) .GOTO NOFOR
.VERSION
.GET SYS:FORTD.EXE
.IF (ERROR) .GOTO NOFOR
.VERSION
.GET SYS:FORTE.EXE
.IF (ERROR) .GOTO NOFOR
.VERSION
.GET SYS:FORTF.EXE
.IF (ERROR) .GOTO NOFOR
.VERSION
.GET SYS:FORTG.EXE
.IF (ERROR) .GOTO NOFOR
.VERSION
.GET SYS:FOROT6.EXE
.IF (ERROR) .GOTO NOFOR
.VERSION

.ERROR %
.DIRECT HLP:FORTRA.HLP
.IF (ERROR) .GOTO NOFOR
.DIRECT SYS:FORLIB.REL
.IF (ERROR) .GOTO NOFOR
.DIRECT HLP:FORDDT.HLP
.IF (ERROR) .GOTO NOFOR
.DIRECT SYS:FORDDT.REL
.IF (ERROR) .GOTO NOFOR
.ERROR
.GOTO FORT

NOFOR::
;       Complete FORTRAN system not available.
.
.RUN UTP:SENDER
*BLABEL BEGIN:
*TEST FORTRA
*SEND FORTRAN system not available.
*EXIT
.GOTO END



FORT::

;       Warnings are not permitted either.
.ERROR %


;       Generate a binary (.REL) and listing (.LST) file
;        and verify that they were produced.
;       Also check the compiler HELP facility.

.R FORTRA
*ASCII,ASCII=ASCII.FOR
.IF (ERROR) .GOTO B1
*/HELP
.IF (ERROR) .GOTO B1
*^Z
.DIRECT ASCII.LST       
.IF (ERROR) .GOTO B1






.DIRECT ASCII.REL
.IF (ERROR) .GOTO B1
.GOTO EX2
 
B1::
.R UTP:SENDER
*TYPE ERROR
*BLABEL FORT:
*TEST FORTRA
*SEND Errors generating binary or listing file, or getting help.
*EXIT
.GOTO END



EX2::
;       Test to see that all intrinsic functions and Fortran supplied
;       subroutines exist in FORLIB. If LINK produces an error such
;       as "Undefined Globals", then some of the routines are missing.
;       Progam is merely loaded, not executed.

.COMPILE LIB.FOR
.LOAD LIB.REL
.IF (ERROR) .GOTO B2
.GOTO EX3

B2::
.R UTP:SENDER
*TYPE ERROR
*BLABEL EX2:
*TEST FORTRA
*SEND Problems with or routines missing from FORLIB.REL.
*EXIT
;       Continue the tests in this case.



EX3::
;       Run FORDDT & make sure it works minimally.
;       No errors of any type should appear.

.DEBUG T4DDT.FOR /DEBUG:ALL
*T4DDT
*HELP
*PAUSE 10
*START
*TYPE X
*MODE I
*TYPE I
*STOP
.IF (ERROR) .GOTO B3
.GOTO EX4
 
B3::
.R UTP:SENDER
*TYPE ERROR
*BLABEL EX3:
*TEST FORTRA
*SEND Error in FORDDT test.
*EXIT






;       Continue the tests in this case.



EX4::
;       Test for non-sharable FOROTS.
;       ASCII previously compiled.

.R LINK
*ASCII.REL /OTS:NONSHAR /GO
.START
.IF (ERROR) .GOTO B4
.GOTO EX5
 
B4::
.R UTP:SENDER
*TYPE ERROR
*BLABEL EX4:
*TEST FORTRA
*SEND Error in Non-sharable FOROTS test.
*EXIT
;       Continue the tests in this case.



EX5::
;       Try FORDDT with the non-sharable FOROTS.

.COMPILE T4DDT.FOR /COMP /DEBUG:(DIM,BOU)
.R LINK
*T4DDT.REL /SEG:LOW /DEBUG:FORTRA /OTS:NONSHAR /GO
*T4DDT
*PAUSE 10
*START
*TYPE X
*CONTINUE
.IF (ERROR) .GOTO B5
.GOTO EX6
 
B5::
.R UTP:SENDER
*TYPE ERROR
*BLABEL EX5:
*TEST FORTRA
*SEND Error in FORDDT/Non-sharable FOROTS test.
*EXIT
;       Continue the tests in this case.



EX6::
;       Test arrays.
 
.COMPILE ARRAYS.FOR
.EXECUTE
.IF (ERROR) .GOTO B6
.GOTO EX7
 
B6::
.R UTP:SENDER






*TYPE ERROR
*BLABEL EX6:
*TEST FORTRA
*SEND Error in array test.
*EXIT
;       Continue the tests in this case.


EX7::
;       Same only optimized.

.COMPILE ARRAYS.FOR /COMP /OPT
.EXECUTE
.IF (ERROR) .GOTO B7
.GOTO EX8

B7::
.R UTP:SENDER
*TYPE ERROR
*BLABEL EX7:
*TEST FORTRA
*SEND Error in array test (/OPT).
*EXIT
;       Continue the tests in this case.
 
 

EX8::
;       Test ASCII I/O.
 
.COMPILE ASCII.FOR /COMP
.EXECUTE
.IF (ERROR) .GOTO B8
.GOTO EX9
 
B8::
.R UTP:SENDER
*TYPE ERROR
*BLABEL EX8:
*TEST FORTRA
*SEND Error in ASCII I/O test.
*EXIT
;       Continue the tests in this case.


EX9::
;       Same only optimized.

.COMPILE ASCII.FOR /COMP /OPT
.EXECUTE
.IF (ERROR) .GOTO B9
.GOTO EX10
 
B9::
.R UTP:SENDER
*TYPE ERROR
*BLABEL EX9:
*TEST FORTRA
*SEND Error in ASCII I/O test (/OPT).
*EXIT






;       Continue the tests in this case.
 

 
EX10::
;       Test BINARY I/O.
 
.COMPILE BINARY.FOR
.EXECUTE
.IF (ERROR) .GOTO B10
.GOTO EX11
 
B10::
.R UTP:SENDER
*TYPE ERROR
*BLABEL EX10:
*TEST FORTRA
*SEND Error in BINARY I/O test.
*EXIT
;       Continue the tests in this case.


EX11::
;       Same only optimized.

.COMPILE BINARY.FOR /COMP /OPT
.EXECUTE
.IF (ERROR) .GOTO B11
.GOTO EX12
 
B11::
.R UTP:SENDER
*TYPE ERROR
*BLABEL EX11:
*TEST FORTRA
*SEND Error in BINARY I/O test (/OPT).
*EXIT
;       Continue the tests in this case.

 
 
EX12::
;       Test DO loops.
 
.COMPILE DO.FOR
.EXECUTE
.IF (ERROR) .GOTO B12
.GOTO EX13
 
B12::
.R UTP:SENDER
*TYPE ERROR
*BLABEL EX12:
*TEST FORTRA
*SEND Error in DO loop test.
*EXIT
;       Continue the tests in this case.


EX13::






;       Same only optimized.

.COMPILE DO.FOR /COMP /OPT
.EXECUTE
.IF (ERROR) .GOTO B13
.GOTO EX14
 
B13::
.R UTP:SENDER
*TYPE ERROR
*BLABEL EX13:
*TEST FORTRA
*SEND Error in DO loop test (/OPT).
*EXIT
;       Continue the tests in this case.

 
 
EX14::
;       Test GO TO statements.

.COMPILE GOTO.FOR
.EXECUTE
.IF (ERROR) .GOTO B14
.GOTO EX15
 
B14::
.R UTP:SENDER
*TYPE ERROR
*BLABEL EX14:
*TEST FORTRA
*SEND Error in GO TO test.
*EXIT
;       Continue the tests in this case.


EX15::
;       Same only optimized.

.COMPILE GOTO.FOR /COMP /OPT
.EXECUTE
.IF (ERROR) .GOTO B15
.GOTO EX16
 
B15::
.R UTP:SENDER
*TYPE ERROR
*BLABEL EX15:
*TEST FORTRA
*SEND Error in GO TO test (/OPT).
*EXIT
;       Continue the tests in this case.

 
 
EX16::
;       Test IF statements.
 
.COMPILE IF.FOR
.EXECUTE






.IF (ERROR) .GOTO B16
.GOTO EX17
 
B16::
.R UTP:SENDER
*TYPE ERROR
*BLABEL EX16:
*TEST FORTRA
*SEND Error in IF statement test.
*EXIT
;       Continue the tests in this case.


EX17::
;       Same only optimized.

.COMPILE IF.FOR /COMP /OPT
.EXECUTE
.IF (ERROR) .GOTO B17
.GOTO EX18
 
B17::
.R UTP:SENDER
*TYPE ERROR
*BLABEL EX17:
*TEST FORTRA
*SEND Error in IF statement test (/OPT).
*EXIT
;       Continue the tests in this case.

 
 
EX18::
;       Test IMAGE I/O.
 
.COMPILE IMAGE.FOR
.EXECUTE
.IF (ERROR) .GOTO B18
.GOTO EX19
 
B18::
.R UTP:SENDER
*TYPE ERROR
*BLABEL EX18:
*TEST FORTRA
*SEND Error in IMAGE I/O test.
*EXIT
;       Continue the tests in this case.


EX19::
;       Same only optimized.

.COMPILE IMAGE.FOR /COMP /OPT
.EXECUTE
.IF (ERROR) .GOTO B19
.GOTO EX20
 
B19::
.R UTP:SENDER






*TYPE ERROR
*BLABEL EX19:
*TEST FORTRA
*SEND Error in IMAGE I/O test (/OPT).
*EXIT
;       Continue the tests in this case.
 
 

EX20::
;       Test RANDOM access I/O.
 
.COMPILE RANDOM.FOR
.EXECUTE
.IF (ERROR) .GOTO B20
.GOTO EX21
 
B20::
.R UTP:SENDER
*TYPE ERROR
*BLABEL EX20:
*TEST FORTRA
*SEND Error in RANDOM access I/O test.
*EXIT
;       Continue the tests in this case.


EX21::
;       Same only optimized.

.COMPILE RANDOM.FOR /COMP /OPT
.EXECUTE
.IF (ERROR) .GOTO B21
.GOTO EX22
 
B21::
.R UTP:SENDER
*TYPE ERROR
*BLABEL EX21:
*TEST FORTRA
*SEND Error in RANDOM access I/O test (/OPT).
*EXIT
;       Continue the tests in this case.

 
 
EX22::
;       Test subroutines and functions.
 
.COMPILE SUBFUN.FOR
.EXECUTE
.IF (ERROR) .GOTO B22
.GOTO EX23
 
B22::
.R UTP:SENDER
*TYPE ERROR
*BLABEL EX22:
*TEST FORTRA
*SEND Error in subroutine/function test.






*EXIT
;       Continue the tests in this case.


EX23::
;       Same only optimized.

.COMPILE SUBFUN.FOR /COMP /OPT
.EXECUTE
.IF (ERROR) .GOTO B23
.GOTO END
 
B23::
.R UTP:SENDER
*TYPE ERROR
*BLABEL EX23:
*TEST FORTRA
*SEND Error in subroutine/function test (/OPT).
*EXIT
.GOTO END
 
 

%CERR::
.GOTO UERR

%ERR::
.GOTO UERR

UERR::
;       An unexpected error occured somewhere.
.
.RUN UTP:SENDER
*TYPE ERROR
*BLABEL ERR:
*TEST FORTRA
*SEND Unknown Fortran error - check .LOG file.
*EXIT
.GOTO END



END::
;       Cleanup and finish.
.
.NOERROR
.DELETE ARRAYS.REL,ASCII.LST,ASCII.REL,BINARY.REL,DO.REL,GOTO.REL,IF.REL
.DELETE IMAGE.REL,LIB.REL,RANDOM.REL,SUBFUN.REL,T4DDT.REL
.DELETE FOR20.DAT,FOR21.DAT,FOR22.DAT,FOR23.DAT
.ERROR

.RUN UTP:SENDER
*TYPE END
*BLABEL END:
*TEST FORTRA
*SEND End of FORTRAN test.
*EXIT
 
%FIN::







;       End of tests.
  GGGGGGGG      OOOOOO      TTTTTTTTTT      OOOOOO  
  GGGGGGGG      OOOOOO      TTTTTTTTTT      OOOOOO  
GG            OO      OO        TT        OO      OO
GG            OO      OO        TT        OO      OO
GG            OO      OO        TT        OO      OO
GG            OO      OO        TT        OO      OO
GG            OO      OO        TT        OO      OO
GG            OO      OO        TT        OO      OO
GG  GGGGGG    OO      OO        TT        OO      OO
GG  GGGGGG    OO      OO        TT        OO      OO
GG      GG    OO      OO        TT        OO      OO
GG      GG    OO      OO        TT        OO      OO
  GGGGGG        OOOOOO          TT          OOOOOO  
  GGGGGG        OOOOOO          TT          OOOOOO  




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:GOTO.FOR[1,2,FOROTS], created: 25-Mar-81 21:14:00,
        printed: 14-Aug-7 12:27:00
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
  GGGGGGGG      OOOOOO      TTTTTTTTTT      OOOOOO  
  GGGGGGGG      OOOOOO      TTTTTTTTTT      OOOOOO  
GG            OO      OO        TT        OO      OO
GG            OO      OO        TT        OO      OO
GG            OO      OO        TT        OO      OO
GG            OO      OO        TT        OO      OO
GG            OO      OO        TT        OO      OO
GG            OO      OO        TT        OO      OO
GG  GGGGGG    OO      OO        TT        OO      OO
GG  GGGGGG    OO      OO        TT        OO      OO
GG      GG    OO      OO        TT        OO      OO
GG      GG    OO      OO        TT        OO      OO
  GGGGGG        OOOOOO          TT          OOOOOO  
  GGGGGG        OOOOOO          TT          OOOOOO  




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:GOTO.FOR[1,2,FOROTS], created: 25-Mar-81 21:14:00,
        printed: 14-Aug-7 12:27:00
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
        PROGRAM GOTO

! This software is furnished under a license and may only be used
! or copied in accordance with the terms of such license.

! Copyright (C) 1981 by Digital Equipment Corporation

!       Version 6       GOTO.FOR        March 81

!       Basic test of GOTO statement.

!       GOTO 110 should not be taken, but GOTO 120 should.

        X=3
100     IF (X.NE.3) GOTO 110
        GOTO 120
110     TYPE 115
115     FORMAT(' ?Error 100. GOTO was taken')
120     CONTINUE

!       GOTO 210 should be taken.

200     IF (X.EQ.3) GOTO 210
        TYPE 205
205     FORMAT(' ?Error 200. GOTO not taken')
210     CONTINUE

!       GOTO 340 should be executed.

        I=4
300     GOTO (310,320,330,340,350,360),I
310     CONTINUE
320     CONTINUE
330     CONTINUE
350     CONTINUE
360     CONTINUE
        TYPE 370
370     FORMAT(' ?Incorect calculated GOTO taken')
340     CONTINUE        !This is where we should be branch.

        STOP
        END
  IIIIII      FFFFFFFFFF
  IIIIII      FFFFFFFFFF
    II        FF        
    II        FF        
    II        FF        
    II        FF        
    II        FFFFFFFF  
    II        FFFFFFFF  
    II        FF        
    II        FF        
    II        FF        
    II        FF        
  IIIIII      FF        
  IIIIII      FF        




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:IF.FOR[1,2,FOROTS], created: 25-Mar-81 21:16:00,
        printed: 14-Aug-7 12:27:01
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
  IIIIII      FFFFFFFFFF
  IIIIII      FFFFFFFFFF
    II        FF        
    II        FF        
    II        FF        
    II        FF        
    II        FFFFFFFF  
    II        FFFFFFFF  
    II        FF        
    II        FF        
    II        FF        
    II        FF        
  IIIIII      FF        
  IIIIII      FF        




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:IF.FOR[1,2,FOROTS], created: 25-Mar-81 21:16:00,
        printed: 14-Aug-7 12:27:01
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
        PROGRAM IF

! This software is furnished under a license and may only be used
! or copied in accordance with the terms of such license.

! Copyright (C) 1981 by Digital Equipment Corporation

!       Version 6       IF.FOR  March 81

!       Basic testing of IF statement.

        DOUBLE PRECISION D
        LOGICAL TORF,LOG

!       If statements with relationals .LT.,.LE.,.EQ.,.GE.,.GT.,
!       .OR.,.AND. used.

        M=3
50      IF (M.EQ.3) GOTO 60
        TYPE 55
55      FORMAT(' ?Error line 50, GOTO not taken.')
60      CONTINUE

        TORF=.FALSE.
        I=4; X=3.3
100     IF ((I.EQ.4).AND.(X.LE.3.4)) TORF=.TRUE.
        IF (TORF.NE..TRUE.) TYPE 110
110     FORMAT(' ?Error line 100. TORF=.FALSE., should = .TRUE.')

        QQ=66.5; D=9.99998889999; N=1; P=3
200     IF (D.GT.6D0 .OR. N.NE.P) QQ=77.5
        IF (QQ.EQ.66.5) TYPE 210
        IF (QQ.NE.77.5) TYPE 220,QQ
210     FORMAT(' ?Error line 200. QQ = 66.5, should = 77.5')
220     FORMAT(' ?Error line 200. QQ = 'F', should = 77.5')

        RESULT=0                !IF should fail
        D=10; P=1; M=P; TORF=.FALSE.; J=-1
300     IF (D.GE.11 .OR. P.NE.M .OR.(TORF.AND.J.LT.M)) RESULT=10
        IF (RESULT.NE.0) TYPE 310,RESULT
310     FORMAT(' ?Error line 300. RESULT = 'F', should = 0')

!       Arithmetic IF statement

        I=3; D=2
400     IF (I-(D+1)) 410,420,430
410     CONTINUE
430     CONTINUE
        TYPE 435
435     FORMAT(' ?Error IF 400.  Wrong branch taken')
420     CONTINUE

!       Logical Two-branch IF statement

        LOG=.TRUE.
500     IF (.NOT. LOG) 510,520
510     TYPE 515
515     FORMAT(' ?Error 510 branch taken, statement evaluated'
        1 ' as true.')
520     CONTINUE







        STOP
        END
  IIIIII      MM      MM      AAAAAA        GGGGGGGG    EEEEEEEEEE
  IIIIII      MM      MM      AAAAAA        GGGGGGGG    EEEEEEEEEE
    II        MMMM  MMMM    AA      AA    GG            EE        
    II        MMMM  MMMM    AA      AA    GG            EE        
    II        MM  MM  MM    AA      AA    GG            EE        
    II        MM  MM  MM    AA      AA    GG            EE        
    II        MM      MM    AA      AA    GG            EEEEEEEE  
    II        MM      MM    AA      AA    GG            EEEEEEEE  
    II        MM      MM    AAAAAAAAAA    GG  GGGGGG    EE        
    II        MM      MM    AAAAAAAAAA    GG  GGGGGG    EE        
    II        MM      MM    AA      AA    GG      GG    EE        
    II        MM      MM    AA      AA    GG      GG    EE        
  IIIIII      MM      MM    AA      AA      GGGGGG      EEEEEEEEEE
  IIIIII      MM      MM    AA      AA      GGGGGG      EEEEEEEEEE




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:IMAGE.FOR[1,2,FOROTS], created: 25-Mar-81 17:00:59,
        printed: 14-Aug-7 12:27:01
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
  IIIIII      MM      MM      AAAAAA        GGGGGGGG    EEEEEEEEEE
  IIIIII      MM      MM      AAAAAA        GGGGGGGG    EEEEEEEEEE
    II        MMMM  MMMM    AA      AA    GG            EE        
    II        MMMM  MMMM    AA      AA    GG            EE        
    II        MM  MM  MM    AA      AA    GG            EE        
    II        MM  MM  MM    AA      AA    GG            EE        
    II        MM      MM    AA      AA    GG            EEEEEEEE  
    II        MM      MM    AA      AA    GG            EEEEEEEE  
    II        MM      MM    AAAAAAAAAA    GG  GGGGGG    EE        
    II        MM      MM    AAAAAAAAAA    GG  GGGGGG    EE        
    II        MM      MM    AA      AA    GG      GG    EE        
    II        MM      MM    AA      AA    GG      GG    EE        
  IIIIII      MM      MM    AA      AA      GGGGGG      EEEEEEEEEE
  IIIIII      MM      MM    AA      AA      GGGGGG      EEEEEEEEEE




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:IMAGE.FOR[1,2,FOROTS], created: 25-Mar-81 17:00:59,
        printed: 14-Aug-7 12:27:01
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
        PROGRAM IMAGE

! This software is furnished under a license and may only be used
! or copied in accordance with the terms of such license.

! Copyright (C) 1981 by Digital Equipment Corporation

!       Version 6       IMAGE.FOR       March 81

!       Basic IMAGE I/O test.

        DOUBLE PRECISION D,DD

!       Data to be written out.

        I=1234; X=456.789; D=123456789.0123

!       OPEN with MODE= and ACCESS= specified.

        OPEN(22,MODE='IMAGE',ACCESS='SEQOUT')
300     WRITE(22) I,X,D
        CLOSE(22)
        OPEN(22,MODE='IMAGE',ACCESS='SEQIN')
        READ(22) II,XX,DD
        IF (I.NE.II) TYPE 310,I,II
        IF (X.NE.XX) TYPE 320,X,XX
        IF (D.NE.DD) TYPE 330,D,DD

310     FORMAT(' ?Error line 300.  IMAGE I/O.',/
        1       '  I='I' II='I)
320     FORMAT(' ?Error line 300.  IMAGE I/O.',/
        1       '  X='F' XX='F)
330     FORMAT(' ?Error line 300.  IMAGE I/O.',/
        1       '  D='D' DD='D)
        CLOSE(22)

        STOP
        END
LL              IIIIII      BBBBBBBB  
LL              IIIIII      BBBBBBBB  
LL                II        BB      BB
LL                II        BB      BB
LL                II        BB      BB
LL                II        BB      BB
LL                II        BBBBBBBB  
LL                II        BBBBBBBB  
LL                II        BB      BB
LL                II        BB      BB
LL                II        BB      BB
LL                II        BB      BB
LLLLLLLLLL      IIIIII      BBBBBBBB  
LLLLLLLLLL      IIIIII      BBBBBBBB  




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:LIB.FOR[1,2,FOROTS], created: 25-Mar-81 17:01:59,
        printed: 14-Aug-7 12:27:01
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
LL              IIIIII      BBBBBBBB  
LL              IIIIII      BBBBBBBB  
LL                II        BB      BB
LL                II        BB      BB
LL                II        BB      BB
LL                II        BB      BB
LL                II        BBBBBBBB  
LL                II        BBBBBBBB  
LL                II        BB      BB
LL                II        BB      BB
LL                II        BB      BB
LL                II        BB      BB
LLLLLLLLLL      IIIIII      BBBBBBBB  
LLLLLLLLLL      IIIIII      BBBBBBBB  




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:LIB.FOR[1,2,FOROTS], created: 25-Mar-81 17:01:59,
        printed: 14-Aug-7 12:27:01
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
        PROGRAM LIB

! This software is furnished under a license and may only be used
! or copied in accordance with the terms of such license.

! Copyright (C) 1981 by Digital Equipment Corporation

!       Version 6       LIB.FOR March 81

C       Test to see if all intrinsic funtions an Fortran supplied
C       subroutines exist.  If they don't the LINK-er will complain.

        DOUBLE PRECISION D,D2(2)
        COMPLEX C,C2(2)
C
        STOP   ! We don't really want to execute.
C
 1000   CALL CHKDIV(I)
        CALL CLRFMT(C2)
        CALL DATE(II)
        CALL DIVERT(I,I)
        CALL DUMP(I,I,I)
        CALL ERRSET(I,I,I)
        CALL ERRSNS(I,I)
        CALL EXIT
        CALL ILL
        CALL LEGAL
        CALL LSNGET(I,I)
        CALL OVERFL
        CALL PDUMP(I,I,I)
        CALL SAVFMT(II,I)
        CALL SAVRAN(I)
        CALL SETRAN(I)
        CALL TIME(I,I)
        CALL TRACE
        CALL SLITET
        CALL SLITE
        CALL SSWTCH

        CALL AXIS  ! Plot routines
        CALL LINE
        CALL MKTBL
        CALL NUMBER
        CALL PLOT
        CALL PLOTS
        CALL SCALE
        CALL SETABL
        CALL SYMBOL
        CALL WHERE
! INTRINSIC FUNCTIONS
        X=ABS(X)
        I=IABS(I)
        D=DABS(D)
        C=CABS(C)
        X=FLOAT(I)
        I=IFIX(X)
        X=SNGL(D)
        X=DBLE(X)
        X=DFLOAT(I)
        X=REAL(C)






        X=AIMAG(C)
        C=CMPLX(X,X)
        X=AINT(X)
        I=INT(X)
        I=IDINT(D)
        X=AMOD(X,X)
        X=MOD(X,X)
        X=DMOD(D,D)
        X=AMAX0(I,I)
        X=AMAX1(X,X)
        X=MAX0(I,I)
        X=DMAX1(D,D)
        I=MAX1(X,X)
        X=AMIN0(I,I)
        X=AMIN1(X,X)
        X=MIN0(I,I)
        X=MIN1(X,X)
        X=DMIN1(D,D)
        X=SIGN(X,X)
        X=ISIGN(I,I)
        X=DSIGN(D,D)
        X=DIM(X,X)
        X=IDIM(I,I)

! Basic external functions

        X=EXP(X)
        X=DEXP(D)
        X=CEXP(C)
        X=CDEXP(C2,C2)
        X=ALOG(X)
        X=ALOG10(X)
        X=DLOG(D)
        X=DLOG10(D)
        X=CLOG(C)
        X=SQRT(X)
        X=DSQRT(D)
        X=CSQRT(C)
        X=SIN(X)
        X=SIND(X)
        X=DSIN(D)
        X=CSIN(C)
        X=COS(X)
        X=COSD(X)
        X=DCOS(D)
        X=CCOS(C)
        X=TAN(X)
        X=COTAN(X)
        X=DTAN(D)
        X=DCOTAN(D)
        X=SINH(X)
        X=DSINH(D)
        X=COSH(X)
        X=DCOSH(D)
        X=TANH(X)
        X=DTANH(D)
        X=ASIN(X)
        X=DASIN(D)
        X=ACOS(X)
        X=DACOS(D)






        X=ATAN(X)
        X=DATAN(D)
        X=ATAN(X)
        X=DATAN(D)
        X=ATAN2(R,R)
        X=DATAN2(D,D)
        X=CONJG(C)
        X=RAN(X)
        X=TIM2GO(0)
        X=CDABS(D2)
        X=CDEXP(C2,C2)
        X=CDLOG(C2,C2)
        X=CDLOG(C2,C2)
        X=CDSQRT(C2,C2)

        END
RRRRRRRR        AAAAAA      NN      NN    DDDDDDDD        OOOOOO      
RRRRRRRR        AAAAAA      NN      NN    DDDDDDDD        OOOOOO      
RR      RR    AA      AA    NN      NN    DD      DD    OO      OO    
RR      RR    AA      AA    NN      NN    DD      DD    OO      OO    
RR      RR    AA      AA    NNNN    NN    DD      DD    OO      OO    
RR      RR    AA      AA    NNNN    NN    DD      DD    OO      OO    
RRRRRRRR      AA      AA    NN  NN  NN    DD      DD    OO      OO    
RRRRRRRR      AA      AA    NN  NN  NN    DD      DD    OO      OO    
RR  RR        AAAAAAAAAA    NN    NNNN    DD      DD    OO      OO    
RR  RR        AAAAAAAAAA    NN    NNNN    DD      DD    OO      OO    
RR    RR      AA      AA    NN      NN    DD      DD    OO      OO    
RR    RR      AA      AA    NN      NN    DD      DD    OO      OO    
RR      RR    AA      AA    NN      NN    DDDDDDDD        OOOOOO      
RR      RR    AA      AA    NN      NN    DDDDDDDD        OOOOOO      




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:RANDOM.FOR[1,2,FOROTS], created: 12-Apr-70 14:12:00,
        printed: 14-Aug-7 12:27:01
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
RRRRRRRR        AAAAAA      NN      NN    DDDDDDDD        OOOOOO      
RRRRRRRR        AAAAAA      NN      NN    DDDDDDDD        OOOOOO      
RR      RR    AA      AA    NN      NN    DD      DD    OO      OO    
RR      RR    AA      AA    NN      NN    DD      DD    OO      OO    
RR      RR    AA      AA    NNNN    NN    DD      DD    OO      OO    
RR      RR    AA      AA    NNNN    NN    DD      DD    OO      OO    
RRRRRRRR      AA      AA    NN  NN  NN    DD      DD    OO      OO    
RRRRRRRR      AA      AA    NN  NN  NN    DD      DD    OO      OO    
RR  RR        AAAAAAAAAA    NN    NNNN    DD      DD    OO      OO    
RR  RR        AAAAAAAAAA    NN    NNNN    DD      DD    OO      OO    
RR    RR      AA      AA    NN      NN    DD      DD    OO      OO    
RR    RR      AA      AA    NN      NN    DD      DD    OO      OO    
RR      RR    AA      AA    NN      NN    DDDDDDDD        OOOOOO      
RR      RR    AA      AA    NN      NN    DDDDDDDD        OOOOOO      




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:RANDOM.FOR[1,2,FOROTS], created: 12-Apr-70 14:12:00,
        printed: 14-Aug-7 12:27:01
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
        PROGRAM RANDOM

! This software is furnished under a license and may only be used
! or copied in accordance with the terms of such license.

! Copyright (C) 1981 by Digital Equipment Corporation

!       Version 6       RANDOM.FOR      March 81

!       Basic RANDOM I/O test.

        DOUBLE PRECISION D,DD

!       Data to be written out.

        I=1234; X=456.789; D=123456789.0123

!       Default OPEN statement (BINARY mode).

        OPEN(20,ACCESS='RANDOM',RECORD SIZE=50)
100     WRITE(20'2) I
        WRITE(20'1) X
        WRITE(20'3) D
        CLOSE(20)

        OPEN(20,ACCESS='RANDOM',RECORD SIZE=50)
        READ(20'3) DD                   !Read back in
        READ(20'2) II
        READ(20'1) XX

        IF (I.NE.II) TYPE 110,I,II      !Check results
        IF (X.NE.XX) TYPE 120,X,XX
        IF (D.NE.DD) TYPE 130,D,DD

110     FORMAT(' ?Error line 100.  RANDOM I/O.',/
        1       '  I='I' II='I)
120     FORMAT(' ?Error line 100.  RANDOM I/O.',/
        1       '  X='F' XX='F)
130     FORMAT(' ?Error line 100.  RANDOM I/O.',/
        1       '  D='D' DD='D)
        CLOSE(20)

!       RANDOM ASCII I/O

        OPEN(22,MODE='ASCII',ACCESS='RANDOM',RECORD SIZE=40)
200     WRITE(22'3,205) D
        WRITE(22'1,206) I
        WRITE(22'2,207) X
        CLOSE(22)

        OPEN(22,MODE='ASCII',ACCESS='RANDOM',RECORD SIZE=40)
        READ(22'2,207) XX               !Read back in
        READ(22'3,205) DD
        READ(22'1,206) II
205     FORMAT(D)
206     FORMAT(I)
207     FORMAT(F)

        IF (I.NE.II) TYPE 210,I,II      !Check results
        IF (X.NE.XX) TYPE 220,X,XX






        IF (D.NE.DD) TYPE 230,D,DD

210     FORMAT(' ?Error line 200.  RANDOM I/O.',/
        1       '  I='I' II='I)
220     FORMAT(' ?Error line 200.  RANDOM I/O.',/
        1       '  X='F' XX='F)
230     FORMAT(' ?Error line 200.  RANDOM I/O.',/
        1       '  D='D' DD='D)
        CLOSE(22)

!       Image Random I/O.

        OPEN(23,MODE='IMAGE',ACCESS='RANDOM',RECORD SIZE=50)
300     WRITE(23'2) I
        WRITE(23'1) X
        WRITE(23'3) D
        CLOSE(23)

        OPEN(23,MODE='IMAGE',ACCESS='RANDOM',RECORD SIZE=50)
        READ(23'3) DD                   !Read back in
        READ(23'2) II
        READ(23'1) XX

        IF (I.NE.II) TYPE 310,I,II      !Check results
        IF (X.NE.XX) TYPE 320,X,XX
        IF (D.NE.DD) TYPE 330,D,DD

310     FORMAT(' ?Error line 300.  Image RANDOM I/O.',/
        1       '  I='I' II='I)
320     FORMAT(' ?Error line 300.  Image RANDOM I/O.',/
        1       '  X='F' XX='F)
330     FORMAT(' ?Error line 300.  Image RANDOM I/O.',/
        1       '  D='D' DD='D)
        CLOSE(23)

        STOP
        END
  SSSSSSSS    UU      UU    BBBBBBBB      FFFFFFFFFF    UU      UU    
  SSSSSSSS    UU      UU    BBBBBBBB      FFFFFFFFFF    UU      UU    
SS            UU      UU    BB      BB    FF            UU      UU    
SS            UU      UU    BB      BB    FF            UU      UU    
SS            UU      UU    BB      BB    FF            UU      UU    
SS            UU      UU    BB      BB    FF            UU      UU    
  SSSSSS      UU      UU    BBBBBBBB      FFFFFFFF      UU      UU    
  SSSSSS      UU      UU    BBBBBBBB      FFFFFFFF      UU      UU    
        SS    UU      UU    BB      BB    FF            UU      UU    
        SS    UU      UU    BB      BB    FF            UU      UU    
        SS    UU      UU    BB      BB    FF            UU      UU    
        SS    UU      UU    BB      BB    FF            UU      UU    
SSSSSSSS      UUUUUUUUUU    BBBBBBBB      FF            UUUUUUUUUU    
SSSSSSSS      UUUUUUUUUU    BBBBBBBB      FF            UUUUUUUUUU    




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:SUBFUN.FOR[1,2,FOROTS], created: 25-Mar-81 21:18:00,
        printed: 14-Aug-7 12:27:01
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
  SSSSSSSS    UU      UU    BBBBBBBB      FFFFFFFFFF    UU      UU    
  SSSSSSSS    UU      UU    BBBBBBBB      FFFFFFFFFF    UU      UU    
SS            UU      UU    BB      BB    FF            UU      UU    
SS            UU      UU    BB      BB    FF            UU      UU    
SS            UU      UU    BB      BB    FF            UU      UU    
SS            UU      UU    BB      BB    FF            UU      UU    
  SSSSSS      UU      UU    BBBBBBBB      FFFFFFFF      UU      UU    
  SSSSSS      UU      UU    BBBBBBBB      FFFFFFFF      UU      UU    
        SS    UU      UU    BB      BB    FF            UU      UU    
        SS    UU      UU    BB      BB    FF            UU      UU    
        SS    UU      UU    BB      BB    FF            UU      UU    
        SS    UU      UU    BB      BB    FF            UU      UU    
SSSSSSSS      UUUUUUUUUU    BBBBBBBB      FF            UUUUUUUUUU    
SSSSSSSS      UUUUUUUUUU    BBBBBBBB      FF            UUUUUUUUUU    




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:SUBFUN.FOR[1,2,FOROTS], created: 25-Mar-81 21:18:00,
        printed: 14-Aug-7 12:27:01
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
        PROGRAM SUBFUN

! This software is furnished under a license and may only be used
! or copied in accordance with the terms of such license.

! Copyright (C) 1981 by Digital Equipment Corporation

!       Version 6       SUBFUN.FOR      March 81

!       Basic test of Subroutines/Functions.

        IMPLICIT DOUBLE PRECISION (D)
        FUNC2(IVAR)=(IVAR+10)/5 + 1

!       Call subroutine FUNC1.
!       The returned value should be 12.

        Q=0
100     CALL SUB1(Q)
        IF (Q.NE.12) TYPE 110,Q
110     FORMAT(' ?Error Call 100.  Q = 'F', should = 12.')

!       Call a function.  The returned value should be 2* the
!       passed value.

        Q=-1.1
200     Q=FUNC1(Q)
        IF (Q.LT.-2.2000005 .OR. Q.GT.-2.1000005) TYPE 210,Q
210     FORMAT(' ?Error Call 200. Q='F', should =-2.2')

!       Call a subroutine which is actually an ENTRY point in
!       another subroutine.

        DD=0; XX=0
300     CALL SUB2(0,DD,XX)
        IF (DD .NE. 3.5) TYPE 310,DD
        IF (XX .NE. 1) TYPE 320,XX
310     FORMAT(' ?Error Call 300.  DD='D', should = 3.5D0')
320     FORMAT(' ?Error Call 300.  XX='F', should = 1.')

!       Reference a statement function

        M=4
400     X=FUNC2(M+6)
        IF (X .NE. 5) TYPE 410,X
410     FORMAT(' ?Error line 400.  X='F', should = 5')

        STOP
        END


        SUBROUTINE SUB1(PASSED)

!       Simple subroutine.  Assigns a new value of 12 to the
!       "PASSED" variable.  Uses routine FUNC1 and has ENTRY
!       point SUB2.

        FIVE=5
        PASSED=FUNC1(FIVE+1)
        RETURN







!       The entry point SUB2

        ENTRY SUB2(P1,D1,X3)

!       D1 and X3 are reassigned according to the value P1
!       passed by the calling routine.

        CALL SUB3(P1,X3)
        D1=X3+2.5
        RETURN
        END


        FUNCTION FUNC1(XNUM)

!       Simple function which returns 2* the passed number

        VAL=XNUM*2
        FUNC1=VAL
        RETURN
        END


        SUBROUTINE SUB3(X1,X2)

!       Simple subroutine which reassigns the second arguement
!       to the increment of the first + 1.

        X2=X1+1
        RETURN
        END
TTTTTTTTTT    44    44      DDDDDDDD      DDDDDDDD      TTTTTTTTTT
TTTTTTTTTT    44    44      DDDDDDDD      DDDDDDDD      TTTTTTTTTT
    TT        44    44      DD      DD    DD      DD        TT    
    TT        44    44      DD      DD    DD      DD        TT    
    TT        44    44      DD      DD    DD      DD        TT    
    TT        44    44      DD      DD    DD      DD        TT    
    TT        4444444444    DD      DD    DD      DD        TT    
    TT        4444444444    DD      DD    DD      DD        TT    
    TT              44      DD      DD    DD      DD        TT    
    TT              44      DD      DD    DD      DD        TT    
    TT              44      DD      DD    DD      DD        TT    
    TT              44      DD      DD    DD      DD        TT    
    TT              44      DDDDDDDD      DDDDDDDD          TT    
    TT              44      DDDDDDDD      DDDDDDDD          TT    




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:T4DDT.FOR[1,2,FOROTS], created: 25-Mar-81 17:01:59,
        printed: 14-Aug-7 12:27:01
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
TTTTTTTTTT    44    44      DDDDDDDD      DDDDDDDD      TTTTTTTTTT
TTTTTTTTTT    44    44      DDDDDDDD      DDDDDDDD      TTTTTTTTTT
    TT        44    44      DD      DD    DD      DD        TT    
    TT        44    44      DD      DD    DD      DD        TT    
    TT        44    44      DD      DD    DD      DD        TT    
    TT        44    44      DD      DD    DD      DD        TT    
    TT        4444444444    DD      DD    DD      DD        TT    
    TT        4444444444    DD      DD    DD      DD        TT    
    TT              44      DD      DD    DD      DD        TT    
    TT              44      DD      DD    DD      DD        TT    
    TT              44      DD      DD    DD      DD        TT    
    TT              44      DD      DD    DD      DD        TT    
    TT              44      DDDDDDDD      DDDDDDDD          TT    
    TT              44      DDDDDDDD      DDDDDDDD          TT    




FFFFFFFFFF      OOOOOO      RRRRRRRR  
FFFFFFFFFF      OOOOOO      RRRRRRRR  
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FF            OO      OO    RR      RR
FFFFFFFF      OO      OO    RRRRRRRR  
FFFFFFFF      OO      OO    RRRRRRRR  
FF            OO      OO    RR  RR    
FF            OO      OO    RR  RR    
FF            OO      OO    RR    RR  
FF            OO      OO    RR    RR  
FF              OOOOOO      RR      RR
FF              OOOOOO      RR      RR




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:T4DDT.FOR[1,2,FOROTS], created: 25-Mar-81 17:01:59,
        printed: 14-Aug-7 12:27:02
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
        PROGRAM T4DDT

! This software is furnished under a license and may only be used
! or copied in accordance with the terms of such license.

! Copyright (C) 1981 by Digital Equipment Corporation

!       Version 6       T4DDT.FOR       March 81

!       A short program used to test FORDDT, to make sure the basics
!       are there.

        X=1
        I=2
10      STOP
        END
FFFFFFFFFF        11          000000      TTTTTTTTTT      SSSSSSSS    
FFFFFFFFFF        11          000000      TTTTTTTTTT      SSSSSSSS    
FF              1111        00      00        TT        SS            
FF              1111        00      00        TT        SS            
FF                11        00    0000        TT        SS            
FF                11        00    0000        TT        SS            
FFFFFFFF          11        00  00  00        TT          SSSSSS      
FFFFFFFF          11        00  00  00        TT          SSSSSS      
FF                11        0000    00        TT                SS    
FF                11        0000    00        TT                SS    
FF                11        00      00        TT                SS    
FF                11        00      00        TT                SS    
FF              111111        000000          TT        SSSSSSSS      
FF              111111        000000          TT        SSSSSSSS      




LL              OOOOOO        GGGGGGGG
LL              OOOOOO        GGGGGGGG
LL            OO      OO    GG        
LL            OO      OO    GG        
LL            OO      OO    GG        
LL            OO      OO    GG        
LL            OO      OO    GG        
LL            OO      OO    GG        
LL            OO      OO    GG  GGGGGG
LL            OO      OO    GG  GGGGGG
LL            OO      OO    GG      GG
LL            OO      OO    GG      GG
LLLLLLLLLL      OOOOOO        GGGGGG  
LLLLLLLLLL      OOOOOO        GGGGGG  




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:F10TST.LOG[1,2,FOROTS], created: 14-Aug-7 12:08:59,
        printed: 14-Aug-7 12:27:02
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
FFFFFFFFFF        11          000000      TTTTTTTTTT      SSSSSSSS    
FFFFFFFFFF        11          000000      TTTTTTTTTT      SSSSSSSS    
FF              1111        00      00        TT        SS            
FF              1111        00      00        TT        SS            
FF                11        00    0000        TT        SS            
FF                11        00    0000        TT        SS            
FFFFFFFF          11        00  00  00        TT          SSSSSS      
FFFFFFFF          11        00  00  00        TT          SSSSSS      
FF                11        0000    00        TT                SS    
FF                11        0000    00        TT                SS    
FF                11        00      00        TT                SS    
FF                11        00      00        TT                SS    
FF              111111        000000          TT        SSSSSSSS      
FF              111111        000000          TT        SSSSSSSS      




LL              OOOOOO        GGGGGGGG
LL              OOOOOO        GGGGGGGG
LL            OO      OO    GG        
LL            OO      OO    GG        
LL            OO      OO    GG        
LL            OO      OO    GG        
LL            OO      OO    GG        
LL            OO      OO    GG        
LL            OO      OO    GG  GGGGGG
LL            OO      OO    GG  GGGGGG
LL            OO      OO    GG      GG
LL            OO      OO    GG      GG
LLLLLLLLLL      OOOOOO        GGGGGG  
LLLLLLLLLL      OOOOOO        GGGGGG  




*START* Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:26:58 Monitor: 
File DSKB:F10TST.LOG[1,2,FOROTS], created: 14-Aug-7 12:08:59,
        printed: 14-Aug-7 12:27:02
Output to device LPT000 unit type LP05 
Job parameters: Request created:14-Aug-7 12:26:58   Page limit:59
          Forms:NORMAL  Account:
File parameters: Copy: 1 of 1   Spacing:SINGLE
          File format:ASCII   Print mode:ASCII
                        14-Aug-7 12:09:37

BATCON Version  105(5015)                       GLXLIB Version  5(1522)

            Job F10TST Req #15 for OPERATOR [1,2] in stream 0

        OUTPUT:  Log                            TIME-LIMIT: 0:05:00
        UNIQUE:  Yes                            BATCH-LOG:  Append
        RESTART: No                             ASSISTANCE: Yes
        CORE:    512 pages                      SEQUENCE:   2535


        Control file: DSKB:F10TST.CTL[1,2,FOROTS]
        Log file:     DSKB:F10TST.LOG[1,2,FOROTS]

12:09:37 MONITR ^C
12:09:37 MONITR 
12:09:37 MONITR .LOGIN [1,2] -
12:09:37 USER   Job 5  VNW  TTY13
12:09:37 USER   #/BATCH:(INTERVENTION:YES,NAME:"F10TST",SEQUENCE:2535,STREAM:0,REQUESTID:15)/AC-
12:09:37 USER   #COUNT:""/NAME:"OPERATOR"/CORE:512P/DEFER/LOCATE:0/SPOOL:ALL/TIME:300
12:09:37 USER   [LGNJSP Other jobs same PPN]
12:09:37 USER   [LGNLAS Last access to [1,2] succeeded on 14-Aug-7:11:13:08]
12:09:37 USER   12:09   14-Aug-7   Tuesday
12:09:38 MONITR 
12:09:38 MONITR .
12:09:38 COMENT ;       Job to test the FORTRAN system on the DECsystem-10
12:09:38 COMENT ;       SUBMIT F10TST.CTL/TIME:0:02:00
12:09:38 IGNORE 
12:09:38 IGNORE 
12:09:38 COMENT ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
12:09:38 COMENT ;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
12:09:38 IGNORE 
12:09:38 COMENT ;COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION
12:09:38 IGNORE 
12:09:38 COMENT ;       VERSION 6         F10TST.CTL    March 81
12:09:38 IGNORE 
12:09:38 COMENT ; Control file to run a small version of the Fortran version 6 test
12:09:38 COMENT ; system and confirm that all essential parts of Fortran are present
12:09:38 COMENT ; on tapes sent to field testing.
12:09:38 IGNORE 
12:09:38 COMENT ; Files needed on DSK:
12:09:38 COMENT ;       F10TST.CTL      This file
12:09:38 IGNORE 
12:09:38 COMENT ;       FORTRA.EXE
12:09:38 COMENT ;       FORTRA.HLP
12:09:38 COMENT ;       FORTB.EXE
12:09:38 COMENT ;       FORTC.EXE
12:09:38 COMENT ;       FORTD.EXE
12:09:38 COMENT ;       FORTE.EXE
12:09:38 COMENT ;       FORTF.EXE
12:09:38 COMENT ;       FORTG.EXE
12:09:38 COMENT ;       FORLIB.REL
12:09:38 COMENT ;       FOROT6.EXE
12:09:38 COMENT ;       FORDDT.HLP
12:09:38 COMENT ;       FORDDT.REL
12:09:38 COMENT ;       SINGLE.EXE
12:09:38 IGNORE 
12:09:38 COMENT ;       ARRAYS.FOR
12:09:38 COMENT ;       ASCII.FOR






12:09:38 COMENT ;       BINARY.FOR
12:09:38 COMENT ;       DO.FOR
12:09:38 COMENT ;       GOTO.FOR
12:09:38 COMENT ;       IF.FOR
12:09:38 COMENT ;       IMAGE.FOR
12:09:38 COMENT ;       LIB.FOR
12:09:38 COMENT ;       RANDOM.FOR
12:09:38 COMENT ;       SUBFUN.FOR
12:09:38 COMENT ;       T4DDT.FOR
12:09:38 IGNORE 
12:09:38 COMENT ;       Get private copies of necessary system software.
12:09:38 IGNORE 
12:09:38 BATCH  .COPY = SYS:DDT.REL
12:09:39 MONITR 
12:09:39 MONITR .COPY = SYS:DIRECT.EXE
12:09:39 MONITR 
12:09:39 MONITR .COPY = SYS:COMPIL.EXE
12:09:40 MONITR 
12:09:40 MONITR .COPY = SYS:LINK.EXE
12:09:40 MONITR 
12:09:40 MONITR .COPY = SYS:LNK???.EXE
12:09:44 MONITR 
12:09:44 MONITR .COPY = SYS:PIP.EXE
12:09:45 MONITR 
12:09:45 MONITR .
12:09:45 IGNORE 
12:09:45 COMENT ;       Setup libraries.
12:09:45 IGNORE 
12:09:45 BATCH  .ASSIGN DSK: SYS:
12:09:45 USER   DSK assigned
12:09:45 MONITR .ASSIGN DSK: HLP:
12:09:45 USER   DSK assigned
12:09:45 MONITR .
12:09:45 IGNORE 
12:09:45 COMENT ;       Clean out.
12:09:45 IGNORE 
12:09:45 BATCH  .NOERROR
12:09:45 BATCH  .DELETE ARRAYS.REL,ASCII.LST,ASCII.REL,BINARY.REL,DO.REL,GOTO.REL,IF.REL
12:09:45 USER   Files deleted:
12:09:45 USER   % No file named DSK:ARRAYS.REL 
12:09:45 USER   % No file named DSK:ASCII.LST 
12:09:45 USER   % No file named DSK:ASCII.REL 
12:09:45 USER   % No file named DSK:BINARY.REL 
12:09:45 USER   % No file named DSK:DO.REL 
12:09:45 USER   % No file named DSK:GOTO.REL 
12:09:45 USER   % No file named DSK:IF.REL 
12:09:45 MONITR 
12:09:45 MONITR .DELETE IMAGE.REL,LIB.REL,RANDOM.REL,SUBFUN.REL,T4DDT.REL
12:09:45 USER   Files deleted:
12:09:45 USER   % No file named DSK:IMAGE.REL 
12:09:45 USER   % No file named DSK:LIB.REL 
12:09:45 USER   % No file named DSK:RANDOM.REL 
12:09:45 USER   % No file named DSK:SUBFUN.REL 
12:09:45 USER   % No file named DSK:T4DDT.REL 
12:09:45 MONITR 
12:09:45 MONITR .DELETE FOR20.DAT,FOR21.DAT,FOR22.DAT,FOR23.DAT
12:09:46 USER   Files deleted:
12:09:46 USER   % No file named DSK:FOR20.DAT 
12:09:46 USER   % No file named DSK:FOR21.DAT 
12:09:46 USER   % No file named DSK:FOR22.DAT 






12:09:46 USER   % No file named DSK:FOR23.DAT 
12:09:46 MONITR 
12:09:46 MONITR .
12:09:46 BATCH  .ERROR
12:09:46 IGNORE 
12:09:46 COMENT ;       Check for all required FORTRAN components.
12:09:46 IGNORE 
12:09:46 BATCH  .ERROR %
12:09:46 BATCH  .DIRECT DSK:FORTRA.EXE,DSK:FORTRA.HLP,DSK:FORTB.EXE,DSK:FORTC.EXE
12:09:46 USER   
12:09:46 USER   %WLDNSF No such files as DSK:FORTRA.EXE
12:09:46 USER   %WLDNSF No such files as DSK:FORTRA.HLP
12:09:46 USER   %WLDNSF No such files as DSK:FORTB.EXE
12:09:46 USER   %WLDNSF No such files as DSK:FORTC.EXE
12:09:46 MONITR 
12:09:46 MONITR .
12:09:46 IGNORE .DIRECT DSK:FORTD.EXE,DSK:FORTE.EXE,DSK:FORTF.EXE,DSK:FORTG.EXE
12:09:46 IGNORE .DIRECT DSK:FORLIB.REL,DSK:FOROT6.EXE,DSK:FORDDT.HLP,DSK:FORDDT.REL
12:09:46 IGNORE .ERROR
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE 
12:09:46 IGNORE 
12:09:46 IGNORE ;       Warnings are not permitted either.
12:09:46 IGNORE .ERROR %
12:09:46 IGNORE 
12:09:46 IGNORE 
12:09:46 IGNORE 
12:09:46 IGNORE ;       Generate a binary (.REL) and listing (.LST) file
12:09:46 IGNORE ;        and verify that they were produced.
12:09:46 IGNORE ;       Also check the compiler HELP facility.
12:09:46 IGNORE 
12:09:46 IGNORE .R FORTRA
12:09:46 IGNORE *ASCII,ASCII=ASCII.FOR
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE */HELP
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE *^Z
12:09:46 IGNORE 
12:09:46 IGNORE .DIRECT ASCII.LST
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE .DIRECT ASCII.REL
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE 
12:09:46 IGNORE 
12:09:46 IGNORE ;       Test to see that all intrinsic functions and Fortran supplied
12:09:46 IGNORE ;       subroutines exist in FORLIB. If LINK produces an error such
12:09:46 IGNORE ;       as "Undefined Globals", then some of the routines are missing.
12:09:46 IGNORE ;       Program is merely loaded, not executed.
12:09:46 IGNORE 
12:09:46 IGNORE .COMPILE LIB.FOR
12:09:46 IGNORE .LOAD LIB.REL
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE 
12:09:46 IGNORE 
12:09:46 IGNORE ;       Run FORDDT & make sure it works minimally.
12:09:46 IGNORE ;       No errors of any type should appear.
12:09:46 IGNORE 
12:09:46 IGNORE .DEBUG T4DDT.FOR /DEBUG:ALL
12:09:46 IGNORE *T4DDT
12:09:46 IGNORE *HELP






12:09:46 IGNORE *PAUSE 10
12:09:46 IGNORE *START
12:09:46 IGNORE *TYPE X
12:09:46 IGNORE *MODE I
12:09:46 IGNORE *TYPE I
12:09:46 IGNORE *STOP
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE 
12:09:46 IGNORE 
12:09:46 IGNORE ;       Test non-sharable FOROTS.
12:09:46 IGNORE ;       ASCII previously compiled.
12:09:46 IGNORE 
12:09:46 IGNORE .R LINK
12:09:46 IGNORE *ASCII.REL /OTS:NONSHAR /GO
12:09:46 IGNORE .START
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE 
12:09:46 IGNORE 
12:09:46 IGNORE ;       Try FORDDT with the non-sharable FOROTS.
12:09:46 IGNORE 
12:09:46 IGNORE .COMPILE T4DDT.FOR /COMP /DEB:(DIM,BOU)
12:09:46 IGNORE .R LINK
12:09:46 IGNORE *T4DDT.REL /SEG:LOW  /DEBUG:FORTRA /OTS:NONSHAR /GO
12:09:46 IGNORE *T4DDT
12:09:46 IGNORE *PAUSE 10
12:09:46 IGNORE *START
12:09:46 IGNORE *TYPE X
12:09:46 IGNORE *CONTINUE
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE 
12:09:46 IGNORE 
12:09:46 IGNORE ;       Test arrays.
12:09:46 IGNORE  
12:09:46 IGNORE .EXECUTE ARRAYS.FOR
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE .EXECUTE ARRAYS.FOR /COMP /OPT
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE  
12:09:46 IGNORE  
12:09:46 IGNORE ;       Test ASCII I/O.
12:09:46 IGNORE  
12:09:46 IGNORE .EXECUTE ASCII.FOR /COMP
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE .EXECUTE ASCII.FOR /COMP /OPT
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE  
12:09:46 IGNORE  
12:09:46 IGNORE ;       Test BINARY I/O.
12:09:46 IGNORE  
12:09:46 IGNORE .EXECUTE BINARY.FOR
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE .EXECUTE BINARY.FOR /COMP /OPT
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE  
12:09:46 IGNORE  
12:09:46 IGNORE ;       Test DO loops.
12:09:46 IGNORE  
12:09:46 IGNORE .EXECUTE DO.FOR
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE .EXECUTE DO.FOR /COMP /OPT






12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE  
12:09:46 IGNORE  
12:09:46 IGNORE ;       Test GO TO statements.
12:09:46 IGNORE 
12:09:46 IGNORE .EXECUTE GOTO.FOR
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE .EXECUTE GOTO.FOR /COMP /OPT
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE  
12:09:46 IGNORE  
12:09:46 IGNORE ;       Test IF statements.
12:09:46 IGNORE  
12:09:46 IGNORE .EXECUTE IF.FOR
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE .EXECUTE IF.FOR /COMP /OPT
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE  
12:09:46 IGNORE  
12:09:46 IGNORE ;       Test IMAGE I/O.
12:09:46 IGNORE  
12:09:46 IGNORE .EXECUTE IMAGE.FOR
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE .EXECUTE IMAGE.FOR /COMP /OPT
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE  
12:09:46 IGNORE  
12:09:46 IGNORE ;       Test RANDOM access I/O.
12:09:46 IGNORE  
12:09:46 IGNORE .EXECUTE RANDOM.FOR
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE .EXECUTE RANDOM.FOR /COMP /OPT
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE  
12:09:46 IGNORE  
12:09:46 IGNORE ;       Test subroutines and functions.
12:09:46 IGNORE  
12:09:46 IGNORE .EXECUTE SUBFUN.FOR
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE .EXECUTE SUBFUN.FOR /COMP /OPT
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE  
12:09:46 IGNORE  
12:09:46 IGNORE ;       Check out single segment compiler (unsupported).
12:09:46 IGNORE 
12:09:46 IGNORE .DIRECT DSK:SINGLE.EXE
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE 
12:09:46 IGNORE .NOERROR
12:09:46 IGNORE .DELETE ASCII.LST,ASCII.REL
12:09:46 IGNORE .ERROR %
12:09:46 IGNORE 
12:09:46 IGNORE .R SINGLE
12:09:46 IGNORE *ASCII,ASCII=ASCII.FOR
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE *^Z
12:09:46 IGNORE 
12:09:46 IGNORE .DIRECT ASCII.LST
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE .DIRECT ASCII.REL






12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE 
12:09:46 IGNORE .EXECUTE ASCII.REL
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE 
12:09:46 IGNORE .R SINGLE
12:09:46 IGNORE *ASCII=ASCII.FOR /OPT
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE *^Z
12:09:46 IGNORE .EXECUTE ASCII.REL
12:09:46 IGNORE .IF (ERROR) .GOTO UERR
12:09:46 IGNORE 
12:09:46 IGNORE 
12:09:46 IGNORE .GOTO END
12:09:46 IGNORE 
12:09:46 IGNORE 
12:09:46 IGNORE 
12:09:46 LABEL  %CERR::
12:09:46 IGNORE 
12:09:46 IGNORE .GOTO UERR
12:09:46 IGNORE 
12:09:46 LABEL  %ERR::
12:09:46 BATCH  .GOTO UERR
12:09:46 LABEL  UERR::
12:09:46 COMENT ;       *****************************************************
12:09:46 COMENT ;       *****************************************************
12:09:46 COMENT ;       *                                                   *
12:09:46 COMENT ;       *       ?Unexpected error - should not occur        *
12:09:46 COMENT ;       *                                                   *
12:09:46 COMENT ;       *****************************************************
12:09:46 COMENT ;       *****************************************************
12:09:46 BATCH  .GOTO END
12:09:46 LABEL  END::
12:09:46 COMENT ;       Cleanup.
12:09:46 BATCH  .
12:09:46 MONITR .DEASSIGN SYS:
12:09:46 MONITR .
12:09:46 BATCH  .NOERROR
12:09:46 BATCH  .DELETE DDT.REL,DIRECT.EXE,COMPIL.EXE,LINK.EXE,LNK???.EXE,PIP.EXE
12:09:46 USER   Files deleted:
12:09:46 USER   DSKB:DDT.REL 
12:09:46 USER   DSKB:DIRECT.EXE 
12:09:46 USER   DSKB:COMPIL.EXE 
12:09:47 USER   DSKB:LINK.EXE 
12:09:47 USER   DSKB:LNK999.EXE 
12:09:47 USER   DSKB:LNKERR.EXE 
12:09:47 USER   DSKB:LNKLOD.EXE 
12:09:47 USER   DSKB:LNKMAP.EXE 
12:09:47 USER   DSKB:LNKOV1.EXE 
12:09:47 USER   DSKB:LNKOV2.EXE 
12:09:47 USER   DSKB:LNKSCN.EXE 
12:09:47 USER   DSKB:LNKXIT.EXE 
12:09:47 USER   DSKB:PIP.EXE 
12:09:47 USER   1214 Blocks freed
12:09:47 MONITR 
12:09:47 MONITR .DELETE ARRAYS.REL,ASCII.LST,ASCII.REL,BINARY.REL,DO.REL,GOTO.REL,IF.REL
12:09:47 USER   Files deleted:
12:09:47 USER   % No file named DSK:ARRAYS.REL 
12:09:47 USER   % No file named DSK:ASCII.LST 
12:09:47 USER   % No file named DSK:ASCII.REL 






12:09:47 USER   % No file named DSK:BINARY.REL 
12:09:47 USER   % No file named DSK:DO.REL 
12:09:47 USER   % No file named DSK:GOTO.REL 
12:09:47 USER   % No file named DSK:IF.REL 
12:09:47 MONITR 
12:09:47 MONITR .DELETE IMAGE.REL,LIB.REL,RANDOM.REL,SUBFUN.REL,T4DDT.REL
12:09:48 USER   Files deleted:
12:09:48 USER   % No file named DSK:IMAGE.REL 
12:09:48 USER   % No file named DSK:LIB.REL 
12:09:48 USER   % No file named DSK:RANDOM.REL 
12:09:48 USER   % No file named DSK:SUBFUN.REL 
12:09:48 USER   % No file named DSK:T4DDT.REL 
12:09:48 MONITR 
12:09:48 MONITR .DELETE FOR20.DAT,FOR21.DAT,FOR22.DAT,FOR23.DAT
12:09:48 USER   Files deleted:
12:09:48 USER   % No file named DSK:FOR20.DAT 
12:09:48 USER   % No file named DSK:FOR21.DAT 
12:09:48 USER   % No file named DSK:FOR22.DAT 
12:09:48 USER   % No file named DSK:FOR23.DAT 
12:09:48 MONITR 
12:09:48 MONITR .
12:09:48 BATCH  .ERROR
12:09:48 IGNORE 
12:09:48 LABEL  %FIN::
12:09:48 IGNORE 
12:09:48 COMENT ;       [End F10TST.CTL]
12:09:48 BATCH  .
12:09:48 BATCH  .KJOB/BATCH
12:09:48 USER   
12:09:48 USER   [LGTOUL Other users logged-in under [1,2]]
12:09:49 USER   Job 5  User OPERATOR [1,2]
12:09:49 USER   Logged-off TTY13  at 12:09:49  on 14-Aug-7
12:09:49 USER   Runtime: 0:00:07, KCS:118, Connect time: 0:00:11
12:09:49 USER   Disk Reads:1536, Writes:1316
**END** Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:27:02 Monitor: 



**END** Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:27:02 Monitor: 



                * * * L P T S P L  R u n  L o g * * *


12:26:58 LPDAT  LPTSPL version 105(4043)        VNW
12:26:58 LPDAT  Job 10TST sequence #2538 on Printer 0 at 14-Aug-7 12:26:58
12:26:58 LPDAT  Output to device LPT000 unit type LP05 
12:26:58 LPMSG  Starting File DSKB:10TST.DIR[1,2,FOROTS]
12:26:58 LPMSG  Finished File DSKB:10TST.DIR[1,2,FOROTS]
12:26:58 LPMSG  Starting File DSKB:ARRAYS.FOR[1,2,FOROTS]
12:26:59 LPMSG  Finished File DSKB:ARRAYS.FOR[1,2,FOROTS]
12:26:59 LPMSG  Starting File DSKB:ASCII.FOR[1,2,FOROTS]
12:26:59 LPMSG  Finished File DSKB:ASCII.FOR[1,2,FOROTS]
12:26:59 LPMSG  Starting File DSKB:BINARY.FOR[1,2,FOROTS]
12:26:59 LPMSG  Finished File DSKB:BINARY.FOR[1,2,FOROTS]
12:26:59 LPMSG  Starting File DSKB:DO.FOR[1,2,FOROTS]
12:26:59 LPMSG  Finished File DSKB:DO.FOR[1,2,FOROTS]
12:26:59 LPMSG  Starting File DSKB:F10TST.CTL[1,2,FOROTS]
12:27:00 LPMSG  Finished File DSKB:F10TST.CTL[1,2,FOROTS]
12:27:00 LPMSG  Starting File DSKB:FORTRA.VER[1,2,FOROTS]
12:27:00 LPMSG  Finished File DSKB:FORTRA.VER[1,2,FOROTS]
12:27:00 LPMSG  Starting File DSKB:GOTO.FOR[1,2,FOROTS]
12:27:00 LPMSG  Finished File DSKB:GOTO.FOR[1,2,FOROTS]
12:27:01 LPMSG  Starting File DSKB:IF.FOR[1,2,FOROTS]
12:27:01 LPMSG  Finished File DSKB:IF.FOR[1,2,FOROTS]
12:27:01 LPMSG  Starting File DSKB:IMAGE.FOR[1,2,FOROTS]
12:27:01 LPMSG  Finished File DSKB:IMAGE.FOR[1,2,FOROTS]
12:27:01 LPMSG  Starting File DSKB:LIB.FOR[1,2,FOROTS]
12:27:01 LPMSG  Finished File DSKB:LIB.FOR[1,2,FOROTS]
12:27:01 LPMSG  Starting File DSKB:RANDOM.FOR[1,2,FOROTS]
12:27:01 LPMSG  Finished File DSKB:RANDOM.FOR[1,2,FOROTS]
12:27:01 LPMSG  Starting File DSKB:SUBFUN.FOR[1,2,FOROTS]
12:27:01 LPMSG  Finished File DSKB:SUBFUN.FOR[1,2,FOROTS]
12:27:01 LPMSG  Starting File DSKB:T4DDT.FOR[1,2,FOROTS]
12:27:02 LPMSG  Finished File DSKB:T4DDT.FOR[1,2,FOROTS]
12:27:02 LPMSG  Starting File DSKB:F10TST.LOG[1,2,FOROTS]
12:27:02 LPMSG  Finished File DSKB:F10TST.LOG[1,2,FOROTS]
12:27:02 LPEND  Summary:   42 Pages of Output
12:27:02 LPEND             78 Disk Blocks Read



**END** Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:27:02 Monitor: 



**END** Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:27:02 Monitor: 



**END** Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:27:02 Monitor: 



00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000011111111112222222222333333333344444444445555555555666666666677777777778
12345678901234567890123456789012345678901234567890123456789012345678901234567890
**END** Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:27:02 Monitor: 



**END** Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:27:02 Monitor: 



**END** Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:27:02 Monitor: 



**END** Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:27:02 Monitor: 



**END** Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:27:02 Monitor: 



**END** Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:27:02 Monitor: 



**END** Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:27:02 Monitor: 



**END** Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:27:02 Monitor: 



**END** Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:27:02 Monitor: 



**END** Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:27:02 Monitor: 



**END** Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:27:02 Monitor: 



**END** Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:27:02 Monitor: 



**END** Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:27:02 Monitor: 



**END** Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:27:02 Monitor: 



**END** Job 10TST Req #22 for OPERATOR [1,2]    Date 14-Aug-7 12:27:02 Monitor: 




00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000011111111112222222222333333333344444444445555555555666666666677777777778
12345678901234567890123456789012345678901234567890123456789012345678901234567890
