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