Aim: Write history line with the name of an input file, removing the directory.
The routine declaration is:
subroutine addFilename(in_tab, filename, comment)
! in_tab : handle to the output table
! filename : name of the file
! comment : comment string to introduce file name
type(BlockT), intent(in) :: in_tab
character(len=*), intent(in) :: filename, comment