C     =======================
      SUBROUTINE ELEFIL(year)
C     =======================

      IMPLICIT NONE

      INTEGER   YEAR, IErr
      REAL      XV(3)

      CALL MODIN('ELEFIL', IErr)
      CALL SETVTX         (XV)   !!! Set vertex

      CALL DO_SIRA95      (XV)   !!! SINISTRA 95
      CALL DO_EM(YEAR,XV)        !!! EM in cell island mode

      CALL MODOUT('ELEFIL')
      RETURN
      END