第二章Fortran程序设计基础lianxikejian

1、c fixed format demo program fixed print*,hello $world! print 1010 format(1x,this program is written in fixed format.) end* 固定格式是为配合早期使用穿孔卡片输入程序所发明的格式， 这里介绍固定格式，只是让大家对 fortran 77 程序有所了解，建议大家在编写程序时采用前述地自由格式。* 固定格式尽管有其过多的限制，但由于具有一定的规范性，方便程序的编写和检查。 fortran 90 字符集由下列字符组成： (1) 26个英文字母(az 和 az)； (2) 数字09；

2、(3) 下划线 _ ； (4) 特殊字符 空格，*，/， （，），：，！， 等等，详见表 2-1 所示kind 函数的功能：在 fortran 90中 kind 函数用来获取缺省种类参数的值；huge 函数的功能：在 fortran 90中 huge 函数用来获得取值范围的上限，上限加1 为取值范围的下限。程序代码段如下： integer(8) i, big, small big=huge(i) small=big+1 print*, largest: , big print*, smallest: , small根据表2-2，integer（8）表示整数i的取值范围为： -922337203

3、68547758089223372036854775807根据huge函数的定义，则big=9223372036854775807small=-9223372036854775808平台(处理器和编译器)不同，相同的种类参数可能有不同的取值范围。缺点：影响程序代码的可移植性。fortran 90 提供selected_int_kind 函数，即： result = selected_int_kind(r)result 代表整数 n 在范围-10rn10r内的种类参数例如：result=selected_int_kind(3) !2result=selected_int_kind(8) !4re

4、sult=selected_int_kind(10) !8result=selected_int_kind(19) !-1 返回-1表示没有可用的种类参数例如：要在不同的平台下表示1010内的整数 i，可以采取如下的声明方式：integer，parameter : k10 = selected_int_kind(10) integer(k10)i先声明依赖于特定平台的种类常数，再以该常数为种类参数声明变量。:表示在变量声明数据类型的同时，给变量赋初值例 2-3 program main interest=0.08 count=0.08 print*, interest = ,interest

5、!0 print*, count = , cont !0.0 end program main implicit none real interest, count interest=0.08 count=0.08 print*, interest = ,interest !0.08 print*, count = , count !0.08 end通过类型声明，消除隐含约定带来的错误。例2-4 变量声明及初始化program main implicit none integer a real(8) :b=2.0 complex(8) :c=(1.0,2.0) character(20) :s

6、tr=“fortran 90” a=6 print*, a=, a, ,b=, b, ,c=, c, ,str=, strend程序执行结果：a=6 ,b=2.0 ,c=(1.0,2.0) ,str=fortran 90在声明的同时给变量赋初值，符号“ ”不能省略，省略时可采用如下形式： intrger a a=6三. 常量声明(parameter)在程序中固定不变的常数，如圆周率、重力加速度等，可以声明成变量。符号常量只能在声明时通过 parameter 属性设置其值，而且只能设置一次。在程序中不能改变。例 2-6 常量声明 program main implicit none real,p

7、arameter :pi=3.14159 print 10, pi/6.010 format(pi/6.0=,f4.2) end计算结果：3.14159/6.0=0.523598在格式要求中f4.2，即带小数点后两位共四位的实数，按照四舍五入的原则，得到结果：0.52 算术表达式由运算符、常量和变量组成，算术表达式获得的结果是标量，只是涉及到数值的大小。1. 运算符及其优先级 fortran 有5 种算术运算符，分别是加、减、乘、除和乘幂，按优先级由低到高排列如下： + 加， 减，* 乘， / 除，* 乘幂(两个星号之间不能有空格)，( ) 括号例如3+4.0，程序执行时先将3转换成3.0，然

8、后执行3.0+4.0，得到实型结果7.0。程序执行时，先进行9/4 整数除法运算，得整型数2，然后整型数2 被转换成实型数2.0，再除以实型数3.0，最后结果时0.6666667，而不是数学上的结果0.75。 如果数值运算为9/4.0/3.0，最后结果是0.666666,根据数据格式写出结果。 表控输入/输出语句， read*和 print* 语句。read和print表示输入/输出，“*” 表示表控输入或输出，要求从系统隐含指定的输入/输出设备上输入或输出数据。1. 表控输入语句 表控输入：自由格式输入。read*语句的一般形式为： read* ,变量列表约定：表控输入，不必指定输入数据的格

9、式，只需将数据依次输入；变量列表的变量用逗号分开，例如：a1，a2，a3当程序执行到 read* 语句时，向设备发出输入数据的指令，通过键盘输入数据。 1,2,abc,.true.,(1,-1) -这里用的分隔符是 ，结果：a=1 ,b=2.0000000 ,c=abc ,d=t ,e=(1.0000000,-1.0000000)program main implicit none integer :a=1,b=5,c=8 print*, max(a,b,c)=, max(a,b,c)end 程序由声明语句和执行语句构成，以end结尾；fortran90自由格式，任一列开始，容纳132字符，可续行39个；记号内不允许出现空白；注释以感叹号标识 字符集包括26个字母，数字、下划线及21个特殊字符；标识符名只能由字母、数字和下划线构成，并以字母开头，长度可达31个字符 数据类型：整型、实型、复数型、逻辑型和字符型，并以种类参数kind（存储字节数）控制数据取值范围和精度。字符型除种类可选参数（值为1）外，还有规定字符串长度的可选参数 通过implicit none 强制类型说明、声明变量的通用形式：数据类型，属性:变量列表，当有属性存在，或声明变量的同时进行初始化，声明操作符（:）是必须的。声明常量使用parameter属性，并在声明同时进行赋值 算术运算规则及运算符号的优