Fortran90数值计算chap2c2f9

五种逻辑运算符中,逻辑非、逻辑与、逻辑或是 基本的。其它两种可以由它们组合得到,例如: Ａ.EQV.B 等价于(注意逻辑运算符两边小圆点)
A.AND.B .OR. .NOT.A.AND..NOT.B Ａ.NEQV.B 等价于 A.AND..NOT.B .OR. .NOT.A.AND.B
2020/12/10
E1与E2为算术量或字符型的量
关系表达式的值是逻辑量:真或假
2020/12/10
3
算术运算符的优先级别高于关系运算符: 3+5.GT.SQRT(49.0)-3 =8.GT.4,真
实数的运算与存储都有误差,对实数进行==或/= 运算时要特别当心。一般用两者之差的绝对值作 为判断的依据。
用ABS(A-B)<1E-6来代替A==B 用ABS(A-B)>1E-6来代替A/=B 对于整型数,可直接用==,/=来判断.
2020/12/10
10
例如求函数
X
X<0
Y=
X+5
X≥0
IF(X<0)Y=X
Y=X
也可写为
IF(X>=0)Y=X+5
IF(X>=0)Y=X+5
而
IF(X>=0)Y=X+5 是错误的.
Y=X
2020/12/10
11
§2.2.2 块IF
IF(E) THEN(块IF语句) 一条或多条执行语句(THEN块)
…… …… ELSE
一条或多条执行语句 ENDIFIFFra bibliotek假 真E
E
IF块
真
ELSEIF块
假 假
E
真 ELSE块
ELSEIF块

复型数据的类别类型参数是用于说明实部和虚部这两个 实型数据的类别类型。
2021/7/26
11
5.4.2 复型变量
COMPLEX [ ( [KIND = ] 类别值) ] [ [ ,属性列表] :: ] 变量列表
COMPLEX Z1,Z2 COMPLEX(4) :: COM_VAL
单精度复数 单精度复数
5.5.1 字符型常量
字符型常量又叫字符串常量，它是用单撇号或双撇号括 起来的字符序列。″ABCD″、′CHINA′、′123′
当字符串中又含有单撇号时，例如要将I′M A STUDENT 作为一个字符串来处理，为了区分′是字符串中的字符还是 定界符，可采用两种方式表示： ″I′M A STUDENT″ ′I′′M A STUDENT′
(1)类型的名称 (2)允许值的集合 (3)允许值(常量)的表示方法 (4)操作这些值的运算的集合
2021/7/26
4
5.2 整型数据
在FORTRAN语言中，整型值的集合是数 学上整数的一个子集。每种方法用类别类型 参数来区分。整型常量的表示形式为一个数 字串，并在数字串后有一个可任选的下划线 后再跟类别类型参数。例如，373、-1024、 35792、0、32_2、19921103_4
逻辑型变量可以定义为 LOGICAL, LOGICAL(1), LOGICAL(2), LOGICAL(4) LOGICAL DOIT, DONT LOGICAL(2) :: IIS, IIF LOGICAL*4 :: FLAG1, FLAG2
2021/7/26
22
例5.11 当某点的X，Y坐标落在下图（图5.4）中四个方块 内和方块边上时，Z=0，如在方块外，Z=3。
例5.5 有一线段AB，A的坐标为(1，1)，B的坐标为(4.5， 4.5)，如图5.2所示。求AB的长度，以及黄金分隔点C的坐 标。黄金分割点在线段的0.618处。

FORTRAN90用法总结
Fortran90是Fortran的最新标准程序设计语言，它是在Fortran77
基础上的新增功能，支持面向对象的功能，同时也支持可变参数，数据语
句和开发语句，使其具有更高的强大功能。

它也支持宏的使用，以帮助程
序编写者更好的实现一些高级程序功能，以提高程序性能，提高程序易用性。

下面将重点介绍Fortran90的五大用法。

