	subroutine xdrint( ixdrs, ival )

	integer   ixdrs, ixdrsm1 
	integer	  ival

	ixdrsm1 = ixdrs - 1
	call cxdrint( ixdrsm1, ival )

	return
	end


