文档介绍：第十一章
数据共享
第1页，共16页。
数据共享的基本概念
数据共享的作用
节约内存
高效地传递大量数据
数据共享的类型
不同的数据共享同一内存空间
不同的程序模块共享同一程序代码
保持定义的一致性
第2页，第十一章
数据共享
第1页，共16页。
数据共享的基本概念
数据共享的作用
节约内存
高效地传递大量数据
数据共享的类型
不同的数据共享同一内存空间
不同的程序模块共享同一程序代码
保持定义的一致性
第2页，共16页。
Fortran语言提供的数据共享机制
子程序（function、subroutine）
包含语句（include）
公用区（common）
数据块子程序（block data）
等价语句（equivalence）
模块（module）
第3页，共16页。
包含语句（include）
作用：通知编译器从其它文件中拷贝语句
用module代替
exam_11_1
不安全（undesirable in Fortran 90）
保证变量在各个程序模块之间定义的一致性
revise, newfinal
<包含语句>→include <包含文件>
第4页，共16页。
公用区（common）
<无名公用区>→common [/ /]<变量表>
<有名公用区>→common /<公用区名>/<变量表>
<变量表>→<变量>{,<变量>}
<变量>→<变量名>|<数组名>|<数组说明符>
第5页，共16页。
使用规则
一个Fortran程序只能有一个无名公用区
公用区中变量的限制
公用区中的变量按存储顺序进行关联
不能是形参、函数名
不能是不确定大小的量（比如可分配数组）
不能有parameter属性
exam_11_2
公用区（common）
第6页，共16页。
公用区（common）
作用：在不同的程序单元中多个变量共用同一存储单元
提供全局变量，高效地传递大量数据
共用临时的工作空间以节约内存
revise
第7页，共16页。
解决办法
每一个使用公用区的程序单元必须包含同样的变量说明，否则极易出错
借助include语句
变量名冲突问题
fcommon
用模块（module）代替
公用区（common）
不安全（undesirable in Fortran 90）
第8页，共16页。
数据快子程序（block data）
<数据块>→block data [<名称>]
[<说明和赋初值部分>]
end [block data [<名称>]]
作用：给有名公用区中的非指针变量赋初值
无名公用区中的变量不能赋初值（Visual Fortran可以）
第9页，共16页。
数据快子程序（block data）
使用规则
一个Fortran程序只能有一个无名数据快子程序
不能有可执行语句
可给多个有名公用区赋初值
一个有名公用区不能在多个数据快子程序中赋初值（Visual Fortran可以）
exam_11_3
第10页，共16页。
等价语句（equivalence）
<等价语句>→equivalence （<变量表>）
{,（<变量表>）}
使用规则
等价变量的首地址相同，具体值由数据类型决定
不能出现矛盾的等价关系
不能分离连续的存储空间
exam_11_4
第11页，共16页。
等价语句（equivalence）
作用：在同一程序单元中多个变量共用同一存储单元
节约内存（别名）
类型转换
不安全（undesirable in Fortran 90）
指针
transfer
exam_11_5
第12页，共16页。
声明和初始化全局数据
模块(module)
声明派生类型
包含常用的子程序（子程序库）
声明外部子程序的接口块
数据共享
代码共享
（encapsulation）数据封装
模块的作用
第13页，共16页。
模块(module)
<模块定义>→module <模块名>
<模块数据和模块子程序说明>
[ contains
<内部子程序>