      FUNCTION PC2H6(T)
C THIS FUNCTION RETURNS THE VAPOR PRESSURE IN BARS.
C BASED ON THE FORMULA NUMBER (7) PAGE 11 OF
C NBS TECHNICAL PB-151 363
       PC2H6=(1./760.)*10.**(8.5812- (965.4/T) )
       RETURN
       END
