| blob | 3f71b27284e0c0e6bd049cdefde80212af76250f |
3 C$$$ SUBPROGRAM DOCUMENTATION BLOCK
4 C
5 C SUBPROGRAM: GETS1LOC
6 C PRGMMR: ATOR ORG: NP12 DATE: 2005-11-29
7 C
8 C ABSTRACT: THIS SUBROUTINE RETURNS THE LOCATION (I.E. STARTING BYTE
9 C AND BIT WIDTH) OF A SPECIFIED VALUE WITHIN SECTION 1 OF A BUFR
10 C MESSAGE ENCODED ACCORDING TO A SPECIFIED BUFR EDITION. IT WILL
11 C WORK ON ANY MESSAGE ENCODED USING BUFR EDITION 2, 3 OR 4. THE
12 C VALUE FOR WHICH THE LOCATION IS TO BE DETERMINED IS SPECIFIED VIA
13 C THE MNEMONIC S1MNEM, AS EXPLAINED IN FURTHER DETAIL BELOW.
14 C
15 C PROGRAM HISTORY LOG:
16 C 2005-11-29 J. ATOR -- ORIGINAL AUTHOR
17 C 2006-04-14 D. KEYSER -- ADDED OPTIONS FOR 'YCEN' AND 'CENT'
18 C
19 C USAGE: GETS1LOC ( S1MNEM, IBEN, ISBYT, IWID, IRET )
20 C INPUT ARGUMENT LIST:
21 C S1MNEM - CHARACTER*(*): MNEMONIC SPECIFYING VALUE WHOSE
22 C LOCATION WITHIN SECTION 1 IS TO BE DETERMINED:
23 C 'LEN1' = LENGTH (IN BYTES) OF SECTION 1
24 C 'BMT' = BUFR MASTER TABLE
25 C 'OGCE' = ORIGINATING CENTER
26 C 'GSES' = ORIGINATING SUBCENTER
27 C (NOTE: THIS VALUE IS PRESENT ONLY IN
28 C BUFR EDITION 3 OR 4 MESSAGES!)
29 C 'USN' = UPDATE SEQUENCE NUMBER
30 C 'ISC2' = FLAG INDICATING ABSENCE/PRESENCE OF
31 C (OPTIONAL) SECTION 2 IN BUFR MESSAGE:
32 C 0 = SECTION 2 ABSENT
33 C 1 = SECTION 2 PRESENT
34 C 'MTYP' = DATA CATEGORY
35 C 'MSBTI' = DATA SUBCATEGORY (INTERNATIONAL)
36 C (NOTE: THIS VALUE IS PRESENT ONLY IN
37 C BUFR EDITION 4 MESSAGES!)
38 C 'MSBT' = DATA SUBCATEGORY (LOCAL)
39 C 'MTV' = VERSION NUMBER OF MASTER TABLE
40 C 'MTVL' = VERSION NUMBER OF LOCAL TABLES
41 C 'YCEN' = YEAR OF CENTURY (1-100)
42 C (NOTE: THIS VALUE IS PRESENT ONLY IN
43 C BUFR EDITION 2 AND 3 MESSAGES!)
44 C 'CENT' = CENTURY (I.E., 20 FOR YEARS 1901-2000,
45 C 21 FOR YEARS 2001-2100)
46 C (NOTE: THIS VALUE *MAY* BE PRESENT IN
47 C BUFR EDITION 2 AND 3 MESSAGES,
48 C BUT IT IS NEVER PRESENT IN ANY
49 C BUFR EDITION 4 MESSAGES!)
50 C 'YEAR' = YEAR (4-DIGIT)
51 C (NOTE: THIS VALUE IS PRESENT ONLY IN
52 C BUFR EDITION 4 MESSAGES!)
53 C 'MNTH' = MONTH
54 C 'DAYS' = DAY
55 C 'HOUR' = HOUR
56 C 'MINU' = MINUTE
57 C 'SECO' = SECOND
58 C (NOTE: THIS VALUE IS PRESENT ONLY IN
59 C BUFR EDITION 4 MESSAGES!)
60 C IBEN - INTEGER: BUFR EDITION NUMBER
61 C
62 C
63 C OUTPUT ARGUMENT LIST:
64 C ISBYT - INTEGER: NUMBER OF STARTING BYTE WITHIN SECTION 1
65 C WHICH CONTAINS VALUE CORRESPONDING TO S1MNEM
66 C (NOTE: ISBYT IS ALWAYS RETURNED AS 18 WHENEVER
67 C S1MNEM = 'CENT' AND IBEN = 2 OR 3; IN SUCH
68 C CASES IT IS THEN UP TO THE CALLING ROUTINE
69 C TO DETERMINE WHETHER THIS LOCATION ACTUALLY
70 C CONTAINS A VALID CENTURY VALUE!)
71 C IWID - INTEGER: WIDTH (IN BITS) OF VALUE CORRESPONDING
72 C TO S1MNEM
73 C IRET - INTEGER: RETURN CODE
74 C 0 = NORMAL RETURN
75 C -1 = THE INPUT S1MNEM MNEMONIC IS INVALID FOR
76 C BUFR EDITION IBEN
77 C
78 C REMARKS:
79 C THIS ROUTINE CALLS: None
80 C THIS ROUTINE IS CALLED BY: CRBMG IUPBS01 PKBS1
81 C Normally not called by any application
82 C programs.
83 C
84 C ATTRIBUTES:
85 C LANGUAGE: FORTRAN 77
86 C MACHINE: PORTABLE TO ALL PLATFORMS
87 C
88 C$$$
90 CHARACTER*(*) S1MNEM
92 C-----------------------------------------------------------------------
93 C-----------------------------------------------------------------------
106 ELSE
108 C Note that this location is actually the same for both
109 C Edition 2 *and* Edition 4 of BUFR!
113 ENDIF
120 ELSE
122 ENDIF
126 ELSE
128 ENDIF
133 ELSE
135 ENDIF
139 ELSE
141 ENDIF
145 ELSE
147 ENDIF
151 ELSE
153 ENDIF
157 ELSE
159 ENDIF
163 ELSE
165 ENDIF
170 ELSE
172 ENDIF
176 ELSE
178 ENDIF
182 ELSE
184 ENDIF
188 ELSE
190 ENDIF
194 ELSE
196 ENDIF
200 ELSE
202 ENDIF
206 ELSE
208 ENDIF
212 ELSE
214 ENDIF
215 ELSE
217 ENDIF
219 RETURN
220 END