C FOR:SPEEDO.FOR                                  K.-H. Dittberner -  5.AUG.1981
C V01.6                                           P 520            -  9.NOV.1993
C===============================================================================
	PROGRAM   SpeedO
	IMPLICIT  NONE
	
	INTEGER   x, y, z
	REAL      array(100,100,100)
	REAL      time1, time2, delta

	WRITE(6,9)
9	FORMAT( 22H S p e e d O - T e s t/)

C	Optimal Loop:
C	-------------

	time1 = SECNDS(0.0)

	Do 111 z=1,100
	Do 111 y=1,100
	Do 111 x=1,100
	array(x,y,z) = FLOAT(x) * FLOAT(y) + FLOAT(z)
111	CONTINUE

	delta = SECNDS(time1)
	WRITE(6,1) delta
1	FORMAT( 16H Optimal:       , F12.2, 2H s)
	WRITE(6,*) array(10,20,30)
	
C	Non-optimal Loop:
C	-----------------

	time2 = SECNDS(0.0)

	Do 222 x=1,100
	Do 222 y=1,100
	Do 222 z=1,100
	array(x,y,z) = FLOAT(x) * FLOAT(y) + FLOAT(z)
222	CONTINUE

	delta = SECNDS(time2)
	WRITE(6,2) delta
2	FORMAT( 16H Non-optimal: , F12.2, 2H s)
	WRITE(6,*) array(10,20,30)
	STOP
	END
C===============================================================================