hull.f

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

      Subroutine hull( ensemble, title, me, npes, nrpt, ncases, n, tn,
     &                 ops )
! ----------------------------------------------------------------------
      Use             numerics
      Use             max_params
      Include         'mpif.h'

      Character*50 :: title
      Real(l_)     :: tn(maxcases), ops
      Integer      :: nrpt, ncases
      Integer      :: me, npes, n
      External        ensemble
! ---------------------------------------------------------------------
      Call ensemble( title, me, npes, nrpt, ncases, n, tn, ops )
! ---------------------------------------------------------------------
      End Subroutine hull