Fortran中对于4*2数组，只要第一三四行

对于一个4x2的二维数组，如果只需要提取出第1、3、4行的所有元素，可以使用以下的代码：

INTEGER :: arr(4,2) = reshape([1,2,3,4,5,6,7,8], [4,2])
INTEGER :: sub_arr(3,2)

sub_arr = arr([1,3,4], :)

这里使用了Fortran中的类似Python的语法，将要提取的行的索引放在一个列表中，并将其作为数组的第一维索引，将第二维索引指定为冒号（即提取所有的列）。这样就可以得到一个3x2的二维数组sub_arr，其中包含了第1、3、4行的所有元素。

注意，在Fortran中，数组的索引是从1开始的，因此第1行的索引是1，第3行的索引是3，第4行的索引是4。