reducebinSize.f File Reference

Go to the source code of this file.

Functions/Subroutines
program	__reducebinsize.f__
subroutine	binreadhead

Function/Subroutine Documentation

__reducebinsize.f__()

program __reducebinsize.f__

(

)

Definition at line 23 of file reducebinSize.f.

References binreadhead(), charge, code, copenfw2(), i, j, kgetenv2(), klena(), leng, nfai, nrbin, parameter(), rndc(), subcode, t, and true.

      type(buffer):: abuf

Here is the call graph for this function:

binreadhead()

subroutine binreadhead

(

)

Definition at line 277 of file reducebinSize.f.

Referenced by __reducebinsize.f__().

!
#include "../FleshHist/Zprivate1.h"
#include "../FleshHist/Zprivate3.h"
      real*8  et, wx, wy, wz
      integer eventno
      integer*2  code
      integer i, icon
      
      type(buffer):: abuf
      save

      read(fnodat)
     *        eventno, code,   et,  wx, wy, wz
      write(*,'("i ",  i3,  i4, g13.4,3f11.7)')
     *        eventno, code,   et,  wx, wy, wz
      
      bufc = 0
      return

!     ******************
      entry  binread1(abuf, icon)
!     ***************
      if(bufc .eq. 0) then
         read(fnodat,end=100, err=500) bufc, (buf(i), i=1, bufc)
!        ****************************
!          bufc usage was wrong for the first 10^19 eV event made by
!          olixxx.   it is 0~99999; while correct one should be
!                    1~100000.  we neglect data at 0 and 100000.
         if(bufc .eq. 100000) bufc=bufc-1
      endif
      if(bufc .gt. 0) then
         abuf= buf(bufc)
         bufc = bufc -1
         icon = 0
      else
         write(0, *) ' strange bufc'
         stop 99999
      endif
      return
 100  continue
      icon = 1
      return
 500  continue
      write(0,*) ' input data read err'
      stop

Here is the caller graph for this function: