1! -*- f90 -*- 2! 3! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. 4! Copyright (c) 2009-2012 Los Alamos National Security, LLC. 5! All rights reserved. 6! $COPYRIGHT$ 7 8subroutine PMPI_Type_vector_f08(count,blocklength,stride,oldtype,newtype,ierror) 9 use :: mpi_f08_types, only : MPI_Datatype 10 use :: mpi_f08, only : ompi_type_vector_f 11 implicit none 12 INTEGER, INTENT(IN) :: count, blocklength, stride 13 TYPE(MPI_Datatype), INTENT(IN) :: oldtype 14 TYPE(MPI_Datatype), INTENT(OUT) :: newtype 15 INTEGER, OPTIONAL, INTENT(OUT) :: ierror 16 integer :: c_ierror 17 18 call ompi_type_vector_f(count,blocklength,stride, & 19 oldtype%MPI_VAL,newtype%MPI_VAL,c_ierror) 20 if (present(ierror)) ierror = c_ierror 21 22end subroutine PMPI_Type_vector_f08 23