'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% = 1       'magnet voltage multiplexer channel
CONST twinmxchanP% = 2       'water in temperature multiplexer channel
CONST twoutmxchanP% = 3      'water out temperature multiplexer channel
CONST tironmxchanP% = 4      'magnet iron temperature multiplexer channel
CONST tcoilmxchanP% = 5      'magnet coil temperature multiplexer channel
CONST tambmxchanP% = 6       '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! = 10    'power supply amperes per second during a ramp
CONST tstableP% = 30         '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% = 64         '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$ = "QC1"         'name of the measurement coil

'TEST PARAMETERS

'Teststand
CONST teststandP$ = "Q1"     '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% = 1       'the number of standardization currents
DIM imagstandP!(1 TO imagnstandP%)   'the current array
imagstandP!(1) = 0!

'Define the GLvsI test currents
CONST imagnglvsiP% = 1      'number of test currents
DIM imagglvsiP!(1 TO imagnglvsiP%)    'the current array
imagglvsiP!(1) = 0!

'Define the harmonics test currents
CONST imagnharvsiP% = 1       'number of test currents
DIM imagharvsiP!(1 TO imagnharvsiP%)  'the current array
imagharvsiP!(1) = 0!        'harmonics currents