diff options
| -rwxr-xr-x | numpy/f2py/crackfortran.py | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/numpy/f2py/crackfortran.py b/numpy/f2py/crackfortran.py index 17199faa7..74007c0c7 100755 --- a/numpy/f2py/crackfortran.py +++ b/numpy/f2py/crackfortran.py @@ -2365,10 +2365,16 @@ def determineexprtype(expr,vars,rules={}): return t ###### def crack2fortrangen(block,tab='\n'): + global skipfuncs, onlyfuncs setmesstext(block) ret='' if type(block) is type([]): for g in block: + if g['block'] in ['function','subroutine']: + if g['name'] in skipfuncs: + continue + if onlyfuncs and g['name'] not in onlyfuncs: + continue ret=ret+crack2fortrangen(g,tab) return ret prefix='' |