动态数组输出的问题

matliu · 发表于 2016-1-14 09:53:09

最近在使用动态数组，我在数组输出中遇到了一个问题，具体的和网上的一个问题一样：
一个动态2维数组，现在要将该2维数组以行列的格式输出，这个输出语句该怎么写？

integer ORDER, row, col
real,dimension(:,:),allocatable::S!动态数组S
read (*,*) ORDER
allocate(S(ORDER,ORDER)) !分配S空间
! 分配S中元素
do row=1, ORDER
！！？？此处的输出语句要求在一行上输出数组S中一行ORDER个元素
enddo

谢谢大家了！

vvt · 发表于 2016-1-14 11:27:59

[Fortran] 纯文本查看 复制代码

integer         ORDER, row, col
real,dimension(:,:),allocatable::S!动态数组S
read (*,*) ORDER
allocate(S(ORDER,ORDER))                !分配S空间
! 分配S中元素
do row=1, ORDER
  Write(*,*) S( : , row )
enddo

li913 · 发表于 2016-1-14 16:20:56

http://fcode.cn/guide-45-1.html
FAQ之文件行列与二维数组行列

matliu · 发表于 2016-1-14 23:14:09

o, 我忘了说，每行输出的实数要有一定的格式，例如 F10.5

poorness · 发表于 2016-1-29 22:59:30

[Fortran] 纯文本查看 复制代码

integer    ORDER, row, col
real,dimension(:,:),allocatable::S
read (*,*) ORDER
allocate(S(ORDER,ORDER))       

character(len=40) :: fmtstring="(??(1x,f10.5))"
write(fmtstring(2:3),"(I2.2)") int(ORDER)

do row=1,ORDER
    write(*,fmtstring) S(row,:)
enddo

pasuka · 发表于 2016-1-31 10:20:45

本帖最后由 pasuka 于 2016-1-31 10:22 编辑

直接用新标准的*就行，不用这么折腾

[Fortran] 纯文本查看 复制代码

program ex
implicit none
integer, parameter:: rows=5, cols=4
integer:: i, j
real(kind=8), allocatable:: array(:, :)
if(allocated(array))deallocate(array)
allocate(array(rows, cols))
array = 2.5D0
do i=1, rows
	write(*, '(*(1x, f12.5))')array(i, :)
enddo
end program

poorness · 发表于 2016-2-2 20:38:19

[求助] 动态数组输出的问题

规矩勋章

元老勋章

新人勋章

水王勋章

热心勋章