Fortran⼊门——函数调⽤
当我的第⼀个Fortran程序 "Hello World" 诞⽣后，我的下⼀个⽬标便是写⼀个包含函数调⽤的程序，⾄于那些什么代码格式，数据类型，语
法等等全部⾛马观花浏览⼀遍，既然需要速成，那么细节⽅⾯只能略过，将来有需要可以再补。
在VS中新建⼀个 Fortran-Console Application项⽬，选择默认的EmptyProject模板。然后添加⼀个Source⽂件。
在新添加的Source⽂件中输⼊如下代码
1 integer function Add(x,y)
2 implicit none
3 integer ::x,y
4 Add=x+y
5 end function
如上代码所⽰便是⼀个⾮常简单的Fortran函数，写成C#代码的话如下
1 int Add（int x,int y)
2 {
3 return x+y;
4 }
可以看到在Fortran中代码块没有C#的⼤括号表⽰法。interger function end 等关键字皆为⼩写。在旧版本中，貌似必须⼤写。
在Fortran函数中，参数的数据类型在函数体中定义，如"integer ::x,y",函数的返回值则需要赋给函数的名称"Add=x+y"，这点着实不太习惯。
函数有了，接下来该是调⽤了，再敲点代码吧
1 program main
2 integer:: x,y
3 integer Add
4 read *, x,y
5 print *,Add(x,y)
6 read *,x
7 end
在主程序中，需要声明Add函数的类型"integer Add"，否则调⽤会失败。
可以看到，⼀个简单的函数调⽤程序，相⽐C#等语⾔，在语法格式上还是有不少区别的。
fortran 输出浮点数格式定义
FORTRAN（Formula Translation）是一种高级编程语言，主要用于数值计算和科学计算。在FORTRAN中，输出浮点数的格式可以通过格式控制语句来实现。以下将介绍如何在FORTRAN中输出浮点数格式。
1.FORTRAN语言简介
FORTRAN语言起源于20世纪50年代，由IBM公司开发。它是第一个专门为数值计算设计的编程语言，具有丰富的数学函数库和高效的数值计算能力。在我国，FORTRAN语言在科研、工程和计算机领域有着广泛的应用。
2.输出浮点数格式定义方法
在FORTRAN中，可以使用以下格式控制语句来定义输出浮点数的格式：
```fortran
10 format(fmt, ...)
```
其中，`fmt`是一个字符串，用于描述输出浮点数的格式。字符串中的格式控制符有以下几种：
- ` real`：表示输出实数
- ` double`：表示输出双精度实数
- ` complex`：表示输出复数
- ` integer`：表示输出整数
- ` character`：表示输出字符型数据
此外，还可以使用以下格式控制符来调整小数点位置和输出精度： - `.`：表示小数点位置
- `digits`：表示小数点后的位数，如`.5`表示输出保留一位小数
- `fixed`：表示固定小数点精度，如`10.2`表示输出保留两位小数
- `scientific`：表示科学计数法，如`1.2345e+05`表示输出保留四位小数
3.实例演示
以下是一个输出浮点数格式的实例：
```fortran
program main
implicit none
real :: a = 12345.6789
real :: b = 9876.54321
write(*,*) "a = ", a
write(*,*) "b = ", b
stop
fortran77程序设计 pdf
Fortran 77 是一种老旧的编程语言，主要用于科学计算。以下是一个简单的 Fortran 77 程序示例，用于计算斐波那契数列的第 n 项：
```fortran
PROGRAM FIBONACCI
IMPLICIT NONE
INTEGER N, F1, F2, FN
INTEGER I
PARAMETER (N = 10)
DATA F1, F2 /0, 1/
DO I = 1, N
PRINT *, F1, F2
FN = F1 + F2
F1 = F2
F2 = FN
END DO
END PROGRAM FIBONACCI
```
该程序首先定义了几个整数变量 N、F1、F2 和 FN，然后使用 PARAMETER 语句将 N 设置为 10。接下来，程序使用 DATA 语句初始化 F1 和 F2 为斐波那契数列的前两项 0 和 1。然后，程序使用 DO 循环迭代 N 次，每次迭代中输出 F1 和 F2 的值，计算下一项 FN，然后更新 F1 和 F2 的值。最后，程序使用 END PROGRAM 语句结束。
需要注意的是，Fortran 77 的语法比较繁琐，不支持现代编程语言的许多特性，如变量名中不能包含空格、不支持注释等。因此，建议使用更现代的 Fortran 版本进行编程。
1 《FORTRAN》程序设计原理
1、 程序结构及书写规则
一个程序由不同的程序单元组成，每一程序单元均以end结束，一般情况下，主程序的结构为：
Program程序单元名
说明语句
可执行语句
……
STOP
END
子程序的结构为：
SUBROUTINE 程序单元名(哑元名表)
说明语句
可执行语句
………
RETURN
END
以及
FUNCTION 程序单元名(哑元名表)
说明语句
可执行语句
………
RETURN
END
程序单元名由字母和数字组成，各程序单元中的变量独立编译，同名变量相互不影响。1－5列为行号，可以是1－99999之间的任意数，6列为续行号，可以是任何字符，正文从第8列写到72列。当第1列为字符C时，此行为注释行。
2、 说明语句
说明语句分为二类，一类必须放在程序单元的开头，另一类可以放在任何地方。
2.1 变量说明语句
这一类说明语句，必须放在程序单元的开头，以表明变量的性质。若不加以说明，以I－N开头的变量均为整型，其余变量均为实型，称之为I－N规则。同一变量经下列显式说明语句说明后，I－N规则失效，没有经显式说明的变量，I－N规则仍然有效。
PARAMETER（变量名＝const，……） 2 REAL 变量名表
INTEGER变量名表
CHARACTER变量名表
LOGICAL变量名表
COMPLEX 变量名表
IMPLICIT 变量基本类型 （字符名表）
DOUBLE PRECISION变量名表
DIMENSION变量名表
COMMON 变量名表
COMMON /公共区名/ 变量名表
DATA 变量名表 /数值名表/
一个变量可由多个语句说明，其中类型说明语句的级别最高，例如：
Implicit real (a-c,e) 由a,b,c,e开头的变量均为实型
Dimension ax(100) 定义一个100个元系的实型数组
