	SUBROUTINE GDAID(X,Y,XGUPCM,YGUPCM,IX,IY)
        IMPLICIT NONE
        REAL*4 X,Y,XGUPCM,YGUPCM
        INTEGER IX,IY
C
	IX = XGUPCM*X + 0.5
	IY = YGUPCM*Y + 0.5
	RETURN
	END
C
	SUBROUTINE GDGAID(IX,IY,XGUPCM,YGUPCM,X,Y)
        IMPLICIT NONE
        REAL*4 XGUPCM,YGUPCM,X,Y
        INTEGER IX,IY
C
	X = FLOAT(IX)/XGUPCM
	Y = FLOAT(IY)/YGUPCM
	RETURN
	END
