fortran中PACK举个例子
时间: 2024-06-03 12:09:22 浏览: 70
fortran算法举例
好的,可以举一个例子:假设有一个integer数组A,它的长度为10,其中有一些元素是负数,现在我们想把这些负数取出来放到一个新的数组B中,可以使用Fortran中的PACK函数来实现,具体代码如下:
INTEGER A(10), B(10)
A = (/1,-2,3,-4,5,-6,7,-8,9,-10/)
B = PACK(A, A<0)
这样,数组B中就只包含了数组A中的负数元素,即B为(-2,-4,-6,-8,-10)。
阅读全文