IncPhaseIfCaustic Subroutine

public subroutine IncPhaseIfCaustic(qleq0)

phase shifts at caustics

Arguments

Type IntentOptional Attributes Name
logical, intent(in) :: qleq0

Calls

proc~~incphaseifcaustic~~CallsGraph proc~incphaseifcaustic IncPhaseIfCaustic proc~isatcaustic IsAtCaustic proc~incphaseifcaustic->proc~isatcaustic

Called by

proc~~incphaseifcaustic~~CalledByGraph proc~incphaseifcaustic IncPhaseIfCaustic proc~influencegeogaussiancart InfluenceGeoGaussianCart proc~influencegeogaussiancart->proc~incphaseifcaustic proc~influencegeohatcart InfluenceGeoHatCart proc~influencegeohatcart->proc~incphaseifcaustic proc~influencegeohatraycen InfluenceGeoHatRayCen proc~influencegeohatraycen->proc~incphaseifcaustic proc~influencesgb InfluenceSGB proc~influencesgb->proc~incphaseifcaustic proc~bellhopcore BellhopCore proc~bellhopcore->proc~influencegeogaussiancart proc~bellhopcore->proc~influencegeohatcart proc~bellhopcore->proc~influencegeohatraycen proc~bellhopcore->proc~influencesgb proc~bellhopcore~2 BellhopCore proc~bellhopcore~2->proc~influencegeogaussiancart proc~bellhopcore~2->proc~influencegeohatcart proc~bellhopcore~2->proc~influencegeohatraycen proc~bellhopcore~2->proc~influencesgb program~bellhop BELLHOP program~bellhop->proc~bellhopcore~2 program~bellhop3d BELLHOP3D program~bellhop3d->proc~bellhopcore

Source Code

  SUBROUTINE IncPhaseIfCaustic( qleq0 )

    !! phase shifts at caustics

    LOGICAL, INTENT( IN ) :: qleq0

    IF ( IsAtCaustic( qleq0 ) ) &
       phase = phase + pi / 2.

  END SUBROUTINE IncPhaseIfCaustic