应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】fortran小程序，帮忙一下
51/1返回列表
查看: 625  |  回复: 9
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。
【有奖交流】积极回复本帖子，参与交流，就有机会分得作者 开心@豆豆 的 5 个金币
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

楼1970-01-01 08:00:00
已阅   申请程序强帖   回复此楼   编辑   查看我的主页

cxz314

木虫 (正式写手)
★ ★ ★ ★ ★
开心@豆豆(金币+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 ]
赞一下(2人) 回复此楼
9楼2009-09-05 12:26:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 10 个回答

tjyl

金虫 (正式写手)
loovfnd(金币+0):回到正题，不要秀英语！
r^2_c(A)的表达式还得给出来
赞一下(1人) 回复此楼
2楼2009-09-05 11:01:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nono2009

超级版主 (文学泰斗)

No gains, no pains.

优秀区长优秀区长优秀区长优秀区长优秀版主
loovfnd(金币+0):回到正题，不要秀英语！
LZ, you are so lazy. Cannot help you.:dnd:
赞一下(1人) 回复此楼
3楼2009-09-05 11:17:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

开心@豆豆

引用回帖:
Originally posted by nono2009 at 2009-9-5 11:17:
LZ, you are so lazy. Cannot help you.:dnd:

yes ,you are right
赞一下 回复此楼
4楼2009-09-05 11:38:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 10 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