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:           flm, flpc, flt)
      if(n.eq.-1) then
        write(fluka_log_unit,*) "# FlukaIO error: Server timed out while waiting End of Computation"
        call flush
        return
      end if
      if(mtype.ne.FLUKA_EOC) then
  
negative.code:     write(fluka_log_unit,*) ' synchronised magnetic rigidity with Fluka'
      write(fluka_log_unit,*) '    transmitted value [Tm/0.3]:', fluka_brho0
      write(fluka_log_unit,*) '    in proper units       [Tm]:', fluka_brho0 / ( fluka_clight*1.0D-09 )
      flush(fluka_log_unit)
  
    end function fluka_set_synch_part
  
  