8.164 KIND — Тип сущности

Описание:

KIND(X) возвращает значение типа сущности X.

Стандарт:

Fortran 95 и более поздние версии

Класс:

Функция запроса

Синтаксис:

K = KIND(X)

Аргументы:

X	Должен быть типа LOGICAL, INTEGER, REAL, COMPLEX или CHARACTER. Может быть скалярным или массивом.

Значение возврата:

Значение возврата — скаляр типа INTEGER и стандартного целого типа.

Пример:

program test_kind
  integer,parameter :: kc = kind(' ')
  integer,parameter :: kl = kind(.true.)

  print *, "The default character kind is ", kc
  print *, "The default logical kind is ", kl
end program test_kind