Параллельное программирование с использованием MPI. Антонов (2004) (1186029), страница 11
Текст из файла (страница 11)
0) thenb(i) = 'a'elseb(i) = 'b'end ifend doposition=069if(rank .eq. 0) thencall MPI_PACK(a, 10, MPI_REAL, buf, 100, position,&MPI_COMM_WORLD, ierr)call MPI_PACK(b, 10, MPI_CHARACTER, buf, 100, position,&MPI_COMM_WORLD, ierr)call MPI_BCAST(buf, 100, MPI_PACKED, 0,&MPI_COMM_WORLD, ierr)elsecall MPI_BCAST(buf, 100, MPI_PACKED, 0,&MPI_COMM_WORLD, ierr)position=0call MPI_UNPACK(buf, 100, position, a, 10, MPI_REAL,&MPI_COMM_WORLD, ierr)call MPI_UNPACK(buf, 100, position, b, 10,&MPI_CHARACTER, MPI_COMM_WORLD, ierr)end ifprint *, 'procecc ', rank, ' a=', a, ' b=', bcall MPI_FINALIZE(ierr)endAZ^Zgby• Kha^Zlv ijhba\h^guc lbi ^Zgguo ^ey i_j_kuehd ^bZ]hgZevghc fZljbpu• DZdkhhlghkylkyagZq_gby\ha\jZsZ_fu_ijhp_^mjZfbMPI_TYPE_SIZEbMPI_TYPE_EXTENT?• Fh`ghebbkihevah\Zlvijhba\h^gu_lbiu^Zgguo[_a\uah\Zijhp_^mjuMPI_TYPE_COMMIT?• I_j_keZlv gme_\hfm ijhp_kkm hl \k_o ijhp_kkh\ ijbeh`_gby kljmdlmjmkhklhysmxbajZg]Zijhp_kkZbgZa\ZgbymaeZgZdhlhjhf^Zggucijhp_kk aZims_g ihemq_ggh]h k ihfhsvx ijhp_^mjuMPI_GET_PROCESSOR_NAME).• Ijyfhm]hevgZy fZljbpZ jZkij_^_e_gZ ih ijhp_kkZf ih kljhdZfI_j_klZ\blvkljhdbfZljbpu\h[jZlghfihjy^d_bkihevamy^eyi_j_kuehdijhba\h^guclbi^Zgguo• K^_eZlv ij_^u^msmx aZ^Zqm k bkihevah\Zgb_f i_j_kuehd miZdh\Zgguo^Zgguo• <q_fij_bfms_kl\Zbg_^hklZldbbkihevah\Zgbyi_j_kuehdmiZdh\Zgguo^ZgguoihkjZ\g_gbxki_j_kuedZfb^Zgguoijhba\h^guolbih\"• GZibkZlv ijh]jZffm ljZgkihgbjh\Zgby fZljbpu k bkihevah\Zgb_fijhba\h^guolbih\^Zgguo70Ebl_jZlmjZ1.
MPI: A Message-Passing Interface Standard (Version 1.1)(http://parallel.ru/docs/Parallel/mpi1.1/mpi-report.html)2. <h_\h^bg<<<h_\h^bg<e<IZjZee_evgu_\uqbke_gbyKI[;O<-I_l_j[mj]3. :glhgh\:K<\_^_gb_\iZjZee_evgu_\uqbke_gbyf_lh^bq_kdh_ihkh[b_FBa^-\hNbabq_kdh]hnZdmevl_lZF=M4. ;mdZlh\::>Zpxd<G@_]meh:BIjh]jZffbjh\Zgb_fgh]hijhp_kkhjguo\uqbkebl_evguokbkl_fJhklh\-gZ->hgmBa^Zl_evkl\hHHHP<<J5. RiZdh\kdbc=BK_jbdh\ZG<Ijh]jZffbjh\Zgb_^eyfgh]hijhp_kkhjguokbkl_f\klZg^Zjl_03,Ihkh[b_Fbgkd;=M2002.6.
G_fgx]bgK:Kl_kbdHEIZjZee_evgh_ijh]jZffbjh\Zgb_^eyfgh]hijhp_kkhjguo\uqbkebl_evguokbkl_fKI[;O<-I_l_j[mj]2002.7. Dhjg__\<>IZjZee_evgh_ijh]jZffbjh\Zgb_\03,Gh\hkb[bjkdBa^-\hKHJ:G71Mq_[gh_ba^Zgb_:glhgh\:e_dkZg^jK_j]__\bqI:J:EE?EVGH?IJH=J:FFBJH<:GB?KBKIHEVAH<:GB?FL?OGHEH=BBMPIIh^ibkZgh\i_qZlvNhjfZlo;mfZ]Zhnk_lgZyI_qZlvjbahMkei_qeMq-ba^eLbjZ`wdaAZdZaHj^_gZAgZdIhq_lZBa^Zl_evkl\hFhkdh\kdh]hmgb\_jkbl_lZFhkd\Zme;GbdblkdZyMqZklhdhi_jZlb\ghci_qZlbGB<PF=M=KI-Fhkd\ZGB<PF=M72.