anglemod Module

Provides angle calculations and coordinate transformations


Uses

  • module~~anglemod~~UsesGraph module~anglemod anglemod module~fatalerror FatalError module~anglemod->module~fatalerror module~mathconstants MathConstants module~anglemod->module~mathconstants module~sortmod SortMod module~anglemod->module~sortmod module~sourcereceiverpositions SourceReceiverPositions module~anglemod->module~sourcereceiverpositions module~subtabulate SubTabulate module~anglemod->module~subtabulate module~sourcereceiverpositions->module~fatalerror module~sourcereceiverpositions->module~sortmod module~sourcereceiverpositions->module~subtabulate module~monotonicmod monotonicMod module~sourcereceiverpositions->module~monotonicmod

Used by

  • module~~anglemod~~UsedByGraph module~anglemod anglemod proc~bellhopcore BellhopCore proc~bellhopcore->module~anglemod proc~openoutputfiles OpenOutputFiles proc~openoutputfiles->module~anglemod proc~readenvironment ReadEnvironment proc~readenvironment->module~anglemod program~bellhop BELLHOP program~bellhop->module~anglemod

Variables

Type Visibility Attributes Name Initial
integer, public :: ialpha
integer, public :: ibeta
type(AnglesStructure), public :: Angles

Derived Types

type, public ::  AnglesStructure

Components

Type Visibility Attributes Name Initial
integer, public :: Nalpha = 0
integer, public :: Nbeta = 1
integer, public :: iSingle_alpha = 0
integer, public :: iSingle_beta = 0
real(kind=8), public :: Dalpha
real(kind=8), public :: Dbeta
real(kind=8), public, ALLOCATABLE :: alpha(:)
real(kind=8), public, ALLOCATABLE :: beta(:)

Subroutines

public subroutine ReadRayElevationAngles(freq, Depth, TopOpt, RunType)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(in) :: freq
real(kind=8), intent(in) :: Depth
character(len=6), intent(in) :: TopOpt
character(len=6), intent(in) :: RunType

public subroutine ReadRayBearingAngles(freq, TopOpt, RunType)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(in) :: freq
character(len=6), intent(in) :: TopOpt
character(len=6), intent(in) :: RunType