(use, tab='')
| 3353 | |
| 3354 | |
| 3355 | def use2fortran(use, tab=''): |
| 3356 | ret = '' |
| 3357 | for m in list(use.keys()): |
| 3358 | ret = '%s%suse %s,' % (ret, tab, m) |
| 3359 | if use[m] == {}: |
| 3360 | if ret and ret[-1] == ',': |
| 3361 | ret = ret[:-1] |
| 3362 | continue |
| 3363 | if 'only' in use[m] and use[m]['only']: |
| 3364 | ret = '%s only:' % (ret) |
| 3365 | if 'map' in use[m] and use[m]['map']: |
| 3366 | c = ' ' |
| 3367 | for k in list(use[m]['map'].keys()): |
| 3368 | if k == use[m]['map'][k]: |
| 3369 | ret = '%s%s%s' % (ret, c, k) |
| 3370 | c = ',' |
| 3371 | else: |
| 3372 | ret = '%s%s%s=>%s' % (ret, c, k, use[m]['map'][k]) |
| 3373 | c = ',' |
| 3374 | if ret and ret[-1] == ',': |
| 3375 | ret = ret[:-1] |
| 3376 | return ret |
| 3377 | |
| 3378 | |
| 3379 | def true_intent_list(var): |
no test coverage detected