Index: ncarg2d/src/libncarg/labelbar/lbsetr.f =================================================================== --- ncarg2d/src/libncarg/labelbar/lbsetr.f 2005-08-12 16:24:15.000000000 +0000 +++ ncarg2d/src/libncarg/labelbar/lbsetr.f 2005-08-12 20:55:54.000000000 +0000 @@ -34,7 +34,7 @@ C C C Declare the common block where internal parameters are stored. C - COMMON /LBCOMN/ ICBL,ICFL,ICLB,WOBL,WOFL,WOLB + COMMON /LBCOMN/ ICBL,ICFL,ICLB,WOBL,WOFL,WOLB,SOLB SAVE /LBCOMN/ C C Declare the block data routine external to force it to load. @@ -72,6 +72,8 @@ C WOFL=MAX(0.,RVAL) ELSE IF (WHCH(1:3).EQ.'WLB'.OR.WHCH(1:3).EQ.'wlb') THEN WOLB=MAX(0.,RVAL) + ELSE IF (WHCH(1:3).EQ.'SLB'.OR.WHCH(1:3).EQ.'slb') THEN + SOLB=MAX(0.,RVAL) ELSE CTMP(1:36)='LBSETR - PARAMETER NAME NOT KNOWN - ' CTMP(37:39)=WHCH(1:3) Index: ncarg2d/src/libncarg/labelbar/lblbar.f =================================================================== --- ncarg2d/src/libncarg/labelbar/lblbar.f 2005-08-12 16:19:56.000000000 +0000 +++ ncarg2d/src/libncarg/labelbar/lblbar.f 2005-11-28 19:20:26.000000000 +0000 @@ -84,7 +84,7 @@ C C C Declare the common block where internal parameters are stored. C - COMMON /LBCOMN/ ICBL,ICFL,ICLB,WOBL,WOFL,WOLB + COMMON /LBCOMN/ ICBL,ICFL,ICLB,WOBL,WOFL,WOLB,SOLB SAVE /LBCOMN/ C C Declare the block data routine external to force it to load. @@ -329,6 +329,7 @@ C + WCHR=MIN(WCHR,WCHO*((1.-XPB1)/(DSTR+WCHO))) IF (XPB1-XPLL.LT.DRLL+DSTL+2.*WCHO) + WCHR=MIN(WCHR,WCHO*((XPB1-XPLL)/(DRLL+DSTL+2.*WCHO))) + IF (SOLB.GT.0) WCHR=SOLB HMAX=MAX(HMAX,DSTB+DSTT+WCHO)*(WCHR/WCHO) ELSE IF ((1.-WSFB)*WSOB.LT.RMUL*(DSTL+DSTR+2.*WCHO)) @@ -337,6 +338,7 @@ C + WCHR=MIN(WCHR,WCHO*((1.-YPB1)/(DSTT+.5*WCHO))) IF (YPB1-YPLL.LT.DTLL+DSTB+WCHO) + WCHR=MIN(WCHR,WCHO*((YPB1-YPLL)/(DTLL+DSTB+WCHO))) + IF (SOLB.GT.0) WCHR=SOLB END IF XPLL=XPB1 YPLL=YPB1 Index: ncarg2d/src/libncarg/labelbar/lbgetr.f =================================================================== --- ncarg2d/src/libncarg/labelbar/lbgetr.f 2005-08-12 16:24:08.000000000 +0000 +++ ncarg2d/src/libncarg/labelbar/lbgetr.f 2005-08-12 20:54:36.000000000 +0000 @@ -35,7 +35,7 @@ C C C Declare the common block where internal parameters are stored. C - COMMON /LBCOMN/ ICBL,ICFL,ICLB,WOBL,WOFL,WOLB + COMMON /LBCOMN/ ICBL,ICFL,ICLB,WOBL,WOFL,WOLB,SOLB SAVE /LBCOMN/ C C Declare the block data routine external to force it to load. @@ -73,6 +73,8 @@ C RVAL=WOFL ELSE IF (WHCH(1:3).EQ.'WLB'.OR.WHCH(1:3).EQ.'wlb') THEN RVAL=WOLB + ELSE IF (WHCH(1:3).EQ.'SLB'.OR.WHCH(1:3).EQ.'slb') THEN + RVAL=SOLB ELSE CTMP(1:36)='LBGETR - PARAMETER NAME NOT KNOWN - ' CTMP(37:39)=WHCH(1:3) Index: ncarg2d/src/libncarg/labelbar/lbblda.f =================================================================== --- ncarg2d/src/libncarg/labelbar/lbblda.f 2005-08-12 16:28:35.000000000 +0000 +++ ncarg2d/src/libncarg/labelbar/lbblda.f 2005-08-12 20:55:06.000000000 +0000 @@ -27,7 +27,7 @@ C parameters for LBLBAR. C C Declare the common block where internal parameters are stored. C - COMMON /LBCOMN/ ICBL,ICFL,ICLB,WOBL,WOFL,WOLB + COMMON /LBCOMN/ ICBL,ICFL,ICLB,WOBL,WOFL,WOLB,SOLB SAVE /LBCOMN/ C C ICBL is the color index to be used for box lines. A negative value @@ -64,4 +64,11 @@ C than or equal to zero implies that lin C DATA WOLB / 0. / C +C SOLB is the desired size of the characters to be used when plotting +C labels (which will only affect characters drawn by software). A +C value less than or equal to zero implies that the character size is +C determined automatically. +C + DATA SOLB / 0. / +C END