INTEGER, POINTER, INTENT(INOUT) :: C(:) C = C * 2 ! Double the values through the pointer END SUBROUTINE ModifyArray END PROGRAM TargetExample ``` 在上面的示例中,数组`A`被声明为`TARGET`,表示它是一个可修改的目标数组。然后,通过将指针`B`指向数组`A`,可以在子程序中修改`A`的内容。 请...
real,dimension(:),pointer::v v是一个可以“指向”实型一维数组的指针 指针指向的对象的说明形式为: 类型说明符[,其他属性说明],target::变量名表 例如: real, target::x1,x2 说明x1和x2为两个可以作为指针指向对象的实型变量 再如: Integer,dimension(10), target::y 说明y是一个可被指针指向的含10...
real,dimension(:),pointer::v v是一个可以“指向”实型一维数组的指针 指针指向的对象的说明形式为: 类型说明符[,其他属性说明],target::变量名表 例如: real, target::x1,x2 说明x1和x2为两个可以作为指针指向对象的实型变量 再如: Integer,dimension(10), target::y 说明y是一个可被指针指向的含10...
指针的声明和使用如下所示:program pointer_example implicit none integer, target :: a integer, pointer :: ptr a = 10 ptr => a print *, "Value of a: ", a print *, "Value of ptr: ", ptr print *, "Value pointed by ptr: ", ptr end program pointer_example 复制代码 在上面的示例中...
INTEGER, POINTER :: PTR(:) INTEGER, TARGET :: TARG(5) PTR => TARG ! PTR is associated with TARG and is ! assigned an array specification of (5) PTR(1) = 5 ! TARG(1) has value of 5 PRINT *, FUNC() CONTAINS REAL FUNCTION FUNC() POINTER :: FUNC ! Function result is a poin...
end program test_pointer_1 用指针来操作数组,可以随意引用数组中的任意片段,是指针的强大功能之一, 请看下面的示例2: program test_pointer_2 implicit none integer,pointer::a(:) integer,target::b(5)=(/1,2,3,4,5/) !--- !---引用整个数组 a=>b ! a(1)=1;a(2)=2;a(3)=...
end program test_pointer_1 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 用指针来操作数组,可以随意引用数组中的任意片段,是指针的强大功能之一, 请看下面的示例2: program test_pointer_2 implicit none integer,pointer::a(:) integer,target::b(5)=(/1,2,3,4,5/) ...
type(person),target :: p(5) type(person),pointer :: pp(:) type(person),pointer :: temp, temp1,temp2,temp3 integer :: i,s,j p(1)=person("xzl",90,90,100) p(2)=person("sn",80,70,100) p(3)=person("wsq",77,88,100) ...
ASSOCIATED (POINTER [, TARGET]) 关联状态查询或比较 NULL ([MOLD]) 返回分离的指针 2.1.21 系统环境调节过程通用内函数名 说明 COMMAND_ARGUMENT_COUNT () 返回命令参数的数目 GET_COMMAND ([COMMAND, LENGTH, STATUS]) 返回调用程序的整个命令 GET_COMMAND_ARGUMENT (NUMBER [, VALUE, LENGTH, ...
//声明目标数组work6real(RK),allocatable,target :: work(:,:)78!//定义结构体类型qcontainer,该类型中的分量obj可以指向一个一维的数组9type qcontainer10real(RK),pointer :: obj(:)11end type qcontainer1213!//声明一个一维的的数组qtwork14type(qcontainer),allocatable :: qtwork(:)1516!//定义...