FORTRAN语言程序设计

FORTRAN语言程序设计1精选2021版课件

第一章

程序设计概述2精选2021版课件1.1程序设计基本概念1.程序：计算机操作命令的集合。例：求x、y、z的平均值aver的程序。2.程序设计：编制程序(操作命令)的过程。3.程序设计语言:书写程序所采用的某种专用语言。高级语言：数学语言或自然语言。如：FORTRAN语言等程序设计语言的类型:低级语言：机器语言和汇编语言。3精选2021版课件1.2程序设计方法和步骤1.2.1程序设计方法1.结构化方法（1）采用“自顶向下，逐步求精”的程序设计方法.（2）采用“单入口单出口”的控制结构.（3）三种基本程序结构：顺序、选择和循环.结构化程序设计的特征：

（a）模块化:把一个较大的程序划分为若干个子程序，每一个子程序独立成为一个模块；

（b）层次化:先设计第一层（即顶层）。然后步步深入，逐层细分，逐步求精，直到整个问题可用程序设计语言明确地描述为止。

（c）逐步求精:是对一个复杂问题,从抽象到具体，最终编制出一个可执行的程序。

2.面向对象方法详见P54精选2021版课件1.2.2程序设计步骤

1.分析问题2.建立数学模型3.选择算法

4.编写程序5.调试运行

6.分析结果7.写出程序的文档

5精选2021版课件

第二章算法6精选2021版课件2.1算法概述1.算法：计算机解题的方法和步骤.2.算法特征：（1）有穷性 一个算法必须总是在执行有限步骤之后结束。（2）确定性 算法中的每一个步骤应当是确定的，无二义性；相同的输入只能得出相同的输出。（3）可行性 算法中的每步骤都是有效地执行。（4）有零个或多个输入（5）有一个或多个输出3.算法的分类：

（1）数字运算:用于求数值解,此类算法有现成的模型，运用较成熟.

（2）非数字运算:用于非数据处理的一些事务性工作，此类算法面广量大，要求各异，有一定难度.7精选2021版课件

2.2算法特点计算机特别适合做大量的重复性操作，如连续加、连续乘或者其他连续判断或处理。计算机对于大量的重复性操作，并非一次性完成，而是每次按部就班，循环往复重复前一次的操作,即每次操作方法（即循环体）相同，但操作数据不同而已。例如，求1，2，…10的累加和，其程序如下：doi=1,10

!循环语句

s=s+i

!循环体

enddo

上述循环所要执行的重复操作是：s=s+i(即循环体),但每一次循环时，循环体的操作数据s,i的值是不同的。.8精选2021版课件2.3算法的表示方法（1）传统流程图

即用有向线段将描述算法步骤的各功能框连接起来.如下图所示：

图(a)顺序结构图(b)选择结构

AB条件PAB真假图(c)当型循环结构图(d)直到型循环结构循环条件循环体循环体循环条件真假假真9精选2021版课件（2）N-S流程图它是一种去掉流程线的流程图,称为盒图.N-S流程图形式如下图所示：AB图(a)顺序结构图(b)选择结构图(c)当型循环结构图(d)直到型循环结构当执行循环的条件成立循环体直到退出循环的条件成立循环体条件真假AB10精选2021版课件第三章FORTRAN语言简介11精选2021版课件

3.1FORTRAN语言概述1.何谓FORTRAN语言？

FORTRAN是英文“FORmulaTRANslate”的缩写,即中文的“公式翻译器”之意。FORTRAN语言是一种用于科学计算的程序设计语言。2.何谓FORTRAN源程序？用FORTRAN语言编制的程序，称为FORTRAN源程序。举例:编制FORTRAN源程序ex02_01.f90,求x、y、z的平均值aver。

PROGRAMex02_01READ*，x,y,zaver=（x+y+z）/3PRINT*，averEND

12精选2021版课件3.2FORTRAN程序的执行过程

13精选2021版课件3.3FORTRAN语言的发展历程（1）1951年，JohnBackus在纽约首次提出FORTRAN语言，并于1954年对外发布，称FORTRANⅠ。（2）1958年，扩充和完善FORTRANⅠ,推出FORTRANⅡ。

