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:             ak0(im,orderMult) = newValue*benkc(im)/r0a
            else if(att_name(1:1) == "b" .and. att_name(range:range+3) == "str") then
              bk0(im,orderMult) = newValue*benkc(im)/r0a
            else 
              goto 100 ! ERROR
            endif
          endif
  
          call initialize_element(ii, .false.)
       
        case(12)
          if(att_name == "voltage") then ! [MV]
            ed(ii) = newValue
  
negative.code:             goto 100
            endif
            if(iErr) goto 100
  
            if(att_name(1:1) == "a" .and. att_name(range:range+3) == "rms") then
              dynk_getvalue = aka(im,orderMult)
            else if(att_name(1:1) == "b" .and. att_name(range:range+3) == "rms") then
              dynk_getvalue = bka(im,orderMult)
            else if(att_name(1:1) == "a" .and. att_name(range:range+3) == "str") then
              dynk_getvalue = ak0(im,orderMult)
            else if(att_name(1:1) == "b" .and. att_name(range:range+3) == "str") then
              dynk_getvalue = bk0(im,orderMult)
            else
              goto 100 ! ERROR
            endif
  