Как запихнуть массив сруктур в коммонблок в фортране, не пинайте сильно... Опции

[iiv]

Добрый день,

не пинайте, пожалуйста, сильно.

На ембеддед GNU линукс в hardkernelовскую борду есть непреодолимое желание притащить в сорсах одну огромную фортрановскую библиотеку. Она компилится, но работает не правильно. Причина: есть структура

TYPE STRUCT_MYS
REAL*8 A
LOGICAL D
...
END TYPE

TYPE (STRUCT_MYS) :: MYS(100)

которая включается почти в каждую подпрограмму огромного 120тысяче-спрочного сорса и сидит в отдельном include file.

GNU компилер не делает массив MYS(100) статическим и аллоцирует его от балды в каждой подпрограмме, а по идеологии оно должно быть одно для всех.

Я хотел положить в коммон блок этот массив, но почему-то компиллер ругается на
COMMON /MY_MYS/ MYS
и не дает компилить схожие вариации...

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

Вдруг кто помнит, обгуглился уже на на эту тему и всех кого можно было спросил и никто не помнит или не знает, но вдруг здесь кто помнит и подскажет, пожалуйста, подсобите!

Спасибо!!!

ИИВ