'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
'3/18/95
'****************************************************************************

'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

'DRIVER PARAMETERS

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

'Magnet main current set and measurement parameters
CONST imagpervdacP! = 30       'power supply amps per DAC volts
CONST vtransperimagP! = .03333 'transductor voltage per magnet amp
CONST imaghpchanP% = 5       'the HP3457 channel for the transductor voltage
CONST imagnaveP% = 4         'the number of current measurements for averaging
CONST imagramprateP! = 10    'power supply amperes per second during a ramp
CONST tstableP% = 60         'the number of seconds to wait after a ramp

'Coil voltage measurement parameters
'Measure for 20 sec
CONST coilnptsP% = 800       'the number of voltage samples the DVM takes
CONST coildeltatP! = .025    'the time interval between samples
CONST coilnaveP% = 5         'the number of ivdt measurements for average
CONST coilhpchanP% = 6       'channel # for the coil
CONST coilconstP! = 1.8595   'TM/VS

'TEST PARAMETERS

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

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

'For the harmonics measurements, define the number of x-positions
CONST nxpositionsP% = 3           'number of x-positions, used for harmonics

'Put the desired standardization and test currents in a common block
COMMON SHARED /currents/ imagstandP!(), imagblP!(), imagharP!(), itrimstandP!(), itrimblP!()

'Define several test parameters
projectP$ = "B-Factory Injection Line"
teststandP$ = "Bldg. 26"
coilP$ = "Flip Coil"

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

'Define the currents that BL is measured at
CONST nimagblP% = 12                  'number of currents IBDL is measured at
DIM imagblP!(1 TO nimagblP%)         'the current array
imagblP!(1) = 25!                    'define the currents
imagblP!(2) = 50!
imagblP!(3) = 100!
imagblP!(4) = 130!
imagblP!(5) = 140!
imagblP!(6) = 150!
imagblP!(7) = 160!
imagblP!(8) = 175!
imagblP!(9) = 200!
imagblP!(10) = 210!
imagblP!(11) = 220!
imagblP!(12) = 230!

'Define the currents that the harmonics are measured at
CONST nimagharP% = 2                 'number of currents the harmonics are measured at
DIM imagharP!(1 TO nimagharP%)       'the current array
imagharP!(1) = 50!                   'define the currents
imagharP!(2) = 65!