dvbbs
收藏本页
联系我们
论坛帮助
dvbbs

>> Fortran语言开发经验交流
搜一搜相关精彩主题 
Fortran中文网Fortran中文网—Fortran语言经验交流Fortran语言开发经验交流 → [求助]求高手指教

您是本帖的第 2580 个阅读者
树形 打印
标题:
[求助]求高手指教
23zhanlong
帅哥哟,离线,有人找我吗?
等级:新手上路
文章:3
积分:265
门派:无门无派
注册:2012年5月19日
楼主
 用支付宝给23zhanlong付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给23zhanlong

发贴心情
[求助]求高手指教
已经编写一个程序,其中有一个包含子程序的模块:
module zichengxu  
implicit none
contains
subroutine sub_spn(ln,d,spn)
implicit none
real ln,d,spn
real R
R=(ln/d)**2+1.0/4.0
spn=(ln/d*sqrt(R**2-(ln/d)**2)+R**2*asin(ln/d/R)-&
2.0*(ln/d)*(R-1.0/2.0))*d**2
end subroutine
subroutine sub_vbn(ln,d,vbn)  
implicit none
real ln,d,vbn,R,spn
real,parameter::pi=3.14
R=(ln/d)**2+1.0/4.0
call sub_spn(ln,d,spn)      
vbn=(pi*(2.0/3.0*(ln/d)**3-spn/d**2*(R-1.0/2.0)))*d**3
end subroutine
subroutine sub_xcn(ln,d,xcn)  
implicit none
real ln,d,xcn,R,spn
R=(ln/d)**2+1.0/4.0
call sub_spn(ln,d,spn)      
xcn=(ln/d-(2.0/3.0*(R**3-(R**2-(ln/d)**2)**(3.0/2.0))-&
(ln/d)**2*(R-1.0/2.0))*d**2/spn)*d
end subroutine
subroutine sub_ssn(ln,d,ssn)
implicit none
real ln,d,R,ssn
real,parameter::pi=3.14
R=(ln/d)**2+1.0/4.0
ssn=(2.0*pi*R*((R-0.5)*asin(-ln/d/R)+ln/d))*d**2
end subroutine
end module
在主程序中,开始use zichengxu 后面调用子程序call sub_spn(ln,d,spn)
编译时没有错误,在运行时出错得不到结果,不知错在哪,求高手指教;另外如何查看运行中的错误???
ip地址已设置保密
2012-6-18 19:49:08
大胆想
帅哥哟,离线,有人找我吗?
等级:论坛游民
文章:68
积分:460
门派:无门无派
注册:2011年3月2日
2
 用支付宝给大胆想付款或购买其商品,支付宝交易免手续费、安全、快捷! QQ 点击这里发送电子邮件给大胆想 访问大胆想的主页

发贴心情
给出了什么错误信息?
ip地址已设置保密
2012-6-19 19:14:22
大胆想
帅哥哟,离线,有人找我吗?
等级:论坛游民
文章:68
积分:460
门派:无门无派
注册:2011年3月2日
3
 用支付宝给大胆想付款或购买其商品,支付宝交易免手续费、安全、快捷! QQ 点击这里发送电子邮件给大胆想 访问大胆想的主页

发贴心情
给出了什么错误信息?
ip地址已设置保密
2012-6-19 19:14:48
23zhanlong
帅哥哟,离线,有人找我吗?
等级:新手上路
文章:3
积分:265
门派:无门无派
注册:2012年5月19日
4
 用支付宝给23zhanlong付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给23zhanlong

发贴心情

问题已经解决了,谢谢各位啦

ip地址已设置保密
2012-6-20 9:16:23

 4   4   1/1页      1    
网上贸易 创造奇迹! 阿里巴巴 Alibaba
Powered By Dvbbs Version 7.1.0 Sp1
Copyright ©2005 - 2008 www.fortran.cn
页面执行时间 0.17188 秒, 5 次数据查询
京ICP备05056801号