Подтвердить что ты не робот

Массивы указателей

Я пытаюсь реализовать массив указателей, чтобы я мог перебирать элементы. Однако я не уверен, как это сделать правильно:

TYPE(domain),POINTER              :: d01,d02,d03
TYPE(domain),DIMENSION(:),POINTER :: dom
...

dom(1) => d01
dom(2) => d02
dom(3) => d03
...

а затем:

...
IF(ASSOCIATED(dom(2),d02))THEN
...

Компилятор (pgf90 10.6-0 64-битная цель на x86-64 Linux -tp istanbul-64) дает мне это сообщение об ошибке:

 PGF90-S-0074-Illegal number or type of arguments to associated - keyword argument pointer (test_ptr.f90: 10)
  0 inform,   0 warnings,   1 severes, 0 fatal for MAIN

Насколько я понимаю, что-то не так, как я подмножаю массив указателей. И dom(2), и d02 - ранг 0 (скалярные указатели). Каков правильный способ реализации этого?

Спасибо.

4b9b3361

ОТВЕТЫ

Ответ 1

Да, в Фортране смешные массивы указателей.

Проблема в том, что это:

TYPE(domain),DIMENSION(:),POINTER :: dom

не определяет массив указателей, как вы могли бы подумать, но указатель на массив. В Fortran есть много интересных вещей, которые вы можете сделать с этими вещами, - указав на кусочки больших массивов, даже с шагами - но это определенно указатель на массив, а не массив указателей.

Единственный способ получить массивы указателей в Fortran - это определить тип:

type domainptr
  type(domain), pointer :: p
end type mytype

type(domainptr), dimension(3) :: dom

dom(1)%p => d01
dom(2)%p => d02
dom(3)%p => d03

и т.д.. Насколько я могу судить, единственной реальной причиной, которую вы должны сделать в Fortran, является синтаксис. Я бы хотел, чтобы это зафиксировано в более поздней версии стандарта.