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

REM $INCLUDE: 'param.inc'

SUB gp3getb (b!)

'****************************************************************************
'GP3B
'This subroutine has the Group3 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
' gp3addrP%, the GPIB address of the teslameter
'
'Zachary Wolf
'6/12/94
'****************************************************************************

'Return a value
b! = 1!

END SUB

SUB gp3init

'****************************************************************************
'GP3INIT
'This subroutine initializes the Group3 teslameter.
'
'Input from param.inc:
' gpibinP%, the GPIB input file number
' gpiboutP%, the GPIB output file number
' gp3addrP%, the GPIB address of the teslameter
'
'Zachary Wolf
'6/12/94
'****************************************************************************

'Message
PRINT
PRINT "Resetting the Group3 teslameter routine."

END SUB

SUB gp3setpar (gpibinP%, gpiboutP%, gp3addrP$)

END SUB

SUB gp3setrange (r%)

'****************************************************************************
'GP3SETR
'This subroutine sets the range of the Group3 teslameter.
'
'Input:
' r%, the range number
'
'Input from param.inc:
' gpibinP%, the GPIB input file number
' gpiboutP%, the GPIB output file number
' gp3addrP%, the GPIB address of the teslameter
'
'Zachary Wolf
'6/14/94
'****************************************************************************

END SUB

SUB gp3zero

'****************************************************************************
'GP3ZERO
'This subroutine zeros the Group3 teslameter.
'
'Input from param.inc:
' gpibinP%, the GPIB input file number
' gpiboutP%, the GPIB output file number
' gp3addrP%, the GPIB address of the teslameter
'
'Zachary Wolf
'6/14/94
'****************************************************************************

END SUB