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

客户端APP下载

登录注册

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

24小时热门版块排行榜

memgr

铜虫 (正式写手)

应助: 0 (幼儿园)
金币: 229.8
帖子: 330
在线: 101.4小时
虫号: 859962

[交流] 【求助】fortran出错了

本人刚开始学fortran 想请教大家一下下面的程序哪个地方错了老是提示
E:\Text1.f90(10): error FOR3351:inconsistent usage of KBC detected between A and )
E:\Text1.f90(14): error FOR3351: inconsistent usage of KBC detected between A and )
E:\Text1.f90(18): error FOR2290: implicit type for YC detected between YC and -
E:\Text1.f90(18): error FOR2290: implicit type for XC detected between XC and -
E:\Text1.f90(22): warning FOR4265: symbol XC referenced but not set
E:\Text1.f90(22): warning FOR4265: symbol KAC referenced but not set
E:\Text1.f90(22): warning FOR4265: symbol YC referenced but not set
E:\Text1.f90(22): warning FOR4270: unused symbol LBE
程序是如下
implicit none
real :: x1, y1, x2, y2, x3, y3, a, b, kab, kbc, xe
print *, " input the parameters "
read(*, *)x1, y1, x2, y2, x3, y3, a, b
kab = (y2-y1)/(x2-x1)
kbc = (y3-y2)/(x3-x2)
kab = (y3-y1)/(x2-x1)
xe = (y2-b+kab*a-kbc*x2)/(kab-kbc)
write (*, *) xe
end
谢谢各位

» 猜你喜欢

2025冷门绝学什么时候出结果已经有5人回复
Bioresource Technology期刊，第一次返修的时候被退回好几次了已经有7人回复
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗已经有8人回复
寻求一种能扛住强氧化性腐蚀性的容器密封件已经有5人回复
请问哪里可以有青B申请的本子可以借鉴一下。已经有4人回复
孩子确诊有中度注意力缺陷已经有14人回复
请问下大家为什么这个铃木偶联几乎不反应呢已经有5人回复
请问有评职称，把科研教学业绩算分排序的高校吗已经有5人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有4人回复
康复大学泰山学者周祺惠团队招收博士研究生已经有6人回复

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

【求助】求fortra程序已经有4人回复

» 抢金币啦！回帖就可以得到:
查看全部散金贴

1楼2011-03-30 16:48:08

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

piaoye4

木虫之王 (著名写手)

应助: 7 (幼儿园)
贵宾: 0.58
金币: 77092.7
帖子: 1741
在线: 1468小时
虫号: 398255

memgr(金币+5): 2011-03-31 10:56:15

在我这里编译通过，没发现错误。。。
ps：kab = (y2-y1)/(x2-x1）这行应该是没用吧，下边又有一行给kab赋值了。。

2楼2011-03-30 18:46:01

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

memgr

铜虫 (正式写手)

应助: 0 (幼儿园)
金币: 229.8
帖子: 330
在线: 101.4小时
虫号: 859962

引用回帖:

Originally posted by piaoye4 at 2011-03-30 18:46:01:
在我这里编译通过，没发现错误。。。
ps：kab = (y2-y1)/(x2-x1）这行应该是没用吧，下边又有一行给kab赋值了。。

奥写错了这行应该是kac 谢谢啊，但是改了之后还是不行呢为什么呢

3楼2011-03-30 18:52:45

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

snoopyzhao

至尊木虫 (职业作家)

memgr(金币+5): 2011-03-31 10:56:23

引用回帖:

Originally posted by memgr at 2011-03-30 18:52:45:
奥写错了这行应该是kac 谢谢啊，但是改了之后还是不行呢为什么呢

把 kac 加到第二行中就没有问题了……

4楼2011-03-30 19:21:48

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

相关版块跳转我要订阅楼主 memgr 的主题更新