Changeset 5620

Show
Ignore:
Timestamp:
10/29/09 16:38:32 (4 weeks ago)
Author:
jayesh
Message:

Adding C versions of MPI datatypes in fortran for windows - added in unix configure in r5479

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • mpich2/trunk/winconfigure.wsf

    r5418 r5620  
    11611161F77_2INT                                        = HexToInt(dtypes.Item("MPI_2INT")) 
    11621162F77_LONG_DOUBLE_INT                     = HexToInt(dtypes.Item("MPI_LONG_DOUBLE_INT")) 
     1163F77_INT8_T              = HexToInt(dtypes.Item("MPI_INT8_T")) 
     1164F77_INT16_T             = HexToInt(dtypes.Item("MPI_INT16_T")) 
     1165F77_INT32_T             = HexToInt(dtypes.Item("MPI_INT32_T")) 
     1166F77_INT64_T             = HexToInt(dtypes.Item("MPI_INT64_T")) 
     1167F77_UINT8_T             = HexToInt(dtypes.Item("MPI_UINT8_T")) 
     1168F77_UINT16_T            = HexToInt(dtypes.Item("MPI_UINT16_T")) 
     1169F77_UINT32_T            = HexToInt(dtypes.Item("MPI_UINT32_T")) 
     1170F77_UINT64_T            = HexToInt(dtypes.Item("MPI_UINT64_T")) 
     1171F77_C_BOOL              = HexToInt(dtypes.Item("MPI_C_BOOL")) 
     1172F77_C_FLOAT_COMPLEX     = HexToInt(dtypes.Item("MPI_C_FLOAT_COMPLEX")) 
     1173F77_C_COMPLEX           = HexToInt(dtypes.Item("MPI_C_COMPLEX")) 
     1174F77_C_DOUBLE_COMPLEX    = HexToInt(dtypes.Item("MPI_C_DOUBLE_COMPLEX")) 
     1175F77_C_LONG_DOUBLE_COMPLEX      = HexToInt(dtypes.Item("MPI_C_LONG_DOUBLE_COMPLEX")) 
     1176F77_AINT                = HexToInt(dtypes.Item("MPI_AINT")) 
     1177F77_OFFSET              = HexToInt(dtypes.Item("MPI_OFFSET")) 
    11631178 
    11641179if false then 
    … …  
    18591874                        Case "@MPI_F77_LONG_DOUBLE_INT@" 
    18601875                                str = Replace(str, "@MPI_F77_LONG_DOUBLE_INT@", F77_LONG_DOUBLE_INT) 
     1876                        Case "@MPI_F77_INT8_T@" 
     1877                                str = Replace(str, "@MPI_F77_INT8_T@", F77_INT8_T) 
     1878                        Case "@MPI_F77_INT16_T@" 
     1879                                str = Replace(str, "@MPI_F77_INT16_T@", F77_INT16_T) 
     1880                        Case "@MPI_F77_INT32_T@" 
     1881                                str = Replace(str, "@MPI_F77_INT32_T@", F77_INT32_T) 
     1882                        Case "@MPI_F77_INT64_T@" 
     1883                                str = Replace(str, "@MPI_F77_INT64_T@", F77_INT64_T) 
     1884                        Case "@MPI_F77_UINT8_T@" 
     1885                                str = Replace(str, "@MPI_F77_UINT8_T@", F77_UINT8_T) 
     1886                        Case "@MPI_F77_UINT16_T@" 
     1887                                str = Replace(str, "@MPI_F77_UINT16_T@", F77_UINT16_T) 
     1888                        Case "@MPI_F77_UINT32_T@" 
     1889                                str = Replace(str, "@MPI_F77_UINT32_T@", F77_UINT32_T) 
     1890                        Case "@MPI_F77_UINT64_T@" 
     1891                                str = Replace(str, "@MPI_F77_UINT64_T@", F77_UINT64_T) 
     1892                        Case "@MPI_F77_C_BOOL@" 
     1893                                str = Replace(str, "@MPI_F77_C_BOOL@", F77_C_BOOL) 
     1894                        Case "@MPI_F77_C_FLOAT_COMPLEX@" 
     1895                                str = Replace(str, "@MPI_F77_C_FLOAT_COMPLEX@", F77_C_FLOAT_COMPLEX) 
     1896                        Case "@MPI_F77_C_COMPLEX@" 
     1897                                str = Replace(str, "@MPI_F77_C_COMPLEX@", F77_C_COMPLEX) 
     1898                        Case "@MPI_F77_C_DOUBLE_COMPLEX@" 
     1899                                str = Replace(str, "@MPI_F77_C_DOUBLE_COMPLEX@", F77_C_DOUBLE_COMPLEX) 
     1900                        Case "@MPI_F77_C_LONG_DOUBLE_COMPLEX@" 
     1901                                str = Replace(str, "@MPI_F77_C_LONG_DOUBLE_COMPLEX@", F77_C_LONG_DOUBLE_COMPLEX) 
     1902                        Case "@MPI_F77_AINT@" 
     1903                                str = Replace(str, "@MPI_F77_AINT@", F77_AINT) 
     1904                        Case "@MPI_F77_OFFSET@" 
     1905                                str = Replace(str, "@MPI_F77_OFFSET@", F77_OFFSET) 
    18611906                        Case "@MPI_STATUS_SIZE@" 
    18621907                                str = Replace(str, "@MPI_STATUS_SIZE@", "5")