代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/376037/9335473
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/376037/9335475
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/376037/9335477
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/376037/9335481
f90 ex1110.f90
module rational_util
implicit none
private
public :: rational, &
operator(+), operator(-), operator(*),&
operator(/), assignment(=),&
output
type :
www.eeworm.com/read/376037/9335482
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/376037/9335484
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
www.eeworm.com/read/376037/9335485
f90 ex1004.f90
program ex1004
implicit none
integer, pointer :: a(:)
integer, target :: b(5)=(/ 1,2,3,4,5 /)
! 把指针数组a指向数组b
a=>b
! a(1～5)=>b(1～5)
write(*,*) a
a=>b(1:3)
! a(1)=>b(1), a(2
www.eeworm.com/read/376037/9335489
f90 ex1014.f90
module typedef
implicit none
type :: datalink
integer :: i
type(datalink), pointer :: prev ! 指向上一条数据
type(datalink), pointer :: next ! 指向下一条数据
end type datalink
end module typ
www.eeworm.com/read/376037/9335492
f90 ex1011.f90
module typedef
implicit none
type :: datalink
integer :: i
type(datalink), pointer :: next
end type datalink
end module typedef
program ex1011
use typedef
implicit none
www.eeworm.com/read/376037/9335493
f90 ex1009.f90
module func
! person类型最少占用18 bytes
! 因为它有10个字元及两个浮点数
type person
character(len=10) :: name
real :: height, weight
end type
! pperson类型通常占用4 bytes
! 因为它里面只有一个指针, 指针在PC中固定使用4 bytes
type ppe