（3）1960年，推出FORTRANⅢ，但没有在计算机上实现。（4）1963年，推出了FORTRANⅣ。没有充分考虑兼容性。（5）1966年，推出FORTRAN66美国标准，后被ISO采用。（6）1978年，推出FORTRAN77，兼容性好，结构化特征。（7）1991年，推出FORTRAN90现代语言，可视化编程。（8）1997年，公布FORTRAN95标准，并行运算的支持。（9）1997年，微软和数据设备公司合作推出DigitalVisualFORTRAN5.0。

14精选2021版课件

第四章FORTRAN语言开发环境

详见教材：3.3FORTRAN语言开发环境15精选2021版课件

第五章FORTRAN语言基础知识16精选2021版课件5.1字符集

FORTRAN语言允许使用的字符集为：

英文字母A-Z或a-z（即大、小写英文字母）阿拉伯数字0、1、2、3、4、5、6、7、8、9特殊符号空格=+-*/#？（），.’:“!&;<>$_应当注意:在FORTRAN语言中，英文字母不区分大小写，在保留字、变量名和函数名中，大、小写字母都是等价的，如REAL何real或Real是一样的。17精选2021版课件5.2名称及保留字5.2.1名称作用：用来表示FORTRAN源程序中的变量、符号常量名、数组、函数、过程等实体的名称。名称的定义（即语法描述）：由英文字母开头的31个以内的字母、数字、下划线（_）以及美元符字符序列组成。

例：NUMBER、x1、root_2、y$_ab、5xy、x.y5.2.2保留字

一个语句中的特定单词，如PROGRAM、END、IF、ENDIF、DO、ENDDO等，称为语句保留字。

说明：FORTRAN90程序中允许用保留字作为其它实体的名称，但是一般不提倡。

18精选2021版课件5.3程序单元一个完整的FORTRAN程序，应由以下程序单元构成：主程序单元外部子程序单元1PROGRAMMAINSUBROUTINESUB1（）

主程序体子程序体…

ENDPROGRAMEND其中主程序单元只能有1个，其它程序单元可以有0-n个。程序单元的描述详见第十章。

19精选2021版课件5.4语句的排列顺序

一个程序单元中语句的排列顺序如下：非执行语句

程序单元

可执行语句例:编制FORTRAN源程序eex5_1.f90,求x、y、z的平均值aver。

PROGRAMeex5_1REALx,y,z,averREAD*，x,y,zaver=（x+y+z）/3PRINT*，averEND20精选2021版课件5.5程序的书写格式

（1）固定格式：将一个语句行分为若干个区域，如下图所示：（2）自由格式：一个语句的书写不受区域的限制。FORTRAN90的源程序格式采用自由格式书写，源程序文件扩展名为.f90。例:详见eex5_1.f90的源程序格式及其扩展名。21精选2021版课件5.6数据类型5.6.1基本概念

1.内部数据类型FORTRAN语言将内部数据划分为以下类型：整型实型算术型数据类型复型逻辑型字符型2.种别一个数据在内存中均占有一定字节个数的存储单元。上述每类数据都有其不同的种别（即Kind）特性，即上述每类数据根据其种别特性（即Kind值）的不同分别拥有不同字节个数的存储单元。3.数据对象1）常量：程序运行时，其值不能改变的量，称为常量。如:5,3等等。2）变量：程序运行时，其值可以改变的量，如:变量a,a是一个存储单元。

22精选2021版课件5.6.2常量

整型、实型、复型常量是一个代数值；逻辑型常量是一个逻辑值（.true.或.false.）；字符型常量是一个字符串。以上常量均以书写方式确定其类型。5.6.2.1整型常量整型常量表示普通代数中的整数。十进制整型常量的一般形式：±n[_Kind值]其中:±是该整型常量的符号。n是一个十进制数字(0~9)序列。Kind值为：1、2、4、8之一。分别表示1、2、4、8个字节个数。

FORTRAN90/95标准中整型常量的范围没有明确规定。例如：122、0、-36、559_2均为合法的整型常量

100.0、100，000、1000、1002

均为非法的整型常量

5.6.2.2实型常量实型常量表示普通代数中的小数或指数。1.小数实型常量一般形式：±n.m或±n.或±.m其中：n、m是十进制数字序列。n是整数值，m是小数值。例：12.0、0.12、12.、.1223精选2021版课件2.指数实型常量一般形式：±n.mE±s或±nE±s其中：n、m是十进制数字序列。n是整数值，m是小数值。E±s是指数部分，表示10的几次方。其中：E是指数符号，s是指数数值，±是指数数符。例:指数实型常量：12E20.12E-22E51E-10

