monotonic_sngl Function

public function monotonic_sngl(x, N)

Tests if single precision vector is monotonically increasing

Arguments

Type IntentOptional Attributes Name
real(kind=4), intent(in), DIMENSION( N ) :: x
integer, intent(in) :: N

Return Value logical


Called by

proc~~monotonic_sngl~~CalledByGraph proc~monotonic_sngl monotonic_sngl interface~monotonic monotonic interface~monotonic->proc~monotonic_sngl proc~hexahedral Hexahedral proc~hexahedral->interface~monotonic proc~quad Quad proc~quad->interface~monotonic proc~readati ReadATI proc~readati->interface~monotonic proc~readati3d ReadATI3D proc~readati3d->interface~monotonic proc~readbty ReadBTY proc~readbty->interface~monotonic proc~readbty3d ReadBTY3D proc~readbty3d->interface~monotonic proc~readpat ReadPat proc~readpat->interface~monotonic proc~readrcvrbearings ReadRcvrBearings proc~readrcvrbearings->interface~monotonic proc~readrcvrranges ReadRcvrRanges proc~readrcvrranges->interface~monotonic proc~readreflectioncoefficient ReadReflectionCoefficient proc~readreflectioncoefficient->interface~monotonic proc~evaluatessp EvaluateSSP proc~evaluatessp->proc~hexahedral proc~evaluatessp->proc~quad proc~evaluatessp3d EvaluateSSP3D proc~evaluatessp3d->proc~hexahedral proc~readenvironment ReadEnvironment proc~readenvironment->proc~readrcvrbearings proc~readenvironment->proc~readrcvrranges proc~readenvironment->proc~evaluatessp program~bellhop BELLHOP program~bellhop->proc~readati program~bellhop->proc~readbty program~bellhop->proc~readpat program~bellhop->proc~readreflectioncoefficient program~bellhop->proc~readenvironment proc~bellhopcore~2 BellhopCore program~bellhop->proc~bellhopcore~2 program~bellhop3d BELLHOP3D program~bellhop3d->proc~readati3d program~bellhop3d->proc~readbty3d program~bellhop3d->proc~readpat program~bellhop3d->proc~readreflectioncoefficient program~bellhop3d->proc~readenvironment proc~bellhopcore BellhopCore program~bellhop3d->proc~bellhopcore proc~bellhopcore->proc~evaluatessp3d proc~influencecervenycart InfluenceCervenyCart proc~bellhopcore->proc~influencecervenycart proc~traceray3d TraceRay3D proc~bellhopcore->proc~traceray3d proc~traceray2d TraceRay2D proc~bellhopcore->proc~traceray2d proc~bellhopcore~2->proc~evaluatessp proc~bellhopcore~2->proc~influencecervenycart proc~traceray2d~2 TraceRay2D proc~bellhopcore~2->proc~traceray2d~2 proc~evaluatessp2d EvaluateSSP2D proc~evaluatessp2d->proc~evaluatessp3d proc~influencecervenycart->proc~evaluatessp proc~reflect2d~2 Reflect2D proc~reflect2d~2->proc~evaluatessp proc~reflect3d Reflect3D proc~reflect3d->proc~evaluatessp3d proc~step2d Step2D proc~step2d->proc~evaluatessp proc~step3d Step3D proc~step3d->proc~evaluatessp3d proc~traceray2d~2->proc~evaluatessp proc~traceray2d~2->proc~reflect2d~2 proc~traceray2d~2->proc~step2d proc~reflect2d Reflect2D proc~reflect2d->proc~evaluatessp2d proc~step2d~2 Step2D proc~step2d~2->proc~evaluatessp2d proc~traceray3d->proc~reflect3d proc~traceray3d->proc~step3d proc~traceray2d->proc~reflect2d proc~traceray2d->proc~step2d~2

Source Code

  FUNCTION monotonic_sngl( x, N )
    !! Tests if single precision vector is monotonically increasing

    LOGICAL :: monotonic_sngl
    INTEGER,                       INTENT( IN ) :: N
    REAL (KIND=4), DIMENSION( N ), INTENT( IN ) :: x

    monotonic_sngl = .TRUE.
    IF ( N == 1 ) RETURN
    IF ( ANY( x( 2 : N ) <= x( 1 : N - 1 ) ) ) monotonic_sngl = .FALSE.

  END FUNCTION monotonic_sngl