Wie greife ich auf das letzte Element in einem Array in Fortran zu?

Question

In Matlab, end Index lässt mich einen letzten Artikel zugreifen.

> array = [1 2 3 4 5 6 7]; 
> array(end) 
ans = 7 

Wie mache ich das gleiche in Fortran?

program hello 
    integer array(7) 
    array = (/1, 2, 3, 4, 5, 6, 7/) 
!print *, array(end) 
!    1 
!Error: Legacy Extension: REAL array index at (1) 

! print *, array(-1) 
!    1 
!Warning: Array reference at (1) is out of bounds (-1 < 1) in dimension 1 

! print *, array(0) 
!    1 
!Warning: Array reference at (1) is out of bounds (0 < 1) in dimension 1 
end program Hello 

Answer 1

es keine solche Bequemlichkeit Notation ist, müssen Sie diesen

array(size(array)) 

in älteren Fortran-Versionen tun, müssen Sie nicht selbst size() haben und müssen die Dimension verfolgen, sich

wert eine Notiz Fortran Arrays können so definiert werden, dass sie negative Indizes enthalten, sodass die in einigen anderen Sprachen verwendete Endnotation nicht eindeutig ist

Answer 2

array (ubound (array)) 

size funktioniert nur, wenn das Array 1-indiziert ist.