1*-----------------------------------------------------------------------
2*     NORMALIZATION TRANSFORMATION (INCLUDING MAP PROJECTION)
3*-----------------------------------------------------------------------
4*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
5*-----------------------------------------------------------------------
6      SUBROUTINE STFTRF(UX, UY, VX, VY)
7
8      LOGICAL   LMAPA
9
10      LOGICAL   LMISS, LMAP
11
12      SAVE
13
14
15      IF (LMISS .AND. (UX.EQ.RMISS .OR. UY.EQ.RMISS)) THEN
16        VX = RMISS
17        VY = RMISS
18        RETURN
19      END IF
20
21      CALL STFRAD(UX, UY, UX1, UY1)
22
23      IF (LMAP) THEN
24        CALL STFROT(UX1, UY1, TX, TY)
25        CALL STFTRN(TX,  TY,  VX, VY)
26      ELSE
27        CALL STFTRN(UX1, UY1, VX, VY)
28      END IF
29
30      RETURN
31*-----------------------------------------------------------------------
32      ENTRY STITRF(VX, VY, UX, UY)
33
34      IF (LMAP) THEN
35        CALL STITRN(VX, VY, TX, TY)
36        IF (TX.EQ.RNA .OR. TY.EQ.RNA) THEN
37          UX = RNA
38          UY = RNA
39          RETURN
40        END IF
41        CALL STIROT(TX, TY, UX1, UY1)
42      ELSE
43        CALL STITRN(VX, VY, UX1, UY1)
44      END IF
45
46      CALL STIRAD(UX1, UY1, UX, UY)
47
48      RETURN
49*-----------------------------------------------------------------------
50      ENTRY STQTRF(LMAPA)
51
52      LMAPA = LMAP
53
54      RETURN
55*-----------------------------------------------------------------------
56      ENTRY STSTRF(LMAPA)
57
58      LMAP = LMAPA
59      CALL GLLGET('LMISS',LMISS)
60      CALL GLRGET('RMISS',RMISS)
61      CALL GLRGET('RUNDEF',RNA)
62
63      END
64