3.4. Организация данных

3.4.1. Типы данных

Таблица 3.3.

Разновидности встроенных типов данных

Типы	Разновидность	Число байт	Примечание
Целый тип
BYTE	1	1	То же, что и INTEGER(1)
INTEGER(1)	1	1
INTEGER(2)	2	2
INTEGER(4)	4	4
INTEGER	4	4	То же, что и INTEGER(4)
Вещественный тип
REAL(4)	4	4
REAL	4	4	То же, что и REAL(4)
REAL(8)	8	8
DOUBLE PRECISION	8	8	То же, что и REAL(8)
Комплексный тип
COMPLEX(4)	4	8	4 байта под действительную часть и столько же под мнимую часть
COMPLEX	4	8	То же, что и COMPLEX(4)
COMPLEX(8)	8	16	8 байта под действительную часть и столько же под мнимую часть
DOUBLE COMPLEX	8	16	То же, что и COMPLEX(8)
Логический тип
LOGICAL(1)	1	1	Байт, содержащий либо 0 – .FALSE., либо 1 – .TRUE.
LOGICAL(2)	2	2	Первый (старший) байт содержит значение LOGICAL(1), второй – null
LOGICAL(4)	4	4	Первый байт содержит значение LOGICAL(1), остальные – null
LOGICAL	4	4	То же, что и LOGICAL(4)
Символьный тип
CHARACTER или CHARACTER(1)	1	1	Единичный символ
CHARACTER(n)	1	n	n – длина строки в байтах

3.4.2. Описание несимвольных типов данных

I, J, K, L, M, N – определяют целый тип; все остальные буквы – вещественный.

Операторы описания данных несимвольного типа:

тип <<(<KIND => значение)><, атрибуты> ::> список имен

где тип – это один из: INTEGER, REAL, BYTE, DOUBLE PRECISION, COMPLEX, LOGICAL.

Пример программы, иллюстрирующей описание данных встроенных типов.

program t2 ! t2 – имя программы

integer n/2/ ! описание и инициализация четырехбайтовой перемененной целого типа

integer(2) h ! описание двухбайтовой перемененной целого типа

real (kind=4) a ! описание четырехбайтовой перемененной вещественного типа

real :: с, b=3. ! описание четырехбайтовых вещественных

! переменных и инициализация перемененной b

print *, ‘Input а’ ! вывод на экран сообщения: Input а

read *, a ! ввод значения в переменную а (допустим 2)

print *, ‘Input h’ ! вывод на экран сообщения: Input h

read *, h ! ввод значения в переменную h (допустим 3)

c=a**h+b**n ! вычисления значения переменной с

print *, ‘b=’, b ! вывод на экран значения переменной: b= 3

print *, ‘c=’, c ! вывод на экран результата: с= 17

end program t2 ! end – обязательный оператор завершения программы