MPICH2MPICH2 for Microsoft Windows

/*
   （C） 2001 by Argonne National Laboratory.
       See COPYRIGHT in top-level directory.
*/
#include “mpi.h“
#include “mpe.h“
#include 
#include 

double f（ double ）;
double f（ double a ）
{
    return （4.0 / （1.0 + a*a））;
}

int main（ int argc char *argv[] ）
{
    int  n myid numprocs ii jj;
    double PI25DT = 3.141592653589793238462643;
    double mypi pi h sum x;
    double startwtime = 0.0 endwtime;
    int namelen; 
    int event1a event1b event2a event2b
        event3a event3b event4a event4b;
    int event1 event2 event3;
    char processor_name[ MPI_MAX_PROCESSOR_NAME ];

    MPI_Init（ &argc &argv ）;
        
        MPI_Pcontrol（ 0 ）;

    MPI_Comm_size（ MPI_COMM_WORLD &numprocs ）;
    MPI_Comm_rank（ MPI_COMM_WORLD &myid ）;

    MPI_Get_processor_name（ processor_name &namelen ）;
    fprintf（ stderr “Process %d running on %s
“ myid processor_name ）;

    /*
        MPE_Init_log（） & MPE_Finish_log（） are NOT needed when
        liblmpe.a is linked with this program.  In that case
        MPI_Init（） would have called MPE_Init_log（） already.
    */
#if defined（ NO_MPI_LOGGING ）
    MPE_Init_log（）;
#endif

    /*
        user should NOT assign eventIDs directly in MPE_Describe_state（）
        Get the eventIDs for user-defined STATES（rectangles） from
        MPE_Log_get_state_eventIDs（） instead of the deprecated function
        MPE_Log_get_event_number（）.
    */
    MPE_Log_get_state_eventIDs（ &event1a &event1b ）;
    MPE_Log_get_state_eventIDs（ &event2a &event2b ）;
    MPE_Log_get_state_eventIDs（ &event3a &event3b ）;
    MPE_Log_get_state_eventIDs（ &event4a &event4b ）;

    if （ myid == 0 ） {
        MPE_Describe_state（ event1a event1b “Broadcast“ “red“ ）;
        MPE_Describe_state（ event2a event2b “Sync“ “orange“ ）;
        MPE_Describe_state（ event3a event3b “Compute“ “blue“ ）;
        MPE_Describe_state（ event4a event4b “Reduce“ “green“ ）;
    }

    /* Get event ID for Solo-Event（single timestamp object） from MPE */
    MPE_Log_get_solo_eventID（ &event1 ）;
    MPE_Log_get_solo_eventID（ &event2 ）;
    MPE_Log_get_solo_eventID（ &event3 ）;

    if （ myid == 0 ） {
       MPE_Describe_event（ event1 “Broadcast Post“ “white“ ）;
       MPE_Describe_event（ event2 “Compute Start“ “purple“ ）;
       MPE_Describe_event（ event3 “Compute End“ “navy“ ）;
    }

    if （ myid == 0 ） {
        n = 1000000;
        startwtime = MPI_Wtime（）;
    }
    MPI_Barrier（ MPI_COMM_WORLD ）;

    MPI_Pcontrol（ 1 ）;
    /*
    MPE_Start_log（）;
    */

    for （ jj = 0; jj < 5; jj++ ） {
        MPE_Log_event（ event1a 0 NULL ）;
        MPI_Bcast（ &n 1 MPI_INT 0 MPI_COMM_WORLD ）;
        MPE_Log_event（ event1b 0 NULL ）;

        MPE_Log_event（ event1 0 NULL ）;
    
        MPE_Log_event（ event2a 0 NULL ）;
        MPI_Barrier（ MPI_COMM_WORLD ）;
        MPE_Log_event（ event2b 0 NULL ）;

        MPE_Log_event（ event2 0 NULL ）;
        MPE_Log_event（ event3a 0 NULL ）;
        h   = 1.0 /

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件     183747  2011-06-29 15:38  mpich2安装inclog2TOslog2.jar

     文件      94208  2011-09-01 16:01  mpich2安装inirlog2rlog.exe

     文件    2449314  2011-06-29 15:38  mpich2安装injumpshot.jar

     文件       7140  2011-06-29 15:38  mpich2安装injumpshot_launcher.jar

     文件     491520  2011-09-01 15:25  mpich2安装inmpiexec.exe

     文件     483328  2011-09-01 15:25  mpich2安装insmpd.exe

     文件     106496  2011-09-01 16:01  mpich2安装inTraceInput.dll

     文件     124160  2011-06-29 15:38  mpich2安装in raceTOslog2.jar

     文件      57344  2011-09-01 15:25  mpich2安装inwmpiconfig.exe

     文件      65536  2011-09-01 15:25  mpich2安装inwmpiexec.exe

     文件      24576  2011-09-01 15:25  mpich2安装inwmpiregister.exe

     文件       8076  2009-02-27 16:23  mpich2安装COPYRIGHT.rtf

     文件      86016  2011-09-01 16:02  mpich2安装examplescpi.exe

     文件       7948  2010-07-02 14:38  mpich2安装examplescpi.vcproj

     文件       3904  2007-11-02 17:50  mpich2安装examplescpilog.c

     文件       1497  2007-11-02 17:50  mpich2安装examplescxxpi.cxx

     文件       8001  2010-07-02 14:38  mpich2安装examplescxxpi.vcproj

     文件       2709  2010-07-02 14:38  mpich2安装examplesexamples.sln

     文件       2422  2007-11-02 17:50  mpich2安装examplesfpi.f

     文件       4769  2010-07-02 14:38  mpich2安装examplesfpi.vfproj

     文件       5063  2007-12-04 17:53  mpich2安装examplesfpilog.f

     文件       1892  2007-11-02 17:50  mpich2安装examplesicpi.c

     文件       4857  2009-11-17 21:46  mpich2安装includeclog_commset.h

     文件        696  2007-11-02 17:50  mpich2安装includeclog_const.h

     文件        731  2011-09-01 14:59  mpich2安装includeclog_inttypes.h

     文件       1353  2009-11-17 21:46  mpich2安装includeclog_uuid.h

     文件        355  2010-10-21 13:20  mpich2安装includempe.h

     文件      11102  2009-11-17 21:46  mpich2安装includempe_log.h

     文件       1833  2007-11-02 17:50  mpich2安装includempe_logf.h

     文件       1322  2009-11-17 21:46  mpich2安装includempe_misc.h

............此处省略31个文件信息