#include "dims.h"
      SUBROUTINE INITBUFF
      implicit none
#include "params.h"
#include "buff.h"
      integer :: m
C     ****                   INITIALIZE BUFFER INDICIES
      DO 20 M=1,MODULO
   20 NJTMP(M+1) = NBADDR(M)
      RETURN
      END
C