NAME:
  wrbophot
 PURPOSE: (one line)
  Write a simple photometry data file.
 DESCRIPTION:

   File format: (one blank separates each field)

      JD-2450000 of observation (UT) F10.5   Julian date of the observation.

      Observed Magnitude . . . . . . F7.4    Observed magnitude

      Uncertainty (sigma)  . . . . . F6.4    Error bar for observation.

      Source . . . . . . . . . . . . A45     Free format field to reference
                                             the observer and the telescope
                                             used for the observation.
      This last field is left blank by this program.

 CATEGORY:
  File I/O
 CALLING SEQUENCE:
  wrbophot,jd,mag,err,file
 INPUTS:
  jd     - Julian date of observation (double precision).
  mag    - Observed magnitude.
  err    - Uncertainty on the observed magnitude.
  file   - String with name of file to save photometry to.
 OPTIONAL INPUT PARAMETERS:
 KEYWORD INPUT PARAMETERS:
  APPEND - if set appends data to the named file.
 OUTPUTS:
 KEYWORD OUTPUT PARAMETERS:
 COMMON BLOCKS:
 SIDE EFFECTS:
 RESTRICTIONS:
 PROCEDURE:
 MODIFICATION HISTORY:
  Written by Marc W. Buie, 1996 Aug 24