(block, param_map=None)
| 1973 | |
| 1974 | |
| 1975 | def get_useparameters(block, param_map=None): |
| 1976 | global f90modulevars |
| 1977 | |
| 1978 | if param_map is None: |
| 1979 | param_map = {} |
| 1980 | usedict = get_usedict(block) |
| 1981 | if not usedict: |
| 1982 | return param_map |
| 1983 | for usename, mapping in list(usedict.items()): |
| 1984 | usename = usename.lower() |
| 1985 | if usename not in f90modulevars: |
| 1986 | outmess(f'get_useparameters: no module {usename} info used by ' |
| 1987 | f'{block.get("name")}\n') |
| 1988 | continue |
| 1989 | mvars = f90modulevars[usename] |
| 1990 | params = get_parameters(mvars) |
| 1991 | if not params: |
| 1992 | continue |
| 1993 | # XXX: apply mapping |
| 1994 | if mapping: |
| 1995 | errmess(f'get_useparameters: mapping for {mapping} not impl.\n') |
| 1996 | for k, v in list(params.items()): |
| 1997 | if k in param_map: |
| 1998 | outmess(f'get_useparameters: overriding parameter {k!r} with' |
| 1999 | f' value from module {usename!r}\n') |
| 2000 | param_map[k] = v |
| 2001 | |
| 2002 | return param_map |
| 2003 | |
| 2004 | |
| 2005 | def postcrack2(block, tab='', param_map=None): |
no test coverage detected
searching dependent graphs…