check1.f

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

      Subroutine check1( sy, ok )
! -------------------------------------------------------------------
! --- 'check1' checks whether the operations done in routine 'oper1'
!     have been performed correctly. Only the target variable 'sy'
!     has to be checked.
! -------------------------------------------------------------------
      Use         numerics
      Implicit    None

      Real(l_) :: sy
      Logical  :: ok

      Real(l_) :: eps
! -------------------------------------------------------------------
      eps = 5.0_l_*Epsilon( 1.0_l_ )
      If ( Abs( sy - 1.0_l_ ) > eps ) ok = .FALSE.
! -------------------------------------------------------------------
      End Subroutine check1