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

'DEVICE PARAMETERS
'Used by gpib.bas, dac488hr.bas, hp3457.bas

'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

'DRIVER PARAMETERS
'Used by imag.bas, vcoil.bas

'Magnet current set and measurement parameters
CONST imagpervdacP! = 200    'power supply amps per DAC volts
CONST vtransperimagP! = .005 'transductor voltage per magnet amp
CONST imagchanP% = 3         'the HP3457 channel for the transductor voltage
'CONST tstableP% = 30         'the number of seconds to wait after a ramp
CONST tstableP% = 5         'the number of seconds to wait after a ramp

'Coil voltage measurement parameters
CONST vcoilnptsP% = 250      'the number of voltage samples the DVM takes
CONST vcoildeltatP! = .015   'the time interval between samples
CONST vcoilnaveP% = 3        'the number of ivdt measurements for average
CONST coil0chanP% = 0        'channel # for coil 0
CONST coil1chanP% = 1        'channel # for coil 1
CONST coil2chanP% = 2        'channel # for coil 2

'TEST PARAMETERS
'Used by herdbl.bas, bl.bas, logbl.bas

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

'Make file names common to all procedures
COMMON SHARED /filenames/ logfile1P$, datfile1P$, pltfile1P$, logfile2P$, datfile2P$, pltfile2P$

'Coil cross calibration factors
'Correct as if the reference coil was used for all measurements
CONST coil1xcalP! = 1.00168       'coil 0 vt / coil 1 vt
CONST coil2xcalP! = 1.00099       'coil 0 vt / coil 2 vt

'Coil 0 coil constant, absolute calibration
CONST coil0constP! = 1!           'TM/VS

'Define the magnet current ramp
CONST imagramprateP! = 100      'power supply amperes per second during a ramp

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

'Define the standardization cycle
'CONST imagnstandP% = 7               'the number of standardization currents
CONST imagnstandP% = 3
DIM imagstandP!(1 TO imagnstandP%)   'the current array
'DATA 100., 950., 100., 950., 100., 950., 100.
DATA 100.,200.,100.

'Define the currents that IBDL is measured at
'CONST imagntestP% = 15                'number of currents IBDL is measured at
CONST imagntestP% = 3
DIM imagtestP!(1 TO imagntestP%)     'the current array
'DATA 500.,550.,600.,650.,700.,750.,800.,850.,900.,950.,900.,800.,700.,600.,500.
DATA 50.,60.,70.

'Read the standardization currents
FOR i% = 1 TO imagnstandP%
  READ imagstandP!(i%)
NEXT i%

'Read the currents to measure IBDL at
FOR i% = 1 TO imagntestP%
  READ imagtestP!(i%)
NEXT i%