anchor.diff:       !
        open(unit=tunit,file=trim(intfilename(i)),action='read',status='old',iostat=iostat_)
        !
  -     
        eof = .false. ! this will be used to control if the end of file is reached
        !
        if (verbose>=3) print('("  Processing ",a,"...")'), trim(intfilename(i))
  
positive.code:     endif
      !
      if (proftype(1:3)/='BIN'.and.microns) then
        !
        write(out,"('Microns or um is currently only working with BIN, not ',a)") proftype(1:3)
        call report ("Illegal profile for Microns"//trim(w),.true.)
        !
      endif
      !
      if (proftype(1:3)=='BIN'.and.microns) then
        !
        proftype = 'BIN-MICRON'
        !
      endif
      !
      if (proftype(1:3)=='BIN'.and.use_resolving_power) then
        !
        proftype = 'BIN-R'
        !
      endif
      !
      if (use_resolving_power) then
  
negative.code:        !
         if (stick_hitran) then
           !
           write(sunit,"(i3,f12.6,e10.3,e10.3,f5.4,f5.3,f10.4,f4.2,f8.6)",advance="no") &
                       iso,tranfreq,abscoef,acoef,&
                       species(1)%gamma,species(2)%gamma,&
                       energyi,species(1)%n,species(1)%delta
  