相应代数值:12x1020.12x10-22x1051x10-10

注意：单独的指数部分不能构成一个实型常量。

例：E5

5.6.2.3复型常量表示普通代数中的复数。即：a

±bi（其中a是实部，b是虚部）一般形式：（a，b）例：（-3，5）！表示复数：-3+5i（0，1）！表示复数：i（2.4，-2.5E2）！表示复数：2.4-2.5x102i24精选2021版课件5.6.2.4字符型常量在程序中用以表示文字等非数值信息。一般形式：‘字符串’或“字符串”其中:字符串可以是字母、数字、汉字、特殊符号。通常字符串中字符的个数称为字符长度。例：PRINT*，’南京信息工程大学’PRINT*，”a+b=”,a＋b说明：1)引号(‘’或“”）是字符串的分隔符，并非字符常量的一部分。2)字符串中的空白符有意义，要计数的。例：“AB”,其字符长度是3。3)当字符长度为0时，即为空串。4)字符串内的字母区分大小写，‘a’和‘A’是不同的字符常量。

5)如果字符串中含有单引号，则这个单引号要用两个连续的单引号表示，如：‘I’’maboy.’。或者单引号和双引号交替使用，如“I’maboy.”。25精选2021版课件5.6.2.5逻辑型常量在程序中用以表示某个条件（关系表达式和逻辑表达式）的判别结果。一般形式：.TRUE.即为逻辑真（表示判别条件成立）。

.FALSE.即为逻辑假（表示判别条件不成立）。例：条件5>3的判别结果是.TRUE.，表示判别条件5>3成立。条件3<1的判别结果是.FALSE.，表示判别条件3<1不成立。说明：1.逻辑常量仅有两个，.TRUE.（真）和.FALSE.（假）。注意：逻辑常量两侧的两个小数点不能省略。逻辑型常量是具有逻辑型数据类型的非数值数据，又称为逻辑值或布尔值。

2.对于逻辑值.TRUE.，在其存储单元字节内每位为“1”，可视为整数值-1；对于逻辑值.FALSE.，在其存储单元字节内每位为“0”，可视为整数值0，它们均能参与整数运算。如7+.FALSE.，结果仍为7。1+.TRUE.，结果则为0。

26精选2021版课件5.6.2.6符号常量用一个符号所表示的常量值，称为符号常量。例如，圆周率、重力加速度等。使用符号常量时，应当用参数语句（PARAMETER语句）对符号常量予以声明。PROGRAMex05_01 IMPLICITNONE REALpi

PARAMETER(pi=3.1415926)!定义pi为符号常量3.1415926 WRITE(*,*)sin(pi/6)END27精选2021版课件

变量是数据的存储单元。不同类型的变量存储不同类型的数值。整型、实型、复型变量存储一个（或一对）代数值，逻辑型变量存储一个逻辑值（.true.或.false.）,字符型变量存储一个字符串。以上变量均以类型声明确定其类型。5.6.3.1变量的种别变量的种别,是指一个变量由几个字节组成。其种别值（即kind值）与常量相同。5.6.3.2变量的类型变量的类型均用类型说明（或称类型声明）指定。其目的是通知编译系统为变量分配存储单元，以便存放程序中的数据。显式类型说明类型说明方式隐式类型说明

5.6.3变量28精选2021版课件1.显式类型说明由类型说明（声明）语句指明变量的类型。

类型说明语句的一般形式：INTEGER[(kind值)]变量名表！整型变量类型说明语句REAL[(kind值)]变量名表！实型变量类型说明语句COMPLEX[(kind值)]变量名表！复型变量类型说明语句

LOGICAL[(kind值)]变量名表！逻辑型变量说明语句

CHARACTER[(kind值)]变量名表！字符型变量类型说明语句其中：1)变量名表：用逗号隔开的一系列变量名。例如：INTEGER(2)a,b,c!a,b,c为变量名表中的变量。2)INTEGER、REAL,…等为类型说明语句的保留字，称为类型说明符。例如：INTEGER(2)a,b,c!INTEGER为类型说明符。29精选2021版课件3)[（kind值）[=n]]:为变量的种别值,用以说明变量名表中的各变量由几个字节组成。n为1、2、4、8之一。a.整型变量的不同种别值及其取值范围，如下表所示：

