'****************************************************************************
'Module PT2025
'This module contains subroutines to read the PT2025 NMR teslameter.
'
'The following parameters are required in param.inc.
' gpibinP%, the GPIB input file number
' gpiboutP%, the GPIB output file number
' pt2025addrP%, the GPIB address of the PT2025 NMR teslameter
'
'Zachary Wolf
'6/12/94
'****************************************************************************

REM $INCLUDE: 'param.inc'

SUB pt2025getb (b!)

'****************************************************************************
'PT2025GETB
'This subroutine has the PT2025 NMR teslameter measure the magnetic field.
'
'Output:
' b!, the measured magnetic field strength in Tesla
'
'Input from param.inc:
' gpibinP%, the GPIB input file number
' gpiboutP%, the GPIB output file number
' pt2025addrP%, the GPIB address of the teslameter
'
'Zachary Wolf
'6/12/94
'****************************************************************************

b! = 1!
 
END SUB

SUB pt2025init

'****************************************************************************
'PT2025INIT
'This subroutine initializes the Metrolab PT2025 NMR teslameter.
'
'Input from param.inc:
' gpibinP%, the GPIB input file number
' gpiboutP%, the GPIB output file number
' pt2025addrP%, the GPIB address of the teslameter
'
'Zachary Wolf
'6/14/94
'****************************************************************************

'Message
PRINT
PRINT "Resetting the Metrolab PT2025 NMR teslameter routine."

END SUB

SUB pt2025search

END SUB

SUB pt2025setcoarse (bnmrnom!)

END SUB

SUB pt2025setpar (gpibinP%, gpiboutP%, pt2025addrP$)

END SUB

SUB pt2025user

END SUB