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