From d6577bdc9c54e7dd0b39184ef660e7b6446026bf Mon Sep 17 00:00:00 2001 From: zhangyazhou Date: Mon, 26 May 2025 09:36:40 +0800 Subject: [PATCH] fix Error: Rank mismatch between actual argument for pgpoint function --- src/best.f | 2 +- src/quickplot.f | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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