ptr_abuse_1d_logical Subroutine

private subroutine ptr_abuse_1d_logical(arr, ptr)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in),		target	::	arr(:)
integer(kind=int32),	intent(inout),		pointer	::	ptr(:)

Contents