File: /nfs/home/0/users/jenkins/mfix.git/model/des/mpi_donothing/desmpi_wrapper_mod.f

1     !------------------------------------------------------------------------
2     ! Module           : desmpi_wrapper
3     ! Purpose          : Contains wrapper class for mpi communications- send,recv
4     !                    and scatter, gather
5     ! Author           : Pradeep.G
6     !------------------------------------------------------------------------
7           module desmpi_wrapper
8           use parallel_mpi
9           use mpi_utility
10           use compar
11     
12           interface des_mpi_irecv
13           module procedure des_mpi_irecv_db
14           end interface
15           interface des_mpi_isend
16           module procedure des_mpi_isend_db
17           end interface
18           interface des_mpi_scatterv
19           module procedure des_mpi_scatterv_i,des_mpi_scatterv_db
20           end interface
21           interface des_mpi_gatherv
22           module procedure des_mpi_gatherv_i,des_mpi_gatherv_db
23           end interface
24           contains
25     
26     !------------------------------------------------------------------------
27     ! Subroutine       : des_mpi_barrier
28     ! Purpose          : Wrapper class for barrier
29     !
30     !------------------------------------------------------------------------
31           subroutine des_mpi_barrier
32           implicit none
33     ! local variables
34           character(len=80), parameter :: name = 'des_mpi_barrier'
35           return
36           end subroutine
37     
38     !------------------------------------------------------------------------
39     ! Subroutine       : des_mpi_irecv_db
40     ! Purpose          : Wrapper class for mpi_irecv
41     !------------------------------------------------------------------------
42           subroutine des_mpi_irecv_db(precvbuf,precvcnt,ptoproc,ptag,preq,perr)
43           implicit none
44     ! dummy variables
45           double precision, dimension(:) :: precvbuf
46           integer :: precvcnt,ptoproc,ptag,preq,perr
47           return
48           end subroutine
49     
50     !------------------------------------------------------------------------
51     ! Subroutine       : des_mpi_isend_db
52     ! Purpose          : Wrapper class for mpi_isend
53     !------------------------------------------------------------------------
54           subroutine des_mpi_isend_db(psendbuf,psendcnt,ptoproc,ptag,preq,perr)
55           implicit none
56     ! dummy variables
57           double precision, dimension(:) :: psendbuf
58           integer :: psendcnt,ptoproc,ptag,preq,perr
59           return
60           end subroutine
61     
62     !------------------------------------------------------------------------
63     ! Subroutine       : des_mpi_wait
64     ! Purpose          : Wrapper class for mpi_wait
65     !------------------------------------------------------------------------
66           subroutine des_mpi_wait(preq,perr)
67           implicit none
68     ! dummy variables
69           integer :: preq,perr
70           return
71           end subroutine
72     
73     
74     !------------------------------------------------------------------------
75     ! Subroutine       : des_mpi_scatterv_db
76     ! Purpose          : Wrapper class for mpi_scatterv
77     !------------------------------------------------------------------------
78           subroutine des_mpi_scatterv_db(prootbuf,pscattercnts,pdispls, &
79                                pprocbuf,precvcnt,proot,perr )
80           implicit none
81     ! dummy variables
82           double precision, dimension(:):: prootbuf,pprocbuf
83           integer, dimension (:) :: pdispls,pscattercnts
84           integer :: precvcnt,proot,perr
85     
86           pprocbuf = prootbuf
87           return
88           end subroutine
89     !------------------------------------------------------------------------
90     ! Subroutine       : des_mpi_scatterv_i
91     ! Purpose          : Wrapper class for mpi_scatterv
92     !------------------------------------------------------------------------
93           subroutine des_mpi_scatterv_i(prootbuf,pscattercnts,pdispls, &
94                                pprocbuf, precvcnt,proot,perr )
95           implicit none
96     ! dummy variables
97           integer, dimension(:) :: prootbuf,pprocbuf
98           integer, dimension (:) :: pdispls,pscattercnts
99           integer :: precvcnt,proot,perr
100     
101           pprocbuf = prootbuf
102           return
103           end subroutine
104     !------------------------------------------------------------------------
105     ! Subroutine       : des_mpi_gatherv_db
106     ! Purpose          : Wrapper class for mpi_gatherv
107     !------------------------------------------------------------------------
108           subroutine des_mpi_gatherv_db(psendbuf,psendcnt,precvbuf, &
109                                         precvcnts, pdispls,proot,perr )
110           implicit none
111     ! dummy variables
112           double precision, dimension(:) :: psendbuf,precvbuf
113           integer, dimension (:) :: pdispls,precvcnts
114           integer :: psendcnt,proot,perr
115           precvbuf = psendbuf
116           return
117           end subroutine
118     !------------------------------------------------------------------------
119     ! Subroutine       : des_mpi_gatherv_i
120     ! Purpose          : Wrapper class for mpi_gatherv
121     !------------------------------------------------------------------------
122           subroutine des_mpi_gatherv_i(psendbuf,psendcnt,precvbuf, &
123                                         precvcnts, pdispls,proot,perr )
124           implicit none
125     ! dummy variables
126           integer, dimension(:) :: psendbuf,precvbuf
127           integer, dimension (:) :: pdispls,precvcnts
128           integer :: psendcnt,proot,perr
129     
130           precvbuf = psendbuf
131           return
132           end subroutine
133     !------------------------------------------------------------------------
134     ! Subroutine       : des_mpi_stop
135     ! Purpose          : Wrapper class for mpi_abort
136     !------------------------------------------------------------------------
137           subroutine des_mpi_stop
138           implicit none
139           stop
140           end subroutine
141     
142           end module
143