Lines Matching refs:REQPTR
2135 INTEGER, ALLOCATABLE :: REQPTR(:,:) local
2150 allocate( REQPTR( id%NPROCS, 3 ), STAT = IERR )
2184 CALL MPI_RECV( REQPTR( I+1, 1 ), 1,
2189 REQPTR( 1, 1 ) = 1
2191 REQPTR( 1, 1 ) = id%NZ_loc + 1
2194 REQPTR( I, 1 ) = REQPTR( I, 1 ) + REQPTR( I-1, 1 )
2203 IF ( REQPTR( I + 1, 1 ) - REQPTR( I, 1 ) .NE. 0 ) THEN
2205 CALL MPI_IRECV( id%IRN( REQPTR( I, 1 ) ),
2206 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ),
2208 & I, COLLECT_IRN, id%COMM, REQPTR(I, 2), IERR )
2209 CALL MPI_IRECV( id%JCN( REQPTR( I, 1 ) ),
2210 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ),
2212 & I, COLLECT_JCN, id%COMM, REQPTR(I, 3), IERR )
2214 REQPTR(I, 2) = MPI_REQUEST_NULL
2215 REQPTR(I, 3) = MPI_REQUEST_NULL
2235 REQPTR( id%NPROCS, 2 ) = MPI_REQUEST_NULL
2236 REQPTR( id%NPROCS, 3 ) = MPI_REQUEST_NULL
2239 & ( 2 * id%NPROCS, REQPTR( 1, 2 ), INDX, STATUS, IERR )
2241 deallocate( REQPTR )