*$ CREATE FTELOS.FOR
*COPY FTELOS
*
*=== Ftelos ===========================================================*
*
      SUBROUTINE FTELOS

      INCLUDE '(DBLPRC)'
      INCLUDE '(DIMPAR)'
      INCLUDE '(IOUNIT)'
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2009-2009         by         Alfredo Ferrari       *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*     Fluka TELOS (death): this routine is called at the very end of a *
*                          FLUKA run                                   *
*                                                                      *
*                                                                      *
*     Created on   12 November 2009   by         Alfredo Ferrari       *
*                                                   CERN - EN          *
*                                                                      *
*     Last change on   12-nov-09      by         Alfredo Ferrari       *
*                                                                      *
*                                                                      *
*----------------------------------------------------------------------*
*
      RETURN
*=== End of subroutine Ftelos =========================================*
      END