falseloc 函数

public pure function falseloc(array, lbound) result(loc)

返回数组中false元素的位置。 规范

参数

类型 意图可选 属性 名称
logical, intent(in) :: array(:)

逻辑掩码
integer, intent(in), optional :: lbound

数组索引的下限

返回值 integer, (count(.not.array))

false元素的位置


源代码

  pure function falseloc(array, lbound) result(loc)
    !> Mask of logicals
    logical, intent(in) :: array(:)
    !> Lower bound of array to index
    integer, intent(in), optional :: lbound
    !> Locations of false elements
    integer :: loc(count(.not.array))

    call logicalloc(loc, array, .false., lbound)
  end function falseloc