anchor.diff:      integer :: n
   
       ! Fluka I/O parameters
  -    integer*4         :: flid, flgen
  +    integer(kind=int32)         :: flid, flgen
       real(kind=fPrec)  :: flwgt, flx, fly, flz, flxp, flyp, flpc, flm, flt
  -    integer*2         :: flaa, flzz
  -    integer*1         :: mtype
  +    integer(kind=int16)         :: flaa, flzz
  +    integer(kind=int8)          :: mtype
   
       write(fluka_log_unit,*) "# FlukaIO: sending End of Computation signal"
   
  
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:                                 FLUKA_ENTRY   = 2, & ! SINGLE ELEMENT marking the start of the insertion
                                  FLUKA_EXIT    = 3    ! SINGLE ELEMENT marking the end   of the insertion
    ! ancillary tracking values
    integer, public :: fluka_max_npart                          ! Maximum number of particles (array size)
    integer, public :: fluka_max_uid                            ! Highest particle ID
    integer(kind=int32), public, allocatable :: fluka_uid(:)    ! particle ID
    integer(kind=int32), public, allocatable :: fluka_gen(:)    ! ID of parent particle
    real(kind=fPrec), public, allocatable    :: fluka_weight(:) ! statistical weight (>0.0)
  
    ! Useful values
    integer :: fluka_nsent     ! Temporary count of sent particles
  