int4_1D_or_int4 Function

  1. bitwise.f90
  2. bitwise
  3. int4_1D_or_int4

public function int4_1D_or_int4(a, b) result(r)

Bitwise 'OR' over one 1D integer array and integer of kind 4

Arguments

Type IntentOptional AttributesName
integer(kind=4), intent(in), dimension(:):: a
integer(kind=4), intent(in) :: b

Return Value integer(kind=4), dimension(size(a))


Called by

proc~~int4_1d_or_int4~~CalledByGraph proc~int4_1d_or_int4 int4_1D_or_int4 interface~operator(.or.) operator(.or.) interface~operator(.or.)->proc~int4_1d_or_int4

Contents

Source Code

int4_1D_or_int4

Source Code

        function int4_1D_or_int4(a, b) result(r)
          !< Bitwise 'OR' over one 1D integer array and integer of kind 4
            implicit none
            integer(kind=4), dimension(:), intent(in) :: a
            integer(kind=4), intent(in) :: b
            integer(kind=4), dimension(size(a)) :: r
            integer :: i
            i = 1
            do while (i <= size(a))
                r(i) = ior(a(i), b)
                i = i + 1
            end do
        end function int4_1D_or_int4