b.实型变量的不同种别值及其取值范围，如下表所示：类型Kind值字节数取值范围INTEGER(1)11-128～127INTEGER(2)22-32768～32767INTEGER(4)44-2147483648～2147483648INTEGER(8)88-9223372036854775808～9223372036854775808类型Kind值字节数取值范围REAL(4)44±1.1754944E-38～±3.4028235E+38REAL(8)88±2.225073858507201E-308～±1.797693134862316E+308

DOUBLEPRECISION8±2.225073858507201E-308～±1.797693134862316E+308c.复型变量的种别值分别为4或8，字节数为8或1630精选2021版课件d.字符型变量不同种别值的说明方式，如下表所示：类型Kind值字节数CHARACTER11CHARACTER(n)nnCHARACTERlen=nnnCHARACTER*nnne.逻辑型变量的不同种别值，如下表所示：类型Kind值字节数LOGICAL(1)11LOGICAL(2)22LOGICAL(4)44LOGICAL(8)8831精选2021版课件4)kind值为可省略项。该项省略时系统将自动采用由系统指定的缺省值。缺省值一般由编译器确定。但各类变量的种别初始缺省值如下：

a.整型变量为4.b.实型变量为4.c.复型变量为8.d.字符型变量为1.e.逻辑型变量为4.注意：当一个整型、实型变量中所存储的数值超过以上种别值取值范围时，则出错！5)类型说明语句中可以使用“::”给变量名表中的变量赋初值。例:INTEGER::a=6,b=8

!说明变量a,b为4字节整型的同时为其赋初值

REAL(4)::e=3.5

!e为4字节单精度实型变量且初值是3.5

REAL(kind=8)::h=2.6

!h为8字节双精度实型变量且初值是2.6

LOGICAL::la=.true.

!la是4字节逻辑型变量且初值是.true.

CHARACTER::c1=“a”

!c1是1字节字符型变量且初值是字符“a”

CHARACTER*4::c2=“南京”

!c2是4字节字符型变量且初值是字符串“南京”CHARACTER*5::c3=“”!c3是5字节字符型变量且初值为空，即空串32精选2021版课件2.隐式类型说明1)隐含约定（即系统约定，简称I-N规则）：程序中凡以字母I-N开头的变量名系统约定（即默认）为整型变量，其余字母(A-H,O-Z)开头的变量名系统均约定为实型变量。例：n1,m2,i1,j2均被系统约定为整型变量a1，b1，c2，d2均被系统约定为实型变量说明:i)上述隐含约定仅对整、实型变量有效！ii)Fortran90虽然支持隐含约定,但不提倡使用。为此,在程序的开始用：IMPLICITNONE语句向系统声明不使用隐含约定。2)隐含说明语句（即人为约定）：按程序中变量名的首字符来确定变量的类型。一般形式：IMPLICIT类型说明符(字母1,…，字母n）或：IMPLICITNONE例：IMPLICITREAL(i,k)！程序中凡以i,k开头的变量均为实型变量。

IMPLICITINTEGER(n,t)！程序中凡以n,t开头的变量均为整型变量。

IMPLICITNONE！程序中取消隐含约定。33精选2021版课件注意：①以上三种类型说明方式中，显式类型说明语句优先级最高，IMPLICIT语句次之，“I-N规则”则最低。例如：INTEGERIMAXIMPLICITREAL(I,J) 以上的类型说明语句，变量IMAX被显式类型说明语句说明为整型变量，以字母I、J开头的变量名被IMPLICIT语句说明为实型变量，程序中出现的其它整、实型变量均按I-N规则约定其类型。

②类型说明语句和IMPLICIT语句都是非执行语句。③类型说明只在本程序单位内有效。④IMPLICIT语句要置于PROGRAM语句的下一行，不能把它放在其他位置。34精选2021版课件5.7表达式5.7.1算术表达式1.作用：表示普通数学中的代数式。2.组成：由算术型运算分量（如：算术型常量，变量，函数）、算术运算符以及圆括号按照通常的数学含义连接而成。3.算术运算符：＋、－、*、/、**表示：加、减、乘、除、乘方4.算术运算符的求值规则1)优先级：高***、/单目+、-低双目+、－但括号可以改变优先级。2)结合规则左结合:当运算分量两侧的运算符优先级相同时,运算顺序先左后右。结合方向右结合:当运算分量两侧的运算符优先级相同时,运算顺序先右后左。

