'****************************************************************************
'Module K7011
'This module contains subroutines which control the Keithley 7011
'multiplexer.
'
'Required parameters from param.inc
'gpibinP%, the GPIB input file number
'gpiboutP%, the GPIB output file number
'k7011addrP%, the Keithley 7011 GPIB address
'
'Zachary Wolf
'6/8/94
'****************************************************************************

'Open the parameter file
REM $INCLUDE: 'param.inc'

SUB k7011closecc (card%, chan%)

'****************************************************************************
'This subroutine closes one channel of the Keithley 7011 multiplexer.
'
'Input:
' card%, the card number, 1 or 2
' chan%, the channel number, 1 to 40
'
'Inputs from param.inc:
' gpibinP%, GPIB input file number
' gpiboutP%, GPIB output file number
' k7011addrP%, the Keithley 7011 GPIB address
'
'Zachary Wolf
'6/6/94
'****************************************************************************

'Dummy routine

END SUB

SUB k7011init

'****************************************************************************
'This subroutine initializes the Keithley 7011 multiplexer card in the
'model 7001 chassis.  Dummy routine.
'
'Zachary Wolf
'6/6/94
'****************************************************************************

'Message
PRINT
PRINT "Resetting the Keithley 7011 routine"

END SUB

SUB k7011openall

'****************************************************************************
'This subroutine opens all the channels of the Keithley 7011 multiplexer.
'
'Inputs from param.inc:
'  gpibinP%, GPIB input file number
'  gpiboutP%, GPIB output file number
'  k7011addrP%, the Keithley 7011 GPIB address
'
'Zachary Wolf
'6/6/94
'****************************************************************************

'Dummy routine

END SUB