作者psallen (psallen)
看板Fortran
標題[問題] 程式碼請教
時間Wed Feb 15 00:01:50 2012
小弟是fortran新手，最近在看一段程式碼要將其改成c語言，
但目前有一段一直看不懂想請教版上的高手能否幫忙看看，
感激不盡!
擷取片段程式碼如下:
PARAMETER (M1=18,N1=2**M1)
implicit real*8 (a-h,o-z)
parameter (mtot=1000000)
REAL*8 X(mtot),vvz(mtot,6),xout(mtot,6),xx(n1),xall(n1,6)
complex*16 xfl(n1)
c**
c** nn=number of input responses
c** T=period
c**
write(*,*) ' [1]dt (in inp1) [2] Nterms (1-6) [3] M (13=16s)'
read (*,*) edt,nterm,M
N=2**M
if (edt>10.0) edt=1.0/edt
do i=1,mtot
read (1,*,iostat=kk) ajj,(vvz(i,j),j=1,nterm)
if (kk.ne.0) exit
enddo
write(*,*) ' dt=',edt
看不懂的地方是倒數第四行read那行代表的意思?
因為我執行過第一次的write和read會顯示出來，而第四行的read卻不會顯示出來
要我輸入東西，之前留下的執行檔事會在我輸入完edt,nterm,M的值時要我輸入input檔，
但我擷取出來這段產生的執行檔卻輸入完edt,nterm,M的值時就跳到最後一個write了，
麻煩大家了
謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.121.203.142
※ 編輯: psallen 來自: 122.121.203.142 (02/15 00:07)