mld2p4-2:

examples/fileread/mld_cexample_1lev.f90 examples/fileread/mld_cexample_ml.f90 examples/fileread/mld_dexample_1lev.f90 examples/fileread/mld_dexample_ml.f90 examples/fileread/mld_sexample_1lev.f90 examples/fileread/mld_sexample_ml.f90 examples/fileread/mld_zexample_1lev.f90 examples/fileread/mld_zexample_ml.f90 tests/fileread/cf_sample.f90 tests/fileread/df_sample.f90 tests/fileread/sf_sample.f90 tests/fileread/zf_sample.f90 New MATDIST interface.
9 years ago · 84aba17ddf
parent 3ba0d6fe7d
commit 84aba17ddf
12 changed files with 20 additions and 20 deletions
--- a/examples/fileread/mld_cexample_1lev.f90
+++ b/examples/fileread/mld_cexample_1lev.f90
@ -186,7 +186,7 @@ program mld_cexample_ml
  call psb_barrier(ictxt)
  if (iam == psb_root_) write(*,'("Partition type: block")')
  call psb_matdist(aux_A, A, ictxt, &
-       & desc_A,b_glob,b,info, parts=part_block)
+       & desc_A,info,b_glob=b_glob,b=b, parts=part_block)

  t2 = psb_wtime() - t1

--- a/examples/fileread/mld_cexample_ml.f90
+++ b/examples/fileread/mld_cexample_ml.f90
@ -190,7 +190,7 @@ program mld_cexample_ml
  call psb_barrier(ictxt)
  if (iam == psb_root_) write(*,'("Partition type: block")')
  call psb_matdist(aux_A, A, ictxt, &
-       & desc_A,b_glob,b,info, parts=part_block)
+       & desc_A,info,b_glob=b_glob,b=b, parts=part_block)

  t2 = psb_wtime() - t1

--- a/examples/fileread/mld_dexample_1lev.f90
+++ b/examples/fileread/mld_dexample_1lev.f90
@ -185,7 +185,7 @@ program mld_dexample_ml
  call psb_barrier(ictxt)
  if (iam == psb_root_) write(*,'("Partition type: block")')
  call psb_matdist(aux_A, A, ictxt, &
-       & desc_A,b_glob,b,info, parts=part_block)
+       & desc_A,info,b_glob=b_glob,b=b, parts=part_block)

  t2 = psb_wtime() - t1

--- a/examples/fileread/mld_dexample_ml.f90
+++ b/examples/fileread/mld_dexample_ml.f90
@ -189,7 +189,7 @@ program mld_dexample_ml
  call psb_barrier(ictxt)
  if (iam == psb_root_) write(*,'("Partition type: block")')
  call psb_matdist(aux_A, A, ictxt, &
-       & desc_A,b_glob,b,info, parts=part_block)
+       & desc_A,info,b_glob=b_glob,b=b, parts=part_block)

  t2 = psb_wtime() - t1

--- a/examples/fileread/mld_sexample_1lev.f90
+++ b/examples/fileread/mld_sexample_1lev.f90
@ -186,7 +186,7 @@ program mld_sexample_ml
  call psb_barrier(ictxt)
  if (iam == psb_root_) write(*,'("Partition type: block")')
  call psb_matdist(aux_A, A, ictxt, &
-       & desc_A,b_glob,b,info, parts=part_block)
+       & desc_A,info,b_glob=b_glob,b=b, parts=part_block)

  t2 = psb_wtime() - t1

--- a/examples/fileread/mld_sexample_ml.f90
+++ b/examples/fileread/mld_sexample_ml.f90
@ -190,7 +190,7 @@ program mld_sexample_ml
  call psb_barrier(ictxt)
  if (iam == psb_root_) write(*,'("Partition type: block")')
  call psb_matdist(aux_A, A, ictxt, &
-       & desc_A,b_glob,b,info, parts=part_block)
+       & desc_A,info,b_glob=b_glob,b=b, parts=part_block)

  t2 = psb_wtime() - t1

--- a/examples/fileread/mld_zexample_1lev.f90
+++ b/examples/fileread/mld_zexample_1lev.f90
@ -185,7 +185,7 @@ program mld_zexample_ml
  call psb_barrier(ictxt)
  if (iam == psb_root_) write(*,'("Partition type: block")')
  call psb_matdist(aux_A, A, ictxt, &
-       & desc_A,b_glob,b,info, parts=part_block)
+       & desc_A,info,b_glob=b_glob,b=b, parts=part_block)

  t2 = psb_wtime() - t1

