?? parameter_1.f90
字號:
! Program to test array parameter variables.program parameter_1 implicit none integer i INTEGER, PARAMETER :: ii(10) = (/ (I,I=1,10) /) REAL, PARAMETER :: rr(10) = ii do i = 1, 10 if (ii(i) /= i) call abort() if (rr(i) /= i) call abort() end doend program parameter_1?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -