%N strprpcg %F $MIR/src/subs/cgsubs.for
%D Strip extra white space from string & delimit with commas
%P nebk
%: plotting
%B
      subroutine strprpcg (maxloc, aline, comloc, nfield, lena)

      character*(*) aline
      integer nfield, maxloc, comloc(maxloc), lena
  ---------------------------------------------------------------------
     Take a string with a number of mixed ascii/numeric fields in it
     and prepare it for use by stripping out extra white space and
     replacing the space delimiters by commas (matod needs this).

     Input:
       maxloc  Maximum number of fields allowed in string
     Input/output:
       aline   String
     Output
       comloc  Locations along string of comma delimiters for
               each field.  comloc(1) is the comma between the
               first and second fields etc
       nfield  Number of fields in string
       lena    Length of output string after massaging
