/*
???（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\n“?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?????????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安裝\bin\clog2TOslog2.jar

?????文件??????94208??2011-09-01?16:01??mpich2安裝\bin\irlog2rlog.exe

?????文件????2449314??2011-06-29?15:38??mpich2安裝\bin\jumpshot.jar

?????文件???????7140??2011-06-29?15:38??mpich2安裝\bin\jumpshot_launcher.jar

?????文件?????491520??2011-09-01?15:25??mpich2安裝\bin\mpiexec.exe

?????文件?????483328??2011-09-01?15:25??mpich2安裝\bin\smpd.exe

?????文件?????106496??2011-09-01?16:01??mpich2安裝\bin\TraceInput.dll

?????文件?????124160??2011-06-29?15:38??mpich2安裝\bin\traceTOslog2.jar

?????文件??????57344??2011-09-01?15:25??mpich2安裝\bin\wmpiconfig.exe

?????文件??????65536??2011-09-01?15:25??mpich2安裝\bin\wmpiexec.exe

?????文件??????24576??2011-09-01?15:25??mpich2安裝\bin\wmpiregister.exe

?????文件???????8076??2009-02-27?16:23??mpich2安裝\COPYRIGHT.rtf

?????文件??????86016??2011-09-01?16:02??mpich2安裝\examples\cpi.exe

?????文件???????7948??2010-07-02?14:38??mpich2安裝\examples\cpi.vcproj

?????文件???????3904??2007-11-02?17:50??mpich2安裝\examples\cpilog.c

?????文件???????1497??2007-11-02?17:50??mpich2安裝\examples\cxxpi.cxx

?????文件???????8001??2010-07-02?14:38??mpich2安裝\examples\cxxpi.vcproj

?????文件???????2709??2010-07-02?14:38??mpich2安裝\examples\examples.sln

?????文件???????2422??2007-11-02?17:50??mpich2安裝\examples\fpi.f

?????文件???????4769??2010-07-02?14:38??mpich2安裝\examples\fpi.vfproj

?????文件???????5063??2007-12-04?17:53??mpich2安裝\examples\fpilog.f

?????文件???????1892??2007-11-02?17:50??mpich2安裝\examples\icpi.c

?????文件???????4857??2009-11-17?21:46??mpich2安裝\include\clog_commset.h

?????文件????????696??2007-11-02?17:50??mpich2安裝\include\clog_const.h

?????文件????????731??2011-09-01?14:59??mpich2安裝\include\clog_inttypes.h

?????文件???????1353??2009-11-17?21:46??mpich2安裝\include\clog_uuid.h

?????文件????????355??2010-10-21?13:20??mpich2安裝\include\mpe.h

?????文件??????11102??2009-11-17?21:46??mpich2安裝\include\mpe_log.h

?????文件???????1833??2007-11-02?17:50??mpich2安裝\include\mpe_logf.h

?????文件???????1322??2009-11-17?21:46??mpich2安裝\include\mpe_misc.h

............此處省略31個文件信息