Merged changes from maintenance, improve serial compilation and fake MPI.

newG2L
Salvatore Filippone 4 years ago
parent 545a5f7b80
commit 23c9a71ed6

@ -209,7 +209,7 @@ subroutine psi_i_xtr_loc_dl(ctxt,is_bld,is_upd,desc_str,loc_dl,length_dl,info)
call psb_msort_unique(loc_dl(1:pdl),ldu) call psb_msort_unique(loc_dl(1:pdl),ldu)
pdl = ldu pdl = ldu
call psb_realloc(pdl,loc_dl,info) call psb_realloc(pdl,loc_dl,info)
call psi_symm_dep_list(loc_dl,ctxt,info) if (np>1) call psi_symm_dep_list(loc_dl,ctxt,info)
pdl = size(loc_dl) pdl = size(loc_dl)
length_dl = 0 length_dl = 0
length_dl(me) = pdl length_dl(me) = pdl

@ -117,20 +117,30 @@ double mpi_wtime()
} }
void mpi_wait() void mpi_wait(int *request, int* status, int *ierr)
{ {
*ierr = 0;
return; return;
} }
void mpi_send() void mpi_send(void* buf, int* count, int* datatype,
int *dest, int *tag, int *comm, int *ierr)
{ {
*ierr = 0;
return; return;
} }
void mpi_isend() void mpi_isend(void* buf, int* count, int* datatype,
int *dest, int *tag, int *comm, int *request,
int *ierr)
{ {
*ierr = 0;
return; return;
} }
void mpi_irecv() void mpi_irecv(void* buf, int* count, int* datatype,
int *src, int *tag, int *comm, int *request,
int *ierr)
{ {
*ierr = 0;
return; return;
} }

Loading…
Cancel
Save