loop12f90.f90 | loop12f90.f90 | |||
---|---|---|---|---|
SUBROUTINE loop12_F90(N, y, a, x, b, c, d, u) | ||||
SUBROUTINE loop12_F90(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 | |||
y=u+a | y = u+a; x = a+b+c+d | |||
x=a+b+c+d | ||||
RETURN | RETURN | |||
END | END | |||
SUBROUTINE loop12_F90Overhead(N, y, a, x, b, c, d, u) | SUBROUTINE loop12_F90Overhead(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/ |