elemental function problem about f90wrap HOT 4 CLOSED

Hi Piotr, thanks for reporting and sorry to be slow getting back to you- I've reproduced your problem and hope to be able to look into finding a fix tomorrow.

from f90wrap.

This is a parsing issue. As a workaround, if you switch the order of elemental attribute and the return type real(kind=8) then it works correctly:

module elemental_module
implicit none
contains
real(kind=8) elemental function sinc(x)
real(kind=8), intent(in) :: x
if(abs(x).gt.1d-5) then
sinc = sin(x)/x
else
sinc = 1.0d0
endif
return
end function sinc
end module elemental_module

from f90wrap.

Parser is now fixed so this works with either ordering of elemental and the return type.

from f90wrap.

Thanks. I will give it a shot

from f90wrap.