C------------------------------------------------------------------------
        subroutine ftflzr(pbuff)

C       initalize the common block buffer as efficiently as possible
C       with zeros.  This routine should not be used on Cray computers.

C       pbuff  i  number of the physical buffer to initialize

        integer pbuff,i
        integer pb
        parameter (pb = 20)
        double precision buff
        common /ftbuff/buff(360,pb)

        do 10 i=1,360
                buff(i,pbuff)=0.
10      continue
        end