(block, param_map=None)
| 2000 | |
| 2001 | |
| 2002 | def get_useparameters(block, param_map=None): |
| 2003 | global f90modulevars |
| 2004 | |
| 2005 | if param_map is None: |
| 2006 | param_map = {} |
| 2007 | usedict = get_usedict(block) |
| 2008 | if not usedict: |
| 2009 | return param_map |
| 2010 | for usename, mapping in list(usedict.items()): |
| 2011 | usename = usename.lower() |
| 2012 | if usename not in f90modulevars: |
| 2013 | outmess('get_useparameters: no module %s info used by %s\n' % |
| 2014 | (usename, block.get('name'))) |
| 2015 | continue |
| 2016 | mvars = f90modulevars[usename] |
| 2017 | params = get_parameters(mvars) |
| 2018 | if not params: |
| 2019 | continue |
| 2020 | # XXX: apply mapping |
| 2021 | if mapping: |
| 2022 | errmess('get_useparameters: mapping for %s not impl.\n' % (mapping)) |
| 2023 | for k, v in list(params.items()): |
| 2024 | if k in param_map: |
| 2025 | outmess('get_useparameters: overriding parameter %s with' |
| 2026 | ' value from module %s\n' % (repr(k), repr(usename))) |
| 2027 | param_map[k] = v |
| 2028 | |
| 2029 | return param_map |
| 2030 | |
| 2031 | |
| 2032 | def postcrack2(block, tab='', param_map=None): |
no test coverage detected