Home
last modified time | relevance | path

Searched refs:KSEC3 (Results 1 – 25 of 72) sorted by relevance

123

/dports/misc/libemos/libemos-4.5.9-Source/bufrdc_wmo/
H A Dbugtll.F140 DO I=1,KSEC3(3)
146 DO I=1,KSEC3(3)
152 DO I=1,KSEC3(3)
158 DO I=1,KSEC3(3)
164 DO I=1,KSEC3(3)
170 DO I=1,KSEC3(3)
176 DO I=1,KSEC3(3)
182 DO I=1,KSEC3(3)
212 DO I=1,KSEC3(3)
225 DO I=1,KSEC3(3)
[all …]
H A Dbuexs3.F127 DIMENSION KSUP(JSUP),KSEC3(JSEC3)
164 CALL BUNEXS(KSEC3(1))
170 CALL BUNPCK(NBPW,KBUFF,KSEC3(2),NWPT,NBPT,8,KERR)
185 IF(KSEC3(3).LE.0) THEN
192 N = KSEC3(3)
207 ICOMP=KSEC3(4)
223 JMAX = ( KSEC3(1) - 7)/2
342 IF(IAND(KSEC3(4),IMASK(7)).NE.0) OB=.TRUE.
440 CALL BUPMRK(KBUFL,KBUFF,KSEC3,KELEM,KERR)
460 IF(IAND(KSEC3(4),IMASK(7)).NE.0) THEN
[all …]
H A Dbuexs3p.F11 SUBROUTINE BUEXS3P(KBUFL,KBUFF,KSUP,KSEC3,KERR) argument
84 DIMENSION KBUFF(KBUFL),KSEC3(JSEC3)
115 CALL BUNPCK(NBPW,KBUFF,KSEC3(1),NWPT,NBPT,24,KERR)
122 CALL BUNEXS(KSEC3(1))
128 CALL BUNPCK(NBPW,KBUFF,KSEC3(2),NWPT,NBPT,8,KERR)
135 CALL BUNPCK(NBPW,KBUFF,KSEC3(3),NWPT,NBPT,16,KERR)
137 IF(KSEC3(3).LE.0) THEN
151 CALL BUNPCK(NBPW,KBUFF,KSEC3(4),NWPT,NBPT,8,KERR)
162 KSUP(6)= KSEC3(3)
H A Dbufrex.F11 SUBROUTINE BUFREX(KBUFL,KBUFF,KSUP,KSEC0,KSEC1,KSEC2,KSEC3,KSEC4, argument
186 DIMENSION KSEC2(JSEC2),KSEC3(JSEC3),KSEC4(JSEC4)
227 KSEC3(I)=0
276 CALL BUEXS33(KBUFL,KBUFF,KSEC3,KERR)
291 IF(IAND(KSEC3(4),64).EQ.0.AND.KSEC3(3).GT.1) THEN
294 DO I=1,KSEC3(3)
300 CALL BUEXS3(KBUFL,KBUFF,KSUP,KSEC3,KELEM,CNAMES,CUNITS,
304 CALL BUEXS4(KBUFL ,KBUFF ,KSUP ,KSEC3,KSEC4,
317 CALL BUEXS3(KBUFL,KBUFF,KSUP,KSEC3,KELEM,CNAMES,CUNITS,KERR)
325 CALL BUEXS4(KBUFL ,KBUFF ,KSUP ,KSEC3,KSEC4,
[all …]
H A Dbufren.F11 SUBROUTINE BUFREN(KSEC0,KSEC1,KSEC2,KSEC3,KSEC4, argument
172 1, KSEC3(JSEC3),KSEC4(JSEC4)
246 CALL BUENS3( KSEC3,KTDLEN,KTDLST,KBUFL,KBUFF,KERR)
253 IF(IAND(KSEC3(4),64).EQ.0.AND.KSEC3(3).GT.1) THEN
259 DO I=1,KSEC3(3)
264 CALL BUETD(KPT,KTDLEN,KTDLST,KDLEN,KDATA,KSEC3,
268 CALL BUENS4(KSEC3,KSEC4,KELEM,KVALS,VALUES,CVALS,
279 CALL BUETD(KPT,KTDLEN,KTDLST,KDLEN,KDATA,KSEC3,
290 CALL BUENS4(KSEC3,KSEC4,KELEM,KVALS,VALUES,CVALS,
H A Dbuexs33.F11 SUBROUTINE BUEXS33(KBUFL,KBUFF,KSEC3,KERR) argument
73 DIMENSION KSEC3(*)
103 CALL BUNPCK(NBPW,KBUFF,KSEC3(1),NWPT,NBPT,24,KERR)
111 CALL BUNPCK(NBPW,KBUFF,KSEC3(2),NWPT,NBPT,8,KERR)
118 CALL BUNPCK(NBPW,KBUFF,KSEC3(3),NWPT,NBPT,16,KERR)
120 IF(KSEC3(3).LE.0) THEN
127 CALL BUNPCK(NBPW,KBUFF,KSEC3(4),NWPT,NBPT,8,KERR)
H A Dbuens3.F11 SUBROUTINE BUENS3(KSEC3,KTDLEN,KTDLST,KBUFL,KBUFF,KERR) argument
80 DIMENSION KSEC3(JSEC3)
129 IF(KSEC3(3).GT.65535) THEN
135 CALL BUPCK(NBPW,KBUFF(NWPT),KSEC3(3),NWPT,NBPT,16,KERR)
148 IF(KSEC3(3).LE.1) THEN
149 KSEC3(4)=IBCLR(KSEC3(4),6)
151 CALL BUPCK(NBPW,KBUFF(NWPT),KSEC3(4),NWPT,NBPT,8,KERR)
H A Dbuprs3.F11 SUBROUTINE BUPRS3(KSEC3,KTDLEN,KTDLST,KTDEXL,KTDEXP,KELEM,CNAMES) argument
74 DIMENSION KSEC3(JSEC3)
90 1 KSEC3(1)
92 1 KSEC3(2)
94 1 KSEC3(3)
96 1 KSEC3(4)
H A Dbbuprs3.F11 SUBROUTINE BBUPRS3(KNT,KSEC3,KTDLEN,KTDLST,KTDEXL, argument
74 DIMENSION KSEC3(JSEC3)
91 1 KSEC3(1)
93 1 KSEC3(2)
95 1 KSEC3(3)
97 1 KSEC3(4)
H A Dmbufr_mars_filter.F79 DIMENSION KSEC2(JSEC2),KSEC3(JSEC3),KSEC4(JSEC4)
116 CALL BUS0123( KBUFL,KBUFF,KSUP,KSEC0,KSEC1,KSEC2,KSEC3,IERR)
119 IF(KSEC3(3).EQ.1.OR.KSEC3(3).GT.1.AND.
120 1 KSEC3(4).EQ.192.OR.KSEC3(4).EQ.64) THEN
158 CALL BUFREX(KBUFL1,KBUFF,KSUP,KSEC0 ,KSEC1,KSEC2 ,KSEC3 ,KSEC4,
H A Dbu_check_s4s.F10 SUBROUTINE CHECK_S4S(KELEM,KSEC3,KSEC4,KERR) argument
54 DIMENSION KSEC3(*),KSEC4(*)
62 IF(IAND(KSEC3(4),IMASK(7)).NE.0) IB=1
67 IF(NSUBSET.EQ.KSEC3(3)) THEN
68 DO J=1,KSEC3(3)
H A Dbupmrk.F11 SUBROUTINE BUPMRK(KBUFL,KBUFF,KSEC3,KELEM,KERR) argument
87 DIMENSION KSEC3(JSEC3)
106 IF(IAND(KSEC3(4),IMASK(7)).NE.0) IB=1
155 CALL BUGETBM(KBUFL,KBUFF,KSEC3,I222,NR222,IBV,KERR)
202 CALL BUGETBM(KBUFL,KBUFF,KSEC3,I223,NR223,IBV,KERR)
248 CALL BUGETBM(KBUFL,KBUFF,KSEC3,I224,NR224,IBV,KERR)
295 CALL BUGETBM(KBUFL,KBUFF,KSEC3,I225,NR225,IBV,KERR)
423 CALL BUGETBM(KBUFL,KBUFF,KSEC3,I223,NR223,IBV,KERR)
510 CALL BUGETBM(KBUFL,KBUFF,KSEC3,I224,NR224,IBV,KERR)
599 CALL BUGETBM(KBUFL,KBUFF,KSEC3,I225,NR225,IBV,KERR)
[all …]
H A Dbuens4.F224 N=KSEC3(3)
456 DO 401 I=1,KSEC3(3)
588 DO 412 J=1,KSEC3(3)
603 DO 413 J=1,KSEC3(3)
610 DO 414 J=1,KSEC3(3)
619 DO 415 J=1,KSEC3(3)
626 DO 419 J=1,KSEC3(3)
675 DO J=2,KSEC3(3)
741 DO 421 J=1,KSEC3(3)
764 DO J=1,KSEC3(3)-1
[all …]
/dports/misc/libemos/libemos-4.5.9-Source/gribex/
H A Dgrchk3.F12 SUBROUTINE GRCHK3 (KSEC1,KSEC3,PSEC3,KRET) argument
128 INTEGER KSEC3
133 DIMENSION KSEC3(*)
175 IF (KSEC3(1).LT.0.OR.KSEC3(1).GT.65535)
178 WRITE(GRPRSM,9001) KSEC3(1)
H A Dgrprs3.F11 SUBROUTINE GRPRS3 (KSEC0,KSEC3,PSEC3) argument
91 INTEGER KSEC3(*)
104 IF( KSEC3(1).NE.0 ) THEN
105 WRITE(GRPRSM,9003) KSEC3(1)
109 WRITE(GRPRSM,9005) KSEC3(2)
/dports/misc/libemos/libemos-4.5.9-Source/tools/bufrtools_wmo/
H A Dbufr_decode.F73 DIMENSION KSEC2(JSEC2),KSEC3(JSEC3),KSEC4(JSEC4)
309 KEL=KVALS/KSEC3(3)
320 IOBS=IOBS+KSEC3(3)
452 ISUBS=KSEC3(3)
490 KSEC3(3)=NPACK
500 KSEC3(4)=0 ! NO COMPRESSION
510 IF(OCOMP) KSEC3(4)=64 ! COMPRESSION
546 KSEC3(3)=NPACK
556 KSEC3(4)=0 ! NO COMPRESSION
562 IF(OCOMP) KSEC3(4)=64 ! COMPRESSION
[all …]
H A Dbufr_decode_all.F75 DIMENSION KSEC2(JSEC2),KSEC3(JSEC3),KSEC4(JSEC4)
339 KEL=KVALS/KSEC3(3)
348 IOBS=IOBS+KSEC3(3)
482 ISUBS=KSEC3(3)
520 KSEC3(3)=NPACK
530 KSEC3(4)=0 ! NO COMPRESSION
540 IF(OCOMP) KSEC3(4)=64 ! COMPRESSION
576 KSEC3(3)=NPACK
586 KSEC3(4)=0 ! NO COMPRESSION
592 IF(OCOMP) KSEC3(4)=64 ! COMPRESSION
[all …]
H A Dbufr_repack_206t205.F69 DIMENSION KSEC2(JSEC2),KSEC3(JSEC3),KSEC4(JSEC4)
223 CALL BUFREX(KBUFL,KBUFF,KSUP,KSEC0 ,KSEC1,KSEC2 ,KSEC3 ,KSEC4,
230 IOBS=IOBS+KSEC3(3)
281 CALL BUPRS3(KSEC3,KTDLEN,KTDLST,KTDEXL,KTDEXP,KEL,CNAMES)
306 IF(IEND.GT.KSEC3(3)) IEND=KSEC3(3)
377 KSEC3(4)=128
378 IF(KSEC3(3).GT.1) KSEC3(4)=192
379 CALL BUFREN( KSEC0,KSEC1,KSEC2,KSEC3,KSEC4,
H A Dbufr_compress.F69 DIMENSION KSEC2(JSEC2),KSEC3(JSEC3),KSEC4(JSEC4)
262 CALL BUFREX(KBUFL,KBUFF,KSUP,KSEC0 ,KSEC1,KSEC2 ,KSEC3 ,KSEC4,
273 NSUBS=NSUBS+KSEC3(3)
335 KSEC3(3)=N
337 KSEC3(4)=128 ! NO COMPRESSION
338 IF(KSEC3(3).GT.1) KSEC3(4)=192 ! COMPRESSION
370 CALL FMMH( KLA,KLO,KLM,VALUE,KSEC3,RMINLAT,RMINLON,
386 KEY(14)=KSEC3(3)
394 CALL BUFREN( KSEC0,KSEC1,KSEC2,KSEC3,KSEC4,
416 ITOTAL=ITOTAL+KSEC3(3)
H A Dbufr_repack.F69 DIMENSION KSEC2(JSEC2),KSEC3(JSEC3),KSEC4(JSEC4)
232 CALL BUFREX(KBUFL,KBUFF,KSUP,KSEC0 ,KSEC1,KSEC2 ,KSEC3 ,KSEC4,
239 IOBS=IOBS+KSEC3(3)
290 CALL BUPRS3(KSEC3,KTDLEN,KTDLST,KTDEXL,KTDEXP,KEL,CNAMES)
315 IF(IEND.GT.KSEC3(3)) IEND=KSEC3(3)
495 CALL BUCRKEY(KEL,KTDEXP,KSUP,KSEC1,KSEC3,KEY,
511 KSEC3(4)=128
512 IF(KSEC3(3).GT.1) KSEC3(4)=192
513 IF(KSEC3(4).EQ.0) KSEC3(4)=192
514 CALL BUFREN( KSEC0,KSEC1,KSEC2,KSEC3,KSEC4,
H A Dsnow_key_repack.F69 DIMENSION KSEC2(JSEC2),KSEC3(JSEC3),KSEC4(JSEC4)
229 CALL BUFREX(KBUFL,KBUFF,KSUP,KSEC0 ,KSEC1,KSEC2 ,KSEC3 ,KSEC4,
236 IOBS=IOBS+KSEC3(3)
287 CALL BUPRS3(KSEC3,KTDLEN,KTDLST,KTDEXL,KTDEXP,KEL,CNAMES)
312 IF(IEND.GT.KSEC3(3)) IEND=KSEC3(3)
441 KSEC3(4)=128
442 IF(KSEC3(3).GT.1) KSEC3(4)=192
443 CALL BUFREN( KSEC0,KSEC1,KSEC2,KSEC3,KSEC4,
H A Dbufr_repack_satid.F69 DIMENSION KSEC2(JSEC2),KSEC3(JSEC3),KSEC4(JSEC4)
233 CALL BUFREX(KBUFL,KBUFF,KSUP,KSEC0 ,KSEC1,KSEC2 ,KSEC3 ,KSEC4,
240 IOBS=IOBS+KSEC3(3)
291 CALL BUPRS3(KSEC3,KTDLEN,KTDLST,KTDEXL,KTDEXP,KEL,CNAMES)
316 IF(IEND.GT.KSEC3(3)) IEND=KSEC3(3)
427 KSEC3(4)=128
428 IF(KSEC3(3).GT.1) KSEC3(4)=192
430 CALL BUFREN( KSEC0,KSEC1,KSEC2,KSEC3,KSEC4,
H A Dbufr_nt1.F70 DIMENSION KSEC2(JSEC2),KSEC3(JSEC3),KSEC4(JSEC4)
229 CALL BUFREX(KBUFL,KBUFF,KSUP,KSEC0 ,KSEC1,KSEC2 ,KSEC3 ,KSEC4,
266 IOBS=IOBS+KSEC3(3)
317 CALL BUPRS3(KSEC3,KTDLEN,KTDLST,KTDEXL,KTDEXP,KEL,CNAMES)
342 IF(IEND.GT.KSEC3(3)) IEND=KSEC3(3)
372 KSEC3(3)=1 ! ONE SUBSET
375 KSEC3(4)=128 ! NO COMPRESSION
418 CALL BUCRKEY(KEL,KTDEXP,KSUP,KSEC1,KSEC3,KEY,
436 CALL BUFREN( KSEC0,KSEC1,KSEC2,KSEC3,KSEC4,
/dports/misc/libemos/libemos-4.5.9-Source/crexdc/
H A Dcrexex.F11 SUBROUTINE CREXEX(KBUFL,YBUFF,KSUP,KSEC0,KSEC1,KSEC3, argument
159 DIMENSION KSEC3(JSEC3)
193 KSEC3(I)=0
239 CALL CREXS2(KBUFL,YBUFF,KSUP,KSEC3,KELEM,CNAMES,CUNITS,KERR)
244 CALL CREXS2DATA(KBUFL ,YBUFF ,KSUP ,KSEC3,
H A Dcrexprs1.F11 SUBROUTINE CREXPRS1(KSEC1,KSEC3,KTDLEN,KTDLST,KTDEXL,KTDEXP, argument
118 DIMENSION KSEC3(*)
143 WRITE(*,'(1H ,A,I5)')'NUMBER OF SUBSETS ',KSEC3( 3)
163 WRITE(*,'(1H ,A,I5)')'NUMBER OF SUBSETS ',KSEC3( 3)

123