fortran用法总结
- 格式:doc
- 大小:90.50 KB
- 文档页数:14
fortran教程Fortran是一种编程语言,用于科学和工程计算。
它具有高性能和可靠性,适用于大规模的数值计算和数据处理。
Fortran的基本语法是由一系列语句组成的程序。
每个语句都以一个数字标签开头,可用于控制程序的执行顺序。
以下是Fortran的一些基本语法和常用功能。
1. 变量和数据类型Fortran支持多种数据类型,包括整数(Integer)、实数(Real)和字符(Character)。
变量声明可以在程序的开头部分完成,例如:```fortranINTEGER :: iREAL :: xCHARACTER(len=10) :: name```注意,每个变量声明必须以两个冒号(::)开头。
2. 数学运算Fortran提供了一系列的数学运算符,用于执行基本的算术和逻辑运算,例如加法(+)、减法(-)、乘法(*)、除法(/)和求余(MOD)。
运算符的使用与其他编程语言相似。
3. 控制结构Fortran支持常用的控制结构,例如条件语句(IF-ELSE)和循环语句(DO LOOP)。
条件语句可以根据条件来执行不同的代码块,例如:```fortranIF (i > 0) THENPRINT*, 'i is positive'ELSEPRINT*, 'i is non-positive'END IF```循环语句可以根据条件重复执行一部分代码,例如:```fortranDO i = 1, 10PRINT*, iEND DO```上述代码将打印出1到10的数字。
4. 数组和矩阵运算Fortran支持多维数组和矩阵运算。
声明数组时可以指定维度和元素类型,例如:```fortranREAL, DIMENSION(3,3) :: matrix```然后,可以使用多个索引访问数组元素,例如:```fortranmatrix(1,2) = 3.14```这将给数组中的第1行第2列的元素赋值为3.14。
FORTRAN90用法总结
Fortran90是Fortran的最新标准程序设计语言,它是在Fortran77
基础上的新增功能,支持面向对象的功能,同时也支持可变参数,数据语
句和开发语句,使其具有更高的强大功能。
它也支持宏的使用,以帮助程
序编写者更好的实现一些高级程序功能,以提高程序性能,提高程序易用性。
下面将重点介绍Fortran90的五大用法。
第一,利用Fortran90进行函数的编写。
Fortran90的函数可实现参
数的多次组合,通过对用户函数的调用,就可达到想要的结果,而不用写
复杂的循环程序,这有助于提高程序的可管理性,降低程序的出错率。
第二,通过宏的使用来完成Fortran90的程序编写。
宏语言有助于程
序的复杂编写和优化,通过它可以大大提高程序的性能,节约程序的开发
时间,从而提高程序的可用性。
第三,Fortran90的数组操作功能。
Fortran90支持数组的多维操作,能够进行大数组操作,从而编写出简洁的程序,节约存储空间,提高程序
的执行效率。
第四,Fortran90的指针操作功能。
它可以完成复杂数据的指针操作,以实现数据的重排、排序、和传输,可以让程序编写者有效地运用指针操作,提高程序性能和稳定性。
最后,Fortran90的结构化编程功能。
fortran关系运算符Fortran关系运算符Fortran是一种编程语言,它经常用于科学计算和数值分析。
在Fortran中,关系运算符用于比较两个值之间的关系,并返回一个逻辑值(真或假)。
本文将介绍Fortran中常用的关系运算符及其用法。
1. 等于运算符(==)等于运算符(==)用于判断两个值是否相等。
如果两个值相等,则返回真(.TRUE.),否则返回假(.FALSE.)。
例如:```INTEGER :: a, ba = 10b = 20IF (a == b) THENWRITE(*,*) "a等于b"ELSEWRITE(*,*) "a不等于b"ENDIF```2. 不等于运算符(/=/)不等于运算符(/=/)用于判断两个值是否不相等。
如果两个值不相等,则返回真(.TRUE.),否则返回假(.FALSE.)。
例如:```INTEGER :: a, ba = 10b = 20IF (a /= b) THENWRITE(*,*) "a不等于b"ELSEWRITE(*,*) "a等于b"ENDIF```3. 大于运算符(>)大于运算符(>)用于判断一个值是否大于另一个值。
如果第一个值大于第二个值,则返回真(.TRUE.),否则返回假(.FALSE.)。
例如:```INTEGER :: a, ba = 10b = 20IF (a > b) THENWRITE(*,*) "a大于b"ELSEWRITE(*,*) "a不大于b"ENDIF```4. 小于运算符(<)小于运算符(<)用于判断一个值是否小于另一个值。
如果第一个值小于第二个值,则返回真(.TRUE.),否则返回假(.FALSE.)。
例如:```INTEGER :: a, ba = 10b = 20IF (a < b) THENWRITE(*,*) "a小于b"ELSEWRITE(*,*) "a不小于b"ENDIF```5. 大于等于运算符(>=)大于等于运算符(>=)用于判断一个值是否大于或等于另一个值。
fortran中do循环用法Fortran中的do循环是一种非常常见的循环结构,用于重复执行一段代码块。
do循环有多种用法,下面将详细介绍。
1. 基本用法do循环最基本的用法是指定一个循环变量和一个循环范围,例如:```do i = 1, 10! 待执行的代码块end do```上述代码表示从1到10依次对i进行赋值,并执行待执行的代码块。
在每次循环中,i的值都会自动递增1。
2. 指定步长有时候需要指定循环变量每次递增或递减的步长,可以使用step参数实现,例如:```do i = 1, 10, 2! 待执行的代码块end do```上述代码表示从1到10以步长2依次对i进行赋值,并执行待执行的代码块。
在每次循环中,i的值都会自动递增2。
3. 循环嵌套在实际应用中,经常需要在一个循环内部再嵌套另一个循环来完成更复杂的任务。
例如:```do i = 1, 10do j = 1, 5! 待执行的代码块end doend do```上述代码表示先对i进行循环,每次循环内部再对j进行循环,执行待执行的代码块。
在每次循环中,i和j的值都会自动递增1。
4. 循环控制有时候需要在循环内部根据一些条件来控制循环的执行。
Fortran提供了break和cycle语句来实现。
break语句用于跳出当前循环,例如:```do i = 1, 10if (i == 5) thenexit ! 跳出当前循环end if! 待执行的代码块end do```上述代码表示当i等于5时跳出当前循环。
cycle语句用于跳过当前迭代,直接进入下一次迭代,例如:```do i = 1, 10if (mod(i,2) == 0) thencycle ! 跳过偶数迭代end if! 待执行的代码块end do```上述代码表示当i为偶数时跳过当前迭代,直接进入下一次迭代。
以上就是Fortran中do循环的详细用法介绍。
通过合理使用do循环和相关语句可以使程序更加简洁高效。
【以下文字转载自D_Atmosphere 讨论区】【原文由superjyq 所发表】我的Fortran基本用法小结高级语言和算法组heavensky目录:一、说明二、概述三、数据类型及基本输入输出四、流程控制五、循环六、数组七、函数八、文件一、说明本文多数内容是我读彭国伦《Fortran 95 程序设计》的笔记。
只读到第九章,主要是3~9章,都是些最基本的用法(原书共16章)。
这里主要摘录了我看书过程中总结的一些Fortran和C不同的地方,主要是语法方面。
希望这份笔记能够给学过C但没有接触过Fortran的同学带去一些帮助。
要想弄得更清楚些,推荐看一下原书,觉得作者真的写得很好,很清楚;如果有C语言的基础,看完前九章应该很快的,花一两天就行了。
觉得如果耐心看完本文,基本功能应该也可以顺利用起来了。
另外,由于我之前没有用过Fortran,这次为了赶文档看书又看得很粗浅,大多数东西看过之后都没来得及仔细想,只是按着作者的意思去理解。
所以这份笔记还处于纸上谈兵的层次。
如果有不妥的地方,希望大家指正。
谢谢!文中蓝色的部分是程序代码,!后面的内容为注释。
二、概述1、名词解释Fortran=Formula Translator/Translation一看就知道有什么特色了:可以把接近数学语言的文本翻译成机械语言。
的确,从一开始,IBM设计它的时候就是为了方便数值计算和科学数据处理。
设计强大的数组操作就是为了实现这一目标。
Fortran奠定了高级语言发展的基础。
现在Fortran在科研和机械方面应用很广。
2、Fortran的主要版本及差别按其发展历史,Fortran编译器的版本其实很多。
现在在广泛使用的是Fortran 77和Fortran90。
Fortran 90在Fortran 77基础上添加了不少使用的功能,并且改良了77编程的版面格式,所以编程时推荐使用90。
鉴于很多现成的程序只有77版本,有必要知道77的一些基本常识,至少保证能够看懂77程序。
fortran data用法-回复Fortran Data用法:一步一步回答Fortran是一种编程语言,特别适用于科学计算和数值分析。
在Fortran 中,数据(Data)是非常重要的部分,因为它们是程序中的信息源。
本文将探讨Fortran中数据的使用方法,并逐步介绍数据声明、初始化、读取和存储等步骤。
第一步:数据声明在Fortran中,数据声明是指明程序中的变量名、类型和大小的过程。
数据声明使得程序员能够在程序中定义和使用特定类型的数据。
以下是Fortran中常见的数据类型:- 整数(integer):用于存储整数值,如1, 10, -5等。
- 实数(real):用于存储浮点数,如3.14, -0.5等。
- 复数(complex):用于存储具有实部和虚部的值,如(1.0, 2.0)。
- 字符串(character):用于存储文本数据,如"Hello, World!"。
数据声明的一般形式如下:fortrantype :: variable_name例如:fortraninteger :: agereal :: heightcomplex :: cnumbercharacter(len=100) :: name在上面的例子中,我们分别声明了整数变量`age`,实数变量`height`,复数变量`cnumber`和字符串变量`name`。
这些声明使得我们能够在程序中引用和操作这些变量。
第二步:数据初始化在Fortran中,数据初始化是给变量赋予初始值的过程。
我们可以在声明变量时给它们赋值,也可以在程序的其他部分为它们赋值。
以下是一些常见的数据初始化示例:fortraninteger :: a = 10real :: pi = 3.14159complex :: z = (1.0, 2.0)character(len=5) :: grade = "A"在上述示例中,我们分别使用了整数`10`、实数`3.14159`、复数`(1.0, 2.0)`和字符串`"A"`来初始化了变量`a`、`pi`、`z`和`grade`。
Fortran contains用法1. 简介Fortran是一种面向科学计算的编程语言,最初由IBM公司于1957年开发。
Fortran以其高性能和可靠性而闻名,特别适用于数值计算和科学工程领域。
在Fortran中,可以使用contains关键字来定义子程序,使得代码更加模块化和可读性更强。
2. contains关键字的作用contains关键字用于定义在主程序中使用的子程序。
它可以将子程序的代码与主程序的代码分开,使得代码更加清晰和易于维护。
contains关键字可以在一个Fortran模块或一个主程序中使用。
3. contains关键字的语法在Fortran中,使用contains关键字来定义子程序的语法如下:subroutine/subroutine_name(arguments)! 子程序的代码end subroutine/subroutine_namefunction/function_name(arguments) result(result_variable)! 子程序的代码end function/function_name其中,subroutine_name和function_name是子程序的名称,arguments是传递给子程序的参数列表,result_variable是函数返回的结果。
4. contains关键字的示例下面是一个使用contains关键字定义子程序的示例:program mainimplicit noneinteger :: a, b, suma = 5b = 10sum = add_numbers(a, b)print *, "The sum of", a, "and", b, "is", sumcontainssubroutine add_numbers(x, y)implicit noneinteger, intent(in) :: x, yinteger :: resultresult= x + yprint *, "Adding", x, "and", yprint *, "The result is", resultend subroutine add_numbersend program main在上面的示例中,定义了一个主程序main和一个子程序add_numbers。
fortran知识点总结一、语法结构Fortran语言的语法结构遵循一套严格的规则。
下面是一些常见的语法结构:1. 程序单元:Fortran程序由一个或多个程序单元组成。
每个程序单元由一个或多个声明和执行语句组成。
2. 注释:在Fortran中,注释可以用来提高代码的可读性。
注释以感叹号(!)开头,直到行末为止。
3. 标识符:Fortran中的标识符由字母、数字和下划线组成,且区分大小写。
标识符用于表示变量、函数、子程序等。
4. 变量声明:在Fortran中,变量声明使用关键字“REAL”、“INTEGER”、“LOGICAL”等来指定变量的数据类型。
例如,REAL :: x 表示声明了一个实数类型的变量x。
5. 程序控制结构:Fortran提供了多种控制结构,包括顺序结构、条件结构和循环结构。
这些结构提供了程序的流程控制和逻辑控制。
6. 函数和子程序:Fortran支持函数和子程序的定义和调用。
函数和子程序可以帮助程序员组织和重用代码。
7. 模块和接口:Fortran中的模块和接口提供了一种组织代码的方式。
模块可以包含多个子程序和全局变量,接口可以用来定义子程序的接口。
二、数据类型在Fortran中,数据类型用于表示数据的类型和大小。
Fortran提供了多种数据类型,包括整数、实数、逻辑值、字符、复数等。
下面是一些常见的数据类型:1. 整数:整数类型用于表示整数值。
在Fortran中,整数类型包括“INTEGER”、“LOGICAL” 和“CHARACTER”类型。
2. 实数:实数类型用于表示实数值。
在Fortran中,实数类型包括“REAL”和“COMPLEX”类型。
REAL类型用于表示实数,COMPLEX类型用于表示复数。
3. 字符:字符类型用于表示字符值。
在Fortran中,字符类型使用CHARACTER关键字进行声明。
字符类型可以表示单个字符或者字符数组。
4. 数组:数组类型用于表示多个相同类型的数据。
FORTRAN是世界上最早出现的高级编程语言,是工程界最常用的编程语言,它在科学计算中(如航空航天、地质勘探、天气预报和建筑工程等领域)发挥着极其重要的作用。
经过40多年的发展,伴随着FORTRAN语言多次版本的更新及相应开发系统的出现,其功能不断完善,最新版本的开发系统几乎具备了VC、VB的所有特点,如图形界面编程、数据库等。
目前,工科院校开设的计算机编程语言课首选仍然是FORTRAN :<说实话,从科技发展的趋势来说这不是好事。
您可以设想一下,如果需要用鹅毛笔抄写大量的古籍是什么感受!强烈建议阅读《发掘C#特性赋予科学计算项目以威力》1 FORTRAN77四则运算符+ - * / ** (其中**表示乘方)在表达式中按优先级次序由低到高为:+或-→*或/→**→函数→()2 FORTRAN77变量类型2.1隐含约定:I-N规则凡是以字母I,J,K,L,M,N六个字母开头的,即认为是整型变量,其它为实型变量。
2.2用类型说明语句确定变量类型:可以改变I-N规则2.3用IMPLICIT语句将某一字母开头的全部变量指定为所需类型如IMPLICIT REAL (I,J)三种定义的优先级别由低到高顺序为:I-N规则→IMPLICIT语句→类型说明语句,因此,在程序中IMPLICIT语句应放在类型说明语句之前。
2.4数组的说明与使用使用I-N规则时用DIMENSION说明数组,也可在定义变量类型同时说明数组,说明格式为:数组名(下标下界,下标上界),也可省略下标下界,此时默认为1,例:DIMENSION IA(0:9),ND(80:99),W(3,2),NUM(-1:0),A(0:2,0:1,0:3) REAL IA(10),ND(80:99)使用隐含DO循环进行数组输入输出操作:例如WRITE(*,10) ('I=',I,'A=',A(I),I=1,10,2)10FORMAT(1X,5(A2,I2,1X,A2,I4))2.5使用DATA语句给数组赋初值变量表中可出现变量名,数组名,数组元素名,隐含DO循环,但不许出现任何形式的表达式:例如DATA A,B,C/-1.0,-1.0,-1.0/DATA A/-1.0/,B/-1.0/,C/-1.0/DATA A,B,C/3*-1.0/CHARACTER*6 CHN(10)DATA CHN/10*' '/INTEGER NUM(1000)DATA (NUM(I),I=1,500)/500*0/,(NUM(I),I=501,1000)/500*1/3 FORTRAN77程序书写规则•程序中的变量名,不分大小写;•变量名称是以字母开头再加上1到5位字母或数字构成,即变更名字串中只有前6位有效;•一行只能写一个语句;•程序的第一个语句固定为PROGRAM 程序名称字符串•某行的第1个字符至第5个字符位为标号区,只能书写语句标号或空着或注释内容;•某行的第1个字符为C或*号时,则表示该行为注释行,其后面的内容为注释内容;•某行的第6个字符位为非空格和非0字符时,则该行为上一行的续行,一个语句最多可有19个续行;•某行的第7至72字符位为语句区,语句区内可以任加空格以求美观;•某行的第73至80字符位为注释区,80字符位以后不能有内容。
fortran function的用法Fortran语言是一种非常古老的高级程序设计语言,它在科学计算及数值分析方面得到了广泛的应用。
其中,Fortran function是Fortran语言中的一个非常重要的概念。
本文将以Fortran function 为主线,分步骤介绍Fortran function的用法。
一、Fortran function概述Fortran function是Fortran语言中的一个重要概念,它与Fortran subroutine类似,但有一些不同之处。
Fortran function也是一段能够完成特定任务的代码模块,与Fortran subroutine不同的是,Fortran function有返回值,而Fortran subroutine则没有。
因此,Fortran function可用于表示函数关系,而Fortran subroutine 则更多地用于完成某些具体的操作。
二、Fortran function用法Fortran function的使用与Fortran subroutine有一些不同之处。
下面将具体介绍Fortran function的用法。
1.函数声明在Fortran程序中,声明一个函数需要使用如下格式:function 函数名(参数列表) 返回值类型其中,函数名需要符合Fortran语言的命名规则;参数列表包含了函数所需要的输入参数;返回值类型指定了函数返回的类型。
例如,如下代码段定义了一个Fortran function,它接受两个实数作为输入参数,返回它们的和:function add(a, b)real :: a, breal :: addadd = a + bend function2.调用函数在Fortran程序中,调用一个已经定义好的Fortran function 需要使用如下格式:result = 函数名(参数列表)其中,result是一个变量,用于存储函数的返回值;函数名是要调用的函数的名称;参数列表指定了函数需要的输入参数。
fortran除法引言Fortran(Formula Translation)是一种广泛应用于科学和工程计算的编程语言。
它是世界上最早的高级编程语言之一,于1957年问世。
Fortran除法是Fortran语言中的一项基本运算,本文将详细介绍Fortran除法的使用方法、注意事项以及一些常见问题的解决方法。
Fortran除法的使用方法在Fortran中,除法运算使用斜杠符号(/)表示。
除法运算可以应用于整数和实数类型的数据。
下面是一些示例:整数除法integer :: a, b, resulta = 10b = 3result= a / b在上述代码中,变量a和b分别被赋值为10和3,然后进行整数除法运算。
结果将存储在变量result中,即result的值为3。
实数除法real :: a, b, resulta = 10.0b = 3.0result= a / b在上述代码中,变量a和b分别被赋值为10.0和3.0,然后进行实数除法运算。
结果将存储在变量result中,即result的值为3.333333。
注意事项在进行Fortran除法运算时,需要注意以下几点:整数除法的结果整数除法的结果将会是一个整数,而不是一个浮点数。
如果除数和被除数都是整数,则结果将向下取整。
例如,10 / 3 的结果将为3,而不是3.333333。
实数除法的精度实数除法的结果将是一个浮点数,其精度取决于所使用的数据类型。
在Fortran中,可以使用不同的实数类型,如real、double precision等,来控制计算结果的精度。
除数为零的情况在进行除法运算时,需要注意除数不能为零。
如果除数为零,将导致运行时错误。
因此,在进行除法运算之前,最好添加一些逻辑判断,确保除数不为零。
常见问题解决方法在实际编程中,可能会遇到一些与Fortran除法相关的常见问题。
下面将介绍一些常见问题的解决方法。
如何处理除数为零的情况?当除数可能为零时,可以使用条件语句来进行判断和处理。
Fortran用法小结目录:一、说明二、概述三、数据类型及基本输入输出四、流程控制五、循环六、数组七、函数八、文件一、说明本文多数内容是我读彭国伦《Fortran 95 程序设计》的笔记。
只读到第九章,主要是3~9 章,都是最基本的用法(原书共16章)。
这里主要摘录了我看书过程中总结的一些Fortran 和C不同的地方,主要是语法方面。
希望这份笔记能够给学过C但没有接触过Fortran的同学带去一些帮助。
要想得更清楚些,推荐看一下原书,觉得作者真的写得很好,很清楚;如果有C语言的基础,看完前九应该很快的,花一两天就行了。
觉得如果耐心看完本文,基本功能应该也可以顺利用起来了。
外,由于我之前没有用过Fortran,这次为了赶文档看书又看得很粗浅,大多数东西看过之后都没得及仔细想,只是按着作者的意思去理解。
所以这份笔记还处于纸上谈兵的层次。
如果有不妥的方,希望大家指正。
谢谢!文中蓝色的部分是程序代码,!后面的内容为注释。
二、概述1、名词解释Fortran=Formula Translator/Translation一看就知道有什么特色了:可以把接近数学语言的文本翻译成机械语言。
的确,从一开始,IBM设计的时候就是为了方便数值计算和科学数据处理。
设计强大的数组操作就是为了实现这一目标。
Fortran奠定了高级语言发展的基础。
现在Fortran在科研和机械方面应用很广。
2、Fortran的主要版本及差别按其发展历史,Fortran编译器的版本其实很多。
现在在广泛使用的是Fortran 77和Fortr an90。
Fortran 90在Fortran 77基础上添加了不少使用的功能,并且改良了77编程的版面格式,所以编程时推荐使用90。
鉴于很多现成的程序只有77版本,有必要知道77的一些基本常识,至少保证能够看77程序。
以下是77和90的一些格式上的区别。
Fortran 77:固定格式(fixed format),程序代码扩展名:.f或.for(1)若某行以C,c或*开头,则该行被当成注释;(2)每行前六个字符不能写程序代码,可空着,或者1~5字符以数字表明行代码(用作格式化输入出等);7~72为程序代码编写区;73往后被忽略;(3)太长的话可以续行,所续行的第六个字符必须是"0"以外的任何字符。
fortran结构体用法在Fortran中,结构体是一种用户自定义的数据类型,它可以包含多个不同的数据类型。
以下是Fortran结构体的基本用法:1. 结构体的定义:使用type关键字定义一个结构体,其语法如下:```Fortran`type type_name [attributes] :: var1 [attributes] :: var2 … [attributes] :: varnend type type_name````其中,type_name表示结构体名称,var1、var2…varn表示结构体中包含的变量名称,attributes表示可选的属性参数。
2. 结构体的声明:声明一个结构体变量时,需要使用type关键字和结构体名称,语法如下:```type(type_name) :: var_name```````fortrantype(Book) :: mybook```3. 结构体成员的访问:在定义一个结构体后,其中的字段(如title、author、id等)被称为该结构体的成员。
在Fortran中,通过%符号来访问一个结构体的成员。
例如,访问mybook的title成员可以使用以下语法:```fortranmybook%title```4. 结构体的使用:使用结构体的关键是它可以组合多个不同的变量类型,形成一个新的复合类型,以方便在程序中进行操作。
由于Fortran的强类型特性,结构体定义的变量和函数必须使用结构体的名称进行访问。
5. 结构体的初始化:可以使用赋值语句或构造语句对结构体进行初始化。
例如:mybook = Book("title", "author", "id")```6. 结构体的输入输出:可以使用输入输出语句对结构体进行输入和输出操作。
例如:```fortranread(,) mybook%title, mybook%author, mybook%idwrite(,) "Title:", mybook%title, "Author:", mybook%author, "ID:", mybook%id```以上是Fortran中结构体的基本用法,可以通过具体的示例代码进行进一步的学习和掌握。
Fortran基本用法小结目录:一、说明二、概述三、数据类型及基本输入输出四、流程控制五、循环六、数组七、函数八、文件一、说明本文多数内容是我读彭国伦《Fortran 95 程序设计》的笔记。
只读到第九章,主要是3~9章,都是最基本的用法(原书共16章)。
这里主要摘录了我看书过程中总结的一些Fortran和C不同的地方,主要是语法方面。
希望这份笔记能够给学过C但没有接触过Fortran的同学带去一些帮助。
要想得更清楚些,推荐看一下原书,觉得作者真的写得很好,很清楚;如果有C语言的基础,看完前九应该很快的,花一两天就行了。
觉得如果耐心看完本文,基本功能应该也可以顺利用起来了。
外,由于我之前没有用过Fortran,这次为了赶文档看书又看得很粗浅,大多数东西看过之后都没得及仔细想,只是按着作者的意思去理解。
所以这份笔记还处于纸上谈兵的层次。
如果有不妥的方,希望大家指正。
谢谢!文中蓝色的部分是程序代码,!后面的内容为注释。
二、概述1、名词解释Fortran=For mula Tran slator/Translation一看就知道有什么特色了:可以把接近数学语言的文本翻译成机械语言。
的确,从一开始,IBM设计的时候就是为了方便数值计算和科学数据处理。
设计强大的数组操作就是为了实现这一目标。
ortran奠定了高级语言发展的基础。
现在Fortran在科研和机械方面应用很广。
2、Fortran的主要版本及差别按其发展历史,Fortran编译器的版本其实很多。
现在在广泛使用的是Fortran 77和Fortran90。
ortran 90在Fortran 77基础上添加了不少使用的功能,并且改良了77编程的版面格式,所以编程时推荐使用90。
鉴于很多现成的程序只有77版本,有必要知道77的一些基本常识,至少保证能够看77程序。
以下是77和90的一些格式上的区别。
Fortran 77:固定格式(fixed format),程序代码扩展名:.f 或.for(1)若某行以C,c或*开头,则该行被当成注释;(2)每行前六个字符不能写程序代码,可空着,或者1~5字符以数字表明行代码(用作格式化输入出等);7~72为程序代码编写区;73往后被忽略;(3)太长的话可以续行,所续行的第六个字符必须是"0"以外的任何字符。
fortran的%用法Fortran是一种广泛应用于科学和工程计算的高级编程语言。
它在高性能计算中具有重要地位,因其强大的数值计算和并行计算能力而受到了许多科学家和工程师的青睐。
在Fortran中,%符号具有多种用途和含义,本文将介绍Fortran中%的几种常见用法。
1. 模运算符(Modulus Operator)在Fortran中,%可以用作模运算符,用于计算两个整数相除后的余数。
例如,对于表达式 5 % 2,结果为1,因为5除以2的余数是1。
这种用法常用于判断数字的奇偶性,或者将一个大数拆分成较小的部分进行处理。
2. 格式化输出符号(Format Specifier)在Fortran中,%可以用作格式化输出符号,在格式化输出语句中起到占位符的作用。
通过在格式化输出语句中使用%来指定输出的字段。
例如,使用类似以下的格式化输出语句来打印一个整数和一个实数:```WRITE(*, '(I5, F10.2)') integer_var, real_var```其中,%I5表示输出一个宽度为5的整数字段,%F10.2表示输出一个宽度为10的浮点数字段,其中小数点后保留两位小数。
通过使用%和不同的格式化字符,我们可以以不同的形式输出变量的值,满足具体的需求。
3. 标签操作符(Label Access Operator)在Fortran中,%可以用作标签操作符,用于访问标签。
标签是一个可以在程序中标记一个代码块的数字或字符,通常在程序的控制语句(如IF、DO循环等)中使用。
通过%可以获取或设置标签的值。
例如,以下代码示例中,我们使用标签来标记一个循环,并在循环体内部增加一些逻辑:```DO 100 i = 1, 10IF (i % 2 == 0) THENPRINT *, '偶数:', iELSEPRINT *, '奇数:', iENDIF100 CONTINUE```在上述示例中,我们使用%来访问标签100并将其用作DO循环的控制语句。
fortranwrite用法一、Fortranwrite简介Fortranwrite是一种用于文件读写的Fortran语言的函数或子程序。
它可以实现将数据写入文件或者从文件中读取数据的功能,是Fortran语言中非常常用的工具之一。
Fortranwrite函数的用法灵活多样,可以根据不同的需求选择合适的方式进行数据写入。
下面将介绍Fortranwrite的用法及相关注意事项。
二、Fortranwrite的基本用法Fortranwrite函数的基本用法如下:```CALL Fortranwrite(Unit, Data, Numbytes)```其中,Unit是文件的编号,Data是待写入的数据,Numbytes是待写入数据的字节数。
三、Fortranwrite的参数类型1. Unit参数类型Unit参数是Fortranwrite函数中用来指定文件编号的参数。
在写入文件前,需要先打开文件,并获得一个文件编号。
文件编号是一个整型数值,它可以是任意非零正整数,表示文件的唯一标识符。
一般情况下,可以使用以下代码获得一个文件编号:```OPEN(Unit=Unit, File=FileName, Status=Status, Action=Action)其中,FileName是文件名,Status是文件打开状态(如"OLD"表示打开已存在的文件,"NEW"表示创建新文件),Action是文件打开方式(如"READ"表示只读,"WRITE"表示只写,"APPEND"表示在文件末尾追加写入)。
2. Data参数类型Data参数是Fortranwrite函数中用来指定待写入数据的参数。
Data的类型可以是Fortran中的任意数据类型,例如整型、实型、字符型等。
3. Numbytes参数类型Numbytes参数是Fortranwrite函数中用来指定待写入数据的字节数的参数。
(完整版)FORTRAN90用法总结,推荐文档FORTRAN90用法总结1、数据类型整型 INTEGER实型 REAL复型 COMPLEX字符型 CHARACTER逻辑型 LOGICAL2、特殊函数1>定值函数PARAMETER(变量列表) 或类型说明符,PARAMETER::变量列表2>IMPLICIT 类型说明符(字母表)类型定义函数(默认I-N规则,取消IMPLICIT NONE)3>** 乘方4>STOP[标号]终止执行5>PAUSE[标号]暂停程序6>字符串长度函数 LEN(String)、 LEN_TRIM(String)7>除去字符串尾部空格 TRIM(String)8>字符串位置函数 INDEX(String1,String2)9>字符串比较函数LGE(String1,String2)LGT(String1,String2)LLE(String1,String2)LLT(String1,String2)10>字符串空格首位调整ADJUSTL(String)、ADJUSTR(String)11>字符串、ASSII码互相转化函数①化为ASSII码 ICHAR(String)、IACHAR(String)②化为字符串CHAR(I)、ACHAR(I)12>.LT.(<) .LE.(<=) .EQ.(=) .NE.(/=) .GT.(>) .GE.(>=)13>.AND.与 .OR.或 .NOT.非 .EQV.等于 .NEQV.不等 .XOR.异或3、IF函数1> 单支IFIF(逻辑表达式) THEN块语句END IF2> 双支IFIF(逻辑表达式) THEN块语句1ELSE块语句2END IF3>多支IFIF(逻辑表达式1) THEN块语句1ELSE IF(逻辑表达式2) THEN块语句1...ELSE IF(逻辑表达式N) THEN块语句NELSE块语句N+1END IF4>逻辑IFIF(条件表达式)可执行语句5>算术IFIF(算术表达式)标号1,标号2,标号3 标号1 可执行语句1 标号2 可执行语句2标号3 可执行语句3 4、CASE块SELECT CASE(表达式) CASE(表达式1)块语句1...CASE(表达式N)块语句NCASE DEFAULT默认块语句END SELSCT5、循环函数1>循环控制语句IF(e) EXIT 终止循环2>CYCLE跳出此次循环3>DO循环DO i=e1,e2[,e3]循环体END DO4>DO WHILE循环DO WHILE(逻辑表达式) 循环体END DO6、输入输出1>表控输入输出READ *,变量表PRINT *,输出表WRITE(*,*)输出表2>自定义输入输出标号 FORMAT(格式说明)3>其他编辑符①nX 向右跳过n个字符②nH 输出字符串③/ 换行④\ 连接7、数组1>说明数组DIMENSION 数组名类型说明,DIMENSION(维说明)::数组名2>数组赋初值DA TA 数组名/....../,数组名/....../,...3>动态数组①声明[类型],DIMENSION(:[,:]...),ALLOCA TABLE::数组名[类型],ALLOCATABLE::数组名(:[,:]...)...②申请ALLOCATE(数组名(维说明))③释放DEALLOCATE(数组名)8、子程序1>子程序CONTAINS(内部子程序的标志(外部EXTERNAL))[类型说明] FUNCTION 函数名(虚参表)函数体END2>子例行程序SUBROUTINE 子例行程序名(虚参表)函数体END调用CALL 子例行程序名(实参表)3>递归调用RECURSIVE FUNCTION(SUBROUTINE)函数名(虚参表) RESULT(返回值) 函数体END9、结构体1>定义TYPE [,ACCESS[::]] 派生类名称(ACCESS=PRIV ATE(私有),PUBLIC(公有)) 分量表END TYPE 派生类名称2>类型定义TYPE(派生类名称)::结构体变量名3>结构体成员引用①结构体名%成员名②结构体名.成员名4>定义的同时赋值TYPE(派生数据类型名)::结构体变量名=派生数据类型名(成员初值表)5>结构体数组TYPE(派生数据类型名),DIMENSION(维说明符)::结构体数组名10、指针1>定义指针类型说明,POINTER::指针变量名...类型说明,TARGET::目标变量名...P=>A2>动态变量例:INTEGER,POINTER::PINTEGER SALLOCA TE(P)P=4S=PDEALLOCA TE(P)PRINT *,SEND3>指针数组变量定义类型说明,DIMENSION(:...:),POINTER::指针变量名ALLOCATE(X(20))DEALLOCA TE(X)4>定义结点TYPE NODEINTEGER V ALUETYPE(NOPE),POINTER::NEXTEND TYPE NODE5>定义头指针TYPE LISTPRIV ATETYPE(NODE),POINTER::ENDEND TYPE LIST6>对指针初始化(对头指针清空)SUBROUTINE SETUP(L) TYPE(LIST)LNULLIFY(L%END)END SUBROUTINE SETUP。
Fortran程序总结1.⾏的书写(⾏的长度、分⾏、续⾏)⼀⾏可以是0~132个字符,空格有意义,语句最长不超过2640个字符⼀⾏可以有多个语句,⽤“;”分隔⼀个语句可分⾏写,读⾏标记为&(放在尾部),但如为关键字,⾸尾均加&。
最多可有511个续⾏。
2.说明语句必须出现在可执⾏语句之前,格式说明语句(FORMAT语句)除外。
3.注释标志符:⾃由格式:!固定格式:C *语句分隔符:分号;(仅⾃由格式可以使⽤)续⾏符:⾃由格式:&申明标号:1到5位⽆符号整数空格:关键字、变量、常量内部不能⽤空格,但相邻两者之间须⽤空格4.信息处理的分类:数值处理和信息处理现代计算机⼯作原理:程序存储和程序控制(冯·诺依曼)1、运算器——算术运算、逻辑运算2、控制器——根据指令控制计算机⼯作运算器、控制器和寄存器称为中央处理器CPU3、I/O设备——提供数据传输服务4、总线——数据传输的公共通道1.机器语⾔:⼆进制代码形式,可以被计算机直接执⾏,不可移植2.汇编语⾔:⽤助记符来代替机器指令,容易记忆,不可移植3.⾼级语⾔:接近⾃然语⾔(英语)的程序设计语⾔,⼜称算法语⾔,易学、易⽤、易维护,可移植性好例:FORTRAN、BASIC、PASCAL、C、LISP、PROLOG等5.FORTRAN90程序是⼀种分块结构,由若⼲个程序单元块组成:主程序、外部⼦程序、模块、块数据单元⽆论是主程序单元,还是⼦程序单元,都是独⽴的程序单位,应该独⽴编写,它们的形式相似。
⾮语句⾏:注释语句:!后的所有字符都被编译器忽略。
可独占⼀⾏,也可在其它语句之后,空⾏为注释⾏(固定格式⽤C和*)6.常量的定义:常量是程序执⾏过程中不能变化的量。
基本数据类型有五种:整型、实型、复型、字符型和逻辑型前三种属于数值类型,后两种为⾮数值类型,主要⽤于⽂字处理和控制。
FORTRAN 90通过KIND值确定整数的存储开销、最⼤位数和取值范围,如表所⽰。
我的Fortran基本用法小结周日, 10/14/2007 - 21:00 — gator一、说明二、概述三、数据类型及基本输入输出四、流程控制五、循环六、数组七、函数八、文件一、说明本文多数内容是我读彭国伦《Fortran 95 程序设计》的笔记。
只读到第九章,主要是3~9章,都是最基本的用法(原书共16章)。
这里主要摘录了我看书过程中总结的一些Fortran和C不同的地方,主要是语法方面。
希望这份笔记能够给学过C但没有接触过Fortran的同学带去一些帮助。
要想得更清楚些,推荐看一下原书,觉得作者真的写得很好,很清楚;如果有C语言的基础,看完前九应该很快的,花一两天就行了。
觉得如果耐心看完本文,基本功能应该也可以顺利用起来了。
外,由于我之前没有用过Fortran,这次为了赶文档看书又看得很粗浅,大多数东西看过之后都没得及仔细想,只是按着作者的意思去理解。
所以这份笔记还处于纸上谈兵的层次。
如果有不妥的方,希望大家指正。
谢谢!文中蓝色的部分是程序代码,!后面的内容为注释。
二、概述1、名词解释Fortran=For mula Tran slator/Translation一看就知道有什么特色了:可以把接近数学语言的文本翻译成机械语言。
的确,从一开始,IBM设计的时候就是为了方便数值计算和科学数据处理。
设计强大的数组操作就是为了实现这一目标。
ortran奠定了高级语言发展的基础。
现在Fortran在科研和机械方面应用很广。
2、Fortran的主要版本及差别按其发展历史,Fortran编译器的版本其实很多。
现在在广泛使用的是Fortran 77和Fortran90。
ortran 90在Fortran 77基础上添加了不少使用的功能,并且改良了77编程的版面格式,所以编程时推荐使用90。
鉴于很多现成的程序只有77版本,有必要知道77的一些基本常识,至少保证能够看77程序。
以下是77和90的一些格式上的区别。
Fortran 77:固定格式(fixed format),程序代码扩展名:.f或.for(1)若某行以C,c或*开头,则该行被当成注释;(2)每行前六个字符不能写程序代码,可空着,或者1~5字符以数字表明行代码(用作格式化输入出等);7~72为程序代码编写区;73往后被忽略;(3)太长的话可以续行,所续行的第六个字符必须是"0"以外的任何字符。
Fortran 90:自由格式(free format),扩展名:.f90(1)以"!"引导注释;(2)每行可132字符,行代码放在每行最前面;(3)以&续行,放在该行末或下行初。
以下都是讨论Fortran 90。
3、Fortran的一些特点,和C的一些不同其实很多,在下面涉及具体方面时可以看到。
这里只是大致提一些。
(1)不分大小写(2)每句末尾不必要写分号(3)程序代码命令间的空格没有意义(4)不像C,Fortran不使用{ }(5)数据类型多出了复数和逻辑判断类型。
比如复数类型complex :: a !声明复数的方法。
复数显然方便了科学计算,满足了工程方面需求a=(1.0,2.0) ! a=1+i(6)多出了乘幂运算(**)。
乘幂除了整数还可以是实数形式。
如开方,开立方a=4.0**0.5,a=8.0**(1.0/3.0)。
(7)数组有一些整体操作的功能;可以方便的对部分元素进行操作(8)有些情况下可以声明大小待定的数组,很实用的功能4、Fortran的基本程序结构先看一看所谓的"Hello Fortran"程序。
program main !程序开始,main是program的名字,完全自定义write(*,*) "Hello" !主程序stop !终止程序end [program[main]] !end用于封装代码,表示代码编写完毕。
[ ]中的内容可省略,下同。
再看一段实用一些的程序,好有点感性认识。
程序用于计算圆柱的表面积,要求输入底面半径和。
其中展示了Fortran的一些特色用法。
程序摘自维基。
其实是一个叫 的网上引的维基的网页。
推荐去看看!能查到不少有意思的东西。
program cylinder !给主函数起个名字! Calculate the area of a cylinder.! Declare variables and constants.! constants=pi! variables=radius squared and heightimplicit none ! Require all variables to be explicitly declared!这个一般都是要写上的。
下面会进一步说明。
integer :: ierrcharacter :: ynreal :: radius, height, areareal, parameter :: pi = 3.1415926536 !这是常量的声明方法interactive_loop: do !do循环,Fortran中的循环可以加标签,如d前面的!interactive_loop就是标签! Prompt the user for radius and height! and read them.write (*,*) 'Enter radius and height.' !屏幕输出read (*,*,iostat=ierr) radius,height !键盘输入。
isotat的值用判断输入成功否。
! If radius and height could not be read from input,! then cycle through the loop.if (ierr /= 0) thenwrite(*,*) 'Error, invalid input.'cycle interactive_loop !cycle 相当于C里的continueend if! Compute area. The ** means "raise to a power."area = 2 * pi * (radius**2 + radius*height) ! 指数运算比C方便! Write the input variables (radius, height)! and output (area) to the screen.write (*,'(1x,a7,f6.2,5x,a7,f6.2,5x,a5,f6.2)') &!"&"表示续行。
这里还显示了格式化输出'radius=',radius,'height=',height,'area=',areayn = ' 'yn_loop: do !内嵌的另一个do循环write(*,*) 'Perform another calculation? y[n]'read(*,'(a1)') ynif (yn=='y' .or. yn=='Y') exit yn_loopif (yn=='n' .or. yn=='N' .or. yn==' ') exit interactive_loopend do yn_loop !结束内嵌do循环end do interactive_loopend program cylinderFortran程序的主要结构就是这样了。
一般还会有些module的部分在主函数前,函数在主函数后。
三、数据类型及基本输入输出1、数据类型,声明及赋初值(1)integer:短整型kind=2, 长整型kind=4integer([kind=]2) :: a=3如果声明成integer:: a,则默认为长整型。
!"::" 在声明并同时赋初值时必须要写上;类型名后面有形容词时也必须保留::;其他情况可略去!所谓形容词,可以看一下这个。
比如声明常数real,parameter :: pi=3.1415926。
parameter就是形容词。
(2)real:单精度kind=4(默认),双精度kind=8real([kind=]8) :: a=3.0还有指数的形式,如1E10为单精度,1D10为双精度(3)complex 单精度和双精度complex([kind=]4) b(4)charactercharacter([len=]10) c !len为最大长度(5)logicallogical*2 :: d=.ture. (等价于logical(2)::d=.ture.)(6)自定义类型type:类似于C中的structFortran 77中给变量赋初值常用DATA命令,可同时给多个变量赋初值data a,b,string /1, 2.0, 'fortran'/与C不同的是,Fortran中变量不声明也能使用,即有默认类型(跟implicit命令有关)。
按照默认的定,以i,j,k,l,m,n开头的变量被定义为integer,其余为real。
取消该设置需在程序声明部分之前implicit none。
彭国伦建议一般都使用该语句。
另一点关于声明的不同是Fortran有"等价声明":integer a,bequivalence(a,b)使得a,b使用同一块内存。
这样可以节省内存;有时可精简代码。
如:equivalence(很长名字的变量如三维数组的某个元素,a),之后使用a来编写程序就简洁多了。
2、基本输入输出输入:read(*,*) a !从键盘读入输出:write(*,*) "text" !在屏幕上输出。
Fortran 77用' text'。
Fortan 90中一般" "和' '都可print *,"text" !只能用于屏幕输出(*,*)完整写为(unit=*,fmt=*)。
其中unit为输入/输出位置,如屏幕,文件等;fmt为格式。
如这两项都写成*,则按默认的方式进行,即上面描述的。
print后面的*表示按默认格式输出。
四、流程控制1、运算符(1)逻辑运算符== /= > >= < <= !Fortran 90用法.EQ. .NE. .GT. .GE. .LT. .LE. !Fortran 77用法(2)涉及相互关系的集合运算符.AND. .OR. .NOT. .EQV. .NEQV.! 仅.NOT.连接一个表达式,其余左右两边都要有表达式(可以是logical类型的变量)!.EQV.:当两边逻辑运算值相同时为真, .NEQV.:当两边逻辑运算值不同时为真2、IF(1) 基本:if(逻辑判断式) then……end if如果then后面只有一句,可写为if(逻辑判断式) …… !then和end if可省略(2) 多重判断:if(条件1) then……else if(条件2)then……else if (条件3)then……else……end if(3) 嵌套:if(逻辑判断式) thenif(逻辑判断式) thenif(逻辑判断式) thenelse if(逻辑判断式) then……else……end ifend if(4) 算术判断:program exampleimplicit nonereal cwrite (*,*) "input a number"read (*,*) cif(c) 10,20,30 !10,20和30为行代码,根据c小于/等于/大于0,执行10/20/30行的程10 write (*,*) "A"goto 40 !goto可实现跳到任意前面或后面的行代码处,但用多了破坏程序结20 write (*,*) "B"goto 4030 write (*,*) "C"goto 4040 stopend3、SELECT CASE类似于C的switch语句select case(变量)case(数值1) ! 比如case(1:5)代表1<=变量<=5会执行该模块…… !case(1,3,5)代表变量等于1或3或5会执行该模块case(数值2) !括号中数值只能是integer,character或logical型常量,不能real型case default……end case4、PAUSE, CONTINUEpause暂停程序执行,按enter可继续执行continue貌似没什么用处,可用作封装程序的标志五、循环1、DOdo counter=初值, 终值, 增/减量 !counter的值从初值到终值按增/减量变,…… !counter每取一个值对应着一次循环。