24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1960  |  回复: 8
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

kimileegdut

捐助贵宾 (小有名气)

[求助] 非线性插值法--fortran77代码转Fortran90 已有1人参与

求助各位前辈,现在要用到线性插值法,但是资料是fortran77的代码,本人手头上没有77的教材,看不太懂,希望各位前辈赐教,将fortran77代码转为fortran90的代码。

非线性插值法--fortran77代码转Fortran90
IMG_2590.JPG


非线性插值法--fortran77代码转Fortran90-1
IMG_2591.JPG


非线性插值法--fortran77代码转Fortran90-2
IMG_2592.JPG


非线性插值法--fortran77代码转Fortran90-3
IMG_2593.JPG
回复此楼

» 猜你喜欢

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

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

jiangxingge

金虫 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
kimileegdut: 金币+25, ★★★很有帮助 2015-06-11 21:54:36
我理解,F77可以不加修改,只是文件名后缀 为FOR,搞在一个项目里,就可以的。
4楼2015-06-08 13:44:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 9 个回答

kimileegdut

捐助贵宾 (小有名气)

也不知道是自己理解有问题还是书本有问题,按着书本上写,把do循环改成90的形式,结果给x的初值,输出还是初值
2楼2015-06-05 16:45:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

kimileegdut

捐助贵宾 (小有名气)

打错了,是线性插值法求解非线性方程组
3楼2015-06-05 16:46:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

kimileegdut

捐助贵宾 (小有名气)

引用回帖:
4楼: Originally posted by jiangxingge at 2015-06-08 13:44:30
我理解,F77可以不加修改,只是文件名后缀 为FOR,搞在一个项目里,就可以的。

我想请教个问题,你的意思就是我在项目里再单独添加这个77的子程序?然后项目原来的90主程序可以直接调用?
5楼2015-06-08 15:19:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 301求调剂 +12 A_JiXing 2026-04-01 12/600 2026-04-01 22:47 by peike
[考研] 材料专硕322分 +10 哈哈哈吼吼吼哈 2026-04-01 10/500 2026-04-01 22:19 by Dyhoer
[考研] 材料调剂 +14 一样YWY 2026-04-01 14/700 2026-04-01 21:07 by lijunpoly
[考研] 310分求调剂 +4 成功上岸wang 2026-04-01 4/200 2026-04-01 20:35 by liu823948201
[考研] 求调剂 +4 图鉴212 2026-03-30 5/250 2026-04-01 15:32 by 图鉴212
[考研] 085410人工智能 初试316分 求调剂 +3 残星拂曙 2026-03-31 3/150 2026-04-01 11:09 by 小熊raider
[考研] 358求调剂 +3 王向阳花 2026-03-31 3/150 2026-04-01 09:56 by zzchen2000
[考研] 0710生物学求调剂! +6 叙述文 2026-03-31 6/300 2026-04-01 09:39 by JourneyLucky
[考研] 考研生物与医药调剂 +7 铁憨憨123425 2026-03-31 7/350 2026-04-01 08:45 by JourneyLucky
[考研] 合肥区域性重点一本招收调剂 +4 6266jl 2026-03-30 8/400 2026-03-31 18:43 by 6266jl
[考研] 336材料求调剂 +10 陈滢莹 2026-03-26 12/600 2026-03-31 17:59 by jp9609
[考研] 346求调剂 一志愿070303有机化学 +11 萝卜炖青菜 2026-03-28 12/600 2026-03-31 17:54 by xhai2011
[考研] 322求调剂:一志愿湖南大学 材料与化工(085600),已过六级。 +10 XX小邓 2026-03-29 10/500 2026-03-31 16:46 by 不吃魚的貓
[考研] 0856 335分 +9 cccchenso 2026-03-29 9/450 2026-03-31 16:37 by lishahe
[考研] 367求调剂 +7 芋泥啵啵… 2026-03-28 7/350 2026-03-31 14:55 by 不吃魚的貓
[考研] 085600,专业课化工原理,320分求调剂 +6 大馋小子 2026-03-29 6/300 2026-03-31 10:03 by 氯化亚硝酰
[考研] 297 地理学070500 复试求调剂 +3 小圆圈圈ooo 2026-03-30 3/150 2026-03-30 21:05 by 余震yz
[考研] 285求调剂 +4 AZMK 2026-03-27 7/350 2026-03-27 20:59 by AZMK
[考研] 复试调剂,一志愿南农083200食品科学与工程 +5 XQTJZ 2026-03-26 5/250 2026-03-27 14:49 by 狂炫麦当当
[考研] 考研调剂 +9 小蜡新笔 2026-03-26 9/450 2026-03-27 11:10 by 不吃魚的貓
信息提示
请填处理意见