Lines Matching refs:itask
34 do itask = 1,numtask
105 & MPI_DOUBLE_PRECISION, sevsegtype(itask,1), ierr)
112 call MPI_TYPE_HVECTOR(nsd, 1, lstride, sevsegtype(itask,1),
113 & sevsegtype(itask,2), ierr)
115 call MPI_TYPE_HVECTOR(ndof, 1, lstride, sevsegtype(itask,1),
116 & sevsegtype(itask,3), ierr)
119 & sevsegtype(itask,1),sevsegtype(itask,4), ierr)
121 & sevsegtype(itask,1),sevsegtype(itask,5), ierr)
122 call MPI_TYPE_HVECTOR(nflow,1,lstride,sevsegtype(itask,1),
123 & sevsegtype(itask,6), ierr)
124 call MPI_TYPE_HVECTOR(24,1,lstride,sevsegtype(itask,1),
125 & sevsegtype(itask,7), ierr)
126 call MPI_TYPE_HVECTOR(9,1,lstride,sevsegtype(itask,1),
127 & sevsegtype(itask,8), ierr)
128 call MPI_TYPE_HVECTOR(11,1,lstride,sevsegtype(itask,1),
129 & sevsegtype(itask,9), ierr)
130 call MPI_TYPE_HVECTOR(7,1,lstride,sevsegtype(itask,1),
131 & sevsegtype(itask,10), ierr)
132 call MPI_TYPE_HVECTOR(33,1,lstride,sevsegtype(itask,1),
133 & sevsegtype(itask,11), ierr)
134 call MPI_TYPE_HVECTOR(22,1,lstride,sevsegtype(itask,1),
135 & sevsegtype(itask,12), ierr)
136 call MPI_TYPE_HVECTOR(16,1,lstride,sevsegtype(itask,1),
137 & sevsegtype(itask,13), ierr)
138 call MPI_TYPE_HVECTOR(10,1,lstride,sevsegtype(itask,1),
139 & sevsegtype(itask,14), ierr)
140 call MPI_TYPE_HVECTOR(nflow*nsd,1,lstride,sevsegtype(itask,1),
141 & sevsegtype(itask,15), ierr)
148 call MPI_TYPE_COMMIT (sevsegtype(itask,kdof), ierr)