| 查看: 935 | 回复: 1 | |||
[求助]
在linux下fortran，do while 循环不执行
|
|
fortran 代码 如下 implicit none real ran,tempran integer tord integer ord(60) logical flag integer newloop,ii call init_random_seed() do newloop=1,50 call random_number(ran) tempran=50.0*ran tord=floor(tempran)+1 flag=.true. do while(flag) if(newloop==1) then flag=.false. end if flag=.false. if(newloop/=1) then do ii=1,newloop-1 if(tord==ord(ii)) then flag=.true. exit end if end do end if end do ord(newloop)=tord write(*,*) tord end do stop end 子程序 init_random_seed() 是产生随机数种子的程序 以下是windows下和linux下的结果 这个程序出来的结果是 如果出现ord(i)==ord(z) (z<i)就会出现无限循环，但是在linux下程序却全部运行，即使出现ord(i)==ord(z) (z<i) 请问各位虫友，这是编译器的问题，还是其他什么原因？  捕获1.PNG  捕获2.PNG |
回复此楼» 猜你喜欢
请问有评职称，把科研教学业绩算分排序的高校吗
已经有3人回复
-
孩子确诊有中度注意力缺陷
已经有12人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
-
AI论文写作工具：是科研加速器还是学术作弊器？
已经有3人回复
-
2026博士申请-功能高分子，水凝胶方向
已经有6人回复
-
论文投稿，期刊推荐
已经有4人回复
-
硕士和导师闹得不愉快
已经有13人回复
-
请问2026国家基金面上项目会启动申2停1吗
已经有5人回复
2楼2016-05-28 18:43:58