Fortran 格式化输出实例

! Iw[.m] w 字宽，m 最少数字
write(*, '(I5.3)') 10
! Fw.d w 字宽，d 小数部分
write(*, '(F9.3)') 123.45
! Ew.d[Ee] w 字宽，d 小数部分，e 指数最少数字
write(*, '(E9.2E3)') 12.34
! Dw.d 同上
! 复数要写两个
write(*, '(F4.1, F4.1)') (1,2)
! Aw w 字宽字符串
write(*, '(A10)') 'Hello'
! nX 先填 n 个空白
write(*, '(5X, I3)') 100
! / 换行
write(*, '(I3//I3)') 10, 10
! SP, SS
write(*, '(SP,I5,I5,SS,I5)') 5, 5, 5