Try guessing the ending value of I...

Try guessing the ending value of I...

       I=0
       IF(I.EQ.0) THEN I=1
       WRITE(6,*) I
       END

2 帖子 / 0 全新
最新文章
如需更全面地了解编译器优化,请参阅优化注意事项
Steve Lionel (Intel)的头像

Let me make an interesting suggestion here - put this code in a free-form source (.f90) file rather than fixed-form (.f or .for).

See Doctor Fortran in "Source Form Just Wants to be Free"

Steve

登陆并发表评论。