anchor.diff:           character(len=20), intent(in) :: ename
            if(ename=='POLSYNCHTH') then
               e%type=EPOLSYNCHTH
  +            e%neq=4
  +         if(ename=='MAXJUTT') then
  +            e%type=EMAXJUTT
               e%neq=4
            elseif(ename.eq.'HYBRIDTH') then
               e%type=EHYBRIDTH 
  
positive.code:                   ESYNCHPL=3,EPOLSYNCHPL=4,EBREMS=5,ELINE=6, &
                    EIRON=7,EBB=8,EBBPOL=9,EINTERP=10,EFBB=11,ERHO=12, &
                    ESYNCHTHAV=13, ESYNCHTHAVNOABS=14, EHYBRIDTHPL = 20, &
                    EHYBRIDTH=21, EHYBRIDPL=22
  
         type emis
           real(kind=8), dimension(:,:), allocatable :: j,K
  
negative.code:              deallocate(e%bcgs); deallocate(e%incang)
               deallocate(e%ncgsnth); deallocate(e%p)
               call del_polsynchpl(e%neq)              
             CASE (EMAXJUTT) !alwinnote 2015/03/05
               deallocate(e%tcgs); deallocate(e%ncgs)
               deallocate(e%bcgs); deallocate(e%incang)
             CASE (EPOLSYNCHTH)
               deallocate(e%tcgs); deallocate(e%ncgs)
               deallocate(e%bcgs); deallocate(e%incang)
  