anchor.diff:  
   
         ret = fluka_send_receive( fluka_nturn, fluka_geo_index(fluka_ix), fluka_synch_length( fluka_ix ), &
  -           napx, xv1, xv2, yv1, yv2, sigmv, ejv, naa, nzz, nucm, nqq, pdgid )
  +           napx, xv1, xv2, yv1, yv2, sigmv, ejv, naa, nzz, nucm, nqq, pdgid, &
  +           spin_x, spin_y, spin_z )
   
         if (ret.eq.-1) then
            write(lerr,'(A)')'FLUKA> ERROR -1 in Fluka communication returned by fluka_send_receive...'
  
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:     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(kind=int32) :: n, j
  