'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
'****************************************************************************

'GPIB 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

'MEASUREMENT PARAMETERS

'Resistance and temperature measurement parameters
CONST vmaghpchanP% = 4       'HP3457 magnet voltage channel
CONST t1hpchanP% = 5         'HP3457 T1 temperature channel
CONST t1P$ = "Magnet Coil"
CONST t2hpchanP% = 6         'HP3457 T2 temperature channel
CONST t2P$ = "Magnet Iron"
CONST t3hpchanP% = 7         'HP3457 T3 temperature channel
CONST t3P$ = "Ambient"
CONST tbtwnmeassecP% = 60    '# seconds between RT measurements

'Magnet current set and measurement parameters
CONST imaghpchanP% = 0       'HP3457 channel for the transductor voltage
'CONST vtransperimagP! = .04  'transductor voltage per magnet amp, 10 V = 250 A
CONST vtransperimagP! = .1  'transductor voltage per magnet amp, 10 V = 100 A

'Coil voltage measurement parameters
CONST coil1hpchanP% = 1      'HP3457 channel # for coil 1 voltage
CONST coil12hpchanP% = 2     'HP3457 channel # for coils 1 and 2 in series
CONST freqhpchanP% = 3       'HP3457 channel # for the coil frequency
CONST nsampleP% = 64         'the number of voltage samples per revolution
CONST nrotaveP% = 8          '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

'Coil parameters
CONST nturnscoil1P% = 30     'number of turns on measurement coil 1
CONST nturnscoil12P% = 30    'number of turns on measurement coil 1 and 2
CONST rcoil1P! = .0189973    'radius of coil 1 in m
CONST rcoil12P! = .0268618   'effective radius of coils 1 and 2 in series in m

'COMMON BLOCKS

'Coil
COMMON SHARED /coil/ coilhpchanP%, rcoilP!, nturnscoilP%

'Put the test parameters in a common block
COMMON SHARED /testparam/ magnameP$, 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 test parameters
projectP$ = "PEP II NIT & SIT Line"
teststandP$ = "Rotating Coil Stand 2"
coilnameP$ = "DC100"

'CURRENTS

'Define the standardization cycle
'Records what the VAX does
CONST nimagstandP% = 6       'the number of standardization currents
DIM imagstandP!(1 TO nimagstandP%)   'the current array
imagstandP!(1) = 85!        'standardization currents
imagstandP!(2) = 2!
imagstandP!(3) = 85!
imagstandP!(4) = 2!
imagstandP!(5) = 85!
imagstandP!(6) = 2!

'Define the test currents
CONST nimagtestP% = 15       'number of measurement currents
DIM imagtestP!(1 TO nimagtestP%)    'the current array
imagtestP!(1) = 10!          'GL vs I currents
imagtestP!(2) = 20!
imagtestP!(3) = 30!
imagtestP!(4) = 40!
imagtestP!(5) = 45!
imagtestP!(6) = 50!
imagtestP!(7) = 55!
imagtestP!(8) = 60!
imagtestP!(9) = 70!
imagtestP!(10) = 75!
imagtestP!(11) = 80!
imagtestP!(12) = 85!
imagtestP!(13) = 70!
imagtestP!(14) = 50!
imagtestP!(15) = 30!

'Define the test currents for harmonics printouts
'Note that the currents listed must be test currents to get a printout
CONST nimagharP% = 3         'number of currents for harmonics printout
DIM imagharP!(1 TO nimagharP%)    'the current array
imagharP!(1) = 40!           'harmonics printout currents
imagharP!(2) = 60!
imagharP!(3) = 75!