Originally posted by zcntydyd at 2010-11-25 15:31:44:
Hi,all,

我要经常格式化输出一行数据，这些数据个数是可变的.于是,我在format格式里用了各可变参数，这样可以根据我的实际数据个数来格式化输出这些数据（程序例子如下）。本想如此，可是程序根本编译不同，提 ...

        integer(kind=8),allocatable,dimension(:)::atmnumb(:)
        integer(kind=8),parameter::specnumb=3
        character (len = 20) FMT
        allocate(atmnumb(specnumb))
        do i=1,specnumb
          atmnumb(i)=i
        enddo
        write(FMT,'("(",I0,"(2x,i2)",")")')specnumb
        write(*,FMT)atmnumb(:)
        end