FORTRAN77で・・・

質問

IMPLICIT NONE
REAL A(50,50),B(50),X(50),EPS/1E-6/
INTEGER I,KP,N/4/,KPP/50/

DATA (A(1,I),I=1,4)/7.0,2.0,-1.0,1.0/
DATA (A(2,I),I=1,4)/1.0,5.0,1.0,-2.0/
DATA (A(3,I),I=1,4)/2.0,3.0,8.0,1.0/
DATA (A(4,I),I=1,4)/2.0,-2.0,-1.0,10.0/
DATA (B(I),I=1,4)/12.0,6.0,36.0,35.0/
・・・・
という感じのリストでコンパイルするとREALとINTEGERの行で
attempt to give DATAb in type-declaration
というエラーが出るのですが、どう対処したらいいのかわかりません。
教えてください。

回答No.1

notnot

エラーですか？警告でなく？
お使いのコンパイラでは型宣言文での初期値設定ができないということでしょうから、DATA文による設定にすればいいだけだと思いますが、何がどうわからないのでしょうか？