如何从一个数组中提取出没有重复过的元素？

joyce_chen

如何将A(N)=(/6,2,8,6,0,9,3,2,1,7/)数组中没有重复的数提取出来，放置到另一个数组B(M)中，B最好是动态数组。正确的结果应该为B(M)=(/8,0,9,3,1,7/)，但是怎样用FORTRAN实现呢？　先谢谢了！！

iwtry

如果不考虑计算效率的话，采用最笨的方法就是做个循环，将数组中每个元素拿出来跟其他元素相比，如果不相同则放到B数组就可以了。