求助fortran语言问题

嘟嘟06

下面有个小程序，赋值的时候老是赋不上，有哪位高手能帮忙指点一下是哪地方出现问题了啊？谢谢！！
FUNCTION F(X)
DOUBLE PRECISION F,X
REAL XX(2,1)
REAL AA(2)
OPEN(1,FILE='逐步回归系数密度70T.txt',STATUS='OLD')
DO 50 I=1,2
READ(1,*)( XX(I,J),J=1,1)
50     CONTINUE
        CLOSE(1)
  AA(0)=XX(1,J)
AA(1)=XX(2,J)
F=AA(0)+AA(1)*X  
WRITE(*,60)AA(0)
60 FORMAT(1X,'AA(0)=',D15.6)
      RETURN
END
赋完值后为什么ＡＡ（０）和ＡＡ（１）都是０啊！！

dgl0611

估计是读入有问题：
不要写成 READ(1,*)( XX(I,J),J=1,1)
改成 READ(1,*) XX(1,1)
          READ(1,*) XX(2,1)
    把读入这个循环去掉，

[ 本帖最后由 dgl0611 于 2009-1-1 20:01 编辑 ]