6楼: Originally posted by 田山东 at 2012-12-27 21:09:39
我有个程序，里面要用到调用矩阵求逆的子函数，

call ZGETRF( N, N, TA, N, IPIV, INFO )
call ZGETRI( N, TA, N, IPIV, WORK, N, INFO )
linux下，装的interfortran，

/opt/intel/mkl/lib/intel64
...

2楼: Originally posted by jingjingdou at 2012-12-27 14:21:34
这是do的嵌套循环，首先执行的是小循环，即：
      do j2=1,n
          write(2,*)j1,j2,real(H0(j1,j2)         
          enddo
此次循环执行完毕在执行外部循环，即：
do j1=1,n
         ……………… ...