/dports/misc/libemos/libemos-4.5.9-Source/bufrdc_wmo/ |
H A D | bugtll.F | 140 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 D | buexs3.F | 127 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 D | buexs3p.F | 11 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 D | bufrex.F | 11 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 D | bufren.F | 11 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 D | buexs33.F | 11 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 D | buens3.F | 11 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 D | buprs3.F | 11 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 D | bbuprs3.F | 11 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 D | mbufr_mars_filter.F | 79 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 D | bu_check_s4s.F | 10 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 D | bupmrk.F | 11 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 D | buens4.F | 224 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 D | grchk3.F | 12 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 D | grprs3.F | 11 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 D | bufr_decode.F | 73 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 D | bufr_decode_all.F | 75 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 D | bufr_repack_206t205.F | 69 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 D | bufr_compress.F | 69 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 D | bufr_repack.F | 69 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 D | snow_key_repack.F | 69 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 D | bufr_repack_satid.F | 69 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 D | bufr_nt1.F | 70 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 D | crexex.F | 11 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 D | crexprs1.F | 11 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)
|