File: /nfs/home/0/users/jenkins/mfix.git/model/dmp_modules/mpi_donothing/parallel_mpi_mod.f

1     module parallel_mpi
2     
3       !       A module to carry out init, finalize and check for any parallel errors
4     
5       use geometry
6       use compar
7       implicit none
8     
9     contains
10     
11       subroutine parallel_init()
12         numPEs = 1
13         myPE = 0
14     
15         return
16       end subroutine parallel_init
17     
18       subroutine parallel_fin()
19     
20         return
21       end subroutine parallel_fin
22     
23       subroutine MPI_Check( msg, ierr )
24         character(len=*),intent(in) :: msg
25         integer, intent(in) :: ierr
26     
27         return
28       end subroutine MPI_Check
29     
30     
31     end module parallel_mpi
32