Lines Matching refs:itask
35 do itask = 1,numtask
106 & MPI_DOUBLE_PRECISION, sevsegtype(itask,1), ierr)
113 call MPI_TYPE_HVECTOR(nsd, 1, lstride, sevsegtype(itask,1),
114 & sevsegtype(itask,2), ierr)
116 call MPI_TYPE_HVECTOR(ndof, 1, lstride, sevsegtype(itask,1),
117 & sevsegtype(itask,3), ierr)
120 & sevsegtype(itask,1),sevsegtype(itask,4), ierr)
122 & sevsegtype(itask,1),sevsegtype(itask,5), ierr)
123 call MPI_TYPE_HVECTOR(nflow,1,lstride,sevsegtype(itask,1),
124 & sevsegtype(itask,6), ierr)
125 call MPI_TYPE_HVECTOR(24,1,lstride,sevsegtype(itask,1),
126 & sevsegtype(itask,7), ierr)
127 call MPI_TYPE_HVECTOR(9,1,lstride,sevsegtype(itask,1),
128 & sevsegtype(itask,8), ierr)
129 call MPI_TYPE_HVECTOR(11,1,lstride,sevsegtype(itask,1),
130 & sevsegtype(itask,9), ierr)
131 call MPI_TYPE_HVECTOR(7,1,lstride,sevsegtype(itask,1),
132 & sevsegtype(itask,10), ierr)
135 call MPI_TYPE_HVECTOR(13,1,lstride,sevsegtype(itask,1),
136 & sevsegtype(itask,11), ierr)
139 call MPI_TYPE_HVECTOR(17,1,lstride,sevsegtype(itask,1),
140 & sevsegtype(itask,12), ierr)
141 call MPI_TYPE_HVECTOR(16,1,lstride,sevsegtype(itask,1),
142 & sevsegtype(itask,13), ierr)
143 call MPI_TYPE_HVECTOR(10,1,lstride,sevsegtype(itask,1),
144 & sevsegtype(itask,14), ierr)
145 call MPI_TYPE_HVECTOR(nflow*nsd,1,lstride,sevsegtype(itask,1),
146 & sevsegtype(itask,15), ierr)
153 call MPI_TYPE_COMMIT (sevsegtype(itask,kdof), ierr)