Функция Fortran, которая принимает произвольные размеры ранга-1 массивов

Question

Как написать функцию, которая принимает массивы произвольного размера при условии, что они имеют ранг 1? Это именно то, что может сделать внутренняя функция shape, поэтому я не думаю, что моя просьба слишком требовательна. На самом деле, функция shape делает больше. Он может (очевидно) принимать массив любой формы, то есть произвольный ранг и произвольную длину вдоль каждого измерения.

Этот вопрос предназначен для написания функции sub2ind, которая соответствует одноименной функции MATLAB.

Answer 1

Я не уверен, правильно ли я понял ваш вопрос, но функции, принимающие любой размер массива, были возможны в Fortran с момента создания функций Fortran. (Хотя некоторые трюки были иногда задействованы перед FORTRAN 77). Любой учебник или учебник рассмотрят эту проблему.

Современный стиль предполагается форма:

function f(a) 
    real :: a(:) 
    do i = 1, size(a) 
    ... 
    end functions 

Явного размера:

function f(n, a) 
    real :: a(n) 
    do i = 1, n 
    ... 
    end functions 

предполагается размер:

function f(n, a) 
    real :: a(*) 
    do i = 1, n 
    ... 
    end functions 

Для предполагаемой формы, явный интерфейс (лучше всего с помощью модулей) необходим.