diff options
| author | Stefan van der Walt <stefan@sun.ac.za> | 2007-04-20 12:12:43 +0000 |
|---|---|---|
| committer | Stefan van der Walt <stefan@sun.ac.za> | 2007-04-20 12:12:43 +0000 |
| commit | e52ea92ca1859203ce3ffd569f777e532cbdc260 (patch) | |
| tree | bae8dc217b0b11bc3653f371c99dec9ae01cb549 | |
| parent | d8f883ac69cffbc0f9e010de754bd1522b249f0b (diff) | |
| download | numpy-e52ea92ca1859203ce3ffd569f777e532cbdc260.tar.gz | |
Fix pointer size for F90 allocatable arrays on 64-bit platform. Closes ticket #147.
| -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 |