Go to the source code of this file.
|
subroutine | comenv (M01, M1, MC1, AJ1, JSPIN1, KW1, M02, M2, MC2, AJ2, JSPIN2, KW2, ECC, SEP, COEL) |
|
subroutine comenv |
( |
real*8 |
M01, |
|
|
real*8 |
M1, |
|
|
real*8 |
MC1, |
|
|
real*8 |
AJ1, |
|
|
real*8 |
JSPIN1, |
|
|
integer |
KW1, |
|
|
real*8 |
M02, |
|
|
real*8 |
M2, |
|
|
real*8 |
MC2, |
|
|
real*8 |
AJ2, |
|
|
real*8 |
JSPIN2, |
|
|
integer |
KW2, |
|
|
real*8 |
ECC, |
|
|
real*8 |
SEP, |
|
|
logical |
COEL |
|
) |
| |
Definition at line 2 of file comenv.f.
References celamf(), const(), dgcore(), ecirc(), gntage(), hrdiag(), rl(), rzamsf(), and star().
Referenced by expel(), expel2(), and roche().