DECLARE SUB imagramp (rr!, ifin!)
DECLARE SUB gpibinit ()
DECLARE SUB hp3457init ()
DECLARE SUB dac488hrinit ()
DECLARE SUB dac488hrsetupv ()


'****************************************************************************
'Program FASTSTD
'This program fast standardizes the magnet.
'
'Zachary Wolf
'7/11/94
'Phil Radusewicz
'8/16/94
'****************************************************************************

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

'Initialize the GPIB
CALL gpibinit

'Initialize the DAC
CALL dac488hrinit
CALL dac488hrsetupv

'Initialize the HP3457
CALL hp3457init

PRINT "Input the number of standardization to perform: ";
INPUT nstd%
FOR i = 1 TO nstd%
  PRINT
  PRINT USING "Cycle Number: ##"; i
  PRINT "Ramping to 950 Amps."
  'Ramp to 950 amps
  CALL imagramp(imagramprateP!, 950!)

  PRINT "Ramping to 0 Amps."
  'Ramp to 0 amps
  CALL imagramp(imagramprateP!, 0!)

NEXT
PRINT "The standarization is complete."

END