mkglauber.f

Go to the documentation of this file.

#include "ZcosmosBD.h"
      PROGRAM dpmjet
      IMPLICIT DOUBLE PRECISION (a-h,o-z)
#include "Zmanagerp.h"
#include "Zmanager.h"
#include  "Zevhnp.h"      
! event flag
      integer  NEVENT, ICASCA
      COMMON /dtevno/ nevent,icasca
!-----------------------------------------------------------------------
!       DpmFile is the basic input file for dpmjet.
!       Here, we have to use NO "satart" control word
!       and only make Glauber data.
!
      read(*,'(a)') dpmfile
      write(errorout,*) dpmfile

      intmodel ='"dpmjet3"'

!  
!      CALL DT_DTUINI(NEVTS,EPN,NPMASS,NPCHAR,NTMASS,NTCHAR,IDP,IEMU)
      call cintmodels('cosmos')
      END