数据为单列:
   1
   1
   1
  13
  13
  13
  15
  15
  15
  17
  17
  17
  23
  23
  23
  25
  25
  25
  ...

我只需要读一下数，现在每一个都重复了三次，所以想重新输出成三列，然后只读第一列， 也就是

   1
  13
  15
  17
  23
  25
  ...

这样。

我写的源程序是:

      program main

      character(160) :: filename,tmp
    integer m,n
    integer i,line,a

      filename='A_1_'
      print*, 'Please enter the number of files:'
      read*,n
          do m=1,n
        write(tmp,*)m      
        
      open(10,status='old', file=trim(filename)//trim(adjustl(tmp))
    1//'.dat')

    line=1000
      do i = 1,line
      read(10,111,iostat=ios) a
    if (ios /=0) then
    exit
    endif

      open(11,status='unknown',file=trim('B_1_')//trim(adjustl(tmp))
    1//'.dat')
      write(11,112) a

    enddo
      enddo

111   format (3I4)
112   format (I4,2x,2x)
      close(10)
      close(11)

    end

这里的file=trim(filename)//trim(adjustl(tmp))，是说我有许多这一类数据，希望进行批处理。不知道format哪里不对，现在的问题是输出和原数据一样，也是单列然后每个重复三次。请问如何解决?

另外想问一下，输出的时候，能否在同一个文件输出很多列? 比如每个文件二十列(读二十个原文件，然后将结果输出到同一个dat文件里，像下面的举例那样)。这样读起来会更方便。请问这个想法是否可行，以及最多可以有多少列在同一个文件中?

eg:

   1   1   ...
  13   12  ...
  15   13  ...
  17   15  ...
  23   16  ...
  25   19  ...
  ...  ... ...