第一，利用Fortran90进行函数的编写。

Fortran90的函数可实现参
数的多次组合，通过对用户函数的调用，就可达到想要的结果，而不用写
复杂的循环程序，这有助于提高程序的可管理性，降低程序的出错率。

第二，通过宏的使用来完成Fortran90的程序编写。

宏语言有助于程
序的复杂编写和优化，通过它可以大大提高程序的性能，节约程序的开发
时间，从而提高程序的可用性。

第三，Fortran90的数组操作功能。

Fortran90支持数组的多维操作，能够进行大数组操作，从而编写出简洁的程序，节约存储空间，提高程序
的执行效率。

第四，Fortran90的指针操作功能。

它可以完成复杂数据的指针操作，以实现数据的重排、排序、和传输，可以让程序编写者有效地运用指针操作，提高程序性能和稳定性。

最后，Fortran90的结构化编程功能。

输出z的值
12
图1.5 用N-S结构图描述的算法 已经证明，任何复杂的问题都可以三种基本算 法结构来描述：顺序、选择、循环。因此用计 算机语句描述的程序也包含三种基本结构。
1.2 程序设计方法
1语 言编写计算机程序的过程，称为程序设计。
目前，有两种重要的程序设计方法：

F90影响
2.1 FORTRAN语言发展概述/F90影响
第一章
FORTRAN90开发环境
西安科技大学计算机学院
1.2 FORTRAN90主要特征

组织结构 书写形式

FORTRAN 90采用模块化和结构化相结合的程序组织结构。 FORTRAN 90程序由四部分组成：主程序单元、外部子程 序单元、模块单元和数据块单元。
第一章 程序设计概述
1. FORTRAN语言发展概述 2. FORTRAN90主要特征 3. Visual FORTRAN 4.0主要特性 4 . 字符集 5. 名称 6. 关键字 7. 程序单元 8. 语句 9. 书写格式 10. 习题一
8
《FORTRAN90程序设计》课多媒体课件
西安科技大学计算机学院
1.1 计算机语言及其发展 1. 计算机语言
–
6
–
是人与计算机进行交流的工具 计算机语言分为：
机器指令（由0 和 1组 难学、难记 机器语言 成），可直接执行 依赖机器的类型 用助记符代替机器指 克服记忆的难点 汇编语言 令，用变量代替各类 其他与机器语言类 地址。 似 类似数学语言、接近自然语言、具有通用 高级语言 性和可移植性，不依赖具体的计算机类型。
算法的属性
1 2 3 4 5
有穷性 确定性 有零个或多个输入 有一个或多个输出 有效性

字。以关键词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） 指针

附录 F O R T R A N90标准函数符号约定：l I代表整型;R代表实型;C代表复型;C H代表字符型;S代表字符串;L代表逻辑型;A代表数组;P代表指针;T代表派生类型;A T为任意类型。

l s:P表示s类型为P类型(任意k i n d值)。

s:P(k)表示s类型为P类型(k i n d值=k)。

l[…]表示可选参数。

l*表示常用函数。

表1数值和类型转换函数函数名 说明A B S(x)*求x的绝对值∣x∣。

x:I、R,结果类型同x;x:C,结果:RA I M A G(x)求x的实部。

x:C,结果:RA I N T(x[,k i n d])*对x取整,并转换为实数(k i n d)。

x:R,k i n d:I,结果:R(k i n d)A M A X0(x1,x2,x3,…)*求x1,x2,x3,…中最大值。

x I:I,结果:RA M I N0(x1,x2,x3,…)*求x1,x2,x3,…中最小值。

x I:I,结果:RA N I N T(x[,k i n d])*对x四舍五入取整,并转换为实数(k i n d)。

x:R,k i n d:I,结果:R(k i n d)C E I L I N G(x)*求大于等于x的最小整数。

x:R,结果:IC M P L X(x[,y][,k i n d]))将参数转换为x、(x,0.0)或(x,y)。

