Использование массивов размещаемого/предполагаемого размера с чтением записи списком именами

Question

Я использую VS2012 и Intel Visual Fortran 2015.

Согласно https://software.intel.com/en-us/forums/topic/269585, теперь разрешено использовать размещаемые и предполагаемый размер массивы с списком именами чтения и записью; однако я все еще получаю сообщение об ошибке «Объект namelist-group не должен быть массивом предполагаемого размера».

пример кода:

subroutine writeGrid(fname, grid) 

    character*(*) :: fname 
    real*8, dimension(:,:) :: grid 

    namelist /gridNML/ grid 

    open(1, file=fname) 
    write(1, nml=gridNML) 
    close(1) 

end subroutine writeGrid 

Я включил F2003 семантику.

Что мне не хватает?

Answer 1

Это похоже на ошибку компилятора. Массив grid составляет Предполагаемая форма, а не Предполагаемый размер. Предполагаемые массивы форм разрешены в namelist с F2003, предполагаемые массивы размеров остаются запрещенными (во время выполнения размер предполагаемого массива размеров не обязательно известен, поэтому операции, требующие знания размера, запрещены).

Простым решением является переименование фиктивного аргумента на что-то другое, а затем копирование его значения в локальный allocatable с именем grid.

subroutine writeGrid(fname, grid_renamed) 
    character*(*) :: fname 
    real, dimension(:,:) :: grid_renamed 
    real, dimension(:,:), allocatable :: grid 

    namelist /gridNML/ grid 

    open(1, file=fname) 
    allocate(grid, source=grid_renamed) 
    write(1, nml=gridNML) 
    close(1) 
end subroutine writeGrid