[Fortran] 纯文本查看 复制代码 subroutine output(matrix)
implicit none
integer::m,n
integer::i
real::matrix(:,:)
character(len=20)::for='(??(1x,f6.3))'
m=size(matrix,1)
n=size(matrix,2)
write(for(2:3),'(I2)')n
do i=1,n
write(*,fmt=for)matrix(i,:)
end do
return
end subroutine output
这个个格式输出见得不多啊,write(for(2:3),‘(i2)’),for(2:3)是啥意思啊?这里为什么要这么用呢?还有后面一句write(*,fmt=for)matrix(i,:),这个也没看懂,n到底是行号还是列号?求大神指点,详细见彭国伦书P448
|