?? propforce.f90
字號:
real function PropForce(t)
!-------------------------------------------------------------
! Purpose: calculate proportional force at t
! Input: t - time
! Output: PropForce - value of force at t.
!-------------------------------------------------------------
use module_parameter, only: a=>prop_para
implicit none
real t
PropForce = a(1) + a(2)*t + a(3)*sin(a(4)*t+a(5))
end function PropForce
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -