?? qdags.f90
字號:
program main
use IMSL
implicit none
integer NOUT
real, external :: F
real A, B
real, parameter :: ERRABS = 1E-5
real, parameter :: ERRREL = 1E-5
real ANS, ERR
A = 0.0
B = 3.14159
CALL QDAGS (F, A, B, ERRABS, ERRREL, ANS, ERR)
write(*,"('積分值='F5.2,' 估計誤差范圍:'F6.4)") ANS, ERR
END
real function F(X)
implicit none
real X
F = sin(X)
return
end function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -