Fortran读规定格式文本文件中复数矩阵的难题

山大克鲁士

在下用VS2010 + IVF写了一个读任意m × n阶复矩阵的函数，含有复矩阵的文件格式如下图所示。


我的fortran77代码如下所示：

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

!========================================
          ! Open file in ANSI mode
          open(UNIT = fid, FILE = strFileName,
     &         ACCESS = 'SEQUENTIAL', ACTION = 'READ',
     &         FORM = 'FORMATTED', STATUS = 'OLD')

          ! This is a m X n complex matrix as:
          read(fid, *) strBuf, strBuf, strBuf, 
     &    m, strBuf, n, strBuf, strBuf, strBuf

          ! Memory allocation for A
          allocate(A(m,n), STAT = ierr)
          ! Out of memory
          if (ierr .ne. 0) then
              close(fid, STATUS = 'KEEP')
              print *, 'Out of memory!'
              ReadZMatrixFromFile32 = .false.
              return
          end if

          ! Read matrix from file in row-major format
          ! 下一行肯定是错的，但我真心不知道咋整了。。。
          read(fid, *) ((A(i,j), j=1,n), i=1,m)

          ! Close file
          close(fid, STATUS = 'KEEP')
!======================================

还望大神们指点迷津啊～
Thanks in advance!

山大克鲁士

首先拜谢大神，我马上将您的代码弄进去试试～～～
P.S: 我也弄不清是77还是90，因为在下是C coder过来的，所以很多时候对fortran的东东还很迷糊。。。

山大克鲁士

再次膜拜大神，学生的接口函数全弄好了，多亏了大神才能让学生实现Matlab、C、Fortran的数据文件无缝衔接～～～
大神方便留个qq吗？当然学生绝不会经常打扰的～～～
学生的qq是45152364～