anchor.diff:             CASE (EHYBRIDTHPL)
                call emis_model_synchth(e,ep%mu)
                call emis_model_synchpl(e,ep%gmin,ep%gmax,ep%p1)
  +           CASE (EHYBRIDTH) !alwinnote
  +             call emis_model_synchth(e,ep%mu)
  +             call emis_model_synchpl(e,ep%gmin,ep%gmax,ep%p1)
  +           CASE (EHYBRIDPL) !alwinnote
  +             call emis_model_synchth(e,ep%mu)
  +             call emis_model_synchpl(e,ep%gmin,ep%gmax,ep%p1)
              CASE (EPOLSYNCHTH)
                call emis_model_synchth(e,ep%mu)
              CASE (EPOLSYNCHPL)
  
positive.code:              call polsynchpl(nu,e%ncgsnth,e%bcgs,e%incang,e%p,e%gmin, &
                e%gmax,Kpl)
               K = Kth + Kpl
  
             case(epolsynchth)
                write(6,*) 'polsynchth nu: ',nu
  
negative.code:          type (emis), intent(out) :: e
           character(len=20), intent(in) :: ename
           if(ename=='POLSYNCHTH') then
              e%type=EPOLSYNCHTH
              e%neq=4
           elseif(ename.eq.'HYBRIDTH') then
              e%type=EHYBRIDTH 
              e%neq=4
           elseif(ename.eq.'HYBRIDPL') then
              e%type=EHYBRIDPL 
              e%neq=4
           elseif(ename=='HYBRIDTHPL') then
              e%type=EHYBRIDTHPL 
              e%neq=4
           elseif(ename=='SYNCHTHAV') then
              e%type=ESYNCHTHAV
  