anchor.diff:          end if
   
         ! Not yet supported : AC dipole (16)
  +
         case(20)
  -       if(beam_expflag.eq.1) then
  -         if (att_name == "h-sep") then ! [mm]
  -           parbe(ii,5) = newValue
  -         else if (att_name == "v-sep") then ! [mm]
  -           parbe(ii,6) = newValue
  -         else if (att_name=="4dSxx") then !strong I think
  -           parbe(ii,1) = newValue
  -         else if (att_name=="4dSyy") then
  -           parbe(ii,3) = newValue
  -         else if (att_name=="4dSxy") then
  -           parbe(ii,13) = newValue
  -         else if (att_name == "strength") then ! 
  -           ptnfac(ii) = newValue
  -           parbe(ii,4)=(((-one*crad)*ptnfac(ii))*half)*c1m6
  -         else if(att_name == "Sxx") then
  -           parbe(ii,7) = newValue 
  -         else if(att_name == "Sxxp") then
  -           parbe(ii,8) = newValue
  -         else if(att_name == "Sxpxp") then
  -           parbe(ii,9) = newValue
  -         else if(att_name == "Syy") then
  -           parbe(ii,10) = newValue
  -         else if(att_name == "Syyp") then
  -           parbe(ii,11) = newValue
  -         else if(att_name == "Sypyp") then
  -           parbe(ii,12) = newValue
  -         else if(att_name == "Sxy") then
  -           parbe(ii,13) = newValue
  -         else if(att_name == "Sxyp") then
  -           parbe(ii,14) = newValue 
  -         else if(att_name == "Sxpy") then
  -           parbe(ii,15) = newValue
  -         else if(att_name == "Sxpyp") then
  -           parbe(ii,16) = newValue
  -         else 
  -           go to 100
  -         endif
  -         call initialize_element(ii, .false.)
  -       else 
  -         go to 102
  -       end if
  +        if(beam_expflag == 1) then
  +          if(att_name == "h-sep") then ! [mm]
  +            parbe(ii,5)  = newValue
  +          else if(att_name == "v-sep") then ! [mm]
  +            parbe(ii,6)  = newValue
  +          else if(att_name == "4dSxx") then ! strong I think
  +            parbe(ii,1)  = newValue
  +          else if(att_name == "4dSyy") then
  +            parbe(ii,3)  = newValue
  +          else if(att_name == "4dSxy") then
  +            parbe(ii,13) = newValue
  +          else if(att_name == "strength") then
  +            ptnfac(ii)   = newValue
  +            parbe(ii,4)  = (((-one*crad)*ptnfac(ii))*half)*c1m6
  +          else if(att_name == "Sxx") then
  +            parbe(ii,7)   = newValue
  +          else if(att_name == "Sxxp") then
  +            parbe(ii,8)   = newValue
  +          else if(att_name == "Sxpxp") then
  +            parbe(ii,9) = newValue
  +          else if(att_name == "Syy") then
  +            parbe(ii,10) = newValue
  +          else if(att_name == "Syyp") then
  +            parbe(ii,11) = newValue
  +          else if(att_name == "Sypyp") then
  +            parbe(ii,12) = newValue
  +          else if(att_name == "Sxy") then
  +            parbe(ii,13) = newValue
  +          else if(att_name == "Sxyp") then
  +            parbe(ii,14) = newValue
  +          else if(att_name == "Sxpy") then
  +            parbe(ii,15) = newValue
  +          else if(att_name == "Sxpyp") then
  +            parbe(ii,16) = newValue
  +          else
  +            goto 100
  +          end if
  +          call initialize_element(ii, .false.)
  +        else
  +          goto 102
  +        end if
  +
         case(23,26,27,28)
           ! crab cavity, cc mult. kick order 2,3 and 4
           if(att_name == "voltage") then ! [MV]
  
positive.code:           goto 100 ! ERROR
          end if
  
        case(29)! Electron lens
          if(att_name == "theta_r2") then ! [mrad]
            elens_theta_r2(ielens(ii)) = newValue
          else
  
negative.code:       case(20)
          if(beam_expflag.eq.1) then
            if (att_name == "h-sep") then ! [mm]
              dynk_getvalue = parbe(ii,5)
            else if (att_name == "v-sep") then ! [mm]
              dynk_getvalue = parbe(ii,6)
            else if (att_name=="4dSxx") then !strong I think
              dynk_getvalue = parbe(ii,1)
            else if (att_name=="4dSyy") then
              dynk_getvalue = parbe(ii,3)
            else if (att_name=="4dSxy") then
              dynk_getvalue = parbe(ii,13)
            else if (att_name == "strength") then !
              dynk_getvalue = ptnfac(ii)
            else if(att_name == "Sxx") then
              dynk_getvalue = parbe(ii,7)
            else if(att_name == "Sxxp") then
              dynk_getvalue = parbe(ii,8)
            else if(att_name == "Sxpxp") then
              dynk_getvalue = parbe(ii,9)
            else if(att_name == "Syy") then
              dynk_getvalue = parbe(ii,10)
            else if(att_name == "Syyp") then
              dynk_getvalue = parbe(ii,11)
            else if(att_name == "Sypyp") then
              dynk_getvalue = parbe(ii,12)
            else if(att_name == "Sxy") then
              dynk_getvalue = parbe(ii,13)
            else if(att_name == "Sxyp") then
              dynk_getvalue = parbe(ii,14)
            else if(att_name == "Sxpy") then
              dynk_getvalue = parbe(ii,15)
            else if(att_name == "Sxpyp") then
              dynk_getvalue = parbe(ii,16)
            else
              go to 100
            endif
          else
            go to 102
          end if
  
  