Do i = 1 , 200
write(*,'(10(es13.6,","))') a1(i) , a2(i) , a3(i) , a4(i) , a5(i) , a6(i) , a7(i) , a8(i) , a9(i) , a10(i)
End Do
fcode 发表于 2015-5-26 21:42
[mw_shl_code=fortran,true]Do i = 1 , 200
write(*,'(10(es13.6,","))') a1(i) , a2(i) , a3(i) , a4(i) ...
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |