代码搜索:F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/116390/14975244
gif f.gif
www.eeworm.com/read/116385/14977314
gif f.gif
www.eeworm.com/read/216898/14987047
h f.h
/*
* F distribution
*
* This code has been adapted from RANDLIB.C 1.3, by
* Barry W. Brown, James Lovato, Kathy Russell, and John Venier.
* Code was originally by Ahrens and Dieter (see above).
www.eeworm.com/read/216898/14987536
f fidaxpy.f
subroutine fidaxpy(a, x, y, n, iters)
integer i
double precision x(n), y(n), a
double precision b
b = - a
do 2000 j = 1, iters
do 1000 i = 1, n
y(i
www.eeworm.com/read/216898/14987545
f acousticf.f
! INTEGER N, iters
! REAL check
! N = 128
! iters = N*3
! CALL echo_f77(N,iters,check)
! PRINT *, check
! END
SUBROUTINE echo_f77(N, niters, check)
www.eeworm.com/read/216898/14987546
f cfdf.f
www.eeworm.com/read/216898/14987609
f qcdf.f
www.eeworm.com/read/216898/14987704
f arrdaxpyf.f
subroutine arrdaxpyf(A, B, N, iters, c1)
integer N, iters
double precision A(N,N,N), B(N,N,N)
double precision c1
double precision c2
c2 = - c1
do z=1
www.eeworm.com/read/216898/14987724
f haneyf.f
www.eeworm.com/read/216898/14987742
f stencilf.f
subroutine stencilf(A, B, N, iters)
integer N, iters
double precision A(N,N,N), B(N,N,N)
integer i,j,k,z
double precision c
c = 1 / 7.
do z=1,iters