SUBROUTINE VCNCT(XL,YL,XH,YH,YPL,YPH)
      INTEGER*2 XL,YL,XH,YH,YPL,YPH,YN,YC
      REAL*4    XFAC,XOFF
      INTEGER*2 XTYPE,XMAXB,XSMINB,XSMAXB,XSNOWB
      COMMON/VXDES/XFAC,XOFF,XTYPE,XMAXB,XSMINB,XSMAXB,XSNOWB
      IF(XH-XL)1000,2000,3000
1000  YPL=0
      YPH=0
      RETURN
2000  IF(XL.NE.XSNOWB)GO TO 1000
      YPL=YL
      YPH=YH
      RETURN
3000  SLOPE=FLOAT(YH-YL)/FLOAT(XH-XL)
      YC=YL+FLOAT(XSNOWB-XL)*SLOPE+.5
      IF(ABS(SLOPE).GT.1.0)GO TO 3010
      NPTS=0
      GO TO 4000
3010  CONTINUE
      YN=YL+FLOAT(XSNOWB+1-XL)*SLOPE+.5
      NPTS=IABS(YN-YC)/2
4000  CONTINUE
      YPL=YC-NPTS
      YPH=YC+NPTS
      RETURN
      END