wtimef90.f90

来自「mpi并行计算的c++代码 可用vc或gcc编译通过 可以用来搭建并行计算试验环」· F90 代码 · 共 20 行

!  
!  (C) 2004 by Argonne National Laboratory.
!      See COPYRIGHT in top-level directory.
!
        program main
! This is a simple test to check that both the MPI and PMPI versions of the
! timers are available, and that they return double precision values.
! If this code links, there are no problems.
!
          use mpi
          double precision time1

          time1 = mpi_wtime()
          time1 = mpi_wtick()
          time1 = pmpi_wtime()
          time1 = pmpi_wtick()

          print *, ' No Errors'
        end