こんにちはすべてのFortranの恋人を提出する私は program main
integer N, u
parameter(u=20)
open (u, FILE='points.dat', STATUS='new')
do 10 i= 1, 100
write(u,100) i, i*2, i*5
10 continue
コードのセクションは次のようになります。 DO i = 1 , no2 + 1
IF (Isign.EQ.1) THEN
Ans(i) = fft(i)*Ans(i)/no2
ELSEIF (Isign.EQ.-1) THEN
IF (ABS(Ans(i)) .EQ. 0.0)
& PAUSE ' deconvolving at responce