Fortran中的逻辑类型和选择

Question

我在fortran中遇到以下声明：

  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

“logical”是一个布尔类型，它只接受值.TRUE。或者.FALSE。声明创建一个长度为“maxncv”的名称为“select”的一维数组，就像前面的声明创建一个长度为“11”的整数1D数组“iparam”一样。

布局（例如，续行开头的连续符号）和Double Precision的使用建议使用Fortran 77.对于新代码，我推荐使用Fortran 95/2003。

Answer 2

logical是一种数据类型，就像双精度一样。 select是一个变量就像d一样。 maxncv是一个像maxncv一样绑定的数组。