?? snap_dis.f90
字號:
!=======================================================================SUBROUTINE SNAP_DIS (ITILE, D) USE PRECISION , ONLY: & WP USE CONTROL_DATA, ONLY: & DT, LREC, MR, MZ, IPAS2 USE WAVEFIELD , ONLY: & SEIS!----------------------------------------------------------------------- IMPLICIT NONE INTEGER, INTENT(IN) :: ITILE REAL(WP), INTENT(INOUT), DIMENSION(0:MZ) :: D INTEGER :: I!----------------------------------------------------------------------- DO I = 1, MR SEIS(I,ITILE/IPAS2) = D( LREC(I) ) END DOEND SUBROUTINE SNAP_DIS
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -