#include "dims.h"
      SUBROUTINE FLIP
      implicit none
C     ****                   FLIPS LCM CIRCULAR BUFFER INDICES
#include "params.h"
#include "buff.h"
      integer :: m
      DO 10 M=1,MODULO
   10 NJTMP(M) = NJTMP(M+1)
      NJTMP(MODULO+1) = NJTMP(1)
      RETURN
      END
C