포트란 : 유형에서 알 수없는 크기의 배열

Question

아마도 이것은 정말 바보 같은 질문은 하나가 정말 다르게이 작업을 수행해야하지만 : 는 NBananaTypes 및 NAppleTypes이없는 경우에는 뭔가 같은

type food 
INTEGER :: NBananasLeft(NBananaTypes) 
INTEGER :: NApplesLeft(NAppleTypes) 
end type food 

이 악화 될 우려가있다 컴파일 시간에 알려지지 않았습니까? 포트란 90 ~ 95에서

Answer 1

:

type food 
INTEGER,pointer :: NBananasLeft(:) 
INTEGER,pointer :: NApplesLeft(:) 
end type food 

자신이 allocate(var%NBananasLeft(NBananaTypes)))를 사용하여 배열을 할당해야합니다. 포트란 2003 년

:

이

type food 
INTEGER,allocatable :: NBananasLeft(:) 
INTEGER,allocatable :: NApplesLeft(:) 
end type food 

당신은 또한 자신이 allocate(var%NBananasLeft(NBananaTypes))) 사용하여 배열을 할당해야합니다,하지만 당신은 메모리 누수의 가능성을 피할 수 있습니다. 매개 변수화 된 데이터 유형에 의해 포트란 2003 년

는 (몇 컴파일러가 지원하는) :

type food(NBananaTypes,NAppleTypes) 
integer,len :: NBananaTypes,NAppleTypes 
INTEGER :: NBananasLeft(NBananaTypes) 
INTEGER :: NApplesLeft(NAppleTypes) 
end type food