Fortran 95内在过程

第三篇计算任务的剖分与组合从前，有两个表匠，一个叫霍拉，一个叫坦普斯。

两人都很受顾客的欢迎，他们各自的工场中的电话总是响个不停，因为老有新主顾上门。

不过，霍拉发了大财，坦普斯却越来越穷，最后连店铺都给亏没了。

这是为什么呢?他们做的表都是由1000个零件组成。

坦普斯做表的方式是连续地把一只表从头做到尾，如果尚未装完一只表就不得不中途放下(比如说要去接客户电话了)，那么装了一半的表就会立刻散掉，又得从头装起。

顾客们越喜欢他的表，他的电话就越多，也就越难得到足够的不被打断的时间来装成一只表。

霍拉做的表并不比坦普斯的简单。

但他经过设计，用十个零件装成一个组件。

十个组件又可装成更大的组件。

十个大组件构成的系统就是整只表。

因此，当霍拉不得不放下装了一部分的表去接电话时，他只损失了一小部分活儿，他装表所用工时只是坦普斯所用工时的一个零头。

…在这个寓言里面，我的中心思想是，具有复杂性的系统最好是采取层级结构的形式，而层级结构有一些与系统的具体内容无关的共同性质。

我将论证说，层级结构是构造复杂事物的建筑师们所使用的主要结构方式之一。

----H.Simon[1]《The Sciences of the Artificial》一个计算任务可以很简单，使用几个语句进行描述，执行之后就可以得到结果，但是如果说我们人类使用计算机只是进行那种简单的计算，显然是浪费。

而复杂的计算任务，则和任何复杂事物一样，具有非常庞大的内部结构，人类解决复杂问题的一般思路，就是把一个大的结构分解为相对比较小的结构，如果可能就一直分解到非常简单的结构，分别解决了那些简单结构的问题，按照我们分解大问题的逻辑，也就解决了开始的复杂问题。

如何运用程序语言来表达这个解构的思路，就是本篇我们要讨论的主要论题。

首先我们讨论一个FORTRAN程序所可以具有的结构，按照这个语言对程序结构模本的规定，我们就可以规划相应的针对计算任务的问题解构方式。

所谓FORTRAN程序的结构，就是一个FORTRAN程序可以包含那些程序单位，然后这些单位又必须如何组装在一起。

第14章固有过程固然，我们已经能够做到运用FORTRAN 95来描述任何的计算任务，因为FORTRAN 95所提供的数据类型，固有运算，派生类型，自定义运算，以及构造函数与子例行程序的方法，都足以使得我们应付任何的计算问题。

不过FORTRAN 95标准还提供了大量的科学计算的常规计算与函数，都可以作为固有过程直接使用，而不需要我们自己来编写源码。

这就好像对于一个汽车装配师，除了给他提供螺栓，轴承之类的标准零件，还给他提供更高层次的标准配件，例如各种型号的发动机，电机之类。

因此熟练掌握固有过程，将给我们带来如虎添翼的感觉。

FORTRAN 95把固有过程作为标准来提出，就意味着任何的FORTRAN 95的编译器实现版本，都必须能够提供它们：115个固有过程，其中包括109个固有函数和6个固有子例行程序。

当然不排除很多的编译器还提供额外的固有过程。

正是由于固有过程是属于FORTRAN 95的标准内容，因此和固有运算，例如+，一样，总是“随叫随到”，无论在哪个程序单位内部，只要使用某个固有过程的名称，就等于调用了该固有过程。

不过，如果它的名称被用户定义的函数或子例行程序所“侵占”，那么在下面的情况下，被调用的将是用户自定义的函数或子例行程序而不是固有过程：●该自定义函数或子例行程序的界面是显式的；●该自定义函数或子例行程序出现在EXTERNAL语句当中；●该自定义函数属于语句函数。

当然上述的名称被侵权的有效范围只是该自定义函数或子例行程序的作用域。

相应的，固有过程也就只能在下面的情形下夺回被侵占的名称：●不存在使用该名称的语句函数；●它的名称出现在INTRINSIC语句当中；●相应的用户定义的过程的界面是隐式的。

例如在一个模块或一个内部过程里面，由于它的界面是显式的，那么固有过程的名称就能够被侵占，除非固有过程的名称出现在一个有效的INTRINSIC语句当中。

下面我们主要讨论固有过程的按照功能的分类，以及每个种类的固有过程所能够完成的计算任务。

Fortran95简介－全文版By陈鲸太FORTRAN的演进FORTRAN的起源，要追溯到1954年IBM公司的一项计划。

由JOHN BACKUS 领导的一个小组，尝试着在IBM 704计算机上面发展一套程序，它可以把使用接近数学语言的文字，翻译成机械语言。

这个计划在刚开始并不被大家看好，但他们在1957年交出了成果，也就是第一套FORTRAN编译器，FORTRAN语言也就因此诞生了。

FORTRAN语言的执行效率普遍的令各界满意，它证明了这项计划的可行性，也成为第一个被广泛使用的高级语言。

FORTRAN的名字来自于英文的FORMULA TRANSLATOR这两个字，而这两个字恰是数学公式翻译器的意思。

