 
      CALL SEQUENCE...
       spgdev  SPIN SPOUT OUTPUT
 
 
      DESCRIPTION...
       spgdev - SETS SPECTRAL MEANS TO ZERO
 
 
      AUTHOR  - S.Lambert, SEPT 1979.
      LAST REVISION: $Header: /data/armnraid1/cvs/RMNLIB/utils/rdiag/lspgm/spgdev.ptn,v 4.7 2008/05/03 21:06:30 dugas Exp $
 
 
      PURPOSE - SETS THE SURFACE MEAN OF EACH FIELD IN A SPECTRAL FILE 
                TO ZERO LEAVING THE DEVIATION FROM THIS MEAN.
 
 
      INPUT FILE...
       SPIN  = GLOBAL SPECTRAL FIELDS
 
      OUTPUT FILE...
       SPOUT = DEVIATION OF SPECTRAL FIELDS
 
 
      EXIT CONDITIONS...
        0 NO PROBLEMS
        1 PROBLEMS READING SPIN
