Как использовать измерение и объявить несколько массивов разного размера в одной строке с помощью Fortran?

Question 1

Мне дают этот код:

...
IMPLICIT REAL*8(a-h,o-z)
DIMENSION L1(L), L2(M), L3(N)
...

Я хочу использовать IMPLICIT NONE, но не знаю, как объявить тип переменной с помощью DIMENSION и поддерживать однострочное объявление от L1 до L3. Что-то вроде:

INTEGER, DIMENSION :: L1(L), L2(M), L3(N) !(this doesn't work)

fortran

0

Saeid 26 Дек 2016 в 09:21

Answer

Синтаксис оператора dimension отличается от синтаксиса указания атрибута dimension в операторе объявления.

Итак, тогда как

dimension i(4) ! Implicitly typed

Дает i характер массива размером 4,

integer, dimension(4) :: i

Это путь.

Теперь, чтобы перейти к вашему вопросу об объявлении нескольких массивов в одной строке:

integer i(4), j(5), k(6)

Наконец, все еще можно использовать

integer, dimension(4) :: i, j(5), k(6), l

Создание массивов i и l размера 4 и j и k массивов размера 5 и 6.

1

Graham 28 Сен 2017 в 03:28

Question 2