grecord(acalcout, "$(PREF)$(R):pos_calc") {
        field(SCAN, "1 second")
        field(CALC, "10*IX" )
        field(NELM, "$(NELM)")
        field(DOPT, "Use CALC")
        field(OOPT, "Every Time")
        field(OUT , "$(PREF)$(R):pos PP")
}

grecord( waveform, "$(PREF)$(R):pos"  ) {
   	 field(NELM, "$(NELM)")
   	 field(LOPR, "1")
   	 field(HOPR, "$(NELM)")
   	 field(FTVL, "DOUBLE")
	 field(FLNK, "$(PREF)$(R):data_calc")
}

grecord( acalcout, "$(PREF)$(R):data_calc") {
        field(SCAN, "Passive")
        field(CALC, "A*EXP(-1.0*(AA-B)^2/(2*C^2))" )
#	field(CALC, "EXP(-1.0*(IX-B)^2)" ) 
	field(INAA, "$(PREF)$(R):pos")
        field(INPA, "100.0")
        field(INPB, "$(PREF)$(R):peak_pos" )
        field(INPC, "$(PREF)$(R):peak_sig" )	
        field(NELM, "$(NELM)")
        field(DOPT, "Use CALC")
        field(OOPT, "Every Time")
        field(OUT , "$(PREF)$(R):data PP")
}

grecord( waveform, "$(PREF)$(R):data"  ) {
   	 field(NELM, "$(NELM)")
   	 field(LOPR, "1")
   	 field(HOPR, "$(NELM)")
   	 field(FTVL, "DOUBLE")
}

grecord( calc, "$(PREF)$(R):peak_pos") {
	 field(SCAN, "1 second")
	 field(CALC, "10*$(NELM)/2.0" )
}

grecord( calc, "$(PREF)$(R):peak_sig") {
	 field(SCAN, "1 second")
	 field(CALC, "10*$(NELM)/4.0" )
}