	program tt

	real x(11),y(11),miss

	data x/0,4,3,6,3,7,8,7,7,9,10/
	data y/23,29,16,29,12,19,21,32,28,12,18/

	miss=-99.99
	
	call replace_reverserank(11,x,miss)

	do i=1,11
	  write (*,*) x(i)
	enddo

	end
