代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/208614/15242354
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/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
www.eeworm.com/read/208614/15242360
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/208614/15242361
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) ::
www.eeworm.com/read/208614/15242362
f90 ex1101.f90
module bank
implicit none
private money
public LoadMoney, SaveMoney, Report
integer :: money = 1000000
contains
subroutine LoadMoney(num)
implicit none
integer :: num
money=m
www.eeworm.com/read/208614/15242364
f90 ex1108.f90
module time_util
implicit none
type :: time
integer :: hour,minute
end type time
interface operator(+) ! 让type(time)类型变量能够相加
module procedure add_time_time ! time+time
module
www.eeworm.com/read/208614/15242365
f90 ex1102.f90
module bank
implicit none
integer :: money = 1000000
integer :: fileid = 10
private money, fileid
private TimeLog
contains
subroutine TimeLog()
implicit none
integer :: num
www.eeworm.com/read/208614/15242367
f90 ex1110.f90
module rational_util
implicit none
private
public :: rational, &
operator(+), operator(-), operator(*),&
operator(/), assignment(=),&
output
type :
www.eeworm.com/read/208614/15242368
f90 ex1107.f90
module time_util
implicit none
type :: time
integer :: hour,minute
end type time
interface operator(+) ! 让type(time)类型变量能够相加
module procedure add
end interface
contains