Lines Matching refs:itask
33 do itask = 1,numtask
104 & MPI_LONG_LONG_INT, sevsegtype(itask,16), ierr)
107 & MPI_DOUBLE_PRECISION, sevsegtype(itask,1), ierr)
114 call MPI_TYPE_HVECTOR(nsd, 1, lstride, sevsegtype(itask,1),
115 & sevsegtype(itask,2), ierr)
117 call MPI_TYPE_HVECTOR(ndof, 1, lstride, sevsegtype(itask,1),
118 & sevsegtype(itask,3), ierr)
121 & sevsegtype(itask,1),sevsegtype(itask,4), ierr)
123 & sevsegtype(itask,1),sevsegtype(itask,5), ierr)
124 call MPI_TYPE_HVECTOR(nflow,1,lstride,sevsegtype(itask,1),
125 & sevsegtype(itask,6), ierr)
126 call MPI_TYPE_HVECTOR(24,1,lstride,sevsegtype(itask,1),
127 & sevsegtype(itask,7), ierr)
128 call MPI_TYPE_HVECTOR(9,1,lstride,sevsegtype(itask,1),
129 & sevsegtype(itask,8), ierr)
130 call MPI_TYPE_HVECTOR(11,1,lstride,sevsegtype(itask,1),
131 & sevsegtype(itask,9), ierr)
132 call MPI_TYPE_HVECTOR(7,1,lstride,sevsegtype(itask,1),
133 & sevsegtype(itask,10), ierr)
134 call MPI_TYPE_HVECTOR(33,1,lstride,sevsegtype(itask,1),
135 & sevsegtype(itask,11), ierr)
136 call MPI_TYPE_HVECTOR(22,1,lstride,sevsegtype(itask,1),
137 & sevsegtype(itask,12), ierr)
138 call MPI_TYPE_HVECTOR(16,1,lstride,sevsegtype(itask,1),
139 & sevsegtype(itask,13), ierr)
140 call MPI_TYPE_HVECTOR(10,1,lstride,sevsegtype(itask,1),
141 & sevsegtype(itask,14), ierr)
142 call MPI_TYPE_HVECTOR(nflow*nsd,1,lstride,sevsegtype(itask,1),
143 & sevsegtype(itask,15), ierr)
150 call MPI_TYPE_COMMIT (sevsegtype(itask,kdof), ierr)
169 do itask = 1,numtask
171 call MPI_TYPE_FREE(sevsegtype(itask,kdof), ierr)