代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/378913/9213466
f90 plgndr.f90
FUNCTION plgndr(l,m,x)
INTEGER l,m
REAL plgndr,x
INTEGER i,ll
REAL fact,pll,pmm,pmmp1,somx2
if(ml.or.abs(x)>1.) pause&
'bad arguments in plgndr'
pmm=1.
if(m>0) then
so
www.eeworm.com/read/378913/9213488
f90 factln.f90
FUNCTION factln(n)
INTEGER n
REAL factln
!USES gammln
REAL a(100),gammln
SAVE a
DATA a/100*-1./
if (n
www.eeworm.com/read/182166/9213787
bas module1.bas
Attribute VB_Name = "Module1"
Public fMainForm As frmMain
Public flagTedit As Boolean
Public flagRedit As Boolean
Public flagBedit As Boolean
Public flagCedit As Boolean
Public gintCmode As Inte
www.eeworm.com/read/182165/9213837
bas module1.bas
Attribute VB_Name = "Module1"
Public fMainForm As frmMain
Public gintdMode As Integer
Public gintvMode As Integer
Public gintsMode As Integer
Public gintrMode As Integer
Public gintaMode As Inte
www.eeworm.com/read/378808/9215644
bas module1.bas
Attribute VB_Name = "Module1"
Public Indate As Date '入场时间
Public OldIndate As Date '原始入场时间
Public Outdate As Date '出场时间
Public OldOutdate As Date
www.eeworm.com/read/378783/9215998
f90 balanc.f90
SUBROUTINE balanc(a,n)
INTEGER n
REAL a(n,n),RADIX,SQRDX
PARAMETER (RADIX=2.,SQRDX=RADIX**2)
INTEGER i,j,last
REAL c,f,g,r,s
do
last=1
do i=1,n
c=0.
r=0.
do j=1,n
if(
www.eeworm.com/read/378783/9216000
f90 fleg.f90
SUBROUTINE fleg(x,pl,nl)
INTEGER nl
REAL x,pl(nl)
INTEGER j
REAL d,f1,f2,twox
pl(1)=1.
pl(2)=x
if(nl>2) then
twox=2.*x
f2=x
d=1.
do j=3,nl
f1=d
f2=f2+twox
d=d+1.
www.eeworm.com/read/378783/9216064
f90 piksrt.f90
SUBROUTINE piksrt(n,arr)
INTEGER n
REAL arr(n)
INTEGER i,j
REAL a
do j=2,n
a=arr(j)
do i=j-1,1,-1
if(arr(i)
www.eeworm.com/read/378783/9216116
f90 qrdcmp.f90
SUBROUTINE qrdcmp(a,m,n,q)
REAL a(n,n),q(m,m)
INTEGER i,k,j
REAL s,t,f,h
do i=1,m
do j=1,m
q(i,j)=0.
end do
q(i,i)=1.
end do
do k=1,m-1
s=0.
do i=k,m
s=s+abs(a(i,k))
www.eeworm.com/read/378783/9216165
f90 splint.f90
SUBROUTINE splint(xa,ya,y2a,n,x,y)
INTEGER n
REAL aaa,x,y,xa(n),y2a(n),ya(n)
INTEGER k,khi,klo
REAL a,b,h
klo=1
khi=n
do
aaa=0
if (khi-klo>1) then
aaa=2.
k=(khi+klo)/2
if(x