x:I、R、C,y:I、R,k i n d:I,结果:C(k i n d)C O N J G(x)求x的共轭复数。

x:C,结果:CD B L E(x)*将x转换为双精度实数。

x:I、R、C,结果:R(8)D C M P L X(x[,y])将参数转换为x、(x,0.0)或(x,y)。

x:I、R、C,y:I、R,结果:C(8)D F L O A T(x)将x转换为双精度实数。

x:I,结果:R(8)D I M(x,y)*求x-y和0中最大值,即M A X(x-y,0)。

表5实数检测和控制函数
函数名
说明
EXPONENT(x)*
求实数x机内编码表示的指数值。x:R,结果:I
FRACTION(x)*
求实数x机内编码表示的小数值。x:R,结果类型同x
NEAREST(x,s)
根据s的正负号求最接近x的值。x:R,结果:R,且不为0
RRSPACING(x)
求x与系统最大数之间的差值。x:R,结果类型同x
ALOG10(x)
求x以10为底一般对数log10(x)。x:R(4),结果:R(4)
EXP(x)*
求指数,即ex。x:R、C,结果类型同x
LOG(x)*
求自然对数,即ex。x:R、C,结果类型同x
LOG10(x)*
求以10为底对数,即。x:R,结果类型同x
SQRT(x)*
求x的平方根。x:R、C,结果类型同x
将整数n二进制表示右起第p位置1。n:I,p:+I,p值域:0~64结果类型同n
IEOR(m,n)*
对m和n进行按位逻辑“异或”运算。m:I,n:I,结果类型同m
IOR(m,n)*
对m和n进行按位逻辑“或”运算。m:I,n:I,结果类型同m
ISHA(n,s)*
对n向左(s为正)或向右(s为负)移动s位(算术移位)。n:I,s:I,结果类型同n
ATAN2(y,x)
求x的反正切arctg(y/x)。y:R,x和结果类型同x,结果值域:-π~π
ATAN2D(y,x)
求x的反正切arctg(y/x)。y:R,x和结果类型同x,结果值域:-180~180°
COS(x)*
求x的余弦cos(x)。x:R、C,x取值弧度,结果类型同x
COSD(x)*

另一点关于声明的不同是Fortran有"等价声明"：
integer a,b
equivalence(a,b)
使得a,b使用同一块内存。这样可以节省内存；有时可精简代码。如：equivalence(很长名 字的变量如三维数组的某个元素，a)，之后使用a来编写程序就简洁多了。
2、基本输入输出
输入：read(*,*) a
4、Fortran的基本程序结构
先看一看所谓的"Hello Fortran"程序。
program main
!程序开始，main是program的名字，完全自定义
write(*,*) "Hello" !主程序
stop
!终止程序
end [program[main]] !end用于封装代码，表示代码编写完毕。[ ]中的内容可省略， 下同。
Fortran 90：自由格式（free format）， 扩展名：.f90
（1）以"!"引导注释；
（2）每行可132字符，行代码放在每行最前面；
（3）以&续行，放在该行末或下行初。
以下都是讨论Fortran 90。
3、Fortran的一些特点，和C的一些不同
其实很多，在下面涉及具体方面时可以看到。这里只是大致提一些。
ห้องสมุดไป่ตู้
Page 3 of 19
登录 注册
2015-04-18
Fortran语言F77和F90的区别＋F90简明教程
1、数据类型，声明及赋初值首 页
阅览室
馆友
（1）integer： 短整型kind=2, 长整型kind=4
我的图书馆
integer([kind=]2) :: a=3

