读取一组数，计算后结果为零

桂圆莲子汤

对不起，菜鸟从中间起步，不懂的太多，求教：
读取csv格式文件，并进行计算，最后输出CSV格式文件，但是输出数据为0，应该是读取数据 的问题，但是我不知道怎么改，
数据如图：
     数据共48行，11列

程序如下：

[Fortran] 纯文本查看 复制代码

      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

运行结果如下：