! ==========================================================================

program scripinterp

  use scripinterp_mod

  character (char_len) ::  nm_in
#if defined ARGC
  integer :: iargc
  external iargc

  if (iargc() == 1) then
    call getarg(1, nm_in)
    call process_grid(nm_in)
  else
    write(6,*) 'need the name of an input namelist'
  endif
#else
  write(6,*) 'enter the name of an input namelist'
  read(5,*) nm_in
  call process_grid(nm_in)
#endif

end program scripinterp
