代码搜索:Loop

找到约 10,000 项符合「Loop」的源代码

代码结果 10,000
www.eeworm.com/read/216898/14987680

f90 loop25f90.f90

SUBROUTINE loop25_F90(N, x, a, b, c, y, u, v, w) INTEGER i, N REAL*8 x(N), a(N), b(N), c(N), y(N), u, v, w x=u*b y=v*b+w*a+u*c RETURN END SUBROUTIN
www.eeworm.com/read/216898/14987692

f90 loop36f90.f90

SUBROUTINE loop36_F90(N, x, e) INTEGER i, N REAL*8 x(N), e(N) x=exp(e) RETURN END SUBROUTINE loop36_F90Overhead(N, x, e) INTEGER i, N REAL*8 x(
www.eeworm.com/read/216898/14987694

f90 loop14f90.f90

SUBROUTINE loop14_F90(N, x, a, b, y) INTEGER i, N REAL*8 x(N), a(N), b(N), y(N) x=a+b y=a-b RETURN END SUBROUTINE loop14_F90Overhead(N, x, a, b, y)
www.eeworm.com/read/216898/14987695

f90 loop16f90.f90

SUBROUTINE loop16_F90(N, x, a, b, c, y, u) INTEGER i, N REAL*8 x(N), a(N), b(N), c(N), y(N), u x=a+b+c y=x+c+u RETURN END SUBROUTINE loop16_F90Over
www.eeworm.com/read/216898/14987702

f90 loop17f90.f90

SUBROUTINE loop17_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 loop17_F90Overhead(N, x, a, b,
www.eeworm.com/read/216898/14987736

f90 loop15f90.f90

SUBROUTINE loop15_F90(N, x, c, a, b) INTEGER i, N REAL*8 x(N), c(N), a(N), b(N) x=c+a*b RETURN END SUBROUTINE loop15_F90Overhead(N, x, c, a, b) INTEG
www.eeworm.com/read/216898/14987737

f90 loop19f90.f90

SUBROUTINE loop19_F90(N, x, a, b, y, u, v) INTEGER i, N REAL*8 x(N), a(N), b(N), y(N), u, v x=u*a y=v*b RETURN END SUBROUTINE loop19_F90Overhead(N,
www.eeworm.com/read/216898/14987749

f90 loop24f90.f90

SUBROUTINE loop24_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*c-b*d y=a*d+b*c RETURN END SUBROUTINE loop24_
www.eeworm.com/read/216898/14987776

f90 loop21f90.f90

SUBROUTINE loop21_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 loop21_F90Overhead(N, x, a, b, c,
www.eeworm.com/read/216898/14987777

f90 loop9f90.f90

SUBROUTINE loop9_F90(N, a, x) INTEGER i, N REAL*8 a(N), x(N) x=x+a RETURN END SUBROUTINE loop9_F90Overhead(N, a, x) INTEGER i, N REAL*8 a(N), x