Lines Matching refs:master
21 if(myrank.eq.master) inquire(file='xyzts.dat',exist=exts)
24 call MPI_BCAST(exts,1,MPI_INTEGER,master,MPI_COMM_WORLD,ierr)
48 if(myrank .eq. master) then
87 if(myrank.eq.master) then
96 call MPI_Bcast(ntspts, 1, MPI_INTEGER, master,
98 call MPI_Bcast(freq, 1, MPI_INTEGER, master,
100 call MPI_Bcast(tolpt, 1, MPI_DOUBLE_PRECISION, master,
102 call MPI_Bcast(iterat, 1, MPI_INTEGER, master,
104 call MPI_Bcast(nbuff, 1, MPI_INTEGER, master,
112 if(myrank .eq. master) then
122 & master, MPI_COMM_WORLD, ierr)
143 if (myrank .eq. master) then
211 & MPI_DOUBLE_PRECISION, MPI_SUM, master,
215 & MPI_INTEGER, MPI_SUM, master,
220 if (myrank.eq.master) then
234 if (myrank.eq.master) then
270 if (myrank.eq.master) then