?? qdagi.f90
字號:
program main
use IMSL
implicit none
real, external :: F
real :: BOUND = 1.0
integer :: INTER = 1
real, parameter :: ERRABS = 1E-3
real, parameter :: ERRREL = 1E-3
real ANS, ERR
call QDAGI (F, BOUND, INTER, ERRABS, ERRREL, ANS, ERR)
write(*,"('積分值='F5.2,' 估計誤差范圍:'F6.4)") ANS, ERR
stop
end
real function F(X)
implicit none
real X
F = 1.0/(x*x)
return
end function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -