24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 640  |  回复: 2

miga0321

金虫 (初入文坛)

[求助] 菜鸟求助。这个程序哪里出问题了?

求好人帮助,新人求教。在线等,不胜感激。

错误地方好像就是就是定义的x,y,z,l,m,n。错误类型如下:
--------------------Configuration: 12 - Win32 Debug--------------------
Compiling Fortran...
C:\Program Files\Microsoft Visual Studio\MyProjects\12\12.f90
C:\Program Files\Microsoft Visual Studio\MyProjects\12\12.f90(22) : Error: Constants and expressions are invalid in read-only I/O lists.   [X]
read (fileid,*)x(i),y(i),z(i)
---------------^
C:\Program Files\Microsoft Visual Studio\MyProjects\12\12.f90(22) : Error: Constants and expressions are invalid in read-only I/O lists.   [Y]
read (fileid,*)x(i),y(i),z(i)
--------------------^
C:\Program Files\Microsoft Visual Studio\MyProjects\12\12.f90(22) : Error: Constants and expressions are invalid in read-only I/O lists.   [Z]
read (fileid,*)x(i),y(i),z(i)
-------------------------^
C:\Program Files\Microsoft Visual Studio\MyProjects\12\12.f90(23) : Error: This name has not been declared as an array.   [L]
l(i)=(2*x(i)-a-b)/(b-a)
^
C:\Program Files\Microsoft Visual Studio\MyProjects\12\12.f90(24) : Error: This name has not been declared as an array.   [M]
m(i)=(2*y(i)-c-d)/(d-c)
^
C:\Program Files\Microsoft Visual Studio\MyProjects\12\12.f90(25) : Error: This name has not been declared as an array.   [N]
n(i)=(2*z(i)-e-f)/(f-e)
^
Error executing df.exe.

12.exe - 6 error(s), 0 warning(s)



程序代码如下。
CODE:
program main
implicit none
integer,parameter :: fileid=10
integer,parameter :: num=8000
integer i,error
real a,b,c,d,e,f,x,y,z,l,m,n
a=-0.574213
b=53.0742
c=-0.574213
d=53.0742
e=-0.573119
f=52.9731

open(fileid,file="file.txt",status="old",iostat=error)
if(error/=0)then
write(*,*)"open file.txt fail."
stop
end if

do i=1,num
read (fileid,*)x(i),y(i),z(i)
l(i)=(2*x(i)-a-b)/(b-a)
m(i)=(2*y(i)-c-d)/(d-c)
n(i)=(2*z(i)-e-f)/(f-e)
end do

do i=1,num
write (*,"(F8.6)") l(i),m(i),n(i)
end do

stop
end program

[ Last edited by jjdg on 2013-2-28 at 00:21 ]
回复此楼

» 猜你喜欢

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

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

weiwei43

至尊木虫 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与,应助指数 +1
jjdg: 金币+1, 感谢参与 2013-02-28 00:21:18
miga0321: 金币+4, ★★★很有帮助, 嗯,这个忘记了回来查看了。你第一个回复,就给你吧。 2013-04-16 09:18:30
程序中x,y,z,l,m,n是当做数组使用的,但是在说明时是实数,没有说明成数组。
2楼2013-02-26 09:53:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nono2009

超级版主 (文学泰斗)

No gains, no pains.

优秀区长优秀区长优秀区长优秀区长优秀版主

【答案】应助回帖


感谢参与,应助指数 +1
jjdg: 金币+1, 辛苦了 2013-02-28 00:21:25
real a,b,c,d,e,f,x,y,z,l,m,n
改为
real a,b,c,d,e,f,x(num),y(num),z(num),l(num),m(num),n(num)
3楼2013-02-27 20:15:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 miga0321 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 求老师收留 +4 lllq123 2026-04-03 4/200 2026-04-03 08:49 by 王亮_大连医科大
[考研] 351求调剂 +3 六兮昂啊 2026-03-27 3/150 2026-04-02 21:08 by dongzh2009
[考研] 070305高分子化学与物理 304分求调剂 +16 c297914 2026-03-28 16/800 2026-04-02 20:50 by dongzh2009
[考研] 321求调剂 +12 y-yh 2026-04-01 14/700 2026-04-02 19:34 by 帕尔马拉特
[考研] 085801 总分275 本科新能源 求调剂 +18 bradoner 2026-04-01 22/1100 2026-04-02 19:25 by 帕尔马拉特
[考研] 265求调剂 +12 林深温澜 2026-04-01 15/750 2026-04-02 19:14 by 一只好果子?
[考研] 270求调剂 +8 小杰pp 2026-03-31 10/500 2026-04-02 12:57 by yulian1987
[考研] 270调剂 +7 maxjxbsk 2026-04-02 7/350 2026-04-02 09:50 by yulian1987
[考研] 材料专硕调剂 +17 椰椰。 2026-03-29 17/850 2026-04-01 20:44 by cq2548
[考研] 285求调剂 +7 AZMK 2026-03-30 13/650 2026-04-01 17:00 by 七度不信任
[考研] 省双一流重点一本大学招收调剂 +4 wwwwffffff 2026-03-31 7/350 2026-04-01 15:23 by wwwwffffff
[考研] 085600,321分求调剂 +13 大馋小子 2026-03-31 13/650 2026-04-01 12:35 by chemdavid
[考研] 一志愿 南京航空航天大学 ,080500材料科学与工程学硕 +10 @taotao 2026-03-31 11/550 2026-04-01 09:43 by xiayizhi
[考研] 一志愿北京科技大学085601材料工程英一数二初试总分335求调剂 +5 双马尾痞老板2 2026-03-31 5/250 2026-04-01 09:04 by oooqiao
[考研] 一志愿中海洋材料357 +4 麦恩莉. 2026-03-30 4/200 2026-03-31 14:35 by 记事本2026
[考博] 材料专业申博 +5 杜雨婷dyt 2026-03-29 5/250 2026-03-31 11:19 by oooqiao
[考研] 269求调剂 +4 我想读研11 2026-03-31 4/200 2026-03-31 10:04 by cal0306
[考研] 083000环境科学与工程调剂,总分281 +4 橙子(胜意) 2026-03-30 4/200 2026-03-31 00:44 by Linzejun
[考研] 298求调剂 +4 种圣赐 2026-03-28 4/200 2026-03-29 08:42 by q1092522407
[考研] 285求调剂 +4 AZMK 2026-03-27 7/350 2026-03-27 20:59 by AZMK
信息提示
请填处理意见