record(ai, "$(P):$(Q):dumm")
{
field(SCAN, "I/O Intr")
field(DTYP,"stream")
field(INP,"@pgc2.proto read($(P):$(Q)) $(PORT) -1")
field(EGU,"mBar")
field(HOPR,"1")
field(LOPR,"1E-11")
field(TPRO,"1")
}

record(calc, "$(P):$(Q):pressure1")
{ 
field(CALC,"A*10^B")
field(EGU,"mBar")
field(HOPR,"1")
field(LOPR,"1E-11")
}

record(calc, "$(P):$(Q):pressure2")
{
field(CALC,"A*10^B")
field(EGU,"mBar")
field(HOPR,"1")
field(LOPR,"1E-11")
}

record(calc, "$(P):$(Q):pressure3")
{
field(CALC,"A*10^B")
field(EGU,"mBar")
field(HOPR,"1")
field(LOPR,"1E-11")
}

record(calc, "$(P):$(Q):pressure4")
{
field(CALC,"A*10^B")
field(EGU,"mBar")
field(HOPR,"1")
field(LOPR,"1E-11")
}