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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 非线性插值法--fortran77代码转Fortran90
北京石油化工学院2026年研究生招生接收调剂公告
91/1返回列表
查看: 1966  |  回复: 8
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

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
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2015-06-05 16:42:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

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的回帖

jiangxingge

金虫 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
kimileegdut: 金币+25, ★★★很有帮助 2015-06-11 21:54:36
我理解，F77可以不加修改，只是文件名后缀 为FOR，搞在一个项目里，就可以的。
赞一下 回复此楼
4楼2015-06-08 13:44:30
已阅   回复此楼   关注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的回帖

weiwei43

至尊木虫 (正式写手)
77的程序在90编译器中应该能正常编译，除了特殊语句。
赞一下 回复此楼
6楼2015-06-09 13:51:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jiangxingge

金虫 (正式写手)
引用回帖:
5楼: Originally posted by kimileegdut at 2015-06-08 15:19:00
我想请教个问题，你的意思就是我在项目里再单独添加这个77的子程序？然后项目原来的90主程序可以直接调用？...

是这个意思
回复此楼
7楼2015-06-11 09:49:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

kimileegdut

捐助贵宾 (小有名气)
引用回帖:
7楼: Originally posted by jiangxingge at 2015-06-11 09:49:55
是这个意思...

ok,谢谢！
回复此楼
8楼2015-06-11 21:54:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fxzysu

金虫 (正式写手)
图片看不太清，我给你试试，你这是哪本书上的？

发自小木虫IOS客户端
赞一下 回复此楼
一个人的寂寞，是两个人的错
9楼2016-03-28 01:29:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 kimileegdut 的主题更新
91/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 26年申博 +3 staryer 2026-03-30 4/200 2026-04-01 23:21 by ai4pharm
[考研] 材料调剂 +11 一样YWY 2026-03-31 11/550 2026-04-01 22:25 by zhouyuwinner
[考研] 材料科学与工程调剂 +16 深V宿舍吧 2026-03-30 17/850 2026-04-01 21:00 by 赖春艳
[考研] 266分求材料化工冶金矿业等专业的调剂 +7 哇呼哼呼哼 2026-03-26 7/350 2026-04-01 20:47 by cqupH
[考研] 085600 一志愿9 总分351 求调剂学校 +7 czhcz 2026-03-31 9/450 2026-04-01 19:24 by 无际的草原
[考研] 0703化学/290求调剂/本科经历丰富/工科也可 +14 丹青奶盖 2026-03-26 16/800 2026-04-01 15:58 by oooqiao
[论文投稿] chinese chemical letters英文版投稿求助 120+4 Yishengeryi 2026-03-30 5/250 2026-04-01 14:11 by 陆小果画大饼
[考研] 262求调剂 +9 励志一定发文章 2026-03-31 10/500 2026-04-01 12:22 by sunshine0013
[考研] 材料调剂 +10 Eujd1 2026-03-31 11/550 2026-04-01 11:23 by ivanqyq
[考研] 326求调剂 +4 崽崽仔 2026-03-31 4/200 2026-04-01 09:58 by 我的船我的海
[考研] 求0861交通运输专硕or材料专硕调剂 +4 勒布朗@ 2026-03-31 4/200 2026-04-01 09:54 by 一只好果子?
[考研] 初试301，代码085701环境工程，本硕一致，四六级已过，有二区一作，共发表5篇论文 +3 axibli 2026-04-01 3/150 2026-04-01 08:43 by i_cooler
[考研] 334求调剂 +7 Trying] 2026-03-31 7/350 2026-03-31 12:33 by 无际的草原
[考研] 293分求调剂，外语为俄语 +5 加一一九 2026-03-31 5/250 2026-03-31 09:39 by zhshch
[考研] 304材料求调剂 +5 钟llll 2026-03-26 5/250 2026-03-30 19:37 by 源_2020
[考研] 材料化工340求调剂 +3 jhx777 2026-03-30 3/150 2026-03-30 17:54 by JourneyLucky
[考研] 303求调剂 +7 DLkz1314. 2026-03-30 7/350 2026-03-30 16:05 by shuang5186
[考研] 一志愿中南大学化学0703总分337求调剂 +6 niko- 2026-03-27 6/300 2026-03-30 10:25 by herarysara
[考研] 298求调剂 +4 种圣赐 2026-03-28 4/200 2026-03-29 08:42 by q1092522407
[考研] 085405 考的11408求各位老师带走 +3 Qiu学ing 2026-03-28 3/150 2026-03-28 09:19 by 乐呵呵的追梦人
信息提示
关闭
请填处理意见
关闭