값을 추가 할 때 Fortran 배열이 자동으로 증가합니다.

Question

포트란에서 확장 배열을 에뮬레이션하는 기존 방법이 있습니까? C++의 벡터와 같습니다. 나는 인터넷에서이 주제에 관해서 아무 것도 발견하지 못했을 때 매우 놀랐다.

예를 들어, 몇 가지 되풀이 관계를 계산하고 내가 얻은 모든 중간 값을 저장한다고 가정합니다. 내 정지 기준은 인접 결과 간의 차이이므로 사전에 얼마나 많은 메모리를 할당해야하는지 미리 알 수 없습니다.

Answer 1

이전에이 사이트의 어딘가에 표시되어 있지만 확신 할 수 없습니다. francescalus에 의해 주석으로

먼저, 포트란 2003 년, 당신은 간단한

a = [a, item] 

에 의해 하나 개의 요소를 추가 할 수 있습니다. 이것은 배열을 자주 다시 할당 할 가능성이 있으며 느려질 것입니다.

배열의 크기를 배열의 너비보다 약간 크게 할당 한 다음 요소 수 n을 유지할 수 있습니다. 요소 수 n이 배열 size(a)의 크기보다 커지면 새로운 요소를 더 큰 요소 (여기서는 2x)로 할당하고 거기에 이전 요소를 복사 할 수 있습니다. 아쉽게도 포트란에는 realloc()이 없습니다.

module growing_array 
    implicit none 

    real, allocatable :: a(:) 

    integer :: n 

contains 

    subroutine add_item(item) 
    real, allocatable :: tmp(:) 
    real, intent(in) :: item 

    if (n == size(a)) then 
     !this statement is F2003, it can be avoided, but I don't see why in 2016 
     call move_alloc(a, tmp) 

     allocate(a(n*2)) 
     a(1:n) = tmp 
    end if 

    n = n + 1 

    a(n) = item 
    end subroutine 
end module 

초기 할당을 생략 했으므로 간단합니다.

모두 타입 - 바인드 된 프로 시저로 파생 된 유형으로 넣을 수 있고 데이터 구조로 사용할 수 있지만 순수한 Fortran 2003이고 원하는 것은 90입니다. 따라서 Fortran 90에 결함이 있기 때문에 Fortran 95를 보여줍니다. 할당 할 수있는 배열을위한 여러 가지 방법은 필사적으로 쓸모없고 본질적으로 죽어 있습니다.