cendRun.f

Go to the documentation of this file.

!         to be called when the end of execution status is reached.
      subroutine cendrun
      implicit none
#if defined (KEKA) || defined (KEKB)
#include "mpif.h"
      integer err
#endif          

!           save current status.      
          call csavestatus 
!            user hook
          call chookenrun
#if defined (KEKA) || defined (KEKB)
          call mpi_finalize(err)
#endif          
      end
!       ***************************************** stave  cont info
      subroutine csavestatus
      implicit none
#include "Zmanagerp.h"
      
      integer icon

      preveventno = eventno    ! current event no.
      call rnd1s(initrn)  !  current seed.
      if(contfile .ne. ' ' ) then
         call copennlfw(tempdev, contfile, icon)
!      open(TempDev, file=ContFile, form='formatted')
         call cwriteparam(tempdev, 1)
         close(tempdev)
      endif
      end
!       ***************************************** print final status
      subroutine cprintstatus
      implicit none
#include "Zmanagerp.h"
#include  "Zptcl.h"
#include  "Zprimary.h"
#include  "Zprimaryv.h"


      character*80 msg
      integer i

      write(msg, *) ' No of cummulative events =', preveventno, 
     *      ' No of events in this run=', eventsintherun
      call cerrormsg(msg, 1)
      write(msg, *) ' comp.    sampled    accepted'
      call cerrormsg(msg, 1)
      do i = 1, prim%no_of_comps
         write(msg, '(i4,2i12)')
     *   i, prim%NoOfSampComp(i,1), prim%NoOfSampComp(i,2)
         call cerrormsg(msg, 1)
      enddo
      call cerrormsg("###end of run###", 1)
      end