Blame test/mpi/f90/coll/allredint8f90.f90
|
Packit |
0848f5 |
! This file created from test/mpi/f77/coll/allredint8f.f with f77tof90
|
|
Packit |
0848f5 |
! -*- Mode: Fortran; -*-
|
|
Packit |
0848f5 |
!
|
|
Packit |
0848f5 |
! (C) 2006 by Argonne National Laboratory.
|
|
Packit |
0848f5 |
! See COPYRIGHT in top-level directory.
|
|
Packit |
0848f5 |
!
|
|
Packit |
0848f5 |
program main
|
|
Packit |
0848f5 |
use mpi
|
|
Packit |
0848f5 |
integer*8 inbuf, outbuf
|
|
Packit |
0848f5 |
integer errs, ierr
|
|
Packit |
0848f5 |
|
|
Packit |
0848f5 |
errs = 0
|
|
Packit |
0848f5 |
|
|
Packit |
0848f5 |
call mtest_init( ierr )
|
|
Packit |
0848f5 |
!
|
|
Packit |
0848f5 |
! A simple test of allreduce for the optional integer*8 type
|
|
Packit |
0848f5 |
|
|
Packit |
0848f5 |
call mpi_allreduce(inbuf, outbuf, 1, MPI_INTEGER8, MPI_SUM, &
|
|
Packit |
0848f5 |
& MPI_COMM_WORLD, ierr)
|
|
Packit |
0848f5 |
|
|
Packit |
0848f5 |
call mtest_finalize( errs )
|
|
Packit |
0848f5 |
call mpi_finalize( ierr )
|
|
Packit |
0848f5 |
end
|