You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
74 lines
2.5 KiB
74 lines
2.5 KiB
From 8f0c71281b5dccd70a3f1d4204e3cc6bc7201ceb Mon Sep 17 00:00:00 2001 |
|
From: =?UTF-8?q?Zbigniew=20J=C4=99drzejewski-Szmek?= |
|
<zbyszek@arm03-packager01.cloud.fedoraproject.org> |
|
Date: Wed, 28 Aug 2019 10:57:55 +0000 |
|
Subject: [PATCH] Drop real128 |
|
|
|
https://github.com/pmodels/mpich/issues/4005 |
|
--- |
|
.../fortran/use_mpi_f08/mpi_f08_types.f90 | 24 ------------------- |
|
1 file changed, 24 deletions(-) |
|
|
|
diff --git a/src/binding/fortran/use_mpi_f08/mpi_f08_types.f90 b/src/binding/fortran/use_mpi_f08/mpi_f08_types.f90 |
|
index f8b0fa811..46bdf6972 100644 |
|
--- a/src/binding/fortran/use_mpi_f08/mpi_f08_types.f90 |
|
+++ b/src/binding/fortran/use_mpi_f08/mpi_f08_types.f90 |
|
@@ -248,10 +248,8 @@ interface MPI_Sizeof |
|
module procedure MPI_Sizeof_xint64 |
|
module procedure MPI_Sizeof_xreal32 |
|
module procedure MPI_Sizeof_xreal64 |
|
- module procedure MPI_Sizeof_xreal128 |
|
module procedure MPI_Sizeof_xcomplex32 |
|
module procedure MPI_Sizeof_xcomplex64 |
|
- module procedure MPI_Sizeof_xcomplex128 |
|
end interface |
|
|
|
private :: MPI_Sizeof_character |
|
@@ -263,10 +261,8 @@ private :: MPI_Sizeof_xint32 |
|
private :: MPI_Sizeof_xint64 |
|
private :: MPI_Sizeof_xreal32 |
|
private :: MPI_Sizeof_xreal64 |
|
-private :: MPI_Sizeof_xreal128 |
|
private :: MPI_Sizeof_xcomplex32 |
|
private :: MPI_Sizeof_xcomplex64 |
|
-private :: MPI_Sizeof_xcomplex128 |
|
|
|
contains |
|
|
|
@@ -350,16 +346,6 @@ subroutine MPI_Sizeof_xreal64 (x, size, ierror) |
|
ierror = 0 |
|
end subroutine MPI_Sizeof_xreal64 |
|
|
|
-subroutine MPI_Sizeof_xreal128 (x, size, ierror) |
|
- use,intrinsic :: iso_fortran_env, only: real128 |
|
- real(real128),dimension(..) :: x |
|
- integer, intent(out) :: size |
|
- integer, optional, intent(out) :: ierror |
|
- |
|
- size = storage_size(x)/8 |
|
- ierror = 0 |
|
-end subroutine MPI_Sizeof_xreal128 |
|
- |
|
subroutine MPI_Sizeof_xcomplex32 (x, size, ierror) |
|
use,intrinsic :: iso_fortran_env, only: real32 |
|
complex(real32),dimension(..) :: x |
|
@@ -380,16 +366,6 @@ subroutine MPI_Sizeof_xcomplex64 (x, size, ierror) |
|
ierror = 0 |
|
end subroutine MPI_Sizeof_xcomplex64 |
|
|
|
-subroutine MPI_Sizeof_xcomplex128 (x, size, ierror) |
|
- use,intrinsic :: iso_fortran_env, only: real128 |
|
- complex(real128),dimension(..) :: x |
|
- integer, intent(out) :: size |
|
- integer, optional, intent(out) :: ierror |
|
- |
|
- size = storage_size(x)/8 |
|
- ierror = 0 |
|
-end subroutine MPI_Sizeof_xcomplex128 |
|
- |
|
subroutine MPI_Status_f2f08(f_status, f08_status, ierror) |
|
integer, intent(in) :: f_status(MPI_STATUS_SIZE) |
|
type(MPI_Status), intent(out) :: f08_status |
|
-- |
|
2.21.0 |
|
|
|
|