6
2
0
入门
使用道具 举报
954
大师
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
835
大宗师
新人
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
490
4
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
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给完成“有规有矩”任务的网友
颁发给论坛注册3年以上的网友
颁发给注册后积极发言的新人
颁发给发帖量超过一定数量的坛友
颁发给论坛热心帮助他人的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-12-25 10:24
Powered by Tencent X3.4
© 2013-2024 Tencent