?? ismax.f
字號:
integer function ismax(n,sx,incx) real*8 sx(*) real*8 max integer imax max = sx(1) imax = 1 do i=1+incx,n,incx if (max .lt. sx(i)) then max = sx(i) imax = i endif end do ismax = imax returnend function ismax?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -