| 查看: 1864 | 回复: 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 谢谢各位 |
» 猜你喜欢
售SCI一区文章,我:8 O5 51O 54,科目齐全
已经有4人回复
售SCI一区文章,我:8 O5 51O 54,科目齐全
已经有4人回复
售SCI一区文章,我:8 O5 51O 54,科目齐全
已经有4人回复
售SCI一区文章,我:8 O5 51O 54,科目齐全
已经有5人回复
售SCI一区文章,我:8 O5 51O 54,科目齐全
已经有5人回复
有院领导为了换新车,用横向课题经费买了俩车
已经有7人回复
售SCI一区文章,我:8 O5 51O 54,科目齐全
已经有5人回复
售SCI一区文章,我:8 O5 51O 54,科目齐全
已经有6人回复
售SCI一区文章,我:8 O5 51O 54,科目齐全
已经有6人回复
售SCI一区文章,我:8 O5 51O 54,科目齐全
已经有6人回复
» 本主题相关价值贴推荐,对您同样有帮助:
【求助】求fortra程序
已经有4人回复
» 抢金币啦!回帖就可以得到:
-大龄未婚男找女朋友结婚
+1/252
供应爱德华RV 3、RV 12,阿特拉斯及莱宝真空品牌油泵及分子泵等真空产品15216851283
+1/85
黄汉民团队联合淮北师范大学招聘师资博士后(年薪30-40万)
+1/83
结构动力学与结构健康监测方向欧盟玛丽居里全奖博士招聘
+1/78
湘潭大学“过程强化与绿色化工”创新团队补招2026年秋入学博士生
+2/58
西安交通大学前沿院/机械学院招收2026级硕博研究生!
+1/29
新加坡 南洋理工大学- 智能光子/ 传感 PHD 全奖一名 2026 - 8 月入学
+1/19
【科研助理招聘-北京理工大学-集成电路与电子学院-国家杰青团队】
+1/11
招收中国CSC或学校资助联培博士生/访问学生-- Tsinghua-A*STAR 2025 Joint Funding
+1/10
广东工业大学马琳教授课题组招收2026年博士(材料物理与化学、光学专业)
+1/8
2026年 陕西科技大学 环境学院 招收博士生(化学/材料/环境/生物 背景均可)
+1/8
江汉大学轩亮教授课题组招博士研究生/博士后
+1/7
2026年博士申请考核+福州大学+管理科学与工程
+1/4
澳科大招收2026年秋季入学生物材料方向全奖博士研究生(3月5日截止)
+1/4
江汉大学轩亮教授课题组招博士研究生/博士后
+1/4
哈工大(深圳)物理招收2026年9月入学博士生1个名额
+1/3
山东第一医科大学第一附属医院招聘事业编制科研岗
+1/2
求资源
+1/2
北京理工大学(珠海校区)何治宇课题组招收硕士推免生/招聘科研助理2名
+1/2
Advanced Science审稿周期一般要多久
+1/1
3楼2011-03-30 18:52:45
2楼2011-03-30 18:46:01
4楼2011-03-30 19:21:48













回复此楼