loop12f.f		loop12f.f
	SUBROUTINE loop12_F77(N, y, a, x, b, c, d, u)
			SUBROUTINE loop12_F77(N, y, x, a, b, c, d, u)
	INTEGER i, N		INTEGER i, N
	REAL*8 y(N), a(N), x(N), b(N), c(N), d(N), u		REAL*8 y(N), x(N), a(N), b(N), c(N), d(N), u
	DO i=1,N		DO i=1,N
	y(i)=u+a(i)		y(i) = u+a(i); x(i) = a(i)+b(i)+c(i)+d(i);
	x(i)=a(i)+b(i)+c(i)+d(i)
	END DO		END DO
	RETURN		RETURN
	END		END
	SUBROUTINE loop12_F77Overhead(N, y, a, x, b, c, d, u)		SUBROUTINE loop12_F77Overhead(N, y, x, a, b, c, d, u)
	INTEGER i, N		INTEGER i, N
	REAL*8 y(N), a(N), x(N), b(N), c(N), d(N), u		REAL*8 y(N), x(N), a(N), b(N), c(N), d(N), u
	RETURN		RETURN
	END		END
End of changes. 5 change blocks.
	6 lines changed or deleted		6 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/