NCEPLIBS-bufr  11.5.0
 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
function ifxy(ADSC)
THIS FUNCTION RETURNS THE INTEGER CORRESPONDING TO THE BIT-WISE REPRESENTATION OF AN INPUT CHARACTER ...
Definition: ifxy.f:49