代码搜索:parameter
找到约 10,000 项符合「parameter」的源代码
代码结果 10,000
www.eeworm.com/read/476406/6760853
f90 twodq.f90
program main
use IMSL
implicit none
real A, B
real, parameter :: ERRABS = 0.001
real, parameter :: ERRREL = 0.001
integer, parameter :: IRULE = 6
real, external :: F,G,H
real :
www.eeworm.com/read/476406/6760854
f90 deriv.f90
program main
use IMSL
implicit none
real, external :: F
integer, parameter :: KORDER = 1
real :: x=0.0
real, parameter :: BGSTEP = 1E-3
real, parameter :: TOL = 1E-3
write(*,*
www.eeworm.com/read/476406/6760855
f90 ivpag.f90
! IMSL IVPAG范例
! 求解Y'(t)=-0.01*Y(t)
! initial value Y(0)=2
program main
use IMSL
implicit none
integer, parameter :: MXPARM = 50
integer, parameter :: N = 1
integer IDO, ISTEP, NOUT
www.eeworm.com/read/476406/6760856
f90 zanly.f90
program main
use IMSL
implicit none
integer, parameter :: N = 3
integer :: INFO(N)
integer, parameter :: ITMAX = 100
integer, parameter :: NKNOWN = 0
integer, parameter :: NNEW =
www.eeworm.com/read/476406/6760857
f90 ivmrk.f90
! IMSL IVMRK范例
! 求解Y1'(t)=-5*Y1(t) + 2*Y2(t)
! Y2'(t)=13*Y1(t) - 0.5*Y2(t)
! initial condition Y1(0)=1, Y2(0)=1
program main
use IMSL
implicit none
integer, parameter :: MXPARM = 50
www.eeworm.com/read/476406/6760859
f90 rline.f90
program main
use IMSL
implicit none
integer, parameter :: NOBS = 5
real XDATA(NOBS), YDATA(NOBS)
real B0, B1
real STAT(12)
real xinc, xp, value
real F,X
F(X) = 2*X + 3
in
www.eeworm.com/read/476406/6760860
f90 zbren.f90
program main
use IMSL
implicit none
real, parameter :: ERRABS = 0.0
real, parameter :: ERRREL = 0.001
integer :: MAXFN = 100
real :: A,B
real, external :: F
A=-1.0
B=1.0
www.eeworm.com/read/476406/6760861
f90 neqnf.f90
program main
use IMSL
implicit none
external FCN
real, parameter :: ERRREL = 0.0001
integer, parameter :: N = 3
integer, parameter :: ITMAX = 100
real :: XGUESS(N) = (/ 0.0, 1.0,
www.eeworm.com/read/476406/6760862
f90 qdagi.f90
program main
use IMSL
implicit none
real, external :: F
real :: BOUND = 1.0
integer :: INTER = 1
real, parameter :: ERRABS = 1E-3
real, parameter :: ERRREL = 1E-3
real ANS, ERR
www.eeworm.com/read/476406/6760863
f90 fnlsq.f90
program main
use IMSL
implicit none
integer, parameter :: INTCEP = 1
integer, parameter :: NBASIS = 2
integer, parameter :: NDATA = 90
integer, parameter :: IWT = 0
real, external