?? svupdn.f
字號:
subroutine svupdn(s,haa) implicit none complex*16 s(4), haa(4,4) complex*16 t(4), tmp integer i, j do 100 i=1,4 tmp = dcmplx(0.0d+00,0.0d+00) do 101 j=1,4 tmp = tmp + haa(i,j)*s(j) 101 continue t(i) = tmp 100 continue do 200 i=1,4 s(i) = t(i) 200 continue return end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -