dispersion_module Module


Uses


Variables

Type Visibility Attributes Name Initial
real(kind=wp), public :: yn3

common /abefo/ yn3
integer, public :: ivar

common /bdeo/ ivar

integer, public :: icall1
integer, public :: icall2
integer, public :: izn

common /abcde/ izn
real(kind=wp), public :: ynpopq

common /bcef/ ynz,ynpopq
integer, public :: iconv

common /cefn/ iconv,irefl
integer, public :: irefl

common /cefn/ iconv,irefl
integer, public :: ipow

common /ceg/ ipow,jfoundr
integer, public :: jfoundr

common /ceg/ ipow,jfoundr
real(kind=wp), public :: dhdm

common/fj/dhdm,dhdnr,dhdtet,dhdr,ddn,dhdn3,dhdv2v,dhdu2u
real(kind=wp), public :: dhdtet

common/fj/dhdm,dhdnr,dhdtet,dhdr,ddn,dhdn3,dhdv2v,dhdu2u
real(kind=wp), public :: dhdr

common/fj/dhdm,dhdnr,dhdtet,dhdr,ddn,dhdn3,dhdv2v,dhdu2u
real(kind=wp), public :: ddn

common/fj/dhdm,dhdnr,dhdtet,dhdr,ddn,dhdn3,dhdv2v,dhdu2u
real(kind=wp), public :: dhdn3

common/fj/dhdm,dhdnr,dhdtet,dhdr,ddn,dhdn3,dhdv2v,dhdu2u
real(kind=wp), public :: dhdv2v

common/fj/dhdm,dhdnr,dhdtet,dhdr,ddn,dhdn3,dhdv2v,dhdu2u
real(kind=wp), public :: dhdu2u

common/fj/dhdm,dhdnr,dhdtet,dhdr,ddn,dhdn3,dhdv2v,dhdu2u
real(kind=wp), public :: znakstart

common/direct/znakstart
real(kind=wp), public :: ham

common/fjham/ham
integer, public :: idec
real(kind=wp), public :: pdec14

common /df/ pdec14,pdec24,pdec34,idec
real(kind=wp), public :: pdec24

common /df/ pdec14,pdec24,pdec34,idec
real(kind=wp), public :: pdec34

common /df/ pdec14,pdec24,pdec34,idec

Functions

public function dhdomega(rho, theta, yn1, yn2) result(znak)

вычисляет znakstart !!! w*dH/dw=wdhdw:

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: rho
real(kind=wp), intent(in) :: theta
real(kind=wp), intent(inout) :: yn1
real(kind=wp), intent(in) :: yn2

Return Value real(kind=wp)


Subroutines

public subroutine disp2_ider0(pa, yn2, ptet, xnro)

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: pa
real(kind=wp), intent(in) :: yn2
real(kind=wp), intent(in) :: ptet
real(kind=wp), intent(out) :: xnro

public subroutine disp2(pa, yn2, ptet, xnro, prt, prm)

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: pa
real(kind=wp), intent(in) :: yn2
real(kind=wp), intent(in) :: ptet
real(kind=wp), intent(out) :: xnro
real(kind=wp), intent(out) :: prt
real(kind=wp), intent(out) :: prm

public subroutine disp2_iroot3(pa, yn2, ptet, xnro, pg1, pg2, pg3, pg4)

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: pa
real(kind=wp), intent(in) :: yn2
real(kind=wp), intent(in) :: ptet
real(kind=wp), intent(in) :: xnro
real(kind=wp), intent(out) :: pg1
real(kind=wp), intent(out) :: pg2
real(kind=wp), intent(out) :: pg3
real(kind=wp), intent(out) :: pg4

public subroutine disp2_iroot2(pa, yn2, ptet, prt, prm)

!!! old variant:

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: pa
real(kind=wp), intent(in) :: yn2
real(kind=wp), intent(in) :: ptet
real(kind=wp), intent(out) :: prt
real(kind=wp), intent(out) :: prm

public subroutine disp4(in_pa, ptet, xnr, yn2)

!!! pn=fn1(pa,fnr) pn=fn2(pa,fnr,fnrr) !!!!!!!!!!!!!!!!!!!!!!!!!!!!! dl=bs2-4d0asbs

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: in_pa
real(kind=wp), intent(in) :: ptet
real(kind=wp), intent(inout) :: xnr
real(kind=wp), intent(in) :: yn2

public subroutine extd4(x, y, dydx)

!!!

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: x
real(kind=wp), intent(in) :: y(:)
real(kind=wp), intent(inout) :: dydx(:)