anchor.diff:         atom2_id = 0
          atom1_tag = " "
          atom2_tag = " "
  -       file_in = " "
  -       file_out = " "
          rmax = -1
          nb = -1
   c
   c      ------------------------
  -c      allocate input file array
  +c      allocate io file array
   c      ------------------------
          nc = my_command_argument_count()
  -       write(*,*) "nc=",nc
          call get_carg_nfiles(nc)
  -       write(*,*) "number of files",nc
          allocate(infile(nc))
  +       infile = " "
   c      --------------------------------------------      
   c      beging parsing command line arguments if any
   c      --------------------------------------------      
  
positive.code:       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
  
  
negative.code:        fn_out = 11
         nfrm = 0
         aformat = " "
         overb = .false.
         file_lattice = " "
         latv = -1.0
         lat = 0.0
  