*TITLE : CORSIKA  7.5600 09/08/2016  T.PIEROG and D. HECK, KIT, IKP KARLSRUHE
*SVN: $HeadURL: https://devel-ik.fzk.de/svn/mc/corsika/trunk/src/corsika.F $
*REV: $Id: corsika.F 3695 2013-03-28 09:18:31Z pierog $
*CPP migr  :    22/11/2005  by T. PIEROG KIT IKP KARLSRUHE
*-- Author :    The CORSIKA development group   21/04/1994

C=======================================================================
C
C      OOO      OOO     OOOO       OOOO    OO   O      O      O
C     O   O    O   O    O    O    O    O   OO   O    O       O O
C    O        O     O   O     O   O        OO   O  O        O   O
C    O        O     O   O    O     OOOO    OO   OO         O     O
C    O        O     O   OOOO           O   OO   O  O       OOOOOOO
C     O   O    O   O    O   O     O    O   OO   O    O     O     O
C      OOO      OOO     O     O    OOOO    OO   O      O   O     O
C
C - - - - - -  CO(SMIC) R(AY) SI(MULATION FOR) KA(SCADE)  - - - - - - -
C
C
C  A PROGRAM TO SIMULATE EXTENSIVE AIR SHOWERS IN ATMOSPHERE
C
C  BASED ON A PROGRAM OF P.K.F. GRIEDER, UNIVERSITY BERN, SWITZERLAND
C
C  SELECTABLE INTERACTION MODELS:
C
C  HADRONIC HIGH ENERGY
C    DPMJET MODEL FROM J. RANFT, UNIVERSITY OF SIEGEN, SIEGEN, GERMANY
C    EPOS LHC FROM T. PIEROG, KIT, KARLSRUHE GERMANY AND K. WERNER, 
C        UNIVERSITY OF NANTES, NANTES, FRANCE
C    HDPM 'DUAL PARTON MODEL' FROM J.N. CAPDEVIELLE, COLLEGE DE FRANCE,
C        PARIS, FRANCE
C    NEXUS FROM K. WERNER ET AL., UNIVERSITY OF NANTES, NANTES, FRANCE
C    QUARK GLUON STRING MODEL FROM N.N. KALMYKOV AND S.S. OSTAPCHENKO,
C        MOSCOW STATE UNIVERSITY, MOSCOW, RUSSIA
C    SIBYLL FROM R. ENGEL, R.S. FLETCHER, T.K. GAISSER, P. LIPARI, T.
C        STANEV, BARTOL RESEARCH INSTITUTE, UNIVERSITY OF DELAWARE,
C        NEWARK, USA
C    VENUS FROM K. WERNER, UNIVERSITY OF NANTES, NANTES, FRANCE
C
C  HADRONIC LOW ENERGY
C    FLUKA MODEL FROM A. FASSO (CERN), A. FERRARI, J. RANFT (SIEGEN),
C        P. SALA, INFN MILAN, MILAN, ITALY
C    GHEISHA (CERN VERSION) FROM H. FESEFELDT, UNIVERSITY OF AACHEN,
C        AACHEN, GERMANY
C    URQMD MODEL FROM URQMD COLLABORATION, UNIVERSITY FRANKFURT,
C        FRANKFURT (MAIN), GERMANY
C
C  ELECTROMAGNETIC ALL ENERGIES
C    EGS4 FROM W.R. NELSON, H. HIRAYAMA, W.O. ROGERS,
C        SLAC, STANFORD, USA
C    NKG FORMULAS FOR SIMULATION OF ELECTROMAGNETIC PARTICLES
C
C  KARLSRUHE INSTITUTE OF TECHNOLOGY
C  INSTITUTE FOR ASTROPARTICLE PHYSICS
C  POSTFACH 3640
C  D-76021 KARLSRUHE
C  GERMANY
C
C-----------------------------------------------------------------------
C  IN CASE OF PROBLEMS CONTACT:
C
C            T. PIEROG
C  E-MAIL:   TANGUY.PIEROG@KIT.EDU
C  FAX:      (49) 721-608-24075
C  TEL:      (49) 721-608-28134
C
C  OR
C            D. HECK
C  E-MAIL:   DIETER.HECK@PARTNER.KIT.EDU
C  FAX:      (49) 721-608-24075
C  TEL:      (49) 721-608-23777
C
C  PLEASE ASK FOR UPDATED VERSIONS OF THE PROGRAM.
C  OR LOOK AT   https://www.iap.kit.edu/corsika/
C-----------------------------------------------------------------------