24小时热门版块排行榜    

查看: 1793  |  回复: 28
当前主题已经存档。
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

freqent

银虫 (小有名气)

[交流] 【求助】Fortran 该怎么学?【已完结】

最近想学Fortran,搜索了一下,版本挺多的,最新的好像是Fortran2003,不知道对于我这种新手来说,如何入门更好一些,请指点?

[ Last edited by 余泽成 on 2010-1-18 at 22:01 ]
回复此楼
一切都将会过去,而一切过去的都将成为美好的回忆!
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tomato12345`

金虫 (小有名气)


小木虫(金币+0.5):给个红包,谢谢回帖交流
个人觉得一定要用中学,即要针对自己要解决的问题来学习fortran,否则难以真正掌握,此外,能够满足自己的研究需要即可,也不必面面俱到。有些时候f77的命令也是需要的,例如:
100  do i=1, Numofsamples
        sig=0
        call random_number(harvest=t)
        randnum(i)=lbound+int(real(len)*t)
                                       
                LOOP1: do j=1, i     
                if (i/=j) then
        if (randnum(i)==randnum(j)) then
                                                             sig=1   
                                                          exit LOOP1
        else
               sig=0   
        End if
        end if
        end do LOOP1

        if (sig==1) goto 100
end do
  ! sig==1时,说明随机整数有重复,跳转到100行、从i=1开始重新抽样, 此处用F90的cycle就不行!
25楼2010-01-12 09:59:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tomato12345`

金虫 (小有名气)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+1,VIP+0):谢谢说明,欢迎常来! 1-13 11:55
在运行前面的随机抽样前,在CVF中一定要调用:
call random_seed()    ! 随机数种子,在调用call random_number前使用
这样每次运行程序,则根据系统日期、时间等每次自动生成新的随机数种子,当然这个随机数是个伪随机数种子。
28楼2010-01-13 11:51:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 freqent 的主题更新
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见