undlist = ("SARUN03","SARUN04","SARUN05","SARUN06","SARUN07","SARUN08","SARUN09",
           "SARUN10","SARUN11","SARUN12","SARUN13","SARUN14","SARUN15")

for und in undlist:
  K = caget(und + "-UIND030:K_SET")
  K_taper = caget(und + "-UIND030:K_TAPER_SET")
  K = K + K_taper
  caputq(und + "-UIND030:K_SET", K)
  caputq(und + "-UIND030:K_TAPER_SET", 0.0)
  
set_return("Success")