Воображаемый Враг
ТИХОХОДКИ против КОЛОВРАТОК
3-ье место.


...
do i=Tstg+1,1,-1
call Annulate(Z1,10)
call EqlVct(R(2:11,KR),Z1,10)
do i2=1,NTT !!!цикл 2 : по всем эл-там с признаком "Т"
call Annulate(Z2,10)
if(i.LE. Tstg)call Extr_A(A(1:22,iBURN(i2)+i-1),Z2)
call INERTC(Z1,Z2)
R(1,KR+Tstg-i+1)=T_
do jj=1,10
R(jj+1,KR+Tstg-i+1)=Z1(jj)
end do
end do !!!2 : конец цикла
end do !!! 1 : конец цикла
KR=KR+Tstg+1
...


Не всегда почтенный возраст среды делает ее устаревшей.
Возможность к преобразованию есть повсюду.

@темы: R&D, crystal-project archives, n\c, хроники деградации