第一周—Fortran语言学习

使用教材：Fortran95程序设计【彭国伦】

第二章 编译器的使用

编译结果的好坏

1、翻译正确 2、执行文件的运行效率 3、翻译出来的执行码的长短 4、编译过程花费的时间 5、编译器提供Debug工具的完整度

Visual Fortran的使用

第三章 Fortran程序设计基础

字符集

不区分大小写

书面格式

Fixed Format（固定格式）

配合穿孔卡片输入程序发明的格式 被淘汰

Free Format（自由格式）

1、！后的文本是注释 2、每行可以编写132个字符 3、行号在每行最前面 4、&行和行连接 5、空格无意义

数据类型

数学表达式

** 乘幂

第四章 输入输出及声明

program main ... stop ！可以省略 end

write 和 print

尽量使用write

write(*,*)"hello","!" write(UNIT=*,FMT=*)"hello" write(UNIT=5,FMT=*)"hello"

Fortran77只能用单引号 Fortran90支持单和双

声明

整数：

integer(kind=2/4) a,b,c 未声明长度默认长 向下取整 integer :: a

浮点数

real(kind=4/8) a,b,c real(kibd=4) :: a,b

write(,) "sin(",a,")=",sin(a)

复数

complex(kind=4/8) a,b,c a=(x,y) !表示 a=3.2+3.5i 支持直接的复数+-*/

字符及字符串

character(len=10) a,b,c a(6) = "you" !设置第6个字符之后的字符串 b(1:2) = "we" !最前面两个字符变we add=first//second

Fortran 中有关字符串运行的函数：

CHAR(num) !num在计算机所使用的字符表中所代表的字符 ICHAR(char) !返回值是整型，char字符在计算机所使用的字符表中所代表的编号 LEN(string) ！声明长度 LEN_TRIM(string) !实际长度 INDEX(string,key) !key在string中第一次出现的位置 TREM(string) !返回清除尾端空格后的字符串 ！更多见附录A

逻辑变量

logical(kind=2/4) a,b a=.true. b=.false. 用 write 函数只会显示 T or F

输入命令（READ）

read(*,*) a !在输入字符时可能因为空格出错 read(unit=5,fmt=*) a !最严谨 read(*,*) a,b,c !可输入a,b,c or a b c

格式化输入输出(FORMAT)

没怎么看懂的格式命令参考表....

看来上面这些并不重要.... 常用的几个格式:"I、F、E、A、X" 好了下面来一一学习一下 ({}和[]里的内容可以省略

Iw[.m]

Iw[.m] 以w个字符的宽度来输出整数，至少输出m个数字 如果不足会输出* write(*,"(I5.3)") 10 010 !前面有两个空格

Fw.d

Fw.d 以w个字符文本宽度来输出浮点数，小数部分d 不足一样是* write(*,"(F9.3)")123.45 123.450

Ew.d[Ee]

Ew.d[Ee] 用科学计数法，以w个字符宽度来输出浮点数，小数部分占d个字符宽，字数部分最少输出e个数字 write(*,"(E9.2E3)") 12.34 0.12E002

Dw.d

Dw.d 同Ew.d 代表指数的字母由E换成D

Aw

Aw 以w宽输出字符串 write(*,"(A10)")"Hello" Hello 不足超过部分会被省略

Lw

Lw w个字符输出 T or F 的真假值 write(*,"(L4)") .true. T !输出3个空格和一个T

Gw.d[Ee]

Gw.d[Ee] G可以用来输出所有类型的数据，固定使用w个字符宽来输出，d不一定会使用但是不能省略

/

/ write(*,*(I3//I3)) 10,10 10 10 ！中间有两行空格是从“/"得到的

Tc

Tc 把输出位置移动到本行的第c个字节

声明的其他事项

IMPLICIT命令

开头字母决定变量类型

implicit integer（A-F,I,K） implicit none !关闭，都要先声明 放在PROGRAM的下一行，不能放在其他位置

常数的声明方法（PARAMETER）

parameter（pi=3,14159）

设置变量的初值

integer :: a = 1

等价声明（EQUIVALENCE）

equivaluence(a,b) !声明a、b这两个变量用同一块内存

1、节省内存 2、精简代码

声明在程序中的结构

混合运算

1、

2、

3、

Fortran 90 的自定义数据类型

type :: person character(len=30) :: name integer :: age ... end type person type(person) :: a write (*,*) "NEME:" read(*,*) a%name

KIND 的使用

SELECTED_INT_KIND(n) !返回如果想要记录N位整数时，所要声明的kind值。 !返回-1时表示无法提供 SELECTED_READ_KIND(n,e) !记录具有n位有效数，指数达到e位的浮点数需要的kind值 !返回-1 有效位无法满足，-2指数范围无法满足，-3均无法满足

转载于:https://www.cnblogs.com/Olivia1011/p/7787639.html