loop22f.f		loop22f.f
	SUBROUTINE loop22_F77(N, x, a, b, c, d)		SUBROUTINE loop22_F77(N, x, a, b, c, d)
	INTEGER i, N		INTEGER i, N
	REAL*8 x(N), a(N), b(N), c(N), d(N)		REAL*8 x(N), a(N), b(N), c(N), d(N)
	DO i=1,N		DO i=1,N
	x(i)=x(i)+a(i)*b(i)+c(i)*d(i)		x(i) = x(i) + a(i)*b(i) + c(i)*d(i);
	END DO		END DO
	RETURN		RETURN
	END		END
	SUBROUTINE loop22_F77Overhead(N, x, a, b, c, d)		SUBROUTINE loop22_F77Overhead(N, x, a, b, c, d)
	INTEGER i, N		INTEGER i, N
	REAL*8 x(N), a(N), b(N), c(N), d(N)		REAL*8 x(N), a(N), b(N), c(N), d(N)
	RETURN		RETURN
	END		END
End of changes. 2 change blocks.
	1 lines changed or deleted		2 lines changed or added
This html diff was produced by rfcdiff 1.41. The latest version is available from http://tools.ietf.org/tools/rfcdiff/