diff options
| -rw-r--r-- | numpy/f2py/f90mod_rules.py | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/numpy/f2py/f90mod_rules.py b/numpy/f2py/f90mod_rules.py index aaedde1b2..ffd432b1d 100644 --- a/numpy/f2py/f90mod_rules.py +++ b/numpy/f2py/f90mod_rules.py @@ -24,6 +24,7 @@ outmess=sys.stdout.write show=pprint.pprint from auxfuncs import * +import numpy as N import capi_maps import cfuncs import rules @@ -44,7 +45,8 @@ def findf90modules(m): fgetdims1 = """\ external f2pysetdata logical ns - integer s(*),r,i,j + integer r,i,j + integer(%d) s(*) ns = .FALSE. if (allocated(d)) then do i=1,r @@ -56,7 +58,7 @@ fgetdims1 = """\ deallocate(d) end if end if - if ((.not.allocated(d)).and.(s(1).ge.1)) then""" + if ((.not.allocated(d)).and.(s(1).ge.1)) then""" % N.intp().itemsize fgetdims2="""\ end if |