回顾机器人看门…... 回顾机器人看门
机器人的判断逻辑是： 机器人的判断逻辑是： 人： 口令 if_let_you_enter: & if( you == ‘human’ ) then if( passwd = ‘…’ ) then write(*,*) ‘You can enter!’ else write(*,*) “You cann’t enter!” endif endif if_let_you_enter
PROGRAM grade ! --- to judge grade based on given score ! implicit none ! real :: score1 integer :: score2 character(len=12), dimension(3) :: grade ! score1 = 76.5 score2 = nint(score1) grade(1) = ‘pass_failed’ grade(2) = ‘passed’ grade(3) = ‘excellent’
! --- judge leap year if( mod(year,4) == 0 ) then month_day(2) = 29 if( mod(year,100) == 0 ) then 理论上 month_day(2) = 28 可以无限嵌套！ endif else month_day(2) = 28 endif 有个小错误！ 有个小错误！ ! ! --- write out month_day(:) write(*, ‘(a, i4, a,12i3)’) & ‘Month day of year ’, year, ‘:’, month_day(:) ! END PROGRAM judge_month_day

土木学院
土木学院
13.1有格式顺序存取文件 --顺序文件输入输出的基本规则
Read语句中各输入项在类型上、格式说明上必须 与输出语句的输出项按位置一一对应； Open或Rewind是从文件的第一个记录开始输入， 每执行一次Read语句，总是从一个新的记录开始 读入； 在Read语句读文件记录时，输入项少于记录中的 数据项，则剩余数据被忽略．输入项多于记录中 的数据项，它将接着去读下一个记录,直到所有项 都获得数据或者遇上文件结束标志为止； 在程序设计中对一个顺序文件不可能做到‚重写 前半部分而保留后半部分‛这样的操作。
Next 土木学院
13.2 有格式直接存取文件
直接存取可以任意确定需要读写记录的位 置; 直接存取只适用于磁盘文件; 其基本的操作与顺序存取大致相同,主要不 同的是:Open的说明、Read和Write的控制 项不同。 下面以例说明
土木学院
13.2有格式直接存取文件
主要语句: Open(12,File=‘Datb.Dat’,Status=‘Ne w’, Access=‘Direct’,Form=‘Formatted ’, 记录的长度，以字节为单位。 Recl=16 ?)
土木学院
13.1有格式顺序存取文件 --顺序文件输入输出的基本规则
一个WRITE语句总是开始一个新的记录； 一般来说，对同一个文件在进行写操作之 后要进行读操作时，必须先使用文件定位 语句，重新设置指针位置 （Open语句、 Rewind语句以及Backspace语句等）； 也可以使用表控输入输出语句对文件进行 格式输入输出，如：WRITE(3,*) N,M。
土木学院
这是打开数据 文件F2.DAT 的内容
土木学院
13.1有格式顺序存取文件

例1.1 求
其中
2
x y u x y
2
a b x 2 2 a b
ab ab
a b a b y 4 a b
ab ab
这一题的算法并不难，可写成： (1)从键盘输入a、b的值。 ab x a b ,y (2)如果a<b，则 ab ， 4 x a b , y 否则 。 ab (3)计算u的值。 (4)输出u的值。
3. N-S图
由于传统流程图的缺点，1973年美国学者 I.Nassi和B.Shneiderman提出了一种新的流程图工 具─N-S图。N-S图以三种基本结构作为构成算法 的基本元素，每一种基本结构用一个矩形框来表 示，而且取消了流程线，各基本结构之间保持顺 序执行关系。N-S图可以保证程序具有良好的结 构，所以N-S图又叫做结构化流程图。
例1.3的算法：
(1)输入m和n的值。 (2)求m除以n的余数r。 (3) 若r=0 ，则转至第 (6) 步，否则执行第 (4) 步。 (4)n→m，r→n。 (5)转第(2)步。 (6)输出n。
算法的五个特征：
(1) 有穷性。算法中执行的步骤总是有限次数的， 不能无止境地执行下去。 (2) 确定性。算法中的每一步操作必须具有确切 的含义，不能有二义性。 (3) 有效性。算法中的每一步操作必须是可执行 的。 (4) 要有数据输入。算法中操作的对象是数据， 因此应提供有关数据。 (5) 要有结果输出。算法的目的是用来解决一个 给定的问题，因此应提供输出结果，否则算法 就2没有实际意义。
1.2.2 算法的描述
算法的描述有许多方法，常用的有：自 然语言、一般流程图、N－S图等。前面例 1.1~例1.3的算法是用自然语言──汉语描述 的，其优点是通俗易懂，但它不太直观， 描述不够简洁，且容易产生二义性。在实 际应用中常用流程图表示算法。

