#! Generated by VisualDCT v2.5
#! DBDSTART
#! DBD("../../../../xxx/dbd/iocxxxVX.dbd")
#! DBDEND


record(ao, "$(P)interp_x") {
  field(DTYP, "Soft Channel")
  field(FLNK, "$(P)interp.VAL  PP MS")
  field(PREC, "5")
}

record(ao, "$(P)interp_y1") {
  field(DTYP, "Soft Channel")
  field(DISV, "0")
  field(SDIS, "$(P)interp_doOutput.VAL PP")
  field(PREC, "5")
}

record(ao, "$(P)interp_y2") {
  field(DTYP, "Soft Channel")
  field(DISV, "0")
  field(SDIS, "$(P)interp_doOutput.VAL")
  field(PREC, "5")
}

# A: x
# B: y1(x)
# C: y2(x)
# D: x' (where yi are wanted)
# E: num values
# F: polynomial order
# VALB: y1(D)
# VALC: y2(D)
# VALF, VALG: limits on D
record(aSub, "$(P)interp") {
  field(INAM, "interp_init")
  field(SNAM, "interp_do")
  field(PREC, "5")
  field(FTA, "DOUBLE")
  field(FTB, "DOUBLE")
  field(FTC, "DOUBLE")
  field(FTF, "LONG")
  field(FTVB, "DOUBLE")
  field(FTVC, "DOUBLE")
  field(INPG, "$(P)interp_mode.RVAL")
  field(FTG, "LONG")
  field(FTVE, "LONG")
  field(OUTF, "$(P)interp_y1 PP")
  field(OUTG, "$(P)interp_y2 PP")
  field(EFLG, "ON CHANGE")
  field(INPA, "$(P)interp_x")
  field(INPB, "$(P)interp_y1.VAL")
  field(INPC, "$(P)interp_y2.VAL")
  field(OUTN, "$(P)interp_n PP")
  field(FTVA, "DOUBLE")
  field(FTVF, "DOUBLE")
  field(FTVG, "DOUBLE")
  field(FTVN, "LONG")
  field(NOVA, "$(N)")
  field(NOVB, "$(N)")
  field(NOVC, "$(N)")
  field(OUTE, "$(P)interp_ok PP")
}

record(mbbo, "$(P)interp_mode") {
  field(ZRVL, "0")
  field(ONVL, "1")
  field(ZRST, "Interpolate")
  field(ONST, "Add Entry")
  field(NOBT, "2")
  field(TWVL, "2")
  field(TWST, "Clear All")
}

record(longout, "$(P)interp_n") {
}


record(calcout, "$(P)interp_doOutput") {
  field(CALC, "A && !B && C")
  field(INPB, "$(P)interp_mode.RVAL")
  field(INPA, "$(P)interp_x.PACT")
  field(INPC, "$(P)interp_ok.VAL")
}

record(longout, "$(P)interp_ok") {
  field(MDEL, "-1")
}

