cendRun.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cendrun
subroutine	csavestatus
subroutine	cprintstatus

Function/Subroutine Documentation

cendrun()

subroutine cendrun

(

)

Definition at line 3 of file cendRun.f.

References chookenrun(), and csavestatus().

Referenced by cmanager().

      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          

Here is the call graph for this function:

Here is the caller graph for this function:

cprintstatus()

subroutine cprintstatus

(

)

Definition at line 35 of file cendRun.f.

References cerrormsg().

Referenced by chookenrun().

      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)

Here is the call graph for this function:

Here is the caller graph for this function:

csavestatus()

subroutine csavestatus

(

)

Definition at line 19 of file cendRun.f.

References cwriteparam().

Referenced by cendrun().

      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

Here is the call graph for this function:

Here is the caller graph for this function: