1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
C
C
C +-----------------------------------------------------------------+
C | |
C | Copyright (C) 1986 by UCAR |
C | University Corporation for Atmospheric Research |
C | All Rights Reserved |
C | |
C | NCARGRAPHICS Version 1.00 |
C | |
C +-----------------------------------------------------------------+
C
C
C ---------------------------------------------------------------------
C
SUBROUTINE AGFTOL (IAXS,IDMA,VINP,VOTP,VLCS,LLUA,UBEG,UDIF,FUNS,
+ NBTP,SBSE)
C
C The routine AGFTOL is used by AGAXIS to map a fractional distance
C along the axis to a value in the label coordinate system or vice-
C versa. Its arguments are as follows:
C
C -- IAXS specifies which axis is being drawn. It is passed to the
C routine AGUTOL. See AGAXIS for a complete description of IAXS.
C
C -- IDMA specifies the direction of the mapping - from the fractional
C system to the label system if IDMA .GT. 0 or from the label system
C to the fractional system if IDMA .LT. 0. IDMA also specifies how
C the label-system value is given to or returned by AGFTOL.
C
C -- If ABSV(IDMA) .EQ. 1, an actual value in the label coordinate
C system (VLCS) is given to or returned by AGFTOL.
C
C -- If ABSV(IDMA) .NE. 1, a value of the exponent/multiplier EXMU
C corresponding to VLCS is given to or returned by AGFTOL.
C
C -- VINP is an input value in one coordinate system.
C
C -- VOTP is an output value in the other coordinate system.
C
C -- VLCS is an output value in the label coordinate system, returned
C no matter what the value of IDMA.
C
C -- LLUA, UBGA, and UDFA specify the mapping from the user coordinate
C system to the fractional system and vice-versa. See the routine
C AGAXIS for a complete description of these parameters.
C
C -- FUNS is a function-selector, to be used in calls to AGUTOL. It
C selects the mapping from the user coordinate system to the label
C coordinate system and vice-versa. See the routine AGAXIS for a
C complete description of this parameter.
C
C -- NBTP and SBSE specify the mapping of label-coordinate-system values
C to exponent/multiplier values and vice-versa. See the routine
C AGNUMB for a complete dexcription of these parameters.
C
C Determine desired direction of mapping.
C
IF (IDMA.GT.0) THEN
C
C Map axis fraction VINP to a label-coordinate-system value VLCS.
C
VUCS=UBEG+VINP*UDIF
IF (LLUA.NE.0) VUCS=10.**VUCS
CALL AGUTOL (IAXS,FUNS,1,VUCS,VLCS)
C
C If IDMA .EQ. 1, caller wants VLCS - otherwise, map VLCS to the
C appropriate exponent/multiplier value EXMU - return value in VOTP.
C
IF (IDMA.EQ.1) THEN
VOTP=VLCS
RETURN
END IF
C
GO TO (101,102,103) , NBTP
C
101 VOTP=VLCS/SBSE
RETURN
C
102 VOTP=ALOG10(VLCS/SBSE)
RETURN
C
103 VOTP=ALOG10(ABS(VLCS))/ALOG10(ABS(SBSE))
RETURN
C
ELSE
C
C If IDMA .EQ. -1, caller has provided VINP .EQ. VLCS, a value in the
C label coordinate system - otherwise, VINP .EQ. EXMU, the exponent/
C multiplier needed to generate VLCS.
C
IF (IDMA.EQ.(-1)) THEN
VLCS=VINP
GO TO 107
END IF
C
GO TO (104,105,106) , NBTP
C
104 VLCS=SBSE*VINP
GO TO 107
C
105 VLCS=SBSE*10.**VINP
GO TO 107
C
106 VLCS=SIGN(1.,SBSE)*ABS(SBSE)**VINP
C
C Map label-system value VLCS to a user-system value VUCS.
C
107 CALL AGUTOL (IAXS,FUNS,-1,VLCS,VUCS)
C
C Map user-system value VUCS to an axis fraction VOTP and return.
C
IF (LLUA.NE.0) VUCS=ALOG10(VUCS)
VOTP=(VUCS-UBEG)/UDIF
RETURN
C
END IF
C
END
|
