'Open the parameter file
REM $INCLUDE: 'param.inc'

SUB hp3457cv (c%, v!)

'****************************************************************************
'This is a dummy routine used for testing.
'****************************************************************************

'In the garage the roll angle is zero
STATIC ncall%
ncall% = ncall% + 1
IF ncall% < 5 THEN
 v! = 4!
 EXIT SUB
END IF

'Generate fake voltages for Capacitec sensors
IF c% = uochanP% THEN v! = .1 * (60! - winP! * .5 * 1!) + .7   '+1 mrad roll
IF c% = uichanP% THEN v! = .1 * (60! + winP! * .5 * 1!) + .5   'outer gap 4 mils larger than inner gap
IF c% = lichanP% THEN v! = .1 * (60! - winP! * .5 * 1!) - .5   '5 mil elevation
IF c% = lochanP% THEN v! = .1 * (60! + winP! * .5 * 1!) - .3
IF c% = inclchanP% THEN v! = .01    '.5 mrad

END SUB

SUB hp3457cvnoise (c%, v!)

'****************************************************************************
'This is a dummy routine used for testing.
'****************************************************************************

'Generate fake voltages for Capacitec sensors
IF c% = uochanP% THEN v! = .1 * (60! - winP! * .5 * 1!)  '+1 mrad roll
IF c% = uichanP% THEN v! = .1 * (60! + winP! * .5 * 1!)
IF c% = lichanP% THEN v! = .1 * (60! - winP! * .5 * 1!)
IF c% = lochanP% THEN v! = .1 * (60! + winP! * .5 * 1!)
IF c% = inclchanP% THEN v! = .01    '.5 mrad

END SUB

SUB hp3457init

'****************************************************************************
'This is a dummy routine used for testing.
'****************************************************************************

'Message
PRINT
PRINT "Resetting the HP3457 routine."

END SUB