ray3DPt Derived Type
type, public :: ray3DPt
Components
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=8), | public | :: | p_tilde(2) | ||||
| real(kind=8), | public | :: | q_tilde(2) | ||||
| real(kind=8), | public | :: | p_hat(2) | ||||
| real(kind=8), | public | :: | q_hat(2) | ||||
| real(kind=8), | public | :: | DetQ | ||||
| real(kind=8), | public | :: | x(3) | ||||
| real(kind=8), | public | :: | t(3) | ||||
| real(kind=8), | public | :: | phi | ||||
| real(kind=8), | public | :: | c | ||||
| real(kind=8), | public | :: | Amp | ||||
| real(kind=8), | public | :: | Phase | ||||
| integer, | public | :: | NumTopBnc | ||||
| integer, | public | :: | NumBotBnc | ||||
| complex(kind=8), | public | :: | tau |
Source Code
TYPE ray3DPt REAL (KIND=8) :: p_tilde( 2 ), q_tilde( 2 ), p_hat( 2 ), q_hat( 2 ), DetQ REAL (KIND=8) :: x( 3 ), t( 3 ), phi, c, Amp, Phase INTEGER :: NumTopBnc, NumBotBnc ! COMPLEX (KIND=8) :: p_tilde( 2 ), q_tilde( 2 ), p_hat( 2 ), q_hat( 2 ), f, g, h, DetP, DetQ COMPLEX (KIND=8) :: tau END TYPE ray3DPt