А.С. Антонов - Параллельное программирование с использованием технологии MPI (1162620), страница 10

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 10)

I-c [ehd gZqbgZ_lky q_j_aDISPLS(I)[ZclkgZqZeZ[mn_jZihkuedb<ke_^mxs_fijbf_j_kha^Z_lkygh\uclbi^Zgguo newtypedhlhjucihke_j_]bkljZpbbfh`_l[ulvbkihevah\Zg^eyi_j_kuedbdZd_^bgh]hp_eh]hiylbwe_f_glh\ ^Zgguo dhlhju_ fh`gh ij_^klZ\blv ke_^mxsbf h[jZahf lbiwe_f_glZ^Zgguodhebq_kl\h[ZclhlgZqZeZ[mn_jZihkuedb{(MPI_DOUBLE_PRECISION, 0), (MPI_DOUBLE_PRECISION, 8),65(MPI_DOUBLE_PRECISION, 16), (MPI_CHARACTER, 24), (MPI_CHARACTER, 25)}blocklens(1) = 3blocklens(2) = 2types(1) = MPI_DOUBLE_PRECISIONtypes(2) = MPI_CHARACTERdispls(1) = 0displs(2) = 24call MPI_TYPE_STRUCT(2, blocklens, displs, types,&newtype, ierr)MPI_TYPE_COMMIT(DATATYPE, IERR)INTEGER DATATYPE, IERRJ_]bkljZpbykha^Zggh]hijhba\h^gh]hlbiZ^Zgguo DATATYPEIhke_j_]bkljZpbb wlhl lbi ^Zgguo fh`gh bkihevah\Zlv \ hi_jZpbyo h[f_gZ gZjZ\g_ kij_^hij_^_e_ggufblbiZfb^ZgguoIj_^hij_^_e_ggu_lbiu^Zgguoj_]bkljbjh\Zlvg_gm`ghMPI_TYPE_FREE(DATATYPE, IERR)INTEGER DATATYPE, IERR:ggmebjh\Zgb_ ijhba\h^gh]h lbiZ ^Zgguo DATATYPE IZjZf_lj DATATYPEmklZgZ\eb\Z_lky \ agZq_gb_ MPI_DATATYPE_NULL =ZjZglbjm_lky qlh ex[hcgZqZluc h[f_g bkihevamxsbc ^Zggu_ Zggmebjm_fh]h lbiZ [m^_lghjfZevgh aZ\_jr_g Ijb wlhf ijhba\h^gu_ hl DATATYPE lbiu ^ZgguohklZxlky b fh]ml bkihevah\Zlvky ^Zevr_ Ij_^hij_^_e_ggu_ lbiu ^Zgguog_fh]ml[ulvZggmebjh\ZguMPI_TYPE_SIZE(DATATYPE, SIZE, IERR)INTEGER DATATYPE, SIZE, IERRHij_^_e_gb_jZaf_jZ SIZElbiZ^Zgguo DATATYPE\[ZclZoh[t_fZiZfylbaZgbfZ_fh]hh^gbfwe_f_glhf^Zggh]hlbiZMPI_ADDRESS(LOCATION, ADDRESS, IERR)<type> LOCATION(*)INTEGER ADDRESS, IERRHij_^_e_gb_ Z[khexlgh]h [Zcl-Z^j_kZ ADDRESS jZaf_s_gby fZkkb\ZLOCATION \ hi_jZlb\ghc iZfylb dhfivxl_jZ :^j_k hlkqblu\Z_lky hl [Zah\h]h Z^j_kZ agZq_gb_ dhlhjh]h kh^_j`blky \ kbkl_fghc dhgklZgl_MPI_BOTTOM Ijhp_^mjZ iha\hey_l hij_^_eylv Z[khexlgu_ Z^j_kZ h[t_dlh\dZd \ yaud_ NhjljZg lZd b \ Kb ohly \ Kb ^ey wlh]h ij_^mkfhlj_gu bgu_kj_^kl\Z<yaud_KbiZjZf_ljADDRESSbf__llbiMPI_Aint.<ke_^mxs_fijbf_j_hibku\Z_lkygh\uclbi^Zgguonewtypedhlhjucihke_ j_]bkljZpbb bkihevam_lky ^ey i_j_kuedbdZd_^bgh]hp_eh]h^\mowe_f_glh\^Zgguolbih\ double precisionb character(1)<dZq_kl\_Z^j_kZ[mn_jZihkuedbbkihevam_lky[Zah\ucZ^j_k MPI_BOTTOMZ^eyhij_^_e_gbykf_s_gbc we_f_glh\ ^Zgguo dat1 b dat2 bkihevamxlky \uah\u ijhp_^mju66MPI_ADDRESSI_j_^i_j_kuedhcgh\uclbij_]bkljbjm_lkyijbihfhsb\uah\Zijhp_^mju MPI_TYPE_COMMITAZf_lbfqlhi_j_kueZ_lkyh^bgwe_f_gl^Zgguo ijhba\h^gh]h lbiZ ohly hg b khklhbl ba ^\mo jZaghlbiguowe_f_glh\blocklens(1) = 1blocklens(2) = 1types(1) = MPI_DOUBLE_PRECISIONtypes(2) = MPI_CHARACTERcall MPI_ADDRESS(dat1, address(1), ierr)displs(1) = address(1)call MPI_ADDRESS(dat2, address(2), ierr)displs(2) = address(2)call MPI_TYPE_STRUCT(2, blocklens, displs, types,&newtype, ierr)call MPI_TYPE_COMMIT(newtype, ierr)call MPI_SEND(MPI_BOTTOM, 1, newtype, dest, tag,&MPI_COMM_WORLD, ierr)MPI_TYPE_LB(DATATYPE, DISPL, IERR)INTEGER DATATYPE, DISPL, IERRHij_^_e_gb_kf_s_gby DISPL\[ZclZogb`g_c]jZgbpuwe_f_glZlbiZ^ZgguoDATATYPEhlgZqZeZ[mn_jZ^ZgguoMPI_TYPE_UB(DATATYPE, DISPL, IERR)INTEGER DATATYPE, DISPL, IERRHij_^_e_gb_kf_s_gby DISPL\[ZclZo\_jog_c]jZgbpuwe_f_glZlbiZ^ZgguoDATATYPEhlgZqZeZ[mn_jZ^ZgguoMPI_TYPE_EXTENT(DATATYPE, EXTENT, IERR)INTEGER DATATYPE, EXTENT, IERRHij_^_e_gb_ ^bZiZahgZ EXTENT jZagbpu f_`^m \_jog_c b gb`g_c ]jZgbpZfbwe_f_glZ^Zggh]hlbiZlbiZ^ZgguoDATATYPE\[ZclZo< ke_^mxs_f ijbf_j_ ijhba\h^guc lbi ^Zgguo bkihevam_lky ^ey i_j_klZgh\dbklhe[ph\fZljbpu\h[jZlghfihjy^d_Lbi^Zgguo matr_revkha^Z\Z_fucijhp_^mjhc MPI_TYPE_VECTORhibku\Z_lehdZevgmxqZklvfZljbpu^Zggh]hijhp_kkZ\i_j_klZ\e_ggufb\h[jZlghfihjy^d_klhe[pZfbIhke_j_]bkljZpbb wlhl lbi ^Zgguo fh`_l bkihevah\Zlvky ijb i_j_kued_Ijh]jZffZ jZ[hlZ_l ijZ\bevgh _keb jZaf_j fZljbpu N ^_eblky gZp_eh gZqbkehijhp_kkh\ijbeh`_gby67program example19include 'mpif.h'integer ierr, rank, size, N, nlparameter (N = 8)double precision a(N, N), b(N, N)call MPI_INIT(ierr)call MPI_COMM_SIZE(MPI_COMM_WORLD, size, ierr)call MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierr)nl = (N-1)/size+1call work(a, b, N, nl, size, rank)call MPI_FINALIZE(ierr)endsubroutine work(a, b, n, nl, size, rank)include 'mpif.h'integer ierr, rank, size, n, nl, ii, matr_revdouble precision a(n, nl), b(n, nl)integer i, j, status(MPI_STATUS_SIZE)do j = 1, nldo i = 1, nb(i,j) = 0.d0ii = j+rank*nla(i,j) = 100*ii+ienddoenddocall MPI_TYPE_VECTOR(nl, n, -n, MPI_DOUBLE_PRECISION,&matr_rev, ierr)call MPI_TYPE_COMMIT(matr_rev, ierr)call MPI_SENDRECV(a(1, nl), 1, MATR_REV, size-rank-1, 1,&b, nl*n, MPI_DOUBLE_PRECISION,&size-rank-1, 1, MPI_COMM_WORLD,&status, ierr)do j = 1, nldo i = 1, nprint *, 'process ', rank, ': ',&j+rank*nl, ' ', i, a(i,j), ' ', b(i,j)enddoenddoendMiZdh\dZ^Zgguo>eyi_j_kuehdjZaghjh^guo^ZgguogZjy^mkkha^Zgb_fijhba\h^guolbih\fh`ghbkihevah\Zlvhi_jZpbbmiZdh\dbbjZkiZdh\db^ZgguoJZaghjh^gu_bebjZkiheh`_ggu_g_\ihke_^h\Zl_evguoyq_cdZoiZfylb^Zggu_ihf_sZxlky\h^bgg_ij_ju\guc[mn_ji_j_kueZ_lkyZihlhfihemq_ggh_khh[s_gb_kgh\ZjZkij_^_ey_lkyihgm`gufyq_cdZfiZfylb68MPI_PACK(INBUF, INCOUNT, DATATYPE, OUTBUF, OUTSIZE, POSITION,COMM, IERR)<type> INBUF(*), OUTBUF(*)INTEGER INCOUNT, DATATYPE, OUTSIZE, POSITION, COMM, IERRMiZdh\dZ INCOUNT we_f_glh\ lbiZ DATATYPE ba fZkkb\Z INBUF \ fZkkb\OUTBUFkhk^\b]hf POSITION[ZclhlgZqZeZfZkkb\Z;mn_j OUTBUF^he`_gkh^_j`ZlvihdjZcg_cf_j_ OUTSIZE[ZclIhke_\uiheg_gbyijhp_^mjuiZjZf_lj POSITIONm\_ebqb\Z_lkygZqbkeh[ZcljZ\gh_jZaf_jmaZibkbIZjZf_lj COMMmdZau\Z_lgZdhffmgbdZlhj\dhlhjhf\^Zevg_cr_f[m^_li_j_-kueZlvkykhh[s_gb_>eyi_j_kuedbmiZdh\Zgguo^Zgguobkihevam_lkylbi^ZgguoMPI_PACKED.MPI_UNPACK(INBUF, INSIZE, POSITION, OUTBUF, OUTCOUNT, DATATYPE,COMM, IERR)<type> INBUF(*), OUTBUF(*)INTEGER INSIZE, POSITION, OUTCOUNT, DATATYPE, COMM, IERRJZkiZdh\dZ OUTCOUNTwe_f_glh\lbiZ DATATYPEbafZkkb\Z INBUFkhk^\b]hfPOSITION [Zcl hl gZqZeZ fZkkb\Z \ fZkkb\ OUTBUF FZkkb\ INBUF bf__ljZaf_jg_f_g__INSIZE[ZclMPI_PACK_SIZE(INCOUNT, DATATYPE, COMM, SIZE, IERR)INTEGER INCOUNT, DATATYPE, COMM, SIZE, IERRHij_^_e_gb_ g_h[oh^bfh]h h[t_fZ iZfylb SIZE \ [ZclZo ^ey miZdh\dbINCOUNT we_f_glh\ lbiZ DATATYPE G_h[oh^bfuc ^ey miZdh\db jZaf_j fh-`_lij_\urZlvkmffmjZaf_jh\iZdm_fuowe_f_glh\^Zgguo< ke_^mxs_f ijbf_j_ fZkkb\ bufbkihevam_lky\dZq_kl\_[mn_jZ^eymiZdh\db 10 we_f_glh\ fZkkb\Z a lbiZ real b 10 we_f_glh\ fZkkb\Z b lbiZcharacter Ihemq_ggh_ khh[s_gb_ i_j_kueZ_lky ijhp_^mjhc MPI_BCAST hlijhp_kkZ 0\k_fhklZevgufijhp_kkZfihemq_ggh_khh[s_gb_jZkiZdh\u\Z_lkyijbihfhsb\uah\h\ijhp_^mjMPI_UNPACK.program example20include 'mpif.h'integer ierr, rank, positionreal a(10)character b(10), buf(100)call MPI_INIT(ierr)call MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierr)do i = 1, 10a(i) = rank + 1.0if(rank .eq.

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_lgZy‹I_qZlvjbahMkei_qeMq-ba^eLbjZ`wdaAZdZa‹Hj^_gZAgZdIhq_lZBa^Zl_evkl\hFhkdh\kdh]hmgb\_jkbl_lZFhkd\Zme;GbdblkdZyMqZklhdhi_jZlb\ghci_qZlbGB<PF=M=KI-Fhkd\ZGB<PF=M72.

Характеристики

Список файлов книги