do i=1,5
if (1.ne.j) then
ya(1,2*j-1)=0
ya(1,2*j)=0
else
ya(1,2*i-1)=2*e(i+1)
ya(1,2*i)=2*f(i+1)
end if
end do
最初と次だけ値を入れたいんですがエラーが起きる可能性がありますでしょうか？
http://www.coastal-env.k.u-tokyo.ac.jp/koibuchi/fortran95/fortran77.htm
の通りにダウンロードしましたが e(1)=2.000でやったんですが
1.955 0.000 -0.646 0.000 0.000 0.000
という値がでます。これの前で他の計算をして１行目だけこれで適用させてますが・・・・