代码搜索结果
找到约 10,000 项符合
F 的代码
fft4f.f
! Fast Fourier/Cosine/Sine Transform
! dimension :one
! data length :power of 2
! decimation :frequency
! radix :4, 2
! data :inplace
! table :use
fft2f.f
! Fast Fourier/Cosine/Sine Transform
! dimension :one
! data length :power of 2
! decimation :frequency
! radix :2
! data :inplace
! table :not use
loop2f.f
SUBROUTINE loop2_F77(N, x, y, u)
INTEGER i, N
REAL*8 x(N), y(N), u
DO i=1,N
x(i)=y(i)/u
END DO
RETURN
END
SUBROUTINE loop2_F77Overhead(N, x
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)
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
END
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
END
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
END