Go to the source code of this file.
|
subroutine | dsd (Q, Re, D, N, nsizes, dtype, rho_a, tc, dmin, dmax, apm, bpm, rho_c, p1, p2, p3, fc, scaled) |
|
subroutine dsd |
( |
real*8, intent(in) |
Q, |
|
|
real*8, intent(inout) |
Re, |
|
|
real*8, dimension(nsizes), intent(in) |
D, |
|
|
real*8, dimension(nsizes), intent(out) |
N, |
|
|
integer*4, intent(in) |
nsizes, |
|
|
integer, intent(in) |
dtype, |
|
|
real*8, intent(in) |
rho_a, |
|
|
real*8, intent(in) |
tc, |
|
|
real*8, intent(in) |
dmin, |
|
|
real*8, intent(in) |
dmax, |
|
|
real*8, intent(inout) |
apm, |
|
|
real*8, intent(inout) |
bpm, |
|
|
real*8, intent(in) |
rho_c, |
|
|
real*8, intent(in) |
p1, |
|
|
real*8, intent(in) |
p2, |
|
|
real*8, intent(in) |
p3, |
|
|
real*8, dimension(nsizes), intent(inout) |
fc, |
|
|
logical, intent(inout) |
scaled |
|
) |
| |