my_piksrt Subroutine

subroutine my_piksrt(n, arr, brr)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n
integer,	intent(inout),		dimension(n)	::	arr
character(len=*),	intent(inout),		dimension(n)	::	brr