Made only/skip f2py options active when using -h option.

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=''