代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/216898/14987615
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
END
www.eeworm.com/read/216898/14987622
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
RETURN
www.eeworm.com/read/216898/14987624
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
SUBR
www.eeworm.com/read/216898/14987626
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_F77Overhead(N, a
www.eeworm.com/read/216898/14987634
f loop9f.f
SUBROUTINE loop9_F77(N, a, x)
INTEGER i, N
REAL*8 a(N), x(N)
DO i=1,N
x(i)=x(i)+a(i)
END DO
RETURN
END
SUBROUTINE loop9_F77Overhead(N, a, x
www.eeworm.com/read/216898/14987648
f loop18f.f
SUBROUTINE loop18_F77(N, x, a, b, u, v)
INTEGER i, N
REAL*8 x(N), a(N), b(N), u, v
DO i=1,N
x(i)=(u+a(i))*(v+b(i))
END DO
RETURN
END
SUBROU
www.eeworm.com/read/216898/14987664
f loop15f.f
SUBROUTINE loop15_F77(N, x, c, a, b)
INTEGER i, N
REAL*8 x(N), c(N), a(N), b(N)
DO i=1,N
x(i)=c(i)+a(i)*b(i)
END DO
RETURN
END
SUBROUTINE l
www.eeworm.com/read/216898/14987681
f loop1f.f
SUBROUTINE loop1_F77(N, x, y)
INTEGER i, N
REAL*8 x(N), y(N)
DO i=1,N
x(i)=sqrt(y(i))
END DO
RETURN
END
SUBROUTINE loop1_F77Overhead(N, x,
www.eeworm.com/read/216898/14987683
f loop16f.f
SUBROUTINE loop16_F77(N, x, a, b, c, y, u)
INTEGER i, N
REAL*8 x(N), a(N), b(N), c(N), y(N), u
DO i=1,N
x(i)=a(i)+b(i)+c(i)
y(i)=x(i)+c(i)+u
END DO
www.eeworm.com/read/216898/14987690
f loop13f.f
SUBROUTINE loop13_F77(N, x, a, b, c, d, y, u)
INTEGER i, N
REAL*8 x(N), a(N), b(N), c(N), d(N), y(N), u
DO i=1,N
x(i)=a(i)+b(i)+c(i)+d(i)
y(i)=u+d(i)