fortran循环结构及基本语句
Fortran中的循环结构包括DO循环和DO WHILE循环。基本语句包括赋值语句、条件语句和IO语句。
1.DO循环结构：
DO循环结构用于重复执行一段代码块，语法如下：
DO variable = start, end, step
!代码块
ENDDO
在循环开始前，将变量初始化为start的值，然后执行代码块。然后将变量增加step的值，并检查是否达到end的值，如果没有达到则继续执行代码块，直到达到end的值为止。
2.DOWHILE循环结构：
DOWHILE循环结构用于在满足条件时重复执行一段代码块，语法如下：
DO WHILE (condition)
!代码块
ENDDO
在每次循环开始前，检查condition是否为真，如果为真则执行代码块，然后再次检查condition。只有当condition为假时，循环才会结束。
3.赋值语句：
赋值语句用于将一个值赋给一个变量，语法如下： variable = expression
可以使用算术运算符和函数来计算expression的值，并将结果赋给变量。
4.条件语句：
条件语句用于根据条件选择执行不同的代码块，常用的条件语句有IF语句和SELECTCASE语句。
-IF语句的语法如下：
IF (condition) THEN
!代码块1
ELSE IF (condition) THEN
!代码块2
ELSE
!代码块3
ENDIF
根据condition的值选择执行代码块1、代码块2或代码块3
-SELECTCASE语句的语法如下：
SELECT CASE (expression)
CASE (value1)
!代码块1 CASE (value2)
!代码块2
CASEDEFAULT
!代码块3
ENDSELECT
根据expression的值选择执行相应的代码块，如果没有匹配的值，则执行默认的代码块。
fortran952003程序设计
Fortran 95是Fortran编程语言的一个版本，它在1997年被正式发布。它继承了Fortran语言的数值计算能力，并引入了许多现代编程特性，使得Fortran 95成为一个功能强大的科学计算语言。以下是Fortran
95程序设计的一些基础要点：
1. 程序结构
Fortran 95程序由一个或多个程序单元组成，这些单元可以是子程序、函数或模块。程序的开始和结束分别由`program`和`end program`语句标记。
2. 变量声明
在Fortran 95中，变量必须在使用前声明其类型。Fortran 95支持多种数据类型，包括整数、实数、复数、逻辑和字符类型。例如：
```fortran
integer :: i
real :: x
logical :: flag
character(len=10) :: name
```
3. 常量和参数
Fortran 95允许定义常量和参数，它们在程序中只能被赋值一次。常量使用`parameter`关键字定义：
```fortran
parameter (pi = 3.14159) ```
4. 控制语句
Fortran 95提供了多种控制语句，包括条件语句（`if`）、循环语句（`do`、`while`）和选择语句（`select case`）。
```fortran
if (x > 0) then
print *, 'x is positive'
else
print *, 'x is non-positive'
end if
do i = 1, 10
print *, 'Iteration ', i
end do
select case (ch)
case ('A', 'B', 'C')
print *, 'Grade A, B, or C'
case default
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规则 INTEGER 整型
REAL 实型
DOUBLE PRECISION 双精度实型
COMPLEX 复型，赋值形式为(实部，虚部),如D=(8.76E+0.5,-67.8E-3),C=(3.0,6.3),如果含表达式则用CMPLX,如C=CMPLX(3.0*A,6.0+B)
LOGICAL 逻辑型,逻辑常量有“T”和“F”，“T”表示“.TRUE.”,“F”表示“.FALSE.”
CHARACTER*N 字符型,N为字符串长度,可以在变量名称后重新指定长度,如CHARACTER*8 STR1,STR2*10 ,赋值形式为STR2='I''M A BOY.'
2.3 用IMPLICIT语句将某一字母开头的全部变量指定为所需类型
如 IMPLICIT REAL (I,J)
三种定义的优先级别由低到高顺序为：I-N规则→IMPLICIT语句→类型说明语句，因此，在程序中IMPLICIT语句应放在类型说明语句之前。
- 1 - fortran type用法
Fortran中的type用于定义一个结构体类型，其成员可以包括不同的数据类型，例如整型、实型、字符型等。type定义的结构体类型可以被用于定义变量，也可以作为参数传递给子程序。
type类型定义的语法如下：
type [::] type_name
[sequence]
[private]
[type-spec ::] component_name [(shape)]
[type-spec ::] component_name [(shape)]
...
end type [type_name]
其中，type_name为结构体的名称，component_name为结构体的成员名，type-spec为成员的数据类型。
type定义的结构体类型可以在主程序中定义，也可以在模块中定义。在模块中定义的结构体类型可以被不同的程序调用，可以提高程序的复用性和可维护性。
使用type定义的结构体类型可以通过以下方式进行初始化：
type(type_name) :: variable_name
variable_name%component_name = value
其中，variable_name为变量名称，component_name为结构体的成员名称，value为变量的值。 - 2 - 在子程序中调用type定义的结构体类型作为参数时，可以使用以下方式：
subroutine subroutine_name(argument_name)
type(type_name), intent(in) :: argument_name
...
end subroutine subroutine_name
其中，subroutine_name为子程序名称，argument_name为参数名称，type_name为结构体类型名称，intent(in)表示该参数为输入参数。
