(var)
| 3377 | |
| 3378 | |
| 3379 | def true_intent_list(var): |
| 3380 | lst = var['intent'] |
| 3381 | ret = [] |
| 3382 | for intent in lst: |
| 3383 | try: |
| 3384 | f = globals()['isintent_%s' % intent] |
| 3385 | except KeyError: |
| 3386 | pass |
| 3387 | else: |
| 3388 | if f(var): |
| 3389 | ret.append(intent) |
| 3390 | return ret |
| 3391 | |
| 3392 | |
| 3393 | def vars2fortran(block, vars, args, tab='', as_interface=False): |