def match_module(names):
    """
    line is a stripped Fortran statement. (no comment or
    white space at beginning or end.)  if it contains the beginning of
    a module definition, return the module name in upper case
    """
    if len(names) < 2: return ""
    if names[0] == "MODULE" and names[1] != "PROCEDURE":
        return names[1]
    return ""