source:
trunk/procs/betar.pro
@
8
Last change on this file since 8 was 2, checked in by post_it, 17 years ago | |
---|---|
File size: 206 bytes |
Line | |
---|---|
1 | FUNCTION betar, t, s, p |
2 | ; |
3 | ; compute beta= 1/rho (d rho / d S) |
4 | ; |
5 | ds = 0.01 |
6 | siga = eos(t, s)-1000. |
7 | sigb = eos(t, s+ds)-1000. |
8 | |
9 | be = 0.001*(sigb-siga)/ds/(1.+1.e-3*siga) |
10 | |
11 | return, be |
12 | |
13 | END |
Note: See TracBrowser
for help on using the repository browser.