Name: spartan_pb2fits

   Purpose: driver to assemble B and PB from raw and write FITS
 CALLS:

   Name: spartan_roll

   Purpose: return roll required (degrees) to put Solar N at image top

   Input Parameters:
      index - spartan "index" record (must contain ID and PITCH tags)

   Calling Sequence:
      roll=spartan_roll(spartan_index)

 CALLS: ***
	data_chk [1], data_chk [2], strsplit
 CALLED BY:
	spartan_roll2fits [1]
   History:
      4-apr-1996 (S.L.Freeland)

   Name: spartan_roll2fits

   Purpose: roll/embed original B and PB files and write new FITs files

   Input Paramters:
      none

   Keyword Parameters:
      b  - switch - if set, work on the B (brightness) files
      pb - switch - if set, work on the PB (polarized-brightness) files

   Calling Sequence:
      spartan_roll2fits [,/b] or [,/pb]  (no keywords does both)

   History:
      4-April-1996 (S.L.Freeland)

 CALLS: ***
	FXADDPAR [1], FXADDPAR [2], HEADFITS [1], HEADFITS [2], HEADFITS [3], ROT
	WRITEFITS [1], WRITEFITS [2], read_spartan, spartan_roll, str_replace [1]
	str_replace [2], strsplit
   Restrictions:
      P and or pb files must be online (via read_spartan,/pb... for example)

   Note: rotation angle returned via spartan_roll.pro

   Name: spartan_roll2fits

   Purpose: roll/embed original B and PB files and write new FITs files

   Input Paramters:
      none

   Keyword Parameters:
      b  - switch - if set, work on the B (brightness) files
      pb - switch - if set, work on the PB (polarized-brightness) files

   Calling Sequence:
      spartan_roll2fits [,/b] or [,/pb]  (no keywords does both)

   History:
      4-April-1996 (S.L.Freeland)

   Restrictions:
      P and or pb files must be online (via read_spartan,/pb... for example)

   Note: rotation angle returned via spartan_roll.pro