[Unplace]

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
          ...

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