30-Nov-1977  13:46:13	VAX-11 FORTRAN IV-PLUS B0.6-76      Page 1   
					BENCH1.FOR.2        

0001    	DIMENSION A(221,221),B(221,221),C(221,221)
0002    	REAL A,B,C,ELMT
0003    	INTEGER N,IROW,ICOL,INDEX
0004    	N=221
0005    	CALL TIMRB
0006    	DO 100 IROW=1,N
0007    	DO 100 ICOL=1,N
0008    	A(ICOL,IROW)=1.0
0009    	B(ICOL,IROW)=1.0
0010    100	CONTINUE
0011    	DO 200 IROW=1,N
0012    	DO 200 ICOL=1,N
0013    	ELMT=0.0
0014    	DO 300 INDEX=1,N
0015    	ELMT=ELMT+A(IROW,INDEX)*B(INDEX,ICOL)
0016    300	CONTINUE
0017    	C(IROW,ICOL)=ELMT
0018    200	CONTINUE
0019    	WRITE (1,999) C(N,N)
0020    999	FORMAT (' FINISHED C(N,N)= ',E30.20)
0021    	CALL TIMRE
0022    	STOP
0023    	END

BENCH1$MAIN     30-Nov-1977  13:46:13	VAX-11 FORTRAN IV-PLUS B0.6-76      Page 2   
					BENCH1.FOR.2        

PROGRAM SECTIONS

    Name                 Bytes   Attributes

  0 $CODE                  217   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  1 $PDATA                  24   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG
  2 $LOCAL              586112   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG


ENTRY POINTS

    Address  Type Name           

  0-00000000      BENCH1$MAIN    


VARIABLES

    Address  Type Name               Address  Type Name               Address  Type Name               Address  Type Name           

  2-0008F16C  R*4 ELMT             2-0008F170  I*4 N                2-0008F174  I*4 IROW             2-0008F178  I*4 ICOL           
  2-0008F17C  I*4 INDEX          


ARRAYS

    Address  Type Name		       Bytes  Dimensions

  2-00000000  R*4 A                   195364  (221,221)
  2-0002FB24  R*4 B                   195364  (221,221)
  2-0005F648  R*4 C                   195364  (221,221)


LABELS

    Address   Label       Address   Label       Address   Label       Address   Label   

      **      100           **      200           **      300       1-00000000  999'    


FUNCTIONS AND SUBROUTINES REFERENCED

TIMRB             TIMRE          


Total Space Allocated = 586353 Bytes


COMPILER OPTIONS

/CHECK:(ARGUMENTS,NOBOUNDS,OVERFLOW)
/DEBUG:(NOSYMBOLS,LINES)
/OPTIMIZE  /WARNINGS  /I4  /NOD_LINES