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