anchor.diff:                !
                 write(out,my_fmt,advance="no"), &
                 tranfreq,abscoef,jrot(ilevelf),energyf, jrot(ileveli),energyi 
  +              !
  +              ! printing the line width 
  +              !
  +              if (Nspecies>0) then 
  +                !
  +                write(out,"(f12.5)",advance="no") halfwidth
  +                !
  +              endif
                 !
                 !write(out,"(a4)",advance="no"), " <- "
                 !
  
positive.code:        !
     end select
     !
     ! estimate memory 
     ! memory_limit-memory_now
     !
     if (hitran.and.partfunc<0.0) then
       write(out,"('For HITRAN partition function must be defined using PF or QSTAT keywords')")
  
negative.code:           write(out,"(10x,'Partition function = ',f17.4)") partfunc
            write(out,"(10x,'Spectrum type = ',a/)") trim(specttype)
            if (offset<0) write(out,"(10x,'Line truncated at ',f9.2/)") offset
            !
         endif
         !
  