.
#======================================================================
# . I S O P Y C N A L _ T S . S I G M A 0
# doc: Mon Dec 19 12:28:01 2005
# dlm: Mon Dec 19 13:27:24 2005
# (c) 2005 A.M. Thurnherr
# uE-Info: 19 56 NIL 0 0 72 0 2 4 NIL ofnI
#======================================================================
# HISTORY:
# Dec 19, 2005: - created
require "$ANTS/libEOS83.pl"; # load equation of state
unless (defined($P{ITS})) {
&antsInfo("using default %ITS=90");
&antsAddParams(ITS,90);
}
&antsInfo("Warning: ignoring non-zero %press = $P{press}")
if ($P{press} != 0);
$P{press} = 0;
sub density($$)
{
my($S,$T) = @_;
return sigma($S,$T,$P{press},0);
}
1;