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