📄 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 + -