      SUBROUTINE CHRBLK (CSTR)                                          Llg
C
C     Blanks out string CSTR
      CHARACTER CSTR*(*)                                                Llg
C
      CSTR = ' '                                                        Llg
      RETURN                                                            Llg
      END                                                               Llg