35精选2021版课件

FORTRAN90规定：**为右结合，+、-、*、/为左结合。例如：指出下列表达式的运算次序。

(a*b**2–8*c*d)/(-e+f**g**3)

（1）（3）（8）（6）

（2）（4）（7）

（5）（9）

（10）36精选2021版课件5.算术运算的类型转换对于混合型（即指运算分量的类型和kind值不同）的算术表达式，运算时必须将两个不同类型的运算分量转换成同一种类型才能运算。类型转换时既要考虑运算分量的类型，同时还要考虑其kind值。类型转换原则：（1）同类型的运算分量无需转换，直接运算，其运算结果仍保持原类型。（2）不同类型的运算分量，运算前系统会自动将它们转换成同一类型后进行运算。转换的方法是：将类型级别低的运算分量向类型级别高的运算分量转换（运算分量的类型级别如下所示）。运算结果的类型与类型级别高的运算分量相同。运算分量的类型（含kind值）级别如下：

高

COMPLEX(8)COMPLEX(4)REAL(8)REAL(4)INTEGER(8)INTEGER(4)INTEGER(2)低INTEGER(1)

37精选2021版课件例如：INTEGER(1)i,jINTEGER(2)kREAL(4)a…

i*k+j*a上述表达式的运算步骤及类型转换如下：（1）将i转换成2字节整型，即INTEGER(2)，执行“i*k”的运算，运算结果类型为2字节整型。（2）将j转换成4字节实型，即REAL(4)，执行“j*a”的运算，运算结果类型为4字节实型。（3）将第（1）步的运算结果转换成4字节实型，即REAL(4)，执行最终的加法的运算，最终结果类型为4字节实型。38精选2021版课件6.有关注意事项1）两表达式相乘，*号不能少。2）两表达式相除，分子和分母上的表达式要酌情加上括号。例：（a+b）/（c-d）3）分母不得为零，负数不能开平方。4）表达式中只能配对使用圆括号，不能使用“[]”和“{}”5）整型量/整型量＝整商（舍去小数部分自动取整）

例：1/2*g*t**2

=0

39精选2021版课件5.7.2关系表达式1.作用：用以比较两个算术表达式之间的大小等同关系。2.一般形式：<算术表达式><关系运算符><算术表达式>3.关系运算符：<、<=、>、>=、==、/=或:.LT.、.LE.、.GT.、.GE.、.EQ.、.NE.4.结果：.TRUE.若关系表达式（即所表示的条件）成立，结果为.TRUE.逻辑值.FALSE.若关系表达式（即所表示的条件）不成立，结果为.FALSE.上述逻辑值其kind值为4.例：1)3+4>5！3+4>5，结果为.TRUE.2)a>b！a>b，若a>b结果为.TRUE.；否则为.FALSE.3)a>b>c!a>b>c，则无法比较！

逻辑值代数值5.注意事项：两个实型量慎用关系相等”==”和关系不等”/=“的比较.例:判别实型量a,b是否相等,即a=b?用:abs(a-b)<=1e-6即：|a-b|≤10-640精选2021版课件6.例：12>34

！判别结果为.FALSE.(4+5*2).LE.10

！判别结果为.FALSE.(4.2,7.3).NE.(7.3,4.2)

！判别结果为.TRUE.41精选2021版课件5.7.3逻辑表达式1.作用：用作较复杂的逻辑比较。如表示多个条件同时成立，或表示多个条件中只有一个条件成立即可，这种条件的表示方法，必须要用逻辑表达式。例如:1)a>b.and.x>y

！该逻辑表达式表示：a>b同时x>y2)x<0.or.y<0

！该逻辑式表示这两个条件只要有一个成立即可42精选2021版课件

0x<-1,x>1例：1)y=1-1<=x<=11x>0,y>0(I)2)xy=-1x<0,y<0(III)0x*y<=0(II,Ⅳ)

