anchor.diff:       open(unit=tunit,file=trim(output)//".life",action='write',status='replace')
        !
        if ( mod(nint(2.0_rk*jrot(1)),2)==0 ) then 
  -       write(my_fmt,'(a)')  '(1x,i11,1x,f12.6,1x,i6,1x,i7,1x,es12.4,3x)'
  +       write(my_fmt,'(a)')      '(1x,i11,1x,f12.6,1x,i6,1x,i7,1x,es12.4,3x)'
  +       write(my_fmt100K,'(a)')  '(1x,i11,1x,f12.5,1x,i6,1x,i7,1x,es12.4,3x)'
        else
  -       write(my_fmt,'(a)')  '(1x,i11,1x,f12.6,1x,i6,1x,f7.1,1x,es12.4,3x)'
  +       write(my_fmt,'(a)')      '(1x,i11,1x,f12.6,1x,i6,1x,f7.1,1x,es12.4,3x)'
  +       write(my_fmt100K,'(a)')  '(1x,i11,1x,f12.5,1x,i6,1x,f7.1,1x,es12.4,3x)'
        endif
        !
        do ilevelf = 1,nlines
          !
          ! write to .life-file
          !
  +       my_fmt0 = my_fmt
  +       !
  +       if (energies(ilevelf)>99999.99999_rk) my_fmt0 = my_fmt100K
  +       !
          if ( mod(nint(2.0_rk*jrot(1)),2)==0 ) then 
  -          write(tunit,my_fmt,advance="no") indices(ilevelf),energies(ilevelf),gtot(ilevelf),nint(jrot(ilevelf)),1.0_rk/Asum(ilevelf)
  +          write(tunit,my_fmt0,advance="no") indices(ilevelf),energies(ilevelf),gtot(ilevelf),nint(jrot(ilevelf)),1.0_rk/Asum(ilevelf)
          else
  -          write(tunit,my_fmt,advance="no") indices(ilevelf),energies(ilevelf),gtot(ilevelf),jrot(ilevelf),1.0_rk/Asum(ilevelf)
  +          write(tunit,my_fmt0,advance="no") indices(ilevelf),energies(ilevelf),gtot(ilevelf),jrot(ilevelf),1.0_rk/Asum(ilevelf)
          endif
          !
          do kitem = 1,maxitems
  
positive.code:               !
                acoef = acoef_ram(iswap)
                !
                if (Asum(ilevelf)<0) Asum(ilevelf) = 0
                !
                Asum(ilevelf) = Asum(ilevelf) + acoef
                !
  
negative.code:               !
                acoef = acoef_ram(iswap)
                !
                if (isnan(Asum(ilevelf))) Asum(ilevelf) = 0
                !
                Asum(ilevelf) = Asum(ilevelf) + acoef+acoef/(exp(c2/temp*tranfreq)-1.0_rk)
                !
  