网格文件(XYZ文件): XYZ 文件, 单块(single-block): READ(IUNIT) IMAX,JMAX,KMAX READ(IUNIT) (((X(I,J,K),I=1,IMAX),J=1,JMAX),K=1,KMAX),& (((Y(I,J,K),I=1,IMAX),J=1,JMAX),K=1,KMAX),& (((Z(I,J,K),I=1,IMAX),J=1,JMAX),K=1,KMAX) XYZ 文件, 单块(single-block), 加 IBlank: READ(IUNIT) IMAX,JMAX,KMAX READ(IUNIT) (((X(I,J,K),I=1,IMAX),J=1,JMAX),K=1,KMAX),& (((Y(I,J,K),I=1,IMAX),J=1,JMAX),K=1,KMAX),& (((Z(I,J,K),I=1,IMAX),J=1,JMAX),K=1,KMAX),& (((IBLANK(I,J,K),I=1,IMAX),J=1,JMAX),K=1,KMAX) XYZ 文件, 二维, 单块(single-block): READ(IUNIT) IMAX,JMAX READ(IUNIT) ((X(I,J),I=1,IMAX),J=1,JMAX),& ((Y(I,J),I=1,IMAX),J=1,JMAX) XYZ 文件, 多块(multi-block) READ(IUNIT) NBLOCK READ(IUNIT) (IMAX(N),JMAX(N),KMAX(N),N=1,NBLOCK) DO N=1,NBLOCK READ(IUNIT) (((X(I,J,K),I=1,IMAX(N)),J=1,JMAX(N)),K=1,KMAX(N)),& (((Y(I,J,K),I=1,IMAX(N)),J=1,JMAX(N)),K=1,KMAX(N)),& (((Z(I,J,K),I=1,IMAX(N)),J=1,JMAX(N)),K=1,KMAX(N)) ENDDO XYZ 文件, 多块(multi-block), 加 IBlank: READ(IUNIT) NBLOCK READ(IUNIT) (IMAX(N),JMAX(N),KMAX(N),N=1,NBLOCK) DO N=1,NBLOCK READ(IUNIT) (((X(I,J,K),I=1,IMAX(N)),J=1,JMAX(N)),K=1,KMAX(N)),& (((Y(I,J,K),I=1,IMAX(N)),J=1,JMAX(N)),K=1,KMAX(N)),& (((Z(I,J,K),I=1,IMAX(N)),J=1,JMAX(N)),K=1,KMAX(N)),& (((IBLANK(I,J,K),I=1,IMAX(N)),J=1,JMAX(N)),K=1,KMAX(N)) ENDDO XYZ 文件, 二维, 多块(multi-block) READ(IUNIT) NBLOCK READ(IUNIT) (IMAX(N),JMAX(N),N=1,NBLOCK) DO N=1,NBLOCK READ(IUNIT) ((X(I,J),I=1,IMAX(N)),J=1,JMAX(N)),& ((Y(I,J),I=1,IMAX(N)),J=1,JMAX(N)) ENDDO |