DECLARE SUB imagramp (rr!, ifin!)
DECLARE SUB gpibinit ()
DECLARE SUB hp3457init ()
DECLARE SUB dac488hrid ()
DECLARE SUB dac488hrqsetv ()


'****************************************************************************
'Program RAMPDOWN
'This program ramps the power supply down in emergencies.
'
'Zachary Wolf
'7/11/94
'****************************************************************************

'Include the constants used in the program
REM $INCLUDE: 'param.inc'

'Initialize the GPIB
CALL gpibinit

'Initialize the DAC
CALL dac488hrid
CALL dac488hrqsetv

'Initialize the HP3457
CALL hp3457init

'Message
PRINT
PRINT "Ramping to 0 Amps..."

'Ramp to 0 amps
CALL imagramp(imagramprateP!, 0!)

'Message
PRINT
PRINT "The ramp is complete."

END