上述判别条件均较复杂，故引进逻辑表达式比较。2.组成：由逻辑型量（如：逻辑型常量、变量、函数）、关系表达式、逻辑运算符以及圆括号连接而成。3.逻辑运算符:.not.、.and.、.or.、.xor.、.eqv.、.neqv.表示：逻辑非、逻辑与、逻辑或、逻辑异或、逻辑相等、逻辑不等.y=10-11y=0y=0xx*y<=0x>0,y>0x<0,y<0x*y<=0xy43精选2021版课件（1）逻辑运算符的运算规则详见下表：ab.not.aa.and.ba.or.ba.eqv.ba.neqv.ba.xor.bTTFTTTFFTFFFTFTTFTTFTFTTFFTFFTFF44精选2021版课件（2）逻辑运算符的优先级高.not..and..or.低.xor.、.eqv.、.neqv.（3）逻辑运算符的结合规则除.not.为右结合外，其它运算符均为左结合。4.混合型（即含有算术、字符、关系表达式）的逻辑表达式运算顺序：算术运算或字符运算关系运算逻辑运算例:PROGRAMeex5_2INTEGER::a=6,b=5,c=15LOGICAL::d=.true.,e=.false.,xx=a+b>c.and.d.or.ePRINT*,"x=",xEND45精选2021版课件5.7.4字符表达式5.7.4.1字符合并表达式1.作用：将字符型量（如：字符型常量、变量、函数）予以合并。2.组成：由字符型量（如：字符型常量、变量、函数）、字符运算符（即字符连接符//）或子字符串（简称子串）构成。3.子串概念子串是由字符串中的一部分相邻字符组成，又称子字符串。子串的一般形式：字符型变量名（[子串的起始位置]：[子串的终止位置]）其中：若缺省子串起始位置，系统则默认该值为1；若缺省子串终止位置，系统则默认该值为字符串的长度值。上述一般形式表示子串在字符串中的相对位置。例：…CHARACTER(19)stringCHARACTER(10)substringstring=‘Thisisacomputer.’substring=string（1:4）!子串为“This”substring=string（:7）!子串为“Thisis”substring=string（11:）!子串为“computer.“46精选2021版课件4.字符串连接操作（即字符表达式）字符串连接是由字符连接符//将若干个字符串连接起来的操作。一般形式：字符型操作数1//字符型操作数2//…//字符型操作数n例：…CHARACTER(19)str1，str2*5，str3*3，str4*11str2=’This□’

str3=’is□’str4=’acomputer.’str1=str2//str3//str4!str1的连接结果为Thisisacomputer.47精选2021版课件5.7.4.2字符关系表达式1.作用：用以比较两个字符表达式之间的大小等同关系。2.一般形式：<字符表达式><关系运算符><字符表达式>3.关系运算符：<、<=、>、>=、==、/=或:.LT.、.LE.、.GT.、.GE.、.EQ.、.NE.4.结果：.TRUE.若关系表达式（即所表示的条件）成立，结果为.TRUE.逻辑值.FALSE.若关系表达式（即所表示的条件）不成立，结果为.FALSE.5.比较方法：依次比较两个字符串（即字符表达式）中相同位置字符的ASCII码值。例如：1）‘banana’<=‘apple’！由于”b“的ASCII为98，而“a”的ASCII为97，故比较结果为.FALSE.2）‘Thisisapen.’<=‘Thisisapencil.’！由于字符“.”的ASCII为46，

而“c”的ASCII为99，故比较结果为.TRUE.48精选2021版课件5.8赋值语句作用：给变量赋一个确定的值。5.8.1赋值语句的类型算术赋值语句类型字符赋值语句逻辑赋值语句5.8.2赋值语句的一般形式<变量>＝<表达式>其中：1）“＝”称为赋值号,意义为“左传送”。2）变量统称为左部变量。语意：将＝右端表达式的值赋给同类型(算术型、字符型、逻辑型)的左部变量。即：算术型变量＝算术表达式!算术赋值语句字符型变量＝字符表达式!字符赋值语句

逻辑型变量＝逻辑表达式!逻辑赋值语句49精选2021版课件5.8.3赋值语句举例1.算术赋值语句

赋值时类型转换：当赋值号两端的类型及其kind值一致，无需类型转换,直接赋值;若赋值号两端的类型及其kind值不一致,系统自动把右端表达式之值的类型转换成左部变量的类型。转换规则如下：

