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

psblas3:

Browse Source 
base/modules/Makefile
 base/serial/psi_c_serial_impl.f90
 base/serial/psi_d_serial_impl.f90
 base/serial/psi_i_serial_impl.f90
 base/serial/psi_s_serial_impl.f90

Fixed base/modules build order.
Fixed serial_impl: call correct version of AXPBY
This commit is contained in:
Salvatore Filippone
2015-07-07 09:48:35 +00:00
parent ae735883ff
commit 585cf6f735
5 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/Makefile
+2
View File
@@ -144,6 +144,8 @@ psb_sort_mod.o: psb_i_sort_mod.o psb_s_sort_mod.o psb_d_sort_mod.o \
psi_serial_mod.o: psi_i_serial_mod.o \
psi_s_serial_mod.o psi_d_serial_mod.o psi_c_serial_mod.o psi_z_serial_mod.o
psi_i_serial_mod.o psi_s_serial_mod.o psi_d_serial_mod.o psi_c_serial_mod.o psi_z_serial_mod.o: psb_const_mod.o
psb_base_mod.o: $(MODULES)
psi_penv_mod.o: psi_penv_mod.F90 $(BASIC_MODS)
base/serial/psi_c_serial_impl.f90
+2 -2
View File
@@ -45,7 +45,7 @@ subroutine psi_caxpby(m,n,alpha, x, beta, y, info)
goto 9999
end if
if ((m>0).and.(n>0)) call zaxpby(m,n,alpha,x,lx,beta,y,ly,info)
if ((m>0).and.(n>0)) call caxpby(m,n,alpha,x,lx,beta,y,ly,info)
call psb_erractionrestore(err_act)
return
@@ -96,7 +96,7 @@ subroutine psi_caxpbyv(m,alpha, x, beta, y, info)
goto 9999
end if
if (m>0) call zaxpby(m,ione,alpha,x,lx,beta,y,ly,info)
if (m>0) call caxpby(m,ione,alpha,x,lx,beta,y,ly,info)
call psb_erractionrestore(err_act)
return
base/serial/psi_d_serial_impl.f90
+2 -2
View File
@@ -45,7 +45,7 @@ subroutine psi_daxpby(m,n,alpha, x, beta, y, info)
goto 9999
end if
if ((m>0).and.(n>0)) call zaxpby(m,n,alpha,x,lx,beta,y,ly,info)
if ((m>0).and.(n>0)) call daxpby(m,n,alpha,x,lx,beta,y,ly,info)
call psb_erractionrestore(err_act)
return
@@ -96,7 +96,7 @@ subroutine psi_daxpbyv(m,alpha, x, beta, y, info)
goto 9999
end if
if (m>0) call zaxpby(m,ione,alpha,x,lx,beta,y,ly,info)
if (m>0) call daxpby(m,ione,alpha,x,lx,beta,y,ly,info)
call psb_erractionrestore(err_act)
return
base/serial/psi_i_serial_impl.f90
+2 -2
View File
@@ -45,7 +45,7 @@ subroutine psi_iaxpby(m,n,alpha, x, beta, y, info)
goto 9999
end if
if ((m>0).and.(n>0)) call zaxpby(m,n,alpha,x,lx,beta,y,ly,info)
if ((m>0).and.(n>0)) call iaxpby(m,n,alpha,x,lx,beta,y,ly,info)
call psb_erractionrestore(err_act)
return
@@ -96,7 +96,7 @@ subroutine psi_iaxpbyv(m,alpha, x, beta, y, info)
goto 9999
end if
if (m>0) call zaxpby(m,ione,alpha,x,lx,beta,y,ly,info)
if (m>0) call iaxpby(m,ione,alpha,x,lx,beta,y,ly,info)
call psb_erractionrestore(err_act)
return
base/serial/psi_s_serial_impl.f90
+2 -2
View File
@@ -45,7 +45,7 @@ subroutine psi_saxpby(m,n,alpha, x, beta, y, info)
goto 9999
end if
if ((m>0).and.(n>0)) call zaxpby(m,n,alpha,x,lx,beta,y,ly,info)
if ((m>0).and.(n>0)) call saxpby(m,n,alpha,x,lx,beta,y,ly,info)
call psb_erractionrestore(err_act)
return
@@ -96,7 +96,7 @@ subroutine psi_saxpbyv(m,alpha, x, beta, y, info)
goto 9999
end if
if (m>0) call zaxpby(m,ione,alpha,x,lx,beta,y,ly,info)
if (m>0) call saxpby(m,ione,alpha,x,lx,beta,y,ly,info)
call psb_erractionrestore(err_act)
return