bge(x, y): bit a bit menor o igual

Bit a bit menor o igual que.

Declaración

Sintaxis

retval = ble(x, y);
elemental logical function ble(x, y)

Argumentos

x e y son valores de entrada enteros. Ambos valores de entrada son del mismo tipo.

Valores devueltos

El valor devuelto es de tipo lógico y del tipo predeterminado.

Descripción

ble(x, y) calcula si un valor de entrada entero es bit a bit menor o igual que otro.

Tipos

Los tipos de entrada admitidos son números enteros de 32 bits y 64 bits.

interface ble
    module procedure ble32, ble64
end interface

contains

interface
    elemental logical function ble32(x, y)
	integer(int32), intent(in) :: x, y
	end function

    elemental logical function ble64(x, y)
	integer(int64), intent(in) :: x, y
	end function
end interface

Ejemplos

program intrinsics_ble
    implicit none
    print *, ble(10, 4)
	print *, ble(10, -4)
	print *, ble(10, 10)
end program

Result:

false
true
true

Ver también

bgt, bge, blt.