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
谢谢各位

回复此楼