24小时热门版块排行榜

>论坛更新日志 (3498)
>虫友互识 (989)
>文献求助 (269)
>导师招生 (172)
>休闲灌水 (164)
>考博 (135)
>教师之家 (89)
>硕博家园 (83)
>博后之家 (82)
>论文投稿 (78)
>找工作 (77)
>论文道贺祈福 (67)
>基金申请 (67)
>考研 (58)
>公派出国 (51)
>招聘信息布告栏 (38)

返回列表

miga0321

金虫 (初入文坛)

应助: 0 (幼儿园)
金币: 551.1
帖子: 30
在线: 19.4小时
虫号: 1980334
注册: 2012-09-06
专业: 金属非晶态、准晶和纳米晶

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

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

错误地方好像就是就是定义的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