常量指的是该程序不能在其执行期间改变的固定值。这些固定的值也被称为文字。
常量可以是任何像一个整数的基本数据类型的常量，浮点常量，字符常量，复杂的常量或一个字符串字面量。只有两个逻辑常量：.true. 和 .false.
常量被视为就像普通的变量，但它们的值无法定义后进行修改。
命名常量和文字
有两种类型的常量：
- 字面常量
- 命名常量
一个字面常量有值，但没有名字。
例如，以下是文字常量：
| 类型 | 例子 |
|---|---|
| 整型常量 | 0 1 -1 300 123456789 |
| 实型常量 | 0.0 1.0 -1.0 123.456 7.1E+10 -52.715E-30 |
| 复数常量 | (0.0, 0.0) (-123.456E+30, 987.654E-29) |
| 逻辑常量 | .true. .false. |
| 字符常量 |
"PQR" "a" "123'abc$%#@!" " a quote "" " 'PQR' 'a' '123"abc$%#@!' ' an apostrophe '' ' |
命名常量的值和名称。
命名常量应该在程序或过程的开始声明，就像一个变量的类型声明，说明其名称和类型。命名常量与参数属性声明。例如，
real, parameter :: pi = 3.1415927
例子
下面的程序计算的位移，由于重力作用下垂直运动。
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
