1樓:天河流紋石
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)
陣列的定義,必須給出具體大小。
2樓:
陣列 x(i),y(i),z(i) 沒有定義
error: constants and expressions are invalid in read-only i/o lists. [x]
read (fileid,*)x(i),y(i),z(i)
---------------^
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 這隻定義了型別,變數可以這麼幹,陣列不可以;
!下面這樣可以
!dimension x(1: num),y(1:num),z(1:num),l(1:num),m(1:num),n(1:num)
!real a,b,c,d,e,f,x,y,z,l,m,n
!下面這樣可以也可以
real x(1: num),y(1:num),z(1:num),l(1:num),m(1:num),n(1:num)
real a,b,c,d,e,f
!下面這樣可以也可以
!real a,b,c,d,e,f,x(1: num),y(1:num),z(1:num),l(1:num),m(1:num),n(1:num)
!下面這樣可以也可以
!real a,b,c,d,e,f,x( num),y(num),z(num),l(num),m(num),n(num)
!還有一種方法f90的
!real,dimension :: x(1: num),y(1:num),z(1:num),l(1:num),m(1:num),n(1:num)
!real a,b,c,d,e,f
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
另外 "(f8.6)" 也可以用了嗎??
導師要求加微信掙錢教掙錢可靠嗎,加微信導師賺錢是真的嗎急急急
這種肯定不可靠,不是傳銷就是詐騙,自己腦子想想,什麼人會教你掙錢 我不覺得可好,如果真的能那麼容易掙錢的話,那還有那麼多窮人嗎?前面掙了七千後面被騙1.3萬 平白無故的別人為啥教你掙錢,的伎倆,網路發達了,很多心存不軌的人利用某些手段和某些急於求財以及想不勞而獲的人心理來達到自己的目的,一步一步的設...
求用fortran語言幫我編個刑序程式實現將第
program www fcode cn implicit none real a b c integer ierr open 12 file 1.txt open 13 file 2.txt open 14 file 3.txt doread 12 iostat ierr a b if ierr ...
感覺自己導師對自己要求嚴格呀。我作業從頭到尾看了兩遍。還是一步步看的。看別人就看了結果
那你應該感到高興吧,說明導師對你很負責任啊 如果你覺得自己水平低,那你更應該慶幸,導師對你嚴格,挑你的毛病,你能學到很多的。說明導師對你很重視,原因可能在於導師覺得你是個可以培養的好苗子,所以導師願意花更多的時間給你檢查作業和指導你,感謝你的導師吧。沒有吧,你想太多了,可能導師檢查的時候你太在意了,...