24小时热门版块排行榜

>论坛更新日志 (4050)
>导师招生 (737)
>论文投稿 (401)
>硕博家园 (220)
>休闲灌水 (219)
>文献求助 (187)
>考博 (144)
>虫友互识 (143)
>新药研发 (98)
>学术会议 (93)
>公派出国 (86)
>考研 (75)
>基金申请 (71)
>招聘信息布告栏 (69)
>博后之家 (54)
>论文道贺祈福 (53)

返回列表

astringent

铜虫 (著名写手)

应助: 16 (小学生)
金币: 2210.7
帖子: 1180
在线: 354.8小时
虫号: 900839

[交流] 【求助】有关数组赋值

初学fortran，现有一问题向大家求助。
有一组数（比如有20个），它们的值不是0就是1，储存在数组P（20）中，我想用一个循环进行判断，如果数组P中所存的值都是1，就把condition赋值为真，否者为假。当condition为真时，进行下面的程序。请问该如何实现。我这些可以吗？
program test
implicit none
integer :

(20)
logical ::condition
integer i

open (11,file='data.out',status='old')
do i=1,20
   read (11,*) P(i)
enddo
! 进行判断
do i=1,20
   if (P(i)==0) then
      exit
else
      condition=true
endif
enddo
if (condition) then
-----
-----
endif
end

回复此楼

» 猜你喜欢

售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急已经有5人回复
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急已经有10人回复
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急已经有9人回复
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急已经有11人回复
售SCI文章，我:8O.5.5.1O.54,科目全,可十急已经有23人回复
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急已经有13人回复
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急已经有18人回复
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急已经有18人回复
2027博士申请-临床检验诊断学、病原生物学、微生物方向已经有4人回复
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急已经有10人回复

1楼 2011-02-13 05:15:55

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

snoopyzhao

至尊木虫 (职业作家)

★ ★
astringent(金币+20): 2011-02-13 20:34:27
余泽成(金币+2): 辛苦了！ 2011-02-20 18:22:10

CODE:

do i=1,20

     if (P(i)==0) then

        condition = .false.

        exit

    else

        condition = .true.

   endif

end do

赞一下(1人)

回复此楼

2楼2011-02-13 09:59:34

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

scatcj

木虫 (小有名气)

应助: 2 (幼儿园)
金币: 3065.7
帖子: 287
在线: 60.3小时
虫号: 1136762

★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+2): 谢谢参与应助！ 2011-02-27 15:02:16

你的程序中在0的前面只要有1，condition都被赋值为真了

赞一下(2人)

回复此楼

3楼2011-02-23 23:19:16

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

相关版块跳转我要订阅楼主 astringent 的主题更新

返回列表