'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% = 9       'IOTech DAC488 GPIB address
CONST k7011addrP% = 7        'Keithley 7011 GPIB address

'MEASUREMENT PARAMETERS

'Resistance and temperature measurement parameters
CONST mxhpchanP% = 4         'HP3457 channel for the multiplexer
CONST mxcardP% = 1           'multiplexer card number
CONST vmagmxchanP% = 11      'magnet voltage multiplexer channel
CONST twinmxchanP% = 12      'water in temperature multiplexer channel
CONST twoutmxchanP% = 13     'water out temperature multiplexer channel
CONST tironmxchanP% = 14     'magnet iron temperature multiplexer channel
CONST tcoilmxchanP% = 15     'magnet coil temperature multiplexer channel
CONST tambmxchanP% = 31      'ambient temperature multiplexer channel
CONST tbtwnmeassecP% = 60    '# 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! = 30    'power supply amperes per second during a ramp
CONST tstableP% = 5          'the number of seconds to wait after a ramp

'Coil voltage measurement parameters
CONST coilhpchanP% = 1       'HP3457 channel # for the coil voltage
CONST freqhpchanP% = 2       'HP3457 channel # for the coil frequency
CONST nsampleP% = 128         'the number of voltage samples per revolution
CONST nrotaveP% = 5          'the number of coil rotations for V average
CONST nmeasaveP% = 5         'the number of measurements for B average
CONST nfreqaveP% = 5         'the number of frequency measurements for average
CONST nhardisplayP% = 16     'the number of harmonics to print out < nsampleP%/2

'Tachometer voltage measurement parameters
CONST tachhpchanP% = 3       'HP3457 channel # for the tachometer voltage

'Coil parameters
CONST nturnscoilP% = 20      'number of turns on the measurement coil
CONST rcoilP! = .044935      'radius of the coil in m
CONST coilP$ = "HP DVM and thermistors"         'name of the measurement coil

'TEST PARAMETERS

'Teststand
CONST teststandP$ = "Q2"     'name of the teststand used for the quads

'Put the test parameters in a common block
COMMON SHARED /testparam/ magnameP$, operatorP$, runP$, commentP$

'Make file names common to all procedures
COMMON SHARED /filenames/ logfileP$, datfileP$, pltfileP$

'Put the desired standardization and test currents in a common block
COMMON SHARED /currents/ imagstandP!(), imagglvsiP!(), imagharvsiP!()

'Define the standardization cycle
CONST imagnstandP% = 8       'the number of standardization currents
DIM imagstandP!(1 TO imagnstandP%)   'the current array
imagstandP!(1) = 500!        'standardization currents
imagstandP!(2) = 10!
imagstandP!(3) = 350!
imagstandP!(4) = 10!
imagstandP!(5) = 350!
imagstandP!(6) = 10!
imagstandP!(7) = 350!
imagstandP!(8) = 10!

'Define the GLvsI test currents
CONST imagnglvsiP% = 12      'number of test currents
DIM imagglvsiP!(1 TO imagnglvsiP%)    'the current array
imagglvsiP!(1) = 10!         'GL vs I currents
imagglvsiP!(2) = 50!
imagglvsiP!(3) = 100!
imagglvsiP!(4) = 150!
imagglvsiP!(5) = 200!
imagglvsiP!(6) = 250!
imagglvsiP!(7) = 300!
imagglvsiP!(8) = 350!
imagglvsiP!(9) = 300!
imagglvsiP!(10) = 200!
imagglvsiP!(11) = 100!
imagglvsiP!(12) = 10!

'Define the harmonics test currents
'CONST imagnharvsiP% = 7      'number of test currents
'DIM imagharvsiP!(1 TO imagnharvsiP%)  'the current array
'imagharvsiP!(1) = 50!         'harmonics currents
'imagharvsiP!(2) = 100!
'imagharvsiP!(3) = 150!
'imagharvsiP!(4) = 200!
'imagharvsiP!(5) = 250!
'imagharvsiP!(6) = 300!
'imagharvsiP!(7) = 350!

'Define the harmonics test currents
CONST imagnharvsiP% = 3       'number of test currents
DIM imagharvsiP!(1 TO imagnharvsiP%)  'the current array
imagharvsiP!(1) = 200!        'harmonics currents
imagharvsiP!(2) = 200!
imagharvsiP!(3) = 200!
'imagharvsiP!(4) = 200!
'imagharvsiP!(5) = 200!
'imagharvsiP!(6) = 200!
'imagharvsiP!(7) = 200!