'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           'K7011 card number
CONST vmagmxchanP% = 11       'K7011 magnet voltage channel
CONST t1mxchanP% = 12         'K7011 T1 channel
CONST t1P$ = "Water In"
CONST t2mxchanP% = 13         'K7011 T2 channel
CONST t2P$ = "Water Out"
CONST t3mxchanP% = 14         'K7011 T3 channel
CONST t3P$ = "Magnet Iron"
CONST t4mxchanP% = 15         'K7011 T4 channel
CONST t4P$ = "Magnet Coil"
CONST t5mxchanP% = 31        'K7011 T5 channel
CONST t5P$ = "Ambient"
CONST tbtwnmeassecP% = 60    '# seconds between RT measurements

'Magnet current set and measurement parameters
CONST imaghpchanP% = 3       '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% = 5       'HP3457 channel # for the coil voltage
CONST freqhpchanP% = 6       'HP3457 channel # for the coil frequency
CONST nsampleP% = 64         'the number of voltage samples per revolution
CONST nrotaveP% = 10         'the number of coil rotations for V average
CONST nmeasaveP% = 4         'the number of measurements for B 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! = .044882      'radius of the coil in m, sextupole calibration

'TEST PARAMETERS

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

'Make file names common to all procedures
COMMON SHARED /filenames/ logfileP$, rawfileP$, rtdatP$, gldatP$, glpltP$, hardatP$, harpltP$

'Put the desired standardization and measurement currents in a common block
COMMON SHARED /currents/ imagstandP!(), imagtestP!(), imagharP!()

'Fill the test parameters
projectP$ = "Skew Quadrupoles"
teststandP$ = "IR8, S1"
coilnameP$ = "# 1"

'CURRENTS

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

'Define the test currents
CONST nimagtestP% = 17       'number of measurement currents
DIM imagtestP!(1 TO nimagtestP%)    'the current array
imagtestP!(1) = 10!          'GL vs I currents
imagtestP!(2) = 25!
imagtestP!(3) = 50!
imagtestP!(4) = 100!
imagtestP!(5) = 150!
imagtestP!(6) = 200!
imagtestP!(7) = 250!
imagtestP!(8) = 300!
imagtestP!(9) = 350!
imagtestP!(10) = 300!
imagtestP!(11) = 250!
imagtestP!(12) = 200!
imagtestP!(13) = 150!
imagtestP!(14) = 100!
imagtestP!(15) = 50!
imagtestP!(16) = 25!
imagtestP!(17) = 10!

'Define the test currents for harmonics printouts
'Note that the currents listed must be test currents to get a printout
CONST nimagharP% = 9         'number of currents for harmonics printout
DIM imagharP!(1 TO nimagharP%)    'the current array
imagharP!(1) = 10!           'harmonics printout currents
imagharP!(2) = 25!
imagharP!(3) = 50!
imagharP!(4) = 100!
imagharP!(5) = 150!
imagharP!(6) = 200!
imagharP!(7) = 250!
imagharP!(8) = 300!
imagharP!(9) = 350!