Из Fortran'a IV в Delphi

[Charcoal]

Здравствуйте.
Пытаюсь разобратся в исходнике на Фортране, материала по нему немного
Помогите адаптировать фрагмент программы под Дельфи:

     COMMON/A/IC(20),ICR(20),AM(20,5),NIN(5),NSU(20),MVO(20),
   *NSV(20),TP(20),V(20),A(5,5),AP(5,5),APL(5,5),MK1(5),
   *MK(600,3),TK(600),MNT(5)
    COMMON/B/ N,M,NDT,KW,KL2,NPU,NSTM
    OPEN (UNIT2,NAME'DK:ND.DAT',READONLY,TYPE='OLD')
    READ (2,*) N,M,NDT,KW,KL2
    READ (2,*) (IC(I),I=1,M)
    READ (2,*) AS
    N1=N+1
    READ (2,*) (NIN(I),I=1,N1)
    READ (2,*) (MSV(I),I=1,M)
    READ (2,*) (NSU(I),I=1,M)
    READ (2,*) ((A,J),J=1,N),I=1,N)
    READ (2,*) NTSM,N1ST,NPU
    KL3=MSV(1)
10 NIN(1)=1
    DO 22 I=2,N1
22 NIN(I)=NIN(I)+NIN(I-1)
    DO 34 L=1,M
    DO 24 J=2,N1
    IR0=NIN(J)
    IF(L-IR0) 26,24,24
24 CONTINUE
26 IR1=J-1
    IR2=NSU(L)
    LB=NIN(IR2)
    LE=NIN(IR2+1)-1
    D0 28 J=LB,LE
    IR0=NSU(J)
    IF(IR0-IR1) 28,30,28
28 CONTINUE
    MVO(L)=0
    GO TO 34
30 MVO(L)=J
    IRO=MSV(L)
    IF(IR0) 999,34,32
32 MSV(L)=MVO(L)
34 CONTINUE
...
999 STOP
      END

Особый интерес вызывают (как это работает):
1. Обращения COMMON/A/... и COMMON/B/...
2. Цикл DO...CONTINUE и странные метки.
3. Операторы IF(L-R0) 26,24,24 и IF(IR0) 999,34,32

[Charcoal]

Более-менее разобрался.
Непонятно только здесь

IF(L-IR0) 26,24,24
24 CONTINUE
26 IR1=J-1

Чем, собственно говоря, отличается метка 24 от 26???

[leshasoft]

IF(L-IR0) 26,24,24
Это арифметический оператор условного перехода,
который организует выход из цикла , если L-IR0 имеет отрицательное значение.

DO 24 J=2,N1
IR0=NIN(J)
IF(L-IR0) 26,24,24
24 CONTINUE
26 IR1=J-1

Про операторы передачи управления можно почитать вот здесь:
http://old.cs.msu.su/vm/lec/for/for58000.htm

COMMON/A/... и COMMON/B/...
Это общие блоки данных с именами A и B, которые могут использоваться в подпрограммах. Аналог глобальных переменных.

[leshasoft]

Вот типа такого кода должно получиться

KL3:=MSV(1);
   NIN(1):=1;
for  I := 2 to N1  do begin
    NIN(I):=NIN(I)+NIN(I-1);
end;
for  L := 1 to M  do begin
for  J := 2 to N1  do begin
IR0:=NIN(J);
if (L-IR0)<0 then  break;
end;
IR1:=J-1;
IR2:=NSU(L);
LB:=NIN(IR2);
LE:=NIN(IR2+1)-1;
for J:=LB to LE do begin
IR0:=NSU(J);
if (IR0-IR1)=0 then  goto label30;
end;
MVO(L):=0;
goto label34;
label30: 
   MVO(L):=J;
IRO:=MSV(L);
if (IR0)<0 then  goto label999;
if (IR0)<0 then  goto label34;
   MSV(L):=MVO(L);
label34:
end;
label999;
end.

[Charcoal]

leshasoft спасибо!

[DeKot]

Удивляюсь, из прошлого помню еще что были (?) такие языки - Фортран, Алгол, Кобол. Еще ЭВМ была "Мрiя", программа набиралась перемычками, выход на печатающее устройство типа принтер (но не принтер - смесь печатающей машинки с ... даже не знаю как назвать).
Но вот что, неужели Фортран еще где то используется (хотя раз есть ТС, то да) ? Или где то используется в качестве учебного?

[Charcoal]

Сообщение от DeKot

Но вот что, неужели Фортран еще где то используется (хотя раз есть ТС, то да) ? Или где то используется в качестве учебного?

Не пугайтесь так, это из методического пособия для "...социалистических стран" 1988г. Моделирование сети связи, общие принципы не изменились, вот и приходится изучать 'рукописи' предков.

[leshasoft]

Но вот что, неужели Фортран еще где то используется (хотя раз есть ТС, то да) ? Или где то используется в качестве учебного?

У нас практически все расчётные программы.

[Charcoal]

Может кто знает как воспринимать вот это:

...
      GO TO (100,100,100),A
100 Z=URAND(X)
...

[leshasoft]

А между этими строчками, чего нибудь было?
А то похоже на криво написанную программу.
По идее оператор GO TO(100,100,100),A это вычисляемый оператор перехода, при А = 1 на первую метку, при А = 2 на вторую метку, при А = 3 на третью метку.
urand генератор случайных чисел вещественного формата в интервале [0..1]