您所在位置：主题：请教大家一个矩阵输出的问题
xiaoliu420
[专家分：20] 发布于 2010-04-30 20:24:00
大家好，我是新手，fortran刚刚学到矩阵这个地方，遇到以下一个问题看不懂，请大家指教：subroutine output(matrix)
implicit none
integer :: m,n
real :: matrix(:,:)
integer :: i
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
其中character(len=20) :: for='(??(1x,f6.3))'，write( FOR(2:3), '(I2)' ) N
write( *, FMT=FOR ) matrix(i,:) 这几句请大家详细讲一讲，万分感谢
implicit none
integer :: m,n
real :: matrix(:,:)
integer :: i
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
其中character(len=20) :: for='(??(1x,f6.3))'，write( FOR(2:3), '(I2)' ) N
write( *, FMT=FOR ) matrix(i,:) 这几句请大家详细讲一讲，万分感谢