代码搜索：Loop
找到约 10,000 项符合「Loop」的源代码
代码结果 10,000
www.eeworm.com/read/473001/6853871
f loop12f.f
SUBROUTINE loop12_F77(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
DO i=1,N
y(i)=u+a(i)
x(i)=a(i)+b(i)+c(i)+d(i)
www.eeworm.com/read/473001/6853873
f loop22f.f
SUBROUTINE loop22_F77(N, x, a, b, c, d)
INTEGER i, N
REAL*8 x(N), a(N), b(N), c(N), d(N)
DO i=1,N
x(i)=x(i)+a(i)*b(i)+c(i)*d(i)
END DO
RETURN
www.eeworm.com/read/473001/6853877
f loop4f.f
SUBROUTINE loop4_F77(niters, N, x, a, b)
INTEGER i, iter, niters, N
REAL*8 x(N), a(N), b(N)
DO iter=1,niters
DO i=1,N
x(i)=a(i)+b(i)
END DO
www.eeworm.com/read/473001/6853883
f loop14f.f
SUBROUTINE loop14_F77(N, x, a, b, y)
INTEGER i, N
REAL*8 x(N), a(N), b(N), y(N)
DO i=1,N
x(i)=a(i)+b(i)
y(i)=a(i)-b(i)
END DO
RETURN
www.eeworm.com/read/473001/6853885
f loop11f.f
SUBROUTINE loop11_F77(N, x, a, b, c, d)
INTEGER i, N
REAL*8 x(N), a(N), b(N), c(N), d(N)
DO i=1,N
x(i)=a(i)+b(i)+c(i)+d(i)
END DO
RETURN
EN
www.eeworm.com/read/473001/6853897
f loop24f.f
SUBROUTINE loop24_F77(N, x, a, b, c, d, y)
INTEGER i, N
REAL*8 x(N), a(N), b(N), c(N), d(N), y(N)
DO i=1,N
x(i)=a(i)*c(i)-b(i)*d(i)
y(i)=a(i)*d(i)+b(
www.eeworm.com/read/473001/6853898
f loop17f.f
SUBROUTINE loop17_F77(N, x, a, b, c, d)
INTEGER i, N
REAL*8 x(N), a(N), b(N), c(N), d(N)
DO i=1,N
x(i)=(a(i)+b(i))*(c(i)+d(i))
END DO
RETURN
www.eeworm.com/read/473001/6853901
f loop19f.f
SUBROUTINE loop19_F77(N, x, a, b, y, u, v)
INTEGER i, N
REAL*8 x(N), a(N), b(N), y(N), u, v
DO i=1,N
x(i)=u*a(i)
y(i)=v*b(i)
END DO
RET
www.eeworm.com/read/473001/6853902
f loop10f.f
SUBROUTINE loop10_F77(N, x, a, b, c, u)
INTEGER i, N
REAL*8 x(N), a(N), b(N), c(N), u
DO i=1,N
x(i)=u+a(i)+b(i)+c(i)
END DO
RETURN
END
www.eeworm.com/read/473001/6853903
f loop8f.f
SUBROUTINE loop8_F77(N, a, x, u)
INTEGER i, N
REAL*8 a(N), x(N), u
DO i=1,N
x(i)=u/a(i)
END DO
RETURN
END
SUBROUTINE loop8_F77Ov