代码搜索结果

找到约 10,000 项符合 F 的代码

loop12f90.f90

SUBROUTINE loop12_F90(N, y, a, x, b, c, d, u) INTEGER i, N REAL*8 y(N), a(N), x(N), b(N), c(N), d(N), u y=u+a x=a+b+c+d RETURN END SUBROUTINE loop1

loop3f90.f90

SUBROUTINE loop3_F90(N, x, y, a) INTEGER i, N REAL*8 x(N), y(N), a y=y+a*x RETURN END SUBROUTINE loop3_F90Overhead(N, x, y, a) INTEGER i, N REA

loop22f90.f90

SUBROUTINE loop22_F90(N, x, a, b, c, d) INTEGER i, N REAL*8 x(N), a(N), b(N), c(N), d(N) x=x+a*b+c*d RETURN END SUBROUTINE loop22_F90Overhead(N, x, a, b, c

loop11f90.f90

SUBROUTINE loop11_F90(N, x, a, b, c, d) INTEGER i, N REAL*8 x(N), a(N), b(N), c(N), d(N) x=a+b+c+d RETURN END SUBROUTINE loop11_F90Overhead(N, x, a, b, c,

loop1f90.f90

SUBROUTINE loop1_F90(N, x, y) INTEGER i, N REAL*8 x(N), y(N) x=sqrt(y) RETURN END SUBROUTINE loop1_F90Overhead(N, x, y) INTEGER i, N REAL*8 x(N

loop23f90.f90

SUBROUTINE loop23_F90(N, x, a, b, c, d, y) INTEGER i, N REAL*8 x(N), a(N), b(N), c(N), d(N), y(N) x=a*b+c*d y=b+d RETURN END SUBROUTINE loop23_F90O

loop10f90.f90

SUBROUTINE loop10_F90(N, x, a, b, c, u) INTEGER i, N REAL*8 x(N), a(N), b(N), c(N), u x=u+a+b+c RETURN END SUBROUTINE loop10_F90Overhead(N, x, a, b, c, u)

loop4f90.f90

SUBROUTINE loop4_F90(niters, N, x, a, b) INTEGER i, iter, niters, N REAL*8 x(N), a(N), b(N) DO iter=1,niters x=a+b END DO RETURN END

loop6f90.f90

SUBROUTINE loop6_F90(N, x, a, b) INTEGER i, N REAL*8 x(N), a(N), b(N) x=a*b RETURN END SUBROUTINE loop6_F90Overhead(N, x, a, b) INTEGER i, N RE

loop8f90.f90

SUBROUTINE loop8_F90(N, a, x, u) INTEGER i, N REAL*8 a(N), x(N), u x=u/a RETURN END SUBROUTINE loop8_F90Overhead(N, a, x, u) INTEGER i, N REAL*