0

这是我的代码：

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)

来自康柏编译器。我需要帮助，我该如何解决这个错误？

4

2 回答 2

4

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

于 2012-06-04T19:47:50.153 回答
0 
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
于 2012-06-05T19:13:20.843 回答