ptr_abuse_scalar_real Subroutine

private subroutine ptr_abuse_scalar_real(elem, ptr)

Arguments

Type IntentOptional Attributes Name
real(kind=sp), intent(in), target :: elem
integer(kind=int32), intent(inout), pointer :: ptr

Contents