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)
pdl = ldu
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)
length_dl = 0
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;
}
void mpi_send()
void mpi_send(void* buf, int* count, int* datatype,
int *dest, int *tag, int *comm, int *ierr)
{
*ierr = 0;
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;
}
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;
}

Loading…
Cancel
Save