Befator-Inc-Firmen-Netzwerk/MINGW-packages
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

Merge pull request #21404 from mmuetzel/msmpi

Browse Source 
msmpi: Avoid using gfortran extensions that are disabled by default.
This commit is contained in:
Markus Mützel
2024-07-15 19:51:36 +02:00
committed by GitHub
parent 7a3de9e3ca 66462c2fcd
commit 8cb72468d3
5 changed files with 116 additions and 118 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
mingw-w64-msmpi/PKGBUILD
View File

@@ -4,7 +4,7 @@ _realname=msmpi
pkgbase=mingw-w64-${_realname}
pkgname="${MINGW_PACKAGE_PREFIX}-${_realname}"
pkgver=10.1.1
pkgrel=10
pkgrel=11
pkgdesc="Microsoft MPI SDK (mingw-w64)"
arch=('any')
mingw_arch=('mingw64' 'ucrt64' 'clang64')
@@ -36,10 +36,10 @@ source=(
)
sha256sums=('17086fb1cf949251e4ae1549a06d292c58e468c822cca3ac1851e57e79d8ab20'
'baee3f18f38650e7182956baa0d3d8f8e5c26d8603ccee4871a4dbd160c13660'
'f3384eeb848164e518edfd2b2b9ff1d0f33e267efd5811d5a7c5f79ef7a0a81e'
'38e7be31ad555570f6122058317c08504472b8cfd0a198cdad827519b941ba2c'
'031f910c6ce9a0f7bf66365dd4271fa36530f32c5d22755b10ef2d89dc605e1f'
'4ff6e817fe7517f04f0ca04a038e4c136264384d36f520b79995604e3986fce4'
'66185a4d47ca1a27df2340d3d8d28787e72db54b184f20430ed1e1d7c9244371'
'1abb1645d8211f908f3ca6720c27bd3ca490dd53e0a25cdfe90736a206f4f1fa'
'edd76b5096bd31052be13e2d3306d931277d9c983b147ecf8aef0761d4ae8fb3'
'126bb8230844ad1de5f7e368c12008d2eea9831cb149b4a6952c775c08b294a2'
'fd18184993872fc4eaea825e85f974dca4b020598d838c424c6c112c2328cf2a'
'7b8ed9d3e257e439678cc648164164d6817f7fde68530055b392f67d97bf8ec8'
'ea8203492942fa900c4946741ad88af8957c4d058e06eb618ffae0e5e967b71b'
@@ -71,8 +71,6 @@ build() {
mpic="$srcdir/mpi.c"
if [[ ${MSYSTEM} == CLANG64 ]]; then
sed -e "s|gfortran|flang|g" -i ${mpic}
else
fflags="-fallow-invalid-boz -fallow-argument-mismatch"
fi
cflags="-s -O2 -DNDEBUG"
$CC ${cflags} -o bin/mpicc.exe -DCC "${mpic}"
@@ -88,7 +86,7 @@ build() {
# FORTRAN90 MPI modules
if [[ ${MINGW_PACKAGE_PREFIX} != *-clang-* || ${MSYSTEM} == CLANG64 ]]; then
bin/mpifort ${fflags} -c -Jinclude ${srcdir}/mpi.f90
bin/mpifort -c -Jinclude ${srcdir}/mpi.f90
rm mpi.o
fi
}

108
mingw-w64-msmpi/mpi.f90
View File

@@ -226,7 +226,7 @@
INTEGER MPI_OP_NULL
PARAMETER (MPI_OP_NULL=402653184)
INTEGER MPI_DATATYPE_NULL
PARAMETER (MPI_DATATYPE_NULL=z'0c000000')
PARAMETER (MPI_DATATYPE_NULL=0) ! MPI_DATATYPE_NULL=z'0c000000'
INTEGER MPI_REQUEST_NULL
PARAMETER (MPI_REQUEST_NULL=738197504)
INTEGER MPI_ERRHANDLER_NULL
@@ -302,114 +302,114 @@
INTEGER MPI_LOCK_SHARED
PARAMETER (MPI_LOCK_SHARED=235)
INTEGER MPI_CHAR
PARAMETER (MPI_CHAR=z'4c000101')
PARAMETER (MPI_CHAR=1275068673) ! MPI_CHAR=z'4c000101'
INTEGER MPI_UNSIGNED_CHAR
PARAMETER (MPI_UNSIGNED_CHAR=z'4c000102')
PARAMETER (MPI_UNSIGNED_CHAR=1275068674) ! MPI_UNSIGNED_CHAR=z'4c000102'
INTEGER MPI_SHORT
PARAMETER (MPI_SHORT=z'4c000203')
PARAMETER (MPI_SHORT=1275068931) ! MPI_SHORT=z'4c000203'
INTEGER MPI_UNSIGNED_SHORT
PARAMETER (MPI_UNSIGNED_SHORT=z'4c000204')
PARAMETER (MPI_UNSIGNED_SHORT=1275068932) ! MPI_UNSIGNED_SHORT=z'4c000204'
INTEGER MPI_INT
PARAMETER (MPI_INT=z'4c000405')
PARAMETER (MPI_INT=1275069445) ! MPI_INT=z'4c000405'
INTEGER MPI_UNSIGNED
PARAMETER (MPI_UNSIGNED=z'4c000406')
PARAMETER (MPI_UNSIGNED=1275069446) ! MPI_UNSIGNED=z'4c000406'
INTEGER MPI_LONG
PARAMETER (MPI_LONG=z'4c000407')
PARAMETER (MPI_LONG=1275069447) ! MPI_LONG=z'4c000407'
INTEGER MPI_UNSIGNED_LONG
PARAMETER (MPI_UNSIGNED_LONG=z'4c000408')
PARAMETER (MPI_UNSIGNED_LONG=1275069448) ! MPI_UNSIGNED_LONG=z'4c000408'
INTEGER MPI_LONG_LONG
PARAMETER (MPI_LONG_LONG=z'4c000809')
PARAMETER (MPI_LONG_LONG=1275070473) ! MPI_LONG_LONG=z'4c000809'
INTEGER MPI_LONG_LONG_INT
PARAMETER (MPI_LONG_LONG_INT=z'4c000809')
PARAMETER (MPI_LONG_LONG_INT=1275070473) ! MPI_LONG_LONG_INT=z'4c000809'
INTEGER MPI_FLOAT
PARAMETER (MPI_FLOAT=z'4c00040a')
PARAMETER (MPI_FLOAT=1275069450) ! MPI_FLOAT=z'4c00040a'
INTEGER MPI_DOUBLE
PARAMETER (MPI_DOUBLE=z'4c00080b')
PARAMETER (MPI_DOUBLE=1275070475) ! MPI_DOUBLE=z'4c00080b'
INTEGER MPI_LONG_DOUBLE
PARAMETER (MPI_LONG_DOUBLE=z'4c00080c')
PARAMETER (MPI_LONG_DOUBLE=1275070476) ! MPI_LONG_DOUBLE=z'4c00080c'
INTEGER MPI_BYTE
PARAMETER (MPI_BYTE=z'4c00010d')
PARAMETER (MPI_BYTE=1275068685) ! MPI_BYTE=z'4c00010d'
INTEGER MPI_WCHAR
PARAMETER (MPI_WCHAR=z'4c00020e')
PARAMETER (MPI_WCHAR=1275068942) ! MPI_WCHAR=z'4c00020e'
INTEGER MPI_PACKED
PARAMETER (MPI_PACKED=z'4c00010f')
PARAMETER (MPI_PACKED=1275068687) ! MPI_PACKED=z'4c00010f'
INTEGER MPI_LB
PARAMETER (MPI_LB=z'4c000010')
PARAMETER (MPI_LB=1275068432) ! MPI_LB=z'4c000010'
INTEGER MPI_UB
PARAMETER (MPI_UB=z'4c000011')
PARAMETER (MPI_UB=1275068433) ! MPI_UB=z'4c000011'
INTEGER MPI_2INT
PARAMETER (MPI_2INT=z'4c000816')
PARAMETER (MPI_2INT=1275070486) ! MPI_2INT=z'4c000816'
INTEGER MPI_SIGNED_CHAR
PARAMETER (MPI_SIGNED_CHAR=z'4c000118')
PARAMETER (MPI_SIGNED_CHAR=1275068696) ! MPI_SIGNED_CHAR=z'4c000118'
INTEGER MPI_UNSIGNED_LONG_LONG
PARAMETER (MPI_UNSIGNED_LONG_LONG=z'4c000819')
PARAMETER (MPI_UNSIGNED_LONG_LONG=1275070489) ! MPI_UNSIGNED_LONG_LONG=z'4c000819'
INTEGER MPI_CHARACTER
PARAMETER (MPI_CHARACTER=z'4c00011a')
PARAMETER (MPI_CHARACTER=1275068698) ! MPI_CHARACTER=z'4c00011a'
INTEGER MPI_INTEGER
PARAMETER (MPI_INTEGER=z'4c00041b')
PARAMETER (MPI_INTEGER=1275069467) ! MPI_INTEGER=z'4c00041b'
INTEGER MPI_REAL
PARAMETER (MPI_REAL=z'4c00041c')
PARAMETER (MPI_REAL=1275069468) ! MPI_REAL=z'4c00041c'
INTEGER MPI_LOGICAL
PARAMETER (MPI_LOGICAL=z'4c00041d')
PARAMETER (MPI_LOGICAL=1275069469) ! MPI_LOGICAL=z'4c00041d'
INTEGER MPI_COMPLEX
PARAMETER (MPI_COMPLEX=z'4c00081e')
PARAMETER (MPI_COMPLEX=1275070494) ! MPI_COMPLEX=z'4c00081e'
INTEGER MPI_DOUBLE_PRECISION
PARAMETER (MPI_DOUBLE_PRECISION=z'4c00081f')
PARAMETER (MPI_DOUBLE_PRECISION=1275070495) ! MPI_DOUBLE_PRECISION=z'4c00081f'
INTEGER MPI_2INTEGER
PARAMETER (MPI_2INTEGER=z'4c000820')
PARAMETER (MPI_2INTEGER=1275070496) ! MPI_2INTEGER=z'4c000820'
INTEGER MPI_2REAL
PARAMETER (MPI_2REAL=z'4c000821')
PARAMETER (MPI_2REAL=1275070497) ! MPI_2REAL=z'4c000821'
INTEGER MPI_DOUBLE_COMPLEX
PARAMETER (MPI_DOUBLE_COMPLEX=z'4c001022')
PARAMETER (MPI_DOUBLE_COMPLEX=1275072546) ! MPI_DOUBLE_COMPLEX=z'4c001022'
INTEGER MPI_2DOUBLE_PRECISION
PARAMETER (MPI_2DOUBLE_PRECISION=z'4c001023')
PARAMETER (MPI_2DOUBLE_PRECISION=1275072547) ! MPI_2DOUBLE_PRECISION=z'4c001023'
INTEGER MPI_2COMPLEX
PARAMETER (MPI_2COMPLEX=z'4c001024')
PARAMETER (MPI_2COMPLEX=1275072548) ! MPI_2COMPLEX=z'4c001024'
INTEGER MPI_2DOUBLE_COMPLEX
PARAMETER (MPI_2DOUBLE_COMPLEX=z'4c002025')
PARAMETER (MPI_2DOUBLE_COMPLEX=1275072549) ! MPI_2DOUBLE_COMPLEX=z'4c002025'
INTEGER MPI_REAL2
PARAMETER (MPI_REAL2=z'0c000000')
PARAMETER (MPI_REAL2=201326592) ! MPI_REAL2=z'0c000000'
INTEGER MPI_REAL4
PARAMETER (MPI_REAL4=z'4c000427')
PARAMETER (MPI_REAL4=1275069479) ! MPI_REAL4=z'4c000427'
INTEGER MPI_COMPLEX8
PARAMETER (MPI_COMPLEX8=z'4c000828')
PARAMETER (MPI_COMPLEX8=1275070504) ! MPI_COMPLEX8=z'4c000828'
INTEGER MPI_REAL8
PARAMETER (MPI_REAL8=z'4c000829')
PARAMETER (MPI_REAL8=1275070505) ! MPI_REAL8=z'4c000829'
INTEGER MPI_COMPLEX16
PARAMETER (MPI_COMPLEX16=z'4c00102a')
PARAMETER (MPI_COMPLEX16=1275072554) ! MPI_COMPLEX16=z'4c00102a'
INTEGER MPI_REAL16
PARAMETER (MPI_REAL16=z'0c000000')
PARAMETER (MPI_REAL16=201326592) ! MPI_REAL16=z'0c000000'
INTEGER MPI_COMPLEX32
PARAMETER (MPI_COMPLEX32=z'0c000000')
PARAMETER (MPI_COMPLEX32=201326592) ! MPI_COMPLEX32=z'0c000000'
INTEGER MPI_INTEGER1
PARAMETER (MPI_INTEGER1=z'4c00012d')
PARAMETER (MPI_INTEGER1=1275068717) ! MPI_INTEGER1=z'4c00012d'
INTEGER MPI_COMPLEX4
PARAMETER (MPI_COMPLEX4=z'0c000000')
PARAMETER (MPI_COMPLEX4=201326592) ! MPI_COMPLEX4=z'0c000000'
INTEGER MPI_INTEGER2
PARAMETER (MPI_INTEGER2=z'4c00022f')
PARAMETER (MPI_INTEGER2=1275068975) ! MPI_INTEGER2=z'4c00022f'
INTEGER MPI_INTEGER4
PARAMETER (MPI_INTEGER4=z'4c000430')
PARAMETER (MPI_INTEGER4=1275069488) ! MPI_INTEGER4=z'4c000430'
INTEGER MPI_INTEGER8
PARAMETER (MPI_INTEGER8=z'4c000831')
PARAMETER (MPI_INTEGER8=1275070513) ! MPI_INTEGER8=z'4c000831'
INTEGER MPI_INTEGER16
PARAMETER (MPI_INTEGER16=z'0c000000')
PARAMETER (MPI_INTEGER16=201326592) ! MPI_INTEGER16=z'0c000000'
INCLUDE 'mpifptr.h'
INTEGER MPI_OFFSET
PARAMETER (MPI_OFFSET=z'4c00083c')
PARAMETER (MPI_OFFSET=1275070524) ! MPI_OFFSET=z'4c00083c'
INTEGER MPI_COUNT
PARAMETER (MPI_COUNT=z'4c00083d')
PARAMETER (MPI_COUNT=1275070525) ! MPI_COUNT=z'4c00083d'
INTEGER MPI_FLOAT_INT
PARAMETER (MPI_FLOAT_INT=z'8c000000')
PARAMETER (MPI_FLOAT_INT=-1946157056) ! MPI_FLOAT_INT=z'8c000000'
INTEGER MPI_DOUBLE_INT
PARAMETER (MPI_DOUBLE_INT=z'8c000001')
PARAMETER (MPI_DOUBLE_INT=-1946157055) ! MPI_DOUBLE_INT=z'8c000001'
INTEGER MPI_LONG_INT
PARAMETER (MPI_LONG_INT=z'8c000002')
PARAMETER (MPI_LONG_INT=-1946157054) ! MPI_LONG_INT=z'8c000002'
INTEGER MPI_SHORT_INT
PARAMETER (MPI_SHORT_INT=z'8c000003')
PARAMETER (MPI_SHORT_INT=-1946157053) ! MPI_SHORT_INT=z'8c000003'
INTEGER MPI_LONG_DOUBLE_INT
PARAMETER (MPI_LONG_DOUBLE_INT=z'8c000004')
PARAMETER (MPI_LONG_DOUBLE_INT=-1946157052) ! MPI_LONG_DOUBLE_INT=z'8c000004'
INTEGER MPI_INTEGER_KIND
PARAMETER (MPI_INTEGER_KIND=4)
INTEGER MPI_OFFSET_KIND

108
mingw-w64-msmpi/mpif.h
View File

@@ -224,7 +224,7 @@
INTEGER MPI_OP_NULL
PARAMETER (MPI_OP_NULL=402653184)
INTEGER MPI_DATATYPE_NULL
PARAMETER (MPI_DATATYPE_NULL=z'0c000000')
PARAMETER (MPI_DATATYPE_NULL=0) ! MPI_DATATYPE_NULL=z'0c000000'
INTEGER MPI_REQUEST_NULL
PARAMETER (MPI_REQUEST_NULL=738197504)
INTEGER MPI_ERRHANDLER_NULL
@@ -300,114 +300,114 @@
INTEGER MPI_LOCK_SHARED
PARAMETER (MPI_LOCK_SHARED=235)
INTEGER MPI_CHAR
PARAMETER (MPI_CHAR=z'4c000101')
PARAMETER (MPI_CHAR=1275068673) ! MPI_CHAR=z'4c000101'
INTEGER MPI_UNSIGNED_CHAR
PARAMETER (MPI_UNSIGNED_CHAR=z'4c000102')
PARAMETER (MPI_UNSIGNED_CHAR=1275068674) ! MPI_UNSIGNED_CHAR=z'4c000102'
INTEGER MPI_SHORT
PARAMETER (MPI_SHORT=z'4c000203')
PARAMETER (MPI_SHORT=1275068931) ! MPI_SHORT=z'4c000203'
INTEGER MPI_UNSIGNED_SHORT
PARAMETER (MPI_UNSIGNED_SHORT=z'4c000204')
PARAMETER (MPI_UNSIGNED_SHORT=1275068932) ! MPI_UNSIGNED_SHORT=z'4c000204'
INTEGER MPI_INT
PARAMETER (MPI_INT=z'4c000405')
PARAMETER (MPI_INT=1275069445) ! MPI_INT=z'4c000405'
INTEGER MPI_UNSIGNED
PARAMETER (MPI_UNSIGNED=z'4c000406')
PARAMETER (MPI_UNSIGNED=1275069446) ! MPI_UNSIGNED=z'4c000406'
INTEGER MPI_LONG
PARAMETER (MPI_LONG=z'4c000407')
PARAMETER (MPI_LONG=1275069447) ! MPI_LONG=z'4c000407'
INTEGER MPI_UNSIGNED_LONG
PARAMETER (MPI_UNSIGNED_LONG=z'4c000408')
PARAMETER (MPI_UNSIGNED_LONG=1275069448) ! MPI_UNSIGNED_LONG=z'4c000408'
INTEGER MPI_LONG_LONG
PARAMETER (MPI_LONG_LONG=z'4c000809')
PARAMETER (MPI_LONG_LONG=1275070473) ! MPI_LONG_LONG=z'4c000809'
INTEGER MPI_LONG_LONG_INT
PARAMETER (MPI_LONG_LONG_INT=z'4c000809')
PARAMETER (MPI_LONG_LONG_INT=1275070473) ! MPI_LONG_LONG_INT=z'4c000809'
INTEGER MPI_FLOAT
PARAMETER (MPI_FLOAT=z'4c00040a')
PARAMETER (MPI_FLOAT=1275069450) ! MPI_FLOAT=z'4c00040a'
INTEGER MPI_DOUBLE
PARAMETER (MPI_DOUBLE=z'4c00080b')
PARAMETER (MPI_DOUBLE=1275070475) ! MPI_DOUBLE=z'4c00080b'
INTEGER MPI_LONG_DOUBLE
PARAMETER (MPI_LONG_DOUBLE=z'4c00080c')
PARAMETER (MPI_LONG_DOUBLE=1275070476) ! MPI_LONG_DOUBLE=z'4c00080c'
INTEGER MPI_BYTE
PARAMETER (MPI_BYTE=z'4c00010d')
PARAMETER (MPI_BYTE=1275068685) ! MPI_BYTE=z'4c00010d'
INTEGER MPI_WCHAR
PARAMETER (MPI_WCHAR=z'4c00020e')
PARAMETER (MPI_WCHAR=1275068942) ! MPI_WCHAR=z'4c00020e'
INTEGER MPI_PACKED
PARAMETER (MPI_PACKED=z'4c00010f')
PARAMETER (MPI_PACKED=1275068687) ! MPI_PACKED=z'4c00010f'
INTEGER MPI_LB
PARAMETER (MPI_LB=z'4c000010')
PARAMETER (MPI_LB=1275068432) ! MPI_LB=z'4c000010'
INTEGER MPI_UB
PARAMETER (MPI_UB=z'4c000011')
PARAMETER (MPI_UB=1275068433) ! MPI_UB=z'4c000011'
INTEGER MPI_2INT
PARAMETER (MPI_2INT=z'4c000816')
PARAMETER (MPI_2INT=1275070486) ! MPI_2INT=z'4c000816'
INTEGER MPI_SIGNED_CHAR
PARAMETER (MPI_SIGNED_CHAR=z'4c000118')
PARAMETER (MPI_SIGNED_CHAR=1275068696) ! MPI_SIGNED_CHAR=z'4c000118'
INTEGER MPI_UNSIGNED_LONG_LONG
PARAMETER (MPI_UNSIGNED_LONG_LONG=z'4c000819')
PARAMETER (MPI_UNSIGNED_LONG_LONG=1275070489) ! MPI_UNSIGNED_LONG_LONG=z'4c000819'
INTEGER MPI_CHARACTER
PARAMETER (MPI_CHARACTER=z'4c00011a')
PARAMETER (MPI_CHARACTER=1275068698) ! MPI_CHARACTER=z'4c00011a'
INTEGER MPI_INTEGER
PARAMETER (MPI_INTEGER=z'4c00041b')
PARAMETER (MPI_INTEGER=1275069467) ! MPI_INTEGER=z'4c00041b'
INTEGER MPI_REAL
PARAMETER (MPI_REAL=z'4c00041c')
PARAMETER (MPI_REAL=1275069468) ! MPI_REAL=z'4c00041c'
INTEGER MPI_LOGICAL
PARAMETER (MPI_LOGICAL=z'4c00041d')
PARAMETER (MPI_LOGICAL=1275069469) ! MPI_LOGICAL=z'4c00041d'
INTEGER MPI_COMPLEX
PARAMETER (MPI_COMPLEX=z'4c00081e')
PARAMETER (MPI_COMPLEX=1275070494) ! MPI_COMPLEX=z'4c00081e'
INTEGER MPI_DOUBLE_PRECISION
PARAMETER (MPI_DOUBLE_PRECISION=z'4c00081f')
PARAMETER (MPI_DOUBLE_PRECISION=1275070495) ! MPI_DOUBLE_PRECISION=z'4c00081f'
INTEGER MPI_2INTEGER
PARAMETER (MPI_2INTEGER=z'4c000820')
PARAMETER (MPI_2INTEGER=1275070496) ! MPI_2INTEGER=z'4c000820'
INTEGER MPI_2REAL
PARAMETER (MPI_2REAL=z'4c000821')
PARAMETER (MPI_2REAL=1275070497) ! MPI_2REAL=z'4c000821'
INTEGER MPI_DOUBLE_COMPLEX
PARAMETER (MPI_DOUBLE_COMPLEX=z'4c001022')
PARAMETER (MPI_DOUBLE_COMPLEX=1275072546) ! MPI_DOUBLE_COMPLEX=z'4c001022'
INTEGER MPI_2DOUBLE_PRECISION
PARAMETER (MPI_2DOUBLE_PRECISION=z'4c001023')
PARAMETER (MPI_2DOUBLE_PRECISION=1275072547) ! MPI_2DOUBLE_PRECISION=z'4c001023'
INTEGER MPI_2COMPLEX
PARAMETER (MPI_2COMPLEX=z'4c001024')
PARAMETER (MPI_2COMPLEX=1275072548) ! MPI_2COMPLEX=z'4c001024'
INTEGER MPI_2DOUBLE_COMPLEX
PARAMETER (MPI_2DOUBLE_COMPLEX=z'4c002025')
PARAMETER (MPI_2DOUBLE_COMPLEX=1275072549) ! MPI_2DOUBLE_COMPLEX=z'4c002025'
INTEGER MPI_REAL2
PARAMETER (MPI_REAL2=z'0c000000')
PARAMETER (MPI_REAL2=201326592) ! MPI_REAL2=z'0c000000'
INTEGER MPI_REAL4
PARAMETER (MPI_REAL4=z'4c000427')
PARAMETER (MPI_REAL4=1275069479) ! MPI_REAL4=z'4c000427'
INTEGER MPI_COMPLEX8
PARAMETER (MPI_COMPLEX8=z'4c000828')
PARAMETER (MPI_COMPLEX8=1275070504) ! MPI_COMPLEX8=z'4c000828'
INTEGER MPI_REAL8
PARAMETER (MPI_REAL8=z'4c000829')
PARAMETER (MPI_REAL8=1275070505) ! MPI_REAL8=z'4c000829'
INTEGER MPI_COMPLEX16
PARAMETER (MPI_COMPLEX16=z'4c00102a')
PARAMETER (MPI_COMPLEX16=1275072554) ! MPI_COMPLEX16=z'4c00102a'
INTEGER MPI_REAL16
PARAMETER (MPI_REAL16=z'0c000000')
PARAMETER (MPI_REAL16=201326592) ! MPI_REAL16=z'0c000000'
INTEGER MPI_COMPLEX32
PARAMETER (MPI_COMPLEX32=z'0c000000')
PARAMETER (MPI_COMPLEX32=201326592) ! MPI_COMPLEX32=z'0c000000'
INTEGER MPI_INTEGER1
PARAMETER (MPI_INTEGER1=z'4c00012d')
PARAMETER (MPI_INTEGER1=1275068717) ! MPI_INTEGER1=z'4c00012d'
INTEGER MPI_COMPLEX4
PARAMETER (MPI_COMPLEX4=z'0c000000')
PARAMETER (MPI_COMPLEX4=201326592) ! MPI_COMPLEX4=z'0c000000'
INTEGER MPI_INTEGER2
PARAMETER (MPI_INTEGER2=z'4c00022f')
PARAMETER (MPI_INTEGER2=1275068975) ! MPI_INTEGER2=z'4c00022f'
INTEGER MPI_INTEGER4
PARAMETER (MPI_INTEGER4=z'4c000430')
PARAMETER (MPI_INTEGER4=1275069488) ! MPI_INTEGER4=z'4c000430'
INTEGER MPI_INTEGER8
PARAMETER (MPI_INTEGER8=z'4c000831')
PARAMETER (MPI_INTEGER8=1275070513) ! MPI_INTEGER8=z'4c000831'
INTEGER MPI_INTEGER16
PARAMETER (MPI_INTEGER16=z'0c000000')
PARAMETER (MPI_INTEGER16=201326592) ! MPI_INTEGER16=z'0c000000'
INCLUDE 'mpifptr.h'
INTEGER MPI_OFFSET
PARAMETER (MPI_OFFSET=z'4c00083c')
PARAMETER (MPI_OFFSET=1275070524) ! MPI_OFFSET=z'4c00083c'
INTEGER MPI_COUNT
PARAMETER (MPI_COUNT=z'4c00083d')
PARAMETER (MPI_COUNT=1275070525) ! MPI_COUNT=z'4c00083d'
INTEGER MPI_FLOAT_INT
PARAMETER (MPI_FLOAT_INT=-1946157056)
PARAMETER (MPI_FLOAT_INT=-1946157056) ! MPI_FLOAT_INT=z'8c000000'
INTEGER MPI_DOUBLE_INT
PARAMETER (MPI_DOUBLE_INT=-1946157055)
PARAMETER (MPI_DOUBLE_INT=-1946157055) ! MPI_DOUBLE_INT=z'8c000001'
INTEGER MPI_LONG_INT
PARAMETER (MPI_LONG_INT=-1946157054)
PARAMETER (MPI_LONG_INT=-1946157054) ! MPI_LONG_INT=z'8c000002'
INTEGER MPI_SHORT_INT
PARAMETER (MPI_SHORT_INT=-1946157053)
PARAMETER (MPI_SHORT_INT=-1946157053) ! MPI_SHORT_INT=z'8c000003'
INTEGER MPI_LONG_DOUBLE_INT
PARAMETER (MPI_LONG_DOUBLE_INT=-1946157052)
PARAMETER (MPI_LONG_DOUBLE_INT=-1946157052) ! MPI_LONG_DOUBLE_INT=z'8c000004'
INTEGER MPI_INTEGER_KIND
PARAMETER (MPI_INTEGER_KIND=4)
INTEGER MPI_OFFSET_KIND

2
mingw-w64-msmpi/mpifptr.h.i686
View File

@@ -4,6 +4,6 @@
! Licensed under the MIT License.
!
INTEGER MPI_AINT
PARAMETER (MPI_AINT=z'4c00043b')
PARAMETER (MPI_AINT=1275069499) ! MPI_AINT=z'4c00043b'
INTEGER MPI_ADDRESS_KIND
PARAMETER(MPI_ADDRESS_KIND = 4)

2
mingw-w64-msmpi/mpifptr.h.x86_64
View File

@@ -4,6 +4,6 @@
! Licensed under the MIT License.
!
INTEGER MPI_AINT
PARAMETER (MPI_AINT=z'4c00083b')
PARAMETER (MPI_AINT=1275070523) ! MPI_AINT=z'4c00083b'
INTEGER MPI_ADDRESS_KIND
PARAMETER(MPI_ADDRESS_KIND = 8)