region_index Function

private pure function region_index(region) result(k)

The index in self%region of SHADOW_UMBRA, SHADOW_PENUMBRA or SHADOW_ANTUMBRA (0 for anything else).

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: region

SHADOW_UMBRA, SHADOW_PENUMBRA or SHADOW_ANTUMBRA

Return Value integer


Called by

proc~~region_index~~CalledByGraph proc~region_index region_index proc~region_color ShadowCones%region_color proc~region_color->proc~region_index proc~region_extent ShadowCones%region_extent proc~region_extent->proc~region_index proc~set_region_color ShadowCones%set_region_color proc~set_region_color->proc~region_index

Source Code

    pure integer function region_index(region) result(k)
        integer, intent(in) :: region                       !! SHADOW_UMBRA, SHADOW_PENUMBRA or SHADOW_ANTUMBRA
        select case (region)
        case (SHADOW_UMBRA)
            k = umbra
        case (SHADOW_PENUMBRA)
            k = penumbra
        case (SHADOW_ANTUMBRA)
            k = antumbra
        case default
            k = 0
        end select
    end function region_index