代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/183629/9146987
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/183629/9146988
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/183629/9146989
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/183629/9146990
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
www.eeworm.com/read/183629/9146995
f90 ex1002.f90
program ex1002
implicit none
integer, pointer :: p ! 声明一个可以指向整数的指针
allocate(p) ! 配置一块可以存放integer的内存空间给指针p
p=100 ! 得到内存后指针p 可以像一般整数一样来使用
write(*,*) p
stop
end
www.eeworm.com/read/183629/9147002
f90 ex1008.f90
module func
contains
function getmin(p)
implicit none
integer, pointer :: p(:)
integer, pointer :: getmin
integer i,s
integer min
s=size(p,1) ! 查寻数组的大小
min = 2**30 ! 先把min设定成
www.eeworm.com/read/183629/9147005
f90 ex1012.f90
module typedef
implicit none
type :: datalink
integer :: i
type(datalink), pointer :: next
end type datalink
end module typedef
program ex1012
use typedef
implicit none
www.eeworm.com/read/183629/9147008
f90 ex1007.f90
program ex1007
implicit none
integer, target :: a(8)=(/ 10, 15, 8, 25, 9, 20, 17, 19 /)
integer, pointer :: p(:)
interface
function getmin(p)
integer, pointer :: p(:)
inte
www.eeworm.com/read/183629/9147009
f90 ex1001.f90
program ex1001
implicit none
integer, target :: a=1 ! 声明一个可以当成目标的变量
integer, pointer :: p ! 声明一个可以指向整数的指针
p=>a ! 把指针p指到变量a
write(*,*) p
a=2 ! 改变a的值
write(*,*) p
p=3 ! 改变指
www.eeworm.com/read/183629/9147011
f90 ex1006.f90
program ex1006
implicit none
integer, pointer :: a(:,:) ! 定义a是2维的指针数组
integer, target :: b(3,3,2)
integer i
forall( i=1:3 )
b(:,i,1)=i
b(:,i,2)=2*i
end forall
a=>b(:,:,