write(14,*) 'result=', s ! <--だから結果を書きだせってｗ

思わず間違えたｗｗｗｗ