代码搜索结果

12 -4.0 1.0 3.0 4.5 7.5 12.5 17.5 22.5 27.5 32.5 37.5 40.0 1 15 15 80.0 72.5 62.5 57.5 52.5 47.5 42.5 37.5 32.5 27.5 22.5 17.5 12.5 5.0

950808 00 0 59.95 38N49.73 20E35.18 4.50 0.00 R001 P 0 10.16R002 P 0 7.42R003 P 0 7.06R004 P 0 7.63R005 P 0 10.26R006 P 0 7.57 R007 P 0 2.90R008 P 0 2.28R009 P 0 4.22R010 P 0 8.69R011 P 0

/* * 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).

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

! 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)

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