C------------------------------------------------------------------------
        subroutine ftzrcr(pbuff)

C       initalize the common block buffer with zeros. 
C       This routine is reserved for Cray computers.

C       pbuff  i  number of the physical buffer to initialize

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

C       The dummy array was added to the common block to eliminate
C       compiler warnings on other platforms besides Cray.  On all
C       other machines, an integer is 4 bytes long, hence the dummy
C       array is needed to increase the size of the common block to
C       the same length as other routines where the array is declared
C       as character*2880 buff(pb).

C       This will cause compiler warnings on the CRAY, but these
C       can be ignored since the dummy array is never used.

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