are_equal Interface

public interface are_equal

Module Procedures

private function equals_i4_scalar(u, v) result(lval)

Arguments

Type IntentOptional Attributes Name
integer(kind=ESMF_KIND_I4), intent(in) :: u
integer(kind=ESMF_KIND_I4), intent(in) :: v

Return Value logical

private function equals_i8_scalar(u, v) result(lval)

Arguments

Type IntentOptional Attributes Name
integer(kind=ESMF_KIND_I8), intent(in) :: u
integer(kind=ESMF_KIND_I8), intent(in) :: v

Return Value logical

private function equals_r4_scalar(u, v) result(lval)

Arguments

Type IntentOptional Attributes Name
real(kind=ESMF_KIND_R4), intent(in) :: u
real(kind=ESMF_KIND_R4), intent(in) :: v

Return Value logical

private function equals_r8_scalar(u, v) result(lval)

Arguments

Type IntentOptional Attributes Name
real(kind=ESMF_KIND_R8), intent(in) :: u
real(kind=ESMF_KIND_R8), intent(in) :: v

Return Value logical

private function equals_l_scalar(u, v) result(lval)

Arguments

Type IntentOptional Attributes Name
logical, intent(in) :: u
logical, intent(in) :: v

Return Value logical

private function equals_string(u, v) result(lval)

Arguments

Type IntentOptional Attributes Name
character(len=:), intent(in), allocatable :: u
character(len=*), intent(in) :: v

Return Value logical

private function equals_i4_array(u, v) result(lval)

Arguments

Type IntentOptional Attributes Name
integer(kind=ESMF_KIND_I4), intent(in), allocatable :: u(:)
integer(kind=ESMF_KIND_I4), intent(in) :: v(:)

Return Value logical

private function equals_i8_array(u, v) result(lval)

Arguments

Type IntentOptional Attributes Name
integer(kind=ESMF_KIND_I8), intent(in), allocatable :: u(:)
integer(kind=ESMF_KIND_I8), intent(in) :: v(:)

Return Value logical

private function equals_r4_array(u, v) result(lval)

Arguments

Type IntentOptional Attributes Name
real(kind=ESMF_KIND_R4), intent(in), allocatable :: u(:)
real(kind=ESMF_KIND_R4), intent(in) :: v(:)

Return Value logical

private function equals_r8_array(u, v) result(lval)

Arguments

Type IntentOptional Attributes Name
real(kind=ESMF_KIND_R8), intent(in), allocatable :: u(:)
real(kind=ESMF_KIND_R8), intent(in) :: v(:)

Return Value logical

private function equals_l_array(u, v) result(lval)

Arguments

Type IntentOptional Attributes Name
logical, intent(in), allocatable :: u(:)
logical, intent(in) :: v(:)

Return Value logical