ADAS Subroutine xxrmws

C
      SUBROUTINE XXRMWS( STRING, CSTRING, LENGTH )

C
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: XXRMWS *********************
C
C  PURPOSE: REMOVES ALL BLANKS IN INPUT STRING
C
C  CALLING PROGRAM: GENERAL USE.
C
C  INPUT    : (C*(*)) STRING = STRING.
C
C  OUTPUT   : (C*(*)) CSTRING = COMPRESSED STRING.
C
C  ROUTINES : NONE
C
C  AUTHOR   : Martin O'Mullane,
C             K1/1/43,
C             JET
C
C  VERSION  : 1.1                          DATE: 17/03/1999
C  MODIFIED : Martin O'Mullane
C             First version.
C
C-----------------------------------------------------------------------
C
C----------------------------------------------------------------------
      CHARACTER*(*)       CSTRING,     STRING
      INTEGER             LENGTH