| 查看: 2082 | 回复: 3 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】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 谢谢各位 |
回复此楼» 猜你喜欢
在职考研
已经有5人回复
-
大龄残疾硕士的一点执念
已经有22人回复
-
b口会评
已经有3人回复
-
2026年面上项目中了，2A+B, 会评顺利通过
已经有13人回复
-
生命口会评
已经有4人回复
-
今年E04面上
已经有20人回复
-
网络举报学术不端成为了男女之间情杀的手段了，真荒唐。。。
已经有3人回复
-
Suzuki偶联中硼酸酯原料掉下的硼酸酯是否可以自身偶联，生成B2Pin2杂质
已经有3人回复
-
刑法学论文投稿求助
已经有5人回复
-
Journal of Environmental Chemical Engineering
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 【求助】求fortra程序
已经有4人回复
» 抢金币啦！回帖就可以得到:
-
辽宁惟则专利所2026年招聘公告（沈阳本地、有经验）
+1/173
-
华中科技大学牛冉研究员课题组诚招硕士研究生、研究助理、博士研究生以及博士后
+1/76
-
固态电池专家
+1/73
-
工材学部会评时间知道么？
+1/60
-
上海交通大学化工学院邱惠斌教授课题组招募科研助理、交流生
+1/34
-
吉林大学-电池物理教育部实验室-招收2027级-能源电池-博士研究生
+1/30
-
美国圣路易斯大学招聘生物信息学博士后
+1/30
-
华南理工大学电力学院雪映教授招收博士生（2027年秋季入学）
+2/26
-
国家纳米科学中心鄢勇课题组2027年博士招生
+1/24
-
双一流高校招收博士（现代技术管理/环境技术经济管理）及硕士研究生（长期有效）
+1/6
-
《穿越持科研神辅，杀懵外星万舰》第二章 战书如刀诛心魄
+1/5
-
浙江大学-化工学院刘平伟课题组-二维材料/功能聚合物开发-博后招聘
+1/4
-
北理工集成电路杰青团队 | 诚招科助理
+1/4
-
国家纳米中心招聘项目聘用研究助理
+1/4
-
圣路易斯华盛顿大学管建均教授课题组招聘博士后（2名）
+1/3
-
清华大学韩军功教授课题组博士后招聘启事
+1/3
-
圣路易斯华盛顿大学管建均教授课题组招聘博士后（2名）
+1/3
-
力学研究所某专项团队支撑岗位和特别研究助理岗位招聘启事(长期有效)
+1/2
-
科研测试平台求助
+1/2
-
重庆大学药学院沈宏城课题组招聘有机合成科研助理（27年入学博士名额）
+1/1
3楼2011-03-30 18:52:45
2楼2011-03-30 18:46:01
4楼2011-03-30 19:21:48