39
|
1 |
#======================================================================
|
|
2 |
# . I S O P Y C N A L _ T S . S I G M A 0
|
|
3 |
# doc: Mon Dec 19 12:28:01 2005
|
|
4 |
# dlm: Mon Dec 19 13:27:24 2005
|
|
5 |
# (c) 2005 A.M. Thurnherr
|
|
6 |
# uE-Info: 19 56 NIL 0 0 72 0 2 4 NIL ofnI
|
|
7 |
#======================================================================
|
|
8 |
|
|
9 |
# HISTORY:
|
|
10 |
# Dec 19, 2005: - created
|
|
11 |
|
|
12 |
require "$ANTS/libEOS83.pl"; # load equation of state
|
|
13 |
|
|
14 |
unless (defined($P{ITS})) {
|
|
15 |
&antsInfo("using default %ITS=90");
|
|
16 |
&antsAddParams(ITS,90);
|
|
17 |
}
|
|
18 |
|
|
19 |
&antsInfo("Warning: ignoring non-zero %press = $P{press}")
|
|
20 |
if ($P{press} != 0);
|
|
21 |
$P{press} = 0;
|
|
22 |
|
|
23 |
sub density($$)
|
|
24 |
{
|
|
25 |
my($S,$T) = @_;
|
|
26 |
return sigma($S,$T,$P{press},0);
|
|
27 |
}
|
|
28 |
|
|
29 |
1;
|