SUB logsumm (logfile$, i0!, vt0!, svt0!, i1!, vt1!, svt1!, i2!, vt2!, svt2!)

'****************************************************************************
'This subroutine writes a summary to the log file.
'
'Inputs:
'  logfile$, the name of the log file
'  i0!, the current when using coil 0
'  vt0!, the integrated voltage from coil 0
'  svt0!, the estimated error on vt0!
'  i1!, the current when using coil 1
'  vt1!, the integrated voltage from coil 1
'  svt1!, the estimated error on vt1!
'  i2!, the current when using coil 2
'  vt2!, the integrated voltage from coil 2
'  svt2!, the estimated error on vt2!
'
'Zachary Wolf
'5/14/94
'****************************************************************************

'Open the log file
filenum% = FREEFILE
OPEN logfile$ FOR APPEND AS filenum%

'Write which magnet the data is for
PRINT #filenum%,
PRINT #filenum%, "Cross Calibration Summary:"

'Write the header
PRINT #filenum%,
PRINT #filenum%, " Coil        I          VT        sigVT   "
PRINT #filenum%, "            (A)        (VS)        (VS)   "
PRINT #filenum%, " ----    --------    --------    -------- "

'Write the values
PRINT #filenum%, USING " ####"; 0;
PRINT #filenum%, USING "    ####.###"; i0!;
PRINT #filenum%, USING "    ##.#####"; vt0!;
PRINT #filenum%, USING "    ##.#####"; svt0!

PRINT #filenum%, USING " ####"; 1;
PRINT #filenum%, USING "    ####.###"; i1!;
PRINT #filenum%, USING "    ##.#####"; vt1!;
PRINT #filenum%, USING "    ##.#####"; svt1!

PRINT #filenum%, USING " ####"; 2;
PRINT #filenum%, USING "    ####.###"; i2!;
PRINT #filenum%, USING "    ##.#####"; vt2!;
PRINT #filenum%, USING "    ##.#####"; svt2!

'Close the log file
CLOSE filenum%

END SUB