C**********************************************************
C**********************************************************
C
      FUNCTION UBAR( ZZ )
C
C**********************************************************
      IMPLICIT REAL*8 ( A-H, O-Z )
C**********************************************************
C
C     UBAR = 1.5D0 *
C    \     MAX( -9.0D0, MIN( 0.0D0,
C    \       (( ZZ - 1.0D+4 ) / 1.0D+3 )      ) )
      UBAR = 0.0D0
      RETURN
      END
