	subroutine xdrrmat64( ixdrs, nels, rval )

	integer   ixdrs, ixdrsm1
	real	  rval(nels)

	ixdrsm1 = ixdrs - 1

	call cxdrrmat64( ixdrsm1, nels, rval )

	return
	end


