24小时热门版块排行榜

返回列表

astringent

铜虫 (著名写手)

应助: 16 (小学生)
金币: 2210.7
散金: 1233
红花: 4
帖子: 1180
在线: 354.8小时
虫号: 900839
注册: 2009-11-12
专业: 理论和计算化学

[交流] 【求助】如何看数组中存了几个元素？已有1人参与

初学fortran，需要把符合某一条件的k值存在一个数组内，因符合条件的k值可能有一个也可能是2个，想在enddo（2）后面加判断条件用来判断数组acc（j）储存了几个值，每个值是什么，但是不知道具体如何操作。请大家指点，先谢了。
program
do j=1,2
do k=1,100
if (---) then
acc(j)=k
endif
enddo
enddo（2）

回复此楼

» 猜你喜欢

1楼 2010-11-20 07:22:50

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

holmescn

金虫 (正式写手)

程序强帖: 37
应助: 1 (幼儿园)
金币: 1918.8
散金: 275
红花: 1
帖子: 699
在线: 102.6小时
虫号: 913482
注册: 2009-11-26
性别: GG
专业: 凝聚态物性 II ：电子结构

★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
nono2009(金币+2):鼓励应助 2010-11-25 07:28:32

改成这样:

CODE:

program

j = 1

do k = 1, 100

  if(---) then

    acc(j) = k

    j = j + 1

  end if

end do

if(j .eq. 2) then

有两个值

end if

赞一下(2人)