1 SUBROUTINE CUT(DATO,IOUT,JOUT,KMAX,DATI,IMAX,INTVL) 2 DIMENSION DATO(IOUT,JOUT,KMAX),DATI(IMAX,JOUT,KMAX) 3 C 4 DO 100 K=1,KMAX 5 DO 100 J=1,JOUT 6 DO 100 I=1,IOUT 7 DATO(I,J,K)=DATI(INTVL*(I-1)+1,J,K) 8 100 CONTINUE 9 C 10 RETURN 11 END SUBROUTINE CUT 12