代码搜索:parameter
找到约 10,000 项符合「parameter」的源代码
代码结果 10,000
www.eeworm.com/read/414769/11102342
for atimes.for
SUBROUTINE atimes(n,x,r,itrnsp)
INTEGER n,itrnsp,ija,NMAX
DOUBLE PRECISION x(n),r(n),sa
PARAMETER (NMAX=1000)
COMMON /mat/ sa(NMAX),ija(NMAX)
CU USES dsprsax,dspr
www.eeworm.com/read/414769/11102400
for rkck.for
SUBROUTINE rkck(y,dydx,n,x,h,yout,yerr,derivs)
INTEGER n,NMAX
REAL h,x,dydx(n),y(n),yerr(n),yout(n)
EXTERNAL derivs
PARAMETER (NMAX=50)
CU USES derivs
INTE
www.eeworm.com/read/414769/11102467
for gaucof.for
SUBROUTINE gaucof(n,a,b,amu0,x,w)
INTEGER n,NMAX
REAL amu0,a(n),b(n),w(n),x(n)
PARAMETER (NMAX=64)
CU USES eigsrt,tqli
INTEGER i,j
REAL z(NMAX,NMAX)
www.eeworm.com/read/414769/11102484
for probks.for
FUNCTION probks(alam)
REAL probks,alam,EPS1,EPS2
PARAMETER (EPS1=0.001, EPS2=1.e-8)
INTEGER j
REAL a2,fac,term,termbf
a2=-2.*alam**2
fac=2.
probk
www.eeworm.com/read/414769/11102488
for tridag.for
SUBROUTINE tridag(a,b,c,r,u,n)
INTEGER n,NMAX
REAL a(n),b(n),c(n),r(n),u(n)
PARAMETER (NMAX=500)
INTEGER j
REAL bet,gam(NMAX)
if(b(1).eq.0.)pause 'trida
www.eeworm.com/read/414769/11102514
for zbrac.for
SUBROUTINE zbrac(func,x1,x2,succes)
INTEGER NTRY
REAL x1,x2,func,FACTOR
EXTERNAL func
PARAMETER (FACTOR=1.6,NTRY=50)
INTEGER j
REAL f1,f2
LOGICAL
www.eeworm.com/read/414769/11102529
for asolve.for
SUBROUTINE asolve(n,b,x,itrnsp)
INTEGER n,itrnsp,ija,NMAX,i
DOUBLE PRECISION x(n),b(n),sa
PARAMETER (NMAX=1000)
COMMON /mat/ sa(NMAX),ija(NMAX)
do 11 i=1,n
www.eeworm.com/read/414769/11102567
for chebpc.for
SUBROUTINE chebpc(c,d,n)
INTEGER n,NMAX
REAL c(n),d(n)
PARAMETER (NMAX=50)
INTEGER j,k
REAL sv,dd(NMAX)
do 11 j=1,n
d(j)=0.
dd(j)=0.
www.eeworm.com/read/414769/11102621
for quadmx.for
SUBROUTINE quadmx(a,n,np)
INTEGER n,np,NMAX
REAL a(np,np),PI
DOUBLE PRECISION xx
PARAMETER (PI=3.14159265,NMAX=257)
COMMON /momcom/ xx
EXTERNAL kermom
www.eeworm.com/read/414769/11102625
for splie2.for
SUBROUTINE splie2(x1a,x2a,ya,m,n,y2a)
INTEGER m,n,NN
REAL x1a(m),x2a(n),y2a(m,n),ya(m,n)
PARAMETER (NN=100)
CU USES spline
INTEGER j,k
REAL y2tmp(NN),ytmp(