Aim: Test using keywords whether an action governed by a boolean parameter was already performed.
The routine declaration is:
function wasDone(in_tab,paramname) result(done)
! in_tab: handle to the table where to look for the keyword
! paramname: name of the boolean parameter
type(BlockT), intent(in) :: in_tab
character(len=*), intent(in) :: paramname
logical :: done