anchor.diff:        call chr_fromReal(ejv(j),  roundBuf(177:200),17,3,rErr)
         if(withIons) then
           call chr_fromReal(nucm(j), roundBuf(202:225),17,3,rErr)
  -        write(fileUnit, "(i8,1x,i8,2(1x,l4),a225,2(1x,i4))") &
  -        partID(j),parentID(j),llostp(j),isPrim,roundBuf(1:225),naa(j),nzz(j)
  +        write(fileUnit, "(i8,1x,i8,2(1x,l4),a225,3(1x,i4))") &
  +        partID(j),parentID(j),llostp(j),isPrim,roundBuf(1:225),naa(j),nzz(j),nqq(j)
         else
           write(fileUnit, "(i8,1x,i8,2(1x,l4),a200)") &
             partID(j),parentID(j),llostp(j),isPrim,roundBuf(1:200)
  
positive.code:     end do
    else
      call f_open(unit=fileUnit,file=fileName,formatted=.false.,mode="w",status="replace",access="stream")
      write(fileUnit) napx,napxo,npart,iDummy ! 4x32bit
      do j=1,npart
        ! These have to be set explicitly as ifort converts logical to integer differently than gfortran and nagfor
        if(partID(j) <= napxo) then
  
negative.code:   use parpro
    use mod_common
    use mod_common_main
    use mod_common_track
    use mod_settings
    use string_tools
  
    use, intrinsic :: iso_fortran_env, only : int16
  
    character(len=*), intent(in) :: fileName
    logical,          intent(in) :: isText
    logical,          intent(in) :: withIons
  
    character(len=225) :: roundBuf
    integer            :: fileUnit, j, iPrim, iLost
    logical            :: rErr, isPrim
  
    call f_requestUnit(fileName, fileUnit)
  
    if(isText) then
  