| 查看: 1002 | 回复: 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 |
回复此楼» 猜你喜欢
国自然上会要求
已经有9人回复
-
博士申请
已经有5人回复
-
面上本子正文33页，违规吗？会被低分嘛？
已经有9人回复
-
评审有感
已经有6人回复
-
今年审到国自然15份，谈谈感受
已经有16人回复
-
上海大学实验技术岗位非升即走
已经有8人回复
-
考博自荐
已经有6人回复
-
青C资助名额大幅增加！
已经有16人回复
-
重磅！青年科学基金项目（C类）资助增幅预计超过50%
已经有10人回复
-
我在等一个没有答案的答案
已经有3人回复
2楼2016-05-28 18:43:58
30