В.Д. Корнеев - Параллельное программирование в MPI (1162616), страница 51
Текст из файла (страница 51)
Упорядочивание мнозееетв 209 ( г=0; МТМ = ММОЗГОД; МР1 Яепбгесч(йМ?М, 1, МР? ТМТ, безсш, 12, йКВ, 1, МР1 ТМТ, вопгЬ, 12, сошш сагс, йвъ) 11(МуР ~= зйге-1) ( 11( мм01(м-13 > ВВ ) ( МАХ = ММОЗГМ-1Л; Чвсач(1, ВВ), г= 1; ) е1зе МАХ = ВВ, МР1 Яепбгесч(йМАХ, 1, МР1 1МТ, безсЬ, 12, йВМ, 1, МР1 1МТ, зонги, 12, сошш сагс, йвс), 11(МуР юм О) ( тт( Ммоо(1] < ВМ ) ( Чзсач(0, ВМ), г=1, ) е1зе ММО)~01 = КМ; МР1 А11гебпсе(йг, йН, 1, МР1 1ИТ, МР1 ЯОМ, сошш сагС); иЬ11е(Н > О); /в Все ветви засекают время и печатают в/ яессгшеоыау(йсч2, (втгисс сгшегопев)0); бп1 = (сч2 сч зес — сч1 сч вес) в 1000000 + сч2.сч пиес — сч1 сч изес, рггу|("Мур = /б Т1ше = Хб~п", Мур, бп1); /в Все ветви печатают, лля контроля, значения своих частей множества «/ рг1пс~(чМур = /б '/б — /б~п", Мур, ММОЛС01, ММОЗЕМ-1Л); /* Все остальные ветви в области связи соков сагс будут стоять, в пока ветвь 1 не выведет сообшение в/ МР1 Вагггег(МР1 СОИМ ИОЙБО); /* Без точки синхронизапии может оказаться, что олна из ветвей в вызовет ргтпст() раньше, чем успеет отработать рг1псг() « предыпушей ветви, и выпача на экран будет хаотичной.
в/ /» Все ветви завершают выполнение в/ МР1 Р1па1гге(); геспгп(0); .