subroutine fixit(iarry, xarry)
        dimension iarry(72,36), xarry(73,38)
c Convert the integer array 'iarry' into a float and tack on extra values
c at the edges.
        do i= 1,72
          xarry(i,1)= float(iarry(i,1))
          xarry(i,2)= xarry(i,1)
	enddo
        do j= 3, 37
          jj= j-1
          do i= 1,72
            xarry(i,j)= float(iarry(i,jj))
	  enddo
	enddo
        do i= 1, 72
          xarry(i,38)= xarry(i,37)
	enddo
        do j= 1, 38
          xarry(73,j)= xarry(72,j)
	enddo

	return
        end