DECLARE SUB main ()

'****************************************************************************
'Program HERQUAD
'This program is used to make the rotating coil measurements of the
'B-Factory HER quadrupoles.  It samples the voltage from the rotating
'coil and Fourier analyzes the samples to get the strengths of
'each component of the field.
'
'Zachary Wolf
'7/8/94, 9/10/94
'****************************************************************************

'Open the parameter file
'This is required to fill the current arrays
'Such statements can only be executed in the main module
REM $INCLUDE: 'param.inc'

'Subroutine main controls the test
CALL main

END