代码搜索: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(