代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/261064/11667818
f colider.f
integer*4 function colider( v, crmax, tau, seed,
& selxtra, coeff )
integer*4 MAXnpart, MAXncell
parameter( MAXnpart = 10000, MAXncell = 500 )
www.eeworm.com/read/261064/11667820
f sorter.f
subroutine sorter( x, L )
real*8 x(*), L
! sorter - Routine to sort particles into cells
! Inputs
! x Positions of particles
! L System size
! Outputs
! cell_n
www.eeworm.com/read/261064/11667822
f rand.f
real*8 function rand( seed )
integer*4 seed
! Random number generator; Uniform dist. in [0,1)
! Input
! seed Integer seed (DO NOT USE A SEED OF ZERO)
! Output
! rand Random
www.eeworm.com/read/261064/11667824
f orthog.f
! orthog - Program to test if a pair of vectors
! is orthogonal. Assumes vectors are in 3D space
program orthog
!* Initialize the vectors a and b
integer*4 i
real*8 a(3), b(
www.eeworm.com/read/261064/11667828
f advect.f
! advect - Program to solve the advection equation
! using the various hyperbolic PDE schemes
program advect
integer*4 MAXN, MAXnplots
parameter( MAXN = 500, MAXnplots = 500 )
www.eeworm.com/read/261064/11667830
f interp.f
! interp - Program to interpolate data using Lagrange
! polynomial to fit quadratic to three data points
program interp
integer*4 MAXnplot
parameter(MAXnplot = 1000)
!* Initia
www.eeworm.com/read/261064/11667831
f rka.f
subroutine rka( x, nX, t, tau, err, derivsRK, param )
integer*4 MAXnX, MAXnparam
parameter( MAXnX = 50, MAXnparam = 1000 )
integer*4 nX
real*8 x(MAXnX), t, tau, err, para
www.eeworm.com/read/261064/11667832
f dsmceq.f
! dsmceq - Dilute gas simulation using DSMC algorithm
! This version illustrates the approach to equilibrium
program dsmceq
integer*4 MAXnpart, MAXncell
parameter( MAXnpart =
www.eeworm.com/read/261064/11667836
f bess.f
subroutine bess( m_max, x, jj )
integer*4 m_max
real*8 x, jj(*)
! Bessel function
! Inputs
! m_max Largest desired order
! x = Value at which Bessel function J(x) is eva
www.eeworm.com/read/261064/11667838
f newtn.f
! newtn - Program to solve a system of nonlinear equations
! using Newton's method. Equations defined by function fnewt.
program newtn
integer*4 MAXnVars, MAXnParams, MAXnStep
para