常量指的是該程序不能在其執(zhí)行期間改變的固定值。這些固定的值也被稱為文字。
常量可以是任何像一個(gè)整數(shù)的基本數(shù)據(jù)類型的常量,浮點(diǎn)常量,字符常量,復(fù)雜的常量或一個(gè)字符串字面量。只有兩個(gè)邏輯常量:.true. 和 .false.
常量被視為就像普通的變量,但它們的值無法定義后進(jìn)行修改。
有兩種類型的常量:
一個(gè)字面常量有值,但沒有名字。
例如,以下是文字常量:
類型 | 例子 |
---|---|
整型常量 | 0 1 -1 300 123456789 |
實(shí)型常量 | 0.0 1.0 -1.0 123.456 7.1E+10 -52.715E-30 |
復(fù)數(shù)常量 | (0.0, 0.0) (-123.456E+30, 987.654E-29) |
邏輯常量 | .true. .false. |
字符常量 |
"PQR" "a" "123'abc$%#@!" " a quote "" " 'PQR' 'a' '123"abc$%#@!' ' an apostrophe '' ' |
命名常量的值和名稱。
命名常量應(yīng)該在程序或過程的開始聲明,就像一個(gè)變量的類型聲明,說明其名稱和類型。命名常量與參數(shù)屬性聲明。例如,
real, parameter :: pi = 3.1415927
例子
下面的程序計(jì)算的位移,由于重力作用下垂直運(yùn)動。
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
當(dāng)上述代碼被編譯和執(zhí)行時(shí),它產(chǎn)生了以下結(jié)果:
Time = 5.00000000 Displacement = 127.374992