代码搜索结果
找到约 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*