请教，write输出自动换行的问题

shenqyyy

读txt，格式如下：
1981   0101  3333 4444   5555  99999 ...(共53列)
.......
想原格式输出，结果却是是这样(系统自动换行了)，不知原因何在？
   1981       0101    3333   4444
   5555       6666    ......     ......
   .......        .......     ......    99999

代码：
       type temp         
           integer::a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,&
                     a11,a12,a13,a14,a15,a16,a17,a18,a19,&  
                     a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,&
                     a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,&
                     a40,a41,a42,a43,a44,a45,a46,a47,a48,a49,&
                     a50,a51,a52,a53
        end type

        integer,parameter::long=10000
        type(temp),target::s(long)
      open(10,file="d:/smaple.txt", status="old") !输入文件
     open(11,file="d:/out.txt",status="replace") !输出文件
do i=1,long
  read(10,*,iostat=status)s(i)
     if(status/=0)exit         
     write(11,*)s(i)
     end do
    stop
    end

lhaikun@163.com

不知道这个帖子有没有帮助   [经验总结] 不换行顶格输出超长字符串  http://bbs.06climate.com/forum.php?mod=viewthread&tid=15804

言深深

你的数据有10000行？如果是这样的话，你的读取和输出格式就错了···
不过将输出格式写成
write(11,"(53(i8,x))")

对你是有益的

shenqyyy

言深深 发表于 2015-7-21 08:14
你的数据有10000行？如果是这样的话，你的读取和输出格式就错了···
不过将输出格式写成
write(11,"(53 ...

用你的方法，解决！十分感谢

shenqyyy

lhaikun@163.com 发表于 2015-7-20 22:33
不知道这个帖子有没有帮助   [经验总结] 不换行顶格输出超长字符串  http://bbs.06climate.com/forum.php?m ...

好贴，收藏了，多谢

Dai

言深深 发表于 2015-7-21 08:14
你的数据有10000行？如果是这样的话，你的读取和输出格式就错了···
不过将输出格式写成
write(11,"(53 ...

如果是字符型数组该怎么设置呢

解决了 把i换成a就可以了