anchor.diff:    integer nSplit, singID
     logical spErr, cErr
   
  -  integer i, j, t
  +  integer j
   
     call chr_split(inLine, lnSplit, nSplit, spErr)
     if(spErr) then
  
positive.code:   end if
  
    mbloz = sixin_nStru
    ! if(mbloz > nblz-3) then
    !   call expand_arrays(nele,npart,nblz+1000,nblo)
    ! end if
  
  end subroutine sixin_parseInputLineSTRU_MULT
  
  
negative.code:   do j=1,mblo ! is it a BLOC?
      if(bezb(j) == lnSplit(2)) then
        singID = j
        exit
      end if
    end do
  
  