| MPI_JOIN_PAGES(char* koFile, char* enFile, char* outFile) |
| koFileLineSize ← getFileLines(koFile) |
| MPI-Init |
| nRank ← process ID number within communicator |
| divLine ← the number of each process’s allocated lines |
| line ← move file pointer to the first of allocated lines |
| if nRank = 0 then |
| while true do |
| send (NULL, NULL, NULL, NULL, true) |
| to another processes |
| receive (title, koUrl, word, enUrl, isLast) |
| from another processes |
| out.Write(title, koUrl, word, enUrl) |
| if isLast(ALL) then break |
| else |
| for = 0 to divLine do |
| text ← enFile.nextLine(line + ) |
| title ← searchTitle(text) |
| content ← searchContent(text) |
| koUrl ← searchUrl(text) |
| wordListEngKeyword(content) |
| foreach word wordList do |
| if isExist(word, enFile) then |
| enUrl ← getUrl(word, enFile) |
| else |
| |
| send (title, koUrl, word, enUrl, isLast) |
| to another processes |
| receive (title, koUrl, word, enUrl, isLast) |
| from another processes |
| if isLast(ALL) then break |
| MPI-Finalize |