采用Fortran 90程序实现生成任意随机数列的方法——谷辰先生在科学计算/数值计算中的很多场合（比如蒙特卡洛模拟）都需要用到随机数。

当然首先需注意，通过计算机产生的随机数都是伪随机数，并不是真正的随机数，因为真正意义上的随机数在某次产生过程中是按照物理实验过程（如掷骰子）中表现的分布概率随机产生的，其结果是不可预测的。

而计算机中的随机函数是按照一定算法模拟产生的，其结果是确定的，是可见的。

所以用计算机随机函数所产生的“随机数”并不随机，是伪随机数。

但是，这个一般来说不影响我们在数值模拟中的使用。

Fortran自带一个random_number(x)函数可以产生一个0~1之间的随机数（x可以是向量），但是如果你要让每一次运行产生的随机数都不一样，则还应该调用random_seed()函数，然后系统就会根据日期和时间随机产生种子，从而得到“真正的”随机数。

下面将从最简单生成均匀分布随机数开始，逐步到复杂的瑞利分布，通过Fortran代码范例实战的方式讲解如何生成满足任一分布的随机数。

(1) 以下代码可以生成10组0~1之间的随机数（每组），而且每次运行结果都不一样：!*****************************************************************program tutorial01_random_numberimplicit noneinteger(4) :: kreal(8) :: x(3)call random_seed()do k = 1,10call random_number(x)write(*,*) xwrite(*,*)end dostopend program tutorial01_random_number!*****************************************************************运行结果如下：请务必注意，call random_seed()应该在循环之外，如果放到循环内的话，即：!*****************************************************************program tutorial01_random_numberimplicit noneinteger(4) :: kreal(8) :: x(3)do k = 1,10call random_seed()call random_number(x)write(*,*) xwrite(*,*)end dostopend program tutorial01_random_number!*****************************************************************在我windows下intel fortran编译器上运行的结果会是这样子的：所以请务必注意。

1、运行fortran时出现forrt1:severe<59>:list-directed I/O syntax error,unit 1,file G:\1\1\meat.dat怎么办这是通道1 ，链接到文件meat.dat 的读写出错了。

这问题你得认真检查类似read( 1 , * ) 或write( 1 , * ) 这样的语句，错误原因挺多的。

比如二进制文件用了文本方式读取，比如变量列表与文件不匹配。

问：另外forrt1:severe<161>:program exception -array bounds exceeded是怎么回事？回答：数组越界，也是很常见的错误。

比如real a(100)如果你使用了a(101) 就会越界，因为a 数组只有100 个元素。

2、fortran运行提示error M6201：math-**，现将代码贴出，求高手帮忙看看，急求解答！我不能确定你的错误是怎么引起的。

可能咱们的编译器不同。

你的代码在我这里的问题是：虚参和实参精度不同。

在程序中，你定义了部分real*8，但是对应的虚参和返回值却定义为real。

比如主程序里的z1（双精度），传入函数g里面的x却定义为单精度。

主程序Do 死循环了。

z2_jiashe和z2_suan每一次循环都没有发生改变，于是永远跳不出循环。

我给你的建议是：同一个程序，统一使用real*8 或real*4，尽量不要混用，除非你很自信能理清他们的关系。

