anchor.diff:         character*(180) buffer
          character*(180) message
          integer istatus
  -       logical overb,ohelp,odistinct
  +       logical overb,ohelp
          character*255 file_lattice,file_in,file_out
          character*16 atom1_tag
          character*16 atom2_tag
  
positive.code:           end do
  c          write(*,*) "done reading lattice"
            go to 16
         else if(buffer.eq."-nodistinct") then
            odistinct=.false.
            go to 16
         else if(buffer.eq."-distinct") then
            odistinct=.true.
            go to 16
         else if(buffer.eq."-v") then
            overb=.true.
            go to 16
  
negative.code:           call my_get_command_argument(i,buffer,l,istatus)
            if(istatus.ne.0) goto 18
            if(is_integer(buffer)) then
              read(buffer,*) atom1_id
            else
              atom1_tag = buffer
  