Type logique et sélection en Fortran

Question

J'ai rencontré l'instruction suivante en 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)

Eh bien, je peux comprendre ce que integer , Double precision est.

Mais qu'en est-il logical select ? Que signifient-ils ?

Answer 1

"logique" est un type booléen, qui prend uniquement les valeurs .VRAI. ou .FAUX. La déclaration crée un tableau 1D de nom "select" de longueur "maxncv", tout comme la déclaration précédente crée un tableau 1D d'entiers "iparam" de longueur "11".

La disposition (par exemple, le symbole de continuation au début des lignes continues) et l'utilisation de la double précision suggèrent Fortran 77. Pour un nouveau code, je recommande Fortran 95/2003.

Answer 2

Logical est un type de données tout comme l'est la double précision. select est une variable tout comme l'est d. maxncv est un tableau lié tout comme l'est maxncv.