test_return_real

Module Contents

class TestReturnReal

Bases:util.F2PyTest

check_function(self, t)
class TestCReturnReal

Bases:test_return_real.TestReturnReal

suffix = .pyf
module_name = c_ext_return_real
code =

python module c_ext_return_real usercode ‘’’ float t4(float value) { return value; } void s4(float *t4, float value) { *t4 = value; } double t8(double value) { return value; } void s8(double *t8, double value) { *t8 = value; } ‘’’ interface

function t4(value)
real*4 intent(c) :: t4,value

end function t8(value)

real*8 intent(c) :: t8,value

end subroutine s4(t4,value)

intent(c) s4 real*4 intent(out) :: t4 real*4 intent(c) :: value

end subroutine s8(t8,value)

intent(c) s8 real*8 intent(out) :: t8 real*8 intent(c) :: value

end

end interface end python module c_ext_return_real

test_all(self)
class TestF77ReturnReal

Bases:test_return_real.TestReturnReal

code = function t0(value) real value real t0 t0 = value end function t4(value) real*4 value real*4 t4 t4 = value end function t8(value) real*8 value real*8 t8 t8 = value end function td(value) double precision value double precision td td = value end
subroutine s0(t0,value)
real value real t0
cf2py intent(out) t0
t0 = value

end subroutine s4(t4,value)

real*4 value real*4 t4
cf2py intent(out) t4
t4 = value

end subroutine s8(t8,value)

real*8 value real*8 t8
cf2py intent(out) t8
t8 = value

end subroutine sd(td,value)

double precision value double precision td
cf2py intent(out) td
td = value

end

test_all(self)
class TestF90ReturnReal

Bases:test_return_real.TestReturnReal

suffix = .f90
code =
module f90_return_real
contains
function t0(value)
real :: value real :: t0 t0 = value

end function t0 function t4(value)

real(kind=4) :: value real(kind=4) :: t4 t4 = value

end function t4 function t8(value)

real(kind=8) :: value real(kind=8) :: t8 t8 = value

end function t8 function td(value)

double precision :: value double precision :: td td = value

end function td

subroutine s0(t0,value)
real :: value real :: t0
!f2py intent(out) t0
t0 = value

end subroutine s0 subroutine s4(t4,value)

real(kind=4) :: value real(kind=4) :: t4
!f2py intent(out) t4
t4 = value

end subroutine s4 subroutine s8(t8,value)

real(kind=8) :: value real(kind=8) :: t8
!f2py intent(out) t8
t8 = value

end subroutine s8 subroutine sd(td,value)

double precision :: value double precision :: td
!f2py intent(out) td
td = value

end subroutine sd

end module f90_return_real

test_all(self)