NCEPLIBS-bufr
11.5.0
Main Page
Related Pages
Data Types List
Files
File List
Globals
All
Data Structures
Files
Functions
Variables
Pages
ifxy.f
Go to the documentation of this file.
1
C> @file
2
C> @author WOOLLEN @date 1994-01-06
3
4
C> THIS FUNCTION RETURNS THE INTEGER CORRESPONDING TO THE
5
C> BIT-WISE REPRESENTATION OF AN INPUT CHARACTER FXY VALUE OF LENGTH
6
C> SIX.
7
C>
8
C> PROGRAM HISTORY LOG:
9
C> 1994-01-06 J. WOOLLEN -- ORIGINAL AUTHOR
10
C> 2003-11-04 J. ATOR -- ADDED DOCUMENTATION
11
C> 2003-11-04 S. BENDER -- ADDED REMARKS/BUFRLIB ROUTINE
12
C> INTERDEPENDENCIES
13
C> 2003-11-04 D. KEYSER -- UNIFIED/PORTABLE FOR WRF; ADDED HISTORY
14
C> DOCUMENTATION
15
C>
16
C> USAGE: IFXY (ADSC)
17
C> INPUT ARGUMENT LIST:
18
C> ADSC - CHARACTER*6: CHARACTER FORM OF DESCRIPTOR (FXY VALUE)
19
C>
20
C> OUTPUT ARGUMENT LIST:
21
C> IFXY - INTEGER: BIT-WISE REPRESENTATION OF DESCRIPTOR (FXY)
22
C> VALUE
23
C>
24
C> REMARKS:
25
C>
26
C> EXAMPLE:
27
C>
28
C> If ADSC = '063022', then IFXY = 16150 since:
29
C>
30
C> 0 63 22
31
C>
32
C> F | X | Y
33
C> | |
34
C> 0 0 1 1 1 1 1 1 0 0 0 1 0 1 1 0 =
35
C>
36
C> ( 2**13 + 2**12 + 2**11 + 2**10 +
37
C> 2**9 + 2**8 + 2**4 + 2**2 + 2**1 ) = 16150
38
C>
39
C>
40
C> THIS ROUTINE CALLS: None
41
C> THIS ROUTINE IS CALLED BY: BFRINI DXINIT GETNTBE GETCFMNG
42
C> IDN30 IREADMT NEMTAB NEMTBB
43
C> NEMTBD NUMTBD READS3 RESTD
44
C> SNTBDE SNTBFE STBFDX STNTBI
45
C> STSEQ UFBQCP
46
C> Normally not called by any application
47
C> programs but it could be.
48
C>
49
FUNCTION
ifxy
(ADSC)
50
51
52
53
CHARACTER*6
adsc
54
55
C----------------------------------------------------------------------
56
C----------------------------------------------------------------------
57
58
READ
(adsc,
'(I1,I2,I3)'
)
IF
,ix,iy
59
ifxy
= if*2**14 + ix*2**8 + iy
60
RETURN
61
END
ifxy
function ifxy(ADSC)
THIS FUNCTION RETURNS THE INTEGER CORRESPONDING TO THE BIT-WISE REPRESENTATION OF AN INPUT CHARACTER ...
Definition:
ifxy.f:49
nceplibs-bufr
src
ifxy.f
Generated by
1.8.5