fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 12:22:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3-integer8:

Browse Source 
prec/impl/psb_c_bjacprec_impl.f90
 prec/impl/psb_c_diagprec_impl.f90
 prec/impl/psb_c_nullprec_impl.f90
 prec/impl/psb_cilu_fct.f90
 prec/impl/psb_d_bjacprec_impl.f90
 prec/impl/psb_d_diagprec_impl.f90
 prec/impl/psb_d_nullprec_impl.f90
 prec/impl/psb_dilu_fct.f90
 prec/impl/psb_s_bjacprec_impl.f90
 prec/impl/psb_s_diagprec_impl.f90
 prec/impl/psb_s_nullprec_impl.f90
 prec/impl/psb_silu_fct.f90
 prec/impl/psb_z_bjacprec_impl.f90
 prec/impl/psb_z_diagprec_impl.f90
 prec/impl/psb_z_nullprec_impl.f90
 prec/impl/psb_zilu_fct.f90


Now prec/*  compiles with integer8
This commit is contained in:
Salvatore Filippone
2012-02-01 17:28:07 +00:00
parent 1f9b8bc0e5
commit 8eeff0abda
16 changed files with 180 additions and 172 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/impl/psb_c_nullprec_impl.f90
+10 -10
View File
@@ -10,7 +10,7 @@ subroutine psb_c_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
integer(psb_ipk_), intent(out) :: info
character(len=1), optional :: trans
complex(psb_spk_),intent(inout), optional, target :: work(:)
integer(psb_ipk_) :: err_act, nrow
integer(psb_ipk_) :: err_act, nrow, ierr(5)
character(len=20) :: name='c_null_prec_apply'
call psb_erractionsave(err_act)
@@ -23,13 +23,13 @@ subroutine psb_c_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work)
nrow = desc_data%get_local_rows()
if (x%get_nrows() < nrow) then
info = 36
call psb_errpush(info,name,i_err=(/2,nrow,0,0,0/))
info = 36; ierr(1) = 2; ierr(2) = nrow;
call psb_errpush(info,name,i_err=ierr)
goto 9999
end if
if (y%get_nrows() < nrow) then
info = 36
call psb_errpush(info,name,i_err=(/3,nrow,0,0,0/))
info = 36; ierr(1) = 3; ierr(2) = nrow;
call psb_errpush(info,name,i_err=ierr)
goto 9999
end if
@@ -65,7 +65,7 @@ subroutine psb_c_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
integer(psb_ipk_), intent(out) :: info
character(len=1), optional :: trans
complex(psb_spk_),intent(inout), optional, target :: work(:)
integer(psb_ipk_) :: err_act, nrow
integer(psb_ipk_) :: err_act, nrow, ierr(5)
character(len=20) :: name='c_null_prec_apply'
call psb_erractionsave(err_act)
@@ -76,13 +76,13 @@ subroutine psb_c_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
nrow = desc_data%get_local_rows()
if (size(x) < nrow) then
info = 36
call psb_errpush(info,name,i_err=(/2,nrow,0,0,0/))
info = 36; ierr(1) = 2; ierr(2) = nrow;
call psb_errpush(info,name,i_err=ierr)
goto 9999
end if
if (size(y) < nrow) then
info = 36
call psb_errpush(info,name,i_err=(/3,nrow,0,0,0/))
info = 36; ierr(1) = 3; ierr(2) = nrow;
call psb_errpush(info,name,i_err=ierr)
goto 9999
end if