Hi all,
is there a kind analogue to assumed shape?
To clarify, I can do this:
subroutine foo (bar)
real :: bar(:)
print *, size(bar)
end subroutine
But not this:
subroutine foo (bar)
real(kind=:) :: bar
print *, kind(bar)
end subroutine
Why is that? And how do the intrinsic procedures work that
can take arguments of arbitrary kind, like sin(). Are they
implemented for every possible kind and then exposed through
a generic interface?
Regard,
Tobias
|