'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

'Make GPIB input and output files common to all procedures
COMMON SHARED /gpib/ gpibinP%, gpiboutP%

'Define the GPIB addresses
CONST pt2025addrP% = 2       'Metrolab PT2025 NMR teslameter GPIB address
CONST gp3addrP% = 19         'Group3 teslameter GPIB address
CONST dac488addrP% = 9       'IOTech DAC488 GPIB address
CONST hp3457addrP% = 22      'HP3457A DVM GPIB address
CONST dac488hraddrP% = 10    'IOTech DAC488HR/2 GPIB address

'DRIVER PARAMETERS

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

'TEST PARAMETERS

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

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

'Z positions
CONST nzstepsP% = 100             'number of z steps to take
CONST nmotorstepstotP& = 1248710   'number of motor steps to move the total length of the lead screw
CONST lleadscrewP! = 5.9444       'length of lead screw in meters
CONST tmotorstepP% = 20           'time for the motor to move the stage

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

'Put the desired standardization current in a common block
COMMON SHARED /currents/ imagstandP!()

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

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