'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 k7011addrP% = 7        'Keithley 7011 GPIB address
CONST hp3457addrP% = 22      'HP3457A DVM GPIB address
CONST dac488hraddrP% = 10    'IOTech DAC488HR/2 GPIB address

'HP3457 channel where the multiplexer is plugged in
CONST mxhpchanP% = 4         'the HP3457 channel for the multiplexer

'MEASUREMENT and CONTROL 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% = 10         'the number of seconds to wait after a ramp

'Multiplexer card number
CONST mxcardP% = 1           'multiplexer card number

'Magnet temperature multiplexer channel numbers
CONST twin0mxchanP% = 2      'water in temperature multiplexer channel, magnet 0
CONST twout0mxchanP% = 3     'water out temperature multiplexer channel, magnet 0
CONST tiron0mxchanP% = 4     'magnet iron temperature multiplexer channel, magnet 0
CONST tcoil0mxchanP% = 5     'measurement coil temperature multiplexer channel, magnet 0

CONST twin1mxchanP% = 12     'water in temperature multiplexer channel, magnet 1
CONST twout1mxchanP% = 13    'water out temperature multiplexer channel, magnet 1
CONST tiron1mxchanP% = 14    'magnet iron temperature multiplexer channel, magnet 1
CONST tcoil1mxchanP% = 15    'measurement coil temperature multiplexer channel, magnet 1

CONST twin2mxchanP% = 22     'water in temperature multiplexer channel, magnet 2
CONST twout2mxchanP% = 23    'water out temperature multiplexer channel, magnet 2
CONST tiron2mxchanP% = 24    'magnet iron temperature multiplexer channel, magnet 2
CONST tcoil2mxchanP% = 25    'measurement coil temperature multiplexer channel, magnet 2

CONST tambmxchanP% = 31      'ambient temperature multiplexer channel

'Magnet voltage multiplexer channel numbers
CONST vmag0mxchanP% = 1      'magnet voltage multiplexer channel, magnet 0
CONST vmag1mxchanP% = 11     'magnet voltage multiplexer channel, magnet 1
CONST vmag2mxchanP% = 21     'magnet voltage multiplexer channel, magnet 2

'TEST PARAMETERS

'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$, logfile2P$

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

'Measurement parameters
CONST tbtwnmeassecP% = 60      '# seconds between RT measurements