错误：这个名字没有一个类型，而且必须有一个明确的类型

Question

这里是我的代码：

Program Fortran_Project1 

IMPLICIT NONE 

INTEGER:: i 
REAL*4:: NORM 
INTEGER,PARAMETER:: N=5 
REAL*4,DIMENSION(N)::X0,NORM_X0 

WRITE(*,*) 'parametrhaye matrix X0 ra vared konid' 

NORM=0 

Do i=1,N 
READ(*,*) X0(i) 
NORM=NORM + X0(i)**2 
EndDo 

NORM=SQRT(NORM) 
NORM_X0(:)=1.0d0 

Do i=1,N 
NORM_X0(i)=X(i)/NORM 
EndDo 

WRITE(*,'(A,\)') 'X0=' 
WRITE(*,'(F,\)') (X0(i),i=1,N-1) 
WRITE(*,'(F)') X(N) 
WRITE(*,'(A5,x,F)') 'NORM_X0=',NORM 
WRITE(*,'(A7,\)') 'NORM_X0=' 

Do i=1,N-1 
WRITE(*,'(2x,F8.6,\)') NORM_X0 
EndDo 

WRITE(*,'(2x,F8.6)') NORM_X0 

ENDPROGRAM Fortran_Project1 

错误：

--------------------Configuration: F5 - Win32 Debug-------------------- 
Compiling Fortran... 
C:\FORTRAN\F5\F5.F90 
C:\FORTRAN\F5\F5.F90(16) : Error: This name does not have a type, and must have an explicit type. [X] 
NORM_X0(i)=X(i)/NORM 
-------------------^ 
Error executing df.exe. 

F5.OBJ - 1 error(s), 0 warning(s) 

从康柏公司的编译器。我需要帮助，我该如何解决这个错误？

Answer 1

您有两次“编程Fortran_Project1/IMPLICIT NONE”，这令编译器感到困惑。几个非标准的语法项目。变量x是未声明的。

Answer 2

Program Fortran_Project1 
implicit none 
INTEGER:: i 
REAL*4:: NORM 
INTEGER,PARAMETER:: N=5 
REAL*4,DIMENSION(N)::A0,NORM_A0 
WRITE(*,*) 'parametrhaye matrix A0 ra vared konid' 
NORM=0 
Do i=1,N 
    READ(*,*) A0(i) 
    NORM=NORM + A0(i)**2 
EndDo 
NORM=SQRT(NORM) 
NORM_A0(:)=1.0 
Do i=1,N 
    NORM_A0(i)=A0(i)/NORM 
EndDo 
WRITE(*,'(A,\)') 'A0=' 
WRITE(*,'(F,\)') (A0(i),i=1,N-1) 
WRITE(*,'(F)') A0(N) 
WRITE(*,'(A8)') 'NORM_A0=' 
WRITE(*,'(3x,(F,\))') (NORM_A0(i),i=1,N-1) 
WRITE(*,'(F)') NORM_A0(N) 
ENDPROGRAM Fortran_Project1