MKL库函数getrs求解线性方程

设置完环境变量后，可以直接编译运行该程序，求解任意阶线性复方程组，先采用LU分解法分解矩阵，后使用GETRS库函数计算，得到解

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        104  2018-09-12 19:39  LinearEquation\LinearEquation\A.txt

     文件         34  2018-09-12 19:40  LinearEquation\LinearEquation\B.txt

     文件        923  2018-09-13 18:16  LinearEquation\LinearEquation\code.f90

     文件       3512  2018-09-13 18:19  LinearEquation\LinearEquation\Debug\BuildLog.htm

     文件      13069  2018-09-13 18:19  LinearEquation\LinearEquation\Debug\code.obj

     文件        577  2018-09-13 08:33  LinearEquation\LinearEquation\Debug\f95_precision.mod

     文件       3001  2018-09-13 08:33  LinearEquation\LinearEquation\Debug\lapack.obj

     文件     997690  2018-09-13 08:33  LinearEquation\LinearEquation\Debug\lapack95.mod

     文件      38400  2018-09-13 18:19  LinearEquation\LinearEquation\Debug\LinearEquation.exe

     文件        381  2018-09-13 18:19  LinearEquation\LinearEquation\Debug\LinearEquation.exe.intermediate.manifest

     文件     684032  2018-09-13 18:19  LinearEquation\LinearEquation\Debug\LinearEquation.pdb

     文件    1089460  2018-09-13 08:33  LinearEquation\LinearEquation\Debug\mkl95_lapack.mod

     文件        579  2018-09-13 08:33  LinearEquation\LinearEquation\Debug\mkl95_precision.mod

    .....H.       250  2018-09-13 18:21  LinearEquation\LinearEquation\LinearEquation.u2d

     文件       2370  2018-09-13 08:33  LinearEquation\LinearEquation\LinearEquation.vfproj

     文件      53248  2018-09-13 18:19  LinearEquation\LinearEquation\vc120.pdb

     文件        987  2018-09-12 19:43  LinearEquation\LinearEquation.sln

    ..A..H.     23040  2018-09-13 18:21  LinearEquation\LinearEquation.v12.suo

     目录          0  2018-09-13 18:19  LinearEquation\LinearEquation\Debug

     目录          0  2018-12-09 10:48  LinearEquation\LinearEquation

     目录          0  2018-09-12 19:43  LinearEquation

----------- ---------  ---------- -----  ----

              2911657                    21