Fortran Coder

查看: 11239|回复: 3
打印 上一主题 下一主题

[求助] fortran中剔除数组重复数据(动态数组)

[复制链接]

250

帖子

2

主题

0

精华

宗师

F 币
1730 元
贡献
872 点

规矩勋章

楼主
发表于 2019-12-2 09:32:16 | 显示全部楼层
可以用minval和minloc函数
real::amin(1),aloc(1)
if(minval(abs(a(i)-a))==0)then
  aloc=minloc(abs(a(i)-a))
...
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-5-3 04:52

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表