版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

北京石油化工学院2026年研究生招生接收调剂公告

返回列表

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）

回复此楼

» 猜你喜欢

316求调剂已经有14人回复
chinese chemical letters英文版投稿求助已经有6人回复
264分，求任意工科调剂已经有5人回复
求生物学调剂已经有9人回复
求调剂 302分初试 0854 已经有3人回复
交通运输考试264分求工科调剂已经有3人回复
材料与化工306分找调剂已经有8人回复
一志愿北京科技材料科学与工程288分，求调剂已经有13人回复
413求调剂已经有3人回复
319求调剂已经有14人回复

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人)