| 查看: 548 | 回复: 9 | |||
| 当前主题已经存档。 | |||
| 【有奖交流】积极回复本帖子，参与交流，就有机会分得作者 开心@豆豆 的 5 个金币 | |||
[交流]
【求助】fortran小程序，帮忙一下
|
|||
| 帮忙编一下 |
回复此楼» 猜你喜欢
假如你的研究生提出不合理要求
已经有4人回复
-
论文终于录用啦！满足毕业条件了
已经有27人回复
-
所感
已经有3人回复
-
要不要辞职读博？
已经有7人回复
-
不自信的我
已经有11人回复
-
北核录用
已经有3人回复
-
实验室接单子
已经有3人回复
-
磺酰氟产物，毕不了业了！
已经有8人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有10人回复
-
26申博（荧光探针方向，有机合成）
已经有4人回复
tjyl
金虫 (正式写手)
- 程序强帖: 2
- 应助: 0 (幼儿园)
- 金币: 3218.1
- 红花: 2
- 帖子: 576
- 在线: 156.6小时
- 虫号: 765184
- 注册: 2009-05-07
- 专业: 生物无机化学
- 管辖: 程序语言
2楼2009-09-05 11:01:48
nono2009
超级版主 (文学泰斗)
No gains, no pains.
-
专家经验: +21105 - 应助: 28684 (院士)
- 贵宾: 513.911
- 金币: 2555220
- 散金: 27828
- 红花: 2147
- 沙发: 66666
- 帖子: 1602255
- 在线: 65200.9小时
- 虫号: 827383
- 注册: 2009-08-13
- 性别: GG
- 专业: 工程热物理与能源利用
- 管辖: 科研家筹备委员会
3楼2009-09-05 11:17:13
4楼2009-09-05 11:38:56
5楼2009-09-05 11:44:53
tjyl
金虫 (正式写手)
- 程序强帖: 2
- 应助: 0 (幼儿园)
- 金币: 3218.1
- 红花: 2
- 帖子: 576
- 在线: 156.6小时
- 虫号: 765184
- 注册: 2009-05-07
- 专业: 生物无机化学
- 管辖: 程序语言
6楼2009-09-05 11:59:13
tjyl
金虫 (正式写手)
- 程序强帖: 2
- 应助: 0 (幼儿园)
- 金币: 3218.1
- 红花: 2
- 帖子: 576
- 在线: 156.6小时
- 虫号: 765184
- 注册: 2009-05-07
- 专业: 生物无机化学
- 管辖: 程序语言
7楼2009-09-05 12:01:18
8楼2009-09-05 12:09:14
cxz314
木虫 (正式写手)
- 应助: 1 (幼儿园)
- 贵宾: 0.2
- 金币: 3815.1
- 散金: 993
- 红花: 1
- 帖子: 997
- 在线: 189小时
- 虫号: 475745
- 注册: 2007-12-07
- 性别: GG
- 专业: 凝聚态物性I:结构、力学和
★ ★ ★ ★ ★
开心@豆豆(金币+5,VIP+0):谢谢，fm是单位 9-5 12:35
开心@豆豆(金币+5,VIP+0):谢谢，fm是单位 9-5 12:35
|
PROGRAM LZ IMPLICIT NONE REAL*8 :: SQRC,SQRLD,DELTSQRC,DELTSQRLD REAL*8 :: SQRC_2008,SQRLD_2008 REAL*8 :: A,SQR0,F,M,R0,FINAL F=1.D0 M=2.D0 R0=1.2D0*F*M PRINT*,'ENTER THE VALUE OF A' READ*, A CALL FSQRC(A,SQRC) CALL FSQRLD(A,R0,SQRLD) CALL FSQRC(2008,SQRC_2008) CALL FSQRLD(2008,R0,SQRLD_2008) DELTSQRC=SQRC-SQRC_2008 DELTSQRLD=SQRLD-SQRLD_2008 FINAL=DELTSQRC-DELTSQRLD PRINT*,'RESULT=',FINAL END SUBROUTINE FSQRC(X,Y) IMPLICIT NONE REAL*8 :: X,Y Y=X*X END SUBROUTINE SUBROUTINE FSQRLD(X,Y,Z) IMPLICIT NONE REAL*8 :: X,Y,Z Z=(3.D0/5.D0)*Y*Y*(X**(2.D0/3.D0)) END SUBROUTINE lz不知道你的fm是什么，所以这里取F=1,M=2 函数Rc2（A）的表达式也不知道，这里取Rc2（A）=A*A [ Last edited by cxz314 on 2009-9-5 at 12:28 ] |
9楼2009-09-05 12:26:31
zhangghost
银虫 (初入文坛)
- 应助: 1 (幼儿园)
- 金币: 414
- 红花: 1
- 帖子: 12
- 在线: 26.5小时
- 虫号: 628364
- 注册: 2008-10-17
- 专业: 岩土力学与岩土工程
10楼2009-10-24 18:08:48