SUBROUTINE CUT(DATO,IOUT,JOUT,KMAX,DATI,IMAX,INTVL)
      DIMENSION DATO(IOUT,JOUT,KMAX),DATI(IMAX,JOUT,KMAX)
C
      DO 100 K=1,KMAX
      DO 100 J=1,JOUT
      DO 100 I=1,IOUT
      DATO(I,J,K)=DATI(INTVL*(I-1)+1,J,K)
  100 CONTINUE
C
      RETURN
      END SUBROUTINE CUT