ptr_abuse_1d_real Subroutine

private subroutine ptr_abuse_1d_real(arr, ptr)

Arguments

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

Contents