Fortran中的向量化数组比较 [英] Vectorized array comparison in Fortran

问题描述

我想使用单行语句在Fortran中执行以下伪代码的 do-end do 位：

I would like to perform the do-end do bit of the following pseudocode within Fortran using a single line statement:

integer, parameter :: N = 1000
integer, dimension(1:N) :: ArrayA, ArrayB
logical, dimension(1:N) :: ArrayL
...
...
do i = 1, N
    if( ArrayA(i) <= ArrayB(i) ) then
        ArrayL(i) = .true.
    else
        ArrayL(i) = .false.
    end if
end do

这可能吗？如果是这样，我该怎么做？

Is this possible? If so, how do I do so?

推荐答案

integer, parameter :: N = 1000
integer, dimension(1:N) :: ArrayA, ArrayB
logical, dimension(1:N) :: ArrayL
...
...
ArrayL = (ArrayA <= ArrayB)

这篇关于Fortran中的向量化数组比较的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！