为什么我的fortran设定的是一列，输出的是四列

原紫色天空的爱

想得出一列的，可是算出来txt显示的是四列，附上我的程序
       program main
      implicit none
      integer i,j,k,l,m,n,con1,con2  
      integer::line=18262
        real  year(50)
        real station(18262)
        real  a(100,1)
       !读取资料
       open(10,file='one.txt',status='old')

       do i=1,line
                 read(10,*) station(i)
         end do
         close(10)





       open(20,file='11.txt',status='replace')     

      if (station(1)<1) then
                con1=0
            con2=1
        else
            con1=1
            con2=0
        end if

      do i=2,line
      if(con1==0) then
             if(station(i)<1) then
              con2=con2+1
               con1=0
             else
                  if(con2/=0) then
                    a(con2,1)=a(con2,1)+1
                  endif
            con1=1
            con2=0
            endif
        elseif(con1==1) then
             if(station(i)<1) then
              con2=con2+1
              con1=0
             else
                  if(con2/=0) then
                    a(con2,1)=a(con2,1)+1
                  endif
            con1=1
            con2=0
            endif
      endif
       
        enddo  
            


       
      write(20,*)(a(i,1),i=1,100)


       
      close(20)
        end

言深深

默认的是四列吗？额···刚刚还真的无聊测试了一下，发现事实并非如此，我用整形测试的时候每一行六个数，单精度的时候每一行5个数，双精度的时候每行大约3个数，但是有意思的是，我数了一下，不管哪一种方法，每一行大约占去70个左右的字符。

现在回答楼主的问题，除了楼上@topmad的选用显式循环以外还可以继续使用楼主的隐式循环格式，只不过需要加一个格式输出
write(20,“(f)”) (A(i,1),1=1,100)
同样能够达到效果

mofangbao

默认格式（*）输出都是四列，楼主看一下fortran的格式化输入与输出这一章吧

原紫色天空的爱

mofangbao 发表于 2012-4-17 21:31

                               
登录/注册后可看大图

默认格式（*）输出都是四列，楼主看一下fortran的格式化输入与输出这一章吧

太谢谢了，我试试

topmad

do i=1,100
write(20,*) A(i,1)
enddo

就可以了

qxtlyf

言深深 发表于 2012-4-18 00:38

                               
登录/注册后可看大图

默认的是四列吗？额···刚刚还真的无聊测试了一下，发现事实并非如此，我用整形测试的时候每一行 ...

同感呀，一般用格式输出控制

topmad

我靠，为啥我回帖木有加分.....
一般用默认格式的表示压力不大

言深深

topmad 发表于 2012-4-18 08:34

                               
登录/注册后可看大图

我靠，为啥我回帖木有加分.....
一般用默认格式的表示压力不大

rp不够啊，哈哈

topmad

言深深 发表于 2012-4-18 10:49

                               
登录/注册后可看大图

rp不够啊，哈哈

你这狗屎人品.....居然得小卡片了

诅咒你下次出差宾馆房间里没有小卡片....

言深深

topmad 发表于 2012-4-18 11:17

                               
登录/注册后可看大图

你这狗屎人品.....居然得小卡片了

诅咒你下次出差宾馆房间里没有小卡片....

已经存了，哈哈哈哈哈