C------------------------------------------------------------------------
        subroutine ftflbl(pbuff)

C       initalize the common block buffer as efficiently as possible
C       with blanks (ASCII 32) 

C       pbuff  i  number of the physical buffer to initialize

        integer pbuff
        integer pb
        parameter (pb = 20)
        character*2880 cbuff
        common /ftbuff/cbuff(pb)

        cbuff(pbuff) = ' '

        end