# LaTeX2HTML 0.6.4 (Tues Aug 30 1994) # Associate image original text (scrambled) with physical files. $key = q/{}$!${}/; $cached_env_img{$key} =''; $key = q/{figure}[p]smallttnoindentdoublea[100][100];parnoindentintdisp[100],blocklen[100],i;parnoindentMPI_Datatypeupper;parnoindentldotsparnoindent*computestartandsizeofeachrow*parnoindentfor(i=0;i$;html_special_mark_lt;$100;++i){parnoindentdisp[i]=100*i+i;parnoindentblocklen[i]=100-i;parnoindent}parnoindent*createdatatypeforuppertriangularpart*parnoindentMPI_Type_indexed(100,blocklen,disp,MPI_DOUBLE,&upper);parnoindentMPI_Type_commit(&upper);parnoindent*..andsit*parnoindentMPI_S(a,1,upper,dest,tag,MPI_COMM_WORLD);parlabelfigB{figure}/; $cached_env_img{$key} =''; $key = q/{}$A_0${}/; $cached_env_img{$key} =''; $key = q/{figure}[p]smallttnoindentcharmsg[20];parnoindentintmyrank,tag=99;parnoindentMPI_Statusstatus;parnoindentldotsparnoindentMPI_Comm_rank(MPI_COMM_WORLD,&myrank);*findmyrank*parnoindentif(myrank==0){parnoindentstrcpy(msg,;html_special_mark_quot;Hellothere;html_special_mark_quot;);parnoindentMPI_S(msg,strlen(msg)+1,MPI_CHAR,1,tag,MPI_COMM_WORLD);parnoindent}else{parnoindentMPI_Recv(msg,20,MPI_CHAR,0,tag,MPI_COMM_WORLD,&status);parnoindent}parlabelfigA{figure}/; $cached_env_img{$key} =''; $key = q/{figure}[p]vboxto8trueinvfilspecialpsfile=coll-fig1.pslabelfigC{figure}/; $cached_env_img{$key} =''; 1;