'PARAM.INC

'****************************************************************************
'This file contains all the parameters of the magnet test.
'
'Zachary Wolf
'9/20/95
'****************************************************************************

'Define the GPIB addresses
'Don't use address 21, system controller
CONST hp3457addrP$ = "22"         'HP3457 DVM GPIB address
CONST bit488addrP$ = "01"         'BIT488 GPIB address
CONST dac488addrP$ = "19"         'DAC488 GPIB address
CONST dac488hraddrP$ = "08"       'DAC488HR GPIB address
CONST pshp3457addrP$ = "23"       'PS HP3457 DVM GPIB address
CONST psdac488addrP$ = "11"       'PS DAC488 GPIB address

'Power system configuration
CONST imagconfigP$ = "12S"        'KEPCO, 1, 2, 3, 12S, 12P, 13P, 123P, IDAC, IDACHR, IMAN, IVAX, etc.

'Magnet current read parameters
CONST imagnmeasaveP% = 4          'number of measurements for averaging
CONST imaghpchanP% = 0            ''the HP3457 channel for the transductor voltage, not used for PS123
CONST vtransperimagP! = .4        ''transductor voltage per magnet amp, not used for PS123

'Magnet current set parameters
CONST imagdacchanP% = 1           ''DAC488 & HR channel to control a PS, not used for PS123, KEPCO
CONST imagpervdacP! = 1!          ''power supply amps per DAC volts, not used for PS123, KEPCO
CONST imagtstableP% = 30          'the number of seconds to wait after a ramp
CONST imagramprateP! = 10         'power supply amperes per second during a ramp
CONST imaglimitP! = 710!          'absolute value of maximum current

'Define the standardization cycle
CONST imagsaturateP! = 0!         'saturation current
CONST nstandcycleP% = 0           'number of standardization cycles
CONST imagstandP! = 700!          'standardization current, negative means bipolar