From 1e78b3b6951bc05f464ee42bbd2a71048498afda Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sun, 5 Feb 2012 20:59:09 +0000 Subject: [PATCH] Make fileread example to compile --- test/fileread/cf_sample.f90 | 4 ++-- test/fileread/df_sample.f90 | 8 ++++---- test/fileread/sf_sample.f90 | 4 ++-- test/fileread/zf_sample.f90 | 4 ++-- 4 files changed, 10 insertions(+), 10 deletions(-) diff --git a/test/fileread/cf_sample.f90 b/test/fileread/cf_sample.f90 index 48d33aa8..22dcfa0f 100644 --- a/test/fileread/cf_sample.f90 +++ b/test/fileread/cf_sample.f90 @@ -92,7 +92,7 @@ program cf_sample name='cf_sample' if(psb_get_errstatus() /= 0) goto 9999 info=psb_success_ - call psb_set_errverbosity(2) + call psb_set_errverbosity(itwo) ! ! Hello world ! @@ -142,7 +142,7 @@ program cf_sample !!$ call psb_mat_renum(psb_mat_renum_gps_,aux_a,info,perm) ! At this point aux_b may still be unallocated - if (psb_size(aux_b,dim=1) == m_problem) then + if (size(aux_b,dim=1) == m_problem) then ! if any rhs were present, broadcast the first one write(psb_err_unit,'("Ok, got an rhs ")') b_col_glob =>aux_b(:,1) diff --git a/test/fileread/df_sample.f90 b/test/fileread/df_sample.f90 index 961ce6d2..d42745bc 100644 --- a/test/fileread/df_sample.f90 +++ b/test/fileread/df_sample.f90 @@ -93,8 +93,8 @@ program df_sample name='df_sample' if(psb_get_errstatus() /= 0) goto 9999 info=psb_success_ - call psb_set_errverbosity(2) - call psb_cd_set_large_threshold(2) + call psb_set_errverbosity(itwo) + call psb_cd_set_large_threshold(itwo) ! ! Hello world ! @@ -141,10 +141,10 @@ program df_sample m_problem = aux_a%get_nrows() call psb_bcast(ictxt,m_problem) - call psb_mat_renum(psb_mat_renum_amd_,aux_a,info,perm) + call psb_mat_renum(psb_mat_renum_identity_,aux_a,info,perm) ! At this point aux_b may still be unallocated - if (psb_size(aux_b,dim=1) == m_problem) then + if (size(aux_b,dim=1) == m_problem) then ! if any rhs were present, broadcast the first one write(psb_err_unit,'("Ok, got an rhs ")') b_col_glob =>aux_b(:,1) diff --git a/test/fileread/sf_sample.f90 b/test/fileread/sf_sample.f90 index 56728d5b..64aa8a2b 100644 --- a/test/fileread/sf_sample.f90 +++ b/test/fileread/sf_sample.f90 @@ -93,7 +93,7 @@ program sf_sample name='sf_sample' if(psb_get_errstatus() /= 0) goto 9999 info=psb_success_ - call psb_set_errverbosity(2) + call psb_set_errverbosity(itwo) ! ! Hello world ! @@ -143,7 +143,7 @@ program sf_sample !!$ call psb_mat_renum(psb_mat_renum_gps_,aux_a,info,perm) ! At this point aux_b may still be unallocated - if (psb_size(aux_b,dim=1) == m_problem) then + if (size(aux_b,dim=1) == m_problem) then ! if any rhs were present, broadcast the first one write(psb_err_unit,'("Ok, got an rhs ")') b_col_glob =>aux_b(:,1) diff --git a/test/fileread/zf_sample.f90 b/test/fileread/zf_sample.f90 index def73549..2d5e6bf2 100644 --- a/test/fileread/zf_sample.f90 +++ b/test/fileread/zf_sample.f90 @@ -92,7 +92,7 @@ program zf_sample name='zf_sample' if(psb_get_errstatus() /= 0) goto 9999 info=psb_success_ - call psb_set_errverbosity(2) + call psb_set_errverbosity(itwo) ! ! Hello world ! @@ -142,7 +142,7 @@ program zf_sample !!$ call psb_mat_renum(psb_mat_renum_gps_,aux_a,info,perm) ! At this point aux_b may still be unallocated - if (psb_size(aux_b,dim=1) == m_problem) then + if (size(aux_b,dim=1) == m_problem) then ! if any rhs were present, broadcast the first one write(psb_err_unit,'("Ok, got an rhs ")') b_col_glob =>aux_b(:,1)