Логический тип и выбор в Фортране

Question

Я встретил следующее утверждение на фортране:

  integer           iparam(11), ipntr(14)
  logical           select(maxncv)
  Double precision
 &                  ax(maxn), d(maxncv,3), resid(maxn), 
 &                  v(ldv,maxncv), workd(3*maxn), 
 &                  workev(3*maxncv), 
 &                  workl(3*maxncv*maxncv+6*maxncv)

Ну, я могу понять, что такое integer, Double precision.

Но что насчет logical select?Что они имеют в виду?

Answer 1

«логический» - логический тип, который принимает только значения .TRUE. или. ЛОЖЬ. Объявление создает одномерный массив с именем "select" длиной "maxncv", так же как предыдущее объявление создает целочисленный одномерный массив "iparam" длины "11".

Компоновка (например, символ продолжения в начале непрерывных линий) и использование Double Precision предлагают Fortran 77. Для нового кода я рекомендую Fortran 95 / 2003.

Answer 2

логический тип данных, как и двойная точность.выберите переменную так же, как d.maxncv - это массив, связанный с maxncv.