Aim: Check that two files share a number of attributes.
The routine declaration is:
function equalKeywords(handle1,handle2,keywList,strict,onwarn) result(compat)
! handle1 : handle to the first table or set
! handle2 : handle to the second table or data set
! keywList : array of keywords to test for compatibility
! strict : set to true if need to check existence also (default is true)
! onwarn : set to true if warnings are to be sent (default is true)
! : if false then messages are sent instead
type(AttributableT), intent(in) :: handle1, handle2
character(len=*), dimension(:), intent(in) :: keywList
logical, intent(in), optional :: strict, onwarn
logical :: compat