旧版的FORTRAN77是在1978年由美国国家标准局(ANSI)所正式公布的，之后改版有1992年提出的FORTRAN90以及1997年的FORTRAN95，本文是为了FORTRAN 95所撰写。

编译器简介1、VISUAL FORTRANVISUAL FORTRAN一开始是起源于MICROSOFT的FORTRANPOWERSTATION 4.0，这套工具后来卖给DIGITAL公司来继续发展，下一个版本称为DIGITAL VISUAL FORTRAN 5.0，DIGITAL后来被COMPAQ合并，所以接下来的6.0及6.5版就称为COMPAQ VISUAL FORTRAN。

而COMPAQ目前又跟HP合并，也许下一个版本会称为HP VISUALFORTRAN。

VISUAL FORTRAN被整合在一个叫作MICROSOFT VISUAL STUDIO的图形接口开发环境中，VISUAL STUDIO提供一个统一的使用接口，这个接口包括文书编辑功能，PROJECT的管理、除错工具等等，所以在使用上其实跟上学期的VISUAL C++满类似的，同学们上课用过VISUAL C++，对VISUAL FORTRAN应该不会陌生。

Fortran95简介-全文版Fortran95簡介－全文版By陳鯨太FORTRAN的演進FORTRAN的起源，要追溯到1954年IBM公司的一項計畫。

由JOHN BACKUS 領導的一個小組，嘗試著在IBM 704電腦上面發展一套程式，它可以把使用接近數學語言的文字，翻譯成機械語言。

這個計畫在剛開始並不被大家看好，但他們在1957年交出了成果，也就是第一套FORTRAN編譯器，FORTRAN語言也就因此誕生了。

FORTRAN語言的執行效率普遍的令各界滿意，它證明了這項計畫的可行性，也成為第一個被廣泛使用的高階語言。

FORTRAN的名字來自於英文的FORMULA TRANSLATOR這兩個字，而這兩個字恰是數學公式翻譯器的意思。

舊版的FORTRAN77是在1978年由美國國家標準局(ANSI)所正式公布的，之後改版有1992年提出的FORTRAN90以及1997年的FORTRAN95，本文是為了FORTRAN 95所撰寫。

編譯器簡介1、VISUAL FORTRANVISUAL FORTRAN一開始是起源於MICROSOFT的FORTRAN POWERSTATION 4.0，這套工具後來賣給DIGITAL公司來繼續發展，下一個版本稱為DIGITAL VISUAL FORTRAN 5.0，DIGITAL後來被COMPAQ合併，所以接下來的6.0及6.5版就稱為COMPAQ VISUAL FORTRAN。

而COMPAQ目前又跟HP合併，也許下一個版本會稱為HP VISUAL FORTRAN。

VISUAL FORTRAN被整合在一個叫作MICROSOFT VISUAL STUDIO的圖形介面開發環境中，VISUAL STUDIO提供一個統一的使用介面，這個介面包括文書編輯功能，PROJECT的管理、除錯工具等等，所以在使用上其實跟上學期的VISUAL C++滿類似的，同學們上課用過VISUAL C++，對VISUAL FORTRAN應該不會陌生。

《FORTRAN-95程序设计》学习笔记《FORTRAN 95程序设计》学习笔记66RPG gg★目录★《FORTRAN 95程序设计》学习笔记 (2)基础知识(基础、字符串、FORMAT、隐式、TYPE)............................. 错误!未定义书签。

流程与控制(if、select、do) (8)数组(声明、隐式循环、整体操作、可变数组) (10)函数与子程序(子程序、函数、全局变量)13MODULE与面向对象(重载操作符、虚函数) (18)文件相关(OPEN、WRITE、READ) (20)指针（指向变量、数组、函数） (22)Visual Fortran 编译器（DLL，VB调用） (24)数值算法与IMSL（数值算法插件） (28)常用库函数（数学、数组、零碎、子程序） (30)◆10^10⏹复数：complex :: a=(2,3)◆实部：real(a) ；虚部：imag(a)⏹布尔型：Logical，.true. 和.false.★【语法与函数】字符串：character(20) string ⏹注意理解，fortran的弱智字符串就是一个长度不能变的一维的东西，极其猥琐，和Java、Ruby不能相提并论的⏹string(13:13) = “a”：对第13个字节的读、存⏹string(2:3) = “go”⏹string(6) = “我的妈呀”：从第6个位置开始设置为“我的妈呀”⏹a = string_a // string_b：用“//”连接两个字符串⏹【常用函数】char(num)，ichar(char)：ASCII码的转换相关功能⏹【常用函数】len(string)，len_trim(string)：长度，去掉尾部空格后的长度⏹【常用函数】index(string,key)：找key在string首出现的位置⏹【常用函数】trim(string)：返回去掉尾部空格的字符串(用途不大)⏹【函数】repeat(char,int)：返回一个重复int次的char串⏹character(len=20) string 普通声明；character(len=*) string 接收的时候可自动长度★【规范格式】FORMAT格式化⏹e.g.◆w rite (*,100) A◆100 format(I4) ←这里是100号标识调用的格式⏹参数控制符(前面加数字为重复次数，如4I6或<a>I6。