extents_are Interface

public interface extents_are

Find the extents of an array

Called by

interface~~extents_are~~CalledByGraph interface~extents_are extents_are proc~rte_lw rte_lw proc~rte_lw->interface~extents_are

Contents


Module Procedures

private function extents_are_1d(array, n1)

Arguments

TypeIntentOptionalAttributesName
real(kind=wp), intent(in), dimension(: ):: array
integer, intent(in) :: n1

Return Value logical(kind=wl)

private function extents_are_2d(array, n1, n2)

Arguments

TypeIntentOptionalAttributesName
real(kind=wp), intent(in), dimension(:,: ):: array
integer, intent(in) :: n1
integer, intent(in) :: n2

Return Value logical(kind=wl)

private function extents_are_3d(array, n1, n2, n3)

Arguments

TypeIntentOptionalAttributesName
real(kind=wp), intent(in), dimension(:,:,: ):: array
integer, intent(in) :: n1
integer, intent(in) :: n2
integer, intent(in) :: n3

Return Value logical(kind=wl)

private function extents_are_4d(array, n1, n2, n3, n4)

Arguments

TypeIntentOptionalAttributesName
real(kind=wp), intent(in), dimension(:,:,:,: ):: array
integer, intent(in) :: n1
integer, intent(in) :: n2
integer, intent(in) :: n3
integer, intent(in) :: n4

Return Value logical(kind=wl)

private function extents_are_5d(array, n1, n2, n3, n4, n5)

Arguments

TypeIntentOptionalAttributesName
real(kind=wp), intent(in), dimension(:,:,:,:,: ):: array
integer, intent(in) :: n1
integer, intent(in) :: n2
integer, intent(in) :: n3
integer, intent(in) :: n4
integer, intent(in) :: n5

Return Value logical(kind=wl)

private function extents_are_6d(array, n1, n2, n3, n4, n5, n6)

Arguments

TypeIntentOptionalAttributesName
real(kind=wp), intent(in), dimension(:,:,:,:,:,:):: array
integer, intent(in) :: n1
integer, intent(in) :: n2
integer, intent(in) :: n3
integer, intent(in) :: n4
integer, intent(in) :: n5
integer, intent(in) :: n6

Return Value logical(kind=wl)

private function extents_are_2d_int(array, n1, n2)

Arguments

TypeIntentOptionalAttributesName
integer, intent(in), dimension(:,: ):: array
integer, intent(in) :: n1
integer, intent(in) :: n2

Return Value logical(kind=wl)