anchor.diff:    character(len=mNameLen) bezlo(nele)
     dimension clo0(2),clop0(2)
     dimension qwc1(3),nx(ncor1)
  -  save
  -!-----------------------------------------------------------------------
  +
         rzero=zero
         rzero1=zero
         do l=1,2
  
positive.code: 
        end do
  
        return
  end subroutine block
  
  subroutine blockdis(aeg,bl1eg,bl2eg)
  
negative.code:       use mod_common_track
        implicit none
        integer i,j,jm,k,l,m,n
        real(kind=fPrec) h(nblo,2,6),g(nblo,2,6)
  
        do k=1,mblo
          jm=mel(k)
          i=mtyp(k,1)
  