fix Error: Rank mismatch between actual argument for pgpoint function

[zhangyazhou416]

Fix call pgpoint function:

call pgpoint(1,xx,yy,27)
      |                                    1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)