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 
	  do i= 1,72
	    xarry(i,j)= float(iarry(i,j))
	  enddo
	enddo

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