9.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