检查Do 循环，尤其是z2_jiashe 和z2_suan，是否应该每次循环不同？fortran_排除错误(2012-04-20 23:22:44)安装好VISUAL FORTRAN后1、运行Developer studio即可开始编译FORTRAN程序2、选择File菜单中的New选项3、在弹出的对话框选择projects标签，其他标签不用管，projects格式选用Fortran console application；在project name里命名（最好英文名），点击“ok ”4、接下来画面中，选择“an empty project”，点击“finish”5、接下来画面点击“ok”6、再选择一次File菜单中的new7、对话框选用files标签，选择Fortran free format source file ，并在file里命名8、点击“ok”数Source Files 放源文件(.c、.cpp)程序的实现代码全放在这里Header Files 放头文件(.h)声明放在这里Resource Files 资源文件(.rc)放图标、图片、菜单、文字之类的，主要用来做界面的东东一般都放这里External Dependencies 除上三种以外的，程序编译时用到的文件全放这里fortran内部函数出错信息解释内部函数出错信息解释[sourcefile(line)]run-time error M62××MATH错误号函数级数学错误信息M6201 functionnames:DOMAIN error函数的自变量超出了约定的取值域，例如sqrt(-1)M6202 functionname:SING error无意义的变量。

几点应该注意
(8) 一个辅程序中的接口块不允许含有一个被该辅程序定义的过程的接 口体。一个接口块中可以有多个接口体。
(9) 接口块还可用来说明一个外部过程或虚过程，并为之提供显式的调 用接口，这比EXTERNAL语句提供了更多的信息，因而也提高了程序 的可读性。例如：下面是没有类属说明的接口块：
接口块能将子程序中所需的信息精确的拷贝过来，通过它可 以为主调程序和被调用子程序指明一个显式接口。
几点应该注意
(1) 接口块以INTERFACE语句开始，以END INTERFACE 语句结束，块内只能取被调用过程中的说名部分，不允许出 现任何可执行语句。
(2) 类属说明的形式为：
类属名 或OPERATOR(定义的运算符) 或ASSIGNMENT(=) 其中，类属名用于定义类属过程、OPERATOR用于定义运算
USE语句
USE语句的最简单形式为： USE 模块名1，模块名2，……，模块名N
这条语句提供了对模块的所有公共的有名数据对象、派生类型、接口块、 过程等的访问。
在作用域单位内，USE语句必须出现在其他说明语句之前。 如果需要对两个或两个以上的模块进行访问，可能会在不同的模块中用
到了相同的名字，因此允许USE语句对被访问的对象重新命名，以解决 局部对象和模块中访问对象之间的名字的冲突问题。要重新命名时， USE语句应具有下列形式： USE 模块名，更名表 其中，更名表的形式为： 局部名=>使用名，局部名=>使用名，…… 例如：
END FUNCTION LOG_PLUS_LOG
括号时必须的，因为运算符“+”
END MODULE LOGICAL_PLUS PROGRAM TEST_LOGICAL_PLUS

数值计算方法FORTRAN程序—函数插值和方程组求解函数插值是通过已知的数据点构造一个满足要求的函数，使得该函数在已知数据点上与已知数据点的函数值相等。

常见的插值方法有拉格朗日插值和牛顿插值。

拉格朗日插值是通过构造一个多项式函数来拟合已知数据，而牛顿插值是通过构造一个牛顿插值多项式来拟合已知数据。

下面是一个用FORTRAN语言实现拉格朗日插值的程序：```fortranPROGRAM Lagrange_InterpolationIMPLICITNONEINTEGER::N,I,JREAL::X(100),Y(100),L(100),T,PPRINT *, 'Enter the number of data points (N): 'READ*,NPRINT *, 'Enter the data points (x, y): 'DOI=1,NREAD*,X(I),Y(I)ENDDOPRINT *, 'Enter the value of x (T): 'READ*,TP=0.0DOI=1,NL(I)=Y(I)DOJ=1,NIF(J/=I)THENL(I)=L(I)*(T-X(J))/(X(I)-X(J))ENDIFENDDOP=P+L(I)ENDDOPRINT *, 'The interpolated value of y at x = ', T, ' is: ', PEND PROGRAM Lagrange_Interpolation```方程组求解是通过求解多个方程的未知数来得到方程组的解。

