Eroare: acest nume nu are un tip și trebuie să aibă un tip explicit

aici este codul meu:

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

eroare:

--------------------Configuration: F5 - Win32 Debug--------------------
Compiling Fortran...
C:\FORTRAN\F5\F5.F90
C:\FORTRAN\F5\F5.F90(16) : eroare: 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)

de la compilatorul compaq. Am nevoie de ajutor, cum pot remedia această eroare?

0
NORM_X0 (i) = X (i)/NORM
adăugat autor Hristo Iliev, sursa

2 răspunsuri

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
0
adăugat

Aveți de două ori "Program Fortran_Project1/IMPLICIT NONE", ceea ce confundă compilatorul. Mai multe elemente de sintaxă non-standard. Variabila x este nedeclarată.

0
adăugat
mulțumesc u, acum este ok:
adăugat autor rasoul jabbari, sursa