代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/414769/11101889
for eclass.for
SUBROUTINE eclass(nf,n,lista,listb,m)
INTEGER m,n,lista(m),listb(m),nf(n)
INTEGER j,k,l
do 11 k=1,n
nf(k)=k
11 continue
do 12 l=1,m
j=lista(l)
www.eeworm.com/read/414769/11102121
for hpsort.for
SUBROUTINE hpsort(n,ra)
INTEGER n
REAL ra(n)
INTEGER i,ir,j,l
REAL rra
if (n.lt.2) return
l=n/2+1
ir=n
10 continue
if(l.gt.1)then
www.eeworm.com/read/414769/11102387
for simp2.for
SUBROUTINE simp2(a,m,n,mp,np,l2,nl2,ip,kp,q1)
INTEGER ip,kp,m,mp,n,nl2,np,l2(mp)
REAL q1,a(mp,np),EPS
PARAMETER (EPS=1.e-6)
INTEGER i,ii,k
REAL q,q0,qp
www.eeworm.com/read/414769/11102490
for wt1.for
SUBROUTINE wt1(a,n,isign,wtstep)
INTEGER isign,n
REAL a(n)
EXTERNAL wtstep
CU USES wtstep
INTEGER nn
if (n.lt.4) return
if (isign.ge.0) then
www.eeworm.com/read/414769/11102521
for elmhes.for
SUBROUTINE elmhes(a,n,np)
INTEGER n,np
REAL a(np,np)
INTEGER i,j,m
REAL x,y
do 17 m=2,n-1
x=0.
i=m
do 11 j=m,n
if(abs(a(j
www.eeworm.com/read/414769/11102526
for locate.for
SUBROUTINE locate(xx,n,x,j)
INTEGER j,n
REAL x,xx(n)
INTEGER jl,jm,ju
jl=0
ju=n+1
10 if(ju-jl.gt.1)then
jm=(ju+jl)/2
if((xx(n).ge.xx(1)).
www.eeworm.com/read/414769/11102602
for crank.for
SUBROUTINE crank(n,w,s)
INTEGER n
REAL s,w(n)
INTEGER j,ji,jt
REAL rank,t
s=0.
j=1
1 if(j.lt.n)then
if(w(j+1).ne.w(j))then
w(j)
www.eeworm.com/read/414769/11102627
for gauher.for
SUBROUTINE gauher(x,w,n)
INTEGER n,MAXIT
REAL w(n),x(n)
DOUBLE PRECISION EPS,PIM4
PARAMETER (EPS=3.D-14,PIM4=.7511255444649425D0,MAXIT=10)
INTEGER i,its,j,m
www.eeworm.com/read/414769/11102714
for balanc.for
SUBROUTINE balanc(a,n,np)
INTEGER n,np
REAL a(np,np),RADIX,SQRDX
PARAMETER (RADIX=2.,SQRDX=RADIX**2)
INTEGER i,j,last
REAL c,f,g,r,s
1 continue
l
www.eeworm.com/read/414760/11103063
f90 mrswfp.f90
MODULE rswfp_func
! From the book "Computation of Special Functions"
! by Shanjie Zhang and Jianming Jin
! Copyright 1996 by John Wiley & Sons, Inc.
! The authors state:
! "However, w