Hi,
I found the mistake
an ENDIF was missing in the EFFACE subroutine