在fortran中读取数组【1；0；1】为logical并且与整数组【4；5；6】相乘

在Fortran中，读取数组并将其转换为Logical类型通常需要先将数值数据转换，因为Fortran的基本数据类型并不直接支持Logical数组。假设我们有一个整型数组`int_array`包含数值`[4; 5; 6]`，我们需要手动处理以将其转换成Logical类型。

首先，我们需要创建一个与`int_array`长度相同的Logical数组`logical_array`。然后，我们可以遍历`int_array`，对于每个元素大于0的情况，将其对应的`logical_array`位置设为`.TRUE.`，其他位置设为`.FALSE.`。以下是一个简单的示例：

integer :: int_array(3) = [4, 5, 6]
logical :: logical_array(3)
integer :: i

do i = 1, size(int_array)
   if (int_array(i) .gt. 0) then
      logical_array(i) = .TRUE.
   else
      logical_array(i) = .FALSE.
   end if
end do

! 现在logical_array是[.TRUE., .TRUE., .TRUE.]

! 如果你想将Logical数组与整数数组相乘，可以这样做（注意Fortran的逻辑运算规则）
integer :: result_array(size(int_array))

result_array = int_array * transfer(logical_array, result_array)

! result_array现在可能是[4, 5, 6]，取决于实际的逻辑值