代码搜索：implicit

找到约 5,250 项符合「implicit」的源代码

代码结果 5,250
热门代码： main.c GPIO I2C SPI UART timer interrupt ADC PWM LED
www.eeworm.com/read/376037/9335455

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/376037/9335458

f90 eigen.f90

program main use IMSL implicit none real :: A(3,3) = (/ 1,0,0,& 0,2,0,& 0,0,3 /) real :: eigenvalue(3) real :: eigenvector(3,3) integer i eigenval
·
www.eeworm.com/read/376037/9335460

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/376037/9335461

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/376037/9335462

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/376037/9335465

f90 zplrc.f90

program main use imsl ! 在Visual Fortran使用IMSL前最好先use imsl implicit none ! f(x) = X^2-3X+2 real :: p(3) = (/ 2.0, -3.0, 1.0 /) complex r(2) ! 答案是复数类型 call zplrc( 2, p, r ) ! 求解X^2-3
·
www.eeworm.com/read/376037/9335466

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/376037/9335468

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
·
www.eeworm.com/read/376037/9335471

f90 ex1109.f90

module NewGraphLib use TextGraphLib implicit none contains subroutine OutputToFile(filename) implicit none character(len=*), intent(in) :: filename character(len=10) :: fmt="(xxx
·
www.eeworm.com/read/376037/9335472

f90 ex1106.f90

module MA implicit none type ta integer a end type interface operator(+) module procedure add end interface contains integer function add(a,b) type(ta), intent(in) ::
·