anchor.diff:      n = ntsendeoc(fluka_cid)
       if(n.lt.0) then
         write(fluka_log_unit,*) "# FlukaIO error: Error sending End of Computation"
  -      call flush
  +      flush(fluka_log_unit)
         return
       end if
   
  
positive.code:     real(kind=fPrec)  :: s(fluka_max_npart), etot(fluka_max_npart)
  
      ! Fluka I/O parameters
      integer*4         :: flid, flgen
      real(kind=fPrec)  :: flwgt, flx, fly, flz, flxp, flyp, flzp, flet, flm, flt
      integer*2         :: flaa, flzz
      integer*1         :: mtype
  
      ! Auxiliary variables
      integer :: n, j
  
negative.code:              ntend
  
    ! FlukaIO Message types
    integer(kind=int8), parameter :: FLUKA_PART = 1, &
                                     FLUKA_EOB  = 2, &
                                     FLUKA_EOC  = 3, &
                                     FLUKA_CONF = 4, &
                                     FLUKA_IPT  = 5, &
                                     FLUKA_HSK  = 6, &
                                     FLUKA_NPART= 7, &
                                     FLUKA_BRHO = 8
    ! connection ID
    integer :: fluka_cid
  
  