inorout Subroutine

public subroutine inorout(tsh, x, dnsk, vsk, vnx)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: tsh
real(kind=real64), intent(in) :: x(6)
real(kind=real64), intent(inout) :: dnsk
real(kind=real64), intent(out) :: vsk
real(kind=real64), intent(out) :: vnx(3)

Common Blocks

read_param (subroutine)
cofm (subroutine)
solarwind1 (function)
f0mod (subroutine)
split (subroutine)
vfunc (subroutine)
solarwind (subroutine)
drvbmag (subroutine)
preparecme (subroutine)
walk3d (subroutine)
sim3d (program)
walk3d (subroutine)
sim3d_em (program)
walk3d (subroutine)
sksurface (subroutine)
shockfront (program)
"> common /bpark/

Type Attributes Name Initial
real(kind=real64) :: b1au
real(kind=real64) :: densw0
real(kind=real64) :: facip
real(kind=real64) :: k4ok2
real(kind=real64) :: k6ok2
real(kind=real64) :: omega
real(kind=real64) :: vom
real(kind=real64) :: vsw

preparecme (subroutine)
sksurface (subroutine)
"> common /cmesk/

Type Attributes Name Initial
real(kind=real64) :: acsk
integer :: nsk
real(kind=real64) :: pexsk(0:144,8)
real(kind=real64) :: pska(20,8)
real(kind=real64) :: tska(20)
real(kind=real64) :: vskf0

prepareptcl (subroutine)
split (subroutine)
preparecme (subroutine)
walk3d (subroutine)
sim3d (program)
walk3d (subroutine)
sim3d_em (program)
walk3d (subroutine)
sksurface (subroutine)
shockfront (program)
"> common /tmprm/

Type Attributes Name Initial
real(kind=real64) :: dmapjul
real(kind=real64) :: t0org
real(kind=real64) :: tcme0
real(kind=real64) :: tdl
real(kind=real64) :: te

preparecme (subroutine)
sim3d (program)
sksurface (subroutine)
"> common /vsksw/

Type Attributes Name Initial
real(kind=real64) :: tauc1_0
real(kind=real64) :: tauc2
real(kind=real64) :: tauc2_0
real(kind=real64) :: tauf
real(kind=real64) :: vcme0
real :: vcme0kmPs
real(kind=real64) :: vsksw