msta2 Function

public function msta2(x, n, mp)

determines a backward recurrence starting point for Jn(x).

Arguments

Type IntentOptional Attributes Name
real(kind=8) :: x
integer(kind=4) :: n
integer(kind=4) :: mp

Return Value integer(kind=4)


Calls

proc~~msta2~~CallsGraph proc~msta2 msta2 proc~envj envj proc~msta2->proc~envj

Called by

proc~~msta2~~CalledByGraph proc~msta2 msta2 proc~rctj rctj proc~rctj->proc~msta2 proc~riccati_bessel_j riccati_bessel_j proc~riccati_bessel_j->proc~rctj proc~calculate_k_matrix calculate_k_matrix proc~calculate_k_matrix->proc~riccati_bessel_j program~scattering SCATTERING program~scattering->proc~calculate_k_matrix

Contents


Variables

Type Visibility Attributes Name Initial
real(kind=8), public :: a0
real(kind=8), public :: ejn
real(kind=8), public :: f
real(kind=8), public :: f0
real(kind=8), public :: f1
real(kind=8), public :: hmp
integer(kind=4), public :: it
integer(kind=4), public :: n0
integer(kind=4), public :: n1
integer(kind=4), public :: nn
real(kind=8), public :: obj