63、标准内置程序详解

pytorchlight8

于 2025-08-14 15:46:10 发布

阅读量71

点赞数

CC 4.0 BY-SA版权

分类专栏：深入浅出Fortran 2003编程文章标签： Fortran 标准内置程序指针关联

本文链接：https://blog.youkuaiyun.com/pytorchlight8/article/details/150565807

深入浅出Fortran 2003编程专栏收录该内容

70 篇文章 ¥499.90

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

标准内置程序详解

1. 指针关联与分配示例

首先来看指针关联的相关示例。定义一个类型 node_type ：

type node_type
   integer :: value
   type(node_type), pointer :: next => null ()
end type
type(node_type) ::  node

初始时， ASSOCIATED (node%next) 为 false 。当执行 ALLOCATE (node%next) 后， ASSOCIATED (node%next) 变为 true 。

再考虑一个具有 TARGET 属性的一维数组 B ，其边界为 1:N ，以及一个同类型的一维指针 B_PTR 。执行 B_PTR => B(:N) 后， ASSOCIATED (B_PTR, B) 为 true ；而执行 B_PTR => B(N:1:-1) 后， ASSOCIATED (B_PTR, B) 为 false 。

指针与目标关联的