      SUBROUTINE CLEARSTRING(c,nsize)

C    CLEARSTRING INITIALIZES A CHARACTER STRING WITH
C    BLANKS

      character*(*) c

      do 80 n=1,nsize
80     c(n:n)=' '

      return
      end
