check.f

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

      Subroutine check( a, n, ok )
! ----------------------------------------------------------------------
! --- Check values for progam 'mod1j': a(i) = i should hold for all
!     elements of integer array a.
! ----------------------------------------------------------------------
      Implicit   None

      Integer :: n
      Integer :: a(n)
      Logical :: ok

      Integer :: i
! ----------------------------------------------------------------------
      Do i = 1, n
         ok = ok .AND. ( a(i) == i )
      End Do
! ----------------------------------------------------------------------
      End Subroutine check