代码搜索：pointer
找到约 10,000 项符合「pointer」的源代码
代码结果 10,000
www.eeworm.com/read/476406/6760881
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/476406/6760882
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/476406/6760883
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/476406/6760884
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/476406/6760888
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/476406/6760889
f90 ex1016.f90
module linklist
type student
integer :: num
integer :: Chinese, English, Math, Science, Social
end type
type datalink
type(student) :: item
type(datalink), pointer :: nex
www.eeworm.com/read/476406/6760890
f90 ex1015.f90
module linklist
implicit none
type :: datalink
integer :: i
type(datalink), pointer :: prev ! 指向上一条数据
type(datalink), pointer :: next ! 指向下一条数据
end type datalink
contains
www.eeworm.com/read/476406/6760891
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/476406/6760893
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/476406/6760894
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 ! 改变指