INTEGER:: kk_plus1=15
real :: array(15) = 30
character(len=8) :: fmtText
write( fmtText , '(i8)' ) kk_plus1 !//先把 kk_plus1=15 转换成 fmtText="15"
write( * , "(I3,"//fmtText//"F7.2,I8)") 3,array,6 !//再构造格式输出
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |