Erreur de compilation f90

Bonjour,

J'ai un problème lors de la compilation du programme suivant :

SUBROUTINE ecriproj(TAB,d,nAng,largCha)

REAL :: largColTot
REAL, INTENT(IN) :: d,nAng
INTEGER, INTENT(IN) :: largCha
INTEGER :: NENRG
INTEGER :: nl
REAL, DIMENSION(nAng*d,largCha) :: TAB
REAL, DIMENSION(nAng*d,largCha) :: RECU
CHARACTER*150 FICPRJ

largeur = largCha
FICPRJ= 'im.proj'
NENRG = 0
nl = nAng*d

C Récupération des données du tableau
DO m = 1, nl
DO n = 1, largeur
RECU(m,n) = TAB(m,n)
WRITE (*,*) RECU(m,n)
END DO
END DO

largColTot=d

C Création du fichier de sortie

OPEN ( UNIT=1, FILE=FICPRJ , STATUS='NEW' , IOSTAT=IO )
DO J = 1 , largeur ! largeur de trou
DO I = 1, nl
NENRG = NENRG + 1
!on écrit les résultats des projections dans le fichier de sortie
WRITE (IUREP,REC=NENRG2) TAB(I,J)
END DO
END DO
CLOSE(1)
RETURN
END

J'obtiens l'erreur suivante :
Pacific-Sierra Research vf90 Personal V3.4N5 10:44:17 7/16/10 f90 to f77
subroutine ECRIPROJ
Warning, line 40: No END statement found
/usr/lib/gcc/i386-redhat-linux/3.4.6/libfrtbegin.a(frtbegin.o): In function 'main':
(.text+0x35): undefined reference to 'MAIN__'
collect2: ld a retourné 1 code d'état d'exécution

Je ne comprend pas d'où vient cette erreur. Auriez-vous une idée?
Merci d'avance d'avoir pris le temps de me lire et de me répondre.