record(calcout, "$(PREF)AC:$(RING):position:$(C)_calc") {
  field(DESC, "AC $(RING) $(C)-position CALC")
  field(SCAN, "Passive")
  field(CALC, "ABS(A+B)>0.01?((A-B)/(A+B))*C:0")
  field(INPA, "$(PREF)AC:$(RING):voltage:$(C)_minus CPP")
  field(INPB, "$(PREF)AC:$(RING):voltage:$(C)_plus CPP")
  field(INPC, "$(SLOPE)")
  field(OUT, "$(PREF)AC:$(RING):position:$(C) PP") 
  field(OOPT, "Every Time")
  field(DOPT, "Use CALC")
  field(OCAL, "1")
}

record(calcout, "$(PREF)AC:$(RING):instensity:$(C)_calc") {
  field(DESC, "AC $(RING) $(C)-intesity CALC")
  field(SCAN, "Passive")
  field(CALC, "A+B")
  field(INPA, "$(PREF)AC:$(RING):voltage:$(C)_minus CPP")
  field(INPB, "$(PREF)AC:$(RING):voltage:$(C)_plus CPP")
  field(OUT, "$(PREF)AC:$(RING):intensity:$(C) PP") 
  field(OOPT, "Every Time")
  field(DOPT, "Use CALC")
  field(OCAL, "1")
}

record(ai, "$(PREF)AC:$(RING):position:$(C)") {
  field(DESC, "AC $(RING) $(C)-position")
  field(SCAN, "Passive")
  field(PREC, "3" )
  field(EGU , "mm")
}

record(ai, "$(PREF)AC:$(RING):intensity:$(C)") {
  field(DESC, "AC $(RING) $(C)-intensity")
  field(SCAN, "Passive")
  field(PREC, "3" )
  field(EGU , "V")
}

record(calcout, "$(PREF)AC:$(RING):scaled:$(C)_plus") {
  field(DESC, "AC $(RING) $(C)-plus norm. voltage")
  field(SCAN, "Passive")
  field(PREC, "3")
  field(CALC, "A*B*C")
  field(INPA, "$(V_PLUS) CPP NMS")
  field(INPB, "$(ADC2V)")
  field(INPC, "$(GAIN_PLUS)")
  field(OOPT, "Every Time")
  field(DOPT, "Use CALC")
}

record(calcout, "$(PREF)AC:$(RING):scaled:$(C)_minus") {
  field(DESC, "AC $(RING) $(C)-minus norm. voltage")
  field(SCAN, "Passive")
  field(PREC, "3")
  field(CALC, "A*B*C")
  field(INPA, "$(V_MINUS) CPP NMS")
  field(INPB, "$(ADC2V)")
  field(INPC, "$(GAIN_MINUS)")
  field(OOPT, "Every Time")
  field(DOPT, "Use CALC")
}


record(calcout, "$(PREF)AC:$(RING):voltage:$(C)_plus") {
  field(DESC, "AC $(RING) $(C)-plus ped sub volt")
  field(SCAN, "Passive")
  field(PREC, "3")
  field(CALC, "A-D")
  field(INPA, "$(PREF)AC:$(RING):scaled:$(C)_plus CPP NMS")
  field(INPD, "$(PREF)AC:$(RING):ped:$(C)_plus CPP NMS")
  field(OOPT, "Every Time")
  field(DOPT, "Use CALC")
}

record(calcout, "$(PREF)AC:$(RING):voltage:$(C)_minus") {
  field(DESC, "AC $(RING) $(C)-minus ped sub volt")
  field(SCAN, "Passive")
  field(PREC, "3")
  field(CALC, "A-D")
  field(INPA, "$(PREF)AC:$(RING):scaled:$(C)_minus CPP NMS")
  field(INPD, "$(PREF)AC:$(RING):ped:$(C)_minus CPP NMS")
  field(OOPT, "Every Time")
  field(DOPT, "Use CALC")
}