f2py/crackfortran.patch

   1 diff -u -N -r F2PY-2.45.241_1926/crackfortran.py F2PY-2.45.241_1926.patched/crackfortran.py
   2 --- F2PY-2.45.241_1926/crackfortran.py  2004-12-04 11:08:56.000000000 +0100
   3 +++ F2PY-2.45.241_1926.patched/crackfortran.py  2009-11-02 11:12:23.000000000 +0100
   4 @@ -1583,13 +1583,13 @@
   5              if args is not None and b['name'] not in args:
   6                  continue
   7              else:
   8 -                as=b['args']
   9 +                _as=b['args']
  10              if b['name'] in skipfuncs:
  11                  continue
  12              if onlyfuncs and b['name'] not in onlyfuncs:
  13                  continue
  14 -        else: as=args
  15 -        b=postcrack(b,as,tab=tab+'\t')
  16 +        else: _as=args
  17 +        b=postcrack(b,_as,tab=tab+'\t')
  18          if b['block']=='interface' and not b['body']:
  19              if not b.has_key('f2pyenhancements'):
  20                  continue