a）类型相同而kind值不同右端表达式值的kind值j<左部变量的kind值i,类型转换后值不变若右端表达式值的kind值j=左部变量的kind值i,无需类型转换右端表达式值的kind值j>左部变量的kind值i,仅转换i个低位字节值例：INTEGER(1)::b=126INTEGER(2)::a,c=56INTEGER(4)::d=32771a=b!a=126，j<i,类型转换后，赋值结果不变，即a值不变。a=c!a=56,j=i,无需类型转换,直接赋值。a=d!a=-32765，j>i,类型转换后，赋值结果改变，即a值出错！

50精选2021版课件b）类型不同实型左部变量=整型右端表达式值，则将右端表达式值添加小数点后再赋值。整型左部变量=实型右端表达式值，仅取右端表达式值的整数部分数值赋值。例：…INTEGER::a=23,cREAL::b=98.78,dd=a!d=23.0，将整型右端表达式值添加小数点后再赋值给d。

c=b!c=98，仅取实型右端表达式值的整数部分数值赋值给c。

51精选2021版课件2.字符赋值语句当字符型左部变量与字符型右端表达式的长度不相等时，需进行长度转换。例:1)CHARACTER*7str1,str2str1=‘student’!str1=‘student’str2=‘Heisa’//‘student’!str2=‘Heisa’2)CHARACTER*5str1,str2*3str1=‘is’!str1=‘is□□□’str2=‘china’!str2=‘chi’3.逻辑赋值语句例:…LOGICALL,L1,L2,L3,L4REAL::A=3,B=5,C=2L=.TRUE.!L的结果是一个逻辑常量.TRUE.L1=A.GT.B!L1的结果是关系表达式的结果，即逻辑常量.FALSE.L2=B.GT.C!L2的结果是关系表达式的结果，即逻辑常量.TRUE.L3=L1.AND.L2!L3的结果是逻辑表达式的结果，即逻辑常量.FALSE.L4=L3!L4的结果是逻辑变量的值.FALSE.52精选2021版课件1.作用：给变量或数组赋初值。2.一般形式：DATA变量名表1/初值表1/,变量名表2/初值表2，…其中：变量名表中可以是变量名、数组名、数组元素，变量名表中的各变量间用逗号隔开，初值表中只允许出现常量，不允许出现表达式。例如：DATAa,b,i/3.0,-3.1,8/！给a,b分别赋初值3.0，-3.1；i赋初值83.说明：（1）初值表中如果有几个连续相同的常量可以简写为：n*常量例如：DATAa,b,c,i,k/3*1.0,2*3/！给a,b,c均赋初值1.0;i,k均赋初值3（2）变量名表中的变量与初值表中的常量个数应当相同，类型应当一致。例如：DATAa,b,c,d/3.0,2*2.0/,i/3.0/（3）若一个程序中有多个DATA语句给同一个变量赋初值，则以最后一个DATA语句所赋的初值为准。例如： DATAa,b,c,d/1.0,3.0,2*0.0/ DATAx,y,c/4.0,2.0,7.5/其中变量c分别在两个DATA语句中出现，并且赋的值不同，结果c的值应为7.55.9DATA语句53精选2021版课件5.10停与暂停语句

用以表示程序的停止运行(END或STOP)或暂时中断程序的运行(PAUSE)。1.END语句作用：1)表示一个程序段的结束，提示编译程序该程序段编译结束。2)主程序中的END语句，表示程序运行到此结束可以返回操作系统。一般形式：END说明：END语句一般出现在一个程序段的最后。2.STOP语句作用：表示随时执行STOP语句停止程序运行返回操作系统。一般形式：STOP[字符串]其中：字符串用以表示STOP语句停止运行时的标记。说明：STOP语句可以出现在一个程序段的任何可执行语句之处。3.PAUSE语句作用：表示暂停程序的执行，一般用于调试程序时给程序设置运行断点，当从键盘上键入任意键后，可使程序从刚暂停处（即中断点）继续运行。一般形式：PAUSE[字符串]说明：PAUSE语句可以出现在一个程序段的任何可执行语句之处。54精选2021版课件5.11标准函数对于一些常用的标准函数，编译系统已定义好且存入函数库，只要在程序中采用“函数名(参数)”的方式直接引用即可。1.函数分类：标准函数函数语句函数用户自定义函数外部函数2.标准函数的引用方式：<函数名>(<参数表>)其中：1）<参数表>：一个或用逗号隔开的一系列参数名。2）函数名、参数表中参数的类型及个数详见附录D常用库函数.3.说明1）参数的个数必须与函数表中参数的个数一致。