anchor.diff:    !
     !VoigtKampff parameters
     integer :: voigt_index=0
  -  
  -  
  +  !
     type selectT
       integer(ik)  :: i = 0
       character(len=cl) :: mask = ""
  
positive.code:        stop
       endif
       !
       loop_tran: do
          !
          ! finis this if the eof has been reached 
  
negative.code:              energyi = energies(ileveli)
               !
               if (energyf-energyi<-1e1) then
                 write(out,"('Error Ei>Ef: i,f,indi,indf,Aif,Ef,Ei = ',4i12,2x,3es16.8)") ilevelf,ileveli,indexf,indexi,acoef,energyf,energyi
                 stop 'wrong order of indices'
                 cycle loop_swap
               elseif (energyf-energyi<small_) then
  