代码搜索：pointer
找到约 10,000 项符合「pointer」的源代码
代码结果 10,000
www.eeworm.com/read/409260/11338744
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/409260/11338747
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/409260/11338751
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/409260/11338754
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/409260/11338760
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/409260/11338764
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/409260/11338767
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(:,:,
www.eeworm.com/read/409260/11338774
f90 ex1003.f90
program ex1003
implicit none
integer, pointer :: a => null()
integer, target :: b=1,c=2
write(*,*) associated(a) ! FALSE, 指针a尚未指定
a => c
write(*,*) associated(a) ! TRUE, 指针a
www.eeworm.com/read/263742/11345157
c os_cpu_c.c
/*
*********************************************************************************************************
* uC/OS-II
*
www.eeworm.com/read/263739/11345254
c os_cpu_c.c
/*
*********************************************************************************************************
* uC/OS-II
*