        SUBROUTINE ENDPLT
        IMPLICIT NONE
        REAL*4 X,Y
C
C
        CALL GSDRVR(5,X,Y)
        RETURN
        END

