*$ CREATE CTITLE.ADD
*COPY CTITLE
*
*=== ctitle ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 1990-2005      by          Alfredo Ferrari         *
*     All Rights Reserved.                                             *
*                                                                      *
*                                                                      *
*   Common Ctitle: it allows the identification of the run             *
*                                created by A. Ferrari on 10-feb-1990  *
*                                                                      *
*          included in:                                                *
*                        fluka (main)                                  *
*                        bdnopt                                        *
*                        detect                                        *
*                        jomin                                         *
*                        usrbin                                        *
*                                                                      *
*----------------------------------------------------------------------*
*
      CHARACTER RUNTIT*80, RUNTIM*32, RUNKEY*10, RUNGEO*60
      COMMON / CTITLE / RUNTIT, RUNTIM, RUNKEY, RUNGEO
      COMMON / CEXPCK / ITEXPI, ITEXMX, IOPOUT, IOUTUN (MXOUTU)
      SAVE / CTITLE /, / CEXPCK /