| 查看: 1801 | 回复: 28 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖 | |||
freqent银虫 (小有名气)
|
[交流]
【求助】Fortran 该怎么学?【已完结】
|
||
|
最近想学Fortran,搜索了一下,版本挺多的,最新的好像是Fortran2003,不知道对于我这种新手来说,如何入门更好一些,请指点? [ Last edited by 余泽成 on 2010-1-18 at 22:01 ] |
» 猜你喜欢
不自信的我
已经有11人回复
北核录用
已经有3人回复
要不要辞职读博?
已经有6人回复
实验室接单子
已经有3人回复
磺酰氟产物,毕不了业了!
已经有8人回复
求助:我三月中下旬出站,青基依托单位怎么办?
已经有10人回复
26申博(荧光探针方向,有机合成)
已经有4人回复
论文终于录用啦!满足毕业条件了
已经有26人回复
2026年机械制造与材料应用国际会议 (ICMMMA 2026)
已经有4人回复
Cas 72-43-5需要30g,定制合成,能接单的留言
已经有8人回复

tomato12345`
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 823.6
- 帖子: 75
- 在线: 20.2小时
- 虫号: 396267
- 注册: 2007-06-08
- 性别: GG
- 专业: 自然资源管理
★
小木虫(金币+0.5):给个红包,谢谢回帖交流
小木虫(金币+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

2楼2009-10-21 12:37:11
nono2009
超级版主 (文学泰斗)
No gains, no pains.
-

专家经验: +21105 - 应助: 28684 (院士)
- 贵宾: 513.911
- 金币: 2555220
- 散金: 27828
- 红花: 2147
- 沙发: 66666
- 帖子: 1602255
- 在线: 65200.9小时
- 虫号: 827383
- 注册: 2009-08-13
- 性别: GG
- 专业: 工程热物理与能源利用
- 管辖: 科研家筹备委员会
3楼2009-10-21 13:44:32
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2009-10-21 15:01:34












回复此楼