版块导航: 正在加载中...

登录注册

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

24小时热门版块排行榜

北京石油化工学院2026年研究生招生接收调剂公告

返回列表

匿名

用户注销 (初入文坛)

应助: 0 (幼儿园)
金币: 1.5
散金: 75
帖子: 32
在线: 31.5小时
虫号: 0
注册: 2012-12-28
专业: 流体力学

本帖仅楼主可见

» 猜你喜欢

机械工程264学硕求调剂已经有3人回复
264求调剂已经有9人回复
求调剂已经有6人回复
22408 266求调剂已经有7人回复
求调剂已经有14人回复
273求调剂已经有43人回复
307求调剂已经有13人回复
327求调剂已经有7人回复
338求调剂已经有6人回复
326分，一志愿沪9，求生物学调剂已经有3人回复

» 本主题相关价值贴推荐，对您同样有帮助:

求助：Fortran中如何调用‘计算软件’ 已经有11人回复
fortran中如何调用matlab中求解特征值函数？已经有9人回复
请问，如何在fortran中调用误差函数？已经有5人回复
如何用fortran编写高斯白噪声程序已经有6人回复
【求助】FEDORA12下用FORTRAN编写程序需要下一个FORTRAN编译器么已经有18人回复
【求助】如何实现编写的fortran程序让别人使用，但不让别人知道源代码已经有6人回复
【求助】如何用Fortran解一元三次方程【已解决】已经有6人回复

1楼 2014-07-29 10:07:36

已阅同方向广播申请程序强帖回复此楼编辑查看我的主页

jerkwin

专家顾问 (正式写手)

专家经验: +14
应助: 454 (硕士)
金币: 20699.1
散金: 148
红花: 81
帖子: 813
在线: 2648.3小时
虫号: 1023452
注册: 2010-05-19
专业: 理论和计算化学
管辖: 分子模拟

【答案】应助回帖

感谢参与，应助指数 +1

<code>
real*8 function T(h)
real*8 h

if(0.d0<=h .and. h<=11000) then
return 288.15d0-0.0065*h
else if(11000<h .and. h<=20000) then
............
else if.........

end if
</coe>

赞一下(1人)

回复此楼

2楼2014-07-29 20:47:04

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

2楼: Originally posted by jerkwin at 2014-07-29 20:47:04
<code>
real*8 function T(h)
real*8 h

if(0.d0<=h .and. h<=11000) then
return 288.15d0-0.0065*h
else if(11000<h .and. h<=20000) then
............
else if.........

...

3楼2014-10-23 17:30:43