Fortran 简明教程

Fortran - Constants

常量是指程序在其执行期间不能更改的固定值。这些固定值也称为 literals 。

常量可以是任意基本数据类型，例如整型常量、浮点常量、字符常量、复常量或字符串常量。只有两个逻辑常量： .true. 和 .false.

常量与常规变量一样，不同之处在于它们的的值在定义后不能修改。

Named Constants and Literals

有两种类型的常量：

  1. Literal constants

  2. Named constants

字面常量有一个值，但没有名称。

例如，以下是字面常量 -

Type

Example

Integer constants

0 1 -1 300 123456789

Real constants

0.0 1.0 -1.0 123.456 7.1E+10 -52.715E-30

Complex constants

(0.0, 0.0) (-123.456E+30, 987.654E-29)

Logical constants

.true. .false.

Character constants

“PQR”、“a”、“123’abc$% @!" " a quote "" " 'PQR' 'a' '123"abc$% @!‘’单引号’’ ‘”

已命名常量既有值又有名称。

已命名常量应在程序或过程的开头声明，如同变量类型声明，指示其名称和类型。已命名常量用参数属性声明。例如，

real, parameter :: pi = 3.1415927

Example

以下程序计算重力作用下垂直运动的位移。

program gravitationalDisp

! this program calculates vertical motion under gravity
implicit none

   ! gravitational acceleration
   real, parameter :: g = 9.81

   ! variable declaration
   real :: s ! displacement
   real :: t ! time
   real :: u ! initial speed

   ! assigning values
   t = 5.0
   u = 50

   ! displacement
   s = u * t - g * (t**2) / 2

   ! output
   print *, "Time = ", t
   print *, 'Displacement = ',s

end program gravitationalDisp

编译并执行上述代码后，将产生以下结果 −

Time = 5.00000000
Displacement = 127.374992