ReadRcvrRanges Subroutine

public subroutine ReadRcvrRanges()

Arguments

None

Calls

proc~~readrcvrranges~~CallsGraph proc~readrcvrranges ReadRcvrRanges interface~monotonic monotonic proc~readrcvrranges->interface~monotonic proc~errout ERROUT proc~readrcvrranges->proc~errout proc~readvector ReadVector proc~readrcvrranges->proc~readvector proc~monotonic_dble monotonic_dble interface~monotonic->proc~monotonic_dble proc~monotonic_sngl monotonic_sngl interface~monotonic->proc~monotonic_sngl proc~readvector->proc~errout interface~sort Sort proc~readvector->interface~sort interface~subtab SubTab proc~readvector->interface~subtab proc~sort_cmplx Sort_cmplx interface~sort->proc~sort_cmplx proc~sort_dble Sort_dble interface~sort->proc~sort_dble proc~sort_sngl Sort_sngl interface~sort->proc~sort_sngl proc~subtab_dble SubTab_dble interface~subtab->proc~subtab_dble proc~subtab_sngl SubTab_sngl interface~subtab->proc~subtab_sngl

Called by

proc~~readrcvrranges~~CalledByGraph proc~readrcvrranges ReadRcvrRanges proc~readenvironment ReadEnvironment proc~readenvironment->proc~readrcvrranges program~bellhop BELLHOP program~bellhop->proc~readenvironment program~bellhop3d BELLHOP3D program~bellhop3d->proc~readenvironment

Source Code

  SUBROUTINE ReadRcvrRanges

    CALL ReadVector( Pos%NRr, Pos%Rr, 'Receiver r-coordinates, Rr', 'km' )

    ! calculate range spacing
    Pos%delta_r = 0.0
    IF ( Pos%NRr /= 1 ) Pos%delta_r = Pos%Rr( Pos%NRr ) - Pos%Rr( Pos%NRr - 1 )

    IF ( .NOT. monotonic( Pos%rr, Pos%NRr ) ) THEN
       CALL ERROUT( 'ReadRcvrRanges', 'Receiver ranges are not monotonically increasing' )
    END IF

    RETURN
  END SUBROUTINE ReadRcvrRanges