anchor.diff:      ! Fluka I/O parameters
       integer(kind=int32)         :: flid, flgen
       real(kind=fPrec)  :: flwgt, flx, fly, flz, flxp, flyp, flpc, flm, flt
  -    integer(kind=int16)         :: flaa, flzz
  +    integer(kind=int16)         :: flaa, flzz, flq
       integer(kind=int8)          :: mtype
  +
  +    integer(kind=int32)         :: flpdgid
  +    real(kind=fPrec)            :: flsx, flsy, flsz
   
       write(lout,'(A)') 'FLUKA> call to fluka_end'
       write(fluka_log_unit,*) "# FlukaIO: sending End of Computation signal"
  
positive.code:               flid, flgen, flwgt, &
                flx, fly, flz, &
                flxp, flyp, flzp, &
                flaa, flzz, flm, flet, flt)
  
        if(n.eq.-1) then
          write(fluka_log_unit,*) "# FlukaIO error: Server timed out while waiting for message"
  
negative.code:     integer(kind=int16), allocatable :: zz(:)
      integer(kind=int16), allocatable :: qq(:)
      integer(kind=int32), allocatable :: pdg_id(:)
      real(kind=fPrec), allocatable :: spinx(:)
      real(kind=fPrec), allocatable :: spiny(:)
      real(kind=fPrec), allocatable :: spinz(:)
  
      ! Fluka I/O parameters
      integer(kind=int32) :: flid, flgen
      real(kind=fPrec)    :: flwgt, flx, fly, flz, flxp, flyp, flzp, flet, flm, flt
      integer(kind=int16) :: flaa, flzz, flq
      integer(kind=int8)  :: mtype
  
      integer(kind=int32) :: flpdgid
      real(kind=fPrec)    :: flsx, flsy, flsz
  
      ! Auxiliary variables
      integer :: j
  