mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-07 07:04:57 +00:00
C interface. Not fully working yet.
This commit is contained in:
@@ -242,8 +242,8 @@ int main(int argc, char *argv[])
|
||||
ictxt = psb_c_init();
|
||||
psb_c_info(ictxt,&iam,&np);
|
||||
fprintf(stdout,"Initialization: am %d of %d\n",iam,np);
|
||||
|
||||
fflush(stdout);
|
||||
|
||||
psb_c_barrier(ictxt);
|
||||
if (iam == 0) {
|
||||
fgets(buffer,LINEBUFSIZE,stdin);
|
||||
@@ -278,7 +278,7 @@ int main(int argc, char *argv[])
|
||||
|
||||
fprintf(stderr,"%d Check on received: methd %s ptype %s afmt %s\n",
|
||||
iam,methd,ptype,afmt);
|
||||
|
||||
fflush(stderr);
|
||||
psb_c_barrier(ictxt);
|
||||
|
||||
cdh=psb_c_new_descriptor();
|
||||
|
||||
@@ -2,7 +2,7 @@
|
||||
BICGSTAB Iterative method BICGSTAB CGS BICG BICGSTABL RGMRES
|
||||
BJAC Preconditioner NONE DIAG BJAC
|
||||
CSR A Storage format CSR COO
|
||||
100 Domain size (acutal system is this**3)
|
||||
080 Domain size (acutal system is this**3)
|
||||
1 Stopping criterion
|
||||
80 MAXIT
|
||||
01 ITRACE
|
||||
|
||||
Reference in New Issue
Block a user