loop14f.f		loop14f.f
	SUBROUTINE loop14_F77(N, x, a, b, y)
			SUBROUTINE loop14_F77(N, y, x, a, b)
	INTEGER i, N		INTEGER i, N
	REAL*8 x(N), a(N), b(N), y(N)		REAL*8 y(N), x(N), a(N), b(N)
	DO i=1,N		DO i=1,N
	x(i)=a(i)+b(i)		x(i) = a(i)+b(i); y(i) = a(i)-b(i);
	y(i)=a(i)-b(i)
	END DO		END DO
	RETURN		RETURN
	END		END
	SUBROUTINE loop14_F77Overhead(N, x, a, b, y)		SUBROUTINE loop14_F77Overhead(N, y, x, a, b)
	INTEGER i, N		INTEGER i, N
	REAL*8 x(N), a(N), b(N), y(N)		REAL*8 y(N), x(N), a(N), b(N)
	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/