| 查看: 1038 | 回复: 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 |
回复此楼» 猜你喜欢
面上项目filecode邪修
已经有6人回复
-
应该是93bebmhtak前后十一个字符比较关键
已经有14人回复
-
2026国自然放榜时间
已经有4人回复
-
关于代码变化问题，想知道的进来
已经有22人回复
-
这样的filecode谁见过
已经有21人回复
-
filecode与中标关系的预测
已经有5人回复
-
fileCode有新解读？
已经有18人回复
-
关于filecode，很负责任的告诉大家
已经有7人回复
-
【2027博士申请】纳米药物递送方向
已经有5人回复
-
关于豆爷回答的JTJC与%2F数量
已经有7人回复
2楼2016-05-28 18:43:58
20