Добрый день. Суть такова: практически впервые столкнулся с фортраном, поэтому вопрос банальный, объявил переменные в одном модуле 2 массива типа integer (модуль 1) по ходу работы модуля эти переменные получили определенные значения, затем я эти массивы применяю в другом модуле, но значения их там уже не видны, хотя я эти переменные поместил в раздел COMMON, в чем я не прав? Заранее благодарен.

лет 60 назад на счЁтах программировали

Тема по-прежнему актуальна для меня, просто не могу понять этого синтаксиса фортрана, как такое вообще может быть

фрагмент 1
ku1=ku-nb
IF(KI.EQ.1) goto 13
140 IT=0
CALL NUM10

вот эдесь ku=5 и ku1=4

далее работа модуля NUM10

SUBROUTINE NUM10

COMMON NAS(20),NST(20),NBA(100),NCU(100)
COMMON KU,KV,KT,NB,E,KU1,nam
DIMENSION N202(800),KM(100)

character nam*16
DO 1 I=1,ku
1 N202(I)=0
IB=1
DO 9 I=1,ku1

а вот здесь KU и KU1 уже равны 0 почему непонятно? может знает кто?

PROGRAM REG10
IMPLICIT INTEGER*2(I-N)
DIMENSION MPP(10),nyb(800),npp(800)
COMMON /BL1/NU(800),N10(800),N20(800),N50(800),AB(800),
#N51(800),NBA(801),NCU(1600),NCB(1600),NTK(800),NT(350),NBU(20),
#NAS(801),NT1(350),NYR(800)
COMPLEX AST(4500),TK(350),U10(800),U(800),SN(800),
#BD(800),VN(800),U101(800),SG(800)
COMMON /BL2/TK,U10,U,SN,SG,NNAM(80)
COMMON KU,KV,KT,NB,E,KU1,nam

начало модуля 1

SUBROUTINE NUM10
c IMPLICIT INTEGER*2(I-N)
COMMON NAS(20),NST(20),NBA(100),NCU(100)
COMMON KU,KV,KT,NB,E,KU1,nam
DIMENSION N202(800),KM(100)
c $include : 'd.inc'
character nam*16

начало модуля 2

вроде одинаково всё - во всяком случае данная строка

COMMON /BL1/NU(800),N10(800),N20(800),N50(800),AB(800),
#N51(800),NBA(801),NCU(1600),NCB(1600),NTK(800),NT(350),NBU(20),
#NAS(801),NT1(350),NYR(800)
COMPLEX AST(4500),TK(350),U10(800),U(800),SN(800),
#BD(800),VN(800),U101(800),SG(800)
COMMON /BL2/TK,U10,U,SN,SG,NNAM(80)
COMMON /VR/KU,KV,KT,NB,E,KU1,nam
common /bl3/ast,nst(4500),vn,u101,bd

везде сделал так (одинаково)

теперь в модуле 2 значение вообще запредельное вместо 5 у KU - 262149 чушь какая-то

что-то всё равно ничего не понятно в этом синтаксисе фортрана, вроде всё элементарно, но ошибка есть, подскажите плиз , как во всем проекте объявить кучу переменных, чтоб они были веэде видны?

COMMON /BL1/NU(800),N10(800),N20(800),N50(800),AB(800),
#N51(800),NBA(801),NCU(1600),NCB(1600),NTK(800),NT(350),NBU(20),
#NAS(801),NT1(350),NYR(800),KU,KV,KT,NB,E,KU1,nam

так верно в каждом модуле?

С обычными переменными вроде раэобрался, а вот массивы остаются загадкой вроде принцип один, на не видит значения массива хоть тресни, может кто поможет


Модуль 1 (главный)

PROGRAM REG10
IMPLICIT INTEGER*2(I-N)
DIMENSION MPP(10),nyb(800),npp(800)
DIMENSION MCU(1600),NU(800),MBU(20),mbb(800)
DIMENSION NAS(800),NST(800), NBA(100) ,NCU(100),NCB(100)
COMMON /BL1/NAS(800),NST(800), NBA(100) ,NCU(100),NCB(100)
COMMON /BL2/NU1(800),
#MBA(801),MCB(1600),NTK(800),NT(350),NBU(20),
#NT1(350),NYR(800)
COMPLEX AST(4500),AB(1600),TK(350),U10(800),U(800),SN(800),
#BD(800),VN(800),U101(800),SG(800)
COMMON /BL3/TK,U10,U,SN,SG,NNAM(80)
INTEGER KU,KV,KT,NB,E,KU1
COMMON /BL4/KU,KV,KT,NB,E,KU1,ab,nam
DIMENSION N10(100),N20(100),N30(100),N50(100),N51(100)
COMMON /BL5/N10(100),N20(100),N30(100),N50(100),N51(100)
common/bl3/ ast,vn,u101,bd
character nam*16

...
CALL SC10

... Вот здесь значение массива NBA 1,2,3,4,5


CALL NUM10


________________________________________________________
SUBROUTINE SC10(KI,iso,kust)
IMPLICIT INTEGER *2(I-N)
DIMENSION MCU(1600),NU(800),MBU(20),mbb(800)
DIMENSION NAS(800),NST(800),NBA(100),NCU(100),NCB(100)
COMMON /BL1/NAS(800),NST(800),NBA(100),NCU(100),NCB(100)
COMMON /BL2/NU1(800),
#MBA(801),MCB(1600),NTK(800),NT(350),NBU(20),
#NT1(350),NYR(800)
COMPLEX AST(4500),AB(1600),TK(350),U10(800),U(800),SN(800),
#BD(800),VN(800),U101(800),SG(800)
COMMON /BL3/TK,U10,U,SN,SG,NNAM(80)
INTEGER KU,KV,KT,NB,E,KU1
COMMON /BL4/KU,KV,KT,NB,E,KU1,ab,nam
DIMENSION N10(100),N20(100),N30(100),N50(100),N51(100)
COMMON /BL5/N10(100),N20(100),N30(100),N50(100),N51(100)
common/bl3/ ast,vn,u101,bd
Character nam*16
...

...
Вот здесь значение массива NBA 1,2,3,4,5


----------------------------------------------------------

SUBROUTINE NUM10
c DIMENSION MCU(1600),NU(800),MBU(20),mbb(800)

DIMENSION NAS(800),NST(800),NBA(100),NCU(100),NCB(100)
COMMON /BL1/NAS(800),NST(800),NBA(100),NCU(100),NCB(100)
COMMON /BL2/NU1(800),
#MBA(801),MCB(1600),NTK(800),NT(350),NBU(20),
#NT1(350),NYR(800)
COMPLEX AST(4500),AB(1600),TK(350),U10(800),U(800),SN(800),
#BD(800),VN(800),U101(800),SG(800)
COMMON /BL3/TK,U10,U,SN,SG,NNAM(80)
INTEGER KU,KV,KT,NB,E,KU1
COMMON /BL4/KU,KV,KT,NB,E,KU1,ab,nam
DIMENSION N10(100),N20(100),N30(100),N50(100),N51(100)
COMMON /BL5/N10(100),N20(100),N30(100),N50(100),N51(100)
common/bl3/ ast,vn,u101,bd
DIMENSION N202(800),KM(100)
////

а вот здесь значения NBA 0,0,0,0,0,0,0....
просто ничего не понимаю