--- a/examples/fileread/mld_zexample_ml.f90
+++ b/examples/fileread/mld_zexample_ml.f90
@ -189,7 +189,7 @@ program mld_zexample_ml
  call psb_barrier(ictxt)
  if (iam == psb_root_) write(*,'("Partition type: block")')
  call psb_matdist(aux_A, A, ictxt, &
-       & desc_A,b_glob,b,info, parts=part_block)
+       & desc_A,info,b_glob=b_glob,b=b, parts=part_block)

  t2 = psb_wtime() - t1

--- a/tests/fileread/cf_sample.f90
+++ b/tests/fileread/cf_sample.f90
@ -212,7 +212,7 @@ program cf_sample
      ivg(i) = ipv(1)
    enddo
    call psb_matdist(aux_a, a, ictxt, &
-         & desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg)
+         & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,v=ivg)
  else if (ipart == 2) then 
    if (iam == psb_root_) then 
      write(psb_out_unit,'("Partition type: graph")')
@ -224,11 +224,11 @@ program cf_sample
    call distr_mtpart(psb_root_,ictxt)
    call getv_mtpart(ivg)
    call psb_matdist(aux_a, a, ictxt, &
-         & desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg)
+         & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,v=ivg)
  else 
    if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")')
    call psb_matdist(aux_a, a,  ictxt, &
-         & desc_a,b_col_glob,b_col,info,fmt=afmt,parts=part_block)
+         & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,parts=part_block)
  end if

  call psb_geall(x_col,desc_a,info)
--- a/tests/fileread/df_sample.f90
+++ b/tests/fileread/df_sample.f90
@ -213,7 +213,7 @@ program df_sample
      ivg(i) = ipv(1)
    enddo
    call psb_matdist(aux_a, a, ictxt, &
-         & desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg)
+         & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,v=ivg)
  else if (ipart == 2) then 
    if (iam == psb_root_) then 
      write(psb_out_unit,'("Partition type: graph")')
@ -225,11 +225,11 @@ program df_sample
    call distr_mtpart(psb_root_,ictxt)
    call getv_mtpart(ivg)
    call psb_matdist(aux_a, a, ictxt, &
-         & desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg)
+         & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,v=ivg)
  else 
    if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")')
    call psb_matdist(aux_a, a,  ictxt, &
-         & desc_a,b_col_glob,b_col,info,fmt=afmt,parts=part_block)
+         & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,parts=part_block)
  end if

  call psb_geall(x_col,desc_a,info)
--- a/tests/fileread/sf_sample.f90
+++ b/tests/fileread/sf_sample.f90
@ -212,7 +212,7 @@ program sf_sample
      ivg(i) = ipv(1)
    enddo
    call psb_matdist(aux_a, a, ictxt, &
-         & desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg)
+         & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,v=ivg)
  else if (ipart == 2) then 
    if (iam == psb_root_) then 
      write(psb_out_unit,'("Partition type: graph")')
@ -224,11 +224,11 @@ program sf_sample
    call distr_mtpart(psb_root_,ictxt)
    call getv_mtpart(ivg)
    call psb_matdist(aux_a, a, ictxt, &
-         & desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg)
+         & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,v=ivg)
  else 
    if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")')
    call psb_matdist(aux_a, a,  ictxt, &
-         & desc_a,b_col_glob,b_col,info,fmt=afmt,parts=part_block)
+         & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,parts=part_block)
  end if

  call psb_geall(x_col,desc_a,info)
--- a/tests/fileread/zf_sample.f90
+++ b/tests/fileread/zf_sample.f90
@ -212,7 +212,7 @@ program zf_sample
      ivg(i) = ipv(1)
    enddo
    call psb_matdist(aux_a, a, ictxt, &
-         & desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg)
+         & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,v=ivg)
  else if (ipart == 2) then 
    if (iam == psb_root_) then 
      write(psb_out_unit,'("Partition type: graph")')
@ -224,11 +224,11 @@ program zf_sample
    call distr_mtpart(psb_root_,ictxt)
    call getv_mtpart(ivg)
    call psb_matdist(aux_a, a, ictxt, &
-         & desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg)
+         & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,v=ivg)
  else 
    if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")')
    call psb_matdist(aux_a, a,  ictxt, &
-         & desc_a,b_col_glob,b_col,info,fmt=afmt,parts=part_block)
+         & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,parts=part_block)
  end if

  call psb_geall(x_col,desc_a,info)