新手写openmp程序，结果不能运行，求教高手指点

我用visual studio2013 +intel fortran2013来编写openmp的程序，

调试结果为哦错误，0警告，但是就是运行出错，说是遇到程序断点，错误出现在刚刚读入数据的地方

研究了很久都没结果，求路过的大神指点一二，拜谢！！！

程序如下（求解系数矩阵）：

c************************************************************
c    求解大型稠密系数矩阵
c    应用于有限元刚度系数矩阵求解问题
c    采用openmp+fortran进行编译
c    采用无带回的高斯消去法
c************************************************************
      
      program coefficientmatrix
      use omp_lib
      implicit none
      integer,parameter::row=3
      integer,parameter::col=3
      integer my_id,i,j,k,nth,chunk
      real*8 buffer
      real*8 A(row,col),x(row),y(row)     
      
      chunk=1
      
c     读入矩阵A和向量y
      open(unit=1,file='A_data.txt')
      do i=1,row
          do