代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/429726/8792736
txt snmpv2-smi.txt
SNMPv2-SMI DEFINITIONS ::= BEGIN
-- the path to the root
org OBJECT IDENTIFIER ::= { iso 3 } -- "iso" = 1
dod OBJECT IDENTIFIER ::= { org 6 }
internet OBJECT IDENTIFIER
www.eeworm.com/read/184304/9111181
src dydzzy.src
DYDZZY:=proc(f)
# DYDZZY(f) is used to get the derivate of
# an implicit function
local Eq,deq,imderiv;
Eq:='Eq';
Eq:=f;
deq:=diff(Eq,x);
readlib(isolate);
imderiv:=isolate(deq,diff(y(x),
www.eeworm.com/read/183630/9146956
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/183630/9146958
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/183630/9146959
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/183630/9146964
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/183630/9146966
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/183630/9146970
f90 ex1110.f90
module rational_util
implicit none
private
public :: rational, &
operator(+), operator(-), operator(*),&
operator(/), assignment(=),&
output
type :
www.eeworm.com/read/183630/9146972
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
www.eeworm.com/read/183629/9146985
f90 ex1005.f90
program ex1005
implicit none
integer, pointer :: a(:) ! 定义a是一维的指针数组
allocate( a(5) ) ! 配置5个整数的空间给指针a
a = (/ 1,2,3,4,5 /)
write(*,*) a
deallocate( a ) ! allocate得到的内存要记得归还
stop