| 查看: 532 | 回复: 9 | |||
| 当前主题已经存档。 | |||
| 【有奖交流】积极回复本帖子，参与交流，就有机会分得作者 开心@豆豆 的 5 个金币 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】fortran小程序，帮忙一下
|
|||
| 帮忙编一下 |
回复此楼» 猜你喜欢
读博
已经有5人回复
-
到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗
已经有13人回复
-
博士申请都是内定的吗？
已经有6人回复
-
之前让一硕士生水了7个发明专利，现在这7个获批发明专利的维护费可从哪儿支出哈？
已经有5人回复
-
博士读完未来一定会好吗
已经有29人回复
-
投稿精细化工
已经有4人回复
-
高职单位投计算机相关的北核或SCI四区期刊推荐，求支招！
已经有4人回复
-
导师想让我从独立一作变成了共一第一
已经有9人回复
-
心脉受损
已经有5人回复
-
Springer期刊投稿求助
已经有4人回复
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