anchor.diff:        l = 0
         call getarg(i,buffer)
         if(buffer.eq." ") istatus = 1
  +      write(*,*) "current buffer is ",trim(buffer)
   c      call get_command_argument(i,buffer,l,istatus)
         end subroutine
  +
  +      subroutine get_carg_files(n,buffer,nb,istatus)
  +      implicit none
  +      integer n
  +      integer nb
  +      character*(*) buffer(n)
  +      integer istatus
  +c
  +      integer i,nc
  +      character*1 buf1
  +      nc = iargc()
  +      n = 0
  +      do i=nc,1,-1
  +        n = n+1
  +        call getarg(i,buffer(n))
  +        buf1 = adjustl(buffer(n))
  +        if(buf1.eq."-") then
  +          buffer(n) = " "
  +          n = n-1
  +          exit
  +        end if
  +      end do
  +      end subroutine
  +
  +      subroutine get_carg_nfiles(n)
  +      implicit none
  +      integer n
  +      integer istatus
  +c
  +      integer i,nc
  +      character*1 a1
  +      nc = iargc()
  +      n = 0
  +      do i=nc,1,-1
  +        n = n+1
  +        call getarg(i,a1)
  +        if(a1.eq."-") then
  +          n = n-1
  +          exit
  +        end if
  +      end do
  +      end subroutine
  +
         subroutine trj_read_solvent_specs(fn,nva,tvr,tva)
         implicit none
         integer, intent(in)    :: fn  
  
positive.code:           end if
            go to 16
         else 
            if(file_in .eq. ' ') then
              file_in=buffer
              go to 16
            else if(file_out.eq." ") then
              file_out=buffer
              go to 16
            end if
         end if 
  c      ---------------------------      
  c      end of command line parsing
  c      ---------------------------      
  
negative.code: c      ---------------------------      
  c      start checks/balances
  c      ---------------------------      
  c      files
         if(nfil.lt.2) then
           message = "please provide input/output files"
           goto 911
         end if
  c      atom tags
         if(atom1_id.eq.0.and.atom1_tag.eq." ") then
           message = "please provide central atom id or tag"
  