?? prepare_int.f90
字號:
!-----------------------------------------------------------------------! subroutine calculates some expresions needed in numerical integration!-----------------------------------------------------------------------SUBROUTINE PREPARE_INT USE MOD_MODEL , ONLY: H USE MOD_ATTEN , ONLY: I2NRFREQ1 USE MOD_INTEGRATION, ONLY: PTS, PTS2, & M1_FINE, RHO_FINE, & YM1_FINE!---------------------------------------------------------------------- IMPLICIT NONE!---------------------------------------------------------------------- PTS2 = PTS/2 ALLOCATE ( M1_FINE ( PTS+PTS2 ), & YM1_FINE ( PTS+PTS2, I2NRFREQ1 ), & RHO_FINE ( PTS+PTS2 ) )END SUBROUTINE PREPARE_INT
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -