Fortran90_数据类型
FORTRAN知识点总结
F O R T R A N第2章FORTRAN90基础知识：程序单元的概念:fortran90程序是一种分块形式的程序，整个程序由若干程序单元块组成。
每个程序只有一个主程序单元。
各单元体的程序体形式上相同。
程序单元可以是主程序、子程序（外部过程或内部过程）、模块MODULE （供其他程序单元引用即把该程序单元内的全部语句复制到程序单元中）或块数据程序单元BLOCK 。
语言元素：指在程序设计中用到的基本成分，如字符集、常量、变量、记号（标号、关键字、名字、常数、运算符和定界符）以及其他的基本结构等。
字符集：英文字母、阿拉伯数字、下划线、21个特殊字符（$和？没有规定用法）。
数据结构：整型INTEGER （34-2下划线后面是种别参数），n 位字长的计算机的数据表示范围一般为12~211-+---n n ，种别参数由内在询问函数KIND 送回，种别值提供的最小范围由内在函数SELECTED-INT-KIND 送回，表示十进制幂的范围由内在函数RANGE 送回；实型REAL ，小数形式和指数形式；复型COMPLEX （种别类型参数值取实部与虚部中较大者）；字符型CHARACTER，由一对单撇号或双撇号之间的字符序列组成；逻辑型LOGICAL。
派生数据类型TYPE；数组INTEGER,DIMENSION(1,50)::A，可直接对数组元素进行运算如3*A,SQRT(A)；字符子串，在字符串CHARACTER(LEN=80)::ROW中，ROW(1:3)就表示字符串ROW中第1到第3个元素组成的子串。
变量名的命名规则：不能超过31个字符；组成成分是字母、数字、下划线；第一个字符必须是字母。
第3章基本语句：类型说明语句：类型说明（种别说明），属性说明：：变量名表尽量避免把两个实数作相等或不相等的比较。
淘汰隐式说明IMPLICIT NONE种别说明：种别参数即对可移植数据精度和范围进行选择的机制KIND(X) 返回变元X的种别参数值SELECTED-REAL-KIND(n,m) 产生一个种别值，它表示某一精度和范围。
FORTRAN90 数据类型
说明：大于最大值，产生上溢错，小于最小值，按0处理
5.2
实型数据
Kind=4,单精度实数; kind=8,双精度实数. 指数形式表示的单、双精度实数： 1.2e-5, .5e3, -12.345e2 1.d-5, 1.3d-6 , -0.63d4 2.实型变量（real) real I,total real (4)::k,limit Real(8)::min,max Real :: x=5.0 ; y=24.1 单精度实数 双精度实数 real, parameter::x=5.,r_j=10.e3 Real*4,dimension (1:10):: a real *4 t,e real*8 kig,dog Real(kind=4):: n,count Double precision::x_1,y2
5.4
均为字符型。
字符型数据
z字符赋值语句：左边变量和右边表达式类型
字符赋值语句在执行中会发生强制长度转换,转 换后值赋予左边变量。 右边长度小于左边,将表达式值赋予变量左侧,不足 补空格。 右边长度大于左边,将表达式值左侧部分赋予变量, 多余截去。
5.4
字符型数据
示例： character*4 str1*8，str2*17,str3,str4 ! students str1='students‘ str2=‘Are you '//str1//’?’ !Are you students? !are str3=‘are’ !stud str4=‘students’ str2(9:16)=‘teachers’ ! Print*,str2 ! Are you teachers end
谢 谢
5.3
COMPLEX(8)e,d,f COMPLEX f
FORTRAN90复习资料(2)
FORTRAN90 程序设计复习资料(2)一、选择题1．FORTRAN 90规定，变量类型声明的优先顺序是。
A.隐含约定（I-N规则）、IMPLICIT声明、类型声明B.类型声明、隐含约定（I-N规则）、IMPLICIT声明C.类型声明、IMPLICIT声明、隐含约定（I-N规则）D.IMPLICIT声明、类型声明、隐含约定（I-N规则）2．表达式15／4／2.0的值是。
A．整数2 B．实数1．5 C．实数2．25 D．实数1. 33．数组声明语句为：INTEGER，DIMENSION(-5:-1,-3:3,11:15) ：：num ,数组共有个元素。
A．175 B．150 C．120 D．174．下列语句函数声明中，正确的是。
A．F1(I,I)=5*I-10*I**2 B. F2(MAT(5),A)=5*A+MAT(5)C. F3(X,Y,5.0)=X**2+Y**2+5.0**2D.F4(X,Y)=SQRT(X**2+Y**2+5.0**2)5.下列关于子程序的有关说法中，不正确的是。
A．对于无参子例行程序，调用时子例行程序名后的括号可取消B．对于无参函数子程序，调用时函数名后括号可取消C．对于有参子程序，形式参数可以是子程序名对于有参子程序，形式参数可以是星号“*”6．以下不是算法的特征。
(A) 灵活性（B）确定性（C）可行性（D）有穷性7．以下是FORTRAN 90源程序的扩展名。
（A）MDP （B）MAK （C）OBJ （D）F908．下列是正确的变量名。
（A）3SI （B）SI—3 （C）SI 3 （D）SI#39．若S为整型变量，且有S=1.25+11/4，则S的值为。
（A）3（B）3.25 （C）4 （D）4..2510．表达式MOD(5，6)+9/2**3/2的值为。
（A）37 （B）1 （C）5 （D）3211．已知a=3.0，b=9.0，c=5.0，d=7.0，逻辑表达式a+b/=c. and .a>=d的值为。
fortran90-知识点整理
WRITE (*,”(I3，I5，I7)”)J,K,L
□10□□-12□□□□123
注意：
1．数字在指定的区域内右端对齐，不足w则左边补空格。
2．负数的符号也包含在字段宽度内
3．如果应输出的列数超过了规定的字段宽度，则不输出有效数据，以w个*填充。
4、BN, BZ：Blank interpretation
3、假IF的下一个语句
注意：
1.右边通常为一条且只一条可执行语句。
错例：IF (A<B) T=A;A=B;B=T
2.不能为以下语句：
END、另一个逻辑IF、块IF、ELSIF、ENDIF、DO
错例：IF（X<2）END
3.常应用于简单的条件赋值或条件转移（在循环结构中）
4、不论条件真假都执行IF的下一个语句
注意：5/2=2 1/2=0！！
运算对象类型不同时，系统一般先转换成相同类型后再运算
转换规则是：较低级的类型转换为较高级的类型
数据类型隐含的高低次序为（由低到高）：
整型→实型→双精度→复型
例：8/5+2.0*5/2=6.0（逐步转化）
赋值语句
1、类型要求
逻辑型、字符型的赋值语句要求“=”两边类型相同
数值型赋值，不区别整型、实型和复型
2、种别方面
字符型要求种别相同
其余类型的e、V种别允许不同
输入输出语句
1、I/O的对象——列在<I/O表>中
I/O是相对于内存而言的，
键盘属于输入设备，
显示器属于输出设备，
优盘、硬盘既是输入设备，又是输出设备。
2、I/O的方向及语句
READ（U，f）<I/O表> U:设备(部件) f:格式
Fortran90编程
字。以关键词end type结束。
派生类型的声明和使用
n 声明： n 赋值： n 引用结构成员：
例一：派生数据类型
模块(Module)
n 是一种不能直接执行的程序单元，但可以包含
数据声明和过程
n
使不同的过程实现过程和数据的共享 n 可以实现对自定义数据类型的封装
n 相对于program,function,subroutine,是一种特
例三：数据类型的范围
定义符号常量
n 符号常量在程序中不可以改变其值 n 定义符号常量可以增强程序的可读性和可维护
性 n 定义方法：加上parameter属性
real (8) ,parameter :: pi=3.1415926535_8
例四：定义符号常量
三、控制结构
n if语句:if then elseif else endif
n
在Compaq Visual Fortran中调用 CXML
n 第一种方法：在工程中加入cxml.lib
n 第二种方法：使用include
PROGRAM example INCLUDE 'CXML_INCLUDE.F90’
在Compaq Visual Fortran中调用 Intel MKL
n 添加库函数路径 n 在工程中加入mkl_s.lib
总结：Fortran90的新特性
n n n n n n n n
高级的表达能力：数组运算 (例如, X(1:N)=R(1:N)*COS(A(1:N))) 动态存储分配 (ALLOCATE, DEALLOCATE, ...) 导出类型(derived types)与操作符重载(operator overloading) 更好的变量声明方式(parameterized types),提高移植性 模块 更多的现代控制结构 (SELECT CASE，END SELECT,DO, END DO,EXIT...) 更多的内部函数 (date, precision, arrays, ...) 新的源程序书写格式－自由格式（free format） 指针
fortran90程序设计chapter2
第二章 Digital Visual FORTRAN 5.0 入门FORTRAN语言是最早出现的计算机高级程序设计语言,它对程序设计语言的研究和发展产生了极其深刻的影响。
随着计算机科学技术的飞速发展,FORTRAN语言也不断得到完善和充实,从传统FORTRAN,到结构化FORTRAN,再到具有现代特征的Digial Visual FORTRAN 5.0。
本章将介绍FORTRAN语言的发展历史、Digital Visual FORTRAN 5.0简介、Microsoft Developer Studio开发环境、FORTRAN 90语言书写格式,以及FORTRAN 90程序的编辑、创建、打开、保存、编译、连接和运行等内容。
2.1 FORTRAN语言发展概述FORTRAN是英文“FORmula TRANslator”的缩写,译为“公式翻译器”,它是世界上最早出现的计算机高级程序设计语言,广泛应用于科学和工程计算领域。
FORTRAN语言以其特有的功能在数值、科学和工程计算领域发挥着重要作用。
早在1951年,美国IBM公司约翰·贝克斯(John Backus)针对汇编语言的缺点着手研究开发FORTRAN语言,并于1954年在纽约正式对外发布。
称约翰·贝克斯提出的FORTRAN语言为FORTRANⅠ,FORTRANⅠ虽然功能简单,但它的开创性工作,在社会上引起了极大的反响。
到1957年第一个FORTRAN编译器在IBM704计算机上实现,并首次成功运行了FORTRAN程序。
在1958年,对FORTRANⅠ进行了扩充和完善,引进了子函数等概念,推出了商业化的FORTRANⅡ版本。
之后,FORTRAN语言发展迅速,多种版本相继在其它计算机上实现。
在1962年,推出了FORTRAN Ⅳ。
FORTRAN Ⅳ没有充分考虑兼容性,导致FORTRANⅡ程序不能在FORTRAN Ⅳ系统中运行,使其应用受到了很大限制,这时语言不兼容性问题和影响被突出表现出来。
FORTRAN90数据类型
的数，已经超过了类别参数为2的整数的取值范围，只能采 用类别参数为4整数。如果数超过类别参数为4的整数取值 范围，就只能采用实型数据来处理。
二、实型数据
实型变量的说明： REAL [ ( [KIND = ] 类别参数值) ] [ [ ,属性列表] :: ] 变量列表 单 精 度 用 REAL(4) 定 义 ， 双 精 度 用 REAL(8) 或 DOUBLE
直到输入′ZZZ′结束。
例2 翻译密码：为了保密，常不采用明码电文，而用密 码电文，按事先约定的规律将一个字符转换为另一个 字符。收报人则按相反的规律转换得到原来的字符。 例如，将字母′A′→′F′，′B′→′G′， ′C′ →′H′，即将一
个字母变成其后第五个字母。
五、逻辑型数据
逻辑常量只有真和假两种值：.TRUE.和.FALSE.。变量说 明的格式为：
两个字符串比较时，将两个字符串中的字符自左向右这 个进行比较。若所有字符完全相同，则两表达式相等。 否则，以第一次出现不同字符的比较结果为准。
6．用于字符处理的内部函数
•
求字符串长度函数(LEN和LEN_TRIM)
•
子串位置函数(INDEX)
•
字符与字符序号相互转化函数
7. 字符处理应用举例
例1 在读入的一批单词中，把以字母′B′开头的打印出来，
FORTRAN90数据类型
本课件PPT仅供大家学习使用 学习完请自行删除，谢谢！ 本课件PPT仅供大家学习使用 学习完请自行删除，谢谢！ 本课件PPT仅供大家学习使用 学习完请自行删除，谢谢！ 本课件PPT仅供大家学习使用 学习完请自行删除，谢谢！
FORTRAN90指导
FORTRAN90学习指导一、FORTRAN90基础知识1．源程序及其构成书写格式：主程序定义语句、结束语句注意：在没有程序名称的时候，程序开头的PROGRAM也不要出现。
如果使用了程序名称且在END语句中出现，则END语句中的PROGRAM不能省略。
语句行可以是0~132个字符；除赋值语句外，每个语句都要使用关键字开头。
如果希望一行中出现多个语句，语句一定要用分号隔开。
空格不能随便使用，关键字、变量和常量名以及操作符中的空格会使字符失去其原有的含义。
但它们之间一定要加空格。
注释行：以感叹号为标记，或“C”、“*”（FORTRAN90中不提倡此用法）续行标记：在句末尾添加续行符&，如果将关键字分成两行，则下一行开头也要加续行标记。
如果续行符出现在注释语句中，则失去了续行的功能。
2．FORTRAN90字符集126个英文字母（大小写字母等价）210个阿拉伯数字3下划线421个特殊字符：空格= + - * / （）， . ‘: ！“% & ；< > ? $5其他字符（只可以出现在字符常量、字符串编辑描述符、注释和输入输出记录中）3．基本数据类型1 整型KIND值可以为1、2、4类型说明关键字：INTEGERKIND值决定数据的范围。
对于整数没有误差。
I=3/2=1；I=1/2=0INTEGER（KIND=4）：：AINTEGER*4：：AINTEGER（4）：：A2 实型KIND值可以为4（单精度7位有效数字）、8（双精度15~17位有效数字）类型说明关键字：REAL小数表示形式、指数表示形式（规格化的指数形式）错误表示形式：E34、.E34、0.14E2.38开3次方：8.0**（1.0/3.0）3 复型KIND值为4、8是实数的有序对，将两个实数中间用逗号分隔，然后放在一对括号中类型说明关键字：COMPLEX复数的运算：+、—、*、/4 字符型KIND值为国家语言种类由一对单撇号或一对双撇号之间的字符序列组成。
Fortran90
1、定义：系统函数，FORTRAN90系统已经定义了的函数
2、种类与函数调用写法: 函数名 ( 函数参数 ) |x| : ABS(X) e:
x
x
EXP(x) SQRT(X)
Real(x)
INT(x)取整数部分
NINT(x)最靠近的整数 CMPLX(两种） DBLE(x) Max(a,b,c,……）
Cosx COS(X)
3、名字的命名规则： 字母、数字、下划线组成 字母开头 长度1~31 名字中不能含有空格 错例 3A 、 x-3 、3.14
S_p_r , waiter_ , b123 , a是正确的
字符的大小写没有要求 ，最好遵循“见名知意”的准则
在FORTRAN90标准中，并没有规定保留字，因此完全可以使用其中 的函数名或关键字作为变量名。但为了避免混淆，建议不要使用 FORTRAN90中已有的具有特定意义的名字作为变量名。
例
1/2*2值为0
8/5+2.0*5/2值为6.0
（注意在计算过程中逐步转化、实数有效位7位） FORTRAN90允许不同类型的数值型数据类型之间 进行算术运算，但不允许在数值型数据类型与非数 值型数据类型之间进行算术运算
例：
1、 2 sin( 4) 3
(sin 4 cos10)e2.5 2、 2 ax ln(3 * 5)
FORTRAN90基础知识
程序单元由数据声明和相关操作(语句)构成,必须用END语句结束。
area=length*width area=length*width price=4000*area price=4000*area PRINT*,’总地价：’,price,’元’ PRINT*,’总地价：’,price,’元’ END END
数据类型第三章fortran90基础知识佛山科学技术学院电子与信息工程学院ascii码佛山科学技术学院电子与信息工程学院佛山科学技术学院电子与信息工程学院定点整数范围整数位数有符号整数范围8位一个字节12812716位二个字节327683276732位三个字节符号位符号位00表示表示11表示表示数据位数据位佛山科学技术学院电子与信息工程学院实数浮点数的表示实数浮点数的表示任何一个十进制实数都可以有以下不同的表示形式
第三章
FORTRAN 90基础知识
苏州科技大学计算中心
03/04第二学期
3.2 名称
概述 语法描述 作用域 示例 说明： ① 名称只能由英文字母、数字、下划线符“_”和美元符 号“$”组成。
3.2 名称/语法描述 3.2 名称/语法描述
<名称>→<英文字母>{<英文字母>∣<数字>∣“_”∣“$”}
第三章 FORTRAN90基础知识
1. 2. 3. 4. 5. 6. 7. 8. 9. 字符集 名称 关键字 程序单元 语句 书写格式 数据类型 兼容性 习题三
9
《FORTRAN90程序设计》课
苏州科技大学计算中心
03/04第二学期
3.1 字符集
概述 字符集 说明 FORTRAN 90源程序是一个符合FORTRAN 90词法、语法和 语义规定的特殊文本,它由FORTRAN 90字符集规定的字符按 照词法、语法和语义规定进行描述。
FORTRAN90
FORTRAN90FORTRAN 90第一章绪论一、特点在FORTRAN 77的基础上增添了许多具有现代特性的功能、递归、数组直接运算、派生类型、指针和过程。
二、与FORTRAN 77的区别1、不区分书写格式2、不赞成语句标号3、不使用BLOCK DATA 数据块子程序、语句函数4、主程序以PROGRAM 开头，以END PROGRAM为结尾函数子程序：区分函数名与函数值5、不使用GOTO 10、STOP、PAUSE语句6、不使用DO 10 I=1，3，而以DO与END DO 匹配使用。
7、不使用：I-N规则、双精度、DATA语句、多条RETURN语句。
而使用REAL ：：A=0,B=2.58、不使用COMMON语句，而用模块MODULE9、用假定形状数组取代假定大小数组10、DIMENSION A（10）在FORTRAN 90中不再定义数组11、FORMAT 语句不再使用第二章F ORTRAN 90 基础知识第2.1节语言元素一、字符集1、A-Z （26个）2、0-9 （10个）3、_（下划线）（1个）4、特殊符号（21个）：空格、等号、加号、减号、*、/、（、）、，、.、’、：、!、”、%、&、；、<、>、？、$二、数据类型本身：INTEGER real complex character logical派生类型种别参数：对可移值数据精度和范围进行选择的机制，他提供了对每种内部数据类型的不同机器表示进行选择的参数化方式，种别参数均为整数。
用法：KIND=种别参数。
函数KIND（X）表示返回X的种别参数。
1、常量（字符型：双、单引号表示）常数的种别标示：例15_2 14.36_3 .false._4 5_’ang’带种别参数的常量的运算：15_2+14.36_3=29.36_3定义常量：REAL（KIND=2），PARAMETER：：N=52、变量（1）变量名（程序名、常量、虚参、派生类型）命名规则：长度小于等于31个字符、须以字母开头、由字母、数字、下划线构成，其中不出现空格。
fortran90整型定义初始化
fortran90整型定义初始化摘要：1.Fortran90 简介2.Fortran90 整型定义3.Fortran90 整型初始化4.示例代码正文：1.Fortran90 简介Fortran90 是一种高级编程语言，主要用于数值计算和科学计算。
它是Fortran 语言的一个版本，于1990 年发布。
Fortran90 具有丰富的数学函数库和强大的数据处理能力，广泛应用于工程、科学和研究领域。
2.Fortran90 整型定义在Fortran90 中，整型是一种数据类型，用于表示整数。
整型数据类型的名称为integer，它可以是正数、负数或零。
Fortran90 中整型的大小为默认为整数位数，可以根据需要进行调整。
3.Fortran90 整型初始化在Fortran90 中，可以通过以下方式对整型变量进行初始化：（1）直接赋值：在声明变量后，通过等号=赋值。
例如：```integer :: a = 10```（2）使用赋值语句：通过使用赋值语句进行初始化。
例如：```integer :: bb = 20```（3）使用子程序或函数：通过调用子程序或函数进行初始化。
例如：```integer :: cc = init_value(10)```其中，init_value 为子程序或函数，用于初始化c 的值。
4.示例代码下面是一个简单的Fortran90 程序，演示了整型的定义和初始化：```fortranprogram mainimplicit noneinteger :: a, b, sum! 定义整型变量a 和binteger :: a = 10integer :: b = 20! 计算a 和b 的和sum = a + b! 输出结果print *, "The sum of a and b is:", sumend program main```以上就是Fortran90 整型定义和初始化的相关内容。
fortran 顺序结构及基本语句
REAL ----- 一般默认取k=4
REAL(k)或REAL(KIND=k)或REAL*k DOUBLE PRECISION
---- k:4,8
----- 双精度，等价于REAL(8) !声明KIND值为8的3个双精度实型变量 !声明KIND值为4(缺省)的1个实型变量 !a初值为125.5,b初值为0.0
形式
CHARACTER ----- 一般默认取k=1 CHARACTER(k)或CHARACTER(LEN=k)或CHARACTER*k -- k:正整数
示例
CHARACTER(4)e,d,t CHARACTER f，g*5
!声明长度为4的3个字符型变量 !声明长度为1(缺省)和为5的2个字符型变量
操作数类型转换：允许混合运算，按最高级进行转换。
12+13+14.5(12+13)+14.525+14.525.0+14.539.5
长安大学地学信息技术研究所
09/10第一学期 16
字符表达式
字符表达式：字符操作数、字符操作符和圆括号组成。 字符操作数：字符、字符串、字符型变量或字符型函数 字符操作符：求子串(i:j),连接符// 圆括号: 示例
( ),用以改变操作数的操作顺序。
不同类型的操作数和操作符组成的表达式其操作方式、操
作规则及操作结果亦不相同。
四种类型表达式: 算术表达式: 字符表达式: 关系表达式: 逻辑表达式:
(number+12)*count
str1(i:j)//str2 (x+y)<1.25E-25
.NOT.(L1 .AND. L2 .OR. L3)
3.1 常量/实数/范围
fortran90整型定义初始化
fortran90整型定义初始化摘要：一、引言二、Fortran90 整型定义1.整型数据类型2.整型变量定义与初始化三、整型变量的使用1.整型变量在Fortran90 中的表示2.整型变量的运算与操作四、整型变量与实型变量的转换1.隐式转换2.显式转换五、总结正文：Fortran（Formula Translation）是一种高级编程语言，主要用于数值计算和科学计算领域。
Fortran90 是Fortran 语言的一个版本，它具有许多现代编程语言的特性，例如结构体、模块化等。
在Fortran90 中，整型定义和初始化是编程的基础，下面我们来详细了解一下。
一、引言Fortran90 中，整型数据类型是一种基本的数据类型，用于表示整数。
在编程过程中，我们需要对整型变量进行定义和初始化，以便后续进行运算和操作。
二、Fortran90 整型定义1.整型数据类型在Fortran90 中，整型数据类型包括：integer、logical、character 等。
其中，integer 表示整数类型，取值范围为-2147483648 到2147483647。
logical 表示逻辑类型，取值范围为.FALSE.和.TRUE.。
character 表示字符类型，用于表示单个字符或字符串。
2.整型变量定义与初始化在Fortran90 中，我们可以使用以下方式定义和初始化整型变量：```integer :: a = 10logical :: b = .TRUE.character :: c = "A"```这里，我们定义了三个整型变量a、b、c，并分别为它们赋值。
三、整型变量的使用1.整型变量在Fortran90 中的表示在Fortran90 中，我们可以使用整型变量进行各种运算和操作，例如加法、减法、乘法、除法等。
```integer :: a, b, ca = 10c = a + b```这里，我们定义了两个整型变量a 和b，并将它们的和赋值给变量c。
fortran90的变量
fortran90的变量
1. 整数型变量：整型变量在Fortran90中用于存储整数值。
可以使用关键字INTEGER或INT声明整数型变量。
2. 实数型变量：实数型变量用于存储浮点数值，可以包括小数点和指数部分。
可以使用关键字REAL或FLOAT声明实数型变量。
3. 复数型变量：复数型变量用于存储复数值，包括实部和虚部。
可以使用关键字COMPLEX或IMAGINARY声明复数型变量。
4. 逻辑型变量：逻辑型变量用于存储逻辑值，即真或假。
可以使用关键字LOGICAL声明逻辑型变量。
5. 字符型变量：字符型变量用于存储字符或字符串值。
可以使用关键字CHARACTER声明字符型变量。
6. 数组变量：数组变量用于存储多个元素的值。
可以使用关键字DIMENSION声明数组变量，并指定数组的维度。
7. 指针变量：指针变量用于指向其他变量或数据对象的地址。
可以使用关键字POINTER声明指针变量。
8. 参数变量：参数变量用于存储预定义的常量值。
可以使用关键字PARAMETER声明参数变量。
9. 共享变量：共享变量用于在不同的子程序之间共享数据。
可以使用关键字SHARED声明共享变量。
10. 局部变量：局部变量用于在子程序内部临时存储数据。
可以使用关键字LOCAL声明局部变量。
11. 全局变量：全局变量用于在整个程序中共享数据。
可以使用关键字GLOBAL声明全局变量。
请注意，以上仅为Fortran90中的一些常见变量类型，实际应用中可以根据需要选择合适的变量类型。
Fortran数据类型
PROGRAM COMP_3 IMPLICIT NONE COMPLEX::A,B,C REAL::L READ*, A, B C=A+0.618*(B-A) L=ABS(A-B) PRINT*, ′L=′,L PRINT*, ′C=′, C END PROGRAM COMP_3 输入：( 1.0 , 1.0 )，( 4.5 , 4.5 )回车
字符关系表达式
字符串比较大小按照ASCII的顺序： “ ” , “0”— “9”，“A”---”Z” ,”a”---”z” 小 大 (1)两个单个字符比较，以它们的代码值决定大小。 ‘A’< ‘B’ 的值为真 “8”>“2” 的值为真
(2)两字符串比较，先将短的字符串后面以空格补足再比较。两
串中的字符自左向右逐对比较。若所有对字符均相同，则两串相 等；否则，以第一次出现不同字符的比较结果为准。例如
也可以用INDEX函数： PROGRAM CHAR_2 IMPLICIT NONE CHARACTER*10::WORD DO READ*, WORD IF(WORD=='ZZZ')EXIT IF(INDEX(WORD, 'B')==1) PRINT*, WORD END DO END PROGRAM CHAR_2
（1）character(len=*),parameter::name=‘fortran90’
具有PARAMETER属性的字符常量，给出的字符串长度
是确定的，因此字符符号常数name的长度等于9，可用* 说明。
（2）用字符变量做虚参时，一般可以不具体指明长度。
子字符串
子字符串的表示方法：字符变量名(m:n) m，n：整数，表示子串在字符串中的起止位置 子字符串的长度：n-m+1 (n≥m≥1) 例如： CHARACTER(LEN=80)::ROW ROW(4:7) ROW字符串中从第4个字符到第7个字符组 成的一个子串，其长度为4 ROW(I:I) 表示该字符型变量的第I个字符 row(:5) 相当于row(1:5) row(5:) 相当于row(5:80) row(:) 相当于row(1:80)
fortran90的变量
fortran90的变量摘要：1.Fortran90 的变量概述2.Fortran90 变量的数据类型3.Fortran90 变量的声明与定义4.Fortran90 变量的赋值与使用5.Fortran90 变量的注意事项正文：【Fortran90 的变量概述】Fortran90 是一种高级编程语言，广泛应用于数值计算和科学计算领域。
Fortran90 的变量是程序中存储数据的基本单元，可以根据需要进行声明和定义。
变量在Fortran90 中具有不同的数据类型，可以根据实际需求进行选择。
【Fortran90 变量的数据类型】Fortran90 提供了丰富的数据类型，包括整型、实型、复型、逻辑型等。
整型变量用于存储整数，实型变量用于存储浮点数，复型变量用于存储复数，逻辑型变量用于存储布尔值。
此外，Fortran90 还支持用户自定义数据类型。
【Fortran90 变量的声明与定义】在Fortran90 中，变量需要先进行声明，再进行定义。
声明变量时，需要指定变量的数据类型和名称。
定义变量时，需要为变量分配存储空间，并指定变量的初始值。
Fortran90 支持在不同的程序块中声明和定义变量，具有很好的模块化特性。
【Fortran90 变量的赋值与使用】Fortran90 变量的赋值可以通过赋值语句或赋值表达式实现。
赋值语句用于将一个值赋给变量，而赋值表达式用于计算一个值并将结果赋给变量。
Fortran90 还支持在循环和条件语句中对变量进行赋值和操作，以实现复杂的逻辑控制。
【Fortran90 变量的注意事项】在使用Fortran90 变量时，需要注意以下几点：1.变量名应具有唯一性，避免重复声明和定义。
2.根据实际需求选择合适的数据类型，以节省存储空间和提高计算效率。
3.在使用变量时，要确保其作用域和生命周期，避免出现未定义或已释放的变量。
4.注意变量的精度和范围，避免出现溢出或舍入误差。
通过以上介绍，我们可以了解到Fortran90 的变量在程序设计中具有重要作用。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
20102010-6-15
FORTRAN90
14
5.5 数值型数据之间的转换及运算
一,不同类型数据之间运算的规则: 不同类型数据之间运算的规则: 1.先将级别低的数据类型转换为级别高的 1.先将级别低的数据类型转换为级别高的 数据类型,然后在同一类型之间进行运算. 数据类型,然后在同一类型之间进行运算. 2.数据类型等级次序为:复型,双精度型, 2.数据类型等级次序为:复型,双精度型, 数据类型等级次序为 实型,整型. 实型,整型. 3.FORTRAN不允许双精度类型数据与复型 3.FORTRAN不允许双精度类型数据与复型 数据之间进行运算. 数据之间进行运算. 4.复型数据之间运算:实部与实部运算, 4.复型数据之间运算:实部与实部运算, 复型数据之间运算 虚部与虚部运算. 虚部与虚部运算.
实部赋值 将实部扩展为 双精度型, 双精度型,赋 值 直接赋值
先化为双精度型, 化为双精度型, 先化为双精度型, 化为双精度型, 赋值 再赋值 化为实型, 化为实型,加虚 变成复型, 部0,变成复型, 再赋值
直接赋值
舍去多余有效数字, 舍去多余有效数字, 实部赋值,虚部 实部赋值, 化为实型,再赋值, 化为实型,再赋值, 赋0 虚部赋0 虚部赋0
Program ex5_3 Complex::x1,x2 Real a,b,c,d,part1,part2 Read*,a,b,c d=b*b-4.0*a*c;part1=d=b*b-4.0*a*c;part1=-b/(2.0*a) part2=sqrt(abs(d))/(2.0*a) If (d>0) then x1=cmplx(part1+part2 , 0.0) x2=cmplx(part1x2=cmplx(part1-part2 , 0.0) Else x2=cmplx(part1,x1=cmplx(part1,part2); x2=cmplx(part1,-part2) End if Print*,x1,x2 13 end -6-15 FORTRAN90 20102010
LOGICAL[([kind=]类别参数值)][[,属性列表 LOGICAL[([kind=]类别参数值)][[,属性列表] & 类别参数值)][[,属性列表] ::]变量列表 ::]变量列表
20102010-6-15
FORTRAN90
21
5.7 字符型数据
一,字符型常量 1.字符型常量又称为字符串常量 字符型常量又称为字符串常量, 1.字符型常量又称为字符串常量,在 FORTRAN90中是用单引号或双引号括 中是用单引号 FORTRAN90中是用单引号或双引号括 起来的若干字符. 起来的若干字符.其中的字符可是计 算机系统允许使用的任何一个字符. 算机系统允许使用的任何一个字符. ZHang "北京 北京" 如: "zhang", ZHang, "北京", "土木", How are you , a+b, 土木", a+b 字符串内大小写字母意义不同 双(单)引号不属于字符串
-
CMPLX(a1,a2)
舍去多余有效数字, 舍去多余有效数字, 作为实部, 将REAL(a1)作为实2)作为虚部 为虚部 17
20102010-6-15
FORTRAN90
四,不同数据类型的比较规则 将级别低的数据转换成级别高的数据,再 将级别低的数据转换成级别高的数据, 进行比较. 进行比较. 复型与双精度型不能比较. 复型与双精度型不能比较. 复型与其它类型只能进行.EQ.及.NE.的比 复型与其它类型只能进行.EQ. .NE.的比 .EQ.及 较.
20102010-6-15 FORTRAN90 6
实型数据
二,实型变量的申明 REAL [([kind=]类别参数值)][[,属性列表] & [([kind=]类别参数值)][[,属性列表 类别参数值)][[,属性列表] ::]变量列表 ::]变量列表 例: REAL::MK,YU REAL(4)::FHR,BH 或 REAL*4::FHR,BH
20102010-6-15 FORTRAN90 15
二,不同类型数据的赋值规则: 不同类型数据的赋值规则: 将表达式类型转换成变量的类型. 将表达式类型转换成变量的类型.
表达式类型 变量类型 整型 直接赋值 化成实型, 化成实型,再赋 值 实型 双精度型 复型 实部取整
整型 实型 双精度型 复型
舍去小数部分取 舍去小数部分取整, 舍去小数部分取整, 整,再赋值 再赋值 直接赋值 舍去多余有效数字, 舍去多余有效数字, 化为实型,再赋值 化为实型,
CMPLX(a)
将a化为复型的实部, a为实部,虚部为0 化为复型的实部, 为实部,虚部为0 虚部为0 虚部为0 将a1,a2化实,然后将 化实, 为实部, a1为实部,a2为虚 作为实部a a1作为实部a2作为虚 部 部
舍去多余有效数字, 舍去多余有效数字, 化为实型,虚部为0 化为实型,虚部为0
一,整型常量的表示形式 数字串[_类别类型参数] 数字串[_类别类型参数] [_类别类型参数 二,整型变量的申明 默认值为 2 138_4 138_2 [([kind=]类别参数值)][[, 类别参数值)][[ Integer [([kind=]类别参数值)][[,属 & 性列表]::] ]::]变量列表 性列表]::]变量列表 例: Integer(kind=4),Parameter::si=3,we=8 Integer(kind=4), Integer(4),dimension(Integer(4),dimension(-1:4)::a,b Integer * 4 a; integer b
Fortran90
程序设计教程
2007.5.16
第五章 FORTRAN90数据类型 FORTRAN90数据类型
数据类型的概念 整型数据 实型数据 复型数据 逻辑型数据 字符型数据
20102010-6-15 FORTRAN90 2
5.1 数据类型的概念
数据类型的性质: 数据类型的性质: 1.类型的名称 1.类型的名称 2.允许值的集合 2.允许值的集合 3.允许值的表示方法 3.允许值的表示方法
20102010-6-15 FORTRAN90 4
存储字节数
例1:求Fibonacci数列的前30项之和. Fibonacci数列的前30项之和. 数列的前30项之和
PROGRAM EX5_1 IMPLICIT NONE INTEGER * 4::F1=1,F2=1,SUM=0,N DO N=1,15 SUM=F1+F2+SUM F1=F1+F2 F2=F1+F2 END DO PRINT*,SUM END PROGRAM EX5_1
20102010-6-15 FORTRAN90 8
20102010-6-15
FORTRAN90
9
5.4 复型数据
一,复型常量的形式: 复型常量的形式: (实型数1,实型数2) 实型数1 实型数2 表示:实型数1+实型数2*I 1+实型数 表示:实型数1+实型数2*I 复型数据的类别类型 1.默认复型:当省略类别类型参数时, 1.默认复型:当省略类别类型参数时, 默认复型 则称此复型数据为默认复型. 则称此复型数据为默认复型. 2.实部及虚部类型不同时, 2.实部及虚部类型不同时,复型数据的 实部及虚部类型不同时 类别类型. 类别类型.
20102010-6-15
FORTRAN90
18
例4:求线段的长度及黄金分割点. 求线段的长度及黄金分割点. Program ex5_4 Implicit none Complex::a,b,c (xc ,yc) c Real::L Read*,a,b a C=a+0.618*(bC=a+0.618*(b-a) (xa ,ya) L=abs(aL=abs(a-b) Print*,L,c end
20102010-6-15 FORTRAN90 5
5.3 实型数据
一,实型常量的表示形式: 实型常量的表示形式: 1.小数形式 1.小数形式 2.指数形式 有效数字E指数[ 类别参数] 2.指数形式(有效数字E指数[_类别参数]) 指数形式(
1) 5.2D03
或 (有效数字D指数) 有效数字D指数)
Y (xb ,yb) b
X
20102010-6-15
FORTRAN90
19
20102010-6-15
FORTRAN90
20
5.6 逻辑型数据
一,逻辑常量 .TRUE. .FALSE.
逻辑型数据的类别参数: 逻辑型数据的类别参数: 默认逻辑型—类别值为4 默认逻辑型—类别值为4 二,逻辑型变量的申明
REAL(8)::DG,FEIW,CDU DOUBLE PRECISION::GJ,H
20102010-6-15 FORTRAN90 7
例2:利用双精度按下式计算π的近似值 利用双精度按下式计算π
π
1 1 1 1 1 = 1 + +… + … 4 3 5 7 4n 3 4n - 1
Program ex5_2 Real * 8::pi=0,term integer(2)::n,i Read*,n Do i=1,n 1.0/(4*i-3)-1.0/(4*iterm = 1.0/(4*i-3)-1.0/(4*i-1) pi = pi + term End do Print *,'pi=',pi*4 End Program ex5_2
20102010-6-15 FORTRAN90
实部和虚部 各占字节数
实部与虚部共 占字节数
11
复型数据
2.复型变量的赋值语句 2.复型变量的赋值语句 1)实部与虚部均为常量 直接赋值 2)实部或虚部含有变量 用CMPLX函数组合 CMPLX函数组合