and Interface

public interface and

Sets the bits in set1 to the bitwise and of the original bits in set1 and set2. The sets must have the same number of bits otherwise the result is undefined. (Specification)

Example

    program demo_and
        use stdlib_bitsets
        type(bitset_large) :: set0, set1
        call set0 % init(166)
        call set1 % init(166)
        call and( set0, set1 ) ! none none
        if ( none(set0) ) write(*,*) 'First test of AND worked.'
        call set0 % not()
        call and( set0, set1 ) ! all none
        if ( none(set0) ) write(*,*) 'Second test of AND worked.'
        call set1 % not()
        call and( set0, set1 ) ! none all
        if ( none(set0) ) write(*,*) 'Third test of AND worked.'
        call set0 % not()
        call and( set0, set1 ) ! all all
        if ( all(set0) ) write(*,*) 'Fourth test of AND worked.'
    end program demo_and

Contents


Subroutines

public elemental subroutine and_64(set1, set2)

Arguments

Type IntentOptional AttributesName
type(bitset_64), intent(inout) :: set1
type(bitset_64), intent(in) :: set2

public elemental subroutine and_large(set1, set2)

Arguments

Type IntentOptional AttributesName
type(bitset_large), intent(inout) :: set1
type(bitset_large), intent(in) :: set2