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:          mtc   (j) = one            ! hiSix
           naa   (j) = aa0            ! hiSix
           nzz   (j) = zz0            ! hiSix
           nucm  (j) = nucm0          ! hiSix
           moidpsv (j) = one          ! hiSix
           omoidpsv(j) = zero         ! hiSix
  
negative.code:             flid, flgen, flwgt, &
              flx, fly, flz, &
              flxp, flyp, flzp, &
              flaa, flzz, flm, flet, flt, &
              flpdgid, flq, flsx, flsy, flsz)
  
        if(n.eq.-1) then
          write(fluka_log_unit,*) "# FlukaIO error: Error sending Particle"
  