here is my code:
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
error:
--------------------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)
from compaq compiler. I need help, how can I fix this error?
You have “Program Fortran_Project1 / IMPLICIT NONE” twice, which is confusing the compiler. Several non-standard syntax items. Variable x is undeclared.