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

psblas3:

Browse Source 
base/serial/psb_crwextd.f90
 base/serial/psb_drwextd.f90
 base/serial/psb_srwextd.f90
 base/serial/psb_zrwextd.f90

Take out workaround for GNU Fortran PR 45439
This commit is contained in:
Salvatore Filippone
2010-08-29 16:19:07 +00:00
parent 996bc2d9e6
commit b20a8ca78e
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/psb_crwextd.f90
+2 -2
View File
@@ -73,7 +73,7 @@ subroutine psb_crwextd(nr,a,info,b,rowscale)
call psb_rwextd(nr,aa,info,rowscale=rowscale)
end if
class default
call a%a%mv_to_coo(actmp,info)
call aa%mv_to_coo(actmp,info)
if (info == psb_success_) then
if (present(b)) then
call psb_rwextd(nr,actmp,info,b%a,rowscale=rowscale)
@@ -81,7 +81,7 @@ subroutine psb_crwextd(nr,a,info,b,rowscale)
call psb_rwextd(nr,actmp,info,rowscale=rowscale)
end if
end if
if (info == psb_success_) call a%a%mv_from_coo(actmp,info)
if (info == psb_success_) call aa%mv_from_coo(actmp,info)
end select
end if
if (info /= psb_success_) goto 9999
base/serial/psb_drwextd.f90
+2 -2
View File
@@ -73,7 +73,7 @@ subroutine psb_drwextd(nr,a,info,b,rowscale)
call psb_rwextd(nr,aa,info,rowscale=rowscale)
end if
class default
call a%a%mv_to_coo(actmp,info)
call aa%mv_to_coo(actmp,info)
if (info == psb_success_) then
if (present(b)) then
call psb_rwextd(nr,actmp,info,b%a,rowscale=rowscale)
@@ -81,7 +81,7 @@ subroutine psb_drwextd(nr,a,info,b,rowscale)
call psb_rwextd(nr,actmp,info,rowscale=rowscale)
end if
end if
if (info == psb_success_) call a%a%mv_from_coo(actmp,info)
if (info == psb_success_) call aa%mv_from_coo(actmp,info)
end select
end if
if (info /= psb_success_) goto 9999
base/serial/psb_srwextd.f90
+2 -2
View File
@@ -73,7 +73,7 @@ subroutine psb_srwextd(nr,a,info,b,rowscale)
call psb_rwextd(nr,aa,info,rowscale=rowscale)
end if
class default
call a%a%mv_to_coo(actmp,info)
call aa%mv_to_coo(actmp,info)
if (info == psb_success_) then
if (present(b)) then
call psb_rwextd(nr,actmp,info,b%a,rowscale=rowscale)
@@ -81,7 +81,7 @@ subroutine psb_srwextd(nr,a,info,b,rowscale)
call psb_rwextd(nr,actmp,info,rowscale=rowscale)
end if
end if
if (info == psb_success_) call a%a%mv_from_coo(actmp,info)
if (info == psb_success_) call aa%mv_from_coo(actmp,info)
end select
end if
if (info /= psb_success_) goto 9999
base/serial/psb_zrwextd.f90
+2 -2
View File
@@ -73,7 +73,7 @@ subroutine psb_zrwextd(nr,a,info,b,rowscale)
call psb_rwextd(nr,aa,info,rowscale=rowscale)
end if
class default
call a%a%mv_to_coo(actmp,info)
call aa%mv_to_coo(actmp,info)
if (info == psb_success_) then
if (present(b)) then
call psb_rwextd(nr,actmp,info,b%a,rowscale=rowscale)
@@ -81,7 +81,7 @@ subroutine psb_zrwextd(nr,a,info,b,rowscale)
call psb_rwextd(nr,actmp,info,rowscale=rowscale)
end if
end if
if (info == psb_success_) call a%a%mv_from_coo(actmp,info)
if (info == psb_success_) call aa%mv_from_coo(actmp,info)
end select
end if
if (info /= psb_success_) goto 9999