loop19f90.f90		loop19f90.f90
	SUBROUTINE loop19_F90(N, x, a, b, y, u, v)
			SUBROUTINE loop19_F90(N, y, x, a, b, u, v)
	INTEGER i, N		INTEGER i, N
	REAL*8 x(N), a(N), b(N), y(N), u, v		REAL*8 y(N), x(N), a(N), b(N), u, v
	x=u*a		x = u*a; y = v*b
	y=v*b
	RETURN		RETURN
	END		END
	SUBROUTINE loop19_F90Overhead(N, x, a, b, y, u, v)		SUBROUTINE loop19_F90Overhead(N, y, x, a, b, u, v)
	INTEGER i, N		INTEGER i, N
	REAL*8 x(N), a(N), b(N), y(N), u, v		REAL*8 y(N), x(N), a(N), b(N), u, v
	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/