2 c---------------------------------------------------------------------
3 c---------------------------------------------------------------------
5 subroutine exchange_6(g,jbeg,jfin1)
7 c---------------------------------------------------------------------
8 c---------------------------------------------------------------------
10 c---------------------------------------------------------------------
11 c compute the right hand side based on exact solution
12 c---------------------------------------------------------------------
19 c---------------------------------------------------------------------
21 c---------------------------------------------------------------------
22 double precision g(0:isiz2+1,0:isiz3+1)
25 c---------------------------------------------------------------------
27 c---------------------------------------------------------------------
29 double precision dum(1024)
32 integer STATUS(MPI_STATUS_SIZE)
37 c---------------------------------------------------------------------
38 c communicate in the east and west directions
39 c---------------------------------------------------------------------
41 c---------------------------------------------------------------------
43 c---------------------------------------------------------------------
54 call MPI_WAIT( msgid3, STATUS, IERROR )
62 c---------------------------------------------------------------------
64 c---------------------------------------------------------------------