subroutine fixit(iarry, xarry)
	dimension iarry(72,36), xarry(73,37)

c Convert the integer array 'iarry' into a float and tack on an extra bit
c at the end... later.
	do j=1, 36 
	  jj= 36-(j-1)
	  do i= 1, 72 
	    xarry(i,jj)= float(iarry(i,j))
	  enddo
	enddo

c Add the extra value.
	xarry(73,37)= xarry(72,36)

	return
	end