From 7664a634655ed0811f4254ee954934412272c690 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sun, 11 Apr 2021 09:32:21 -0400
Subject: [PATCH] Send real, not int, to indexx().  Should prevent floating
 exception message on exit.

---
 map65/libm65/display.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/map65/libm65/display.f90 b/map65/libm65/display.f90
index 29c76dc4a..9de609074 100644
--- a/map65/libm65/display.f90
+++ b/map65/libm65/display.f90
@@ -81,7 +81,7 @@ subroutine display(nkeep,ftol)
         endif
         kz=k
         if(nstart.eq.1) then
-           call indexx(utc2,kz,indx2)
+           call indexx(float(utc2(1:kz)),kz,indx2)
            k3=0
            do k=1,kz
               k3=min(k3+1,400)
@@ -89,7 +89,7 @@ subroutine display(nkeep,ftol)
            enddo
            nstart=0
         else
-           call indexx(utc2,kz,indx2)
+           call indexx(float(utc2(1:kz)),kz,indx2)
            do k=1,kz
               k3=min(k3+1,400)
               line3(k3)=line2(indx2(k))
@@ -108,7 +108,7 @@ subroutine display(nkeep,ftol)
      j0=j
   enddo
   kz=k
-  call indexx(utc2,kz,indx2)
+  call indexx(float(utc2(1:kz)),kz,indx2)
   do k=1,kz
      k3=min(k3+1,400)
      line3(k3)=line2(indx2(k))