Fortran中的过程

《Fortran中的过程》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、2011/5/23Sec6-2过程6.2.1什么是过程Fortran编译系统提供内在函数，可以在任意程序单元中引用。但是在许多时候仅仅使用系统的内在函数并不能满足程序设计的需要，因此就需要自行编制相应的函数或子程序来扩充程序的处理能力。过程是在程序的执行中可被直接调用的、封装在一起的、进行计算或处理的语句序列。它是任何一种过程型程序设计语言的重要组成部分，对Fortran语言也不例外。F90中，一个过程的定义就是指它是一个函数或是一个子程序。过程的引用就是调用一个过程。建立过程的目的就是建立可多次重复执行的程序段，以便多次调用它们。通常过

2、程是带有参数的，在Fortran中把参数称为变元（实元或哑元），过程定义中的变元是哑元，过程引用中的变元是实元。在调用过程时，要用实元代替哑元，这就是哑实结合。a)分类过程包括下面几种类型：外部过程：它是在某个外部程序单元中定义的独立过程，或是用非Fortran语言编写的过程。内部过程：在程序单元内部定义而且只能被该程序单元调用。内在过程：由编译系统内部定义，不用任何附加声明或说明就可以可直接引用。模块过程：它在模块中定义，可以被所有使用该模块的程序调用。包含过程的模块称为宿主。哑过程：如果一个哑元被指明为过程或作为过程名出现在过程引用中

3、，那么该哑元代表的过程为一个哑过程。语句函数：它是由单个语句定义的函数，其形式为：函数名([哑元名表])＝标量表达式。F90不推荐使用，因为它不符合过程的一般规则。b)特性过程的特性包括，将过程分为函数和子程序的分类特性和它的哑元的特性，对于函数还包括有结果的特性。一个哑元可以是一个虚拟数据对象、哑过程或作为选择返回指示符的星号。当一个哑元不是星号时，它可有OPTIONAL属性，表示对该过程引用时不需要有实元与该哑元结合。一个哑元数据对象的主要特性包括它的类型、种别值、形状、输入输出意向(INTENT)、是否可选(OPTIONAL)、是否

4、一个指针(POINTER)或目标(TARGET)。哑过程的特性包括其接口是否显式给出、作为过程的特性(如果其接口显式给出)以及它是否可选。函数结果的主要特性包括它的类型、类别值、秩以及是否指针等。6.2.2外部过程外部过程是程序员编写的函数或子程序，它独立于主程序外部。外部过程可以单独以源文件存储和编译，也可以包括在主程序源代码的END语句后。外部过程本身也可以包含有内部函数或内部子程序。scc.qibebt.cas.cn/docs/⋯/Sec6-2.htm1/182011/5/23Sec6-2a)子程序子程序以SUBROURTINE语句

5、开始，END语句结束的过程。其一般形式为：[前缀]SUBROUTINE子程序名[(哑元列表)]...END[SUBROUTINE[子程序名]]其中，哑元可以是变量名、数组名、过程名、指针名等均可作为哑元。哑元表内列出本程序体内要用到的全部哑元，列在括号内，彼此用逗号分隔（哑元都要在说明语句中说明类型）。前缀是F90中新增的，它可以是：类型说明[关键词]或关键词[类型说明]。关键词是下面之一：RECURSIVE(F90)，PURE(F95)，ELEMENTAL(F95)。RECURSIVE表示过程时可以直接或间接地调用自身，即递归调用，其过

6、程是递归过程。子程序名只是用来作标识，不代表任何值。哑元列表是子程序与调用单元之间进行数据传送的主要渠道，当有一个以上哑元时，它们之间用逗号隔开，如果没有哑元，则一对括号可以省略。从SUBROUTINE语句后面一直到END语句则是子程序体。它的说明部分应包括对哑元和子程序中所用变量、数组等的说明，它的执行语句部分完成运算和操作功能。其中的END语句或RETURN语句使执行流程返回到调用单元。哑元表中的哑元个数，理论上不受限制，但从软件工程观点看，不宜过多，一般不应超过六、七个。如果太多，意味着该子程序的算法较复杂，应该把该过程再分解为几个

7、子功能分别编写成几个子程序。调用子程序时必须用一条独立的CALL语句，其形式为：CALL子程序名[(实元列表)]例：读入3个整数，按大小順序重排。INTEGER::i,j,kREAD*,i,j,kIF(i

8、，哑元和实元才按列表顺序一一对应，取得同一数值。但使用常数时要避免下例中的常数替换式，否则将导致不可预料的错误，应尽可能用变量作实元。例：SUBROUTINEbai(x)REAL::xx=2.