24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 639  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085801 总分275 本科新能源 求调剂 +15 bradoner 2026-04-01 19/950 2026-04-02 15:19 by yunlongyang
[考研] 材料专硕322分 +8 哈哈哈吼吼吼哈 2026-04-02 8/400 2026-04-02 15:01 by liu823948201
[考研] 348求调剂 +6 吴彦祖24k 2026-04-02 6/300 2026-04-02 14:07 by 给你你注意休息
[考研] 材料科学与工程调剂 +18 深V宿舍吧 2026-03-30 19/950 2026-04-02 10:28 by sanrepian
[考研] 333求调剂 +3 12138。、m?x?b 2026-03-26 4/200 2026-04-02 09:58 by olim
[考研] 354求调剂 +4 lxb598 2026-03-31 5/250 2026-04-02 09:55 by Jaylen.
[考研] 【求调剂】新能源材料本科,一志愿211,初试321 +6 求调剂学校, 2026-04-02 6/300 2026-04-02 09:41 by 晴空210210
[考研] 274求调剂 +8 薛定谔的虎。 2026-04-01 8/400 2026-04-02 09:21 by 晴空210210
[考研] 367求调剂 +8 芋泥啵啵… 2026-03-28 8/400 2026-04-02 09:20 by olim
[考研] 一志愿 南京航空航天大学 ,080500材料科学与工程学硕 +7 @taotao 2026-03-30 7/350 2026-04-01 14:30 by chenqifeng666
[考研] 348求调剂 +9 zzzzyk123 2026-04-01 9/450 2026-04-01 14:24 by w虫虫123
[考研] 一志愿北京科技大学085601材料工程英一数二初试总分335求调剂 +5 双马尾痞老板2 2026-03-31 5/250 2026-04-01 09:04 by oooqiao
[考研] 318求调剂 +3 笃行致远. 2026-03-31 3/150 2026-03-31 20:27 by 求调剂zz
[考研] 329求调剂,一志愿西北工业大学,材料工程(085601) +6 小小机灵虫 2026-03-29 12/600 2026-03-31 16:58 by 记事本2026
[考研] 085601 329分调剂 +6 yzsa12 2026-03-31 6/300 2026-03-31 15:23 by yanflower7133
[考研] 一志愿浙江大学工科动力工程370,数一121,专业课135,现在能去哪里 +3 080700调剂 2026-03-30 4/200 2026-03-31 12:00 by KLMY666
[考研] 一志愿大连理工大学材料求调剂 +6 Gymno 2026-03-30 6/300 2026-03-31 07:26 by 无际的草原
[考研] 福建理工大学材料学院先进合金团队招收考研调剂学生 +3 大华金商都 2026-03-30 4/200 2026-03-31 01:04 by 方英俊602
[考研] 295求调剂 +5 1428151015 2026-03-27 6/300 2026-03-28 04:04 by fmesaito
[考研] 一志愿吉大071010,316分求调剂 +3 xgbiknn 2026-03-27 3/150 2026-03-27 10:36 by guoweigw
信息提示
请填处理意见