This is wconst.c in view mode; [Download] [Up]
/* -----------------------------------------------------------------*/
double mfabs(x)
double x;
{
if (x < 0.0)
return (x * -1.0);
else
return x;
}
/* -----------------------------------------------------------------*/
void HGKcon()
{
tpoint.Ttripl = 273.16;
tpoint.Ptripl = 0.00611731677193563186622762580414;
tpoint.Dltrip = 0.999778211030936587977889295063;
tpoint.Dvtrip = 0.00000485467583448287303988319166423;
HGKbnd.Ttop = 2250.0;
HGKbnd.Tbtm = -20.0;
HGKbnd.Ptop = 30000.0;
HGKbnd.Pbtm = 0.001;
HGKbnd.Dtop = 1.38074666423686955066817336896;
HGKbnd.Dbtm = 0.0000000858745555396173972667420987465;
liqice.sDli1 = -0.00584797401732178547634910059828;
liqice.sPli1 = -138.180804975562958027981345769;
liqice.sDli37 = 0.00183244000000000000000000000007;
liqice.sPli37 = 174.536874999999999999999999995;
liqice.sDIB30 = -0.000168375439429928741092636579574;
liqice.Tli13 = -15.0;
liqice.Pli13 = 2074.1;
liqice.Dli13 = 1.08755631570602617113573577945;
liqice.TnIB30 = 145.0;
liqice.DnIB30 = 1.02631640581853166397515716306;
tolers.TTOL = 0.000001;
tolers.PTOL = 0.000001;
tolers.DTOL = 0.000000001;
tolers.XTOL = 0.00001;
tolers.EXPTOL = -673.5;
tolers.FPTOL = 0.0000001;
HGKcrt.tcHGK = 647.126;
HGKcrt.dcHGK = 322.0;
HGKcrt.pcHGK = 22.055;
aconst.wm = 18.01520000;
aconst.gascon = 0.46152200;
aconst.tz = 647.073;
aconst.aa = 1.0;
aconst.uref = -4328.455039;
aconst.sref = 7.6180802;
ellcon.g1 = 11.0;
ellcon.g2 = 44.333333333333;
ellcon.gf = 3.5;
return;
};
/* -----------------------------------------------------------------*/
void LVScon()
{
crits.Tc = 647.067;
crits.rhoc = 322.778;
crits.Pc = 22.046;
crits.Pcon = 0.034070660379837018423130834983;
crits.Ucon = 22046.0;
crits.Scon = 34.070660379837018423130834983;
crits.dPcon = 0.000000327018783663660700780197;
return;
}
/* -----------------------------------------------------------------*/
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.