      SUBROUTINE EISDOC
C***FIRST EXECUTABLE STATEMENT  EISDOC
      RETURN
      END
