anchor.diff:               write(out,"('This is P=0 atm Voigt, which will be reated as Doppler')")
                !
             endif
  -
  +          !
  +          if (any( w(1:3)==(/'VOI','PSE','LOR','PHO'/))) lineprofile_do = .true.
             !
             proftype = trim(w)
             !
  
positive.code:        case ("HWHM","HALFWIDTH")
            !
            call readf(halfwidth)
            !
         case ("IOFFSET")
            !
  
negative.code:     !
      implicit none
      !
      logical :: eof,if_halfwidth_defined = .false., if_species_defined = .false.
      character(len=cl) :: w,v
      integer(ik)   :: i,ifilter,iE,iS,npoints0,ierror
      type(HitranErrorT),pointer :: HITRAN
  