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

program scripinterp

  use scripinterp_mod

  character (char_len) ::  nm_in
  write(6,*) 'enter the name of an input namelist'
  read(5,*) nm_in
  call process_grid(nm_in)

end program scripinterp