msta1 Function

public function msta1(x, mp)

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

Arguments

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

Return Value integer(kind=4)


Calls

proc~~msta1~~CallsGraph proc~msta1 msta1 proc~envj envj proc~msta1->proc~envj

Called by

proc~~msta1~~CalledByGraph proc~msta1 msta1 proc~rctj rctj proc~rctj->proc~msta1 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 :: f
real(kind=8), public :: f0
real(kind=8), public :: f1
integer(kind=4), public :: it
integer(kind=4), public :: n0
integer(kind=4), public :: n1
integer(kind=4), public :: nn