'PARAM.INC

'****************************************************************************
'This file contains all the parameters of the magnet test.  It also contains
'parameters defined in the program such as filenames.  Such parameters
'are put in common blocks.
'
'Zachary Wolf
'4/16/94, 9/10/94
'****************************************************************************

'DEVICE PARAMETERS

'Make GPIB input and output files common to all procedures
COMMON SHARED /gpib/ gpibinP%, gpiboutP%

'Define the GPIB addresses
CONST hp3457addrP% = 22      'HP3457A DVM GPIB address
CONST dac488hraddrP% = 10    'IOTech DAC488HR/2 GPIB address
CONST dac488addrP% = 19       'IOTech DAC488 GPIB address
CONST k7011addrP% = 7        'Keithley 7011 GPIB address
CONST ds335addrP% = 24       'SRS DS335 function generator

'MEASUREMENT PARAMETERS

'Resistance and temperature measurement parameters
CONST mxhpchanP% = 4         'HP3457 channel for the multiplexer
CONST mxcardP% = 1           'K7011 card number
CONST vmagmxchanP% = 1       'K7011 magnet voltage channel
CONST t1mxchanP% = 2         'K7011 T1 channel
CONST t1P$ = "Coil 1 Water In "
CONST t2mxchanP% = 3         'K7011 T2 channel
CONST t2P$ = "Coil 1 Water Out"
CONST t3mxchanP% = 4         'K7011 T3 channel
CONST t3P$ = "Coil 2 Water In "
CONST t4mxchanP% = 5         'K7011 T4 channel
CONST t4P$ = "Coil 2 Water Out"
CONST t5mxchanP% = 31        'K7011 T5 channel
CONST t5P$ = "Ambient"
CONST tbtwnmeassecP% = 20    '# seconds between RT measurements

'Magnet current set and measurement parameters
CONST imaghpchanP% = 0       'HP3457 channel for the transductor voltage
CONST imagpervdacP! = 200    'power supply amps per DAC volts
CONST vtransperimagP! = .005 'transductor voltage per magnet amp
CONST imagramprateP! = 50    'power supply amperes per second during a ramp
CONST tstableP% = 30         'the number of seconds to wait after a ramp

'Define the standardization cycle
CONST nimagstandP% = 8       'the number of standardization currents
DIM imagstandP!(1 TO nimagstandP%)   'the current array

'TEST PARAMETERS

'Put the test parameters in a common block
COMMON SHARED /testparam/ magnameP$, barcodeP$, projectP$, teststandP$, coilnameP$, operatorP$, runP$, commentP$, imagstandP!()

'Make file names common to all procedures
COMMON SHARED /filenames/ logfileP$, rtdatP$, rtpltP$

'Fill the test parameters
projectP$ = "PEP II High Energy Ring"
teststandP$ = "IR8, Q1"
coilnameP$ = "none"