cot.f

来自「网络带宽测试工具」· F 代码 · 共 14 行

      Function cot( x )                                   Result( cotx )
! ----------------------------------------------------------------------
      Use         numerics       
      Implicit    None

      Real(l_) :: x

      Real(l_) :: cotx
! ----------------------------------------------------------------------
! --- cotx = Cotan(x)         ! In case function exists on system.
      cotx = 1.0_l_/Tan( x )
! ----------------------------------------------------------------------
      End Function cot