代码搜索:parameter
找到约 10,000 项符合「parameter」的源代码
代码结果 10,000
www.eeworm.com/read/208614/15242344
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/208614/15242345
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/208614/15242346
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/208614/15242348
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/208614/15242349
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/208614/15242350
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/208614/15242351
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/208614/15242352
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
www.eeworm.com/read/208614/15242355
f90 qdags.f90
program main
use IMSL
implicit none
integer NOUT
real, external :: F
real A, B
real, parameter :: ERRABS = 1E-5
real, parameter :: ERRREL = 1E-5
real ANS, ERR
A = 0.0
B
www.eeworm.com/read/208614/15242357
f90 bvpms.f90
! IMSL BVPMS范例
! 求解y'''-y''+y'-y=0
! 经过y'=y, y2=y', y3=y''代换后会变成First order ODE
! y1'=y2
! y2'=y3
! y3'=y3-y2+y1
! 答案为y1=cos(t), y2=-sin(t), y3=-cos(t)
program main
use IMSL
implicit none