求助fortran语言问题
下面有个小程序，赋值的时候老是赋不上，有哪位高手能帮忙指点一下是哪地方出现问题了啊？谢谢！！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
赋完值后为什么ＡＡ（０）和ＡＡ（１）都是０啊！！
直接输入
估计是读入有问题：不要写成 READ(1,*)( XX(I,J),J=1,1)
改成 READ(1,*) XX(1,1)
READ(1,*) XX(2,1)
把读入这个循环去掉，
[ 本帖最后由 dgl0611 于 2009-1-1 20:01 编辑 ]
页:
[1]