anchor.diff:    do j=1,mblo ! is it a BLOC?
       if(bezb(j) == lnSplit(2)) then
         singID = j
  +      exit
       end if
     end do
   
  
positive.code:   integer nSplit
    logical spErr
  
    integer i, j, t
    character(len=mNameLen) ilm0(40)
  
    ilm0(:) = " "
  
negative.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
  
  