1*-----------------------------------------------------------------------
2*     NORMALIZATION TRANSFORMATION
3*-----------------------------------------------------------------------
4*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
5*-----------------------------------------------------------------------
6      SUBROUTINE SGSVPT(VXMIN, VXMAX, VYMIN, VYMAX)
7
8
9      CALL SGRSET('VXMIN',VXMIN)
10      CALL SGRSET('VXMAX',VXMAX)
11      CALL SGRSET('VYMIN',VYMIN)
12      CALL SGRSET('VYMAX',VYMAX)
13
14      RETURN
15*-----------------------------------------------------------------------
16      ENTRY SGQVPT(VXMIN, VXMAX, VYMIN, VYMAX)
17
18      CALL SGRGET('VXMIN',VXMIN)
19      CALL SGRGET('VXMAX',VXMAX)
20      CALL SGRGET('VYMIN',VYMIN)
21      CALL SGRGET('VYMAX',VYMAX)
22
23      RETURN
24      END
25