常见的求解方法有高斯消元法和追赶法。

高斯消元法是通过将方程组转化为对角矩阵的形式来求解，而追赶法是通过逐步消去变量来求解。

下面是一个用FORTRAN语言实现追赶法求解方程组的程序：```fortranPROGRAM Tridiagonal_System_SolverIMPLICITNONEINTEGER::N,IREAL::A(100),B(100),C(100),D(100),X(100),P(100)PRINT *, 'Enter the number of equations (N): 'READ*,NPRINT *, 'Enter the coefficients of matrix A: 'DOI=1,NREAD*,A(I)ENDDOPRINT *, 'Enter the coefficients of matrix B: 'DOI=1,NREAD*,B(I)ENDDOPRINT *, 'Enter the coefficients of matrix C: 'DOI=1,NREAD*,C(I)ENDDOPRINT *, 'Enter the right hand side of the equations (D): ' DOI=1,NREAD*,D(I)ENDDOP(1)=C(1)/B(1)X(1)=D(1)/B(1)DOI=2,NP(I)=C(I)/(B(I)-A(I)*P(I-1))X(I)=(D(I)-A(I)*X(I-1))/(B(I)-A(I)*P(I-1))ENDDODOI=N-1,1,-1X(I)=X(I)-P(I)*X(I+1)ENDDOPRINT *, 'The solution of the system of equations: 'DOI=1,NPRINT*,'x(',I,')=',X(I)ENDDOEND PROGRAM Tridiagonal_System_Solver```以上是FORTRAN语言实现函数插值和方程组求解的程序。

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 整型定义和初始化的相关内容。

FORTRAN90程序设计实验指导FORTRAN90程序设计实验指导第一节 FORTRAN PowerStation 4.0快速入门1.1 安装FORTRAN PowerStation 4.01.1.1 系统要求安装Microsoft FORTRAN PowerStation 4.0需要具备以下软硬件条件：●80486或以上处理器，运行Windows 95/Windows NT 3.51或以上操作系统。

●如果安装标准版，需要3.5英寸软盘驱动器或光盘驱动器，如安装专业版，则必须具有光盘驱动器。

●16MB或以上内存。

●足够的硬盘空间。

安装程序根据安装选项提示所需的硬盘空间。

标准版和专业版的典型安装分别需要约45MB和70MB硬盘空间。

●VGA显示器（推荐使用SVGA显示器）。

●鼠标。

1.1.2 安装步骤下面以Windows 95操作系统为例，对于Windows NT操作系统，安装过程与此类似。

首先，将含FORTRAN PowerStation 4.0的光盘插入光盘驱动器，在资源管理器中运行Setup程序，屏幕显示MicrosoftFORTRAN PowerStation Setup窗口；安装程序自动搜索已有组件，单击【Continue】(继续)按钮，并按提示输入CD-Key后，安装程序会显示安装选项对话框(图 1.1)；如果要改变安装FORTRAN PowerStation 4.0的文件夹,单击【Change Folder...】(改变文件夹)按钮，选择或输入所需的文件夹名；如果输入的文件夹不存在，安装程序会自动生成该文件夹，并生成几个下级文件夹以存放相应的各类文件。

图1.1还显示了各安装选项的简短说明和安装时所需的硬盘空间。

选择下列四个安装选项之一继续安装：Typical(典型)Custom/Complete(定制/完全)Compact(紧凑)图1.1 Setup程序的安装选项对话框Run from CD-ROM(从光盘运行) Typical(典型)安装选项将安装最常用的部分，约需70MB硬盘空间。