代码搜索：pointer
找到约 10,000 项符合「pointer」的源代码
代码结果 10,000
www.eeworm.com/read/221868/14716755
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/221868/14716759
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/221868/14716761
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/221868/14716763
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/221868/14716767
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/122039/14722487
h regexp.h
#ifndef __REGEXP_H__
#define __REGEXP_H__
////////////////////////////////////////////////////////////////////////
// RegExp.h
//
// This code has been derived from work by Henry Spencer.
//
www.eeworm.com/read/121515/14754897
hpp countingptr.hpp
/* The following code example is taken from the book
* "C++ Templates - The Complete Guide"
* by David Vandevoorde and Nicolai M. Josuttis, Addison-Wesley, 2002
*
* (C) Copyright David Vandevoorde
www.eeworm.com/read/121515/14754900
hpp holder.hpp
/* The following code example is taken from the book
* "C++ Templates - The Complete Guide"
* by David Vandevoorde and Nicolai M. Josuttis, Addison-Wesley, 2002
*
* (C) Copyright David Vandevoorde
www.eeworm.com/read/121460/14756110
pas onlinehandle.pas
unit OnlineHandle;
interface
Var
pCommData: Pointer;
IsConnected: Boolean;
implementation
begin
pCommData := NIL;
IsConnected:= False;
end.
www.eeworm.com/read/121460/14756148
pas onlinedll.pas
{
It is assumed that you have installed
Online Comm Manager in the folder of
C:\OnlineCommManager
Otherwise, you have to
1. Copy OnlineDll.Dll to Windows or Windows\System folder,
and rem