diff --git a/src/best.f b/src/best.f
index 099abd9..392b048 100644
--- a/src/best.f
+++ b/src/best.f
@@ -788,7 +788,7 @@ program best
                   call pgpoint(ndm,x,y,17)
                else if (mode.eq.4.or.mode.eq.5) then
                   call pggray(grid,mg,mg,1,ngx,1,ngy,gridmax,gridmin,tr)
-                  call pgpoint(1,xx,yy,27)
+                  call pgpoint(1,[real(xx)],[real(yy)],27)
                   call pgsls(4)
                   call pgmove(xmin,0.0)
                   call pgdraw(xmax,0.0)
diff --git a/src/quickplot.f b/src/quickplot.f
index 01fa59b..76467bf 100644
--- a/src/quickplot.f
+++ b/src/quickplot.f
@@ -495,7 +495,7 @@ subroutine quickgrey(dat,nxd,nyd,nx,ny,flip)
             if(k.gt.0)then
               x=i
               y=j
-              call pgpoint(1,x,y,ksym(k))
+              call pgpoint(1,[real(x)],[real(y)],ksym(k))
             endif
           enddo
         enddo