#! Further lines contain data used by VisualDCT
#! View(1,-106,0.8)
#! Record("$(P)interp_x",420,222,0,0,"$(P)interp_x")
#! Field("$(P)interp_x.VAL",16777215,1,"$(P)interp_x.VAL")
#! Field("$(P)interp_x.FLNK",16777215,1,"$(P)interp_x.FLNK")
#! Link("$(P)interp_x.FLNK","$(P)interp_x/FLNK")
#! Connector("$(P)interp_x/FLNK","$(P)interp",940,176,16777215,"",0)
#! Field("$(P)interp_x.PACT",16777215,0,"$(P)interp_x.PACT")
#! Visibility("$(P)interp_x.DTYP",2)
#! Visibility("$(P)interp_x.FLNK",2)
#! Visibility("$(P)interp_x.PREC",2)
#! Record("$(P)interp_y1",720,368,0,0,"$(P)interp_y1")
#! Field("$(P)interp_y1.SDIS",16777215,0,"$(P)interp_y1.SDIS")
#! Link("$(P)interp_y1.SDIS","$(P)interp_doOutput.VAL")
#! Field("$(P)interp_y1.VAL",16777215,1,"$(P)interp_y1.VAL")
#! Visibility("$(P)interp_y1.DTYP",2)
#! Visibility("$(P)interp_y1.SDIS",2)
#! Visibility("$(P)interp_y1.PREC",2)
#! Record("$(P)interp_y2",720,488,0,0,"$(P)interp_y2")
#! Field("$(P)interp_y2.SDIS",16777215,0,"$(P)interp_y2.SDIS")
#! Link("$(P)interp_y2.SDIS","$(P)interp_doOutput.VAL")
#! Field("$(P)interp_y2.VAL",16777215,1,"$(P)interp_y2.VAL")
#! Visibility("$(P)interp_y2.DTYP",2)
#! Visibility("$(P)interp_y2.SDIS",2)
#! Visibility("$(P)interp_y2.PREC",2)
#! Record("$(P)interp",1020,-156,0,0,"$(P)interp")
#! Field("$(P)interp.INPG",16777215,0,"$(P)interp.INPG")
#! Link("$(P)interp.INPG","$(P)interp_mode.RVAL")
#! Field("$(P)interp.OUTN",16777215,1,"$(P)interp.OUTN")
#! Link("$(P)interp.OUTN","$(P)interp_n.VAL")
#! Field("$(P)interp.INPA",16777215,0,"$(P)interp.INPA")
#! Link("$(P)interp.INPA","$(P)interp_x.VAL")
#! Field("$(P)interp.OUTF",16777215,1,"$(P)interp.OUTF")
#! Link("$(P)interp.OUTF","$(P)interp/OUTF")
#! Field("$(P)interp.OUTG",16777215,1,"$(P)interp.OUTG")
#! Link("$(P)interp.OUTG","$(P)interp/OUTG")
#! Field("$(P)interp.INPB",16777215,0,"$(P)interp.INPB")
#! Link("$(P)interp.INPB","$(P)interp/INPB")
#! Field("$(P)interp.INPC",16777215,0,"$(P)interp.INPC")
#! Link("$(P)interp.INPC","$(P)interp/INPC")
#! Connector("$(P)interp/INPC","$(P)interp_y2.VAL",920,480,16777215,"",0)
#! Connector("$(P)interp/INPB","$(P)interp_y1.VAL",900,410,16777215,"",0)
#! Connector("$(P)interp/OUTG","$(P)interp_y2.VAL",1320,460,16777215,"",0)
#! Connector("$(P)interp/OUTF","$(P)interp_y1.VAL",1300,390,16777215,"",0)
#! Field("$(P)interp.OUTE",16777215,1,"$(P)interp.OUTE")
#! Link("$(P)interp.OUTE","$(P)interp_ok.VAL")
#! Visibility("$(P)interp.PREC",2)
#! Visibility("$(P)interp.OUTF",2)
#! Visibility("$(P)interp.OUTG",2)
#! Visibility("$(P)interp.INPD",2)
#! Visibility("$(P)interp.OUTB",2)
#! Visibility("$(P)interp.OUTC",2)
#! Record("$(P)interp_mode",680,84,0,1,"$(P)interp_mode")
#! Field("$(P)interp_mode.RVAL",16777215,1,"$(P)interp_mode.RVAL")
#! Record("$(P)interp_n",1320,202,0,1,"$(P)interp_n")
#! Field("$(P)interp_n.VAL",16777215,0,"$(P)interp_n.VAL")
#! TextBox(TB0,720,320,880,380,0,"Dialog",12,1,16777215,"Process only if aSub was processed by interp_x.",null)
#! Record("$(P)interp_doOutput",420,505,0,1,"$(P)interp_doOutput")
#! Field("$(P)interp_doOutput.INPA",16777215,0,"$(P)interp_doOutput.INPA")
#! Link("$(P)interp_doOutput.INPA","$(P)interp_x.PACT")
#! Field("$(P)interp_doOutput.INPB",16777215,0,"$(P)interp_doOutput.INPB")
#! Link("$(P)interp_doOutput.INPB","$(P)doOutput/INPB1")
#! Field("$(P)interp_doOutput.VAL",16777215,1,"$(P)interp_doOutput.VAL")
#! Connector("$(P)doOutput/INPB1","$(P)doOutput/INPB",340,405,16777215,"",0)
#! Connector("$(P)doOutput/INPB","$(P)doOutput/INPB2",610,160,16777215,"",0)
#! Connector("$(P)doOutput/INPB2","$(P)interp_mode.RVAL",880,205,16777215,"",0)
#! Field("$(P)interp_doOutput.INPC",16777215,1,"$(P)interp_doOutput.INPC")
#! Link("$(P)interp_doOutput.INPC","$(P)interp_ok.VAL")
#! Record("$(P)interp_ok",1450,328,0,1,"$(P)interp_ok")
#! Field("$(P)interp_ok.VAL",16777215,0,"$(P)interp_ok.VAL")