[文件读写] 读取一组数，计算后结果为零

      program main
      implicit none
      integer i,j
      integer ::k
      integer ::b,c
      real ::a(48,11)
      real l,m,n,o,p,q,r_fm,s_at,t
      open(12 , file ="/home/iga_qtong/fortran_xcao/farm/farm_fm.csv")
      open(13 , file ="/home/iga_qtong/fortran_xcao/farm/farmout.csv")
                                                                      !  read(12,*) a(i,j)
      read(12,*) ((a(i,j), j=1,c),i=1,b)
         do
         read(12,*,iostat=k) a(48,11)
         if (k/=0) exit
         do i=1,48
         do j=1,11
         l=a(i,1)*a(i,2)*a(i,3)
         m=a(i,1)*a(i,2)*a(i,4)
         n=l/a(i,5)
         o=m/a(i,6)
         p=n*a(i,7)*a(i,8)
         q=o*a(i,7)*a(i,9)
         r_fm=p*a(i,10)*10
         s_at=q*a(i,11)*10
         t=r_fm+s_at
        write(13,*) l,',',m,',',n,',',o,',',p,',',
     &       q,',',r_fm,',',s_at,',',t
       end do
       end do
       end do
      close(12)
      close(13)
      end program main

program main
  implicit none
  integer k!,i,j
  real ::a(11) !//一维数组就可以了
  real l,m,n,o,p,q,r_fm,s_at,t
  open(12 , file ="/home/iga_qtong/fortran_xcao/farm/farm_fm.csv")
  open(13 , file ="/home/iga_qtong/fortran_xcao/farm/farmout.csv")
  !  read(12,*) a(i,j) !//没用
  !do !//这层循环没用
    !read(12,*,iostat=k) a(48,11) !//此句没用
  do
    read(12,*,ioStat=k) a !//b c 没用值
    if (k/=0) exit
    !do j=1,11 !//这层循环也没用
    l=a(1)*a(2)*a(3)
    m=a(1)*a(2)*a(4)
    n=l/a(5)
    o=m/a(6)
    p=n*a(7)*a(8)
    q=o*a(7)*a(9)
    r_fm=p*a(10)*10
    s_at=q*a(11)*10
    t=r_fm+s_at
    write(13,*) l,',',m,',',n,',',o,',',p,',', &
           q,',',r_fm,',',s_at,',',t
    !end do !//
  end do
  !end do 
  close(12)
  close(13)
end program main