Именованные константы

Тип и значение именованной константы объявляются в программе неисполняемым оператором с использованием атрибута parameter. Элементы списка констант в таком операторе разделяются запятыми и имеют вид:

Имя = константа

Примеры:

Real, parameter:: pi= 3.14159, е=2.71828! список констант

Logical, parameter:: Yes =.true.

Character, parameter:: Word = ‘слово’

Константу, объявленную таким образом, невозможно изменить в программе, попытка ее изменения будет пресечена компилятором.

На самом деле элементы списка констант могут иметь более общий вид:

Имя = постоянное выражение

где постоянное выражение – выражение, содержащее константы (именованные или неименованные). Именованные константы в этом выражении должны быть определены до их использования.

Пример:

Real, parameter:: Pi= 3.14159, TwoPi= Pi*2.0! константы

Неименованные константы специального описания не требуют. Это значения, которые используются в операторах программы (числа, строки символов и т.д.)

Иногда для увеличения точности вычислений целесообразно заменить константы переменными, вычислив их значения как можно более точно. Например, значения p и e (основание натурального логарифма) можно вычислить, используя стандартные функции:

p = 2arcsin(1) => 2.0*asin(1.0)

e = e¹ => exp(1.0)

Но в списке констант нельзя использовать функции, поэтому p и e объявим как переменные и затем вычислим их значения:

Real:: pi, e! объявление переменных

Pi = 2.0*asin(1.0)

e = exp(1.0)

Здесь pi и e – не константы, а переменные. Если в программе Вы попытаетесь изменить их значения, компилятором это будет принято без возражений.