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

Browse Source
This commit is contained in:
Salvatore Filippone
2008-01-20 11:21:00 +00:00
parent 0c4a981595
commit 9a98261efb
2 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/Makefile
+2 -1
View File
@@ -26,7 +26,8 @@ lib: $(OBJS)
/bin/cp -p $(HERE)/$(LIBNAME) $(LIBDIR)
/bin/cp -p $(LIBMOD) $(LOCAL_MODS) $(LIBDIR)
$(F90OBJS): $(MODOBJS)
$(OBJS): $(LIBDIR)/psb_base_mod$(.mod)
$(F90OBJS): psb_prec_mod$(.mod)
psb_prec_mod.o: psb_prec_type.o
veryclean: clean
prec/psb_zbjac_aply.f90
+9 -1
View File
@@ -113,7 +113,7 @@ subroutine psb_zbjac_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
& trans=trans_,unit='U',choice=psb_none_, work=aux)
if(info /=0) goto 9999
case('T','C')
case('T')
call psb_spsm(zone,prec%av(u_pr_),x,zzero,ww,desc_data,info,&
& trans=trans_,unit='L',diag=prec%d,choice=psb_none_, work=aux)
if(info /=0) goto 9999
@@ -121,6 +121,14 @@ subroutine psb_zbjac_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
& trans=trans_,unit='U',choice=psb_none_,work=aux)
if(info /=0) goto 9999
case('C')
call psb_spsm(zone,prec%av(u_pr_),x,zzero,ww,desc_data,info,&
& trans=trans_,unit='L',diag=conjg(prec%d),choice=psb_none_, work=aux)
if(info /=0) goto 9999
call psb_spsm(alpha,prec%av(l_pr_),ww,beta,y,desc_data,info,&
& trans=trans_,unit='U',choice=psb_none_,work=aux)
if(info /=0) goto 9999
end select