代码搜索结果

* fortran version of *gpfa2* - * radix-2 section of self-sorting, in-place, generalized pfa * central radix-2 and radix-8 passes included * so that transform length can be any powe

* fortran version of *dgpfa3* - * radix-3 section of self-sorting, in-place * generalized PFA * *------------------------------------------------------------------- * subrou

* fortran version of *dgpfa5* - * radix-5 section of self-sorting, in-place, * generalized pfa * *------------------------------------------------------------------- * subro

* fortran version of *gpfa5* - * radix-5 section of self-sorting, in-place, * generalized pfa * *------------------------------------------------------------------- * subrou

* fortran version of *gpfa3* - * radix-3 section of self-sorting, in-place * generalized PFA * *------------------------------------------------------------------- * subrout

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_F77Ov

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)

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

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

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