2.2. Типы данных. Константы

В языке FORTRAN есть арифметические, логические и символьные данные. Арифметические типы данных:

INTEGER*1 - аналогичен char в языке C и ShortInt в языке PASCAL; INTEGER*2 - аналогичен int в языке C и Integer в языке PASCAL;

INTEGER*4 - аналогичен long в языке C и LongInt в языке PASCAL;

INTEGER - соответствует либо INTEGER*2, либо INTEGER*4 - в зависи­мости от настройки компилятора, по умолчанию это INTEGER*4. Явно задать длину данных типа INTEGER можно с помощью метакоманды $STORAGE:2 или $STORAGE:4

REAL*4 (или REAL) - аналогичен float в языке C и Single в языке PASCAL;

REAL*8 (или DOUBLE PRECISION) - аналогичен double в языке C и Dou­ble в языке PASCAL;

COMPLEX*8 (или COMPLEX) - комплексные числа, действительная и мнимая части которых имеют тип REAL*4

COMPLEX*16 - комплексные числа, действительная и мнимая части кото­рых имеют тип REAL*8

Логические типы данных:

LOGICAL*1 LOGICAL*2 LOGICAL*4

LOGICAL - соответствует либо LOGICAL*2, либо LOGICAL*4, в зависи­мости от настройки компилятора, по умолчанию это LOGICAL*4. Длина типа LOGICAL также определяется метакомандой SSTORAGE. Символьные типы данных:

CHARACTER - символ, CHARACTER'^uw - строка символов. Вообще говоря, различие между символом и символьной строкой в языке FORTRAN не проводится, CHARACTER или CHARACTERS - это строка из одного символа.

Целые константы в языке FORTRAN могут иметь основание от 2 до 36 и за­писываются в виде + [ [ основание ] # ] константа . Если опущены основание и символ #, то константа считается десятичной, если опущено только основание, то константа 16-ричная. Например: 2#11111111, 3#100110, 255, #FF, 19#D8. В це­лых константах с основанием, большим 10, в качестве дополнительных цифр ис­пользуются латинские буквы A=10, B=11, ... ,Z=35. Все целые константы имеют

тип INTEGER.

Вещественные константы записываются с фиксированной или плавающей точкой и имеют по умолчанию тип REAL : 2. , -.05 , 1E0 , -.3E-7 . В константах двойной точности вместо буквы E пишется D : 1D0 , -67.3D-7 .

Логические константы записываются в виде .FALSE. или .TRUE.

Строковые константы записываются либо в виде 'символы' , либо в виде 'символы' C. Последняя запись называется C-строкой (т.е. это строка, организо­ванная так же, как в языке C), она всегда заканчивается 0-символом (который явно не записывается) и может содержать специальные символы \n, \t, \v, \b, \r, \f, \a, \', \", \\, \8-ричный номер , ^б-ричный номер. Например, 'это - FORTRAN-строка' или 'это - \"C-строка\"\n\a'C .

Комплексные константы записываются в виде:

( действительная часть , мнимая часть ) Для записи действительной и мнимой частей можно использовать любые кон­станты, в том числе и целые : (-1,0.5) , (2Б0,-3.5) .