1*-----------------------------------------------------------------------
2*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
3*-----------------------------------------------------------------------
4      SUBROUTINE GRSMPL(PLX, PLY, PLROT)
5
6
7      CALL SGRSTX('PLX',PLX)
8      CALL SGRSTX('PLY',PLY)
9      CALL SGRSTX('PLROT',PLROT)
10
11      END
12